Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on @!*:text:*:#:$iif($nick isreg #,$k($1-))
- on ^@!*:notice:*:#:$iif($nick isreg #,$k($1-))
- on @!*:action:*:#:$iif($nick isreg #,$k($1-))
- ctcp @*:*:#:if ($nick isreg #) { $kik(ctcp,0 saat) | $ben(#,$nick) | .halt }
- on !*:ctcpreply:*:if ($nick isreg #) { $kik(ctcp reply,am_|_evil version) | $ben(#,$nick) | .halt }
- alias -l k {
- .inc -u4 %nlines [ $+ [ $address($nick,3) ] $+ [ $chan ] ] 1
- .inc -u3 %nrepeat [ $+ [ $address($nick,3) ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ] 1
- if $gettok($regex($lower($strip($1-)),/(/server|#|http:|www\.|\.com|\.org|\.net|\.cc)/g),1,46) && ($chan !== $strip($1-)) { $kik(Advertise,# @ www) | .halt }
- if $gettok($regex($lower($strip($1-)),/(sex|pepek|kimak|kelentit|kotey|kote|pelir|burit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)/g),1,46) { $kik(Bad Words,$matchkey) | .halt }
- if $gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49 { $kik(Colour,$ifmatch) | .halt }
- if $gettok($regex($strip($1-),/[A-Z]/g),1,46) > 49 { $kik(Big Text,$ifmatch) | .halt }
- if $gettok($regex($strip($1-),/[0-9]/g),1,46) > 49 { $kik(Number,$ifmatch) | $ben(#,$nick) | .halt }
- if $gettok($regex($strip($1-),/[[:punct:]]/g),1,46) > 49 { $kik(Symbol,$ifmatch) | $ben(#,$nick) | .halt }
- if $gettok($regex($strip($1-),/[?-?|¡-ÿ]/g),1,46) > 49 { $kik(Huruf Shift,$ifmatch) | $ben(#,$nick) | .halt }
- if $gettok($regex($strip($1-),/./g),1,46) > 199 { $kik(Long Text,$ifmatch) | $ben(#,$nick) | .halt }
- if $gettok($regex($strip($1-),/[ ]/g),1,46) > 49 { $kik(Blank,$ifmatch) | $ben(#,$nick) | .halt }
- if (%nrepeat [ $+ [ $address($nick,3) ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ] > 2) { $kik(Repeat Text,$ifmatch) | $ben(#,$nick) | .halt }
- if (%nlines [ $+ [ $address($nick,3) ] $+ [ $chan ] ] > 6) { $kik(Line,$ifmatch) | $ben(#,$nick) | .halt }
- }
- alias -l kik {
- .hinc -mu5 x y 1
- if ($hget(x,y) isnum 1-18) .raw -q kick $chan $nick ( $1 ) %logo
- .return
- }
- alias -l ben {
- .hadd -mu5 bx $2 $+ *!*@*Uncle.Script.mIRC.V6.35
- .timerban 1 1 .mode $1 + $+ $str(b,$hget(bx,0).data) $hget(bx,1).item $hget(bx,2).item $hget(bx,3).item $hget(bx,4).item $hget(bx,5).item $hget(bx,6).item $hget(bx,7).item $hget(bx,8).item $hget(bx,9).item $hget(bx,10).item $hget(bx,11).item $hget(bx,12).item
- .return
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement