on *:start: {
  .timerbulten 0 10 bulten 
}

alias bulten {
if !$timer(bulten) { .timerbulten 0 10 bulten } 
  var %x $rand(0,999999)
  sockopen -e $+(bulten,%x) mobil.misli.com 443
  if $1 {
    hadd -mu5 $+(bulten,%x) komut $1- 
    return
  }
  .hfree -sw iddaa*
}
alias detay {
  var %cod $+(iddaa,$1) 
  if !$hget(%cod,Lig) { echo -a $2 codesine ait bilgi bulunamadi. | return }
  echo -a -
  echo -a 4Code: $1
  echo -a 4Spor Turu: $hget(%cod,spor) 4Lig: $hget(%cod,lig)
  echo -a 4Takimlar: $hget(%cod,takim1) - $hget(%cod,takim2) $iif($hget(%cod,dakika) == ms,"4Durum: Mac Bitti",4Dakika: $hget(%cod,dakika) 2Mac devam ediyor.)
  echo -a $iif($hget(%cod,dakika) == ms,4Mac Sonucu: $hget(%cod,skor1) - $hget(%cod,skor2),4Mac Skoru: $hget(%cod,skor1) - $hget(%cod,skor2))
  echo -a 4Tarih: $hget(%cod,tarih) - $hget(%cod,gun) 4 
  echo -a -
}
on *:sockopen:bulten*: {
  var %komut sockwrite -nt $sockname
  %komut GET /canli-mac-sonuclari HTTP/1.0
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:bulten*: {
  var %x | sockread -f %x 
  if $regex(%x,/\"ScoreType\"(.+)\"MatchTime\"/ig) { var %v1 $regml(1)
    var %x 1
    while $token(%v1,%x,125) { var %v2 $v1    
      if $regex(%v2,/"GameType":"(.+)"/) { var %spr $token($regml(1),1,34) | var %spor $iif(%spr == f,Futbol,$iif(%spr == b,Basketbol,$iif(%spr == v,Voleybol,$iif(%spr == h,Hentbol))))  }
      if $regex(%v2,/"LeagueName":"(.+)"/) { var %lig $token($regml(1),1,34) }
      if $regex(%v2,/"Code":"(.+)"/) { var %code $token($regml(1),1,34) }
      if $regex(%v2,/"HomeTeam":"(.+)"/) { var %takim1 $token($regml(1),1,34) }
      if $regex(%v2,/"AwayTeam":"(.+)"/) { var %takim2 $token($regml(1),1,34) }
      if $regex(%v2,/"MatchDay":"(.+)"/) { var %gun $token($regml(1),1,34) }
      if $regex(%v2,/"MatchDate":"(.+)"/) { var %tarih $token($regml(1),1,34) }
      if $regex($remove(%v2,$chr(44)),/"CurrentHomeTeamScore":(.+)"/) { var %skor1 $token($regml(1),1,34) }
      if $regex($remove(%v2,$chr(44)),/"CurrentAwayTeamScore":(.+)"/) { var %skor2 $token($regml(1),1,34) }
      if $regex($remove(%v2,$chr(44)),/"Status":(.+)"/) { var %status $token($regml(1),1,34) }
      if $regex(%v2,/"CurrentMinute":"(.+)"/) { var %dakika $token($regml(1),1,34) }
      var %date $replace($token(%tarih,1,32),.,/)
  if !$hget($sockname,komut) {
        $iif(!$window(@Bulten),.timer 1 0 window -e @Bulten $(|) editbox @Bulten /detay )
        if $regex(%status,^(3|2|10)) { 
          if !$hget(maclar,%code) {
            echo @bulten 4Code: %code 4Takimlar: %takim1 $+ : %skor1 - %skor2 : $+ %takim2 4Dakika:  $iif(%dakika == Ä°Y,Ilk yari molasi,$v1) - 2Mac devam ediyor. Detaylar icin4 /detay %code 2 yaziniz.
            hadd $+(-mu,$rand(300,600)) maclar %code $+(%skor1,%skor2) skor
          }
          if $hget(maclar,%code) && $token($hget(maclar,%code),1,32) !== $+(%skor1,%skor2) {
            echo @bulten  4Code: %code 4Takimlar: %takim1 $+ : %skor1 - %skor2 : $+ %takim2 4Dakika: %dakika - 2Skor degisti - Mac devam ediyor. 
            hadd $+(-mu,$rand(300,600)) maclar %code $+(%skor1,%skor2) skor
          }
        }
        if !$hget(bitenler,%code) && %dakika == ms {
          echo @bulten 14-MAC BITTI- 4Code: %code 4Takimlar: %takim1 $+ : %skor1 - %skor2 : $+ %takim2 2Detaylari ogrenmek icin 4/detay %code 2yaziniz.
          hadd -mu bitenler %code $+(%skor1,%skor2) skor
        }
        hadd -m $+(iddaa,%code) status %status
        hadd -m $+(iddaa,%code) Lig %lig 
        hadd -m $+(iddaa,%code) spor %spor
        hadd -m $+(iddaa,%code) takim1 %takim1
        hadd -m $+(iddaa,%code) takim2 %takim2 
        hadd -m $+(iddaa,%code) tarih  %tarih 
        hadd -m $+(iddaa,%code) gun %gun 
        hadd -m $+(iddaa,%code) skor1 %skor1
        hadd -m $+(iddaa,%code) skor2 %skor2 
        hadd -m $+(iddaa,%code) dakika %dakika 
      }      
      inc %x
    }
  }
}