ROOM ID 181 NAME "24 hr world clock map" PICT "worldmap.gif" PICTURE ID 1 NAME "Image0.gif" ENDPICTURE PICTURE ID 2 NAME "Image1.gif" ENDPICTURE PICTURE ID 3 NAME "Image2.gif" ENDPICTURE PICTURE ID 4 NAME "Image3.gif" ENDPICTURE PICTURE ID 5 NAME "Image4.gif" ENDPICTURE PICTURE ID 6 NAME "Image5.gif" ENDPICTURE PICTURE ID 7 NAME "Image6.gif" ENDPICTURE PICTURE ID 8 NAME "Image7.gif" ENDPICTURE PICTURE ID 9 NAME "Image8.gif" ENDPICTURE PICTURE ID 10 NAME "Image9.gif" ENDPICTURE PICTURE ID 11 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 12 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE SPOT ID 9 NAME "Click on a spot to log city time" DONTMOVEHERE SHOWNAME OUTLINE 177,8 332,8 332,28 177,28 LOC 253,12 SCRIPT ON ENTER { 0 9 SETALARM ; initial delay on startclock loop not used so set to zero here. } ON ALARM { cmd GLOBAL ; 24 hour world clock alarm script by InconyBlue FOR WINDOWS USERS adapted from ALAN & FOXY ... with additional work for digital section and mouse pos calculation etc by Incony. ; Inconyblue offers this script in good faith. Users should satisfy themselves as to the suitability of this script before installation. inconyblue@aol.com ; logflag sets the log to show only once for each selection... 1 show.. 0 dont. set in pick place spots logflag GLOBAL ;zoneflag 1 plus GMT 0 minus GMT ; not used ...for future use. zoneflag GLOBAL ; this section gets the mouse position and calculates the hours to add or minus the clock MOUSEPOS SWAP xtspot = MOUSEPOS ytspot = ; not used.. for future use.. ; divides the screen (512) by 21.. to get nearest 24 divisions.. from left to right 0 to 24 xtspot 21 / xthours = 12 picGMT = ; screen center reference. xthours picGMT - hrtoadd = ; take xthours from 12..this gives the multiplier for hour secs ie 5 times 3600 { hrtoadd 3600 * plusGMT = } hrtoadd 12 < IF { 43200 plusGMT = } hrtoadd 12 > IF ; stops time running off screen right and does the calc. { picGMT xthours - hrtominus = } hrtominus 12 < IF ; same section as above,,but for minus GMT hour multiplier, note its reversed because of that. { hrtominus 3600 * minusGMT = } hrtominus 12 < IF ; stops time running off screen left and does the calc. ;{ xtspot ITOA "x" & LOGMSG } logflag 1 == IF ; this isnt used .. for future control.. logs mouse pos for testing. ;{ ytspot ITOA "y" & LOGMSG } logflag 1 == IF {" " LOGMSG} logflag 1 == IF ; puts a blank in the log for spacing text.. {" " LOGMSG} logflag 1 == IF ; daylight savings time, 1 on 0 off. 1 dst = ; this sectiom gets the elapsed secs.. adding or subtracting from GMT dependent on position of mouse to GMT( hrtoadd ). { DATETIME plusGMT + dst 3600 * +} { DATETIME minusGMT - dst 3600 * + } hrtoadd 12 > IFELSE now = ; and stores the result here as now seconds ; this section gets the date from now seconds.. thanks ALAN & FOXY now 86400 / date = 10226 date -= 1998 year = [ "Sunday " "Monday " "Tuesday " "Wednesday " "Thursday " "Friday " "Saturday " ] date 3 + 7 % GET dw = { 365 year 4 % NOT + date -= year ++ } { 365 year 4 % NOT + date < } WHILE [ [ "January " 31 ] [ "February " 28 ] [ "March " 31 ] [ "April " 30 ] [ "May " 31 ] [ "June " 30 ] [ "July " 31 ] [ "August " 31 ] [ "September " 30 ] [ "October " 31 ] [ "November " 30 ] [ "December " 31 ] ] months = { [ "February " 29 ] months 1 PUT } year 4 % NOT IF { month = { month 1 GET date -= } { BREAK } month 1 GET date < IFELSE } months FOREACH {"It is " dw & month 0 GET & date ITOA & ", " & year ITOA & LOGMSG } 1 logflag == IF ; logflag is set to 1 in pick place spots ; this section gets the time.. by dividing now seconds accordingly now 86400 % day = day 3600 / hours = day 3600 % mins_secs = mins_secs 60 / minutes = mins_secs 60 % seconds = hours 12 % hours12 = hours12 10 / hrs_tens = hours12 10 % hrs_ones = minutes 10 / mins_tens = minutes 10 % mins_ones = seconds 10 / secs_tens = seconds 10 % secs_ones = ; cmd is the name of the city..set in pick place spots. { cmd " time is " & hrs_tens ITOA & hrs_ones ITOA &":" & mins_tens ITOA & mins_ones ITOA &":" & secs_tens ITOA & secs_ones ITOA & { " PM" } { " AM" } hours 12 / IFELSE & LOGMSG } logflag 1 == IF { ok ITOA "ok" & LOGMSG } ok 1 == IF 0 logflag = ; this clears the flag so log doesnt show again till next user city spot key press hrs_tens 13 SETSPOTSTATELOCAL ; this section sets the digits spots states. hrs_ones 12 SETSPOTSTATELOCAL mins_tens 11 SETSPOTSTATELOCAL mins_ones 10 SETSPOTSTATELOCAL secs_tens 7 SETSPOTSTATELOCAL secs_ones 6 SETSPOTSTATELOCAL { 0 9 SETSPOTSTATELOCAL } ; this section is the scan loop for the clock, a dummy spotstate loop - spot 9 is the script... { 9 GETSPOTSTATE 0 + 9 SETSPOTSTATELOCAL } 9 GETSPOTSTATE 1 > IFELSE 1 ME SETALARM ; this is the time scan speed, 0 is fastest... needs to be fast to update quickly.. else log lags clock ( but doesnt affect clock up to 60 ticks) } ENDSCRIPT ENDSPOT SPOT ID 6 NAME "onesecs" DONTMOVEHERE SHOWFRAME OUTLINE 319,351 340,351 340,372 319,372 LOC 329,362 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 10,0,0 ENDPICTS ENDSPOT SPOT ID 7 NAME "tensecs" DONTMOVEHERE SHOWFRAME OUTLINE 299,351 319,351 319,372 299,372 LOC 309,362 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 ENDPICTS ENDSPOT SPOT ID 10 NAME "onemins" DONTMOVEHERE SHOWFRAME OUTLINE 266,351 287,351 287,372 266,372 LOC 276,362 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 10,0,0 ENDPICTS ENDSPOT SPOT ID 11 NAME "tenmins" DONTMOVEHERE SHOWFRAME OUTLINE 244,351 266,351 266,372 244,372 LOC 255,362 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 ENDPICTS ENDSPOT SPOT ID 12 NAME "onehours" DONTMOVEHERE SHOWFRAME OUTLINE 212,350 233,350 233,371 212,371 LOC 223,361 PICTS 1,0,0 2,0,0 3,0,0 4,0,0 5,0,0 6,0,0 7,0,0 8,0,0 9,0,0 10,0,0 ENDPICTS ENDSPOT SPOT ID 13 NAME "tenhours" DONTMOVEHERE SHOWFRAME OUTLINE 191,350 212,350 212,371 191,371 LOC 201,362 PICTS 1,0,0 2,0,0 3,0,0 ENDPICTS ENDSPOT SPOT ID 8 NAME "London" DONTMOVEHERE SHOWFRAME OUTLINE 256,133 268,129 266,120 260,120 LOC 262,118 SCRIPT ON SELECT { cmd GLOBAL logflag GLOBAL 1 logflag = zoneflag GLOBAL 1 zoneflag = "London" cmd = ; this gets the code for UK GMT } ENDSCRIPT ENDSPOT SPOT ID 14 NAME " New York" DONTMOVEHERE SHOWFRAME OUTLINE 153,146 168,146 166,155 153,163 LOC 167,143 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "New York" cmd = ; this is the code for New York } ENDSCRIPT ENDSPOT SPOT ID 15 NAME "US Central" DONTMOVEHERE SHOWFRAME OUTLINE 107,144 121,144 120,157 106,157 LOC 119,142 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Denver" cmd = ; this is the code for Denver } ENDSCRIPT ENDSPOT SPOT ID 16 NAME "Los Angeles" DONTMOVEHERE SHOWFRAME OUTLINE 96,162 103,162 103,178 92,166 LOC 80,145 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Los Angeles" cmd = ; this is the code for Los Angeles } ENDSCRIPT ENDSPOT SPOT ID 17 NAME "Brussels" DONTMOVEHERE SHOWFRAME OUTLINE 269,127 279,130 287,145 269,148 LOC 293,131 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Brussels" cmd = ; this is the code for Brussels } ENDSCRIPT ENDSPOT SPOT ID 18 NAME "Moscow" DONTMOVEHERE SHOWFRAME OUTLINE 320,100 335,99 335,119 320,119 LOC 349,102 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 0 zoneflag = "Moscow" cmd = ; this is the code for Moscow } ENDSCRIPT ENDSPOT SPOT ID 19 NAME "Sydney" DONTMOVEHERE SHOWFRAME OUTLINE 463,270 482,300 478,314 463,325 LOC 478,301 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Sydney" cmd = ; this is the code for Sydney } ENDSCRIPT ENDSPOT SPOT ID 20 NAME "Rome" DONTMOVEHERE SHOWFRAME OUTLINE 277,148 287,148 290,158 284,163 LOC 334,247 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Rome" cmd = ; this is the code for Rome } ENDSCRIPT ENDSPOT SPOT ID 21 NAME "Tripoli" DONTMOVEHERE SHOWFRAME OUTLINE 288,171 302,178 302,194 284,186 LOC 262,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Tripoli" cmd = ; this is the code for Tripoli } ENDSCRIPT ENDSPOT SPOT ID 22 NAME "Montreal" DONTMOVEHERE SHOWFRAME OUTLINE 159,131 171,129 170,145 159,144 LOC 287,227 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Montreal" cmd = ; this is the code for Montreal } ENDSCRIPT ENDSPOT SPOT ID 23 NAME "Caracas" DONTMOVEHERE SHOWFRAME OUTLINE 168,219 181,221 181,233 171,240 LOC 256,191 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Caracas" cmd = ; this is the code for Caracas } ENDSCRIPT ENDSPOT SPOT ID 24 NAME "Sao Paulo" DONTMOVEHERE SHOWFRAME OUTLINE 192,304 192,237 215,258 210,284 LOC 257,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Sao Paulo" cmd = ; this is the code for Sao Paulo } ENDSCRIPT ENDSPOT SPOT ID 25 NAME "Beunos Aries" DONTMOVEHERE SHOWFRAME OUTLINE 170,367 171,288 191,311 180,326 LOC 256,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Buenos Aries" cmd = ; this is the code for Beunos Aries } ENDSCRIPT ENDSPOT SPOT ID 26 NAME "Mexico City" DONTMOVEHERE SHOWFRAME OUTLINE 112,181 132,181 129,195 112,195 LOC 256,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Mexico City" cmd = ; this is the code for Mexico City } ENDSCRIPT ENDSPOT SPOT ID 27 NAME "Dakar" DONTMOVEHERE SHOWFRAME OUTLINE 242,208 245,196 254,230 243,222 LOC 254,193 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Dakar" cmd = ; this is the code for Dakar } ENDSCRIPT ENDSPOT SPOT ID 28 NAME "Johannesburg" DONTMOVEHERE SHOWFRAME OUTLINE 303,290 314,286 314,297 304,315 LOC 256,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Johannesburg" cmd = ; this is the code for Johannesburg } ENDSCRIPT ENDSPOT SPOT ID 29 NAME "Khartoum" DONTMOVEHERE SHOWFRAME OUTLINE 299,206 315,204 317,209 307,240 LOC 256,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Khartoum" cmd = ; this is the code for Khartoum } ENDSCRIPT ENDSPOT SPOT ID 30 NAME "Riyadh" DONTMOVEHERE SHOWFRAME OUTLINE 321,191 338,191 337,200 326,209 LOC 256,192 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Riyadh" cmd = ; this is the code for Riyadh } ENDSCRIPT ENDSPOT SPOT ID 31 NAME "Hong Kong" DONTMOVEHERE SHOWFRAME OUTLINE 419,182 431,183 434,201 419,197 LOC 310,180 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Hong Kong" cmd = ; this is the code for Hong Kong } ENDSCRIPT ENDSPOT SPOT ID 32 NAME "Tokyo" DONTMOVEHERE SHOWFRAME OUTLINE 446,167 464,150 459,174 449,177 LOC 331,78 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "tokyo" cmd = ; this is the code for Tokyo } ENDSCRIPT ENDSPOT SPOT ID 33 NAME "Perth" DONTMOVEHERE SHOWFRAME OUTLINE 441,275 441,309 431,318 422,298 LOC 303,222 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Perth" cmd = ; this is the code for Perth } ENDSCRIPT ENDSPOT SPOT ID 34 NAME "Auckland" DONTMOVEHERE SHOWFRAME OUTLINE 503,310 511,312 509,347 503,347 LOC 381,251 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Auckland" cmd = ; this is the code for Auckland } ENDSCRIPT ENDSPOT SPOT ID 35 NAME "Jakarta" DONTMOVEHERE SHOWFRAME OUTLINE 396,232 405,233 420,261 409,256 LOC 262,190 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Jakarta" cmd = ; this is the code for Jakarta } ENDSCRIPT ENDSPOT SPOT ID 36 NAME "Anchorage" DONTMOVEHERE SHOWFRAME OUTLINE 64,97 80,97 80,114 66,108 LOC 270,193 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Anchorage" cmd = ; this is the code for Anchorage } ENDSCRIPT ENDSPOT SPOT ID 37 NAME "Hawaii" DONTMOVEHERE SHOWFRAME OUTLINE 36,185 57,189 57,210 33,202 LOC 161,253 SCRIPT ON SELECT { logflag GLOBAL 1 logflag = cmd GLOBAL zoneflag GLOBAL 1 zoneflag = "Hawaii" cmd = ; this is the code for Hawaii } ENDSCRIPT ENDSPOT DOOR ID 38 DONTMOVEHERE DEST 86 OUTLINE 4,354 62,354 62,380 4,380 LOC 33,366 PICTS 11,0,0 ENDPICTS ENDDOOR DOOR ID 39 DONTMOVEHERE DEST 232 OUTLINE 448,354 508,354 508,379 448,379 LOC 480,368 PICTS 12,0,0 ENDPICTS ENDDOOR ENDROOM