--[[
    This file is part of Ice Lua Components.

    Ice Lua Components 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 3 of the License, or
    (at your option) any later version.

    Ice Lua Components 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 Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public License
    along with Ice Lua Components.  If not, see <http://www.gnu.org/licenses/>.
]]

print("base dir:",common.base_dir)

-- base dir stuff
DIR_PKG_ROOT = DIR_PKG_ROOT or "pkg/base"
DIR_PKG_LIB = DIR_PKG_LIB or DIR_PKG_ROOT
DIR_PKG_PMF = DIR_PKG_PMF or DIR_PKG_ROOT.."/pmf"
DIR_PKG_GFX = DIR_PKG_GFX or DIR_PKG_ROOT.."/gfx"
DIR_PKG_WAV = DIR_PKG_WAV or DIR_PKG_ROOT.."/wav"
DIR_PKG_MAP = DIR_PKG_MAP or "pkg/maps"

MAP_DEFAULT = MAP_DEFAULT or DIR_PKG_MAP.."/mesa.vxl"

LIB_LIST = LIB_LIST or {
	DIR_PKG_LIB.."/icegui/widgets.lua",

	DIR_PKG_LIB.."/lib_bits.lua",
	DIR_PKG_LIB.."/lib_collect.lua",
	DIR_PKG_LIB.."/lib_gui.lua",
	DIR_PKG_LIB.."/lib_map.lua",
	DIR_PKG_LIB.."/lib_namegen.lua",
	DIR_PKG_LIB.."/lib_pmf.lua",
	DIR_PKG_LIB.."/lib_sdlkey.lua",
	DIR_PKG_LIB.."/lib_util.lua",
	DIR_PKG_LIB.."/lib_vector.lua",
	
	DIR_PKG_LIB.."/obj_player.lua",
	DIR_PKG_LIB.."/obj_intent.lua",	
}

-- load libs
local i
for i=1,#LIB_LIST do
	local asdf_qwerty = i
	i = nil
	dofile(LIB_LIST[asdf_qwerty])
	i = asdf_qwerty
end
i = nil


-- mode stuff
MODE_DEBUG_SHOWBOXES = false
MODE_CHEAT_FLY = false

MODE_AUTOCLIMB = true
MODE_AIRJUMP = false
MODE_SOFTCROUCH = true

MODE_MINIMAP_RCIRC = false
MODE_ENABLE_MINIMAP = true

MODE_TILT_SLOWDOWN = false -- TODO!
MODE_TILT_DOWN_NOCLIMB = false -- TODO!

MODE_DELAY_SPADE_DIG = 1.0
MODE_DELAY_SPADE_HIT = 0.25
MODE_DELAY_BLOCK_BUILD = 0.5
MODE_DELAY_TOOL_CHANGE = 0.2

MODE_RCIRC_LINGER = 60.0
MODE_RESPAWN_TIME = 8.0

MODE_CHAT_LINGER = 15.0
MODE_CHAT_MAX = 10
MODE_CHAT_STRMAX = 102

-- tools
TOOL_SPADE = 0
TOOL_BLOCK = 1
TOOL_GUN = 2
TOOL_NADE = 3

-- weapons
WPN_RIFLE = 1

weapon_models = {}

weapons = {
	[WPN_RIFLE] = function (plr)
		local this = {} this.this = this
		
		this.cfg = {
			dmg = {
				head = 100,
				body = 49,
				legs = 33,
			},
			
			ammo_clip = 10,
			ammo_reserve = 50,
			time_fire = 1/2,
			time_reload = 2.5,
			
			recoil_x = 0.0001,
			recoil_y = -0.05,
			
			name = "Rifle"
		}
		
		function this.restock()
			this.ammo_clip = this.cfg.ammo_clip
			this.ammo_reserve = this.cfg.ammo_reserve
		end
		
		function this.reset()
			this.t_fire = nil
			this.t_reload = nil
			this.reloading = false
			this.restock()
		end
		
		this.reset()
		
		local function prv_fire(sec_current)
			local xlen, ylen, zlen
			xlen, ylen, zlen = common.map_get_dims()
			
			local sya = math.sin(plr.angy)
			local cya = math.cos(plr.angy)
			local sxa = math.sin(plr.angx)
			local cxa = math.cos(plr.angx)
			local fwx,fwy,fwz
			fwx,fwy,fwz = sya*cxa, sxa, cya*cxa
			
			-- perform a trace
			local d,cx1,cy1,cz1,cx2,cy2,cz2
			d,cx1,cy1,cz1,cx2,cy2,cz2
			= trace_map_ray_dist(plr.x+sya*0.4,plr.y,plr.z+cya*0.4, fwx,fwy,fwz, 127.5)
			d = d or 127.5
			
			-- see if there's anyone we can kill
			local hurt_idx = nil
			local hurt_part = nil
			local hurt_part_idx = 0
			local hurt_dist = d*d
			local i,j
			
			for i=1,players.max do
				local p = players[i]
				if p and p ~= plr and p.alive then
					local dx = p.x-plr.x
					local dy = p.y-plr.y+0.1
					local dz = p.z-plr.z
					
					for j=1,3 do
						local dd = dx*dx+dy*dy+dz*dz
						
						local dotk = dx*fwx+dy*fwy+dz*fwz
						local dot = math.sqrt(dd-dotk*dotk)
						if dot < 0.55 and dd < hurt_dist then
							hurt_idx = i
							hurt_dist = dd
							hurt_part_idx = j
							hurt_part = ({"head","body","legs"})[j]
							
							break
						end
						dy = dy + 1.0
					end
				end
			end
			
			if hurt_idx then
				-- TODO: ship this off to the server!
				if server then
					players[hurt_idx].gun_damage(
						hurt_part, this.cfg.dmg[hurt_part], plr)
				else
					common.net_send(nil, common.net_pack("BBB"
						, 0x13, hurt_idx, hurt_part_idx))
				end
			else
				if client then
					common.net_send(nil, common.net_pack("BBB"
						, 0x13, 0, 0))
				end
				
				if cx2 and cy2 <= ylen-3 then
					-- TODO: block health rather than instant block removal
					common.net_send(nil, common.net_pack("BHHH",
						0x09,
						cx2,cy2,cz2))
				end
			end
			
			-- TODO: fire a tracer
			
			-- apply recoil
			-- attempting to emulate classic behaviour provided i have it right
			plr.recoil(sec_current, this.cfg.recoil_y, this.cfg.recoil_x)
		end
		
		function this.reload()
			if this.ammo_clip ~= this.cfg.ammo_clip then
			if this.ammo_reserve ~= 0 then
			if not this.reloading then
				this.reloading = true
				plr.zooming = false
				this.t_reload = nil
			end end end
		end
		
		function this.click(button, state)
			if button == 1 then
				-- LMB
				if this.ammo_clip > 0 then
					this.firing = state
				else
					this.firing = false
					-- TODO: play sound
				end
			elseif button == 3 then
				-- RMB
				if state and not this.reloading then
					plr.zooming = not plr.zooming
				end
			end
		end
		
		function this.get_model()
			return weapon_models[WPN_RIFLE]
		end
		
		function this.draw(px, py, pz, ya, xa, ya2)
			client.model_render_bone_global(this.get_model(), 0,
				px, py, pz, ya, xa, ya2, 3)
		end
		
		function this.tick(sec_current, sec_delta)
			if this.reloading then
				if not this.t_reload then
					this.t_reload = sec_current + this.cfg.time_reload
				end
				
				if sec_current >= this.t_reload then
					local adelta = this.cfg.ammo_clip - this.ammo_clip
					if adelta > this.ammo_reserve then
						adelta = this.ammo_reserve
					end
					this.ammo_reserve = this.ammo_reserve - adelta
					this.ammo_clip = this.ammo_clip + adelta
					this.t_reload = nil
					this.reloading = false
					plr.arm_rest_right = 0
				else
					local tremain = this.t_reload - sec_current
					local telapsed = this.cfg.time_reload - tremain
					local roffs = math.min(tremain,telapsed)
					roffs = math.min(roffs,0.3)/0.3
					
					plr.arm_rest_right = roffs
				end
			elseif this.firing and this.ammo_clip == 0 then
				this.firing = false
			elseif this.firing and ((not this.t_fire) or sec_current >= this.t_fire) then
				prv_fire(sec_current)
				
				this.t_fire = this.t_fire or sec_current
				this.t_fire = this.t_fire + this.cfg.time_fire
				if this.t_fire < sec_current then
					this.t_fire = sec_current
				end
				
				this.ammo_clip = this.ammo_clip - 1
				
				-- TODO: poll: do we want to require a new click per shot?
			end
			
			if this.t_fire and this.t_fire < sec_current then
				this.t_fire = nil
			end
		end
		
		return this
	end,
}

weapons_enabled = {}
weapons_enabled[WPN_RIFLE] = true

-- teams
teams = {
	[0] = {
		name = "Blue Master Race",
		color_mdl = {16,32,128},
		color_chat = {0,0,255},
	},
	[1] = {
		name = "Green Master Race",
		color_mdl = {16,128,32},
		color_chat = {0,192,0},
	},
}

cpalette_base = {
	0x7F,0x7F,0x7F,
	0xFF,0x00,0x00,
	0xFF,0x7F,0x00,
	0xFF,0xFF,0x00,
	0x00,0xFF,0x00,
	0x00,0xFF,0xFF,
	0x00,0x00,0xFF,
	0xFF,0x00,0xFF,
}

cpalette = {}
do
	local i,j
	for i=0,7 do
		local r,g,b
		r = cpalette_base[i*3+1]
		g = cpalette_base[i*3+2]
		b = cpalette_base[i*3+3]
		for j=0,3 do
			local cr = math.floor((r*j)/3)
			local cg = math.floor((g*j)/3)
			local cb = math.floor((b*j)/3)
			cpalette[#cpalette+1] = {cr,cg,cb}
		end
		for j=1,4 do
			local cr = r + math.floor(((255-r)*j)/4)
			local cg = g + math.floor(((255-g)*j)/4)
			local cb = b + math.floor(((255-b)*j)/4)
			cpalette[#cpalette+1] = {cr,cg,cb}
        end
	end
end

damage_blk = {}
players = {max = 32, current = 1}
intent = {}

function string.split(s, sep, plain)
	local start = 1
	local done = false
	local function pass(i, j, ...)
		if i then
			local seg = s:sub(start, i - 1)
			start = j + 1
			return seg, ...
		else
			done = true
			return s:sub(start)
		end
	end
	local result = {}
	while not done do
		if sep == '' then done = true result[#result+1]=s end
		result[#result+1]=pass(s:find(sep, start, plain))
	end
	return result
end

-- trim the character 'sep' from the left hand side of the string
function string.triml(s, sep)
	sep = string.byte(sep)
	if s == '' then return s end
	local pos = 1
	while string.byte(s,pos)==sep and #s<=pos do pos = pos + 1 end
	return string.sub(s, pos+1)
end

-- trim the character 'sep' from the right hand side of the string
function string.trimr(s, sep)
	sep = string.byte(sep)
	if s == '' then return s end
	local pos = #s
	while string.byte(s, pos)==sep and pos>=1 do pos = pos - 1 end
	return string.sub(s, 1, pos)
end

-- trim the character 'sep' from both sides of the string
function string.trim(s, sep)
	return string.triml(string.trimr(s, sep), sep)
end

function parse_commandline_options(options)
	local user_toggles = {} -- toggle options (key is name, value is position)
	local user_settings = {} -- key-value pairs
	local loose = {} -- loose strings, filenames, etc.

	for k, v in pairs(options) do
		local setting_pair = string.split(v, "=")
		local first = string.byte(v,1)
		if first==string.byte('-') then -- we are toggling an option or setting a value
			if #setting_pair == 2 then -- we are setting a key to a value
				user_settings[string.triml(setting_pair[1], '-')]=setting_pair[2]
				print(string.triml(setting_pair[1], '-'),"trimmed")
			else
				user_toggles[string.triml(v, '-')]=k
			end
		else -- add to the loose values
			loose[#loose+1] = v
		end
	end
	return loose, user_toggles, user_settings
end

--[[Create an alarm object. When run, counts down to the specified value
based on the time delta passed in.

time: The time limit of the alarm. Ignored with values less than 1.
progress: the progress towards the time limit.
active: Whether alarm is running or not.
on_frame: Callback run every frame, passed in the dT of that frame.
on_trigger: Callback run when alarm reaches its limit, passed in the dT of that frame.
loop: Whether the alarm will continue after the first run.
preserve_accumulator: Whether looping transfers overflow dT from the previous run

]]
function alarm(options)
	
	this = {}
	
	this.time = options.time or 1
	this.progress = options.progress or 0
	this.active = options.active or true
	this.loop = options.loop or false
	this.preserve_accumulator = options.preserve_accumulator or true
	this.on_frame = options.on_frame or nil
	this.on_trigger = options.on_trigger or nil

	function this.tick(dT)
		if this.active then
			this.progress = this.progress + dT
			if this.on_frame ~= nil then this.on_frame(dT) end
			while this.progress >= this.time and this.active do
				if this.on_trigger ~= nil then this.on_trigger(dT) end
				if this.loop and this.time > 0 then
					if this.preserve_accumulator then
						this.progress = this.progress - this.time
					else
						this.progress = 0
					end
				else
					this.active = false
				end
			end
		end
	end
	
	function this.restart()
		this.progress = 0
		this.active = true
	end
	
	function this.time_remaining()
		return this.time - this.progress
	end
	
	return this
end