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

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

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

set days [string map {"day" "günü" "s" "" "left" "kaldı" "out now" "çıktı" "today" "bugün çıkıyor"} [join $days]]