From a9558e4a6bb75b278e5224fd0ec4f764d1848b71 Mon Sep 17 00:00:00 2001
From: AiTechEye <40591179+AiTechEye@users.noreply.github.com>
Date: Mon, 14 Jan 2019 22:47:16 +0100
Subject: [PATCH] Add files via upload

---
 api.lua       |  19 ++++--
 functions.lua |  20 +++++++
 gui.lua       |   1 +
 items.lua     |   2 +
 register.lua  | 157 +++++++++++++++++++++++++++++++++++++++++++++-----
 5 files changed, 179 insertions(+), 20 deletions(-)

diff --git a/api.lua b/api.lua
index 44776a5..665c4ac 100644
--- a/api.lua
+++ b/api.lua
@@ -135,7 +135,7 @@ was.compiler=function(input_text,def)
 		local ii=1
 		data=v
 		while ii<=#v do
-			if data[ii].type=="number" then
+			if data[ii].type=="number" and not (data[ii-1] and data[ii-1].content==".") then
 --number
 				data[ii].content=tonumber(data[ii].content)
 
@@ -204,7 +204,7 @@ was.compiler=function(input_text,def)
 				nexts=0
 				data[ii].forstate=true
 
-			elseif data[ii+1] and data[ii+2] and data[ii].type=="var" and data[ii+1].content=="." and data[ii+2].type=="var" then
+			elseif data[ii+1] and data[ii+2] and data[ii].type=="var" and data[ii+1].content=="." and (data[ii+2].type=="var" or data[ii+2].type=="number") then
 --table
 				data[ii].table=data[ii+2].content
 				local vn=data[ii].content
@@ -214,7 +214,7 @@ was.compiler=function(input_text,def)
 				table.remove(data,ii+1)
 				table.remove(data,ii+1)
 				for ni=ii,#v,1 do
-					if data[ii+1] and data[ii+2] and data[ii+1].content=="." and data[ii+2].type=="var" then
+					if data[ii+1] and data[ii+2] and data[ii+1].content=="." and (data[ii+2].type=="var" or data[ii+2].type=="number") then
 						data[ii].table=data[ii].table .. "." .. data[ii+2].content
 						t[data[ii+2].content]={}
 						t=t[data[ii+2].content]
@@ -278,6 +278,8 @@ was.get_VAR=function(VAR,avar)
 		for i,v in ipairs(a) do
 			if t and t[v] then
 				t=t[v]
+			elseif t and t[tonumber(v)] then
+				t=t[tonumber(v)]
 			else
 				break
 			end
@@ -294,12 +296,19 @@ was.set_VAR=function(VAR,avar,value)
 		local t=VAR[avar.content]
 		for i,v in ipairs(a) do
 			if a[i+1] then
-				t=t[v]
+				local n=tonumber(v)
+				if n then
+					t=t[n]
+				else
+					t=t[v]
+				end
 			else
 				break
 			end
 		end
-		t[a[#a]]=value
+		if t and t[a[#a]] then
+			t[a[#a]]=value
+		end
 		return VAR
 	else
 		VAR[avar.content]=value
diff --git a/functions.lua b/functions.lua
index e15c995..3b2d7fb 100644
--- a/functions.lua
+++ b/functions.lua
@@ -1,3 +1,23 @@
+was.runcmd=function(cmd,name,param)
+	local c=minetest.registered_chatcommands[cmd]
+	if not c then
+		return 
+	end
+	local p1=minetest.check_player_privs(name, c.privs)
+	local msg=""
+	local a
+	if not p1 then
+		msg="You aren't' allowed to do that"
+	elseif c then
+		a,msg=c.func(name,param)
+		msg=msg or ""
+		minetest.chat_send_player(name,msg)
+
+	end
+	return msg
+end
+
+
 was.get_node=function(pos)
 	local n=minetest.get_node(pos).name
 	if n=="ignore" then
diff --git a/gui.lua b/gui.lua
index fc373c1..def600c 100644
--- a/gui.lua
+++ b/gui.lua
@@ -4,6 +4,7 @@ was.gui=function(name,msg)
 	was.user[name].lines=	was.user[name].lines or "off"
 	was.user[name].bg=	was.user[name].bg or "true"
 	was.user[name].console=	was.user[name].console or "false"
+	
 
 	local funcs=""
 	local symbs="SYMBOLS,"
diff --git a/items.lua b/items.lua
index 00f1c54..6f6b658 100644
--- a/items.lua
+++ b/items.lua
@@ -37,11 +37,13 @@ minetest.register_node("was:computer", {
 				return
 			end
 			minetest.swap_node(pos,{name="was:computer",param2=node.param2})
+			local punchpos=was.user[name] and was.user[name].punchpos
 			was.user[name]={
 				nodepos=pos,
 				channel=meta:get_string("channel"),
 				text=minetest.deserialize(meta:get_string("text")),
 				id=pos.x .." " .. pos.y .." " ..pos.z,
+				punchpos=punchpos,
 			}
 			was.gui(name)
 		end
diff --git a/register.lua b/register.lua
index d580142..4865c77 100644
--- a/register.lua
+++ b/register.lua
@@ -4,13 +4,13 @@
 --]]
 
 was.register_symbol("?",function() return was.userdata.name end,"return username")
-was.register_symbol("!", function() if was.userdata.function_name~="if" then was.userdata.error=" ! only able in if state" end end,"Empty value")
-was.register_symbol(">", function() if was.userdata.function_name~="if" then was.userdata.error=" > only able in if state" end end,"Greater then (only used with if)" )
-was.register_symbol("<", function() if was.userdata.function_name~="if" then was.userdata.error=" < only able in if state" end end,"Less then (only used with if)" )
-was.register_symbol("<=", function() if was.userdata.function_name~="if" then was.userdata.error=" <= only able in if state" end end,"Less or equal (only used with if)" )
-was.register_symbol(">=", function() if was.userdata.function_name~="if" then was.userdata.error=" >= only able in if state" end end,"Greater or equal (only used with if)" )
-was.register_symbol("==", function() if was.userdata.function_name~="if" then was.userdata.error=" == only able in if state" end end,"Equal (only used with if)" )
-was.register_symbol("~=", function() if was.userdata.function_name~="if" then was.userdata.error=" > only able in if state" end end,"Equal (only used with if)" )
+was.register_symbol("!", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" ! only able in if state" end end,"Empty value")
+was.register_symbol(">", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" > only able in if state" end end,"Greater then (only used with if)" )
+was.register_symbol("<", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" < only able in if state" end end,"Less then (only used with if)" )
+was.register_symbol("<=", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" <= only able in if state" end end,"Less or equal (only used with if)" )
+was.register_symbol(">=", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" >= only able in if state" end end,"Greater or equal (only used with if)" )
+was.register_symbol("==", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" == only able in if state" end end,"Equal (only used with if)" )
+was.register_symbol("~=", function() if was.userdata.function_name~="if" and was.userdata.function_name~="elseif" then was.userdata.error=" > only able in if state" end end,"Equal (only used with if)" )
 was.register_symbol("!=",function() end, "var = nothing")
 was.register_symbol("--",function() end, "Comment")
 was.register_symbol("-",function() end, "Minus")
@@ -55,6 +55,59 @@ was.register_symbol("/=",function()
 ================= SERVER =================
 --]]
 
+
+was.register_function("get.objects",{
+	info='return table of objects (pos distance <"player" or "entity" or none for both>)',
+	action=function(pos,d,typ)
+		if was.is_pos(pos) and was.is_number(d) then
+			if not minetest.check_player_privs(was.userdata.name,{was=true}) and d>10 then
+				was.userdata.error="for safety reasons is the max distance 10 without the was privilege"
+				return
+			end
+			if not typ then
+				return minetest.get_objects_inside_radius(pos, d)
+			else
+				local obs={}
+				for _, ob in ipairs(minetest.get_objects_inside_radius(pos, d)) do
+					local en=ob:get_luaentity() 
+					if (en and typ=="entity") or (not en and typ=="player") then
+						table.insert(obs,ob)
+					end
+				end
+				return obs
+			end
+		end
+	end
+})
+
+was.register_function("cmd",{
+	info='Command eg /me says... (<"commandname"> <"text" or none>)',
+	action=function(cmd,param)
+	param=param or ""
+	if not ((was.is_string(cmd) or was.is_number(cmd)) and (was.is_string(param) or was.is_number(param))) then
+		return
+	end
+
+	local c=minetest.registered_chatcommands[cmd]
+	if not c then
+		return 
+	end
+	local p1=minetest.check_player_privs(was.userdata.name, c.privs)
+	local msg=""
+	local a
+	if not p1 then
+		msg="You aren't' allowed to do that"
+	elseif c then
+		a,msg=c.func(was.userdata.name,param)
+		msg=msg or ""
+		minetest.chat_send_player(was.userdata.name,msg)
+
+	end
+	return msg
+	end
+})
+
+
 --[[
 ================= DATATYPES = VARIABLES =================
 --]]
@@ -105,7 +158,7 @@ was.register_function("math",{
 	end
 })
 
-was.register_function("getvalue",{
+was.register_function("table.getvalue",{
 	info="get table value (table key-string/number)",
 	action=function(t,i)
 		if was.is_table(t) and (was.is_number(i) or was.is_string(i)) then
@@ -114,7 +167,7 @@ was.register_function("getvalue",{
 	end
 })
 
-was.register_function("setvalue",{
+was.register_function("table.setvalue",{
 	info="set table key value (table string/number value )",
 	action=function(t,i,value)
 		if was.is_table(t) and was.is_number(i) and not value then
@@ -127,7 +180,7 @@ was.register_function("setvalue",{
 	end
 })
 
-was.register_function("remove",{
+was.register_function("table.remove",{
 	info="remove from table by index (table n) last value (table) key (table string)",
 	action=function(t,i)
 		if was.is_table(t) then
@@ -147,7 +200,7 @@ was.register_function("remove",{
 	end
 })
 
-was.register_function("insert",{
+was.register_function("table.insert",{
 	info="Insert variables and datatypes to an table (table n1 s1 table1 ...)",
 	packed=true,
 	action=function(a)
@@ -166,7 +219,20 @@ was.register_function("insert",{
 	end
 })
 
-was.register_function("merge",{
+was.register_function("table.length",{
+	info="Returns table length (table)",
+	action=function(a)
+		if was.is_table(a) then
+			local l=0
+			for _,i in pairs(a) do
+				l=l+1
+			end
+			return l
+		end
+	end
+})
+
+was.register_function("table.merge",{
 	info="Merge variables and datatypes (s1 n1 s...) or (table table2 s n)",
 	packed=true,
 	action=function(a)
@@ -214,7 +280,7 @@ was.register_function("node.set",{
 	info="set node (pos,nodename)",
 	privs={give=true,was=true},
 	action=function(pos,name)
-		if was.is_string(name) and was.is_pos(pos) and minetest.registered_nodes[name] and not minetest.is_protected(pos,was.userdata.name) then
+		if was.is_string(name) and was.is_pos(pos) and minetest.registered_nodes[name] and not was.protected(pos) then
 			minetest.set_node(pos,{name=name})
 		end
 	end
@@ -223,7 +289,11 @@ was.register_function("node.set",{
 was.register_function("node.add",{
 	info="add node (not replacing buildable_to) (pos,nodename)",
 	action=function(pos,name)
-		if was.is_string(name) and was.is_pos(pos) and minetest.registered_nodes[name] and not minetest.is_protected(pos,was.userdata.name) then
+		if was.is_string(name) and was.is_pos(pos) and minetest.registered_nodes[name] and not was.protected(pos) then
+			if not minetest.check_player_privs(was.userdata.name,{was=true}) and vector.distance(was.userdata.pos,pos)>50 then
+				was.userdata.error="for safety reasons is the max distance 50 without the was privilege"
+				return
+			end
 			local n=minetest.registered_nodes[minetest.get_node(pos).name]
 			if n and n.buildable_to==false then
 				return
@@ -243,6 +313,10 @@ was.register_function("node.remove",{
 	info="remove node (pos)",
 	action=function(pos)
 		if was.is_pos(pos) and not minetest.is_protected(pos,was.userdata.name) then
+			if not minetest.check_player_privs(was.userdata.name,{was=true}) and vector.distance(was.userdata.pos,pos)>30 then
+				was.userdata.error="for safety reasons is the max distance 30 without the was privilege"
+				return
+			end
 			local n=minetest.registered_nodes[minetest.get_node(pos).name]
 			local player=minetest.get_player_by_name(was.userdata.name)
 			if n and ((n.can_dig and player and n.can_dig(pos, player)==false) or (n.pointable==false) or n.drop=="") then
@@ -254,6 +328,25 @@ was.register_function("node.remove",{
 	end
 })
 
+was.register_function("node.set_param",{
+	info="Set node param (pos,number)",
+	action=function(pos,p)
+		if was.is_pos(pos) and was.is_number(p) and not was.protected(pos) then
+			minetest.swap_node(pos,{name=minetest.get_node(pos).name,param2=p})	
+		end
+	end
+})
+
+was.register_function("node.get_param",{
+	info="Get node param (pos)",
+	action=function(pos)
+		if was.is_pos(pos) then
+			return minetest.get_node(pos).param2
+		end
+	end
+})
+
+
 was.register_function("node.get_name",{
 	info="get node name (pos)",
 	action=function(pos)
@@ -433,8 +526,28 @@ was.register_function("player.msg",{
 	end
 })
 
+was.register_function("player.say",{
+	privs={shout=true},
+	info="Chatt (text)",
+	action=function(msg)
+		if was.is_string(msg) or was.is_number(msg) then
+			minetest.chat_send_all("<" .. was.userdata.name .."> " .. msg)
+		end
+	end
+})
+
+was.register_function("player.server",{
+	privs={ban=true,was=true},
+	info="Server message (text)",
+	action=function(msg)
+		if was.is_string(msg) or was.is_number(msg) then
+			minetest.chat_send_all(msg)
+		end
+	end
+})
+
 was.register_function("player.get_pos",{
-	info="get player name (playername)",
+	info="get player pos (playername)",
 	action=function(name)
 		if not was.is_string(name) then
 			return
@@ -446,6 +559,20 @@ was.register_function("player.get_pos",{
 	end
 })
 
+was.register_function("player.set_pos",{
+	privs={teleport=true,bring=true},
+	info="set player pos (playername)",
+	action=function(name,pos)
+		if not (was.is_string(name) and was.is_pos(pos)) then
+			return
+		end
+		local p=minetest.get_player_by_name(name)
+		if p then
+			return p:set_pos(pos)
+		end
+	end
+})
+
 --[[
 ================= ENTIY =================
 --]]