Spor Bulten Skor Takip Kodu

Kod Sahibi : Set

Merhabalar, Bir cok dalda iddia oynayan insanlar bulunmaktadir, Bende bu amacli guncel takip edebileceginiz bir sistem yapmak istedim.

Calisma Sekli: oto sistemdir, codu mircinize ekleyip /bulten yazmaniz gerekir bir kereye mahsus, diger seferlerde mirc’i her actıgınızda otomotik kendi kendine sistem caliscaktir.

Gerekli seyler: mIRC SSL oto onay gereklidir. Buradan Bulabilirsiniz. ve mIRC 6.35 ustu surumlerde calisir.

spor takip

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
    }
  }
}

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.