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)
}
}