| Yanıt: Ban Sayaç
on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#:{ if $hget(ban,$+(#,$nick)) { hinc ban $+(#,$nick) 1 | halt } | elseif !$hget(ban,$+(#,$nick)) { hadd ban $+(#,$nick) 1 } }
alias hban { var %a $hget(ban,0).item | while %a { echo -a $hget(ban,%a).item $hget(ban,%a).data | dec %a } }
on *:text:NeLix Ban List:#:{ var %ü $hget(ban,0).item | while %ü { if $regex($hget(ban,%ü).item,#) { msg # $hget(ban,%ü).item : $hget(ban,%ü).data } | dec %ü } }
on *:disconnect: hsave ban hash |
on *:connect: hmake ban 100 | hload ban hash
|