alias sondakika {
  unset %haber
  sockclose s4
  sockopen s4 kelebekhaber.com/rss.asp 80
}
alias -l sw sockwrite -n $sockname $1-
on *:sockopen:s4: {
  if (!$sockerr) {
    sw GET /?sid=0 HTTP/1.1
    sw Host: kelebekhaber.com/rss.asp
    sw User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5
    sw Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    sw Accept-Language: tr-TR,tr;q=0.8,en-us;q=0.5,en;q=0.3
    sw Accept-Encoding: gzip,deflate
    sw Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7  
    sw Connection: Close
    sw $crlf
  }
}   
alias htmlfree {
  var %x, %i = $regsub($replace($1-,</strong>,-,</a></td></tr><tr>,¿,DiÄŸer haberler için tıklayın...,difuzyonnnn),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9))
  return %x
}
on *:sockread:s4: {
  sockread %a
  if (class="hurtextverdana"> isin %a) { 
    set %haber $htmlfree(%a) 
    var %i = 1 , %id $numtok(%haber,191)
    while (%i <= $calc(%id - 1)) {
      var %s $gettok(%haber,%i,191)
      if (difuzyon isin %s) halt 
      .notice #Kanal 7 $replace(%s,-,4-2: )
      inc %i
    }
  }
}
on *:text:!Haberler:#Kanal@:{ if $istok(Nick,$nick,32) { if  $1 == !Habeler:set $+(%,haber,nick) $nick | sondakika | .notice #Kanal 3Son dakika haberleri listeleniyor : }

alias sondakikahaber {
  unset %haberl
  sockclose s4d
  sockopen s4d [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias -l sew sockwrite -n $sockname $1-
on *:sockopen:s4d: {
  if (!$sockerr) {
    sew GET /rss.asp HTTP/1.1
    sew Host: kelebekhaber.com $+ $crlf $+ $crlf
    sew $crlf
  }
}
on *:sockread:s4d: {
  if (!$sockerr) {
    var %difi 
    sockread %difi
    if (*</description>* iswm %difi) { 
      %haberl = $addtok(%haberl,$htmlfree($replace(%difi,</description>,~,<link>,$chr(32),</link>,$chr(32),</title>,</title,<description>,description>)),32) 
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:!Haberler:#Kanal:if !%haberl { sondakikahaber | msg $chan Bilgiler alınıyor | .timer 1 5 haberyaz }

alias -l haberyaz {
  if %haberl {
    var %1 1 | while %1 <= $numtok(%haberl,126) { msg #Kanal $token(%haberl,%1,126) | inc %1 }
    unset %haberl
  }
}
 
alias haberoku {
  if !%haberl { sondakikahaber | echo -a Bilgiler alınıyor | .timer 1 5 echohaber }
}
alias -l echohaber {
  if %haberl {
    var %1 1 | while %1 <= $numtok(%haberl,126) { echo -a $token(%haberl,%1,126) | inc %1 }
    unset %haberl
  }
}

alias rss {
var %e = !echo $color(info) -a * Rss:, %r = return $false
if ($os isin 9598) { %e this snippet requires Windows ME or higher | %r }
if ($version < 5.91) { %e this snippet requires atleast mIRC 5.91 or higher | %r }
if (!$regex(%e,$1-,/^-[fhi] \S+ \S+$/i)) {
%e Syntax: /rss <-fhi> <url> <file|htb> or $!rss(-fhi, url, file|htb) | %r
}
var %flag = $mid($1,2), %filepath
if (%flag == h) %filepath = " $+ $mircdirtmprss"
else {
var %dir = $nofile($3-), %file = $nopath($3-)
if (%file != $mkfn(%file)) { %e file %file contains illegal characters. | %r }
if (* !iswm %dir) %dir = $mircdir
elseif (!$isdir(%dir)) { %e no such folder %dir | %r }
%filepath = $+(",%dir,%file,")
}
var %w = $+(@rss,$ticks,$r(1111,9999),.vbs), %a = aline %w, %size, %n = $lf
write -c %filepath
window -h %w
%a Function nohtml(byref string)
%a set regex = new regexp
%a regex.global = true : regex.pattern = "<[^>]*>|[\r\n\177]+" : nohtml = regex.replace(string,"")
%a set regex = nothing
%a End Function
%a set xml = createobject("msxml.domdocument") : set ado = createobject("adodb.stream")
%a ado.open : ado.type = 2 : ado.charset = "ascii"
%a xml.validateonparse = false : xml.async = false : xml.load " $+ $2"
%a for each item in xml.getelementsbytagname("item")
if (%flag == i) {
%a i = i + 1
%a ado.writetext "[" & i & "]",1
%a for each node in item.childnodes
%a if node.text <> "" then ado.writetext node.nodename & "=" & nohtml(node.text),1
%a next %n ado.writetext vbcrlf
}
else {
%a for each node in item.childnodes
%a name = node.nodename
%a if name = "açıklama" then %n desc = name & ": " & nohtml(node.text)
%a elseif name = "adres" or name = "Başlık" then %n tmp = tmp & name & ": " & nohtml(node.text) & chr(127)
%a end if %n next
if (%flag == h) %a i = i + 1 %n ado.writetext i & chr(10) & left(tmp & desc,920) & chr(10)
else %a ado.writetext left(tmp & desc,920) & vbcrlf
%a tmp = null
}
%a next %n ado.savetofile %filepath ,2 : ado.close %n set ado = nothing : set xml = nothing
savebuf %w %w | close -@ %w
.comopen %w wscript.shell
if (!$comerr) .comclose %w $com(%w,run,1,bstr*,%w,uint,0,bool,true)
.remove %w
if (%flag == h) {
if ($hget($3)) hfree $3
hmake $3
hload $3 %filepath
.remove %filepath
%size = $hget($3,0).item
}
else %size = $file(%filepath)
if ($isid) return $iif(%size,$true,$false)
if ($show) {
if (!%size) msg %rss websitesinden verilere ulasilamiyor. $2
;else %e Finished retrieving info from $2 (saved to $iif(%flag == h,hash table:,file $3-)
}
return
:error
if ($com(%w)) .comclose %w
if ($isfile(%w)) .remove %w
if ($window(%w)) close -@ %w
}
alias degistir { say $replace($1-,GMT,$null,$1,$null,apr,nis,agu,agustos,jan,ocak,f eb,şubat,mar,mart,may,mayis,jun,haziran,jul,temmuz ,sep,eylül,oct,ekim,nov,kasım,dec,aralık,Mon,Pazar tesi,Tue,Sali,Wed,Carsamba,Thu,Persembe,Fri,Cuma,S at,Cumartesi,Sun,Pazar,title=,04Konu Başlığı:02,description=,4Açıklama:02,pubdate=, 04Tarih:02,link=,$+(04Devami icin:02,$chr(32))) }
alias _rmsg {
if !%a { set %a 1 } | else { inc %a | msg $1 $chr(160) | msg $1 $chr(160) }
$iif($readini(Dünya.txt,%a,title),.play $+(-at,%a) degistir $1 Dünya.txt,durdur)
}
on *:text:!Dünya*:#: {
if $2 == Gündem {
if $timer(rss) { msg $chan Sondakika haberleri zaten acik! | halt }
else {
var %z = $shortfn($mircdirDünya.txt),%a = 1 | if $exists(%z) { .remove %z }
rss -i 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Dünya.txt | msg # 13,13 0,6 CnnTürk ( Dünya Gündemi , neler oluyor dünya'da¿ ) Özetlerinin Akışı Başlatıldı.13,13  | .timerrss 0 120 _rmsg $chan
}
}
if $2 == dur && $timer(rss) { .timerrss off | msg #KanalAdı 13,13 0,6 CnnTürk ( Dünya Gündemi ) Özetlerinin Akışı Durduruldu.13,13  | halt }
}
alias durdur { .timerrss off | unset %a }

alias degistir { say $replace($1-,GMT,$null,$1,$null,apr,nis,agu,agustos,jan,ocak,f eb,şubat,mar,mart,may,mayis,jun,haziran,jul,temmuz ,sep,eylül,oct,ekim,nov,kasım,dec,aralık,Mon,Pazar tesi,Tue,Sali,Wed,Carsamba,Thu,Persembe,Fri,Cuma,S at,Cumartesi,Sun,Pazar,title=,04Konu Başlığı:02,description=,4Açıklama:02,pubdate=, 04Tarih:02,link=,$+(04Devami icin:02,$chr(32))) }

rss -i [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Dünya.txt | msg # 13,13 0,6 CnnTürk ( Dünya Gündemi , neler oluyor dünya'da¿ ) Özetlerinin Akışı Başlatıldı.13,13  | .timerrss 0 120 _rmsg $chan