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	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