;#######################################
;##### SON DAKİKA SPOR HABERLERİ #######
;Edit:Kod içerisinde belirtilen #KANAL kısmı düzenlenmeli
;Sistem:Kodu ekleyen nick,o andan itibaren ajanslara haber düştükçe #KANAL'a aktarır.
;Start:Sunucudan bağlantı kesilmeli ardından connect olunmalı
;##### 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:spor: {
  tokenize 33 $sock($sockname).mark
  $2 GET /sondakika.asp?son_dakika=spor HTTP/1.1 
  $2 Host: $sock($sockname).addr
  $2 $crlf
}
on *:sockread:spor: {
  tokenize 33 $sock($sockname).mark
  if ($sockerr) { $1 $sock($sockname).wsmsg | return }
  else {
    var %spor | sockread %spor
    if $regex(%spor,$5) {
      if $read(spor.txt,w,$+(*,$regml(1),*)) { sockclose $sockname | halt }
      else { $3 $regml(2) $regml(1) }
      $iif(!%sporguard,$1 $+(,$regml(2),,$chr(32),02,$regml(1)))
    }
    $iif(!%sporguard,$iif($regex(%spor,$4),$1 $regml(1)))
  }
}
alias -l sport {
  if $sock(spor) { sockclose $v1 } 
  sockopen spor sondakika.haberler.com 80 
  sockmark spor msg #KANAL!sockwrite -n spor!write spor.txt!/<p>(.+)<\/p>/gi!/<a href="http:\/\/(\S+)">(.+)</a></h3>/gi
}
on *:connect:.timerdify 0 60 sport | set -u30 %sporguard open | sport