money2/money2/init.lua

---
--money 2.00
--Copyright (C) 2012 Bad_Command
--Copyright (C) 2012 kotolegokot
--
--This library is free software; you can redistribute it and/or
--modify it under the terms of the GNU Lesser General Public
--License as published by the Free Software Foundation; either
--version 2.1 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 Lesser General Public
--License along with this library; if not, write to the Free Software
--Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
---

money = {}
money.version = 2.00

dofile(minetest.get_modpath("money2") .. "/config.lua")
dofile(minetest.get_modpath("money2") .. "/lockedsign.lua")

money.set = function(name, value)
	local output = io.open(minetest.get_worldpath() .. "/money_" .. name .. ".txt", "w")
	output:write(value)
	io.close(output)
end

money.get = function(name)
	local input = io.open(minetest.get_worldpath() .. "/money_" .. name .. ".txt", "r")
	if not input then 
		return nil
	end
	credit = input:read("*n")
	io.close(input)
	return credit
end

money.has_credit = function(name)
	local privs = minetest.get_player_privs(name)
	if ( privs == nil or not privs["money"] ) then
		return false
	end
	return true
end

money.add = function(name, amount)
	if ( amount < 0 ) then
		return "must specify positive amount"
	end

	local credit = money.get(name)
	if ( credit == nil ) then
		return name .. " does not have a credit account."
	end

	money.set(name, credit + amount)
	return nil 
end

money.dec = function(name, amount) 
	if ( amount < 0 ) then
		return "must specify positive amount"
	end
	
	local credit = money.get(name)
	if ( credit == nil ) then
		return name .. " does not have a credit account."
	end
	if ( credit < amount ) then
		return name .. " does not have enough credit."
	end
	money.set(name, credit - amount)
	return nil
end

money.transfer = function(from, to, amount)
	if ( from == to ) then
		return
	end
	if ( not money.has_credit(from) ) then
		return from .. " does not have a credit account"
	end
	if ( not money.has_credit(to) ) then
		return to .. " does not have a credit account"
	end

	if ( amount < 0 ) then
		return "negative transfers not allowed"
	end
	local from_credit = money.get(from)
	if ( from_credit == nil or from_credit < amount ) then
		return "not enough credit"
	end
	local to_credit = money.get(to)
	if ( to_credit == nil ) then
		return to .. " does not have a credit account."
	end
	money.set(from, from_credit - amount)
	money.set(to, to_credit + amount)
	return nil
end

minetest.register_on_joinplayer(function(player)
	name = player:get_player_name()
	if not money.get(name) then
		money.set(name, tostring(money.initial_amount))
	end
end)

minetest.register_privilege("money", "Can use /money [pay <player> <amount>] command")
minetest.register_privilege("money_admin", {
	description = "Can use /money [<player> | pay/set/add/dec <player> <amount>] command",
	give_to_singleplayer = false,
})

minetest.register_chatcommand("money", {
	privs = {money=true},
	params = "[<player> | pay/set/add/dec <player> <amount>]",
	description = "Operations with credit",
	func = function(name,  param)
		if param == "" then
			minetest.chat_send_player(name, money.get(name) .. money.currency_name)
		else
			local param1, reciever, amount = string.match(param, "([^ ]+) ([^ ]+) (.+)")
			if not reciever and not amount then
				if minetest.get_player_privs(name)["money_admin"] then
					if not money.get(param) then
						minetest.chat_send_player(name, "money: Player named \"" .. param .. "\" does not exist or does not have an account.")
						return true
					end
					minetest.chat_send_player(name, money.get(param) .. money.currency_name)
					return true
				else
					minetest.chat_send_player(name, "money: You don't have permission to run this command (missing privileges: money_admin)")
				end
			end
			if (param1 ~= "pay") and (param1 ~= "set") and (param1 ~= "add") and (param1 ~= "dec") or not reciever or not amount then
				minetest.chat_send_player(name, "money: Invalid parameters (see /help money)")
				return true
			elseif not money.get(reciever) then
				minetest.chat_send_player(name, "money: Player named \"" .. reciever .. "\" does not exist or does not have account.")
				return true
			elseif not tonumber(amount) then
				minetest.chat_send_player(name, "money: amount .. " .. "is not a number.")
				return true
			elseif tonumber(amount) < 0 then
				minetest.chat_send_player(name, "money: The amount must be greater than 0.")
				return true
			end
			amount = tonumber(amount)
			if param1 == "pay" then
				local err = money.transfer(name ,reciever, amount)
				if ( err ~= nil ) then 
					minetest.chat_send_player(name, "money: Error: "..err..".")						
				else
					minetest.chat_send_player(name, "money: You paid " .. reciever .. " " .. amount .. money.currency_name)
					minetest.chat_send_player(reciever, "money: " .. name .. " paid you " .. amount .. money.currency_name)
				end
			elseif minetest.get_player_privs(name)["money_admin"] then
				if param1 == "add" then
					local err = money.add(reciever, amount)
					if ( err ~= nil ) then 
						minetest.chat_send_player(name, "money: Error"..err..".")		
					end
				elseif param1 == "dec" then
					local err = money.dec(reciever, amount)
					if ( err ~= nil ) then 
						minetest.chat_send_player(name, "money: Error"..err..".")
					end
				elseif param1 == "set" then
					local err = money.set(reciever, amount)
					if ( err ~= nil ) then 
						minetest.chat_send_player(name, "money: Error"..err..".")
					end					
				end
			else
				minetest.chat_send_player(name, "money: You don't have permission to run this command (missing privileges: money_admin)")
			end
		end
	end,
})