mirror/Aquaria
1
0
Fork 0
mirror of https://github.com/AquariaOSE/Aquaria.git synced 2024-11-27 02:33:50 +00:00
Code Issues Releases Wiki Activity
Aquaria/files/scripts/entities/seahorsecommon.lua

587 lines
14 KiB
Lua
Raw Blame History

-- 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
--SeaHorse
-- specific
local STATE_JUMP = 1000
local STATE_TRANSITION = 1001
local STATE_RETURNTOWALL = 1002
local STATE_SURFACE = 1003
v.moveTimer = 0
v.moveDir = 0
v.avoidCollisionsTimer = 0
v.riding = false
v.noteDown = -1
v.dirx = 0
v.diry = 0
v.wasUnderWater = true
v.racePath = 0
v.curNode = 0
v.startx = 0
v.starty = 0
v.wasInCurrent = false
v.n = 0
v.naijaRideAnim = -1
local RIDEANIM_NORMAL = 0
local RIDEANIM_SLOW = 1
local RIDEANIM_OUTOFWATER = 2
v.waiting = false
v.incut = false
v.seahorseCostume = false
function v.commonInit(me, tex, sz)
if sz == 0 then
sz = 50
end
setupBasicEntity(
me,
tex, -- texture
12, -- health
2, -- manaballamount
2, -- exp
10, -- money
sz, -- collideRadius (for hitting entities + spells)
STATE_IDLE, -- initState
128, -- sprite width
256, -- sprite height
1, -- particle "explosion" type, 0 = none
0, -- 0/1 hit other entities off/on (uses collideRadius)
4000, -- updateCull -1: disabled, default: 4000
0
)
loadSound("SeahorseWhinny")
entity_setName(me, "Seahorse")
entity_setMaxSpeed(me, 200)
--entity_clampToSurface(me)
entity_setState(me, STATE_IDLE)
entity_setDropChance(me, 10)
entity_setDeathParticleEffect(me, "TinyRedExplode")
entity_offset(me, 0, -40, 1, -1, 1, 1)
entity_setSegs(me, 2, 30, 0.5, 0.3, -0.018, 0, 6, 1)
entity_setDamageTarget(me, DT_AVATAR_LIZAP, false)
entity_setCanLeaveWater(me, true)
entity_setDamageTarget(me, DT_AVATAR_ENERGYBLAST, false)
entity_setDamageTarget(me, DT_AVATAR_PET, false)
end
function postInit(me)
v.n = getNaija()
v.startx = entity_x(me)
v.starty = entity_y(me)
entity_update(me, math.random(100)/100.0)
end
local function setRideSpeed(me)
if not entity_isUnderWater(me) then
entity_setMaxSpeedLerp(me, 8)
elseif entity_isState(me, STATE_RACE) then
entity_setMaxSpeedLerp(me, 3.4, 1)
else
if getCostume() == "seahorse" then
v.seahorseCostume = true
entity_setMaxSpeedLerp(me, 5.5, 1)
else
v.seahorseCostume = false
entity_setMaxSpeedLerp(me, 3.5, 1)
end
end
end
local function updateRideAnim(me, num)
if v.naijaRideAnim ~= num then
if num == RIDEANIM_NORMAL then
entity_animate(v.n, "rideSeaHorse", LOOP_INF, LAYER_OVERRIDE)
elseif num == RIDEANIM_SLOW then
entity_animate(v.n, "rideSeaHorse2", LOOP_INF, LAYER_OVERRIDE)
elseif num == RIDEANIM_OUTOFWATER then
entity_animate(v.n, "rideSeaHorse3", LOOP_INF, LAYER_OVERRIDE)
end
v.naijaRideAnim = num
end
end
local function getRidePosition(me)
local x, y = entity_getPosition(me)
local ox, oy = entity_getOffset(me)
x = x + ox
y = y + oy
local offx = 32
if entity_isFlippedHorizontal(me) then
-- facing right
offx = -offx
end
x = x+offx
y = y-10
return x, y
end
local function startRide(me)
v.incut = true
debugLog("start ride")
setRideSpeed(me)
entity_setInvincible(me, true)
entity_setInvincible(v.n, true)
entity_clearVel(me)
entity_clearVel(v.n)
v.waiting = true
entity_idle(v.n)
entity_animate(v.n, "pushForward")
entity_flipToEntity(v.n, me)
watch(0.2)
entity_clearVel(v.n)
local x, y = getRidePosition(me)
entity_setPosition(v.n, x, y, 1, 0, 0, 0)
watch(1)
v.riding = true
--entity_animate(v.n, "rideSeaHorse", LOOP_INF, LAYER_OVERRIDE)
v.naijaRideAnim = -1
updateRideAnim(me, RIDEANIM_NORMAL)
-- zoomsurface
--setCanWarp(false)
entity_setRiding(getNaija(), me)
local x, y = getRidePosition(me)
entity_setRidingData(me, x, y, entity_getRotation(me), entity_isfh(me))
entity_setInvincible(me, false)
entity_setInvincible(v.n, false)
v.waiting = false
entity_sound(me, "SeahorseWhinny")
setCameraLerpDelay(0.05)
cam_toEntity(me)
v.incut = false
end
local function stopRide(me)
debugLog("stop ride")
if v.riding then
entity_sound(me, "SeahorseWhinny")
--if entity_isUnderWater(me) then
overrideZoom(0)
v.riding = false
entity_stopAllAnimations(v.n)
entity_idle(v.n)
--setCanWarp(true)
entity_setRiding(v.n, 0)
entity_addVel(v.n, entity_velx(me), entity_vely(me))
if not entity_isUnderWater(v.n) then
entity_animate(v.n, "burst")
else
entity_setMaxSpeedLerp(me, 1, 1)
end
--end
setCameraLerpDelay(0)
cam_toEntity(getNaija())
end
end
function activate(me)
if v.incut then return end
--debugLog("activate")
if avatar_isOnWall() then return end
if v.riding then
stopRide(me)
else
startRide(me)
end
end
function update(me, dt)
if isForm(FORM_NORMAL) then
entity_setActivation(me, AT_CLICK, 64, 512)
else
entity_setActivation(me, AT_NONE)
if v.riding then
stopRide(me)
end
end
--if not entity_isNearObstruction(me, 3) then
local inCurrent = false
if v.riding then
inCurrent = entity_updateCurrents(me, dt)
if (inCurrent and not v.wasInCurrent) then
-- start boost anim
elseif (not inCurrent and v.wasInCurrent) then
-- end boost anim
end
end
if not v.seahorseCostume then
if inCurrent then
entity_setMaxSpeed(me, 150)
else
entity_setMaxSpeed(me, 200)
end
else
entity_setMaxSpeed(me, 200)
end
v.wasInCurrent = inCurrent
if v.riding then
if entity_getRiding(getNaija())==0 then
stopRide(me)
else
overrideZoom(0.55, 0.5)
end
esetv(me, EV_LOOKAT, 0)
else
esetv(me, EV_LOOKAT, 1)
end
if v.riding == true or entity_isState(me, STATE_RACE) then
local e = getFirstEntity()
while e~=0 do
if e~=me and entity_isName(e, "Seahorse") then
if entity_isEntityInRange(me, e, 64) then
local dx, dy = entity_getVectorToEntity(me, e)
dx, dy = vector_setLength(dx, dy, 1000)
entity_addVel(e, dx, dy)
end
end
e = getNextEntity()
end
end
if entity_checkSplash(me) then
if not entity_isUnderWater(me) then
--//entity_setMaxSpeed(me, outOfWaterSpeed)
--entity_setMaxSpeedLerp(me, 2, 0.1)
setRideSpeed(me)
--end
--entity_addVel(me, 0, -2000)
local vx = entity_velx(me)
local vy = entity_vely(me)
vx, vy = vx*4, vy*4
vx, vy = vector_cap(vx, vy, 1100)
entity_clearVel(me)
entity_addVel(me, vx, vy)
entity_setWeight(me, 800)
--entity_sound(me, "splash-outof")
else
setRideSpeed(me)
--entity_setMaxSpeedLerp(me, 1, 0.8)
if not v.riding then
entity_setMaxSpeedLerp(me, 1, 1)
else
setRideSpeed(me)
end
entity_setWeight(me, 0)
--entity_sound(me, "splash-into")
end
end
--[[
if entity_isUnderWater(me) ~= v.wasUnderWater then
v.wasUnderWater = entity_isUnderWater(me)
spawnParticleEffect("Splash", entity_x(me), entity_y(me))
if not entity_isUnderWater(me) then
--//entity_setMaxSpeed(me, outOfWaterSpeed)
--entity_setMaxSpeedLerp(me, 2, 0.1)
entity_addVel(me, 0, -1000)
entity_setWeight(me, 800)
entity_sound(me, "splash-outof")
else
--entity_setMaxSpeedLerp(me, 1, 0.8)
entity_setWeight(me, 0)
entity_sound(me, "splash-into")
end
end
]]--
if entity_isState(me, STATE_IDLE) then
if not v.riding then
v.avoidCollisionsTimer = v.avoidCollisionsTimer + dt
if v.avoidCollisionsTimer > 5 then
v.avoidCollisionsTimer = 0
end
v.moveTimer = v.moveTimer + dt
if v.moveTimer < 1.5 then
-- move
local amount = 2000*dt
if v.moveDir == 0 then
entity_addVel(me, -amount, 0)
if entity_isFlippedHorizontal(me) then
entity_flipHorizontal(me)
end
elseif v.moveDir == 1 then
entity_addVel(me, 0, amount)
elseif v.moveDir == 2 then
entity_addVel(me, amount, 0)
if not entity_isFlippedHorizontal(me) then
entity_flipHorizontal(me)
end
elseif v.moveDir == 3 then
entity_addVel(me, 0, amount)
end
elseif v.moveTimer > 3 then
-- stop
--entity_clearVel(me)
v.moveTimer = 0
v.moveDir = v.moveDir +1
if v.moveDir >= 4 then
v.moveDir = 0
end
elseif v.moveTimer > 2.5 then
local factor = 5*dt
entity_addVel(me, -entity_velx(me)*factor, -entity_vely(me)*factor)
end
if v.avoidCollisionsTimer < 4 then
entity_doCollisionAvoidance(me, dt, 4, 1.0)
end
else
if v.noteDown ~= -1 and entity_isUnderWater(me) then
local amt
if getCostume() == "seahorse" then
amt = 8000*dt
else
amt = 2000*dt
end
entity_addVel(me, v.dirx*amt, v.diry*amt)
end
if entity_getHealth(getNaija()) < 1 then
stopRide(me)
end
--entity_doCollisionAvoidance(me, dt, 8, 0.1)
if v.dirx < 0 and entity_velx(me) < -100 then
if entity_isFlippedHorizontal(me) then
entity_flipHorizontal(me)
end
elseif v.dirx > 0 and entity_velx(me) > 100 then
if not entity_isFlippedHorizontal(me) then
entity_flipHorizontal(me)
end
end
--entity_flipToVel(me)
end
entity_setTarget(me, getNaija())
if v.riding then
if entity_isUnderWater(me) then
entity_doCollisionAvoidance(me, dt, 4, 0.6)
--entity_doCollisionAvoidance(me, dt, 3, 0.5)
--entity_doEntityAvoidance(me, dt, 32, 1.0)
else
entity_doCollisionAvoidance(me, dt, 4, 1)
end
else
entity_doEntityAvoidance(me, dt, 128, 0.1)
end
entity_doCollisionAvoidance(me, dt, 2, 1.0)
entity_updateMovement(me, dt)
--entity_rotateToVel(me, 0.1)
elseif entity_isState(me, STATE_RACE) then
local x, y = node_getPathPosition(v.racePath, v.curNode)
if x == 0 and y == 0 then
--entity_setState(me, STATE_RESTART)
v.curNode = 0
else
if entity_isPositionInRange(me, x, y, 64) then
v.curNode = v.curNode + 1
end
local x1, y1 = entity_getPosition(me)
local vx = x - x1
local vy = y - y1
vector_setLength(vx, vy, 500*dt)
entity_addVel(me, vx, vy)
entity_flipToVel(me)
entity_doEntityAvoidance(me, dt, 32, 1.0)
entity_doCollisionAvoidance(me, dt, 8, 0.2)
entity_updateMovement(me, dt)
end
end
if v.waiting then
entity_clearVel(me)
end
if v.riding then
entity_updateLocalWarpAreas(me, true)
entity_clearVel(v.n)
local x, y = getRidePosition(me)
entity_setRidingData(me, x, y, entity_getRotation(me), entity_isfh(me))
--entity_setRidingRotation(me, entity_getRotation(me))
--entity_rotate(v.n, entity_getRotation(me))
--[[
if entity_isFlippedHorizontal(me) and not entity_isFlippedHorizontal(v.n) then
entity_flipHorizontal(v.n)
elseif not entity_isFlippedHorizontal(me) and entity_isFlippedHorizontal(v.n) then
entity_flipHorizontal(v.n)
end
]]--
--avatar_updatePosition()
if not entity_isUnderWater(me) then
updateRideAnim(me, RIDEANIM_OUTOFWATER)
elseif entity_isVelIn(me, 200) then
updateRideAnim(me, RIDEANIM_SLOW)
else
updateRideAnim(me, RIDEANIM_NORMAL)
end
if v.noteDown == -1 then
if entity_isUnderWater(me) then
entity_doFriction(me, dt, 450)
end
end
--updateRideAnim(me, RIDEANIM_NORMAL)
--[[
entity_clearVel(v.n)
entity_addVel(v.n, entity_velx(me), entity_vely(me))
]]--
end
entity_handleShotCollisions(me)
end
function hitSurface(me)
end
function enterState(me)
if entity_isState(me, STATE_IDLE) then
if not v.riding then
entity_setMaxSpeedLerp(me, 1, 1)
end
v.avoidCollisionsTimer = 0
elseif entity_isState(me, STATE_DEAD) then
stopRide(me)
elseif entity_isState(me, STATE_RACE) then
v.curNode = 0
setRideSpeed(me)
v.racePath = entity_getNearestNode(me, "RACE")
elseif entity_isState(me, STATE_RESTART) then
entity_clearVel(me)
entity_setPosition(me, v.startx, v.starty)
entity_setStateTime(me, 0.1)
end
end
function damage(me, attacker, bone, damageType, dmg)
return true
end
function songNote(me, note)
if v.riding then
--debugLog("noteUp!")
v.noteDown = note
local amt = 0.6
if note == 0 then
v.dirx, v.diry = 0, 1
elseif note == 1 then
v.dirx, v.diry = 1, 1
elseif note == 2 then
v.dirx, v.diry = 1, 0
elseif note == 3 then
v.dirx, v.diry = 1,-1
elseif note == 4 then
v.dirx, v.diry = 0,-1
elseif note == 5 then
v.dirx, v.diry = -1,-1
elseif note == 6 then
v.dirx, v.diry = -1, 0
elseif note == 7 then
v.dirx, v.diry = -1, 1
else
debugLog("Sour note! (impossible)")
v.dirx, v.diry = 0, 0
return
end
v.dirx, v.diry = vector_setLength(v.dirx, v.diry, amt)
end
end
function songNoteDone(me, note)
--debugLog("songNoteDone function")
if note == v.noteDown then
--debugLog("noteDone!")
v.dirx = 0
v.diry = 0
v.noteDown = -1
end
end
function exitState(me)
if entity_isState(me, STATE_SURFACE) then
entity_rotate(me, 0, 1)
entity_setState(me, STATE_IDLE)
elseif entity_isState(me, STATE_RESTART) then
entity_setState(me, STATE_WAIT)
end
end
function shiftWorlds(me, old, new)
if v.riding then
if new == WT_SPIRIT then
entity_setRiding(v.n, 0)
cam_toEntity(v.n)
elseif new == WT_NORMAL then
if entity_isEntityInRange(me, v.n, 64) then
entity_setRiding(v.n, me)
cam_toEntity(me)
else
overrideZoom(0)
v.riding = false
entity_stopAllAnimations(v.n)
entity_idle(v.n)
entity_setRiding(v.n, 0)
entity_setMaxSpeedLerp(me, 1, 1)
end
end
end
end
Reference in a new issue View git blame Copy permalink