on @*:TEXT:*:#: {
if ($nick isop #) || (help isin #) || (opers isin #) { halt }
var %i = 1 | while ($gettok(%badword,%i,46)) { if ($gettok(%badword,%i,46) isin $remove($1-,$chr(32))) { ignore -u10 $nick | kick $chan $nick 4 Edep Yahu..!! %kickmsg | ban $chan $nick | } | inc %i }
}
alias lbw { echo -a %logo 8,1 Extra Küfür Koruması listeleniyor | var %chr = 1 | while ($gettok(%badword,%chr,46)) { echo -a %logo $ifmatch | .inc %chr } } echo -a %logo 8,1 End of List
alias abw { //set %badword %badword $+ $+($1-,$chr(46)) }
alias dbw { set %badword $remove(%badword,$1 $+ $chr(46)) }
menu channel,status,menubar,status,nicklist {
.Extra Kufur Korumasi
.. Kufurleri Listele: /echo -a %logo 11,1 Extra Küfür Koruması listeleniyor | /echo -a %logo 8,1*** Badwords:0,1 %badword
.. Ekle: abw $$?="Kufurleri buraya ekleyin"
.. Sil: dbw $$?="Kufurleri burdan silin"
}
Bende ki kod bu ve banlarken Adem!*dost@95.175.14.MZO4= seklinde banliyor. Nerde degisiklik yaparsam *!*@95.175.14.* seklinde banlama yapar?