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