Çevrimdışı

; Son dakika haberleri
alias haber {
if $sock(haber) {
sockclose $ifmatch
}
sockopen haber sondakika.internethaber.com 80
}
on *:sockopen:haber: {
if $sockerr {
return
}
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: sondakika.internethaber.com
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr-TR; rv:1.7.8) Gecko/20050511 Firefox/1.0.4
sockwrite -nt $sockname Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/pn
sockwrite -nt $sockname Accept-Language: en-us,en;q=0.5
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname
}
on *:sockread:haber: {
sockread %h
tokenize 32 %h
if <td class=row_date* iswm $1- {
var %tarih $gettok($gettok($1-,3,59),1,38)
var %x $remove($1-,$mid($1-,1,123))
var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ $gettok($gettok(%x,1,62),2,61)
var %haber $gettok($gettok(%x,2,62),1,60)
if !$read(haber.txt,w,* $+ %haber $+ *,1) {
if $lines(haber.txt) >= 50 {
write -c haber.txt
}
write haber.txt 06 $+ %tarih 3:4 %haber * 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :6Son dakika haberi! (TR saatiyle: %tarih $+ )
sw nomercy PRIVMSG #haberler :4 $+ %haber 5*** 2Bu haberin ayrintilari icin: 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
}
}
}
alias randhaber {
sw nomercy PRIVMSG #haberler :2Haber hatirlatmasi: $read(haber.txt)
}

arkadaşlar ben bunu çalıştıramadım habet.txt içine yazıyo ordan okuyo ama haber.txt içine içine haber yazdıramıyorum kendim bişi eklediğim zaman NoMercyi kapatım actığım zaman kendi siliyo ama yazmıyor bni yardım edin