New games every week!
JSE - Rocket Man Blog
8th July 2021
A rather silly example, based on an Amstrad CPC Manual Classic!

-=-=-


View on YouTube

Yes, it's another clicker game.
I need to make more interesting things than this, now, I reckon!

Since posting the video, I spent another few minutes building it up a little more.
Here's the most recent version of the code.

// Rocket Man // by Jayenkai // Created 2021/7/8 Symbol 0,"0__0,I0!I,0?I,0?I,0?I,0?I,0.I?00II0I0II"; Symbol 1,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00;;0_0_0_0_0_0_0@;;0_0_0_0_0_0_0_0_0_0@;0;00;;00;0;0_0_00;0;00;;00;0;0_0_0_0_0_0_0_0_0_0@;;0_0_0_0_0_0_0@;;"; Symbol 2,"0__0_0I0_0_0I0_0.I"; Graphics 320,240,1 GameHandler("Rocket Man") .StartGame x=0 y=screenheight()-8 yg=0 plr=251 bonus=5000 return .InGame CLS 0,0,0;ResetDraw For bg=0 to ScreenHeight() step 8 SetColor 0,0,bg*0.3 Rect 0,bg,ScreenWidth(),8 Next SetSize 0.25 Starfield Neg(-1),0,1 ResetDraw SetColor 0,50,0 Rect 0,ScreenHeight()-10,ScreenWidth(),10 SetFontSize 8 SetColor 255,255,0 if yg==0 then bonus=bonus-1 if yg!=0 then Score=Bonus if x<ScreenWidth()-16 then Text X,ScreenHeight()-8,chr$(plr),0 if x>ScreenWidth()-16 then if yg==0 then PlaySFX("Explode_Low_5",jRnd(0.4,0.6)):PlaySFX("Explode_Low_3",jRnd(0.4,0.6)):PlaySFX("Explode_Low_6",jRnd(0.4,0.6)) y=y-yg:yg=yg+0.01 v=(Abs(ScreenHeight()-y)*0.01)+0.5 if y>ScreenHeight()-24 then ThrowParticle ScreenWidth()-10,y+6,3,jRnd(45,315),jRnd(1,3),2,0 if y<=ScreenHeight()-24 then ThrowParticle ScreenWidth()-10,y+6,2,jRnd(178,182),jRnd(1,3),2,0 PlaySFX("noise",v) endif SetFontSize 16 Text ScreenWidth()-16,y-4,chr$(239),0 if Mousehit() and y>ScreenHeight()-16 then x=x+4 PlaySFX("Metal_2") plr=plr+1 if plr>251 then plr=250 endif if Bonus<0 then Bonus=0 Text ScreenWidth()/2,ScreenHeight()/2,Bonus,1 if y<0 then EndGame Flip Return

Views 125, Upvotes 23  
Jse , Example , Clicker
New games every week!
Site credits : Jayenkai put all his heart and soul into everything you can see on this site.
(c) Jayenkai 2023 and onwards, RSS feed 80

Blog - JSE - Rocket Man - AGameAWeek