Short-Issue-1

1. Overheat By PaulH

Gideros Short— N°1 —June 2023

1. 1. Description

This one is a side-scrolling flight game. You're flying an airplane over rugged terrain, but the engine is overheating. As you climb the heat increases, both with rate of climb and with altitude. As you glide it cools down. If it overheats too much, you lose power.

Graphically it's a 3 layer scrolling landscape, with the mountains you need to clear in the foreground, and two more distant layers of mountains in the background.

How to play: how high you click or touch on the screen controls how sharply the airplane will pitch upwards, and how fast the heat will build up. Touching near the top will turn the plane upwards as quickly as possible, but will also build up heat the fastest. Ending the touch will let the engine cool but the airplane will begin to dive. If you crash, relaunch the game to try again.

If I had space to spare I'd love to add power-ups, like clouds you could fly through to cool the engine.

1. 1. The code

SCREEN_W, SCREEN_H = 320,480
function makeShape(p,fcol,px,lcol,scale)
	local s=Shape.new()
	s:setLineStyle(px or 0,lcol or 0)
	s:setFillStyle(Shape.SOLID,fcol)
	s:beginPath()
	local sc=scale or 1
	s:moveTo(p[1]*sc,p[2]*sc)
	for i = 3, #p,2 do
		s:lineTo(p[i]*sc,p[i+1]*sc)
	end
	s:endPath()
	return s
end
local bg = makeShape({0,0,SCREEN_W,0,SCREEN_W,SCREEN_H,0,SCREEN_H,0,0}, 0xbbffee)
stage:addChild(bg)
LandScroll = gideros.class(Sprite)
function LandScroll:init(speed,col,min_h,max_h,rugged,block_w)
	self.speed, self.col, self.min_h, self.max_h, self.rugged, self.block_w=speed,col,min_h,max_h,rugged,block_w
	self.right, self.height = -block_w, math.random(self.min_h, self.max_h)
	while self.right < SCREEN_W + self.block_w do self:addBlock() end
	self:addEventListener(Event.ENTER_FRAME,
		function()
			self.right-=self.speed*gspeed
			for i = self:getNumChildren(), 1, -1 do
				local ch = self:getChildAt(i)
				local x, y = ch:getPosition()
				ch:setPosition(x - self.speed*gspeed, y)
				if x < 0 - block_w then
					ch:removeFromParent()
					self:addBlock()
				end
			end
		end
	)
end
function LandScroll:addBlock()
	local new_h = math.min(self.max_h, math.max(self.min_h, self.height + math.random(-20, 20) * 0.001 * self.rugged))
	local s=makeShape({0, SCREEN_H*(1-self.height),self.block_w+1,SCREEN_H*(1-new_h),self.block_w+1, SCREEN_H,0, SCREEN_H,0,0},self.col)
	s:setAnchorPoint(0,1)
	s:setPosition(self.right, SCREEN_H)
	self.right+=self.block_w
	self:addChild(s)
	s.start_height, s.end_height = self.height, new_h
	self.height = new_h
end
function LandScroll:getHeight(x)
	local h = 0
	for i = 1, self:getNumChildren() do
		local ch = self:getChildAt(i)
		local chx, chy = ch:getPosition()
		if x >= chx and x <= chx + self.block_w then
			h = ch.start_height + (ch.end_height - ch.start_height) * (x - chx) / self.block_w
			break
		end
	end
	return (1-h)*SCREEN_H
end		
stage:addChild(LandScroll.new(0.1,0xff9944,0.5, 0.8,2,10))
stage:addChild(LandScroll.new(0.3,0xee8833,0.2, 0.7,1.5,20))
t1=LandScroll.new(1,0x773322,0.05,0.6,5,30)
stage:addChild(t1)
plane=makeShape({0,0,3,0,6,3,7,4,15,4.5,18,4,20,2.2,23.5,2.5,24,4,18,4,17,5,20,6,24,6,26,5,24,4,26,5,30,5,31,5.5,30,6,30,3,30,8,
	30,5,30,6,29,7.5,27,8,21,8.5,20,8.2,4,6,2,5.5,1.7,5,6.5,5,6.4,5.2,1.7,5,0,0},0x00ffff,1,0,1)
plane:setAnchorPoint(0.75,0.5)
stage:addChild(plane)
px,py = SCREEN_W * 0.3, SCREEN_H * 0.2
heat_tf=TextField.new(null,"HEAT")
stage:addChild(heat_tf)
heat_tf:setPosition(100, 50)
heat_tf:setScale(3)
needle=makeShape({2,0,4,50,0,50,2,0},0xff0000)
needle:setPosition(132,55)
stage:addChild(needle)
needle:setAnchorPoint(0,1)
heat,max_heat,climb=0,200,0
gspeed,climb = 1,0
function on_enter_frame()
	if not game_over then
		if in_y and heat < max_heat then
			climb -= ((in_y > SCREEN_H * 0.5 and 1) or -1) * 0.01
			heat+=(SCREEN_H - py)/ SCREEN_H * 2
		else
			heat=math.max(0, heat-1) climb-=0.01		
		end
		py = math.min(SCREEN_H, math.max(SCREEN_H * 0.1, py - climb))
		plane:setPosition(px, py)
		local h=t1:getHeight(px)
		if py>h then py=h game_over=1 gspeed=0 end
		plane:setRotation(climb*-30)
		needle:setRotation(heat/max_heat*180-90)
	end
end
stage:addEventListener(Event.ENTER_FRAME, on_enter_frame)
stage:addEventListener(Event.MOUSE_DOWN, function(e) in_y = e.y end)
stage:addEventListener(Event.MOUSE_MOVE, function(e) in_y = e.y end)
stage:addEventListener(Event.MOUSE_UP, function() in_y = nil end)