you are hereby  allowed to edit this in anyway or even claim that it is your code
 
this is a simple easily coded multi-sockbot for koach.com used also for educational purposes & just to have.
 
load  
then in the channel window just type
/SJ #channel BotName
 
so if i wanted to i could join a bot named Sally
 
/sj #somewhereX Sally
 
 
i could add a total of 9 bots.
Code:

;; Room Socket Bots ;; 
alias Botz_Conf { 
  if ($1 == Server) { return irc.koach.com }
  if ($1 == Port) { return 6667 }
}
alias SJ { 
  var %x.Sock_Channel $1
  var %x.Sock_NickName $2
  if ($sock(BoTz.*,0) >= 9) { 
    sockclose $sock(Botz.*,1)
  }
  var %x.Sock_Socket $+(BoTz.,$r(1000,9999),$r(a,z))
  sockopen %x.Sock_Socket $Botz_Conf(Server) $Botz_Conf(Port)
  sockmark %x.Sock_Socket %x.Sock_NickName %x.Sock_Channel
}
on *:sockopen:BoTz.?????:{
  var %x.Sock_Socket $sockname
  var %x.Sock_Channel $gettok($sock(%x.Sock_Socket).mark,2,32)
  var %x.Sock_Nickname $gettok($sock(%x.Sock_Socket).mark,1,32)
  sockwrite -n %x.Sock_Socket $+(NICK %x.Sock_Nickname,$lf,USER %x.Sock_Nickname "" "" :BoTzV1) 
}
on *:sockclose:BoTz.?????:{ 
}
on *:sockread:BoTz.?????:{ 
  var %x.Sock_Socket $sockname
  var %x.Sock_Channel $gettok($sock(%x.Sock_Socket).mark,2,32)
  var %x.Sock_Nickname $gettok($sock(%x.Sock_Socket).mark,1,32)
  var %x | sockread %x | tokenize 32 %x
  if ($1 == PING) {  sockwrite -n %x.Sock_Socket PONG $2 }
  if ($2 == 376) { 
    sockwrite -n %x.Sock_Socket JOIN %x.Sock_Channel 
  } 
}
 

Thanks for posting that Arrow