IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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.

Kod:

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

    }

  }

}