ROOM ID 1300 NOPAINTING NOCYBORGS NAME "Boat Race Start" PICT "boatrac1.gif" ARTIST "Phill Terry" PICTURE ID 1 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "racestrt.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "dlibut.gif" TRANSCOLOR 230 ENDPICTURE PICTURE ID 6 NAME "boatsel2.gif" TRANSCOLOR 8 ENDPICTURE PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 4 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE DOOR ID 1 DONTMOVEHERE OUTLINE 1,1 60,1 60,63 0,62 LOC 129,97 SCRIPT ON ENTER { nLastRoom GLOBAL nTotal GLOBAL fCalcTime GLOBAL cActivity GLOBAL { nTimer GLOBAL TICKS nTimer - n = n 60 / s = n 60 % x = x 14 * 10 / x = "BOAT RACE Time: " s ITOA & "." & x ITOA & " seconds" & SAY } fCalcTime DEF 0 2 SETSPOTSTATELOCAL 0 3 SETSPOTSTATELOCAL "foghorn.wav" SOUND "ahhhh" SOUND "splash" SOUND { 54 270 SETPOS { 74 270 SETPOS } 5 ALARMEXEC { 94 270 SETPOS } 10 ALARMEXEC { 118 270 SETPOS } 15 ALARMEXEC { 142 270 SETPOS } 20 ALARMEXEC { 166 270 SETPOS } 25 ALARMEXEC { 190 270 SETPOS } 30 ALARMEXEC { "@191,230 TIMING HAS STOPPED. START/STOP DIFFERENCE RECORDED." LOCALMSG } 31 ALARMEXEC { fCalcTime GLOBAL fCalcTime EXEC } 32 ALARMEXEC } { { "@73,36 Please click on this \"RACE WAY\" sign to recieve instructions." LOCALMSG } 180 ALARMEXEC } nLastRoom 1307 == "RACING" cActivity == AND IFELSE "" cActivity = } ON SELECT { "@73,36 Please select a boat on the right (RED/GREEN/BLUE - LARGE/SMALL) to use in the race.\x0d *** PLEASE *** SEE YOUR LOG FOR FURTHER INSTRUCTIONS!" LOCALMSG "----------[ INSTRUCTIONS ]----------\x0d1. Select a boat then click the \"START\" button\x0d2. Accidents MAY occur along the way, in which case(s) a 1 second penalty will be assessed against your final timing.." LOGMSG "3. Should an accident occur, you must click a \"restart spot\". These spots are 'like' doors in that the door frame IS visible AND your mouse cursor will tun into a 'hand' when over top of the spot.\x0d4." " If you have an accident, every 15 seconds \"Officer Bob\" will appear and his radar gun will point toward the \"restart spot\"." & " The \"restart spot\" can only be clicked after the accident has happened COMPLETELY." & LOGMSG "5. It is VERY STRONGLY SUGGESTED that you predownload the images for the race course prior to running the course." LOGMSG 1 2 SETSPOTSTATELOCAL } ON LEAVE { nLastRoom GLOBAL ROOMID nLastRoom = } ENDSCRIPT ENDDOOR DOOR ID 2 DONTMOVEHERE OUTLINE 153,11 385,12 384,64 153,64 LOC 269,43 PICTS 1,0,0 6,0,0 ENDPICTS SCRIPT ON SELECT { cLeftBoat GLOBAL cRightBoat GLOBAL cActivity GLOBAL cFried GLOBAL cBobber GLOBAL cDead GLOBAL { MOUSEPOS mpy= mpx= { { "[ 1056626527 1056626535 ] SETPROPS" cLeftBoat = "[ 1056626527 1056626535 ] SETPROPS" cRightBoat = } { { "[ 1013239215 1013239235 1013239276 ] SETPROPS" cLeftBoat = "[ 1056626554 1056626562 ] SETPROPS" cRightBoat = } { "[ 964487543 1013238526 1013239276 ] SETPROPS" cLeftBoat = "[ 1056626547 1056626540 ] SETPROPS" cRightBoat = } mpx 215 > mpx 300 < AND IFELSE } mpx 148 > mpx 216 < AND IFELSE } mpy 12 > mpy 31 < AND IF { { "[ 1056626527 1056626535 ] SETPROPS" cLeftBoat = "[ 1056626474 ] SETPROPS" cRightBoat = } { { "[ 1013238650 1013238680 1013239340 ] SETPROPS" cLeftBoat = "[ 1056626461 ] SETPROPS" cRightBoat = } { "[ 1013238587 1013238604 1013239340 ] SETPROPS" cLeftBoat = "[ 1056626444 ] SETPROPS" cRightBoat = } mpx 215 > mpx 300 < AND IFELSE } mpx 148 > mpx 216 < AND IFELSE } mpy 30 > mpy 62 < AND IF cRightBoat STRTOATOM EXEC { 1 3 SETSPOTSTATELOCAL "@421,51 Select a different colored boat, if you wish. Click this \"START\" button when ready." LOCALMSG "[ 929763508 ] SETPROPS" cFried = "[ 931050520 ] SETPROPS" cDead = "[ -1339881882 -1339881916 -1339881960 -1339881895 ] SETPROPS" cBobber = "SELECTING" cActivity = } cActivity "SELECTING" == NOT IF } 1 ME GETSPOTSTATE == IF } ENDSCRIPT ENDDOOR DOOR ID 3 DONTMOVEHERE OUTLINE 420,5 509,5 509,55 421,55 LOC 464,30 PICTS 1,0,0 3,0,0 ENDPICTS SCRIPT ON SELECT { cActivity GLOBAL cStartTime GLOBAL cRightBoat GLOBAL cRightBoat STRTOATOM EXEC 42 322 SETPOS "RACING" cActivity = 0 2 SETSPOTSTATELOCAL 0 3 SETSPOTSTATELOCAL { 54 322 SETPOS } 5 ALARMEXEC { 70 322 SETPOS } 10 ALARMEXEC { 86 322 SETPOS } 15 ALARMEXEC { 106 322 SETPOS } 20 ALARMEXEC { 130 322 SETPOS } 25 ALARMEXEC { 158 322 SETPOS } 30 ALARMEXEC { 198 322 SETPOS } 35 ALARMEXEC { nTimer GLOBAL TICKS nTimer = } 36 ALARMEXEC { "@191,230 TIMING HAS STARTED." LOCALMSG } 37 ALARMEXEC { 238 322 SETPOS } 40 ALARMEXEC { 282 322 SETPOS } 45 ALARMEXEC { 322 322 SETPOS } 50 ALARMEXEC { 370 322 SETPOS } 55 ALARMEXEC { 418 322 SETPOS } 60 ALARMEXEC { 470 322 SETPOS } 65 ALARMEXEC { 490 322 SETPOS } 70 ALARMEXEC { 1301 GOTOROOM } 71 ALARMEXEC } ENDSCRIPT ENDDOOR DOOR ID 4 DONTMOVEHERE OUTLINE 9,72 120,72 120,121 9,121 LOC 63,96 PICTS 5,0,0 ENDPICTS SCRIPT ON SELECT { "POP" SOUND "@72,29 !PLEASE SEE YOUR LOG FOR INSTRUCTIONS" LOCALMSG { "http://www.atjade.net/downloads/boatrace.zip" GOTOURL } 30 ALARMEXEC "After downloading boatrace.zip, please extract it into your \\Palace\\Media\\" SERVERNAME & "\\Pictures folder" & LOGMSG "If your browser did not launch to download the file, please go to http://www.atjade.net/downloads/boatrace.zip and download the file. Thank you!" LOGMSG } ENDSCRIPT ENDDOOR DOOR ID 5 DONTMOVEHERE DEST 120 OUTLINE 4,354 62,354 62,380 4,380 LOC 33,366 PICTS 2,0,0 ENDPICTS ENDDOOR DOOR ID 6 DONTMOVEHERE DEST 759 OUTLINE 448,354 508,354 508,379 448,379 LOC 480,368 PICTS 4,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM