jsbasic/samples/sample.platformer.txt

1 text:home:PR# 3 : gosub 500
2 lvl=1 :home
3 let k=0
4 let lives=5
5 let key$="NO"
6 let kx=29 :let ky=27
7 let s=0
8 let e=0
9 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
10 let levelt=1
11 let j=1
12 gr
13 color=6
14 for q=1 to 39
15 hlin 0,39 at k :let k=k+1
16 next q
17 color=10
18 vlin 0,38 at 39
19 color=13 :for sun=1 to 7
20 hlin 18,21 at j :let j=j+1
21 next sun
22 color=13
23 let cx=25 :let cy=19
24 rem Beckett's Stuff (no bugs so far)
25 plot cx,cy
26 color=9 :plot kx,ky
27 let X=12: let Y=23
28 let score=0
29 print "SCORE:";score
30 print "LIVES:";lives
31 print "KEY OBTAINED?";key$
32 rem Level Plotter
33 color=12
34 dim z0(39,39)
35 read x1,y1
36 if x1=0 and y1=0 goto 44
37 z0(x1,y1)=1
38 plot x1,y1
39 color=5
40 plot x1,(y1+1) :color=12
41 goto 35
42 rem Init Character Plotter
43 color=2
44 color=2
45 plot x,y
46 rem get-key and other functions
47 if X=25 and Y=19 and s=0 then htab(18):vtab(12):let score=score+1 :home :htab 1:vtab 23 :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$:let s=1 : gosub 95 :goto 50
48 if X=29 and Y=27 and e=0 then home :htab 1:vtab 23 :let key$="YES" :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$ :let e=1: gosub 113 :goto 50
49 if lives<1 then text: home: htab (17):vtab(12):flash:print "YOU LOSE!":normal:end
50 color=2 :plot x,y :let c$="":get c$
51 if x<0 then let x=0
52 if x>39 and levelt=1 then let x=39
53 if c$="W" goto 57
54 if c$="A" then  color=6 :plot x,y : let X=X-1 :color=2 :plot x,y :if z0(X,Y+1)=0 then goto 65:if z0(X,Y+1)=1 then goto 44
55 if c$="D" then color=6 :plot x,y :let X=X+1 :color=2 : plot x,y :if z0(X,Y+1)=0 then goto 65:if z0(X,Y+1)=1 then goto 44
56 goto 47
57 for i=1 to 6: plot x,y
58 gosub 77
59 color=6 :plot x,y :let Y=Y-1
60 for r=1 to 125
61 color=2 :plot x,y
62 next r
63 gosub 79
64 next i
65 plot x,y
66 color=6 :plot x,y :let Y=Y+1
67 for o=1 to 75
68 color=2 :plot x,y
69 next o
70 gosub 79
71 gosub 74
72 goto 65
73 goto 47
74 if z0(X,Y+1)=1 goto 47
75 if y=38 then color=6: plot x,y :let X=12: let Y=23 :color=2 :plot x,y :let lives=lives-1 :print chr$(7):home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$ :goto 47
76 return
77 if z0(X,Y-2)=1 goto 65
78 return
79 let k=PEEK(49152)
80 if k=196 and x<38 then color=6 :plot x,y :X=X+1
81 if k=193 and x>1 then color=6 :plot x,y :X=X-1
82 if z0(x,y)=1 and k=196 then let x=x-1 :plot x,y
83 if z0(x,y)=1 and k=193 then let x=x+1 :plot x,y
84 if z0(x,y+1)=1 and k=196 then let x=x-1 :plot x,y
85 if z0(x,y+1)=1 and k=193 then let x=x+1 :plot x,y
86 if z0(x,y-1)=1 and k=196 then let x=x-1 :plot x,y
87 if z0(x,y-1)=1 and k=193 then let x=x+1 :plot x,y
88 let k=PEEK(49168)
89 color=2 :plot x,y
90 return
91 rem Map Data
92 data 1,24,2,24,3,24,4,24,5,24,6,24,7,24,8,24,9,24,10,24,11,24,12,24,13,24,14,24,15,24,16,24,17,24,18,24
93 data 20,28,21,28,22,28,23,28,24,28,25,28,26,28,27,28,28,28,29,28,30,28,31,28,32,28,33,28,34,28,35,28,36,28,37,28
94 data 20,20,21,20,22,20,23,20,24,20,25,20,26,20,27,20,0,0
95 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
96 let cy=cy-1
97 color=13 :plot cx,cy
98 for t=1 to 65
99 plot cx,cy
100 next t
101 color=6 :plot cx,cy
102 next w
103 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
104 let cy=cy+1
105 color=13 :plot cx,cy
106 for t=1 to 65
107 plot cx,cy
108 next t
109 color=6 :plot cx,cy
110 next w
111 color=2 :plot x,y
112 return
113 for w=1 to 6
114 let ky=ky-1
115 color=9 :plot kx,ky
116 for t=1 to 65
117 plot kx,ky
118 next t
119 color=6 :plot kx,ky
120 next w
121 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
122 let ky=ky+1
123 color=9 :plot kx,ky
124 for t=1 to 65
125 plot kx,ky
126 next t
127 color=6 :plot kx,ky
128 next w
129 color=2 :plot x,y :print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
130 color=6 :vlin 19,20 at 39 :for e=1 to 300
131 vlin 18, 21 at 39 :next e :for e=1 to 300
132 vlin 17,22 at 39 :next e :for e=1 to 300
133 vlin 16,23 at 39:next e :for e=1 to 300
134 vlin 15,24 at 39:next e :for e=1 to 300
135 vlin 14,25 at 39 :next e :for e=1 to 300
136 vlin 13,26 at 39 :next e
137 color=2 :vlin 19,20 at 39 :for e=1 to 325
138 color=3 :plot 39,18 :plot39,21 :next e :for e=1 to 325
139 color=2 :plot 39,17 :plot39,22 :next e :for e=1 to 325
140 color=3 :plot 39,16 :plot39,23:next e :for e=1 to 325
141 color=2 :plot 39,15:plot39,24:next e :for e=1 to 325
142 color=3 :plot 39,14 :plot39,25 :next e
143 for a=1 to 500
144 color=2: plot x,y
145 next a
146 for ab=1 to 7
147 color=6 :plot x,y :let y=y-1
148 for sus=1 to 85
149 color=2 :plot x,y
150 next sus
151 next ab
152 for wa=1 to 25
153 color=2 :plot x,y
154 next wa
155 for abc=1 to 10
156 color=6 :plotx,y :let x=x+1
157 for sus=1 to 85
158 color=2 :plot x,y
159 next sus
160 next abc
161 let lvl=2
162 home
163 let k=0
164 let key$="NO"
165 if lvl=2 then goto 320
166 if lvl=1 then let kx=29 :let ky=27
167 let s=0
168 let e=0
169 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
170 let levelt=1
171 let j=31
172 gr
173 color=1
174 for q=1 to 39
175 hlin 0,39 at k :let k=k+1
176 next q
177 color=10
178 vlin 0,38 at 39
179 color=13 :for sun=1 to 7
180 hlin 18,21 at j :let j=j+1
181 next sun
182 color=13
183 let cx=22 :let cy=26
184 rem Beckett's Stuff (no bugs so far)
185 plot cx,cy
186 color=9 :plot kx,ky
187 let X=3: let Y=19
188 print "SCORE:";score
189 print "LIVES:";lives
190 print "KEY OBTAINED?";key$
191 rem Level Plotter
192 color=12
193 dim z1(39,39)
194 read x2,y2
195 if x2=0 and y2=0 goto 203
196 z1(x2,y2)=1
197 plot x2,y2
198 color=5
199 plot x2,(y2+1) :color=12
200 goto 194
201 rem Init character plotter
202 color=2
203 color=2
204 plot x,y
205 rem get-key and other functions
206 if X=22 and Y=26 and s=0 then htab(18):vtab(12):let score=score+1 :home :htab 1:vtab 23 :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$:let s=1 : gosub 259 :goto 209
207 if X=kx and Y=ky and e=0 then home :htab 1:vtab 23 :let key$="YES" :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$ :let e=1: gosub 277 :goto 209
208 if lives<1 then text: home: htab (17):vtab(12):flash:print "YOU LOSE!":normal:end
209 let c$="":get c$
210 if x<0 then let x=0
211 if x>39 and levelt=1 then let x=39
212 if c$="W" goto 216
213 if c$="A" then  color=1 :plot x,y : let X=X-1 :color=2 :plot x,y :if z1(X,Y+1)=0 then goto 224:if z1(X,Y+1)=1 then goto 203
214 if c$="D" then color=1 :plot x,y :let X=X+1 :color=2 : plot x,y :if z1(X,Y+1)=0 then goto 224:if z1(X,Y+1)=1 then goto 203
215 goto 206
216 for i=1 to 6: plot x,y
217 gosub 236
218 color=1 :plot x,y :let Y=Y-1
219 for r=1 to 125
220 color=2 :plot x,y
221 next r
222 gosub 238
223 next i
224 plot x,y
225 color=1 :plot x,y :let Y=Y+1
226 for o=1 to 75
227 color=2 :plot x,y
228 next o
229 gosub 238
230 gosub 233
231 goto 224
232 goto 206
233 if z1(X,Y+1)=1 goto 206
234 if y=38 then color=1: plot x,y :let X=1: let Y=19 :color=2 :plot x,y :let lives=lives-1 :print chr$(7):home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$ :goto 206
235 return
236 if z1(X,Y-2)=1 goto 224
237 return
238 let k=PEEK(49152)
239 if k=196 and x<38 then color=1 :plot x,y :X=X+1
240 if k=193 and x>1 then color=1 :plot x,y :X=X-1
241 if z1(x,y)=1 and k=196 then let x=x-1 :plot x,y
242 if z1(x,y)=1 and k=193 then let x=x+1 :plot x,y
243 if z1(x,y+1)=1 and k=196 then let x=x-1 :plot x,y
244 if z1(x,y+1)=1 and k=193 then let x=x+1 :plot x,y
245 if z1(x,y-1)=1 and k=196 then let x=x-1 :plot x,y
246 if z1(x,y-1)=1 and k=193 then let x=x+1 :plot x,y
247 let k=PEEK(49168)
248 color=2 :plot x,y
249 return
254 data 1,20,2,20,3,20,4,20,5,20,6,20
255 data 8,18,9,18,10,18,11,18,12,18
256 data 14,22,15,22,16,22,17,22,18,22,19,22,20,22,21,22
257 data 23,20,24,20,25,20,26,20,27,20,28,20,29,20,30,20,31,20,32,20,33,20,34,20,35,20,36,20,37,20
258 data 8,27,9,27,10,27,11,27,12,27,13,27,14,27,15,27,16,27,17,27,18,27,19,27,20,27,21,27,22,27,23,27,24,27,25,27,26,27,27,27,28,27,29,27,30,27,0,0
259 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
260 let cy=cy-1
261 color=13 :plot cx,cy
262 for t=1 to 65
263 plot cx,cy
264 next t
265 color=1 :plot cx,cy
266 next w
267 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
268 let cy=cy+1
269 color=13 :plot cx,cy
270 for t=1 to 65
271 plot cx,cy
272 next t
273 color=1 :plot cx,cy
274 next w
275 color=2 :plot x,y
276 return
277 for w=1 to 6
278 let ky=ky-1
279 color=9 :plot kx,ky
280 for t=1 to 65
281 plot kx,ky
282 next t
283 color=1 :plot kx,ky
284 next w
285 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
286 let ky=ky+1
287 color=9 :plot kx,ky
288 for t=1 to 65
289 plot kx,ky
290 next t
291 color=1 :plot kx,ky
292 next w
293 color=2 :plot x,y :print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
294 color=1 :vlin 19,20 at 39 :for e=1 to 300
295 vlin 18, 21 at 39 :next e :for e=1 to 300
296 vlin 17,22 at 39 :next e :for e=1 to 300
297 vlin 16,23 at 39:next e :for e=1 to 300
298 vlin 15,24 at 39:next e :for e=1 to 300
299 vlin 14,25 at 39 :next e :for e=1 to 300
300 vlin 13,26 at 39 :next e
301 color=2 :vlin 19,20 at 39 :for e=1 to 325
302 color=3 :plot 39,18 :plot39,21 :next e :for e=1 to 325
303 color=2 :plot 39,17 :plot39,22 :next e :for e=1 to 325
304 color=3 :plot 39,16 :plot39,23:next e :for e=1 to 325
305 color=2 :plot 39,15:plot39,24:next e :for e=1 to 325
306 color=3 :plot 39,14 :plot39,25 :next e
307 for a=1 to 500
308 color=2: plot x,y
309 next a
310 for wa=1 to 25
311 color=2 :plot x,y
312 next wa
313 for abc=1 to 3
314 color=1 :plotx,y :let x=x+1
315 for sus=1 to 85
316 color=2 :plot x,y
317 next sus
318 next abc
319 goto 321
320 kx=36 :let ky=19: goto 167
321 home
322 let k=0
323 let key$="NO"
324 if lvl=2 then goto 483
325 if lvl=1 then let kx=29 :let ky=27
326 let s=0
327 let e=0
328 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
329 let levelt=1
330 let j=1
331 gr
332 color=0
333 for q=1 to 39
334 hlin 0,39 at k :let k=k+1
335 next q
336 color=10
337 vlin 0,38 at 39
338 color=7 :for sun=1 to 7
339 hlin 18,21 at j :let j=j+1
340 next sun
341 color=13
342 let cx=28 :let cy=26
343 rem Beckett's Stuff (no bugs so far)
344 plot cx,cy
345 color=9 :plot kx,ky
346 let X=1: let Y=19
347 print "SCORE:";score
348 print "LIVES:";lives
349 print "KEY OBTAINED?";key$
350 rem level plotter
351 color=12
352 dim z2(39,39)
353 read x3,y3
354 if x3=0 and y3=0 goto 362
355 z2(x3,y3)=1
356 plot x3,y3
357 color=5
358 plot x3,(y3+1) :color=12
359 goto 353
360 rem Init character plotter
361 color=2
362 color=2
363 plot x,y
364 rem get-key command and other functions
365 if X=cx and Y=cy and s=0 then htab(18):vtab(12):let score=score+1 :home :htab 1:vtab 23 :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$:let s=1 : gosub 422 :goto 368
366 if X=kx and Y=ky and e=0 then home :htab 1:vtab 23 :let key$="YES" :print "SCORE:";score :print "LIVES:" ;lives :print "KEY OBTAINED?";key$ :let e=1: gosub 440 :goto 368
367 if lives<1 then text: home: htab (17):vtab(12):flash:print "YOU LOSE!":normal:end
368 let c$="":get c$
369 if x<0 then let x=0
370 if x>39 and levelt=1 then let x=39
371 if c$="W" goto 375
372 if c$="A" then  color=0 :plot x,y : let X=X-1 :color=2 :plot x,y :if z2(X,Y+1)=0 then goto 383:if z2(X,Y+1)=1 then goto 362
373 if c$="D" then color=0 :plot x,y :let X=X+1 :color=2 : plot x,y :if z2(X,Y+1)=0 then goto 383:if z2(X,Y+1)=1 then goto 362
374 goto 365
375 for i=1 to 6: plot x,y
376 gosub 395
377 color=0 :plot x,y :let Y=Y-1
378 for r=1 to 125
379 color=2 :plot x,y
380 next r
381 gosub 397
382 next i
383 plot x,y
384 color=0 :plot x,y :let Y=Y+1
385 for o=1 to 75
386 color=2 :plot x,y
387 next o
388 gosub 397
389 gosub 392
390 goto 383
391 goto 365
392 if z2(X,Y+1)=1 goto 365
393 if y=38 then color=0: plot x,y :let X=1: let Y=19 :color=2 :plot x,y :let lives=lives-1 :print chr$(7):home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$ :goto 365
394 return
395 if z2(X,Y-2)=1 goto 383
396 return
397 let k=PEEK(49152)
398 if k=196 and x<38 then color=0 :plot x,y :X=X+1
399 if k=193 and x>1 then color=0 :plot x,y :X=X-1
400 if z2(x,y)=1 and k=196 then let x=x-1 :plot x,y
401 if z2(x,y)=1 and k=193 then let x=x+1 :plot x,y
402 if z2(x,y+1)=1 and k=196 then let x=x-1 :plot x,y
403 if z2(x,y+1)=1 and k=193 then let x=x+1 :plot x,y
404 if z2(x,y-1)=1 and k=196 then let x=x-1 :plot x,y
405 if z2(x,y-1)=1 and k=193 then let x=x+1 :plot x,y
406 let k=PEEK(49168)
407 color=2 :plot x,y
408 return
418 data 1,22,2,22,3,22,4,22,5,22,6,22,7,22,8,22,9,22,10,22,11,22,12,22,13,22,14,22
419 data 18,24,19,24,20,24,21,24,22,24,23,24,24,24,25,24
420 data 26,20,27,20,30,20,31,20,32,20,33,20,34,20,35,20,36,20,37,20,38,20
421 data 26,27,27,27,28,27,29,27,0,0
422 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
423 let cy=cy-1
424 color=13 :plot cx,cy
425 for t=1 to 65
426 plot cx,cy
427 next t
428 color=0 :plot cx,cy
429 next w
430 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
431 let cy=cy+1
432 color=13 :plot cx,cy
433 for t=1 to 65
434 plot cx,cy
435 next t
436 color=0 :plot cx,cy
437 next w
438 color=2 :plot x,y
439 return
440 for w=1 to 6
441 let ky=ky-1
442 color=9 :plot kx,ky
443 for t=1 to 65
444 plot kx,ky
445 next t
446 color=0 :plot kx,ky
447 next w
448 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
449 let ky=ky+1
450 color=9 :plot kx,ky
451 for t=1 to 65
452 plot kx,ky
453 next t
454 color=0 :plot kx,ky
455 next w
456 color=2 :plot x,y :print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
457 color=0 :vlin 19,20 at 39 :for e=1 to 300
458 vlin 18, 21 at 39 :next e :for e=1 to 300
459 vlin 17,22 at 39 :next e :for e=1 to 300
460 vlin 16,23 at 39:next e :for e=1 to 300
461 vlin 15,24 at 39:next e :for e=1 to 300
462 vlin 14,25 at 39 :next e :for e=1 to 300
463 vlin 13,26 at 39 :next e
464 color=2 :vlin 19,20 at 39 :for e=1 to 325
465 color=3 :plot 39,18 :plot39,21 :next e :for e=1 to 325
466 color=2 :plot 39,17 :plot39,22 :next e :for e=1 to 325
467 color=3 :plot 39,16 :plot39,23:next e :for e=1 to 325
468 color=2 :plot 39,15:plot39,24:next e :for e=1 to 325
469 color=3 :plot 39,14 :plot39,25 :next e
470 for a=1 to 500
471 color=2: plot x,y
472 next a
473 for wa=1 to 25
474 color=2 :plot x,y
475 next wa
476 for abc=1 to 3
477 color=0 :plotx,y :let x=x+1
478 for sus=1 to 85
479 color=2 :plot x,y
480 next sus
481 next abc
482 goto 484
483 kx=36 :let ky=19: goto 326
484 text: home: PR# 0 : htab (17):vtab(12):flash:print "YOU WIN!":normal:end
500 print "To jump press the W key. To move left and right press the A and D keys."
501 print "This game was created by Brendan Ghareeb and Beckett Bylsma, with help from a few others."
502 print "press S to begin."
503 get start$
504 if start$="S" then return
505 goto 503