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
