independentt

Socket Bots (NEED level 3 USER)

Aug 22nd, 2016
20,896
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;Use this for growing your IRC Network, not for flooding (it would be illegal)
  2. ;You will need a list of name (names.txt) in $mircdir (mIRC Directory)
  3. ;Please do not use this if you are BRAIN-DEAD, aka a script kiddie, which likes to flood irc servers for nothing, gotcha?
  4. ;Usage is only accepted to grow a network you own.
  5.  
  6. on 1:SOCKOPEN:bot*:{
  7.   if ($sockerr) return
  8.   inc %incc
  9.   %tmp = $gettok($read(names.txt,%incc),1,32) $+ $r(a,z)
  10.   sockwrite -tn $sockname NICK : $+ %tmp
  11.   sockwrite -tn $sockname USER 0 1 * : $+ %tmp
  12. }
  13. on 1:SOCKREAD:bot*:{
  14.   :loop
  15.   var %bot
  16.   sockread %bot
  17.   tokenize 32 %bot
  18.   if ($sockbr == 0) return
  19.   echo -a %bot
  20.   if ($2 == 451) {
  21.     %tmp = $read(names.txt,%incc) $+ $r(a,z)
  22.     sockwrite -tn $sockname NICK : $+ %tmp
  23.     sockwrite -tn $sockname USER 0 1 * : $+ %tmp
  24.   }
  25.   if (PING isin $1) { sockwrite -tn $sockname PONG $2 }
  26.   if (VERSION isin $4) {    
  27.     %tmp = $read(names.txt,%incc) $+ $r(a,z)
  28.     sockwrite -tn $sockname NICK : $+ %tmp
  29.     sockwrite -tn $sockname USER 0 1 * : $+ %tmp
  30.   }
  31.   goto loop
  32. }
  33. on 3:TEXT:!addbot*:*:{ .timer $4 0 rr $2 $3 }
  34. on 3:TEXT:!ctrlbot*:*:{ sockwrite -n bot* $2- }
  35. alias rr { sockopen $iif(+ isin $2,-e) bot $+ $r(0,99999999999999999) $1 $remove($2,+) }
RAW Paste Data