alias komikyazılar { if $sock(komikyazılar) { echo 12 -a * /komikyazılar: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen komikyazılar www.http://www.kubidik.com/komik_sozler.htm 80 } }
on *:sockopen:komikyazılar:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /komikyazılar: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: http://www.kubidik.com/komik_sozler.htm | %c Connection: Close $str($crlf,2)
}
on *:sockread:komikyazılar:{
var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * komik yazılar; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)
