Video Game Releases

By Gecko321 on Jun 19, 2012

Show the 10 upcoming video games from

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 ""
  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 :-$date - $game $system"
        incr z


Sign in to comment.
henkie2   -  Jun 29, 2013

Hi Gecko
Any change to get a update on this snip?
THX they changed the code a bit

JD75   -  Sep 26, 2012

I have this error please advise ?

"Tcl error [GameNew]: unable to convert date-time string "Q3 2012": more than one time of day in string"

Fuzion   -  Jul 01, 2012

great work very nice code i use it on one of my eggdrops users love it :)

Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.