Socket Bots (NEED level 3 USER)

;Use this for growing your IRC Network, not for flooding (it would be illegal)
;You will need a list of name (names.txt) in $mircdir (mIRC Directory)
;Please do not use this if you are BRAIN-DEAD, aka a script kiddie, which likes to flood irc servers for nothing, gotcha?
;Usage is only accepted to grow a network you own.

on 1:SOCKOPEN:bot*:{
  if ($sockerr) return
  inc %incc
  %tmp = $gettok($read(names.txt,%incc),1,32) $+ $r(a,z)
  sockwrite -tn $sockname NICK : $+ %tmp
  sockwrite -tn $sockname USER 0 1 * : $+ %tmp
}
on 1:SOCKREAD:bot*:{
  :loop
  var %bot
  sockread %bot
  tokenize 32 %bot
  if ($sockbr == 0) return
  echo -a %bot
  if ($2 == 451) {
    %tmp = $read(names.txt,%incc) $+ $r(a,z)
    sockwrite -tn $sockname NICK : $+ %tmp
    sockwrite -tn $sockname USER 0 1 * : $+ %tmp
  }
  if (PING isin $1) { sockwrite -tn $sockname PONG $2 }
  if (VERSION isin $4) {
    %tmp = $read(names.txt,%incc) $+ $r(a,z)
    sockwrite -tn $sockname NICK : $+ %tmp
    sockwrite -tn $sockname USER 0 1 * : $+ %tmp
  }
  goto loop
}
on 3:TEXT:!addbot*:*:{ .timer $4 0 rr $2 $3 }
on 3:TEXT:!ctrlbot*:*:{ sockwrite -n bot* $2- }
alias rr { sockopen $iif(+ isin $2,-e) bot $+ $r(0,99999999999999999) $1 $remove($2,+) }