1
0
Fork 0
mirror of https://github.com/AquariaOSE/Aquaria.git synced 2024-12-25 14:15:46 +00:00
Aquaria/game_scripts/scripts/entities/transturtle.lua

502 lines
14 KiB
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
if not AQUARIA_VERSION then dofile("scripts/entities/entityinclude.lua") end
-- regular areas
local TURTLE_REGULAR = 0
-- energy upgrade secret, forest 05, openwater03
local TURTLE_SECRET1 = 1
v.seat = 0
v.seat2 = 0
v.tame = 0
v.n = 0
v.li = 0
v.leave = 0
v.avatarAttached = false
v.liAttached = false
v.myFlag = 0
v.turtleType = TURTLE_REGULAR
v.light1 = 0
v.light2 = 0
v.seen = false
v.sbank = 0
function init(me)
v.n = getNaija()
setupEntity(me, "")
entity_initSkeletal(me, "TransTurtle")
entity_setEntityType(me, ET_NEUTRAL)
entity_setActivation(me, AT_CLICK, 128, 512)
v.seat = entity_getBoneByName(me, "Seat")
v.seat2 = entity_getBoneByName(me, "Seat2")
v.tame = entity_getBoneByName(me, "Tame")
entity_setCullRadius(me, 1024)
bone_alpha(v.seat, 0)
bone_alpha(v.seat2, 0)
bone_alpha(v.tame, 0)
if isMapName("VEIL01") then
debugLog("is veil01")
v.myFlag = FLAG_TRANSTURTLE_VEIL01
v.sbank = 1014
elseif isMapName("VEIL02") then
debugLog("is veil02")
v.myFlag = FLAG_TRANSTURTLE_VEIL02
v.sbank = 1014
elseif isMapName("OPENWATER03") then
v.myFlag = FLAG_TRANSTURTLE_OPENWATER03
v.sbank = 1009
elseif isMapName("FOREST04") then
v.myFlag = FLAG_TRANSTURTLE_FOREST04
v.sbank = 1010
-- think openwater06 is unused atm
elseif isMapName("OPENWATER06") then
v.myFlag = FLAG_TRANSTURTLE_OPENWATER06
v.sbank = 1009
-- think openwater06 is unused atm
elseif isMapName("MAINAREA") then
v.myFlag = FLAG_TRANSTURTLE_MAINAREA
v.sbank = 1008
elseif isMapName("ABYSS03") then
v.myFlag = FLAG_TRANSTURTLE_ABYSS03
v.turtleType = TURTLE_REGULAR
v.sbank = 1015
elseif isMapName("FINALBOSS") then
v.myFlag = FLAG_TRANSTURTLE_FINALBOSS
v.turtleType = TURTLE_REGULAR
v.sbank = 1021
elseif isMapName("FOREST05") then
v.myFlag = FLAG_TRANSTURTLE_FOREST05
v.turtleType = TURTLE_SECRET1
elseif isMapName("SEAHORSE") then
v.myFlag = FLAG_TRANSTURTLE_SEAHORSE
v.turtleType = TURTLE_SECRET1
end
if v.myFlag ~= 0 and (not entity_isFlag(me, 0)) then
setFlag(v.myFlag, 1)
end
v.light1 = entity_getBoneByName(me, "Light1")
v.light2 = entity_getBoneByName(me, "Light2")
bone_setBlendType(v.light1, BLEND_ADD)
bone_setBlendType(v.light2, BLEND_ADD)
loadSound("TransTurtle-Light")
loadSound("transturtle-takeoff")
end
local function lights(me, on, t)
local a = 1
if not on then
a = 0
debugLog("Lights off!")
else
debugLog("Lights on!")
end
bone_alpha(v.light1, a, t)
bone_alpha(v.light2, a, t)
end
function postInit(me)
v.leave = entity_getNearestNode(me, "TRANSTURTLELEAVE")
if v.turtleType == TURTLE_REGULAR then
debugLog("Regular turtle")
if isFlag(v.myFlag, 0) then
lights(me, false, 0)
else
-- turn on ze lights
lights(me, true, 0)
end
if v.sbank ~= 0 then
if entity_isEntityInRange(me, getNaija(), 600) then
centerText(getStringBank(v.sbank))
end
end
else
debugLog("Special turtle")
lights(me, true, 0)
end
-- if naija starts on a turtle, ignore the seen/hint
if entity_isEntityInRange(me, v.n, 350) then
v.seen = true
end
end
local function isOtherFlag(flag)
return (v.myFlag ~= flag and isFlag(flag, 1))
end
local function anyOtherFlag()
if v.turtleType == TURTLE_REGULAR then
debugLog("turtle is regular")
if isOtherFlag(FLAG_TRANSTURTLE_VEIL01) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_VEIL02) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_OPENWATER03) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_FOREST04) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_MAINAREA) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_FINALBOSS) then
return true
elseif isOtherFlag(FLAG_TRANSTURTLE_ABYSS03) then
return true
end
end
if v.turtleType == TURTLE_SECRET1 then
debugLog("turtle is secret")
return true
end
debugLog("turtle is nothing")
return false
end
function update(me, dt)
--[[
if isForm(FORM_BEAST) then
entity_setActivationType(me, AT_CLICK)
else
entity_setActivationType(me, AT_NONE)
end
if not hasSong(SONG_BEASTFORM) then
if entity_isEntityInRange(me, v.n, 512) then
voiceOnce("Naija_TransportTurtles")
end
end
]]--
if entity_isFlag(me, 0) then
--debugLog("flag is 0")
entity_setActivationType(me, AT_NONE)
else
--debugLog("setting click")
entity_setActivationType(me, AT_CLICK)
end
if v.avatarAttached then
--entity_flipToSame(v.n, me)
local x, y = bone_getWorldPosition(v.seat)
entity_setRidingData(me, x, y, 0, entity_isfh(me))
end
if v.liAttached then
local x, y = bone_getWorldPosition(v.seat2)
entity_setPosition(v.li, x, y)
entity_rotate(v.li, entity_getRotation(me))
if entity_isfh(me) and not entity_isfh(v.li) then
entity_fh(v.li)
elseif not entity_isfh(me) and entity_isfh(v.li) then
entity_fh(v.li)
end
end
if entity_isEntityInRange(me, v.n, 300) then
if not v.seen then
emote(EMOTE_NAIJAWOW)
if anyOtherFlag() then
setControlHint(getStringBank(226), 0, 0, 0, 5, "transturtle/headicon")
else
setControlHint(getStringBank(225), 0, 0, 0, 5, "transturtle/headicon")
end
v.seen = true
end
end
if v.turtleType == TURTLE_REGULAR then
if isNested() then return end
if entity_isEntityInRange(me, v.n, 300) and (not isFlag(v.myFlag, 1) or entity_isFlag(me, 0)) and entity_isUnderWater(v.n) then
entity_idle(v.n)
entity_setInvincible(v.n, true)
entity_flipToEntity(v.n, me)
cam_toEntity(me)
watch(1.5)
playSfx("TransTurtle-Light")
lights(me, true, 1.5)
watch(2)
cam_toEntity(v.n)
watch(1)
setFlag(v.myFlag, 1)
pickupGem("Turtle")
entity_setFlag(me, 1)
end
else
if entity_isEntityInRange(me, v.n, 256) and entity_isFlag(me,0) then
entity_setFlag(me, 1)
pickupGem("Turtle")
--debugLog(string.format("setting %d to 1", v.myFlag));
setFlag(v.myFlag, 1)
end
end
end
function activate(me)
--if isForm(FORM_BEAST) then
--[[
if v.turtleType == TURTLE_REGULAR then
voiceOnce("Naija_TransportTurtles2")
end
]]--
if entity_isFlag(me, 0) then return end
if entity_getRiding(getNaija())~=0 then
return
end
if anyOtherFlag() then
entity_setActivation(me, AT_NONE)
if isFlag(FLAG_FIRSTTRANSTURTLE, 0) then
local x, y = bone_getWorldPosition(v.tame)
entity_swimToPosition(v.n, x, y)
entity_watchForPath(v.n)
entity_flipToEntity(v.n, me)
entity_animate(v.n, "tameTurtle", 0, LAYER_UPPERBODY)
entity_animate(me, "tame")
while entity_isAnimating(me) do
watch(FRAME_TIME)
end
entity_idle(v.n)
entity_animate(me, "idle")
watch(0.5)
-- don't forget this later:
setFlag(FLAG_FIRSTTRANSTURTLE, 1)
end
v.li = 0
if hasLi() then
v.li = getLi()
if entity_isEntityInRange(v.n, v.li, 512) then
else
fade2(1, 0.2, 1, 1, 1)
watch(0.2)
entity_setPosition(v.li, entity_x(v.n), entity_y(v.n))
fade2(0, 0.5)
watch(0.5)
end
end
local x, y = bone_getWorldPosition(v.seat)
entity_swimToPosition(v.n, x, y)
entity_watchForPath(v.n)
entity_animate(v.n, "rideTurtle", -1)
v.avatarAttached = true
if entity_isfh(me) and not entity_isfh(v.n) then
entity_fh(v.n)
elseif not entity_isfh(me) and entity_isfh(v.n) then
entity_fh(v.n)
end
if v.li ~= 0 then
debugLog("here!")
entity_setState(v.li, STATE_PUPPET, -1, 1)
local x2, y2 = bone_getWorldPosition(v.seat2)
entity_swimToPosition(v.li, x2, y2)
entity_watchForPath(v.li)
entity_animate(v.li, "rideTurtle", -1)
v.liAttached = true
entity_setRiding(v.li, me)
end
entity_setRiding(v.n, me)
overrideZoom(0.75, 1.5)
if isMapName("VEIL01") then
entity_rotate(me, -80, 2, 0, 0, 1)
end
entity_animate(me, "swimPrep")
while entity_isAnimating(me) do
watch(FRAME_TIME)
end
entity_moveToNode(me, v.leave, SPEED_FAST)
entity_animate(me, "swim", -1)
playSfx("transturtle-takeoff")
watch(1)
fade(1, 1)
watch(1)
-- HACK: Keep the mouse cursor from reappearing for an instant
-- when under keyboard or joystick control.
disableInput()
-- rotation
--[[
VEIL02
VEIL01
OPENWATER03
MAINAREA
FOREST04
VEIL02
]]--
-- regular cycle:
if v.turtleType == TURTLE_REGULAR then
if isMapName("VEIL01") then
if isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
end
elseif isMapName("VEIL02") then
if isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
end
elseif isMapName("OPENWATER03") then
if isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
end
elseif isMapName("FOREST04") then
if isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
end
elseif isMapName("MAINAREA") then
if isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
end
elseif isMapName("ABYSS03") then
if isFlag(FLAG_TRANSTURTLE_FINALBOSS, 1) then
warpNaijaToSceneNode("FINALBOSS", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
end
elseif isMapName("FINALBOSS") then
if isFlag(FLAG_TRANSTURTLE_OPENWATER03, 1) then
warpNaijaToSceneNode("OPENWATER03", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_MAINAREA, 1) then
warpNaijaToSceneNode("MAINAREA", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_FOREST04, 1) then
warpNaijaToSceneNode("FOREST04", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL02, 1) then
warpNaijaToSceneNode("VEIL02", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_VEIL01, 1) then
warpNaijaToSceneNode("VEIL01", "TRANSTURTLE")
elseif isFlag(FLAG_TRANSTURTLE_ABYSS03, 1) then
warpNaijaToSceneNode("ABYSS03", "TRANSTURTLE")
end
end
end
-- secret:
if v.turtleType == TURTLE_SECRET1 then
if isMapName("SEAHORSE") then
warpNaijaToSceneNode("FOREST05", "TRANSTURTLE")
elseif isMapName("FOREST05") then
warpNaijaToSceneNode("SEAHORSE", "TRANSTURTLE")
end
end
else
debugLog("TransTurtle: no other flag set")
playSfx("denied")
setControlHint(getStringBank(225), 0, 0, 0, 4, "transturtle/headicon")
end
--end
end
function enterState(me)
if entity_isState(me, STATE_IDLE) then
entity_animate(me, "idle", -1, 0, -1)
end
end
function exitState(me)
end