1-- Copyright (C) 2007, 2010 - Bit-Blot 2-- 3-- This file is part of Aquaria. 4-- 5-- Aquaria is free software; you can redistribute it and/or 6-- modify it under the terms of the GNU General Public License 7-- as published by the Free Software Foundation; either version 2 8-- of the License, or (at your option) any later version. 9-- 10-- This program is distributed in the hope that it will be useful, 11-- but WITHOUT ANY WARRANTY; without even the implied warranty of 12-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 13-- 14-- See the GNU General Public License for more details. 15-- 16-- You should have received a copy of the GNU General Public License 17-- along with this program; if not, write to the Free Software 18-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 19 20if not v then v = {} end 21if not AQUARIA_VERSION then dofile("scripts/entities/entityinclude.lua") end 22 23function init(me) 24 node_setCursorActivation(me, true) 25end 26 27function update(me, dt) 28end 29 30function activate(me) 31 local n = getNaija() 32 33 entity_idle(n) 34 35 entity_swimToNode(n, me) 36 entity_watchForPath(n) 37 38 entity_animate(n, "sitThrone") 39 40 overrideZoom(0.5, 2) 41 42 watch(2) 43 44 while (not isLeftMouse()) and (not isRightMouse()) do 45 watch(FRAME_TIME) 46 end 47 48 entity_idle(n) 49 entity_addVel(n, 0, -200) 50 overrideZoom(1, 1) 51 watch(1) 52 overrideZoom(0) 53end 54