----------------------------------------------------------------- 

ROOM

ID 1811

NAME "Heure mondial"

PICT "worldmap.gif"

PICTURE ID 1 NAME "00-Compteur.gif" ENDPICTURE

PICTURE ID 2 NAME "01-Compteur.gif" ENDPICTURE

PICTURE ID 3 NAME "02-Compteur.gif" ENDPICTURE

PICTURE ID 4 NAME "03-Compteur.gif" ENDPICTURE

PICTURE ID 5 NAME "04-Compteur.gif" ENDPICTURE

PICTURE ID 6 NAME "05-Compteur.gif" ENDPICTURE

PICTURE ID 7 NAME "06-Compteur.gif" ENDPICTURE

PICTURE ID 8 NAME "07-Compteur.gif" ENDPICTURE

PICTURE ID 9 NAME "08-Compteur.gif" ENDPICTURE

PICTURE ID 10 NAME "09-Compteur.gif" ENDPICTURE

PICTURE ID 11 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE

PICTURE ID 12 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE

SPOT

ID 9

NAME "Cliquez sur la ville pour l'heure"

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

ENDROOM