Kod

on $*:text:/^[\.!]ban/Si:#ZSop: {
  if (!$3) { 
    msg # Hatalı kullanım; ( .ban nick sebep )  
  }
  elseif ($2 !ison #) && $regex($2,/\d+?/i) || ($2 !isreg #)  {
    msg # $qt($2) $+ , Nick'ine Ban Uyguluyamazsınız. Kanalda Görevli yada Bulunmuyor.
  }
  elseif ($nick isreg #) { 
    msg # $nick Bu Komutu Kullanmaya Yetkili Değilsiniz.
  }
  else {
    mode # +b $2
    chanserv kick # $2 $3-
    $iif(!$isdir(raporlama),mkdir raporlama) 
    write $+(raporlama/,$2,.,txt) $2 - $3- Sebebi ile $nick tarafından atılmıştır. $+ $fulltime
    privmsg $2 $2 , $3- Sebebi ile # Kanal'ından Atıldınız. Atan Nick: $nick ( Bu zamana kadar atılan banları görmek için .infoban yazın lütfen. )
  }
}

on $*:text:/^[\.!][ıli]nf[0öo]ban/Si:?: { if ($read $+(raporlama/,$nick,.,txt)) {
    privmsg $nick Kayıtlara bakılıyor, lütfen bekleyiniz.
    play $nick $+(raporlama/,$nick,.,txt)
  }
}