| HcPsi | 03 Şubat 2006 01:56 |
Kod:
alias webaslan {
if !$isid {
if !$sock(webaslan) && !$1 {
; connect to server
if %webaslan { sockopen webaslan %webaslan }
else { /echo $color(info text) -at Kullanımı /webaslan webadresi | halt }
}
else if $1 {
set %webaslan $replace($gettok($remove($1-,http://),1,47),:,$chr(32))
set %webaslan-page $+(/,$gettok($remove($1-,http://),2-,47),/canli.asp?grupid=0)
unset %before-lines
if !$sock(webaslan) { sockopen webaslan %webaslan }
}
}
else {
if $regex($1,^-n$) {
var %x = $replace($2-,</td><td width=20 align=center> </td><td>,$chr(32),</td><tr bgcolor='#FFFFFF' vAlign=top><td width=20 vAlign=top align=right>,$crlf,</td><tr bgcolor='#EBE8E8' vAlign=top><td width=20 vAlign=top align=right>,$crlf,</td><td>,$chr(32))
var %i = $regsub(%x,/(^[^<]*>|<[^>]*>|<[^>]*$)/g, $null ,%x)
return $remove(%x,$clrf,$cr,<br />, ,&nb,sp;)
}
else if $regex($1,^-f$) { return $+(",$scriptdir,webaslan.tmp.txt") }
else if $regex($1,^-p$) { return $+(",$scriptdir,webaslan.pfl.txt") }
else if $regex($1,^-o$) { return $+(",$scriptdir,webaslan.old.txt") }
}
}
on *:sockopen:webaslan:{
if ($sockerr) { return }
write -c $webaslan(-f)
sockwrite -n $sockname GET %webaslan-page HTTP/1.1 $crlf
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf
sockwrite -n $sockname Accept: */* $crlf
sockwrite -n $sockname Host: $gettok(%webaslan,1,32) $crlf
sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:sockread:webaslan:{
var %header
sockread %header
write $webaslan(-f) $webaslan(-n,%header)
}
on *:sockclose:webaslan:{
var %sline, %i
%i = $calc(15 + ($lines($webaslan(-f)) - $lines($webaslan(-o))))
write -c $webaslan(-p)
while %i > 15 {
write $webaslan(-p) $read($webaslan(-f),%i)
dec %i 1
}
.copy -o $webaslan(-f) $webaslan(-o)
if $file($webaslan(-p)).size > 0 { .play #skor $webaslan(-p) 3500 }
}
on *:join:#skor: { if $nick == $me { .timer 0 $calc(3 * 60) webaslan } }
|
