/[james]/archive/bernie/Level1.opl
ViewVC logotype

Annotation of /archive/bernie/Level1.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (hide annotations) (download)
Thu Mar 13 12:07:05 2003 UTC (21 years, 7 months ago) by james
File size: 520 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26