ROOM ID 227 NAME "Mouse3 Example" PICT "hcone.gif" PICTURE ID 1 NAME "dice1.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "dice2.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 3 NAME "dice3.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 5 NAME "dice4.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "dice5.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "dice6.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 9 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE SPOT ID 1 DONTMOVEHERE SHOWFRAME OUTLINE 240,176 273,176 273,208 240,208 LOC 256,192 PICTS 1,0,-80 2,45,-60 3,60,-45 5,80,0 6,60,45 7,45,60 1,0,80 2,-45,60 3,-60,45 5,-80,0 6,-60,-45 7,-45,-60 ENDPICTS SCRIPT ;12 direction follow script for dice, 0 is up, goes clockwise ON ENTER { 1 ME SETALARM } ON ALARM { MOUSEPOS y = x = x 256 - dx = y 192 - dy = -1 ns = { dx 0 < 6 * 3 + ns = } dx dy / 4 >= dx dy / -4 <= OR IF { dy 0 > 6 * ns = } dy dx / 4 >= dy dx / -4 <= OR IF { [ [ 4 5 ] [ 2 1 ] [ 8 7 ] [ 10 11 ] ] dx 0 < 2 * dy 0 < + GET dx dx * dy dy * < GET ns = } ns -1 == IF ns ME SETSPOTSTATELOCAL 15 ME SETALARM } ENDSCRIPT ENDSPOT DOOR ID 2 DONTMOVEHERE DEST 225 OUTLINE 5,4 65,4 65,29 5,29 LOC 34,18 PICTS 8,0,0 ENDPICTS ENDDOOR DOOR ID 3 DONTMOVEHERE DEST 190 OUTLINE 448,4 508,4 508,25 448,25 LOC 479,14 PICTS 9,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM