on *:load:{
hmake timezones
;; Add offsets from GMT in seconds
hadd timezones _list Johannesburg Afghanistan Amsterdam Auckland Bangkok Brazilia Chicago Iraq Melbourne Miami Moscow Paris Seattle Sydney Tokyo Vancouver Washington
hadd timezones Johannesburg 7200
hadd timezones Afghanistan 16200
hadd timezones Amsterdam 3600
hadd timezones Auckland 43200
hadd timezones Bangkok 25200
hadd timezones Brazilia -10800
hadd timezones Chicago -21600
hadd timezones Iraq 12600
hadd timezones Melbourne 36000
hadd timezones Miami -18000
hadd timezones Moscow 10800
hadd timezones Paris 3600
hadd timezones Seattle -28800
hadd timezones Sydney 36000
hadd timezones Tokyo 32400
hadd timezones Vancouver 28800
hadd timezones Washington -18000
}
on *:text:!time:#test:{
;; This will make that the script only run once every 10 seconds
if (%time.flood) { return }
else set -u10 %time.flood On
;; Calculate the time and give output
var %list = $hget(timezones,_list)
var %n = $numtok(%list,32), %i = 1
while (%i <= %n) {
var %place = $gettok(%list,%i,32), %offset = $hget(timezones,%place)
var %time = $gmt + %offset
msg $chan %place - $asctime(%time)
inc %i
}
}