0 Members and 5 Guests are viewing this topic.
:clearDraw:clearDraw^r
Nice! I like the flame animation ... I know I have seen a tutorial about how to do that somewhere, but I have forgotten by whom it was made Judging by the screenie it looks like it could turn out to be one of those simple and addictive games, so if it works out, kudos to you!
:.JUMP:DiagnosticOff:Full:[3C42A5A581A599FF3C66A581A5A55A3C3C42A58199A5423C]→Pic1:"YOU DIED YOUR SCORE:"→Str1:"NEW HIGHSCORE!"→Str2:"vJMPSCR"→Str3:Lbl 1:ClrHomeClrDraw:Disp " JUMP ",i,i," PLAY",i," HIGHSCORE",i," QUIT":3→A:Pause 900:Repeat getKey(9) or getKey(15):A+(A<3)→A:A-(A>5)→A:Output(1,A,">":Pause 600:Output(1,A," ":A+getKey(1)→A:A-getKey(4)→A:End::If getKey(15):Goto E:End:If A=4:Goto G:End:If A=5:Goto H:End:If A=6:Goto E:End:::Lbl G:ClrDraw:40→A:1→B:0→X:1→C::Line(0,63,95,63):1→C:0→D:0→E:0→H:Line(0,9,95,9:Repeat getKey(15):If H^7=0:rand^(70-0+1)+0→F:F+(rand^(25-8+1)+8)→G:Line(F,1,G,1)::.Line(0,1,30,1:End:StorePic:Pt-On(A,B,Pic1+E):DispGraph:RecallPic::A-getKey(2)→A:A+getKey(3)→A:If A>87:1→A:End:If A<<1:87→A:End:pxl-Test(A+4,B+8)→C:B+((C=0))→B:B-D→B:If C≠0:(6*getKey(54))→D:0→E:Else:8→E:End:If D≥1:D-1→D:End:If B≥≥65:Goto D:End:H+1→H:If H^2=0:Vertical +:B+1→B:End:Pause 35:End:Goto 1::Lbl D:ClrDraw:[FEFDFBF7EFDFBD7F]→Str4:Line(0,63,95,63:10→A:Repeat A>50 or getKey(15)::A+1→A:Pt-On(40,A,Pic1+16:For(F,L6+12,L6+767:{F} and {rand^8+Str4}→{F-12}:End:DispGraph:End:Pause 600:ClrDrawClrHome:Disp Str1:Disp H►Dec:Disp i:!If GetCalc(Str3)→A:GetCalc(Str3,2)→A:Return!If A:0→{A}r:End:If H>{A}r:H→{A}r:Disp "NEW HIGHSCORE!":End:Repeat getKey:End:If getKey(15):Goto 1:End:Goto G::Lbl H:ClrHome:GetCalc(Str3)→A:!If A:Disp "NO SCORE":Pause 3000:Goto E:End:{A}r→B:Disp "HIGSCORE:",B►Dec:Repeat getKey:End:Goto 1::Lbl E:ClrDrawClrHome
:.JUMP:DiagnosticOff:Full:[3C42A5A581A599FF3C66A581A5A55A3C3C42A58199A5423C]→Pic1:"YOU DIED YOUR SCORE:"→Str1:"NEW HIGHSCORE!"→Str2:"vJMPSCR"→Str3:Lbl ZZ:ClrHomeClrDraw:Disp " JUMP ",i,i," PLAY",i," HIGHSCORE",i," QUIT":3→A:Pause 900:Repeat getKey(54) or getKey(15):A+(A<3)→A:A-(A>5)→A:Output(1,A,">":Pause 600:Output(1,A," ":A+getKey(1)→A:A-getKey(4)→A:End::If getKey(15):Goto E:End:If A=3:Goto G:End:If A=4:Goto H:End:If A=5:Goto E:End:::Lbl G:ClrDraw:40→A:1→B:0→X:1→C::Line(0,63,95,63):1→C:0→D:0→E:0→H:Line(0,9,95,9:Repeat getKey(15):If H^7=0:rand^(70-0+1)+0→F:F+(rand^(25-8+1)+8)→G:Line(F,1,G,1)::.Line(0,1,30,1:End:StorePic:Pt-On(A,B,Pic1+E):DispGraph:RecallPic::A-getKey(2)→A:A+getKey(3)→A:If A>87:1→A:End:If A<<1:87→A:End:pxl-Test(A+4,B+8)→C:B+((C=0))→B:B-D→B:If C≠0:(6*getKey(54))→D:0→E:Else:8→E:End:If D≥1:D-1→D:End:If B≥≥65:Goto D:End:H+1→H:If H^2=0:Vertical +:B+1→B:End:Pause 35:End:Goto ZZ::Lbl D:ClrDraw:[FEFDFBF7EFDFBD7F]→Str4:Line(0,63,95,63:10→A:Repeat A>50 or getKey(15)::A+1→A:Pt-On(40,A,Pic1+16:For(F,L6+12,L6+767:{F} and {rand^8+Str4}→{F-12}:End:DispGraph:End:Pause 600:ClrDrawClrHome:Disp Str1:Disp H►Dec:Disp i:!If GetCalc(Str3)→A:GetCalc(Str3,2)→A:Return!If A:0→{A}r:End:If H>{A}r:H→{A}r:Disp "NEW HIGHSCORE!":End:Pause 8000:Repeat getKey:End:If getKey(15):Goto ZZ:End:Goto G::Lbl H:ClrHome:GetCalc(Str3)→A:!If A:Disp "NO SCORE":Pause 3000:Goto E:End:{A}r→B:Disp "HIGHSCORE:",B►Dec:Pause 8000:Repeat getKey:End:Goto ZZ::Lbl E:ClrDrawClrHome
Author
Topic: Jump (Read 19959 times)
