alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler al?nmaya çal???l?yor. | if $window(sinema.com) { clear sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(sinema.com) { window -nk0 sinema.com } | aline -p sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri al?rken hata olu?tu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width=271″ class=red valign=top><a href=film_ozetbilgiler.aspx* iswm %-) || (*<td width=391″><a href=film_ozetbilgiler.aspx?FilmID=*><img src=images/but_git.gif* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src=images/but_os.gif* iswm %-) { sinemay 05Devam? ve daha fazla bilgi için:12 $+( ,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler), ) }
elseif (*HTML*:*Erhan ?D?Z* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(sinema.com) { window -a sinema.com } }
}
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(sinema.com) { window -nk0 sinema.com } | aline -p sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri al?rken hata olu?tu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width=271″ class=red valign=top><a href=film_ozetbilgiler.aspx* iswm %-) || (*<td width=391″><a href=film_ozetbilgiler.aspx?FilmID=*><img src=images/but_git.gif* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src=images/but_os.gif* iswm %-) { sinemay 05Devam? ve daha fazla bilgi için:12 $+( ,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler), ) }
elseif (*HTML*:*Erhan ?D?Z* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(sinema.com) { window -a sinema.com } }
}
}