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