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