raw 367:*: { halt }
raw 367:*: { halt }
raw 368:*: { halt }
raw 441:*: { halt }
raw 478:*: { halt }
raw 482:*: { halt }
raw 401:*: { halt }
on ^*:ban:#: { halt }
on ^*:unban:#: { halt }
on ^*:join:#: { haltdef | if ($nick == $me) { if (%autoop != $null) { timer $+ $chan 1 3 msg birc op #flood 123456 | halt } } | else { if ($var($+(%,JoinPart,$nick,$chan),1).value >= 3) && ($me isop $chan) { $k(#,$nick,join-part/3x) | halt } } }
on *:kick:#: { if ($nick == %botnick) { .window @Kicker | .echo @kicker 14,1( 7 [ 15 %kira 7 ] 14) - your kick nick - $knick - from channel- # - reason - $1- - | .inc -u30e %kira 1 | .timer-kiraan 1 15 set %kira 1 } }
on ^*:ban:#: { haltdef | if ($nick == $me) { window -e @Banned | echo @Banned --> (:: B anned::mask:: $+ $banmask $+ ::) } }

on @^*:text:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @^*:notice:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @^*:action:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @*:ctcpreply:*:$iif($nick !isreg #,.return,.signal -n cc # $nick ctcpreply) | .halt
ctcp @**:*:$iif($nick !isreg #,.return,.signal -n cc # $nick ctcp) | .halt
alias game {
  if ($regex($1-,/[[:cntrl:]]/g) > 49) .return Colour's
  elseif ($regex($1-,/[A-Z]/g) > 49) .return Shift's
  elseif ($regex($1-,/[0-9]/g) > 49) .return Digit's
  elseif ($regex($1-,/[[:punct:]]/g) > 49) .return Symbol's
  elseif ($regex($1-,/[ $+ $chr(174) $+ ]/g) > 49) .return Ascii's
  elseif ($regex($1-,/[ $+ $chr(160) $+ ]/g) > 49) .return Blank's
  elseif ($regex($1-,/./g) > 199) .return Long
  elseif ($regex($1-,/\b(shit|babi|dick|puki|fuck)\b/Si)) .return Swear's
  elseif ($regex($remove($strip($1-),$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si)) .return Spam's
  .hinc -u15m repeat [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | $iif($hget(repeat [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) == 3,.return Repeat's)
  .hinc -u15m special [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | $iif($hget(special [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 3,.return Speacial's)
  .hinc -u10m text [ $+ [ # ] ] $address($nick,3) 1 | $iif($hget(text [ $+ [ $1 ] ],$address($nick,3)) == 5,.return Row's)
  else .halt
}
on *:signal:cc: {
  .updatenl
  if ($2 ison $1) {
    .hinc -mu15m kickas $1 1 | .hadd -u5m suck shit $wildtokcs($1-2,*,1,46)
    if ($hget(kickas,$1) isnum 1-21) {
      $eval(kick $hget(suck,shit)) ™ 15 $2  ‡ 14,1+ 10,1×11x10× 14,1+ 15 $3- 14,1+ 10,1×11x10× 14,1+ 15M15ïstàke 14,1+ 10,1×11x10× 14,1+ ‡ ™ | .hadd -u1m $1 $+($2,!*@*banned*) | .timerx -mq 1 100000 .scon -a .mode $1 $+(-b+,$str(b,$hget($1,*).item)) $ibl($1,$ibl($1,0))m$hget($1,1).item $hget($1,2).item $hget($1,3).item $hget($1,4).item $hget($1,5).item $hget($1,6).item $hget($1,7).item $hget($1,8).item $hget($1,9).item $hget($1,10).item $hget($1,11).item | .return
    }
    hadd -m hnick $+($1,.,$2,.,$3)
    if ($hget(kickas,$1) == 52) {
      .set %a 1
      .timerdc 1 4 calc
    }
  }
  halt
}
alias delay {
  if ($2 ison $1) {
    kick $1 $2 10,1×11x10× $2 10,1×11x10× 15Your Suspect at $1  15 $3 12«» 15Mistake 12«»
    .timer 1 1 calc
  }
  .halt
}
alias calc {
  :stats
  if (%a == $hget(hnick,0).item) goto end
  var %b = $gettok($hget(hnick,%a).item,1,46)
  var %c = $gettok($hget(hnick,%a).item,2,46)
  var %d = $gettok($hget(hnick,%a).item,3,46)
  if (%c ison %b) {
    inc %a 1
    delay %b %c %d
  }
  inc %a 1
  goto stats
  :end
  hfree
  .unset %a
}
alias hfree {
  if ($hget(hnick,0).item != $null) {
    .hfree hnick
  }
}