// 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