BatsAndPray/main.lua

animx  = require "lib/animx"
class  = require "lib/middleclass"

----------------------------------------
-- CONSTANTS
----------------------------------------
left = 0;  right = 1;  up = 2;  down = 3
upleft = 4; downleft = 5; upright = 6; downright = 7
mainmenu = 0; game = 1; gameover = 2; pause = 3

--------------------------------------------------------------------------------
-- GAME STATES
--------------------------------------------------------------------------------
-- LOVE
----------------------------------------
-- LOAD
--------------------
function love.load ()
	vScale = 0
	maxScore = 0
	math.randomseed(os.time())

	dieParticle = nil
	love.graphics.setDefaultFilter("nearest", "nearest", 0)
	bg = love.graphics.newImage("art/bg/sky.png")
	a_ttf = love.graphics.newFont("art/font/alagard.ttf", nil, "none")

	lifeText = love.graphics.newText(a_ttf, "Press Enter")
	waveText = love.graphics.newText(a_ttf, "")
	bigText  = love.graphics.newText(a_ttf, "Bats & Pray")
	frontMenu = nil

	-- for compliance with Statute 43.5 (2019); all birds must report births to local Officials
	birdRegistry = {}
	mainmenu_load()
end

--------------------
-- UPDATE
--------------------
function love.update ( dt )
	if ( mode == mainmenu ) then
		mainmenu_update( dt )
	elseif ( mode == game ) then
		game_update( dt )
	elseif ( mode == gameover ) then
		gameover_update( dt )
	elseif ( mode == pause ) then
		pause_update( dt )
	end
end

--------------------
-- DRAW 
--------------------
function love.draw ()
	if ( vScale > 0 ) then
		love.graphics.scale( vScale, vScale )
	end
	love.graphics.draw(bg, 0, 0)
	love.graphics.draw(bg, 512, 0)

	love.graphics.draw(waveText, 200, 340, 0, 2, 2)
	love.graphics.draw(lifeText, 125, 355, 0, 1.3, 1.3)
	love.graphics.draw(bigText, 300, 300, 0, 3.5, 3.5)

	if ( mode == mainmenu ) then
		mainmenu_draw()
	elseif ( mode == game ) then
		game_draw()
	elseif ( mode == gameover ) then
		gameover_draw()
	elseif ( mode == pause ) then
		pause_draw()
	end
end

function love.resize ( width, height )
	vScale = height / 600
end

----------------------------------------
-- INPUT
----------------------------------------
function love.keypressed ( key )
	if ( mode == mainmenu ) then
		mainmenu_keypressed( key )
	elseif ( mode == game ) then
		game_keypressed( key )
	elseif ( mode == gameover ) then
		gameover_keypressed( key )
	elseif ( mode == pause ) then
		pause_keypressed( key )
	end
end

function love.keyreleased (key)
	if ( mode == mainmenu ) then
		mainmenu_keyreleased( key )
	elseif ( mode == game ) then
		game_keyreleased( key )
	elseif ( mode == gameover ) then
		gameover_keyreleased( key )
	elseif ( mode == pause ) then
		pause_keyreleased( key )
	end
end


----------------------------------------
-- MENU
----------------------------------------
-- LOAD
--------------------
function mainmenu_load ()
	mode = mainmenu
	selection = 1
	dieParticle = nil
	waveText:set("[Enter]")
	lifeText:set("")
	bigText:set("Bats & Pray")
	helpScreen = false

	p_over = nil; p_under = nil; p_bounce = nil; p_dash = nil; p_block = nil; p_bg = nil
	helpOver = nil; helpBounce = nil; helpDash = nil; helpBlock = nil
	helpScreen_setup()

	frontMenu = Menu:new( 100, 100, 30, 50, 2, 
			      { { love.graphics.newText(a_ttf, "Play Game"),
				  function () game_load() end },
				{ love.graphics.newText(a_ttf, "Help"),
				  function () helpScreen = true end },
				{ love.graphics.newText(a_ttf, "Quit"),
				  function () love.event.quit( 0 ) end } } )
end

--------------------
-- UPDATE
--------------------
function mainmenu_update ( dt )
end

--------------------
-- DRAW
--------------------
function mainmenu_draw ()
	if ( helpScreen == true ) then
		helpScreen_draw()
	elseif ( frontMenu ) then
		frontMenu:draw()
	end
end

function helpScreen_setup ()
	p_over = love.graphics.newImage("art/sprites/p-over.png")
	p_under = love.graphics.newImage("art/sprites/p-under.png")
	p_bounce = love.graphics.newImage("art/sprites/p-bounce.png")
	p_dash = love.graphics.newImage("art/sprites/p-dash.png")
	p_block = love.graphics.newImage("art/sprites/p-block.png")
	p_block = love.graphics.newImage("art/sprites/p-block.png")
	h_bg = love.graphics.newImage("art/bg/help.png")

	helpOver = love.graphics.newText(a_ttf, "He on top, wins.")
	helpBounce = love.graphics.newText(a_ttf, "Meet equals,\npart equals.")
	helpBlock = love.graphics.newText(a_ttf, "Guard yourself.")
	helpDash = love.graphics.newText(a_ttf, "Move with\n   grace.")

	helpLuck = love.graphics.newText(a_ttf, "Godspeed!")
	helpControls = love.graphics.newText(a_ttf, "Arrows - Point   Space - Flap   A/Z - Dash   S/X - Block")
end

function helpScreen_draw ()
	love.graphics.draw(h_bg)
	love.graphics.draw(p_over, 100, 50, 0, 1.5, 1.5)
	love.graphics.draw(p_under, 535, 50, 0, 1.5, 1.5)
	love.graphics.draw(helpOver, 285, 110, 0, 2.3)

	love.graphics.draw(p_bounce, 50, 200, 0, 1.5, 1.5)
	love.graphics.draw(helpBounce, 225, 250, 0, 2)

	love.graphics.draw(p_dash, 585, 200, 0, 1.5, 1.5)
	love.graphics.draw(helpDash, 440, 250, 0, 2)

	love.graphics.draw(p_block, 320, 350, 0, 1.5, 1.5)
	love.graphics.draw(helpBlock, 120, 420, 0, 2)
	love.graphics.draw(helpLuck, 500, 420, 0, 2)
	love.graphics.draw(helpControls, 205, 550, 0, 1.2)
end

--------------------
-- INPUT
--------------------
function mainmenu_keypressed ( key )
	if ( helpScreen == true) then
		helpScreen = false
	else
		frontMenu:keypressed( key )
	end
end

function mainmenu_keyreleased ( key )
	frontMenu:keyreleased( key )
end


----------------------------------------
-- PAUSE
----------------------------------------
-- LOAD
--------------------
function pause_load ()
	mode = pause
	waveText:set("[Enter]")
	lifeText:set("")
	bigText:set("Paused")
end

--------------------
-- UPDATE
--------------------
function pause_update ( dt )
end

--------------------
-- DRAW
--------------------
function pause_draw ()
end

--------------------
-- INPUT
--------------------
function pause_keypressed ( key )
	if ( key == "return"  or  key == "a" ) then
		unpauseGame()
	elseif ( key == "escape" ) then
		mainmenu_load()
	end
end

function pause_keyreleased ( key )
end


----------------------------------------
-- GAMEOVER
----------------------------------------
-- LOAD
--------------------
function gameover_load ()
	mode = gameover
	dieParticle = nil
	lifeText:set("Best " .. maxScore)
	bigText:set("Game Over")
end

--------------------
-- UPDATE
--------------------
function gameover_update ( dt )
end

--------------------
-- DRAW
--------------------
function gameover_draw ()
	game_draw()
end

--------------------
-- INPUT
--------------------
function gameover_keypressed ( key )
	if ( key == "return"  or  key == "escape" ) then
		mainmenu_load()
	end
end

function gameover_keyreleased ( key )
end


----------------------------------------
-- GAME
----------------------------------------
-- LOAD
--------------------
function game_load ()
	mode = game
	lives = 4
	wave = 0
	waveText:set( "Wave " .. wave )
	lifeText:set( "Lives " .. lives )
	bigText:set( "" )

	player = Bat:new()
	birdRegistry = {}

	-- death particles
	diePArt = love.graphics.newImage("art/sprites/heart.png")
	dieParticle = love.graphics.newParticleSystem(diePArt, 30)
	dieParticle:setParticleLifetime(.5) -- Particles live at least 2s and at most 5s.
	dieParticle:setSizeVariation(1); dieParticle:setEmissionRate(0)
	dieParticle:setLinearAcceleration(-200, -200, 200, 200) -- Random movement in all directions.
	dieParticle:setSpeed(40, 50); dieParticle:setColors(1, 1, 1, 1, 1, 1, 1, 0) 
end

--------------------
-- UPDATE
--------------------
function game_update ( dt )
	bird_n = table.maxn( birdRegistry )
	dieParticle:update ( dt )

	if ( bird_n == 0 ) then
		nextWave()
	end

	for i = 1,bird_n do
		if ( false == birdRegistry[i]:update( dt ) ) then
			break
		end
	end

	player:update( dt )
	animx.update(dt)
end

--------------------
-- DRAW
--------------------
function game_draw ()
	for i = 1,table.maxn(birdRegistry) do
		birdRegistry[i]:draw()
	end
	player:draw()

	if ( dieParticle ) then
		love.graphics.draw(dieParticle)
	end
end

--------------------
-- INPUT
--------------------
function game_keypressed ( key )
	if ( key == "right" ) then
		player.moving = true
		player.direction = right
	elseif ( key == "left" ) then
		player.moving = true
		player.direction = left
	elseif ( key == "space" ) then
		player.flying = 2
	elseif ( key == "escape" ) then
		pause_load()
	end
end

function game_keyreleased (key)
	if ( key == "right"  and  player.direction == right ) then
		if ( love.keyboard.isDown("left") ) then
			player.direction = left
		else
			player.moving = false
		end
	elseif ( key == "left"  and  player.direction == left ) then
		if ( love.keyboard.isDown("right") ) then
			player.direction = right
		else
			player.moving = false
		end
	end
end



--------------------------------------------------------------------------------
-- ENTITY CLASSES
--------------------------------------------------------------------------------
-- FLIER	entity superclass
----------------------------------------
-- birds and bats both fly. fliers.
Flier = class('Flier')

function Flier:initialize ( x, y, actor )
	self.x = x
	self.y = y
	self.y_vel = 0
	self.x_vel = 0
	self.moving = false
	self.flying = 0
	self.actor = actor
	self.living = true
end

-- generic flier update: physics
function Flier:update ( dt )
	self:physics( dt )
end

-- drawing the flier (ofc)
function Flier:draw ( )
	if ( self.living == false ) then
		self.actor:switch('die')
	elseif ( self.flying > 0 ) then
		self.actor:switch('flap')
		self.actor:getAnimation():restart()
		self.flying = self.flying - 1
	end
	if ( self.direction == right ) then
		self.actor:flipX(true)
	elseif (self.direction == left) then
		self.actor:flipX(false)
	end
	self.actor:draw( self.x, self.y )
end

--------------------
-- "physics"
--------------------
function Flier:physics ( dt )
	gravity = 1
	floor = 500
	ceiling = 0
	max_vel = 300
	min_vel = -300
	turn = 150

	if ( self.living ) then
		self:physics_x( dt )
		self:physics_y( dt )
		return true
	else
		return self:physics_dead( dt )
	end
end

-- physics on the x-axis
function Flier:physics_x ( dt )
	if ( self.species ) then -- if bird
		max_vel = 280
		min_vel = -280
	end

	-- holding arrow-key
	if ( self.moving ) then
	 	if ( self.x_vel < max_vel and self.direction == right ) then
			self.x_vel = self.x_vel + (max_vel / turn)
	 	elseif ( self.x_vel > min_vel and self.direction == left ) then
			self.x_vel = self.x_vel - (max_vel / turn)
		end
	else
		if ( self.x_vel > 0 ) then
			self.x_vel = self.x_vel - (max_vel / (turn * 3))
		elseif ( self.x_vel < 0 ) then
			self.x_vel = self.x_vel + (max_vel / (turn * 3))
		end
	end

	if ( self.x < -5 ) then
		self.x = 800
	elseif ( self.x > 805 ) then
		self.x = 0
	end

	self.x = self.x + self.x_vel * dt
end

-- physics on the y-axis
function Flier:physics_y ( dt )
	-- wing-flap
	if ( self.flying > 0 ) then
		self.y_vel = -200
		self.flying = self.flying - 1
	end

	-- gravity 
	if ( self.y < floor ) then
		self.y_vel = self.y_vel + gravity
	end

	-- atmosphere (ceiling)
	if ( self.y < ceiling ) then
		self.y_vel = self.y_vel * -1
		self.y = ceiling + 1
	end

	-- if on ground; flap your wings
	if ( self.y > floor ) then
		self.y = floor
		self.flying = 2
	end

	self.y = self.y + self.y_vel * dt
end

-- if not living; in death-spiral
function Flier:physics_dead ( dt )
	-- ignore all input, fall through bottom
	gravity = 2

	if ( self.x_vel > 0 ) then
		self.x_vel = self.x_vel - (max_vel / (turn * 3))
	elseif ( self.x_vel < 0 ) then
		self.x_vel = self.x_vel + (max_vel / (turn * 3))
	end

	if ( self.x < -10 ) then
		self.x = 800
	elseif ( self.x > 810 ) then
		self.x = 0
	end

	self.y_vel = self.y_vel + gravity
	self.y = self.y + self.y_vel * dt
	self.x = self.x + self.x_vel * dt

	if ( self.y > 700 ) then
		self:killFinalize()
		return false
	else
		return true
	end
end

-- kill the Flier, show cool particles
function Flier:kill ( murderer )
	self.living = false
	self.x_vel = murderer.x_vel

	dieParticle:moveTo( self.x, self.y )
	dieParticle:emit( 30 )
end

-- run after Flier falls through screen
function Flier:killFinalize ()
end



----------------------------------------
-- BAT  	player characters
----------------------------------------
Bat = class('Bat', Flier)

function Bat:initialize ()
	-- animations
	batSheet = love.graphics.newImage("art/sprites/bat.png")

	batFlapAnim = animx.newAnimation{
		img = batSheet, tileWidth = 32, frames = {2,3,4,5}
	}:onAnimOver( function()
		self.actor:switch('idle')
	end )
	batIdleAnim = animx.newAnimation {
		img = batSheet, tileWidth = 32, frames = {1}
	}
	batDieAnim = animx.newAnimation {
		img = batSheet, tileWidth = 32, frames = {6}
	}
	batBlockAnim = animx.newAnimation {
		img = batSheet, tileWidth = 32, frames = {7}
	}

	batActor = animx.newActor {
		['idle'] = batIdleAnim, ['flap'] = batFlapAnim, ['die'] = batDieAnim
	}:switch('idle')

	Flier.initialize( self, 50, 100, batActor )
end

function Bat:update ( dt )
	self:physics( dt )
	self:checkBirdCollisions()
end


-- return whether or not the Bat's colliding with given object
function Bat:checkCollision ( other )
	if ( colliding( self, other ) )  then
		return true
	else
		return false
	end
end

-- check collisions with every bird
function Bat:checkBirdCollisions ()
	for i = 1,table.maxn( birdRegistry ) do
		if ( self:checkCollision(birdRegistry[i]) ) then
			judgeCollision( self, birdRegistry[i] )
			return birdRegistry[i]
		end
	end
	return nil
end


-- called after dead Bat falls through screen
function Bat:killFinalize()
	lives = lives - 1
	lifeText:set("Life " .. lives)

	if ( lives <= 0 ) then
		gameover_load()
	else
		self.y = -5
		self.x = 300
		self.living = true
	end
end



----------------------------------------
-- BIRD  	enemy characters
----------------------------------------
Bird = class('Bird', Flier)

function Bird:initialize ( x, y )
	self.species = math.random(1,3)

	-- animations
	birdSheet = love.graphics.newImage("art/sprites/bird.png")
	flapFrames  = { {2,3,4,5}, {9,10,11,12}, {16,17,18,19} }
	idleFrames  = { {1}, {8}, {15} }
	dieFrames   = { {6}, {13}, {20} }
	blockFrames = { {7}, {14}, {21} }

	birdFlapAnim = animx.newAnimation{
		img = birdSheet, tileWidth = 32, tileHeight = 32, frames = flapFrames[self.species]
	}:onAnimOver( function()
		self.actor:switch('idle')
	end )

	birdIdleAnim = animx.newAnimation {
		img = birdSheet, tileWidth = 32, tileHeight = 32, frames = idleFrames[self.species]
	}

	birdDieAnim = animx.newAnimation {
		img = birdSheet, tileWidth = 32, tileHeight = 32, frames = dieFrames[self.species]
	}

	birdBlockAnim = animx.newAnimation {
		img = birdSheet, tileWidth = 32, tileHeight = 32, frames = blockFrames[self.species]
	}

	birdActor = animx.newActor {
		['idle'] = birdIdleAnim, ['flap'] = birdFlapAnim, ['die'] = birdDieAnim,
		['block'] = birdBlockAnim
	}:switch('idle')

	self.actor = birdActor


	if ( self.species == 3 ) then
		self.direction = math.random(left, right)
	else
		self.direction = right
	end

	Flier.initialize( self, x, y, birdActor )
end

function Bird:update ( dt )
	self:destiny()
	return self:physics( dt )
end


-- basic "ai" (determines where the bird should go)
function Bird:destiny ()
	self:destiny_x()
	self:destiny_y()
end

-- "ai" on x-axis of species 1
function Bird:destiny_x ()
	if ( self.species == 1 ) then
		-- fly around the screen, left to right, right to left
		if ( self.x > 450 ) then
			self.direction = left
		elseif ( self.x < 250 ) then
			self.direction = right
		end
	elseif ( self.species == 2 ) then
		-- follow the player bat
		if ( self.x > player.x + 25  and  math.random(0,50) == 25 ) then
			self.direction = left
		elseif ( self.x < player.x - 25  and  math.random(0,50) == 25 ) then
			self.direction = right
		end
	end
		
	self.moving = true
end

-- "ai" on y-axis of species 1
function Bird:destiny_y ()
	if ( self.y > player.y + 50  and  math.random(0,100) == 25 ) then
		self.flying = 2
	end
end


-- after dead bird falls through screen
function Bird:killFinalize()
	index = indexOf(birdRegistry, self)
	table.remove( birdRegistry, index )
end



--------------------------------------------------------------------------------
-- MISC GAME LOGIC
--------------------------------------------------------------------------------
-- set up a new wave of birds
function nextWave ( )
	wave = wave + 1
	waveText:set("Wave " .. wave)
	if ( wave > maxScore) then
		maxScore = wave
	end

	bird_n = wave * 3
	
	for i = 1,bird_n do
		if ( i % 2 == 0 ) then
			birdRegistry[i] = Bird:new( math.random(-20, 0), math.random(0, 600) )
		else
			birdRegistry[i] = Bird:new( math.random(800, 820), math.random(0, 600) )
		end
	end
end

-- assuming a and b are colliding, act accordingly
-- aka, bounce-back or kill one
function judgeCollision ( a, b )
	if ( a.y < b.y - 9  and  ( a.living  or  a.class() == "Bat" ) ) then
		b:kill( a )
	elseif ( a.y > b.y + 9  and  ( b.living  or  a.class() == "Bat" ) ) then
		a:kill( b )
	elseif (  a.living  and  b.living  ) then
		a.x_vel = a.x_vel * -1
		b.x_vel = b.x_vel * -1
	end
end

function pauseGame ()
	pause_load()
end

function unpauseGame ()
	mode = game
	waveText:set( "Wave " .. wave )
	lifeText:set( "Lives " .. lives )
	bigText:set( "" )
end



--------------------------------------------------------------------------------
-- MENUS  	blah blah blah
--------------------------------------------------------------------------------
Menu = class("Menu")

function Menu:initialize( x, y, offset_x, offset_y, scale, menuItems )
	self.x = x; self.y = y
	self.offset_x = offset_x; self.offset_y = offset_y
	self.scale = scale
	self.options = menuItems
	self.selected = 1
	self.enter = false
	self.up = false
	self.down = false
end

function Menu:draw ( )
	for i = 1,table.maxn(self.options) do
		this_y = self.y + ( self.offset_y * i )

		love.graphics.draw( self.options[i][1],
				    self.x, this_y, 0, self.scale, self.scale )
		if ( i == self.selected ) then
			love.graphics.draw( love.graphics.newText(a_ttf, ">>"),
					    self.x - self.offset_x, this_y, 0,
					    self.scale, self.scale)
		end
	end
end

function Menu:keypressed ( key )
	maxn = table.maxn( self.options )

	if ( key == "return"  and  self.enter == false ) then
		self.enter = true
		if ( self.options[self.selected][2] ) then
			self.options[self.selected][2]()
		end
	elseif ( key == "up"  and  self.selected > 1  and  self.up == false ) then
		self.up = true
		self.selected = self.selected - 1
	elseif ( key == "up"  and  self.up == false ) then
		self.up = true
		self.selected = maxn
	elseif ( key == "down" and self.selected < maxn  and  self.down == false ) then
		self.down = true
		self.selected = self.selected + 1
	elseif ( key == "down" and  self.down == false ) then
		self.down = true
		self.selected = 1
	end
end

function Menu:keyreleased ( key )
	if ( key == "return" ) then
		self.enter = false
	elseif ( key == "up" ) then
		self.up = false
	elseif ( key == "down" ) then
		self.down = false
	end
end



--------------------------------------------------------------------------------
-- UTIL  	blah blah blah
--------------------------------------------------------------------------------
-- return whether or not two objects are colliding/overlapping
function colliding ( a, b )
--	min_b_y = -16; max_b_y = 16
--	min_b_x = -16; max_b_x = 16
--	if ( b.direction == right ) then
--		min_b_x = min_b_x + 16
--		max_b_x = max_b_x + 16
--	end

	if ( inRange(a.x, b.x - 16, b.x + 16) and  inRange(a.y, b.y + -16, b.y + 16) ) then
		return true
	else
		return false
	end
end

-- return whether or not 'a' is within range 
function inRange ( a, min, max )
	if ( min < a  and  a < max ) then
		return true
	else
		return false
	end
end

-- return the num with greatest absolute value
function greatestAbs ( a, b )
	if ( abs(a) > abs(b) ) then
		return a
	else
		return b

	end
end

-- return index of given item in list
function indexOf ( list, item )
	for i = 1,table.maxn(list) do
		if ( list[i] == item ) then
			return i
		end
	end
	return 0
end