From 10a0e290ac07524dc129cc2b227b0f9e95df0f8e Mon Sep 17 00:00:00 2001
From: Ben Beltran <ben@nsovocal.com>
Date: Mon, 16 Apr 2012 09:39:52 -0500
Subject: first commit

---
 .../Contents/Resources/main_actor.lua              | 89 ++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 build/Debug/Pico-Lua-Test.app/Contents/Resources/main_actor.lua

(limited to 'build/Debug/Pico-Lua-Test.app/Contents/Resources/main_actor.lua')

diff --git a/build/Debug/Pico-Lua-Test.app/Contents/Resources/main_actor.lua b/build/Debug/Pico-Lua-Test.app/Contents/Resources/main_actor.lua
new file mode 100644
index 0000000..a75556f
--- /dev/null
+++ b/build/Debug/Pico-Lua-Test.app/Contents/Resources/main_actor.lua
@@ -0,0 +1,89 @@
+--Configuration for the Main Actor
+--Also, this is pretty arbitrary: walksound=0 (for the audio track switches)
+
+--the directions
+up=0
+right=1
+down=2
+left = 3
+
+--Parameters
+this.actorname = "Main Character"
+this.enemy = 0
+this.controllable = 1
+this.jumpstrength = 6
+this.speed = 3
+this.shotlimit = 3
+
+print(">>> Entity Created - "..this.actorname);
+
+function this.jump(this)
+	if not this:get_jumplock() 
+		and this:can_move(0,this:get_x(),this:get_y()) 
+		and not this:can_move(2,this:get_x(),this:get_y()) then
+		this:set_vertical_speed(this:get_vertical_speed()-this.jumpstrength)
+	end
+end
+
+function this.centermap(this)
+
+	this:set_map_sx(this:get_x() - this:get_cfg_screen_width()/2) 
+	this:set_map_sy(this:get_y() - this:get_cfg_screen_height()/2)
+	
+	if this:get_map_sx() < 0 then
+		this:set_map_sx(0)
+	elseif this:get_map_sx() + this:get_cfg_screen_width() >= this:get_cfg_max_map_w()*25 then
+		this:set_map_sx(this:get_cfg_max_map_w()*25 - this:get_cfg_screen_width())
+	end
+	
+	if this:get_map_sy() < 0 then
+		this:set_map_sy(0)
+	elseif this:get_map_sy() + this:get_cfg_screen_height() >= this:get_cfg_max_map_h()*25 then
+		this:set_map_sy(this:get_cfg_max_map_h()*25 - this:get_cfg_screen_height())
+	end
+end
+
+function this.handleinput(this)
+	if (this:get_leftkey() > 0 and (this:get_leftkey() > this:get_rightkey() or this:get_rightkey() == 0)) then
+		this:set_ownspeed(-this.speed)
+		this:set_oldclip(1)
+		this:set_currentdirection(left)
+	end
+	
+	if (this:get_rightkey() > 0 and (this:get_rightkey() > this:get_leftkey() or this:get_leftkey() == 0)) then
+		this:set_ownspeed(this.speed)
+		this:set_oldclip(2)
+		this:set_currentdirection(right)
+	end
+	
+	if (this:get_rightkey() == 0 and this:get_leftkey() == 0) then 
+		this:set_ownspeed(0)
+	end
+	
+	if (this:get_xkey() > 0) then
+		if not this:get_jumplock() then
+			this:jump()
+			this:set_jumplock(true)
+		end
+	else
+		this:set_jumplock(false)
+		if(this:get_vertical_speed() < -1) then
+			this:set_vertical_speed(-1)
+		end
+	end
+	
+	if (this:get_zkey() > 0) then
+		if not this:get_shootlock() and this:get_shotcount() < this.shotlimit then
+			this:add_bullet("./shotsprite.png","./shot.lua")
+			this:set_shootlock(true)
+		end
+	else
+		this:set_shootlock(false)
+	end
+end
+
+function this.act(this)
+	this:centermap()
+	this:handleinput()
+end
+--END
\ No newline at end of file
-- 
cgit