From f79321e5e83892f5c80a97b205eb0e7ff5a83d71 Mon Sep 17 00:00:00 2001
From: Wuzzy <almikes@aol.com>
Date: Mon, 2 Feb 2015 03:45:57 +0100
Subject: [PATCH] Add basic code

---
 init.lua | 159 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 159 insertions(+)
 create mode 100644 init.lua

diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..a8dfce1
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,159 @@
+--[[
+Mana 0.1.0
+This mod adds mana to players, a special attribute
+
+License: WTFPL
+]]
+
+--[===[
+	Initialization
+]===]
+
+mana = {}
+mana.playerlist = {}
+
+
+
+--[===[
+	API functions
+]===]
+
+-- Sets the maximum mana of the specified player
+function mana.set(playername, mana)
+	mana.playerlist[playerlist].mana = mana
+end
+
+-- Sets the maximum mana of the specified player
+function mana.setmax(playername, maxmana)
+	mana.playerlist[playerlist].maxmana = maxmana
+end
+
+-- Returns the current mana of the specified player
+function mana.get(playername)
+	return mana.playerlist[playerlist].mana
+end
+
+-- Returns the maximum mana of the specified player
+function mana.getmax(playername)
+	return mana.playerlist[playerlist].maxmana
+end
+
+--[[
+Adds the specified amount of mana to the player, but will
+respect the player's maximum.
+
+returns:
+- true, excess on success, where excess is the amount of mana which
+  was no
+- false on failure
+]]
+function mana.add(playername, mana)
+	local t = mana.playerlist[playername]
+	if(t ~= nil and mana >= 0) then
+		local excess
+		if((t.mana + mana) > t.maxmana) then
+			excess = (t.mana + mana) - t.maxmana
+			t.mana = t.maxmana
+		else
+			excess = 0
+			t.mana = t.mana + mana
+		end
+		return true, excess
+	else
+		return false
+	end
+end
+
+
+--[[
+Subtracts the specified amount of mana from the player,
+iff the player has enough mana reserves.
+
+returns:
+- true on success, mana has been subtracted
+- false on failure, no mana has been subtracted
+]]
+function mana.subtract(playername, mana)
+	local t = mana.playerlist[playername]
+	if(t ~= nil and t.mana >= mana and mana >= 0) then
+		t.mana = t.mana - mana
+		return true
+	else
+		return false
+	end
+end
+
+
+--[===[
+	File handling, loading data, saving data, setting up stuff for players.
+]===]
+
+
+-- Load the playerlist from a previous session, if available.
+do
+	local filepath = minetest.get_worldpath().."/mana.mt"
+	local file = io.open(filepath, "r")
+	if file then
+		minetest.log("action", "[mana] mana.mt opened.")
+		local string = file:read()
+		io.close(file)
+		if(string ~= nil) then
+			local savetable = minetest.deserialize(string)
+			mana.playerlist = savetable.playerlist
+			minetest.debug("[mana] mana.mt successfully read.")
+		end
+	end
+end
+
+function mana.save_to_file()
+	local savetable = {}
+	savetable.playerlist = mana.playerlist
+
+	local savestring = minetest.serialize(savetable)
+
+	local filepath = minetest.get_worldpath().."/mana.mt"
+	local file = io.open(filepath, "w")
+	if file then
+		file:write(savestring)
+		io.close(file)
+		minetest.log("action", "[mana] Wrote mana data into "..filepath..".")
+	else
+		minetest.log("error", "[mana] Failed to write mana data into "..filepath..".")
+	end
+end
+
+
+minetest.register_on_dieplayer(function(player)
+	local playername = player:get_player_name()
+	mana.set(playername, 0)
+end)
+
+
+minetest.register_on_leaveplayer(function(player)
+	local playername = player:get_player_name()
+	mana.playerlist[playername] = nil
+end)
+
+minetest.register_on_shutdown(function()
+	minetest.log("action", "[mana] Server shuts down. Rescuing data into mana.mt")
+	mana.save_to_file()
+end)
+
+minetest.register_on_joinplayer(function(player)
+	local playername = player:get_player_name()
+	
+	if mana.playerlist[playername] == nil then
+		mana.playerlist[playername] = {}
+		mana.playerlist[playername].mana = 0
+		mana.playerlist[playername].maxmana = 20
+	end
+
+	-- TODO: Update HUD
+end)
+
+
+
+--[===[
+	TODO: HUD functions
+]===]
+