--[[
================= SYMBOLS =================
--]]

was.register_symbol("?",function() return was.userdata.name end,"return username")
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")

was.register_symbol("+=",function()
		local i=was.userdata.index
		if was.is_number(was.iuserdata(i-1)) and was.is_number(was.iuserdata(i+1)) then
			return was.iuserdata(i-1) + was.iuserdata(i+1)
		end
	end,
	"var + n"
)

was.register_symbol("-=",function()
		local i=was.userdata.index
		if was.is_number(was.iuserdata(i-1)) and was.is_number(was.iuserdata(i+1)) then
			return was.iuserdata(i-1) - was.iuserdata(i+1)
		end
	end,
	"var - n"
)

was.register_symbol("*=",function()
		local i=was.userdata.index
		if was.is_number(was.iuserdata(i-1)) and was.is_number(was.iuserdata(i+1)) then
			return was.iuserdata(i-1) * was.iuserdata(i+1)
		end
	end,
	"var * n"
)

was.register_symbol("/=",function()
		local i=was.userdata.index
		if was.is_number(was.iuserdata(i-1)) and was.is_number(was.iuserdata(i+1)) then
			return was.iuserdata(i-1) / was.iuserdata(i+1)
		end
	end,
	"var / n"
)

--[[
================= 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
})

was.register_function("get.gametime",{
	info="Get gametime ()",
	action=function()
		return minetest.get_gametime()
	end
})

--[[
================= DATATYPES = VARIABLES =================
--]]

was.register_function("math.percent",{
	info="return percent of number (n1 n2)",
	action=function(a,b)
		if was.is_number(a) and was.is_number(b) then
			return (a / b) *100
		end
	end
})

was.register_function("math.random",{
	info="random number (num1 num2)",
	action=function(a,b)
		if was.is_number(a) and was.is_number(b) and a<b then
			return math.random(a,b)
		end
	end
})

was.register_function("math.pi",{
	info="return Pi",
	action=function()
		return math.pi
	end
})


was.register_function("math",{
	info="Math + - * ^ /  ('-' 1 2 67...)",
	packed=true,
	action=function(a)
		local c=a[1]
		local n=a[2]
		if not (was.is_string(c) and c:len()==1 and string.find("^+-*/",c)) then
			return
		end

		for i=3,#a,1 do
			if was.is_number(a[i]) then
				if c=="+" then
					n=n+a[i]
				elseif c=="-" then
					n=n-a[i]
				elseif c=="*" then
					n=n*a[i]
				elseif c=="/" then
					n=n/a[i]
				elseif c=="^" then
					n=n^a[i]
				end
			end
		end
		return n
	end
})

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
			return t[i]
		end
	end
})

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
			table.remove(t,i)
			return t
		elseif was.is_table(t) and (was.is_number(i) or was.is_string(i)) then
			t[i]=value
			return t
		end
	end
})

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
			if was.is_number(i) then
				table.remove(t,i)
				return t
			elseif was.is_string(i) then
				t[i]=nil
				return t
			else
				table.remove(t,#t)
				return t
			end
		else
			return t
		end
	end
})

was.register_function("table.insert",{
	info="Insert variables and datatypes to an table (table n1 s1 table1 ...)",
	packed=true,
	action=function(a)
		local n={}
		local s=1
		if was.is_table(a[1]) then
			n=table.copy(a[1])
			s=2
		end
		for i=s,#a,1 do
			if a[i] then
				table.insert(n,a[i])
			end
		end
		return n
	end
})

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("merge",{
	info="Merge variables and datatypes (s1 n1 s...) or (table table2 s n)",
	packed=true,
	action=function(a)
		local n=""
		if was.is_table(a[1]) then
			n={}
			for i,v in ipairs(a) do
				if was.is_string(v) or was.is_number(v) then
					table.insert(n,v)
				elseif was.is_table(v) then
					for ii,vv in pairs(v) do
						table.insert(n,vv)
					end
				end
			end
		elseif was.is_string(a[1]) or was.is_number(a[1]) then
			for i,v in ipairs(a) do
				if was.is_string(v) or was.is_number(v) then
					n=n .. v
				else
					break
				end
			end
		end
		return n
	end
})


was.register_function("pos",{
	info="numbers to pos (n1 n2 n3)",
	action=function(n1,n2,n3)
		if was.is_number(n1) and was.is_number(n2) and was.is_number(n3) then
			return {x=n1,y=n2,z=n3}
		end
	end
})

was.register_function("epos",{
	info="Equals/same pos (pos1 pos2)",
	action=function(p1,p2)
		if was.is_pos(p1) and was.is_pos(p2) then
			return vector.equals(p1,p2)
		end
	end
})

--[[
================= NODES =================
--]]

was.register_function("node.get_light",{
	info="Get node light (pos)",
	action=function(pos)
		if was.is_pos(pos) then
			return minetest.get_node_light(pos)
		end
	end
})

was.register_function("node.get_static_light",{
	info="Get static node light (pos)",
	action=function(pos)
		if was.is_pos(pos) then
			return minetest.get_node_light(pos,0.5)
		end
	end
})

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 was.protected(pos) then
			minetest.set_node(pos,{name=name})
		end
	end
})

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 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
			end
			local inv=minetest.get_meta(was.userdata.pos):get_inventory()
			if not inv:contains_item("storage",name) then
				return
			end
			inv:remove_item("storage",name)

			minetest.set_node(pos,{name=name})
		end
	end
})

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
				return
			end
			minetest.get_meta(was.userdata.pos):get_inventory():add_item("storage",minetest.get_node(pos).name)
			minetest.remove_node(pos)	
		end
	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)
		if was.is_pos(pos) then
			return minetest.get_node(pos).name
		end
	end
})

was.register_function("node.exist",{
	info="node exist (name)",
	action=function(name)
		return ((was.is_string(name) or nil) and minetest.registered_nodes[name]~=nil)
	end
})

--[[
================= NODEE=META =================
--]]

was.register_function("nodemeta.set_int",{
	privs={was=true},
	info="Set node meta (pos name number)",
	action=function(pos,na,n)
		if was.is_pos(pos) and was.is_string(na) and was.is_number(n) then
			minetest.get_meta(pos):set_int(na,n)
		end
	end
})

was.register_function("nodemeta.get_int",{
	privs={was=true},
	info="Get node meta (pos name)",
	action=function(pos,na)
		if was.is_pos(pos) and was.is_string(na) then
			return minetest.get_meta(pos):get_int(na)
		end
	end
})

was.register_function("nodemeta.set_string",{
	privs={was=true},
	info="Set node meta (pos name string)",
	action=function(pos,na,n)
		if was.is_pos(pos) and was.is_string(na) and was.is_string(n) then
			minetest.get_meta(pos):set_string(na,n)
		end
	end
})

was.register_function("nodemeta.get_string",{
	privs={was=true},
	info="Get node meta (pos name)",
	action=function(pos,na)
		if was.is_pos(pos) and was.is_string(na) then
			return minetest.get_meta(pos):get_string(na)
		end
	end
})

was.register_function("nodetimer.start",{
	privs={was=true},
	info="Start node timer (<time> <nothing or pos>) to start on another node requires was privilege ",
	action=function(n,pos)
		if was.protected(pos) then
			return
		elseif not pos and was.is_number(n) then
			minetest.get_node_timer(was.userdata.pos):start(n)
		elseif pos and minetest.check_player_privs(was.userdata.name,{was=true}) and was.is_number(n) and was.is_pos(pos) then
			minetest.get_node_timer(pos):start(n)
		end
	end
})


was.register_function("nodetimer.stop",{
	privs={was=true},
	info="Stop node timer (nothing or pos) to stop on another node requires was privilege ",
	action=function(pos)
		if was.protected(pos) then
			return
		elseif not pos then
			minetest.get_node_timer(was.userdata.pos):stop()
		elseif pos and minetest.check_player_privs(was.userdata.name,{was=true}) and was.is_pos(pos) then
			minetest.get_node_timer(pos):stop()
		end
	end
})
--[[
================= MESECONS =================
--]]

was.register_function("mesecon.on",{
	depends="mesecons",
	info="Set mesecon on (nothing or pos) to effect another node requires was privilege ",
	action=function(pos)
		if was.protected(pos) then
			return
		elseif not pos then
			mesecon.receptor_on(was.userdata.pos)
		elseif pos and minetest.check_player_privs(was.userdata.name,{was=true}) and was.is_pos(pos) then
			mesecon.receptor_on(pos)
		end
	end
})

was.register_function("mesecon.off",{
	depends="mesecons",
	info="Set mesecon off (nothing or pos) to effect another node requires was privilege ",
	action=function(pos)
		if was.protected(pos) then
			return
		elseif not pos then
			mesecon.receptor_off(was.userdata.pos)
		elseif pos and minetest.check_player_privs(was.userdata.name,{was=true}) and was.is_pos(pos) then
			mesecon.receptor_off(pos)
		end
	end
})

was.register_function("mesecon.send",{
	depends="mesecons",
	info="Send a mesecon signal (nothing or pos) to effect another node requires was privilege ",
	action=function(pos)
		if was.protected(pos) then
			return
		elseif not pos then
			local p=was.userdata.pos
			mesecon.receptor_on(p)
			minetest.after(1, function(p)
				mesecon.receptor_off(p)
			end, p)
		elseif pos and minetest.check_player_privs(was.userdata.name,{was=true}) and was.is_pos(pos) then
			mesecon.receptor_on(pos)
			minetest.after(1, function(pos)
				mesecon.receptor_off(pos)
			end, pos)
		end
	end
})

--[[
================= digilines =================
--]]

was.register_function("digiline.send",{
	info="Send digiline data through wires (string_channel data)",
	depends="digilines",
	action=function(channel,data)
		local p=was.userdata.pos
		if p and was.is_string(channel) then
			local meta = minetest.get_meta(p)
			local nchannel=meta:get_string("channel")
			if nchannel==channel then
				was.userdata.error="can't send to same channel"
			else
				digilines.receptor_send(p,digilines.rules.default,channel,data)
			end
		end	
	end
})




--[[
================= PLAYER =================
--]]

was.register_function("player.msg",{
	privs={shout=true},
	info="Message to player (playername text)",
	action=function(name,msg)
		if was.is_string(name) and (was.is_string(msg) or was.is_number(msg)) then
			minetest.chat_send_player(name, "<" .. was.userdata.name .."> " .. msg)
		end
	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 pos (playername)",
	action=function(name)
		if not was.is_string(name) then
			return
		end
		local p=minetest.get_player_by_name(name)
		if p then
			return p:get_pos()
		end
	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 =================
--]]

was.register_function("entity.spawn_item",{
	info="Spawn item (pos name)",
	action=function(pos,name)
		if was.is_pos(pos) and was.is_string(name) and minetest.registered_items[name] then
			local inv=minetest.get_meta(was.userdata.pos):get_inventory()
			if not inv:contains_item("storage",name) then
				return
			end
			inv:remove_item("storage",name)
			minetest.add_item(pos,name)
		end
		local p=minetest.get_player_by_name(name)
	end
})

was.register_function("entity.remove_item",{
	info="Remove item (pos)",
	action=function(pos)
		if was.is_pos(pos) and not was.protected(pos) then
			for _, ob in ipairs(minetest.get_objects_inside_radius(pos, 1)) do
				local en=ob:get_luaentity()
				if en and en.name=="__builtin:item" then
					minetest.get_meta(was.userdata.pos):get_inventory():add_item("storage",en.itemstring)
					en.object:remove()
				end
			end
		end
	end
})


--[[
================= MISC =================
--]]

was.register_function("for",{
	info="for loop (startn endn) max loops is 1000, no negative values",
	action=function(s,e)
		if was.is_number(s) and was.is_number(e) then
			if s<0 or e<0 then
				return {msg='No negative value to "for"'}
			elseif math.abs(math.abs(s)-math.abs(e))>1000 then
				return {msg='Too high number to "for" (max 1000)'}
			end
			return {s=s,e=e}
		end
		return {msg='void arguments to "for", ' .. type(s) .." "  .. type(e)}
	end
})

was.register_function("elseif",{
	packed=true,
	info="Used with if",
	action=function(arg)
		return was.functions["if"](arg)
	end
})

was.register_function("if",{
	packed=true,
	info="able oparators: and or not nor == ~= < > => =<",
	action=function(arg)
		local logic={}
		local AND
		local OR
		local NOT
		local NOR
		local li=0
		local i=2

		while i<#arg do
		local a=arg[i]

		if arg[i-1]=="!" then
			arg[i-1]=nil
		end
		if arg[i+1]=="!" then
			arg[i+1]=nil
		end


		if a=="==" then
			table.insert(logic,(arg[i-1] == arg[i+1]))
			li=li+1
		elseif a=="~=" then
			table.insert(logic,(arg[i-1] ~= arg[i+1]))
			li=li+1
		elseif a=="<" and type(arg[i-1])=="number" and type(arg[i+1])=="number" then
			table.insert(logic,(arg[i-1] < arg[i+1]))
			li=li+1
		elseif a==">" and type(arg[i-1])=="number" and type(arg[i+1])=="number" then
			table.insert(logic,(arg[i-1] > arg[i+1]))
			li=li+1
		elseif a=="<=" and type(arg[i-1])=="number" and type(arg[i+1])=="number" then
			table.insert(logic,(arg[i-1] <= arg[i+1]))
			li=li+1
		elseif a==">=" and type(arg[i-1])=="number" and type(arg[i+1])=="number" then
			table.insert(logic,(arg[i-1] >= arg[i+1]))
			li=li+1
		end

		if li>1 and AND and not (logic[li]==true and logic[li-1]==true) then
			AND=nil
			return false
		elseif li>1 and a  and OR and not (logic[li]==true or logic[li-1]==true) then
			OR=nil
			return false
		elseif li>1 and a and NOT and (logic[li]==true and logic[li-1]==true) then
			NOT=nil
			return false
		elseif li>1 and a and NOR and (logic[li]==true or logic[li-1]==true) then
			NOR=nil
			return false
		end

		if arg[i]=="and" or arg[i]=="or" or arg[i]=="not" or arg[i]=="nor" then
			AND=arg[i]=="and"
			OR=arg[i]=="or"
			NOT=arg[i]=="not"
			NOR=arg[i]=="nor"
		end

		i=i+2
		end



		if li<2 then
			return logic[li]==true
		else
			return true
		end
	end
})

was.register_function("print",{
	packed=true,
	action=function(a)
		if was.userdata.print then
			local ud=was.user[was.userdata.name]
			if ud and was.userdata.id==ud.id then
				local s=""
				for i,v in pairs(a) do
					if was.is_string(v) or was.is_number(v) then
						s=s .. v .. " "
					elseif was.is_table(v) then
						local t=""
						for ind,val in pairs(v) do
							t=t .. ind .."="
							if was.is_number(val) then
								t=t .. val .." "
							elseif was.is_string(val) then
								t=t .. '"' .. val ..'" '
							else
								t=t .. "table "
							end
						end

						s=s .. t
					elseif type(v)=="boolean" then
						if v==true then
							s=s .."true "
						else
							s=s .."false "
						end
					else
						s=s .."!"
					end
				end
				if s:len()>60 then
					s=s:sub(0,60)
				end
				if s:len()>30 then
					s=s:sub(0,30) .."\n" .. s:sub(31,s:len())
				end
				ud.console_text=ud.console_text or ""
				ud.console_lines=(ud.console_lines and (ud.console_lines+1)) or 1
				ud.console_text=ud.console_text .. s .. "\n"
				ud.console="true"
				if ud.console_lines>27 then
					ud.console_text=ud.console_text:sub(ud.console_text:find("\n")+1,ud.console_text:len())
					ud.console_lines=27
				end
				was.gui(was.userdata.name)
			elseif minetest.check_player_privs(was.userdata.name,{server=true}) then
				print(unpack(a))
			end
		end
	end
})

was.register_function("dump",{
	privs={server=true},
	packed=true,
	action=function(a)
		print(dump(a))
	end
})

was.register_function("get.pos",{
	info="Get position",
	action=function()
		return was.userdata.pos
	end
})

was.register_function("time",{
	info='Get/compare time ("type" time_number) type "gettime" to return currently time, or  "sec","min","hour","day" to compare the time ',
	action=function(a,c)
		if was.is_string(a) and was.is_number(c) then
			return was.time(a,c)
		end
	end
})

was.register_function("was.send",{
	info="Send data through wires (string_channel data)",
	action=function(channel,msg)
		local p=was.userdata.pos
		if p and was.is_string(channel) then
			local meta = minetest.get_meta(p)
			local nchannel=meta:get_string("channel")
			if nchannel==channel then
				was.userdata.error="can't send to same channel"
			else
				was.send(p,channel,msg,nchannel)
			end
		end	
	end
})

was.register_function("was.close",{
	info="Close computer ()",
	action=function()
		local p=was.userdata.pos
		if p and was.userdata.type=="node" and minetest.get_node(p).name=="was:computer" then
			if was.user[was.userdata.name] and was.user[was.userdata.name].gui then
				minetest.close_formspec(was.userdata.name,"gui")
				was.user[was.userdata.name]=nil
			end
			local n=minetest.get_node(p)
			minetest.swap_node(p,{name="was:computer_closed",param2=n.param2})
		end	
	end
})

was.register_function("was.send_wireless",{
	info="Send data through wires (string_channel msg radius) max radius is 10",
	action=function(channel,msg,radius)
		local p=was.userdata.pos
		if p and was.is_string(channel) and (not radius or was.is_number(radius)) then
			radius=radius or 3
			if radius>10 then radius=10 end
			local meta = minetest.get_meta(p)
			local nchannel=meta:get_string("channel")
			if nchannel==channel then
				was.userdata.error="can't send to same channel"
			else
				was.send_wireless(p,channel,msg,nchannel,radius)
			end
		end	
	end
})