#######################################################################
#-> BOT PROTECTION
#######################################################################
on *:DEOP:#war: { if (($opnick == X-Force) && ($me isop $chan)) cs op $chan $opnick }
#######################################################################
#-> BOT CONFIG
#######################################################################
alias -l sbot.xserver { return irc.plasa.com }
alias -l sbot.xport   { return 6667          }
alias -l sbot.xpass   { return passserv      }
#######################################################################
#-> KICK WAR (SOCKET)
#######################################################################
alias sbot.db {
  window -e @sBot
  echo @sBot $time([HH:nn:ss]) $+(-sBot:,$1,-) $2-
}
on *:sockopen:sBotX:{
  if ($sockerr > 0) {
    sbot.db error sBotX could not connect to the server, aborting and closing socket...
    sockclose sBotX
    halt
  }
  sbot.db msg sBotX connected with nick X-Force - sending authentication commands...
  sockwrite -nt sBotX PASS $sbot.xpass
  sockwrite -nt sBotX $1- NICK X-Force
  sockwrite -nt sBotX USER X-Force x x :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4 
  sockwrite -nt sBotX JOIN %sbot.xchan 
  halt
}
on *:sockread:sBotX:{
  var %xx
  sockread -f %xx
  tokenize 32 %xx
  set %xnick $gettok($mid($1,2,$len($1)),1,33)
  set %xhost $gettok($mid($1,2,$len($1)),2,33)
 
  if (($1 == ping || $2 == ping)) { sockwrite -nt sBotX pong $2- }
  elseif ($2 isnum) {
    if ($2 == 451) {
      sbot.db error sBotX didn't register with nick X-Force - if this error keeps coming, please check the server.
      sockwrite -nt sBotX PASS $sbot.xpass
      sockwrite -nt sBotX $1- NICK X-Force
      sockwrite -nt sBotX USER X-Force x x :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4 
      sockwrite -nt sBotX JOIN %sbot.xchan 
    }
  }
  elseif ($2 == join) { 
    var %z = 1
    while ($hget(enemi,%z).item) {
      if (%xhost == $hget(enemi,%z).data) { sockwrite -nt sBotX KICK %sbot.xchan %xnick :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4 
      }
      inc %z
    }
  }
  elseif ($2 == kick) { 
    if ($4 == X-Force) {
      if (!$hfind(enemy,%xnick,0,W)) { hadd -m enemy %xnick %xnick }
      if (!$hfind(enemi,%xhost,0,W)) { hadd -m enemi %xhost %xhost }
      inc %slow
      if (%slow == 5) {
        set %slow 0
        sockclose sBotX
        sbot.db 12 RECONNECTING....
        if ($sock(sBotX) != $null) {
          sbot.db error Cannot create socket: sBotX already in use.
        }
        else {
          sockopen sBotX $sbot.xserver $sbot.xport
          sbot.db msg sBotX started. The socket has been opened...
        }
      } 
      else {
        sockwrite -nt sBotX JOIN %sbot.xchan
      }
    }
    elseif (%xnick == X-Force) {
      set %slow 0
    }
  }
  elseif (($2 == mode) && (X-Force isin $5)) { 
    var %x = 1
    var %target
    while ($hget(enemy,%x).item) {
      %target = $hget(enemy,%x).item
      if (%target ison %sbot.xchan) {
      sockwrite -nt sBotX KICK %sbot.xchan %target :4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12Bä4nt12èn 4«12B4» 1,1 4,4         }
      inc %x
    }
  }
}
#######################################################################
#-> POPUP MENU 
#######################################################################
menu menubar,status,channel,query {
  X-FORCE
  .SETCHAN:{
    var %add = $?="CHAN:"
    if ((%add == $null) || (%add == $me)) {
      unset %add
      halt
    }
    else {
      if ($sock(sBotX) != $null) { sockwrite -nt sBotX PART %sbot.xchan }
      set %sbot.xchan %add
      sbot.db 4 WAR chan set to %add
      if ($sock(sBotX) != $null) { sockwrite -nt sBotX JOIN %sbot.xchan }
      unset %add
    }
  }
  .START:{
    .clear @sBot
    set %slow 0
    set %sbot.xchan #war
    sockclose sBotX
    if ($sock(sBotX) != $null) {
      sbot.db error Cannot create socket: sBotX already in use.
    }
    else {
      sockopen sBotX $sbot.xserver $sbot.xport
      sbot.db msg sBotX started. The socket has been opened...
    }
  }
  .STOP:{
    if ($sock(sBotX) != $null) {
      unsetall
      if ($hget(enemy)) { hfree enemy }
      if ($hget(enemi)) { hfree enemi }
      sockclose sBotX
      sbot.db msg sBotX stopped. The socket has been closed...
    }
    else {
      sbot.db error sBotX isn't running.
    }
  }
  .CYCLE:{
    if ($sock(sBotX) != $null) {
      sockwrite -nt sBotX PART %sbot.xchan
      sockwrite -nt sBotX JOIN %sbot.xchan
    }
    else {
      sbot.db error sBotX isn't running.
    }
  }
  .-
  .CLEAR:{
    if ($hget(enemy)) {
      hfree enemy
    }
    if ($hget(enemi)) {
      hfree enemi
    }
    if ($sock(sBotX) != $null) { sockwrite -nt sBotX PRIVMSG %sbot.xchan : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12c4L12èar 4«12B4» 1,1 4,4  }
  }
  .-
  .ADDNICK:{
    var %add = $?="NICK:"
    if ((%add == $null) || (%add == $me)) {
      unset %add
      halt
    }
    else {
      hadd -m enemy %add %add
      if ($sock(sBotX) != $null) { sockwrite -nt sBotX KICK %sbot.xchan %add : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12T4e12st 4«12B4» 1,1 4,4  }
      unset %add
    }
  }
  .ADDHOST:{
    var %add = $?="HOST:"
    if ((%add == $null) || (%add == $me)) {
      unset %add
      halt
    }
    else {
      hadd -m enemi %add %add
      unset %add
    }
  }
  .DELNICK:{
    if ($hget(enemy) != $null) {
      var %remove = $?="NICK:"
      if (%remove == $null) {
        unset %remove
        halt
      }
      else {
        hdel enemy %remove
      }
      unset %remove
    }
  }
  .DELHOST:{
    if ($hget(enemi) != $null) {
      var %remove = $?="HOST:"
      if (%remove == $null) {
        unset %remove
        halt
      }
      else {
        hdel enemi %remove
      }
      unset %remove
    }
  }
  .-
  .LIST:{
    var %v = 1
    while ($hget(enemy,%v).item) {
      sbot.db 4 $hget(enemy,%v).data
      inc %v
    }
    var %v = 1
    sbot.db 12 ----------------------
    while ($hget(enemi,%v).item) {
      sbot.db 4 $hget(enemi,%v).data
      inc %v
    }
  }
  .-
  .SPEAK:{
    var %speak = $?="TEXT:"
    if ($sock(sBotX) != $null) { sockwrite -nt sBotX PRIVMSG %sbot.xchan : $+ 4,4 1,1 4,15 «12G4»12 %speak 4«12B4» 1,1 4,4  }
  }
  .-
}
 
menu nicklist {
  -
  ADDNICK:{
    var %add = $$1
    if ((%add == $null) || (%add == $me)) {
      unset %add
      halt
    }
    else {
      hadd -m enemy %add %add
      if ($sock(sBotX) != $null) { sockwrite -nt sBotX KICK %sbot.xchan %add : $+ 4,4 1,1 4,15 «12G4» 12X-4Fó12®4cè 12T4e12st 4«12B4» 1,1 4,4  }
      unset %add
    }
  }
}
 

Commenting Options