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

Annotation of /archive/bernie/Bernie.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: 5521 byte(s)
Initial import.

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    

  ViewVC Help
Powered by ViewVC 1.1.26