on *:sockopen:maclar:{
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: onbirim.com $+ $crlf $+ $crlf
}
on *:sockread:maclar:{
if ($sockerr) {
echo 4 -st Hata. | halt
}
else {
var %mac
sockread %mac
if (*<td>* iswm %mac) { /msg #kanalismi 2 $remove($htmlfree(%mac),$chr(9)) }
if (*width=”96″>* iswm %mac) { /msg #kanalismi 4 SUPER LIG $remove($htmlfree(%mac),$chr(9)) }
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:text:*:#:{
if $1 == !puandurumu {
/sockopen maclar www.onbirim.com 80
.timer 1 2 /sockclose maclar
}
Alt+R yaparak scriptinize ekleyiniz. Kullanımı kanalda !puandurumu
|
|
|
|
