Add platformer sample, a work in progress by Beckett Bylsma
This commit is contained in:
parent
cc5806e482
commit
5ebbde151f
|
@ -86,6 +86,7 @@ By <a target=_blank href="mailto:inexorabletash@gmail.com">Joshua Bell</a>
|
||||||
<option value="sample.spaceattack"> Space Attack! (Alan Ratliff)</option>
|
<option value="sample.spaceattack"> Space Attack! (Alan Ratliff)</option>
|
||||||
<option value="sample.building"> Building (Melvin Rosario)</option>
|
<option value="sample.building"> Building (Melvin Rosario)</option>
|
||||||
<option value="sample.artillery"> Artillery (Michael "Moose" O'Malley)</option>
|
<option value="sample.artillery"> Artillery (Michael "Moose" O'Malley)</option>
|
||||||
|
<option value="sample.platformer"> Platformer - work in progress (Beckett Bylsma)</option>
|
||||||
|
|
||||||
<option disabled>____________________________________________</option>
|
<option disabled>____________________________________________</option>
|
||||||
<option disabled>Graphics</option>
|
<option disabled>Graphics</option>
|
||||||
|
|
|
@ -0,0 +1,166 @@
|
||||||
|
10 home
|
||||||
|
11 let k=0
|
||||||
|
12 let lives=5
|
||||||
|
13 let key$="NO"
|
||||||
|
14 let kx=29 :let ky=27
|
||||||
|
15 let s=0
|
||||||
|
16 let e=0
|
||||||
|
17 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
|
||||||
|
18 let levelt=1
|
||||||
|
19 let j=1
|
||||||
|
20 gr
|
||||||
|
21 color=6
|
||||||
|
22 for q=1 to 39
|
||||||
|
23 hlin 0,39 at k :let k=k+1
|
||||||
|
24 next q
|
||||||
|
25 color=10
|
||||||
|
26 vlin 0,38 at 39
|
||||||
|
27 color=13 :for sun=1 to 7
|
||||||
|
28 hlin 1,4 at j :let j=j+1
|
||||||
|
29 next sun
|
||||||
|
30 color=13
|
||||||
|
40 let cx=25 :let cy=19
|
||||||
|
50 rem becketts new gravity improved (no bugs so far)
|
||||||
|
60 plot cx,cy
|
||||||
|
61 color=1 :plot kx,ky
|
||||||
|
70 let X=12: let Y=23
|
||||||
|
80 let score=0
|
||||||
|
90 print "SCORE:";score
|
||||||
|
91 print "LIVES:";lives
|
||||||
|
92 print "KEY OBTAINED?";key$
|
||||||
|
100 rem level plotter
|
||||||
|
110 color=12
|
||||||
|
120 dim z0(39,39)
|
||||||
|
130 read x1,y1
|
||||||
|
140 if x1=0 and y1=0 goto 300
|
||||||
|
150 z0(x1,y1)=1
|
||||||
|
160 plot x1,y1
|
||||||
|
161 color=5
|
||||||
|
162 plot x1,(y1+1) :color=12
|
||||||
|
170 goto 130
|
||||||
|
200 rem character printer
|
||||||
|
210 color=2
|
||||||
|
300 color=2
|
||||||
|
310 plot x,y
|
||||||
|
350 rem get key command
|
||||||
|
450 let c$="":get c$
|
||||||
|
451 if x<0 then let x=0
|
||||||
|
452 if x>39 and levelt=1 then let x=39
|
||||||
|
400 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 100000 :goto 450
|
||||||
|
401 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 200000 :goto 450
|
||||||
|
402 if lives<1 then print "YOU LOSE!" :end
|
||||||
|
500 if c$="W" goto 900
|
||||||
|
600 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 1200:if z0(X,Y+1)=1 then goto 300
|
||||||
|
700 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 1200:if z0(X,Y+1)=1 then goto 300
|
||||||
|
800 goto 400
|
||||||
|
900 for i=1 to 6: plot x,y
|
||||||
|
910 gosub 3000
|
||||||
|
920 color=6 :plot x,y :let Y=Y-1
|
||||||
|
1010 for r=1 to 125
|
||||||
|
1020 color=2 :plot x,y
|
||||||
|
1080 next r
|
||||||
|
1100 gosub 10000
|
||||||
|
1190 next i
|
||||||
|
1200 plot x,y
|
||||||
|
1240 color=6 :plot x,y :let Y=Y+1
|
||||||
|
1310 for o=1 to 75
|
||||||
|
1320 color=2 :plot x,y
|
||||||
|
1390 next o
|
||||||
|
1400 gosub 10000
|
||||||
|
1410 gosub 2000
|
||||||
|
1420 goto 1200
|
||||||
|
1440 goto 400
|
||||||
|
10000 let k=PEEK(49152)
|
||||||
|
10100 if k=196 and x<38 then color=6 :plot x,y :X=X+1
|
||||||
|
10200 if k=193 and x>1 then color=6 :plot x,y :X=X-1
|
||||||
|
10210 if z0(x,y)=1 and k=196 then let x=x-1 :plot x,y
|
||||||
|
10220 if z0(x,y)=1 and k=193 then let x=x+1 :plot x,y
|
||||||
|
10222 if z0(x,y+1)=1 and k=196 then let x=x-1 :plot x,y
|
||||||
|
10223 if z0(x,y+1)=1 and k=193 then let x=x+1 :plot x,y
|
||||||
|
10224 if z0(x,y-1)=1 and k=196 then let x=x-1 :plot x,y
|
||||||
|
10225 if z0(x,y-1)=1 and k=193 then let x=x+1 :plot x,y
|
||||||
|
10280 let k=PEEK(49168)
|
||||||
|
10290 color=2 :plot x,y
|
||||||
|
10300 return
|
||||||
|
|
||||||
|
2000 if z0(X,Y+1)=1 goto 400
|
||||||
|
2001 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 400
|
||||||
|
2010 return
|
||||||
|
|
||||||
|
3000 if z0(X,Y-2)=1 goto 1200
|
||||||
|
3024 return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
99999 rem map data saver
|
||||||
|
20000 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
|
||||||
|
20005 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
|
||||||
|
20010 data 20,20,21,20,22,20,23,20,24,20,25,20,26,20,27,20,0,0
|
||||||
|
100000 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 6
|
||||||
|
100001 let cy=cy-1
|
||||||
|
100002 color=13 :plot cx,cy
|
||||||
|
100003 for t=1 to 65
|
||||||
|
100004 plot cx,cy
|
||||||
|
100005 next t
|
||||||
|
100006 color=6 :plot cx,cy
|
||||||
|
100007 next w
|
||||||
|
100008 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
|
||||||
|
100009 let cy=cy+1
|
||||||
|
100010 color=13 :plot cx,cy
|
||||||
|
100011 for t=1 to 65
|
||||||
|
100012 plot cx,cy
|
||||||
|
100013 next t
|
||||||
|
100014 color=6 :plot cx,cy
|
||||||
|
100015 next w
|
||||||
|
100016 color=2 :plot x,y
|
||||||
|
100017 return
|
||||||
|
200000 for w=1 to 6
|
||||||
|
200001 let ky=ky-1
|
||||||
|
200002 color=1 :plot kx,ky
|
||||||
|
200003 for t=1 to 65
|
||||||
|
200004 plot kx,ky
|
||||||
|
200005 next t
|
||||||
|
200006 color=6 :plot kx,ky
|
||||||
|
200007 next w
|
||||||
|
200008 print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$:for w=1 to 4
|
||||||
|
200009 let ky=ky+1
|
||||||
|
200010 color=1 :plot kx,ky
|
||||||
|
200011 for t=1 to 65
|
||||||
|
200012 plot kx,ky
|
||||||
|
200013 next t
|
||||||
|
200014 color=6 :plot kx,ky
|
||||||
|
200015 next w
|
||||||
|
200016 color=2 :plot x,y :print chr$(7) :home :print "SCORE:";score :print "LIVES:";lives :print "KEY OBTAINED?";key$
|
||||||
|
200017 color=6 :vlin 19,20 at 39 :for e=1 to 300
|
||||||
|
200018 vlin 18, 21 at 39 :next e :for e=1 to 300
|
||||||
|
200019 vlin 17,22 at 39 :next e :for e=1 to 300
|
||||||
|
200020 vlin 16,23 at 39:next e :for e=1 to 300
|
||||||
|
200021 vlin 15,24 at 39:next e :for e=1 to 300
|
||||||
|
200022 vlin 14,25 at 39 :next e :for e=1 to 300
|
||||||
|
200023 vlin 13,26 at 39 :next e
|
||||||
|
200024 color=2 :vlin 19,20 at 39 :for e=1 to 325
|
||||||
|
200025 color=3 :plot 39,18 :plot39,21 :next e :for e=1 to 325
|
||||||
|
200026 color=2 :plot 39,17 :plot39,22 :next e :for e=1 to 325
|
||||||
|
200027 color=3 :plot 39,16 :plot39,23:next e :for e=1 to 325
|
||||||
|
200028 color=2 :plot 39,15:plot39,24:next e :for e=1 to 325
|
||||||
|
200029 color=3 :plot 39,14 :plot39,25 :next e
|
||||||
|
200030 for a=1 to 500
|
||||||
|
200040 color=2: plot x,y
|
||||||
|
200050 next a
|
||||||
|
200060 for ab=1 to 7
|
||||||
|
200070 color=6 :plot x,y :let y=y-1
|
||||||
|
200080 for sus=1 to 85
|
||||||
|
200090 color=2 :plot x,y
|
||||||
|
200100 next sus
|
||||||
|
200110 next ab
|
||||||
|
200111 for wa=1 to 25
|
||||||
|
200112 color=2 :plot x,y
|
||||||
|
200113 next wa
|
||||||
|
200120 for abc=1 to 10
|
||||||
|
200130 color=6 :plotx,y :let x=x+1
|
||||||
|
200140 for sus=1 to 85
|
||||||
|
200150 color=2 :plot x,y
|
||||||
|
200160 next sus
|
||||||
|
200170 next abc
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue