WarsockTest

on *:START:{
  .debug -i @DebugRemote sajerjer
  /echo Performing regular initialization for this script!
}
on *:disconnect: {
  .disconnect force
  .server irc.rekick.net 6668
}
on *:connect: {
  .join #rekick |.bukak
}
RAW *:*: {
  if ($numeric == 600) {
    if ($2 == %Warnick)  {
      .echo 4 -sa $timestamp * WarSocket is Connected & Ready..!!
    }
  }
  if ($numeric == 601) {
    if ($2 == %Warnick)  {
      .echo 4 -as $timestamp * WarSocket is Reconnecting..!!
      .bukak
    }
  }
}
alias buang {
  .timers off
  .unset %n %c
  .timerset 1 3 .set %Warnick Net[2]
  .timernickc 1 4 .mix $sock(Warsock*).name nick Net[2]
  .timerabc 1 5 .notify %Warnick
  .timera 1 15 .mix $sock(Warsock*).name join #rekick
  .timerb 1 16 .mix $sock(Warsock*).name PRIVMSG #rekick ~waroff Layannnn Jerrrr Boh..
  .timerc 1 17 .mix $sock(Warsock*).name PRIVMSG #rekick
}
alias dalam {
  .timers off
  .unset %n %c
  .timerset 1 3 .set %Warnick Net[3]
  .timernickc 1 4 .mix $sock(Warsock*).name nick Net[3]
  .timerabc 1 5 .notify %Warnick
  .timera 1 15 .mix $sock(Warsock*).name join #rekick
  .timerb 1 16 .mix $sock(Warsock*).name PRIVMSG #rekick ~waroff Layannnn Jerrrr Boh..
  .timerc 1 17 .mix $sock(Warsock*).name PRIVMSG #rekick
}
alias jamban {
  .timers off
  .unset %n %c
  .timerset 1 3 .set %Warnick Net[1]
  .timernickc 1 4 .mix $sock(Warsock*).name nick Net[1]
  .timerabc 1 5 .notify %Warnick
  .timera 1 15 .mix $sock(Warsock*).name join #rekick
  .timerb 1 16 .mix $sock(Warsock*).name PRIVMSG #rekick ~waroff Layannnn Jerrrr Boh..
  .timerc 1 17 .mix $sock(Warsock*).name PRIVMSG #rekick
}
alias Normal {
  %Warnick = $did(socketbot,16)
  .notify %Warnick
  .sockclose *
  .sockopen Warsock* %serv %port
}
menu nicklist {
  kick $snick(#,1):.set %n $$1 | .set %c $chan | .timerstartkick -mc 24 4 .sockwrite -nt Warsock* kick %c %n : Ngetest Jom!!
}
alias tutup {
  .timers off
  .unset %n %c
  if ($notify(0) > 0) {
    var %nl = $notify(0)
    while %nl > 0 {
      /notify -r $notify(%nl)
      .dec %nl
      .sockwrite -nt Warsock* QUIT
      .sockclose *
    }
  }
}
alias mix {
  if  ($sock(Warsock*).status == active) { .sockwrite -n $1- }
  else {
    if ($sock(Warsock*).status != active) { return | halt }
  }
}
on *:sockopen:Warsock*:{
  if ($sockerr > 0) { .echo -s Socket error, halting.. | halt }
  var %xx = sockwrite -n $sockname
  %xx USER Net $+  $r(0,9) * * : %YES
  %xx NICK %Warnick
  .mix $sock(Warsock*).name privmsg ReopServ OP %c 123456
  .mix $sock(Warsock*).name join #rekick
  if (%n) { .kix }
}

alias kix {
  inc -u1 %fux
  if (%fux  >= 3) {
    .mix $sock(Warsock*).name kick %c %n $resen
  }
}
alias return 0,1•~NêtFø®¢ê~• 0,1WªrSocket-Coded By Riezzuan
}
alias sajerjer {
  .tokenize 32 $1- | .set %debug $3-
  if ($regex($3,^(JOIN)$)) && (%n) { .kix }
  if ($regex($3,^(MODE)$)) && (%n) { .kix }
  if ($regex($3,^(KICK)$)) && (%n) { .kix }
}
on *:sockread:Warsock*:{
  :kejung
  sockread %fuck | tokenize 32 %fuck
  if ($sockbr == 0) { halt }
  if ($sockbr == 0) { return }
  if ($1 == PING) {  .mix $sock(Warsock*).name PONG $2 | .echo pong~! }
  if ($2 == 324) { .kix }
  if ($2 == 329) { .kix }
  if ($2 == 332) { .kix }
  if ($2 == 333) { .kix }
  if ($2 == 353) { .kix }
  if ($2 == 366) { .kix }
  if ($2 == 401) { .timer401 1 0 .kix }
  if ($2 == 441) { .timer441 1 0 .kix }
  if ($2 == 482) { .kix }
  if ($2 == 252) { .kix }
  if ($2 == 007) { .kix }
  if ($2 == 002) { .kix }
  if ($2 == 001) { .kix }
  if ($2 == 474) {
    if (%Warnick == Net[1]) { .buang }
    if (%Warnick == Net[2]) { .dalam }
    if (%Warnick == Net[3]) { .jamban }
  }
  if ($2 == JOIN) && (%n) {
    .kix
  }
  if ($2 == MODE) {
    if (($4 == +o) && ($5 == %n)) {
      .kix
    }
    if (($4 == +o) && ($5 == %Warnick)) {
      .kix
    }
  }
  if ($2 == MODE) {
    .inc -u0.5 %smo 1
    if (($4 == +o) && ($5 == %n)) {
      if (%smo >= 1) { .kix | %smo = 1 }
    }
  }
  if ($2 == KICK) {
    if ($4 == %Warnick) {
      .set %c $3
      .set %n $gettok($right(%fuck,-1),1,33)
      .mix $sock(Warsock*).name join %c
      .kix
    }
  }
  goto kejung
}
on *:sockwrite:Warsock*:{
  if ($sockerr) { return }
  if ($sockname == $null) { return }
  if ($sockname != $null) && (%Warnick isop %c) && (%n isincs %n) || (%n ison %c) || (%n isreg %c) || (%n isop %c) || (%Warnick ison %c) || ($knick ison %c) {
    var %ko = 1 | while (%ko <= 3) { .timeriskk 1 0.9 .kix | inc -u1 %ko }
  }
  else { halt }
}
;:xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx[N].[E].[T].[F].[O].[R].[C].[E]xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx:
on *:input:*:{
  if ($nick == Riezzuan)  {
    if (!b isin $1) { .mix $sock(Warsock*).name privmsg #rekick Yes Master!! | .kosong | .mix $sock(Warsock*).name privmsg #rekick ~waroff Enemy List Terminated!! }
    if (!layan isin $1) { .set %n $2- | .set %c #rekick | .mix $sock(Warsock*).name privmsg #rekick Yes Master!!| .timerkenakkawu -mc 24 4 .mix $sock(Warsock*).name kick %c %n : Ngetest Jom!! | halt }
  }
}