ROOM ID 619 NOCYBORGS HIDDEN NAME "hole nineteen" PICT "Bar.jpg" DOOR ID 1 NAME "scorecard" OUTLINE 17,352 50,352 50,366 17,366 LOC 33,359 SCRIPT ON ENTER { ; symbol defs caps GLOBAL smalls GLOBAL syms1 GLOBAL syms2 GLOBAL syms3 GLOBAL name GLOBAL tvar2 GLOBAL tscore GLOBAL { PAINTCLEAR } NBRROOMUSERS 1 == IF ; ;character drawing from pname1 Script by AlexandraªÛ¯? ; 22 len = { " " } { " " } tscore 100 < IFELSE tscore ITOA & " " & USERNAME & tvar3 = NBRROOMUSERS 20 * 60 + tvar = 20 tvar PENPOS PENFRONT 1 pensize { len -- "$1" GREPSUB tvar2 = { "len\\" tvar2 & tvar2 = } { "len" tvar2 & tvar2 = } tvar2 "\*" == tvar2 "\." == OR tvar2 "\+" == OR tvar2 "\(" == OR tvar2 "\)" == OR tvar2 "\[" == OR tvar2 "\]" == OR tvar2 "\\" == OR tvar2 "\$" == OR IFELSE "$2" GREPSUB tvar3 = 255 255 255 PENCOLOR ; caps EXEC smalls EXEC syms1 EXEC syms2 EXEC syms3 EXEC } { tvar3 "(.)(.*)" GREPSTR len 0 <> AND } WHILE "" CHATSTR = } ENDSCRIPT ENDDOOR DOOR ID 2 DONTMOVEHERE DEST 600 OUTLINE 404,349 470,349 470,361 404,361 LOC 437,355 SCRIPT ON ENTER { tvar0 GLOBAL tvar1 GLOBAL playd GLOBAL ; ; position avs ; { tvar0 tvar1 SETPOS } 0 tvar0 <> 0 tvar1 <> AND IF inits EXEC ; { " You've already played this hole..." STATUSMSG } playd ROOMID >= IF { " pssst...no skipping holes....." STATUSMSG } playd ROOMID 1 - < IF } ON LEAVE { tvar0 GLOBAL tvar1 GLOBAL ; POSX tvar0 = POSY tvar1 = { PAINTCLEAR } NBRROOMUSERS 1 == IF } ENDSCRIPT ENDDOOR ENDROOM