Vizyondaki Film'ler Kod:
alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | msg #sinema * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(msg #sinema) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { msg #sinema $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) { msg #sinema * 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 %-) { msg #sinema 05Devamı ve daha fazla bilgi için:12 $+(, Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(msg #sinema) { msg #sinema } }
}
}
on *:text:!filmler:#sinema: { sinema } Bunu kanala yansıtma şeklinde düzeltim ufak tefek eksiklikleri var onlarida benim iyileri düzeltip verir insallah bunuda sizlerle paylaşmak istedim fakat MaeLStRom insallah birşey demez , ilk ve tek paylaşmadığı kodu buymus iyi günlerde kullanın ..
Deep Not : #Sinema kanalında herhangi bir nickin !filmler yazması lazım. |