Kod: Kodu kopyalamak için üzerine çift týklayýn!
alias chrduzelt return $replace($1-,ç,ç,ç,ç,Ç,Ç,Ç,Ç,ÄŸ,ð,ð,ð,ÄŸ,Ð,Ð,Ð,ı,ý,ý,ý,Ä°,Ý,Ý,Ý,ö,ö,ö,ö,Ö,Ö,Ö,Ö,ÅŸ,þ,þ,þ,Åž,Þ,ÅŸ,Þ,Þ,Þ,ü,ü,ü,ü,Ãœ,Ü,Ü,Ü,',')
on *:sockopen:hurriyet: {
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET /son-dakika-haberleri/ HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname $crlf
}
on *:sockread:hurriyet:{
if ($sockerr) { .sockclose $sockname | return }
var %hbr | sockread %hbr
if $regex(%hbr,/<time class="time">(.+?)<\/time><h3 class="son-dakika-headline">(.+?)<\/h3><\/div><a target="_blank" href="(.+?)" rel=/Si) {
var %habersaat $regml(1), %haberbaslik $chrduzelt($regml(2)), %haberlink $+(http://,$sock($sockname).addr,$regml(3))
if %haberbaslik { notice $token($sock($sockname).mark,1,191) 1Saat:6 %habersaat 5-1 Baþlýk:4 %haberbaslik 5-1 Link:12 %haberlink | inc -eu2 %habersayi 1 }
}
if (.Logout isin %hbr) {
if !$var(%habersayi) { msg $token($sock($sockname).mark,2,191) 1Þu an son dakika haberi bulunamadý. | sockclose $sockname | return }
notice $token($sock($sockname).mark,1,191)
notice $token($sock($sockname).mark,1,191) 1Toplam3 %habersayi adet 1son dakika haberi bulundu.
msg $token($sock($sockname).mark,2,191) $+(4,$token($sock($sockname).mark,1,191),1) haberler size notice yoluyla iletildi.
sockclose $sockname | return
}
}
on *:text:*:#: {
if $regex($1,/^[!.]haberler/Si) {
msg # 1Son dakika haberleri aranýyor...
msg #
if !$sock(hurriyet) { sockopen hurriyet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark hurriyet $+($nick,¿,#) }
}
}
yazýlarak kullanýlýr.