alias meh sockopen mirc rebellion.net.au 80
on *:sockopen:mirc:{
sockwrite -n $sockname GET /mirc.php HTTP/1.1
; This is telling the socket to connect to the specific page, using "GET".
sockwrite -n $sockname Host: rebellion.net.au $+ $crlf $+ $crlf
; This states the host once again.
}
on *:sockread:mirc:{
if $sockerr {
echo 4 -a Error $v1 on $sockname : $sock($sockname).wserr ( $sock($sockname).wsmsg )
return
}
var %x
sockread %x
while $sockbr {
if ( D: * iswm %x ) { echo -a %x }
;echo -a %x
sockread %x
}
sockread -f %x
;echo -a %x
if ( D: * iswm %x ) { echo -a %x }
}