;***
;***
;Simple Time Script by Ford_Lawnmower
;This is a simple script that gets the time from a weather site of all places
;It could easily be edited to get the weather but there are many scripts for that ;/
;So I'll stick to the time
;It has a couple of bugs but it works most of the time ;/
;I think ;;||
;***
;***
alias time.timeout {
  if (%time.error.counter > 0) { .msg %time.chan 6Time not found. 7Suggestions:: %time.error.output | time.clear }
  else {
    .msg %time.chan No match was found for your search criteria %time.nick ... Please refine your search, be more specific or check your spelling... :(
    time.clear
  }
}
alias time.clear {
  unset %time*
  sockclose time
  .timer-time off
  halt
}
on *:TEXT:!time*:#: {
  if (%time.inuse == 1) { .notice $nick Sorry, But Somebody else is already looking up a their time. | time.clear }
  var %time.error.counter
  set %RAWtime.search $2-
  set %time.inuse 1
  set %time.nick $nick
  set %time.chan $chan
  sockclose time
  set %time.search $replacex($2-,$chr(32),+)
  set %timeurl /cgi-bin/findweather/getForecast?query= $+ %time.search
  set %timesite www.wunderground.com
  sockopen time %timesite 80
  .msg $chan 4 $chan 5Time Search... 7Searching for4 Your time 3Please Wait.....
  .timer-time 1 10 time.timeout
}
on *:sockopen:time: {
  sockwrite -n $sockname GET %timeurl HTTP/1.1
  sockwrite -n $sockname Host: %timesite $+ $CRLF $+ $CRLF
}
on *:sockread:time: {
  if ($sockerr > 0) { .msg %time.chan There has been an error... We could not retrive your Time. Sorry | time.clear }
  else {
    var %timevar |  sockread %timevar
    if (<td><a href="/global/ isin %timevar) || (<td><a href="/us/ isin %timevar) {
      set %time.error.output %time.error.output $+ 9<>6 $+ $httpstrip(%timevar)
      inc %time.error.counter
    }
    if (<span class="b"> isin %timevar) && ($upper(am) || $upper(pm) isin %timevar) {
      .msg %time.chan 4,1 The current time for %RAWtime.search is $httpstrip(%timevar)
      sockread %timevar
      time.clear
    }
  }
}
alias -l httpstrip {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

;***
;***
;Simple Time Script by Ford_Lawnmower
;This is a simple script that gets the time from a weather site of all places
;It could easily be edited to get the weather but there are many scripts for that ;/
;So I'll stick to the time
;It has a couple of bugs but it works most of the time ;/
;I think ;;||
;***
;***
alias time.timeout {
  if (%time.chan == echo) { echo -a Connection was timed out... We could not find your time... :( }
  else { .msg %time.chan Connection was timed out...:( }
  time.clear
}
alias time.notfound {
  if (%time.chan == echo) { echo -a time not found. Try being more descriptive ie !time london england }
  else { .msg $chan Time not found. Try being more descriptive. ie !time london england }
  time.clear
}
alias time.clear {
  set %time.inuse 0
  unset %time*
  sockclose time
  .timer-time off
  halt
}
alias time {
  if (%time.inuse == 1) { echo -a time in use. To reset the script type /time.clear | return error1 | halt }
  set %time.inuse 1
  set %time.nick $me
  set %time.chan ECHO
  sockclose time
  set %timeurl /cgi-bin/findweather/getForecast?query= $+ $replace($1-,$chr(32),$chr(37) $+ 20) $+ &wuSelect=WEATHER&MR=1
  set %timesite www.wunderground.com
  ;echo -at opening http:// $+ %timesite $+ %timeurl
  sockopen time %timesite 80
  .timer-time 1 15 time.timeout
}
#WundergroundTime On
on *:TEXT:!time*:# {
  if (%time.inuse == 1) { .notice $nick Sorry, But Somebody else is already looking up a time. | halt }
  if (!$2) { .notice $nick Syntax !time city state/!time zipcode/!time airport code }
  set %time.inuse 1
  set %time.nick $nick
  set %time.chan $chan
  sockclose time
  set %timeurl /cgi-bin/findweather/getForecast?query= $+ $replace($2-,$chr(32),$chr(37) $+ 20) $+ &wuSelect=WEATHER&MR=1
  set %timesite www.wunderground.com
  sockopen time %timesite 80
  .msg $chan 4 $chan time finder... 7Searching for4 time 3Please Wait.....
  .timer-time 1 15 time.timeout
}
#WundergroundTime End
on *:sockopen:time: {
  sockwrite -n $sockname GET %timeurl HTTP/1.1
  sockwrite -n $sockname Host: %timesite $+ $CRLF $+ $CRLF
}
on *:sockread:time: {
  if ($sockerr > 0) { .msg %time.chan There has been an error... I could not retrive your Time Sorry |  time.clear }
  else {
    var %timevar |  sockread %timevar | set %time.line $calc(%time.line + 1)
    if (%time.line > 400) { time.notfound }
    if (There has been an error isin %timevar) { time.notfound }
    if (%time.place.found == on) { unset %time.place.found | set %time.place $httpstrip(%timevar) }
    if (<td class="nobr full"> isin %timevar) { set %time.place.found on }
    if (%time.time.found == on) {
      if (%time.chan == ECHO) {
        echo -a 07The current time for04 %time.place 06is09 $httpstrip(%timevar)
      }
      else {
        .msg %time.chan 07The current time for04 %time.place 06is09 $httpstrip(%timevar)
      }
      time.clear 
    }
    if (Local Time: isin %timevar) { set %time.time.found on }
  }
}
Menu Channel {
  .WundergroundTime
  ..Trigger On: .enable #WundergroundTime
  ..Trigger Off: .disable #WundergroundTime
}
alias -l httpstrip {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9))
  return %x
}