Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;!Time by Ford_Lawnmower irc.geekshed.net #Script-Help
- menu Channel,Status {
- .$iif($group(#Time) == On,$style(1)) !Time Trigger
- ..$iif($group(#Time) == On,$style(2)) On: .enable #Time
- ..$iif($group(#Time) == Off,$style(2)) Off: .disable #Time
- }
- #Time off
- On $*:Text:/^(!|@)Time.*/Si:#: {
- if (!$timer($+(Time,$network,$nick))) {
- .timer $+ $+(Time,$network,$nick) 1 6 noop
- var %method $iif($regml(1) == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $chan,.notice $nick))
- TimeCheck %method $2-
- }
- }
- #Time end
- alias Time { TimeCheck echo -a $1- }
- alias -l TimeCheck {
- $1-2 04Searching for Time ..................
- var %sockname $+(Time,$network,$2,$ticks)
- sockopen %sockname classic.wunderground.com 80
- sockmark %sockname $1-2 $+(/cgi-bin/findweather/getForecast?query=,$fixurl($3-),&wuSelect=WEATHER) $replace($rfixurl($($fixurl($3-),1)),$chr(32),+)
- }
- On *:sockopen:Time*: {
- if (!$sockerr) {
- sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
- sockwrite -n $sockname Host: classic.wunderground.com
- sockwrite -n $sockname $crlf
- }
- else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
- }
- On *:sockread:Time*: {
- if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
- else {
- var %Time | sockread %Time
- if (There has been an error isin %Time) { $gettok($sock($sockname).mark,1-2,32) Time Not Found }
- elseif ($regex(%Time,/<h1>(.*)<\/h1>/)) { sockmark $sockname $addtok($sock($sockname).mark,$regml(1),32) }
- elseif ($regex(%time,/<span class="b">.*<\/span> /)) { noop }
- elseif ($regex(%Time,<td><a href=.*html">(.*)<\/a><\/td>)) { sockmark $sockname $addtok($sock($sockname).mark,$+($regml(1),$chr(7)),32) }
- elseif ($regex(%Time,<span class="b">(.*:.*)<\/span>)) {
- $gettok($sock($sockname).mark,1-2,32) 04Time for $gettok($sock($sockname).mark,5-,32) 04is $regml(1)
- sockclose $sockname
- return
- }
- }
- }
- On *:sockclose:Time*: { $gettok($sock($sockname).mark,1-2,32) 04Time Not Found. Suggestions for $+($replace($gettok($sock($sockname).mark,4,32),+,$chr(32)),:) $gettok($sock($sockname).mark,5-,32) }
- alias -l fixurl { return $regsubex($1-,/([^a-z0-9])/iSg,% $+ $base($asc(\t),10,16,2)) }
- alias -l rfixurl { return $regsubex($1-,/\%([a-f0-9]{1,2})/ig,$chr($base(\t,16,10))) }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement