archive/bernie/Bernie.opl

REM Bernie

PROC main:
GLOBAL d%(31),d$(31,30),o%(20),o$(20,20),p%,i$(100),c%,t%(12),sc%,o$(100),go%,f%,l%,info%(32),tp%,lev%
LOADM "Objects"
LOADM "Level"+NUM$(lev%,1)
init:
inito:
initt:
score:
disp:
intro:
 DO
  print:
  input:
 UNTIL 0
ENDP

PROC init:
STATUSWIN ON
FONT 1,0
f%=8
font:
l%=1
p%=1
sc%=-1
ENDP

PROC score:
sc%=sc%+1
ENDP

PROC disp:
DIAMINIT 1,"Score:",NUM$(sc%,6),"Turns:",NUM$(go%,6)
DIAMPOS 0
ENDP

PROC intro:
out:("You are Bernard (but you prefer to be called Bernie) and it came as no great surprise to you when Zames started another plan for world domination.")
out:("As if that wasn't enough the local weatherman has turned into a demented tyrant, bent on taking over the world's atmosphere. Your amplifier is broken, you've got to go to your girlfriend's concert and you can't find any damn fish food...")
out:("")
ENDP

PROC wait:
BUSY "Press a key..."
GET
BUSY OFF
ENDP

PROC print:
LOCAL a%,b%
IF d%(p%) :out:(d$(p%))
ELSE :long: :d%(p%)=1
ENDIF
a%=1: b%=0
 DO
   IF o%(a%)=lev%*100+p%
    IF b%=0 :out:("You can see the following:") :b%=1 :ENDIF
    out:(o$(a%))
   ENDIF
  a%=a%+1
 UNTIL a%>20
ENDP

PROC input:
c%=0
 DO
  in:
  l%=1
  parse:
 UNTIL c%
ENDP

PROC parse:
i$=LOWER$(i$)
o$=RIGHT$(i$,LEN(i$)-LOC(i$," "))
go%=go%+1
IF i$="n" OR i$="north" :gn:
ELSEIF i$="w" OR i$="west" :gw:
ELSEIF i$="s" OR i$="south" :gs:
ELSEIF i$="e" OR i$="east" :ge:
ELSEIF i$="d" OR i$="down" :gd:
ELSEIF i$="u" OR i$="up" :gu:
ELSEIF i$="l" OR i$="look" :d%(p%)=0 :c%=1
ELSEIF LEFT$(i$,4)="get " OR LEFT$(i$,5)="take " OR LEFT$(i$,5)="wear " :get:
ELSEIF LEFT$(i$,5)="drop " :drop:
ELSEIF i$="i" OR i$="inventory" :inv:
ELSEIF LEFT$(i$,2)="x " OR LEFT$(i$,8)="examine " OR LEFT$(i$,8)="look at " :x:
ELSEIF LEFT$(i$,4)="use " :use:
ELSEIF LEFT$(i$,4)="eat " OR LEFT$(i$,6)="drink " :eat:
ELSEIF LEFT$(i$,4)="say " :say:
ELSEIF i$="" :out:("Typing something would help...") :go%=go%-1
ELSE out:("I don't understand '"+i$+"'") :go%=go%-1
ENDIF
IF tp% :nextlev: :tp%=0 :ENDIF
disp:
ENDP

PROC nogo:
out:("You can't go that way")
c%=0
ENDP

PROC get:
LOCAL a%,b%
a%=1 :b%=0
 DO
   IF o%(a%)=lev%*100+p% AND o$(a%)=o$
    o%(a%)=-1
    out:("Taken")
    b%=1
   ENDIF
  a%=a%+1
 UNTIL a%>20 OR b%
IF b%=0 :out:("There doesn't seem to be anything like that here") :ENDIF
ENDP

PROC drop:
LOCAL a%,b%
a%=1 :b%=0
 DO
   IF o%(a%)=-1 AND o$(a%)=o$
    o%(a%)=lev%*100+p%
    out:("Dropped")
    b%=1
   ENDIF
  a%=a%+1
 UNTIL a%>20 OR b%
IF b%=0 :out:("You don't seem to have anything like that") :ENDIF
ENDP

PROC inv:
LOCAL a%,b%
a%=1
 DO
   IF o%(a%)=-1
    IF b%=0 :out:("You are carrying the following:") :b%=1 :ENDIF
    out:(o$(a%))
   ENDIF
  a%=a%+1
 UNTIL a%>20
IF b%=0: out:("You are not carrying anything") :ENDIF
ENDP

PROC x:
LOCAL a%,b%
a%=1 :b%=0
 DO
   IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
    xo:(a%)
    b%=1
   ENDIF
  a%=a%+1
 UNTIL a%>20 OR b%
IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
ENDP

PROC use:
LOCAL a%,b%
a%=1 :b%=0
 DO
   IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
    useo:(a%)
    b%=1
   ENDIF
  a%=a%+1
 UNTIL a%>20 OR b%
IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
ENDP

PROC eat:
LOCAL a%,b%
a%=1 :b%=0
 DO
   IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
    eato:(a%)
    b%=1
   ENDIF
  a%=a%+1
 UNTIL a%>20 OR b%
IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
ENDP

PROC end:
out:("")
out:("GAME OVER")
out:("Your score was "+NUM$(sc%,10))
out:("")
out:("")
BUSY "Press a key to exit"
GET
STOP
ENDP

PROC win:
out:("")
out:("GAME COMPLETED")
out:("Your score was "+NUM$(sc%,10))
out:("")
out:("")
BUSY "Press a key to exit"
GET
STOP
ENDP

PROC nextlev:
LOCAL a%
UNLOADM "Level"+NUM$(lev%,1)
lev%=lev%+1
LOADM "Level"+NUM$(lev%,1)
p%=1
initt:
a%=1 :DO :d%(a%)=0 :a%=a%+1 :UNTIL a%=32
a%=1 :DO :t%(a%)=0 :a%=a%+1 :UNTIL a%=13
c%=1
ENDP

PROC out:(text$)
LOCAL t$(255),space%,w$(100),c$(1),swidth%
t$=text$
swidth%=gTWIDTH(" ")
l%=l%+1
IF l%*(info%(3)+4)>gHEIGHT :wait: :l%=2 :ENDIF
gSCROLL 0,-(info%(3)+4)
gAT 2,gHEIGHT-(info%(4)+2)
 DO
  space%=LOC(t$," ")
   IF space%
    w$=LEFT$(t$,space%-1)
    t$=RIGHT$(t$,LEN(t$)-space%)
   ELSE
    w$=t$
    t$=""
   ENDIF
  c$=LEFT$(w$,1)
  IF c$="*" :gSTYLE 1 :w$=RIGHT$(w$,LEN(w$)-1)
  ELSEIF c$="/" :gSTYLE 32 :w$=RIGHT$(w$,LEN(w$)-1)
  ELSEIF c$="+" :gSTYLE 33 :w$=RIGHT$(w$,LEN(w$)-1)
  ELSEIF c$="#" :gSTYLE 0 :w$=RIGHT$(w$,LEN(w$)-1)
  ENDIF
   IF w$>"" AND gX+gTWIDTH(w$)>gWIDTH
    l%=l%+1
    IF l%*(info%(3)+4)>gHEIGHT :wait: :l%=2 :ENDIF
    gSCROLL 0,-(info%(3)+4)
    gAT 2,gHEIGHT-(info%(4)+2)
   ENDIF
  gPRINT w$+" "
 UNTIL t$=""
ENDP

PROC in:
LOCAL w%,g%
l%=1
out:(">")
w%=gTWIDTH(">")
i$=""
gSTYLE 1
 DO
  gAT 4+w%,gY
  gPRINTB i$,gWIDTH
  g%=GET
   IF g%=8
    IF i$>"" :i$=LEFT$(i$,LEN(i$)-1) :ENDIF
   ELSEIF g%>31 AND g%<256
    i$=i$+CHR$(g%)
   ELSEIF g%=292
    IF f%>8 :f%=f%-4 :ELSE :f%=f%+4 :ENDIF
    font:
    out:(">")
    w%=gTWIDTH(">")
    gSTYLE 1
   ELSEIF g%=634
    f%=f%+1
    IF f%=9 :f%=5 :ELSEIF f%=13 :f%=9 :ENDIF
    font:
    out:(">")
    w%=gTWIDTH(">")
    gSTYLE 1
   ENDIF
 UNTIL g%=13
gSTYLE 0
ENDP

PROC font:
gFONT f%
gSTYLE 0
gCLS
gINFO info%()
l%=1
ENDP

1	james	23	REM Bernie
2
3			PROC main:
4			GLOBAL d%(31),d$(31,30),o%(20),o$(20,20),p%,i$(100),c%,t%(12),sc%,o$(100),go%,f%,l%,info%(32),tp%,lev%
5			LOADM "Objects"
6			LOADM "Level"+NUM$(lev%,1)
7			init:
8			inito:
9			initt:
10			score:
11			disp:
12			intro:
13			DO
14			print:
15			input:
16			UNTIL 0
17			ENDP
18
19			PROC init:
20			STATUSWIN ON
21			FONT 1,0
22			f%=8
23			font:
24			l%=1
25			p%=1
26			sc%=-1
27			ENDP
28
29			PROC score:
30			sc%=sc%+1
31			ENDP
32
33			PROC disp:
34			DIAMINIT 1,"Score:",NUM$(sc%,6),"Turns:",NUM$(go%,6)
35			DIAMPOS 0
36			ENDP
37
38			PROC intro:
39			out:("You are Bernard (but you prefer to be called Bernie) and it came as no great surprise to you when Zames started another plan for world domination.")
40			out:("As if that wasn't enough the local weatherman has turned into a demented tyrant, bent on taking over the world's atmosphere. Your amplifier is broken, you've got to go to your girlfriend's concert and you can't find any damn fish food...")
41			out:("")
42			ENDP
43
44			PROC wait:
45			BUSY "Press a key..."
46			GET
47			BUSY OFF
48			ENDP
49
50			PROC print:
51			LOCAL a%,b%
52			IF d%(p%) :out:(d$(p%))
53			ELSE :long: :d%(p%)=1
54			ENDIF
55			a%=1: b%=0
56			DO
57			IF o%(a%)=lev%*100+p%
58			IF b%=0 :out:("You can see the following:") :b%=1 :ENDIF
59			out:(o$(a%))
60			ENDIF
61			a%=a%+1
62			UNTIL a%>20
63			ENDP
64
65			PROC input:
66			c%=0
67			DO
68			in:
69			l%=1
70			parse:
71			UNTIL c%
72			ENDP
73
74			PROC parse:
75			i$=LOWER$(i$)
76			o$=RIGHT$(i$,LEN(i$)-LOC(i$," "))
77			go%=go%+1
78			IF i$="n" OR i$="north" :gn:
79			ELSEIF i$="w" OR i$="west" :gw:
80			ELSEIF i$="s" OR i$="south" :gs:
81			ELSEIF i$="e" OR i$="east" :ge:
82			ELSEIF i$="d" OR i$="down" :gd:
83			ELSEIF i$="u" OR i$="up" :gu:
84			ELSEIF i$="l" OR i$="look" :d%(p%)=0 :c%=1
85			ELSEIF LEFT$(i$,4)="get " OR LEFT$(i$,5)="take " OR LEFT$(i$,5)="wear " :get:
86			ELSEIF LEFT$(i$,5)="drop " :drop:
87			ELSEIF i$="i" OR i$="inventory" :inv:
88			ELSEIF LEFT$(i$,2)="x " OR LEFT$(i$,8)="examine " OR LEFT$(i$,8)="look at " :x:
89			ELSEIF LEFT$(i$,4)="use " :use:
90			ELSEIF LEFT$(i$,4)="eat " OR LEFT$(i$,6)="drink " :eat:
91			ELSEIF LEFT$(i$,4)="say " :say:
92			ELSEIF i$="" :out:("Typing something would help...") :go%=go%-1
93			ELSE out:("I don't understand '"+i$+"'") :go%=go%-1
94			ENDIF
95			IF tp% :nextlev: :tp%=0 :ENDIF
96			disp:
97			ENDP
98
99			PROC nogo:
100			out:("You can't go that way")
101			c%=0
102			ENDP
103
104			PROC get:
105			LOCAL a%,b%
106			a%=1 :b%=0
107			DO
108			IF o%(a%)=lev%*100+p% AND o$(a%)=o$
109			o%(a%)=-1
110			out:("Taken")
111			b%=1
112			ENDIF
113			a%=a%+1
114			UNTIL a%>20 OR b%
115			IF b%=0 :out:("There doesn't seem to be anything like that here") :ENDIF
116			ENDP
117
118			PROC drop:
119			LOCAL a%,b%
120			a%=1 :b%=0
121			DO
122			IF o%(a%)=-1 AND o$(a%)=o$
123			o%(a%)=lev%*100+p%
124			out:("Dropped")
125			b%=1
126			ENDIF
127			a%=a%+1
128			UNTIL a%>20 OR b%
129			IF b%=0 :out:("You don't seem to have anything like that") :ENDIF
130			ENDP
131
132			PROC inv:
133			LOCAL a%,b%
134			a%=1
135			DO
136			IF o%(a%)=-1
137			IF b%=0 :out:("You are carrying the following:") :b%=1 :ENDIF
138			out:(o$(a%))
139			ENDIF
140			a%=a%+1
141			UNTIL a%>20
142			IF b%=0: out:("You are not carrying anything") :ENDIF
143			ENDP
144
145			PROC x:
146			LOCAL a%,b%
147			a%=1 :b%=0
148			DO
149			IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
150			xo:(a%)
151			b%=1
152			ENDIF
153			a%=a%+1
154			UNTIL a%>20 OR b%
155			IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
156			ENDP
157
158			PROC use:
159			LOCAL a%,b%
160			a%=1 :b%=0
161			DO
162			IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
163			useo:(a%)
164			b%=1
165			ENDIF
166			a%=a%+1
167			UNTIL a%>20 OR b%
168			IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
169			ENDP
170
171			PROC eat:
172			LOCAL a%,b%
173			a%=1 :b%=0
174			DO
175			IF (o%(a%)=-1 OR o%(a%)=lev%*100+p%) AND o$(a%)=o$
176			eato:(a%)
177			b%=1
178			ENDIF
179			a%=a%+1
180			UNTIL a%>20 OR b%
181			IF b%=0 :out:("There doesn't seem to be anything like that around") :ENDIF
182			ENDP
183
184			PROC end:
185			out:("")
186			out:("GAME OVER")
187			out:("Your score was "+NUM$(sc%,10))
188			out:("")
189			out:("")
190			BUSY "Press a key to exit"
191			GET
192			STOP
193			ENDP
194
195			PROC win:
196			out:("")
197			out:("GAME COMPLETED")
198			out:("Your score was "+NUM$(sc%,10))
199			out:("")
200			out:("")
201			BUSY "Press a key to exit"
202			GET
203			STOP
204			ENDP
205
206			PROC nextlev:
207			LOCAL a%
208			UNLOADM "Level"+NUM$(lev%,1)
209			lev%=lev%+1
210			LOADM "Level"+NUM$(lev%,1)
211			p%=1
212			initt:
213			a%=1 :DO :d%(a%)=0 :a%=a%+1 :UNTIL a%=32
214			a%=1 :DO :t%(a%)=0 :a%=a%+1 :UNTIL a%=13
215			c%=1
216			ENDP
217
218			PROC out:(text$)
219			LOCAL t$(255),space%,w$(100),c$(1),swidth%
220			t$=text$
221			swidth%=gTWIDTH(" ")
222			l%=l%+1
223			IF l%*(info%(3)+4)>gHEIGHT :wait: :l%=2 :ENDIF
224			gSCROLL 0,-(info%(3)+4)
225			gAT 2,gHEIGHT-(info%(4)+2)
226			DO
227			space%=LOC(t$," ")
228			IF space%
229			w$=LEFT$(t$,space%-1)
230			t$=RIGHT$(t$,LEN(t$)-space%)
231			ELSE
232			w$=t$
233			t$=""
234			ENDIF
235			c$=LEFT$(w$,1)
236			IF c$="*" :gSTYLE 1 :w$=RIGHT$(w$,LEN(w$)-1)
237			ELSEIF c$="/" :gSTYLE 32 :w$=RIGHT$(w$,LEN(w$)-1)
238			ELSEIF c$="+" :gSTYLE 33 :w$=RIGHT$(w$,LEN(w$)-1)
239			ELSEIF c$="#" :gSTYLE 0 :w$=RIGHT$(w$,LEN(w$)-1)
240			ENDIF
241			IF w$>"" AND gX+gTWIDTH(w$)>gWIDTH
242			l%=l%+1
243			IF l%*(info%(3)+4)>gHEIGHT :wait: :l%=2 :ENDIF
244			gSCROLL 0,-(info%(3)+4)
245			gAT 2,gHEIGHT-(info%(4)+2)
246			ENDIF
247			gPRINT w$+" "
248			UNTIL t$=""
249			ENDP
250
251			PROC in:
252			LOCAL w%,g%
253			l%=1
254			out:(">")
255			w%=gTWIDTH(">")
256			i$=""
257			gSTYLE 1
258			DO
259			gAT 4+w%,gY
260			gPRINTB i$,gWIDTH
261			g%=GET
262			IF g%=8
263			IF i$>"" :i$=LEFT$(i$,LEN(i$)-1) :ENDIF
264			ELSEIF g%>31 AND g%<256
265			i$=i$+CHR$(g%)
266			ELSEIF g%=292
267			IF f%>8 :f%=f%-4 :ELSE :f%=f%+4 :ENDIF
268			font:
269			out:(">")
270			w%=gTWIDTH(">")
271			gSTYLE 1
272			ELSEIF g%=634
273			f%=f%+1
274			IF f%=9 :f%=5 :ELSEIF f%=13 :f%=9 :ENDIF
275			font:
276			out:(">")
277			w%=gTWIDTH(">")
278			gSTYLE 1
279			ENDIF
280			UNTIL g%=13
281			gSTYLE 0
282			ENDP
283
284			PROC font:
285			gFONT f%
286			gSTYLE 0
287			gCLS
288			gINFO info%()
289			l%=1
290			ENDP
291