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