diff --git a/samples/sample.platformer.txt b/samples/sample.platformer.txt index 7c5ff3d..ef09828 100644 --- a/samples/sample.platformer.txt +++ b/samples/sample.platformer.txt @@ -21,7 +21,7 @@ 21 next sun 22 color=13 23 let cx=25 :let cy=19 -24 rem becketts new gravity improved (no bugs so far) +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 @@ -29,7 +29,7 @@ 29 print "SCORE:";score 30 print "LIVES:";lives 31 print "KEY OBTAINED?";key$ -32 rem level plotter +32 rem Level Plotter 33 color=12 34 dim z0(39,39) 35 read x1,y1 @@ -39,11 +39,11 @@ 39 color=5 40 plot x1,(y1+1) :color=12 41 goto 35 -42 rem character printer +42 rem Init Character Plotter 43 color=2 44 color=2 45 plot x,y -46 rem get key command +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 @@ -88,7 +88,7 @@ 88 let k=PEEK(49168) 89 color=2 :plot x,y 90 return -91 rem map data saver +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 @@ -181,14 +181,14 @@ 181 next sun 182 color=13 183 let cx=22 :let cy=26 -184 rem becketts new gravity improved (no bugs so far) +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 +191 rem Level Plotter 192 color=12 193 dim z1(39,39) 194 read x2,y2 @@ -198,11 +198,11 @@ 198 color=5 199 plot x2,(y2+1) :color=12 200 goto 194 -201 rem character printer +201 rem Init character plotter 202 color=2 203 color=2 204 plot x,y -205 rem get key command +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 @@ -336,7 +336,7 @@ 340 next sun 341 color=13 342 let cx=28 :let cy=26 -343 rem becketts new gravity improved (no bugs so far) +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 @@ -353,11 +353,11 @@ 357 color=5 358 plot x3,(y3+1) :color=12 359 goto 353 -360 rem character printer +360 rem Init character plotter 361 color=2 362 color=2 363 plot x,y -364 rem get key command +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 @@ -469,8 +469,6 @@ 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."