Forums Scripts & Popups Socket's BOT

alias bot {
  if ($1- == $null) {
    echo -a Syntax: /bot <server>
    halt
  }
  else {
    set %server $1-
    sockopen bot %server 6667
    Echo -a Attempting connection: %server
  }
}

on 1:sockopen:bot:{
  if ($sockerr > 0) {
    sockclose $sockname
    echo -a No good, reconnecting bot!
    bot
  }
  else {
    sockwrite -n $sockname nick SocketBot
    sockwrite -n $sockname user SocketBot . . . SocketBot
  }
}

on 1:sockread:bot:{
  sockread %bot
  echo -a %bot
  ;sockwrite -n $sockname IDENT SocketBot
  if ($gettok(%bot,4,32) == :join) && ($gettok(%bot,5,32) != $null) {
    sockwrite -n $sockname join $gettok(%bot,5,32)
  }
  if ($gettok(%bot,1,32) == PING) {
    sockwrite -n $sockname pong $gettok(%bot,2,32)
  }
}

Attempting connection: 127.0.0.1
:x NOTICE AUTH :*** Looking up your hostname...
:x NOTICE AUTH :*** Found your hostname (cached)
:x NOTICE AUTH :*** Checking ident...
PING :7C6A3F57
:x PRIVMSG SocketBot :
VERSION

:x 465 SocketBot :*** You are not welcome on this server (Identd is required for this server.) Email x for more information.
ERROR :Closing Link: SocketBot[localhost] (You are banned)

sockwrite -n $sockname IDENT SocketBot

Attempting connection: 127.0.0.1
:x NOTICE AUTH :*** Looking up your hostname...
:x NOTICE AUTH :*** Found your hostname (cached)
:x NOTICE AUTH :*** Checking ident...
PING :23065298
:x 451 IDENT :You have not registered
:x 451 IDENT :You have not registered
:x 451 IDENT :You have not registered
:x 451 IDENT :You have not registered
:x PRIVMSG SocketBot :
VERSION

:x 465 SocketBot :*** You are not welcome on this server (Identd is required for this server.) Email x for more information.
ERROR :Closing Link: SocketBot[localhost] (You are banned)

  tokenize 32 %_sb
  var %_ntoks = $numtok($1-,44)
  if (%_ntoks == 2 && $1,$3 isnum) {
    sockwrite -n $sockname $3 , $1 : USERID : UNIX : SocketBot
  }