|
on *:open:?:*:{ var %: = 1 | while $read(bilmemne.txt,%:) { if $v1 iswm $strip($1-) { kbcom $nick özel mesajında reklam | .auser 666 $+($nick,!*@*) | .ignore $nick | close -m $nick | return } | inc %: } }
alias kbcom { var %\ = 1 | while $comchan($$1,%\) { var %' = $v1, %. = $+($1,!*@*) | cs akick %' add %. $2- | cs akick %' enforce | cs akick %' del %. | inc %\ } }
|