Tekil Mesaj gösterimi
Alt 01 Ekim 2013, 10:50   #4
Çevrimdışı
saywhat
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   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 } } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan