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

kheldor · 01 Ekim 2013, 01:12

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: Kodu kopyalamak için üzerine çift tıklayın!

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Sorunsuz çalışmakta tskler.

saywhat · 01 Ekim 2013, 10:50

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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 )

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
C# dizi dÖngÜsÜ konsol uygulamasi	aSpeNDos	C#	0	08 Mart 2013 15:41
PC mi; konsol mu?	Zen	Oyun Dünyasından Son Haberler	0	04 Mart 2013 22:58
Konsol oyunları Facebook'ta!	Deep	Facebook Haberleri	0	13 Nisan 2012 15:52
İpucu: Google'den Konsol Aracı	Spammer	Google	0	07 Aralık 2011 21:04

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.