on ^*:join:#rekick:{ if ($nick == $me ) { .msg #rekick ~deop } }
on *:sockopen:bot*: {
  if ($sockerr > 0) { return }
  sockwrite -n $sockname connect  %serverjoin $+ :6667/ HTTP/1.0 $+ $crlf $+ $crlf
  sockwrite -n $sockname nick %botnick
  sockwrite -n $sockname user $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) : $+ BoT JiwA
  sockwrite -tn * join #rekick
  sockwrite -n * privmsg ReopServ op #rekick 123456
  Birc_mine_nu
  sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) o
}
on *:sockread:bot*: {
  if ($sockerr > 0) return
  :mafia
  .sockread %mafia.buffer
  .tokenize 32 %mafia.buffer | window @temp 0 0 450 160 Times New Roman 14 | aline @temp * $2 $+($chr(40),$3,@,$4,$chr(41))  $3- $time
  .sockread %mafia.buffer
  if ($sockbr == 0) return
  if ($1 == ping) .sockwrite -tn $sockname PONG $remove($2,:)
  if ($2 == 376) { .sockwrite -tn * join #rekick  }
  if (($remove($mid($gettok(%mafia.buffer,4,32),3,100),$chr(1)) == PING) && (%socket.ctcpblock == $null)) {
    .sockwrite -n * NOTICE $mid($gettok(%mafia.buffer,1,33),2,100) : $+ $Chr(1) $+ PING $mid($gettok(%mafia.buffer,5-,32),1,$calc($len($gettok(%mafia.buffer,5-,32)) - 1)) $+ $Chr(1)
    set -u5 %socket.ctcpblock $true
  }
  if ($gettok(%mafia.buffer,2,32) == 474) {
    if (%botnick == |975) { timernickc 1 4 sockwrite -nt bot* nick |eba| | timerset 1 3 .set %botnick |eba| | .echo -a CleaR | .clearev }
    if (%botnick == |eba|) { timernickc 1 4 sockwrite -nt bot* nick |975 | timerset 1 3 .set %botnick |975 | .echo -a CleaR | .clearev }
  }
  goto mafia
}
alias bot { .sockclose bot* | .sockopen $+(bot,$r(1,9)) %serverjoin 6667 }
#mafia on
on *:notify: {
  if ($nick == %botnick) {
    sockwrite -tnk * join #rekick
    sockwrite -n * $str(kick,1) $str(%c,1) $str(%n,1) NO
    halt
  }
}
on *:unotify: { if ( $nick == %botnick ) { sockclose bot* | bot | .echo -a unotify } }
on ^*:kick:#rekick:{ if ($nick != %botnick ) { halt } }
on ^*:join:#rekick:{ if ($nick != %botnick ) { halt } }
on ^*:op:#rekick:{ if $opnick != %botnick { halt } }
on ^*:quit: { if ($chan == #rekick) || ($nick != %botnick ) { halt } }
off *:quit { if ( $nick == %botnick ) { .echo -a 4[[-Rev Sock QUIT-]] } }
#mafia end
alias clearev {
  .sockwrite -tnk * umode -Mmep
  .unset %c %n %chan %z %nick %bil %lok %bowl | rlevel 10 $nick | rlevel 20 $nick
  .timerjoin 1 5 .sockwrite -n * join #rekick
  .timersay 1 5 .sockwrite -n bot* privmsg #rekick ~waroff
  .timerstat 1 6 .sockwrite -n bot* privmsg #rekick ~stats
  .timerping 1 7 .sockwrite -n bot* privmsg #rekick ~lagme
  ;.timersay2 1 9 .sockwrite -n bot* privmsg #rekick ~waroff DAH FREE NI!
  ;.timersay3 1 10 .sockwrite -n bot* privmsg #rekick KICK! Tetapi JGN KUAT-KUAT
}
menu menubar,channel,status {
  ONSOCK : echo on | .enable #mafia | .bot
  -
  QFFSOCK : disable #mafia | sockwrite -n * quit | .echo -a quit
  -
  WAR-OFF:sockwrite -tn * PRIVMSG #rekick ~waroff | sockwrite -tn * PRIVMSG #rekick ~lagme | rlevel gile  | rlevel 15 $nick  | .unset %c %n | %chan %nick %bil
  -
  KICK :.timer -m 50 -0 .sockwrite -n * kick # $$1 $2- kick
  -
  SOCK NAME : .set %botnick $$?="botnick" | notify -r $notify(1) | timernotify 1 1 notify %botnick
  -
  SERVER SOCK: .set %serverjoin $$?="serverjoin"
  -
}
On 1:kick:#: {
  if ($knick == %botnick) {
    sockwrite -n bot* join #rekick
    sockwrite -n * privmsg ReopServ op #rekick 123456
    set %c $chan
    set %n $nick
    sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 1
  }
  .return
}
on 1:join:#: if (%n ison %c) || (%n isincs %n) { sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 2 } .return
alias Birc_mine_nu { if (!$window(@ReKick-Bots )) { window -ae-550 @ReKick-Bots  } }
raw *:*: { halt }
on ^*:join:#: { halt }
on ^*:op:#: { halt }
on ^*:rawmode:#: { halt }
on ^*:kick:#: { halt }