IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

on @*:text:*:#:{ 

  var %b $numtok($hget(bilal,küfürler),32)

  while %b { if ($gettok($hget(bilal,küfürler),%b,32) isin $1-) { 

      ban -u600 $chan $address($nick,2) | kick $chan $nick Küfür sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*,İ,*,I,*) 

    } 

    dec %b 

  }

  var %c $numtok($hget(bilal,reklam),32)

  while %c { if ($gettok($hget(bilal,reklam),%c,32) isin $1-) {

      ban -u600 $chan $address($nick,2) | kick $chan $nick Reklam sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*,İ,*,I,*)

    }

    dec %c

  }

}

alias kfrekle { hadd bilal küfürler $addtok($hget(bilal,küfürler),$1,32) }

alias kfrsil { hadd bilal küfürler $deltok($hget(bilal,küfürler),$1,32) }
 

alias rekekle { hadd bilal reklam $addtok($hget(bilal,reklam),$1,32) }

alias reksil { hadd bilal reklam $deltok($hget(bilal,reklam),$1,32) }
 

on *:start:{

/hmake bilal 100

/hload bilal bilal.püfs

}
 

on *:disconnect:{ 

hsave bilal bilal.püfs 

}

/kfrekle küfür Küfür ekler.
/kfrsil küfür Küfür siler.
/rekekle reklam Reklam ekler.
/reksil reklam Reklam siler.

Umarım isinizi görür.