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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Game Konsol TCL (https://www.ircforumlari.net/tcl-scriptler/549867-game-konsol-tcl.html)

kheldor 01 Ekim 2013 01:12

Game Konsol TCL
 
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
      }
    }
  }
}


saywhat 01 Ekim 2013 05:59

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


kheldor 01 Ekim 2013 06:43

Cevap: Game Konsol TCL
 
Sorunsuz çalışmakta tskler.

saywhat 01 Ekim 2013 10:50

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


saywhat 01 Ekim 2013 20:25

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...]

saywhat 02 Ekim 2013 17:23

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 )


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:47.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk