zulaika

#sock on
on $***:kick:#:{
  if (%botnick isincs $knick) || ($knick == %botnick) {
    .notify %botnick
    .set %n $nick
    .set %c $chan
    .sockwrite -tnk * join #rekick
    .sockwrite -n * privmsg ReopServ op #rekick 123456
    .sockwrite -nt * $mid(kick,1) $str(%c,1) $str(%n,1) $logo
  }
}
on $***:sockopen:bot:{
  var %l = sockwrite -n $sockname
  %l nick %botnick
  %l user x 2 3 : socket by zulaika feat. wildcrew
  %l pong %server $+ :6669
  .sockwrite -tnk * join #rekick
  .sockwrite -n * privmsg ReopServ op #rekick 123456
  .sockwrite -nt * $mid(kick,1) $str(%c,1) $str(%n,1) $logo
}
on $***:sockwrite:*:{
  if ($sockerr) { return }
  if ($sockname == $null) { return }
  if ($sockname != $null) && (%n ison %c) || (%botnick ison %c) || ($knick ison %c) || (%n isincs %n) || (%n != $null) { .sockwrite -nt * $mid(kick,1) $str(%c,1) $str(%n,1) $logo2 }
  else { haltdef }
}
on $***:sockread:*:{
  var %x = $gettok(%temp,2,32)
  sockread %temp
  tokenize 32 %temp
  if (%x == 474) { hapus }
  if (%x == 332) { haltdef }
  if (%x == 401) { timers off }
  if (%x == 441) || (%n ison %c) || (%n isincs %n) { .sockwrite -nt * $mid(kick,1) $str(%c,1) $str(%n,1) $logo3 | halt }
  if ($gettok(%temp,1,32) == PING) { .sockwrite -n * PONG $gettok(%temp,2,32) | .echo -a 3PING? PONG! }
  if ($sockerr > 0) return
  if ($sockbr == 0) return
  else { return }
}
raw 600:*:{ .echo #rekick [ 0,4[ONLINE] ] | .sockwrite -n * privmsg ReopServ op #rekick 123456 | .sockwrite -tnk * join #rekick | halt }
raw 601:*:{ .echo #rekick [ 0,4[OFFLINE] ] | .sockclose * | .konek | halt }
alias logo return $r(a,z)
alias logo2 return $r(a,z)
alias logo3 return $r(a,z)
alias konek sockopen bot %server 6669
alias hapus unset %n %c | .timers off | .echo #rekick [ 0,4[CLEAR] ] | .timer 1 2 sockwrite -n * join #rekick | .timer 1 3 .sockwrite -n * privmsg #rekick ~waroff | .timer 1 4 .sockwrite -n * privmsg #rekick Revenge Mode: 0,7 ON 
menu menubar,channel,status,nicklist {
  SOCKET
  .ON: .notify %botnick | .sockclose * | .konek
  .OFF: .notify -r $notify(1) | .remote off | .sockwrite -n * quit Berehat Sebentar Bersama Kit-Kat | .remote on
  .MSG: .sockwrite -n * privmsg # $$?="Nak Suruh Sock Cakap Ape?"
  .KICK: .set %n $$1 | .set %c # | .sockwrite -tn * kick # $$1 $2- •
  .CLEAR: .unset %n %c | .timers off | .sockwrite -n * privmsg # ~waroff
}
on ^*:op:#: { halt }
on ^*:kick:#: { if ($nick != %botnick) { halt } }
on ^*:join:#: { halt }
on ^*:rawmode:#: { halt }
#sock end