From 69dbc046eb5a82b38c6d5c3302e9b3b0b3c1bcf1 Mon Sep 17 00:00:00 2001
From: Perttu Ahola <celeron55@gmail.com>
Date: Mon, 21 Feb 2011 16:10:36 +0200
Subject: preliminary lua scripting framework for objects

---
 data/luaobjects/test/client.lua | 73 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 data/luaobjects/test/client.lua

(limited to 'data/luaobjects/test/client.lua')

diff --git a/data/luaobjects/test/client.lua b/data/luaobjects/test/client.lua
new file mode 100644
index 000000000..80f085190
--- /dev/null
+++ b/data/luaobjects/test/client.lua
@@ -0,0 +1,73 @@
+-- Client-side code of the test lua object
+
+--
+-- Some helper functions
+--
+
+function split(str, pat)
+   local t = {}  -- NOTE: use {n = 0} in Lua-5.0
+   local fpat = "(.-)" .. pat
+   local last_end = 1
+   local s, e, cap = str:find(fpat, 1)
+   while s do
+      if s ~= 1 or cap ~= "" then
+	 table.insert(t,cap)
+      end
+      last_end = e+1
+      s, e, cap = str:find(fpat, last_end)
+   end
+   if last_end <= #str then
+      cap = str:sub(last_end)
+      table.insert(t, cap)
+   end
+   return t
+end
+
+function dump(o)
+    if type(o) == 'table' then
+        local s = '{ '
+        for k,v in pairs(o) do
+                if type(k) ~= 'number' then k = '"'..k..'"' end
+                s = s .. '['..k..'] = ' .. dump(v) .. ','
+        end
+        return s .. '} '
+    else
+        return tostring(o)
+    end
+end
+
+--
+-- Actual code
+--
+
+function step(self, dtime)
+	-- Some smoother animation could be done here
+end
+
+function process_message(self, data)
+	--print("client got message: " .. data)
+
+	-- Receive our custom messages
+
+	sp = split(data, " ")
+	if sp[1] == "pos" then
+		object_set_position(self, sp[2], sp[3], sp[4])
+	end
+	if sp[1] == "rot" then
+		object_set_rotation(self, sp[2], sp[3], sp[4])
+	end
+end
+
+function initialize(self, data)
+	print("client object got initialization: " .. data)
+
+	corners = {
+		{-1/2,-1/4, 0},
+		{ 1/2,-1/4, 0},
+		{ 1/2, 1/4, 0},
+		{-1/2, 1/4, 0},
+	}
+	object_add_to_mesh(self, "rat.png", corners, false)
+
+end
+
-- 
cgit v1.2.3