Aquaria/files/scripts/entities/SunDoor.lua

-- Copyright (C) 2007, 2010 - Bit-Blot
--
-- This file is part of Aquaria.
--
-- Aquaria is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 2
-- of the License, or (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
--
-- See the GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

if not v then v = {} end

dofile("scripts/entities/doorcommon.lua")

v.n = 0
v.glow = 0
v.body = 0

v.curNote = 0
v.sungNote = -1
v.notesToSing = 8

v.timer = 3

function init(me)
	v.commonInit(me, "sun-door-0001", "EnergyDoor", 1, 0)
	entity_setState(me, STATE_CLOSED, -1)
	
	if entity_isFlag(me, 1) then
		entity_setState(me, STATE_OPENED)
	end
	--entity_initSkeletal(me, "SunDoor")
	--[[
	v.body = entity_getBoneByName(me, "Body")
	bone_alpha(v.body, 0)
	
	v.glow = entity_getBoneByName(me, "Glow")
	bone_setBlendType(v.glow, BLEND_ADD)
	]]--
end

local function singNote(me)
	v.timer = 9 - v.curNote
	v.sungNote = getRandNote()
	local q = createQuad("particles/ring2")
	quad_setPosition(q, entity_x(me), entity_y(me))
	quad_scale(q, 0, 0)
	quad_scale(q, 4, 4, 0.2)
	quad_setBlendType(q, BLEND_ADD)
	local r, g, b = getNoteColor(v.sungNote)
	quad_color(q, r, g, b, 0.1)
	quad_delete(q, 1)
	
	
	q = createQuad(string.format("song/notesymbol%d", v.sungNote))
	quad_setPosition(q, entity_x(me), entity_y(me))
	quad_scale(q, 0, 0)
	quad_scale(q, 2, 2, 1)
	--quad_setBlendType(q, BLEND_ADD)
	r, g, b = getNoteColor(v.sungNote)
	quad_color(q, r, g, b, 3)
	quad_delete(q, 5)
end

function update(me, dt)
	if v.n == 0 then v.n = getNaija() end
	v.commonUpdate(me, dt)
	
	if entity_isState(me, STATE_CLOSED) then
		if entity_isEntityInRange(me, v.n, 256) then
			--debugLog("In range")
			v.timer = v.timer - dt
			if v.timer < 0 then
				if chance(75) then
					if chance(50) then
						emote(EMOTE_NAIJASIGH)
					else
						emote(EMOTE_NAIJAUGH)
					end
				end
				playSfx("Denied")
				v.curNote = 0
				-- play a note
				singNote(me)
			end
		end
	end
		
	-- timer do stuff
end

function songNote(me, note)
	if entity_isState(me, STATE_CLOSED) then
		if v.sungNote > -1 then
			if note == v.sungNote then
				
				v.curNote = v.curNote + 1
				if v.curNote >= v.notesToSing then
					entity_setFlag(me, 1)
					entity_setState(me, STATE_OPEN)
					playSfx("sunform")
					playSfx("collectible")
				else
					playSfx("secret")
					singNote(me)
				end
			else
				v.curNote = 0
				v.sungNote = -1
				emote(EMOTE_NAIJASIGH)
				playSfx("Denied")
			end
		end
	end
end