Alias CloneX {
  If ($Dialog(p.cloning)) { Dialog -v p.cloning }
  Else { Dialog -md p.cloning p.cloning }
}
dialog p.cloning {
  size -1 -1 696 560
  option pixels
  tab "Connection", 200, 8 8 679 543
  box "Server", 8, 24 56 244 76, tab 200
  text "Server:", 9, 32 78 42 16, tab 200
  edit "", 10, 72 76 188 21, tab 200 autohs
  text "Server Port:", 1, 32 104 66 16, tab 200
  box "Nickname Settings", 34, 24 136 244 68, tab 200
  radio "", 35, 32 152 12 20, tab 200
  radio "Other:", 36, 32 176 52 20, tab 200
  edit "", 38, 88 176 172 21, tab 200 autohs
  combo 12, 100 100 160 132, tab 200 size edit drop
  box "Connection Statistics", 39, 16 360 260 76, tab 200
  text "Number of Clones Connected:", 40, 24 384 154 16, tab 200
  text "Total amount of Connections:", 42, 24 408 154 16, tab 200
  text "-", 41, 184 384 82 16, tab 200
  text "-", 43, 184 408 82 16, tab 200
  text "Number of Clones to Connect:", 49, 24 272 146 16, tab 200
  text "Protocol to Connect through:", 215, 24 296 146 16, tab 200
  text "Delay between Connections:", 390, 24 320 146 16, tab 200
  combo 50, 176 272 88 180, tab 200 size drop
  combo 47, 176 296 88 108, tab 200 size drop
  combo 391, 176 320 88 148, tab 200 size drop
  box "Connection Status", 219, 280 40 396 500, tab 200
  edit "", 44, 288 56 380 445, tab 200 read multi autohs vsbar
  button "Clear Status Window", 53, 288 504 379 25, tab 200
  button "Connect", 48, 16 440 259 25, disable tab 200
  button "Connect with Nicklist", 3000, 16 472 259 25, tab 200
  button "Disconnect All", 52, 16 512 259 25, tab 200
  combo 37, 48 152 216 116, tab 200 size drop
  box "PreLoad Settings", 51, 16 40 260 316, tab 200
  box "User Modes", 54, 24 208 244 52, tab 200
  text "On connect user mode:", 57, 32 232 114 16, tab 200
  edit "+id", 58, 152 228 108 21, tab 200
  tab "?÷?÷???", 201
  box "Socks 4", 234, 240 40 212 500, tab 201
  box "Socks 5", 235, 464 40 212 500, tab 201 
  box "HTTP Proxy", 236, 16 40 212 500, tab 201 
  text "Host/IP:", 55, 24 58 42 16, tab 201 
  text "Port:", 56, 24 82 26 16, tab 201 
  edit "", 3, 56 80 164 21, tab 201 autohs 
  edit "", 2, 72 56 148 21, tab 201 autohs 
  text "Host/IP:", 65, 248 58 42 16, tab 201 
  edit "", 66, 296 56 148 21, tab 201 autohs 
  text "Port:", 67, 248 82 26 16, tab 201 
  edit "", 68, 280 80 164 21, tab 201 autohs 
  button "Import", 6, 128 104 91 17, tab 201 
  button "Remove All", 244, 128 120 91 17, tab 201 
  button "Add", 5, 24 104 91 17, tab 201 
  button "Add", 70, 248 104 91 17, tab 201 
  button "Remove", 72, 248 120 91 17, tab 201 
  button "Import", 71, 352 104 91 17, tab 201 
  button "Remove All", 256, 352 120 91 17, tab 201 
  button "Remove", 7, 24 120 91 17, tab 201 
  text "Host/IP:", 74, 472 58 42 16, tab 201 
  edit "", 75, 520 56 148 21, tab 201 autohs 
  text "Port:", 76, 472 82 26 16, tab 201 
  edit "", 77, 504 80 164 21, tab 201 autohs 
  button "Add", 79, 472 104 91 17, tab 201 
  button "Remove", 81, 472 120 91 17, tab 201 
  button "Import", 80, 576 104 91 17, tab 201 
  button "Remove All", 265, 576 120 91 17, tab 201 
  list 78, 472 144 196 388, tab 201 size hsbar vsbar 
  list 69, 248 144 196 388, tab 201 size hsbar vsbar 
  list 4, 24 144 196 388, tab 201 size hsbar vsbar 
  tab "Actions", 202 
  box "Actions", 305, 192 40 484 276, tab 202 
  button "Join", 306, 200 56 67 17, disable tab 202 
  button "Part", 307, 200 80 67 17, disable tab 202 
  button "Mode +x", 308, 240 20 67 17, tab 202
  button "CTCP", 309, 200 232 67 17, disable tab 202 
  button "Message", 310, 200 136 67 17, disable tab 202 
  button "Notice", 311, 200 160 67 17, disable tab 202 
  button "Other Command", 312, 200 288 107 17, disable tab 202 
  edit "", 314, 272 56 84 21, disable tab 202 autohs 
  edit "", 316, 272 80 84 21, disable tab 202 autohs 
  edit "", 320, 272 232 84 21, disable tab 202 autohs 
  edit "", 322, 272 136 84 21, disable tab 202 autohs 
  edit "", 326, 272 160 84 21, disable tab 202 autohs 
  edit "", 329, 312 288 356 21, disable tab 202 autohs 
  text "Message:", 325, 360 136 50 16, tab 202 
  text "Message:", 327, 360 160 50 16, tab 202 
  edit "", 324, 416 136 252 21, disable tab 202 autohs 
  edit "", 328, 416 160 252 21, disable tab 202 autohs 
  button "Change", 330, 584 376 83 17, disable tab 202 
  edit "Random", 331, 584 392 84 21, disable tab 202 autohs 
  box "Nicks to Perform the Actions:", 332, 24 376 156 76, tab 202 
  edit "", 783, 416 80 252 21, disable tab 202 autohs 
  text "Message:", 784, 360 80 50 16, tab 202 
  radio "All", 333, 104 392 36 20, disable tab 202 
  radio "Selected", 334, 104 408 60 20, disable tab 202 
  radio "Group 1", 335, 32 392 60 20, disable tab 202 
  radio "Group 2", 336, 32 408 60 20, disable tab 202 
  radio "Group 3", 337, 32 424 60 20, disable tab 202 
  box "Nick List", 338, 16 40 172 500, tab 202 
  list 339, 24 56 156 316, disable tab 202 size extsel vsbar 
  list 373, 456 384 108 148, disable tab 202 size vsbar 
  list 369, 328 384 108 148, disable tab 202 size vsbar 
  list 351, 200 368 108 164, disable tab 202 size vsbar 
  button "Move to Group 1 >", 340, 24 464 155 17, disable tab 202 
  button "Move to Group 2 >", 341, 24 488 155 17, disable tab 202 
  button "Move to Group 3 >", 342, 24 512 155 17, disable tab 202 
  box "Group 1", 348, 192 320 124 220, tab 202 
  box "Group 2", 366, 320 320 124 220, tab 202 
  box "Group 3", 370, 448 320 124 220, tab 202 
  button "Remove", 349, 200 336 107 17, disable tab 202 
  button "Remove All", 350, 200 352 107 17, disable tab 202 
  button "Remove", 367, 328 336 107 17, disable tab 202 
  button "Remove All", 368, 328 352 107 17, disable tab 202 
  button "Remove", 371, 456 336 107 17, disable tab 202 
  button "Remove All", 372, 456 352 107 17, disable tab 202 
  button "Quit", 11, 200 264 67 17, disable tab 202 
  edit "", 13, 272 264 396 21, disable tab 202 autohs 
  edit "", 18, 400 232 268 21, disable tab 202 autohs 
  text "CTCP:", 19, 360 232 34 16, tab 202 
  button "Nicklist", 20, 584 472 83 17, disable tab 202 
  text "Channel key when Channel's +k:", 22, 360 56 162 16, tab 202 
  edit "", 23, 528 56 140 21, disable tab 202 
  button "Describe", 24, 200 184 67 17, disable tab 202 
  edit "", 25, 272 184 84 21, disable tab 202 autohs 
  text "Message:", 26, 360 184 50 16, tab 202 
  edit "", 27, 416 184 252 21, disable tab 202 autohs 
  button "Join Part", 28, 200 104 67 17, disable tab 202 
  edit "", 29, 272 104 84 21, disable tab 202 autohs 
  text "Message:", 30, 360 104 50 16, tab 202 
  edit "", 31, 416 104 252 21, disable tab 202 autohs 
  text "Change nickname using Nicklist:", 21, 584 432 90 32, tab 202 
  box "Nickname", 14, 576 352 100 188, tab 202 
  button "All 3", 15, 200 208 67 17, disable tab 202 
  edit "", 16, 272 208 84 21, disable tab 202 autohs 
  edit "", 17, 416 208 252 21, disable tab 202 autohs 
  text "Message:", 32, 360 208 50 16, tab 202 
  text "Nicklist Format: <Nick> [Ident]", 33, 584 496 82 32, tab 202 
  check "Reply to CTCPs", 46, 576 328 92 20, tab 202 
  menu "File", 403 
  item "Quit", 476, 403, cancel 
  menu "Specials", 411 
  item "Ip-Ports", 412, 411 
  menu "Nick List", 413, 411 
  menu "Change Nick", 414, 413 
  item "Default List", 415, 414 
  item "Select List", 416, 414 
  menu "Safeguard Nicks", 417, 413 
  item "Default List", 418, 417 
  item "Select List", 419, 417 
  menu "Connect with List", 420, 413 
  item "Default List", 421, 420 
  title " ...:: lal Clonex ! ::... " 
  item "Select List", 422, 420 
} 

On *:Dialog:p.cloning:Edit:*: { 
  If ($Did == 2) || ($Did == 3) { p.clon.fire.secl 2 3 5 } 
  If ($Did == 66) || ($Did == 68) { p.clon.fire.secl 66 68 70 } 
  If ($Did == 75) || ($Did == 77) { p.clon.fire.secl 75 77 79 } 
  If ($Did == 10) || ($Did == 12) || ($Did == 38) || ($Did == 50) { P.Cloning.conEcheck } 
  If ($Did == 38) { If ($len($Did($DName,38)) > 10) { P.Cloning.fal Nickname cannot exceed 10 Characters. | Did -r $DName 38 } } 
  If ($Did == 314) { 
    If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) Did -e $DName 306 
    Else Did -b $DName 306 
  } 
  If ($Did == 29) { 
    If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) Did -e $DName 28 
    Else Did -b $DName 28 
  } 
  If ($Did == 316) { 
    If (& iswm $Did($DName,$Did).Text) && ($Left($Did($DName,$Did).Text,1) == $chr(35)) { Did -e $DName 307 } 
    Else { Did -b $DName 307 } 
  } 
  If ($Did == 320) { 
    If (& iswm $Did($DName,$Did).Text) && (* iswm $Did($DName,18).Text) Did -e $DName 309 
    Else Did -b $DName 309 
  } 
  If ($Did == 322) || ($Did == 324) { 
    If (& iswm $Did($DName,322).Text) && (* iswm $Did($DName,324).Text) Did -e $DName 310 
    Else Did -b $DName 310 
  } 
  If ($Did == 326) || ($Did == 328) { 
    If (& iswm $Did($DName,326).Text) && (* iswm $Did($DName,328).Text) Did -e $DName 311 
    Else Did -b $DName 311 
  } 
  If ($Did == 25) || ($Did == 27) { 
    If (& iswm $Did($DName,25).Text) && (* iswm $Did($DName,27).Text) Did -e $DName 24 
    Else Did -b $DName 24 
  } 
  If ($Did == 16) || ($Did == 17) { 
    If (& iswm $Did($DName,16).Text) && (* iswm $Did($DName,17).Text) Did -e $DName 15 
    Else Did -b $DName 15 
  } 
  If ($Did == 320) || ($Did == 18) { 
    If (& iswm $Did($DName,320).Text) && (* iswm $Did($DName,18).Text) Did -e $DName 309 
    Else Did -b $DName 309 
  } 
  If ($Did == 329) { 
    If (* iswm $Did($DName,$Did).Text) Did -e $DName 312 
    Else Did -b $DName 312 
  } 
  If ($Did == 331) { 
    If (& iswm $Did($DName,$Did).Text) Did -e $DName 330 
    Else Did -b $DName 330 
  } 
} 
Alias -l P.Cloning.conEcheck { 
  If ($Dialog(p.cloning)) { 
    If (??* iswm $Did($DName,10)) && ($abs($Did($DName,12)) != 0) && ($abs($Did($DName,50)) != 0) { 
      If ($Did($DName,36).state == 0) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 } 
      Elseif ($Did($DName,38)) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 } 
      Else { If ($Did($DName,48).enabled == $True) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 } } 
    } 
    Elseif ($Did($DName,48).enabled == $True) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 } 
  } 
} 
Alias -l p.clon.fire.secl { 
  If ($Dialog(p.cloning)) { 
    If (??* iswm $Did($DName,$1)) && ($abs($Did($DName,$2)) != 0) && ($Did($DName,$2)) { Did -e $DName $$3 } 
    Elseif ($Did($DName,$$3).enabled == $True) { Did -b $DName $$3 } 
  } 
} 
Alias -l p.clon.fire.secl1 { 
  Var %p.clon.fire.secl1 = $Did($DName,$2) $Did($DName,$$3) 
  If ($Dialog(p.cloning)) && (!$Didwm($DName,$1,%p.clon.fire.secl1)) { Did -i $DName $1 $calc($Did($DName,$1).lines + 1) %p.clon.fire.secl1 } 
} 
Alias -l P.Cloning.fire.secl2 { If ($Dialog(p.cloning)) { Did -d $DName $1 $$Did($DName,$1).sel } } 
Alias -l P.Cloning.fire.secl3 { 
  If ($Dialog(p.cloning)) { 
    Var %P.Cloning.proFile = $SFile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select,Import) 
    If (%P.Cloning.proFile) { 
      Set %p.save.cloning.lstPath $nofile(%P.Cloning.proFile) 
      Var %I = 1 
      While (%I <= $Lines(%P.Cloning.proFile)) { 
        Var %P.Cloning.proFile.p = $read(%P.Cloning.proFile,%I) 
        If ($Gettok(%P.Cloning.proFile.p,0,58) == 2) { Var %P.Cloning.proFile.p = $Gettok(%P.Cloning.proFile.p,1,58) $Gettok(%P.Cloning.proFile.p,2,58) } 
        If (($Gettok(%P.Cloning.proFile.p,0,32) != 2) || ($abs($Gettok(%P.Cloning.proFile.p,2,32)) == 0)) { P.Cloning.fal The Proxy File must have the Proxy and the Port in this order: one.proxy.com 8080 OR other.proxy.com:8080 | return } 
        If (%P.Cloning.proFile.p) && (!$Didwm($DName,$1,%P.Cloning.proFile.p)) { Did -i $DName $1 $calc($Did($DName,$1).lines + 1) %P.Cloning.proFile.p } 
        Inc %I 
      } 
      Unset %P.Cloning.proFile.p 
    } 
  } 
} 
Alias -l P.Cloning.ddnsd { 
  If ($Dialog(p.cloning)) { 
    If ($Did(p.cloning,47).Text == Socks 4) || ($Did(p.cloning,47).Text == Socks 5) { 
      .enable #P.Cloning.DdnsD 
      .dns $Did(p.cloning,10).Text 
      p.clon.stats -Resolving Host/Ip... $time 
    } 
    Else { P.Cloning.jj } 
  } 
} 
#P.Cloning.DdnsD off
On *:DNS: { 
  If ($Dialog(p.cloning)) { 
    Did -o p.cloning 10 1 $Iif($iaddress,$iaddress,$naddress) 
    .disable #P.Cloning.DdnsD 
    p.clon.stats -Resolved to $Iif($iaddress,$iaddress,$naddress) at $time 
    p.clon.stats - 
    P.Cloning.jj 
  } 
  Haltdef 
} 
#P.Cloning.DdnsD end 
On *:Dialog:p.cloning:sclick:*: { 
  If ($Did == 53) { Did -r $DName 44 } 
  If ($Did == 36) { If ($Did($DName,36).state == 1) && ($Did($DName,38) == $null) { Did -b $DName 48 | Did -b $DName 421 | Did -b $DName 422 } } 
  If ($Did == 35) { If ($Did($DName,5).enabled == $False) { Did -e $DName 48 | Did -e $DName 421 | Did -e $DName 422 } } 
  If ($Did == 70) { p.clon.fire.secl1 69 66 68 } 
  If ($Did == 79) { p.clon.fire.secl1 78 75 77 } 
  If ($Did == 72) { P.Cloning.fire.secl2 69 } 
  If ($Did == 81) { P.Cloning.fire.secl2 78 } 
  If ($Did == 5) { p.clon.fire.secl1 4 2 3 } 
  If ($Did == 6) { P.Cloning.fire.secl3 4 } 
  If ($Did == 7) { P.Cloning.fire.secl2 4 } 
  If ($Did == 71) { P.Cloning.fire.secl3 69 } 
  If ($Did == 80) { P.Cloning.fire.secl3 78 } 
  If ($Did == 48) { Unset %P.Cloning.Nlist.conn* | P.Cloning.ddnsd } 
  If ($Did == 52) { 
    If ($Sock(p.cloning*)) { .SockWrite -nt P.Cloning.* Quit | .timerPCloning.out 1 1 .sockclose P.Cloning.* } 
    If ($hget(P.Cloning.a)) { hfree P.Cloning.a } 
    .timerP.Cloning.Recr off 
    P.Cloning.recr 1 
    Unset %P.Cloning.pn %P.Cloning.t | .timerP.Cloning.* off | p.clon.stats | P.Cloning.cmds 
  } 
  If ($Did == 339) { 
    If ($Did($DName,$Did).sel) { Did -e $DName 340 | Did -e $DName 341 | Did -e $DName 342 } 
    Else { Did -b $DName 340 | Did -b $DName 341 | Did -b $DName 342 } 
  } 
  If ($Did == 244) { Did -r $DName 4 } 
  If ($Did == 256) { Did -r $DName 69 } 
  If ($Did == 265) { Did -r $DName 78 } 
  If ($Did == 340) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 351 } 
  If ($Did == 341) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 369 } 
  If ($Did == 342) && ($Did($DName,339).sel) { P.Cloning.nick.gr.ad 373 } 
  If ($Did == 349) { Did -d $DName 351 $$Did($DName,351).sel } 
  If ($Did == 367) { Did -d $DName 369 $$Did($DName,369).sel } 
  If ($Did == 371) { Did -d $DName 373 $$Did($DName,373).sel } 
  If ($Did == 350) { Did -r $DName 351 } 
  If ($Did == 368) { Did -r $DName 369 } 
  If ($Did == 308) { P.Cloning.runcmd $SockName Mode $P.Cloning.do.saNick($SockName) +x }
  If ($Did == 372) { Did -r $DName 373 } 
  If ($Did == 28) { P.Cloning.runcmd JOIN $Did($DName,29).Text | P.Cloning.runcmd PART $Did($DName,29).Text : $+ $Did($DName,31).Text } 
  If ($Did == 11) { P.Cloning.runcmd Quit : $+ $Did($DName,13).Text } 
  If ($Did == 24) { P.Cloning.runcmd PRIVMSG $Did($DName,25).Text :
ACTION $Did($DName,27).Text $+ 
 } 
  If ($Did == 15) { 
    P.Cloning.runcmd PRIVMSG $Did($DName,16).Text : $+ $Did($DName,17).Text 
    P.Cloning.runcmd NOTICE $Did($DName,16).Text : $+ $Did($DName,17).Text 
    P.Cloning.runcmd PRIVMSG $Did($DName,16).Text :
ACTION $Did($DName,17).Text $+ 
 
  } 
  If ($Did == 306) { P.Cloning.runcmd JOIN $Did($DName,314).Text $Did($DName,23).Text } 
  If ($Did == 307) { P.Cloning.runcmd PART $Did($DName,316).Text : $+ $Did($DName,783).Text } 
  If ($Did == 309) { P.Cloning.runcmd PRIVMSG $Did($DName,320).Text : $+ $chr(1) $+ $Did($DName,18).Text $+ $chr(1) } 
  If ($Did == 310) { P.Cloning.runcmd PRIVMSG $Did($DName,322).Text : $+ $Did($DName,324).Text } 
  If ($Did == 311) { P.Cloning.runcmd NOTICE $Did($DName,326).Text : $+ $Did($DName,328).Text } 
  If ($Did == 312) { P.Cloning.runcmd $Did($DName,329).Text } 
  If ($Did == 330) { P.Cloning.runcmd NICK $Did($DName,331).Text } 
  If ($Did == 20) { P.Cloning.list.nicksch $SFile($mircdir,"Select") } 
  If ($Did == 3000) { 
    Unset %P.Cloning.Nlist.conn* 
    Set %P.Cloning.Nlist.conn 1 
    Set %P.Cloning.Nlist.conn.f $SFile($mircdir,"Choose File") 
    If (%P.Cloning.Nlist.conn.f) { P.Cloning.ddnsd } 
  } 
} 
On *:Dialog:p.cloning:menu:*: { 
  If ($Did == 476) { Set %p.save.cloning.srv $Did($DName,10).Text } 
  If ($Did == 412) { P.Cloning.ipports } 
  If ($Did == 415) { P.Cloning.list.nicksch $mircdirClXNickList.cfg } 
  If ($Did == 416) { P.Cloning.list.nicksch $SFile($mircdir,"Select") } 
  If ($Did == 418) { P.Cloning.list.save $mircdirClXNickList.cfg } 
  If ($Did == 419) { P.Cloning.list.save $SFile($mircdir,"Seclect",Select) } 
  If ($Did == 421) { 
    Unset %P.Cloning.Nlist.conn* 
    Set %P.Cloning.Nlist.conn 1 
    If ($exists($mircdirClXNickList.cfg) == $False) { P.Cloning.fal File not Found } 
    Set %P.Cloning.Nlist.conn.f $mircdirClXNickList.cfg 
    P.Cloning.ddnsd 
  } 
  If ($Did == 422) { 
    Unset %P.Cloning.Nlist.conn* 
    Set %P.Cloning.Nlist.conn 1 
    Set %P.Cloning.Nlist.conn.f $SFile($mircdir,"Choose File") 
    If (%P.Cloning.Nlist.conn.f) { P.Cloning.ddnsd } 
  } 
} 
Alias -l P.Cloning.nick.gr.ad { 
  If ($Dialog(p.cloning)) { 
    Var %I = 1 
    While ($Did(p.cloning,339,$Did(p.cloning,339,%I).sel).Text) { 
      Var %P.Cloning.adgr1.nicks = $IfMatch 
      If (!$Didwm(p.cloning,$1,%P.Cloning.adgr1.nicks)) { Did -i p.cloning $1 $calc($Did(p.cloning,$1).lines + 1) %P.Cloning.adgr1.nicks } 
      Inc %I 
    } 
  } 
} 
Alias -l P.Cloning.jj { 
  If ($Did(p.cloning,47).Text == Normal) { p.clon.do } 
  Elseif ($Did(p.cloning,47).Text == Proxy) { 
    If (!$Did(p.cloning,4,1)) { P.Cloning.fal Please add Proxies to the Proxy list. | P.Cloning.recr 1 | Return } 
    p.clon.do 
  } 
  Elseif ($Did(p.cloning,47).Text == Socks 4) { 
    If (!$Did(p.cloning,69,1)) { P.Cloning.fal Please add Proxies to the Socks 4 list. | P.Cloning.recr 1 | Return } 
    p.clon.do 
  } 
  Elseif ($Did(p.cloning,47).Text == Socks 5) { 
    If (!$Did(p.cloning,78,1)) { P.Cloning.fal Please add Proxies to the Socks 5 list. | P.Cloning.recr 1 | Return } 
    p.clon.do 
  } 
} 
Alias -l p.clon.dodo { 
  If ($Dialog(p.cloning)) && (!$Sock($1)) { 
    P.Cloning.do.w $1 0,0 
    .sockopen $1- 
    If ($Did(p.cloning,47).Text == Normal) { Var %p.clon.dodo = *Socket -Normal-: } 
    If ($Did(p.cloning,47).Text == Proxy) { Var %p.clon.dodo = *Socket -Proxy-: } 
    If ($Did(p.cloning,47).Text == Socks 4) { Var %p.clon.dodo = *Socket -Socks 4-: } 
    If ($Did(p.cloning,47).Text == Socks 5) { Var %p.clon.dodo = *Socket -Socks 5-: } 
    p.clon.stats %p.clon.dodo $Did(p.cloning,10) $Did(p.cloning,12) 
  } 
} 
Alias -l p.clon.do { 
  If ($Dialog(p.cloning)) { 
    P.Cloning.recr 0 
    Var %P.Cloning.delay = $Did(p.cloning,391).Text 
    If ($Did(p.cloning,47).Text == Normal) { 
      Var %I = 1 
      While (%I <= $Did(p.cloning,50).Text) { 
        Inc %P.Cloning.t 
        .timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Did(p.cloning,10) $Did(p.cloning,12) 
        Inc %I 
      } 
      .timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1 
      P.Cloning.recr 0 
    } 
    Elseif ($Did(p.cloning,47).Text == Proxy) { 
      Var %I = 1 
      While (%I <= $Did(p.cloning,50).Text) { 
        If ($Did(p.cloning,4,$calc(%P.Cloning.pn + 1))) { Inc %P.Cloning.pn } 
        Elseif ($Did(p.cloning,4,1)) { Set %P.Cloning.pn 1 } 
        Else { P.Cloning.fal Not Proxies. Configure. | Return } 
        Inc %P.Cloning.t 
        .timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,4,%P.Cloning.pn),1,32) $Gettok($Did(p.cloning,4,%P.Cloning.pn),2,32) 
        Inc %I 
      } 
      .timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1 
      P.Cloning.recr 0 
    } 
    Elseif ($Did(p.cloning,47).Text == Socks 4) { 
      Var %I = 1 
      While (%I <= $Did(p.cloning,50).Text) { 
        If ($Did(p.cloning,69,$calc(%P.Cloning.pn4 + 1))) { Inc %P.Cloning.pn4 } 
        Elseif ($Did(p.cloning,69,1)) { Set %P.Cloning.pn4 1 } 
        Else { P.Cloning.fal Not Socks 4. Configure. | Return } 
        Inc %P.Cloning.t 
        .timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,69,%P.Cloning.pn4),1,32) $Gettok($Did(p.cloning,69,%P.Cloning.pn4),2,32) 
        Inc %I 
      } 
      .timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1 
      P.Cloning.recr 0 
    } 
    Elseif ($Did(p.cloning,47).Text == Socks 5) { 
      Var %I = 1 
      While (%I <= $Did(p.cloning,50).Text) { 
        If ($Did(p.cloning,78,$calc(%P.Cloning.pn5 + 1))) { Inc %P.Cloning.pn5 } 
        Elseif ($Did(p.cloning,78,1)) { Set %P.Cloning.pn5 1 } 
        Else { P.Cloning.fal Not Socks 5. Configure. | Return } 
        Inc %P.Cloning.t 
        .timerP.Cloning. [ $+ [ %P.Cloning.t ] ] 1 $calc($iif(%I == 1,0,%I) * %P.Cloning.delay) p.clon.dodo P.Cloning. [ $+ [ %P.Cloning.t ] ] $Gettok($Did(p.cloning,78,%P.Cloning.pn5),1,32) $Gettok($Did(p.cloning,78,%P.Cloning.pn5),2,32) 
        Inc %I 
      } 
      .timerP.Cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%I * %P.Cloning.delay) P.Cloning.recr 1 
      P.Cloning.recr 0 
    } 
  } 
} 
Alias -l P.Cloning.recr { 
  If ($Dialog(p.cloning)) { 
    If ($1 == 0) { 
      Did -b p.cloning 10 | Did -b p.cloning 12 | Did -b p.cloning 47 | Did -b p.cloning 50 | Did -b p.cloning 391 | Did -b p.cloning 422 
      Did -b p.cloning 35 | Did -b p.cloning 36 | Did -b p.cloning 37 | Did -b p.cloning 38 | Did -b p.cloning 421 | Did -b p.cloning 48 
    } 
    If ($1 == 1) { 
      Did -e p.cloning 10 | Did -e p.cloning 12 | Did -e p.cloning 47 | Did -e p.cloning 50 | Did -e p.cloning 391 
      Did -e p.cloning 35 | Did -e p.cloning 36 | Did -e p.cloning 37 | Did -e p.cloning 38 
      If (??* iswm $Did(p.cloning,10)) && ($abs($Did(p.cloning,12)) != 0) && ($abs($Did(p.cloning,50)) != 0) { 
        If ($Did(p.cloning,36).state == 0) { Did -e p.cloning 48 | Did -e p.cloning 421 | Did -e p.cloning 422 } 
        Elseif ($Did(p.cloning,38)) { Did -e p.cloning 48 | Did -e p.cloning 421 | Did -e p.cloning 422 } 
      } 
    } 
  } 
} 
Alias -l p.clon.stats { 
  If ($Dialog(p.cloning)) { 
    Did -o p.cloning 41 1 $iif($P.Cloning.dos.numCL(1),$P.Cloning.dos.numCL(1),-) 
    Did -o p.cloning 43 1 $iif($P.Cloning.dos.numCL(0),$P.Cloning.dos.numCL(0),-) 
    If ($1-) { Did -i p.cloning 44 $Did(p.cloning,44).lines $1- } 
  } 
} 
On *:Dialog:p.cloning:init:0: { 
  .disable #P.Cloning.DdnsD 
  If ($hget(P.Cloning.a)) { hfree P.Cloning.a } 
  Unset %P.Cloning.pn %P.Cloning.t | .timerP.Cloning.* off 
  Did -i $DName 12 1 6666 | Did -i $DName 12 2 6667 | Did -i $DName 12 3 6668 | Did -i $DName 12 4 6669 | Did -i $DName 12 5 7000 | Did -i $DName 12 6 8888 | Did -c $DName 12 2 
  If (%p.save.cloning.srv) { Did -i $DName 10 1 %p.save.cloning.srv } 
  Did -c $DName 35 | Did -i $DName 37 1 Random | Did -i $DName 37 2 Fucker | Did -i $DName 37 3 Sucker | Did -i $DName 37 4 Flooder | Did -c $DName 37 1 
  Did -c $DName 333 | Did -b $DName 415 | Did -b $DName 416 | Did -b $DName 418 | Did -b $DName 419 | Did -b $DName 412 
  Var %I = 1 | Var %o = 1 | While (%o < 600) { Did -i $DName 50 %I %o | Inc %I | Var %o = %o * 2 } | Did -c $DName 50 8 
  Var %I = 1 | Var %o = 1 | While (%o < 5) { Did -i $DName 391 %I %o | Inc %I | Var %o = %o * 2 } | Did -i $DName 391 1 0 | Did -c $DName 391 1 
  Did -i $DName 47 1 Normal | Did -i $DName 47 2 Proxy | Did -i $DName 47 3 Socks 4 | Did -i $DName 47 4 Socks 5 | Did -c $DName 47 1 
  P.Cloning.conEcheck 
} 
On *:SockRead:P.Cloning.*: { 
  If ($Dialog(p.cloning)) { 
    Var %P.Cloning.server = $Did(p.cloning,10) 
    Var %P.Cloning.port = $Did(p.cloning,12) 
    If ($sockerr != 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port - $+ %P.Cloning.read $+ - | P.Cloning.cmds } 
    Else { 
      If ($Did(p.cloning,47).Text == Socks 4) { 
        If ($Sock($SockName).mark != 1) { 
          SockRead &P.Cloning.bread 
          If ($bvar(&P.Cloning.bread,1,2) == 0 90) { P.Cloning.usIn $SockName | sockmark $SockName 1 } 
          If ($bvar(&P.Cloning.bread,1,2) == 0 91) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks4- | .sockclose $SockName | P.Cloning.cmds | Return } 
        } 
      } 
      If ($Did(p.cloning,47).Text == Socks 5) { 
        If ($Sock($SockName).mark != 1) { 
          SockRead &P.Cloning.bread 
          If ($bvar(&P.Cloning.bread,1,2) == 5 0) && ($bvar(&P.Cloning.bread,3) != 0) { 
            Var %P.Cloning.portS5 = $Gettok($longip(%P.Cloning.port),3,46) $Gettok($longip(%P.Cloning.port),4,46) 
            Var %P.Cloning.serverS5 = $replace(%P.Cloning.server,.,$chr(32)) 
            bset &P.Cloning.ssenndd 1 5 1 0 1 %P.Cloning.serverS5 %P.Cloning.portS5 
            SockWrite $SockName &P.Cloning.ssenndd 
          } 
          If ($bvar(&P.Cloning.bread,1,2) == 5 255) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds } 
          If ($bvar(&P.Cloning.bread,1,3) == 5 0 0) { P.Cloning.usIn $SockName | sockmark $SockName 1 } 
          If ($bvar(&P.Cloning.bread,1,3) == 5 4 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds } 
          If ($bvar(&P.Cloning.bread,1,3) == 5 5 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds } 
          If ($bvar(&P.Cloning.bread,1,3) == 5 9 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Socks5- | P.Cloning.cmds } 
        } 
      } 
      SockRead %P.Cloning.read 
      tokenize 32 %P.Cloning.read 
      If ($abs($2)) && ($Left($1,1) == $chr(58)) { 
        If ($2 == 1) { 
          P.Cloning.do.w $SockName 1, $+ $3 
          p.clon.stats -Connected: %P.Cloning.server %P.Cloning.port 
          P.Cloning.cmds 
          SockWrite -nt $SockName Mode $P.Cloning.do.saNick($SockName) $Did(p.cloning,58).Text 
          ;SockWrite -nt $SockName Join #test 
          ;SockWrite -nt $SockName Oper SnuG something 
          ;SockWrite -nt $SockName SetHost $Read(Host.txt) 
        } 
        If ($2 == 433) && ($Gettok($hget(P.Cloning.a,$SockName),1,44) == 0) { P.Cloning.usIn $SockName } 
      } 
      Elseif (!$abs($2)) { 
        If ($2 == NICK) { 
          If ($remove($Gettok($1,1,33),:) == $P.Cloning.do.saNick($SockName)) && ($Gettok($1,2,33)) { 
            Var %P.Cloning.nnick = $remove($3,:) 
            Var %P.Cloning.anick = $remove($Gettok($1,1,33),:) 
            If ($Didwm(p.cloning,351,%P.Cloning.anick)) { Did -o p.cloning 351 $IfMatch %P.Cloning.nnick } 
            If ($Didwm(p.cloning,369,%P.Cloning.anick)) { Did -o p.cloning 369 $IfMatch %P.Cloning.nnick } 
            If ($Didwm(p.cloning,373,%P.Cloning.anick)) { Did -o p.cloning 373 $IfMatch %P.Cloning.nnick } 
            P.Cloning.do.w $SockName 1, $+ %P.Cloning.nnick 
            P.Cloning.nicks.act 
          } 
        } 
      } 
      If ($1 == PING) { SockWrite -nt $SockName pong : $+ $remove($2,:) | Return } 
      If ($Did(p.cloning,46).State == 1) { 
        If ($4 == :
VERSION
) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) :
VERSION $VReply($Rand(1,15)) $+ 
 } 
        If ($4 == :
TIME
) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) :
TIME $AscTime($Rand($CTime,$Calc($CTime + $Rand(1,200000)))) $+ 
 } 
        If ($4 == :
PING) && ($2 == PRIVMSG) { SockWrite -nt $SockName NOTICE $remove($Gettok($1,1,33),:) :
PING $CTime $+ 
 } 
      } 
      If ($2 == KICK) { SockWrite -nt $SockName JOIN $3 } 
      If ($2 == MODE) && (-ooo* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 -o $remove($Gettok($1,1,33),:) | .timero $+ $rand(1,99999) 1 $rand(1,25) SockWrite -nt $SockName Mode $3 +oooooo $5- } 
      ;If ($2 == MODE) && (-o* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 +o $5- } 
      ;If ($2 == MODE) && (+o* iswm $4) && ($3 == #Maldivians) { SockWrite -nt $SockName Mode $3 -o $5- } 
    } 
  } 
} 
alias P.Cloning.do.saSockN { 
  Var %I = 1 
  While ($P.Cloning.r(%I)) { 
    If ($Gettok($P.Cloning.r(%I),2,44) == $1) { Return $hget(P.Cloning.a,%I).item } 
    Inc %I 
  } 
} 

Alias -l P.Cloning.con.com { If ($hget(P.Cloning.a)) { hdel P.Cloning.a $1 } } 

On *:SOCKOPEN:P.Cloning.*: { 
  If ($Dialog(p.cloning)) { 
    Var %P.Cloning.server = $Did(p.cloning,10) 
    Var %P.Cloning.port = $Did(p.cloning,12) 
    If ($sockerr != 0) { P.Cloning.con.com $SockName | p.clon.stats Disconnected: %P.Cloning.server %P.Cloning.port -Session Start- | P.Cloning.cmds } 
    Else { 
      If ($Did(p.cloning,47).Text == Normal) { P.Cloning.usIn $SockName } 
      Elseif ($Did(p.cloning,47).Text == Proxy) { 
        SockWrite $SockName CONNECT %P.Cloning.server $+ : $+ %P.Cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF 
        SockWrite $SockName $CRLF 
        .timerUs. [ $+ [ $SockName ] ] 1 2 P.Cloning.usIn $SockName 
      } 
      Elseif ($Did(p.cloning,47).Text == Socks 4) { 
        Var %P.Cloning.port1 = $Gettok($longip(%P.Cloning.port),3,46) 
        Var %P.Cloning.port2 = $Gettok($longip(%P.Cloning.port),4,46) 
        Var %P.Cloning.portS4 = $Gettok($longip(%P.Cloning.port),3,46) $Gettok($longip(%P.Cloning.port),4,46) 
        Var %P.Cloning.serverS4 = $replace(%P.Cloning.server,.,$chr(32)) 
        bset &P.Cloning.ssenndd 1 4 1 %P.Cloning.portS4 %P.Cloning.serverS4 $CRLF 
        SockWrite $SockName &P.Cloning.ssenndd 
      } 
      Elseif ($Did(p.cloning,47).Text == Socks 5) { 
        bset &P.Cloning.ssenndd 1 5 1 0 
        SockWrite $SockName &P.Cloning.ssenndd 
      } 

    } 

  } 
} 

Alias -l P.Cloning.cmds { 
  If ($Dialog(p.cloning)) { 
    P.Cloning.nicks.act 
    If ($Did(p.cloning,314).enabled == $False) && ($Did(p.cloning,41).Text > 0) { 
      Did -e p.cloning 314 | Did -e p.cloning 316 | Did -e p.cloning 320 | Did -e p.cloning 18 | Did -e p.cloning 31 | Did -e p.cloning 17 
      Did -e p.cloning 322 | Did -e p.cloning 324 | Did -e p.cloning 326 | Did -e p.cloning 328 | Did -e p.cloning 29 
      Did -e p.cloning 329 | Did -e p.cloning 331 | Did -e p.cloning 333 | Did -e p.cloning 339 | Did -e p.cloning 31 
      Did -e p.cloning 334 | Did -e p.cloning 335 | Did -e p.cloning 336 | Did -e p.cloning 337 | Did -e p.cloning 27 
      Did -e p.cloning 372 | Did -e p.cloning 373 | Did -e p.cloning 369 | Did -e p.cloning 368 | Did -e p.cloning 25 
      Did -e p.cloning 367 | Did -e p.cloning 351 | Did -e p.cloning 350 | Did -e p.cloning 349 | Did -e p.cloning 23 
      Did -e p.cloning 415 | Did -e p.cloning 416 | Did -e p.cloning 418 | Did -e p.cloning 419 | Did -e p.cloning 20 
      Did -e p.cloning 371 | Did -e p.cloning 412 | Did -e p.cloning 783 | Did -e p.cloning 11 | Did -e p.cloning 13 | Did -e p.cloning 16 
    } 
    Elseif ($Did(p.cloning,314).enabled == $True) && ($Did(p.cloning,41).Text <= 0) || ($Did(p.cloning,41).Text == $null) { 
      Did -r p.cloning 314 | Did -r p.cloning 316 | Did -r p.cloning 320 | Did -r p.cloning 783 | Did -r p.cloning 23 
      Did -r p.cloning 322 | Did -r p.cloning 324 | Did -r p.cloning 326 | Did -r p.cloning 328 | Did -r p.cloning 13 
      Did -r p.cloning 329 | Did -r p.cloning 331 | Did -r p.cloning 339 | Did -r p.cloning 351 | Did -r p.cloning 16 
      Did -r p.cloning 369 | Did -r p.cloning 373 | Did -b p.cloning 306 | Did -b p.cloning 307 | Did -r p.cloning 17 
      Did -b p.cloning 309 | Did -b p.cloning 310 | Did -b p.cloning 311 | Did -b p.cloning 20 | Did -r p.cloning 31 
      Did -b p.cloning 314 | Did -b p.cloning 316 | Did -b p.cloning 320 | Did -b p.cloning 23 | Did -r p.cloning 29 | Did -b p.cloning 17 
      Did -b p.cloning 322 | Did -b p.cloning 324 | Did -b p.cloning 326 | Did -b p.cloning 328 | Did -r p.cloning 18 
      Did -b p.cloning 329 | Did -b p.cloning 331 | Did -b p.cloning 333 | Did -b p.cloning 339 | Did -b p.cloning 24 
      Did -b p.cloning 334 | Did -b p.cloning 335 | Did -b p.cloning 336 | Did -b p.cloning 337 | Did -b p.cloning 25 
      Did -b p.cloning 372 | Did -b p.cloning 373 | Did -b p.cloning 369 | Did -b p.cloning 368 | Did -b p.cloning 27 
      Did -b p.cloning 367 | Did -b p.cloning 351 | Did -b p.cloning 350 | Did -b p.cloning 349 | Did -b p.cloning 28 
      Did -b p.cloning 415 | Did -b p.cloning 416 | Did -b p.cloning 418 | Did -b p.cloning 419 | Did -b p.cloning 29 
      Did -b p.cloning 312 | Did -b p.cloning 330 | Did -b p.cloning 371 | Did -b p.cloning 412 | Did -b p.cloning 31 
      Did -b p.cloning 783 | Did -b p.cloning 11 | Did -b p.cloning 13 | Did -b p.cloning 18 | Did -b p.cloning 15 | Did -b p.cloning 16 
    } 
  } 
} 

Alias -l P.Cloning.do.saNick { Return $Gettok($hget(P.Cloning.a,$1),2,44) } 
Alias -l P.Cloning.do.saSockN { 
  Var %I = 1 
  While ($P.Cloning.r(%I)) { 
    If ($Gettok($P.Cloning.r(%I),2,44) == $1) { Return $hget(P.Cloning.a,%I).item } 
    Inc %I 
  } 
} 

Alias -l P.Cloning.runcmd { 
  If ($Dialog(p.cloning)) { 
    If ($Did(p.cloning,334).state == 1) { 
      Var %I = 1 
      While ($Did(p.cloning,339,$Did(p.cloning,339,%I).sel).Text) { 
        Var %P.Cloning.runcmd.nick = $IfMatch 
        If ($1 == nick) { 
          If (!$Did(p.cloning,339,2).sel) { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) } 
          Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) $+ $rand(a,z) $+ $rand(a,z) } 
        } 
        Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1- } 
        Inc %I 
      } 
      return 
    } 
    Elseif ($Did(p.cloning,333).state == 1) { Var %P.Cloning.runcmd.idL = 339 } 
    Elseif ($Did(p.cloning,335).state == 1) { Var %P.Cloning.runcmd.idL = 351 } 
    Elseif ($Did(p.cloning,336).state == 1) { Var %P.Cloning.runcmd.idL = 369 } 
    Elseif ($Did(p.cloning,337).state == 1) { Var %P.Cloning.runcmd.idL = 373 } 
  } 
  Var %I = 1 
  While ($Did(p.cloning,%P.Cloning.runcmd.idL,%I).Text) { 
    Var %P.Cloning.runcmd.nick = $IfMatch 
    If ($1 == nick) { 
      If (!$Did(p.cloning,%P.Cloning.runcmd.idL,2)) { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) } 
      Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1 $iif($2 == Random,$RandNick($Rand(4,10)),$2) $+ $rand(a,z) $+ $rand(a,z) } 
    } 
    Else { SockWrite -nt $P.Cloning.do.saSockN(%P.Cloning.runcmd.nick) $1- } 
    Inc %I 
  } 
} 
Alias -l P.Cloning.list.nicksch { 
  If ($Dialog(p.cloning)) { 
    Var %I = 1 
    Var %o = 1 
    While ($P.Cloning.r(%I)) { 
      Var %P.Cloning.list.nicksch.sta = $Gettok($IfMatch,1,44) 
      Var %P.Cloning.list.nicksch.nick = $Gettok($IfMatch,2,44) 
      If (%P.Cloning.list.nicksch.sta) { 
        If ($exists($1) == $False) { P.Cloning.fal Archivo no encontrado! } 
        Var %P.Cloning.list.nicksch.nnick = $Gettok($read($1,%o),1,32) 
        If (%P.Cloning.list.nicksch.nnick) { 
          If ($abs(%P.Cloning.list.nicksch.nnick)) { P.Cloning.fal Nicklist Cannot be in that Format. File format: Nick [Ident] } 
          SockWrite -nt $hget(P.Cloning.a,%I).item nick %P.Cloning.list.nicksch.nnick 
        } 
        Inc %O 
      } 
      Inc %I 
    } 
  } 
} 
Alias -l P.Cloning.list.save { 
  If ($Dialog(p.cloning)) { 
    Var %I = 1 
    .remove $1 
    While ($Did(p.cloning,339,%I).Text) { write $1 $IfMatch | Inc %I } 
  } 
} 
Alias -l P.Cloning.nicks.act { 
  If ($Dialog(p.cloning)) { 
    Did -r p.cloning 339 
    Var %I = 1 
    Var %o = 1 
    While ($P.Cloning.r(%I)) { 
      Var %P.Cloning.nicks.act = $Gettok($IfMatch,1,44) 
      Var %P.Cloning.nicks = $Gettok($IfMatch,2,44) 
      If (%P.Cloning.nicks.act == 1) { Did -i p.cloning 339 %o %P.Cloning.nicks | Var %o = %o + 1 } 
      Inc %I 
    } 
  } 
} 
Alias -l P.Cloning.usIn { 
  If ($Dialog(p.cloning)) { 
    If (%P.Cloning.Nlist.conn == 1) { 
      Inc %P.Cloning.Nlist.conn.n 
      Var %P.Cloning.usIn.nick = $Gettok($read(%P.Cloning.Nlist.conn.f,%P.Cloning.Nlist.conn.n),1,32) 
      Var %P.Cloning.usIn.ident = $lower($Gettok($read(%P.Cloning.Nlist.conn.f,%P.Cloning.Nlist.conn.n),2,32)) 
      If (%P.Cloning.usIn.nick) && ($abs(%P.Cloning.usIn.nick)) { P.Cloning.fal Nicklist Cannot be in that Format. File format: Nick [Ident] } 
      If ($Sock($1)) { SockWrite -nt $1 user $lower($iif(%P.Cloning.usIn.ident,%P.Cloning.usIn.ident,$iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text))) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) } 
      Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
      Var %P.Cloning.usIn.nick = $lower($iif(%P.Cloning.usIn.nick,%P.Cloning.usIn.nick,$iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text $+ $rand(0,9999))))) 
      P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick 
      If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick } 
      Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
    } 
    Else { 
      If ($Did(p.cloning,35).state == 1) { 
        If ($Sock($1)) { SockWrite -nt $1 user $lower($iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text)) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) } 
        Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
        Var %P.Cloning.usIn.nick = $lower($iif($Did(p.cloning,37).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,37).Text)) $+ $+ $rand(a,z) $+ $rand(a,z) 
        P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick 
        If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick } 
        Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
      } 
      Elseif ($Did(p.cloning,36).state == 1) { 
        If ($Sock($1)) { SockWrite -nt $1 user $lower($iif($Did(p.cloning,38).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,38).Text)) "" "" : $+ $RandNick($Rand(4,10)) $+ $RandNick($Rand(4,10)) } 
        Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
        Var %P.Cloning.usIn.nick = $lower($iif($Did(p.cloning,38).Text == Random,$RandNick($Rand(4,10)),$Did(p.cloning,38).Text)) $+ $+ $rand(a,z) $+ $rand(a,z) 
        P.Cloning.do.w $1 0, $+ %P.Cloning.usIn.nick 
        If ($Sock($1)) { SockWrite -nt $1 nick %P.Cloning.usIn.nick } 
        Else { .sockclose $1 | P.Cloning.con.com $1 | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Blocked- | P.Cloning.cmds } 
      } 
    } 
  } 
} 
On *:SOCKCLOSE:P.Cloning.*: { 
  If ($Dialog(p.cloning)) { 
    ;echo -s Ha cerrado: $Sock($SockName,1).wsmsg 
    P.Cloning.con.com $SockName | p.clon.stats Disconnected: $Did(p.cloning,10) $Did(p.cloning,12) -Access has Distance- | P.Cloning.cmds 
  } 
} 
Alias -l P.Cloning.w { hadd -m P.Cloning.a $1 $2 } 
Alias -l P.Cloning.r { Return $hget(P.Cloning.a,$hget(P.Cloning.a,$1).item) } 
Alias -l P.Cloning.do.w { P.Cloning.w $1 $2 } 
Alias -l P.Cloning.dos.numCL { 
  Var %I = 1 | Var %o = 0 
  While ($P.Cloning.r(%I)) { 
    Var %P.Cloning.pill = $IfMatch 
    If ($Gettok(%P.Cloning.pill,1,44) == 1) { Var %o = %o + 1 } 
    Inc %I 
  } 
  If ($1 == 0) { Return $calc(%I - 1) } 
  Elseif ($1 == 1) { Return %o } 

} 
Alias -l P.Cloning.ipports { 
  If ($Dialog(P.Cloning.ipport)) { Dialog -v P.Cloning.ipport } 
  Else { Dialog -md P.Cloning.ipport P.Cloning.ipport } 
} 
Dialog P.Cloning.ipport { 
  Title "ClonesX Connected IPs and Ports" 
  Size -1 -1 312 456 
  Option Pixels 
  Edit "", 3, 8 8 298 410, read multi hsbar vsbar 
  Button "&Refresh List", 4, 6 422 298 28 
} 
Alias -l P.Cloning.ipports.act { 
  If ($Dialog(P.Cloning.ipport)) { 
    Did -r P.Cloning.ipport 3 
    Var %I = 1 
    While ($Sock(P.Cloning.*,%I)) { 
      Var %P.Cloning.ipports.act = $IfMatch 
      Var %P.Cloning.ipports.act.ip = $Sock(%P.Cloning.ipports.act).ip 
      Var %P.Cloning.ipports.act.port = $Sock(%P.Cloning.ipports.act).port 
      If ($Gettok($hget(P.Cloning.a,%P.Cloning.ipports.act),1,44) == 1) && (!$Didwm(P.Cloning.ipport,3,%P.Cloning.ipports.act.ip %P.Cloning.ipports.act.port)) { 
        Did -i P.Cloning.ipport 3 $Did(P.Cloning.ipport,3).lines %P.Cloning.ipports.act.ip %P.Cloning.ipports.act.port 
      } 
      Inc %I 
    } 
  } 
} 
On *:Dialog:P.Cloning.ipport:sclick:4: { P.Cloning.ipports.act } 
On *:Dialog:P.Cloning.ipport:init:0: { P.Cloning.ipports.act } 
On *:Dialog:P.Cloning.errD:init:0: { Did -a $DName 1 %P.Cloning.errD } 
on *:START: { Unset %P.Cloning.* | Set %p.cloining.wh $script } 
on *:LOAD: { Unset %p.cloning* | Unset %p.save.cloning* | Unset %p.act.cloning* } 
Alias -l P.Cloning.fal { Var %A $Input($1-,o,ClonesX) | Halt } 
Alias RandNick { 
  If ($1 == 3) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 4) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 5) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 6) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 7) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 8) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 9) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
  If ($1 == 10) { Return $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) $+ $R(a,z) } 
} 
Alias VReply { 
  If ($1 == 1) { Return mIRC32 v5.9 K.Mardam-Bey } 
  If ($1 == 2) { Return mIRC32 v5.91 K.Mardam-Bey } 
  If ($1 == 3) { Return mIRC32 v5.71 K.Mardam-Bey } 
  If ($1 == 4) { Return mIRC 6.01 Khaled Mardam-Bay } 
  If ($1 == 5) { Return mIRC 6.02 Khaled Mardam-Bay } 
  If ($1 == 6) { Return mIRC 6.03 Khaled Mardam-Bay } 
  If ($1 == 7) { Return mIRC v6.12 Khaled Mardam-Bey } 
  If ($1 == 8) { Return mIRC v6.14 Khaled Mardam-Bey } 
  If ($1 == 9) { Return mIRC v6.15 Khaled Mardam-Bey } 
  If ($1 == 10) { Return mIRC v6.16 Khaled Mardam-Bey } 
  If ($1 == 11) { Return xchat 1.8.1 Linux 2.4.7-10 [i686/451MHz] } 
  If ($1 == 12) { Return xchat 2.0.7 Linux 2.6.5-1.358 [i686/3.01GHz] } 
  If ($1 == 13) { Return xchat 1.8.9 Linux 2.4.9-e.35smp [i686/1667MHz/SMP] } 
  If ($1 == 14) { Return xchat 2.0.7 Linux 2.6.5-7.104-default [i686/1.41GHz] } 
  If ($1 == 15) { Return PnP 4.22 - http://www.pairc.com/ } 
}