archive/bernie/Level1.opl

REM Level1

PROC initt:
d$(1)="Teleport room"
ENDP

PROC long:
IF p%=1
out:("You are in a large room, with a teleport in one corner. Other machinery is placed around the room, and display screens flicker on the walls. There are no visible exits.")
ENDIF
ENDP

PROC gn:
nogo:
ENDP

PROC gw:
nogo:
ENDP

PROC gs:
nogo:
ENDP

PROC ge:
nogo:
ENDP

PROC gd:
nogo:
ENDP

PROC gu:
nogo:
ENDP

PROC useo:(o%)
out:("You can't do that")
ENDP

PROC say:
out:("There is no response")
ENDP
1	james	23	REM Level1
2
3			PROC initt:
4			d$(1)="Teleport room"
5			ENDP
6
7			PROC long:
8			IF p%=1
9			out:("You are in a large room, with a teleport in one corner. Other machinery is placed around the room, and display screens flicker on the walls. There are no visible exits.")
10			ENDIF
11			ENDP
12
13			PROC gn:
14			nogo:
15			ENDP
16
17			PROC gw:
18			nogo:
19			ENDP
20
21			PROC gs:
22			nogo:
23			ENDP
24
25			PROC ge:
26			nogo:
27			ENDP
28
29			PROC gd:
30			nogo:
31			ENDP
32
33			PROC gu:
34			nogo:
35			ENDP
36
37			PROC useo:(o%)
38			out:("You can't do that")
39			ENDP
40
41			PROC say:
42			out:("There is no response")
43			ENDP