IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Game Konsol TCL (https://www.ircforumlari.net/tcl-scriptler/549867-game-konsol-tcl.html)

Daha önce sorunsuz çalışan TCL an itibari ile çalışmamakta.Sanırım ya site güncellendi yada kodlarda bir sıkıntı oluştu. İlgilenebilirseniz sevinirim.

Kod:

bind pub - !GameNew GameNew
 

proc GameNew {nick host hand chan arg} {
 

#(PS3)|(3DS)|(Nintendo DS)|(PC)|(PSP)|(Wii)|(Xbox 360)

  set systems "(PS3)|(3DS)|(Nintendo DS)|(PC)|(PSP)|(Wii)|(Xbox 360)"

  package require http

  

  set url "http://vgreleases.com/ReleaseDates/Upcoming.aspx"

  set page [http::data [http::geturl $url]]
 

  set z 0

  putserv "PRIVMSG $chan :Next 10 games comming out"

  while {$z < 10 && [regexp -line {b>(.*?)<\/b><\/a>.*?">(.*?)<} $page a game system]} {
 

    regexp -line {b>(.*?)<\/b><\/a>.*?">(.*?)<} $page a game system

    regexp -line {;'>(.*?)</span></b>} $page d date

    regsub -line {b>(.*?)<\/b><\/a>.*?">(.*?)<} $page "" page

    regsub -line {;'>(.*?)</span></b>} $page "" page

    if {[regexp $system $systems]} {

      if { [expr { [clock scan $date] - [clock scan seconds] }] > 0} {

        putserv "PRIVMSG $chan :-$game $system - $date"

        incr z

      }

    }

  }

}

Cevap: Game Konsol TCL

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

bind pub - !GameNew GameNew
 

proc GameNew {nick host hand chan arg} {

  set systems "(PS3)|(3DS)|(Nintendo DS)|(PC)|(PSP)|(Wii)|(Xbox 360)"

  package require http

  set url "http://vgreleases.com/ReleaseDates/Upcoming.aspx"

  set page [http::data [http::geturl $url]]

  set z 0

  putserv "PRIVMSG $chan :Çıkan 10 Oyun listeleniyor..."

  while {$z < 10 && [regexp -line {color:#.+"><b>(.*?)</b>.+">(.*?)<} $page a game system]} {

    regexp -line {color:.*?"><b>(.*?)</b>.+">(.*?)<} $page a game system

    regexp -line {;'>(.*?)</span></b>} $page d date

    regsub -line {color:.*?"><b>(.*?)</b>.+">(.*?)<} $page "" page

    regsub -line {;'>(.*?)</span></b>} $page "" page

    if {[regexp $system $systems]} {

      set date [string map -nocase {

      "Jan" "Ocak" "Feb" "Şubat" "Mar" "Mart" "Apr" "Nisan" 

      "May" "Mayıs" "Jun" "Haziran" "Jul" "Temmuz" "Aug" "Ağustos" 

      "Sep" "Eylül" "Oct" "Ekim" "Nov" "Kasım" "Dec" "Aralık"} [join $date]]

        putserv "PRIVMSG $chan :-$game $system - $date"

        incr z

      }

   }

}

Cevap: Game Konsol TCL

Sorunsuz çalışmakta tskler.

Cevap: Game Konsol TCL

renk + kalan süre + linkleri eklenmiş hali (nasıl tercih edilirse...)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

bind pub - !GameNew GameNew
 

proc GameNew {nick host hand chan arg} {

  set systems "(PS3)|(3DS)|(Nintendo DS)|(PC)|(PSP)|(Wii)|(Xbox 360)"

  package require http

  set url "http://vgreleases.com/ReleaseDates/Upcoming.aspx"

  set page [http::data [http::geturl $url]]

  set z 0

  putserv "PRIVMSG $chan :\00304 Çıkan 10 Oyun listeleniyor...\00304"

  while {$z < 10 && [regexp -line {ReleaseDate-(.*?)" style="color:.*?"><b>(.*?)</b>.+">(.*?)<} $page a rurl game system]} {

    regexp -line {ReleaseDate-(.*?)" style="color:.*?"><b>(.*?)</b>.+">(.*?)<} $page a rurl game system

    regexp -line {a3a3a3;'>(.*?)<} $page j days

    regexp -line {;'>(.*?)</span></b>} $page d date

    regsub -line {ReleaseDate-(.*?)" style="color:.*?"><b>(.*?)</b>.+">(.*?)<} $page "" page

    regsub -line {;'>(.*?)</span></b>} $page "" page

    regsub -line {a3a3a3;'>(.*?)<} $page "" page

    if {[regexp $system $systems]} {

      set date [string map -nocase {

      "Jan" "Ocak" "Feb" "Şubat" "Mar" "Mart" "Apr" "Nisan" 

      "May" "Mayıs" "Jun" "Haziran" "Jul" "Temmuz" "Aug" "Ağustos" 

      "Sep" "Eylül" "Oct" "Ekim" "Nov" "Kasım" "Dec" "Aralık"} [join $date]]

      set pr [string map -nocase {"Xbox 360" "Xbox360" "Nintendo DS" "NintendoDS" "(" "" ")" ""} [join $system]]

      set days [string map {"day" "günü" "s" "" "left" "kaldı" "out now" "çıktı"} [join $days]]

      set i [expr {$z + 1}]

        putserv "PRIVMSG $chan :\002$i\002 -> \00312 $game\00312 - \00304Platformu\00304 :\00312 $system\00312 - \00304Çıkış Tarihi\00304 :\00312 $date\00312 - \00304Kalan Zamanı\00304: \00312 $days\00312 -  \00304Link\00304 : \037\00314 http://vgreleases.com/$pr/ReleaseDate-$rurl \037\00314"

        incr z

        }

    }

}

Cevap: Game Konsol TCL

bugün çıkan/lar için daha farklı bir renk kodu kullanıyormuş site ..sabah baktığımda hepsi aynıydı,ama şimdi farklı ..imiş...

buna göre ayarlandı/onarıldı...
->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Game Konsol TCL

birde başımıza tomorrow ile yesterday peydah oldu...
bunları da tanımlamak/ Türkçeleştirmek için :

Kod:

set days [string map {"day" "günü" "s" "" "left" "kaldı" "out now" "çıktı" "today" "bugün çıkıyor"} [join $days]]

satırına : "yesterday" "dün çıktı" "tomorrow" "yarın çıkacak"
şeklinde ekleme yapılmalı ki bunlarıda çevirebilsin.

bunlardan gayrı daha da sürprizi olursa sitenin ,bu şekilde tırnaklar içinde "orjinali ingilizce'si" "Türkçe çevirisi" şeklinde ,kod içindeki satırda belirtirsiniz..

(oyun seven - oynayan/ilgilenen biride değilimdir. artık sıkıldım bu sitenin süprizlerinden ,o nedenle daha fazlada ilgilenmek istemiyorum ..bu son )