-- OneintheChamber 1.02

--[[ Autokill on rejoin ]]--

	kill_on_rejoin = false

	-- If you don't want players to be killed when they rejoin, even if the game has limited lives, delete this block of code.
		local gametype_base = 0x671340
		local lives = readbyte(gametype_base, 0x50)

		if lives > 0 then
			kill_on_rejoin = true
		end

--[[ Welcome Message ]]--

	welcome_message = "One in the Chamber"

--[[ Functions ]]--

function GetRequiredVersion()

	return 10057
end

function OnScriptLoad(process)

	
end

function OnScriptUnload()


end

function OnNewGame(map)


end

function OnGameEnd(mode)


end

function OnServerChat(player, chattype, message)

	return 1
end

function OnServerCommand(player, command)

	return 1
end

function OnTeamDecision(team)

	return team
end

--[[ Rejoining Tables ]]--

	hashes = {}
	dq = {}

function OnPlayerJoin(player, team)

	if kill_on_rejoin then
		local hash = gethash(player)
		if hashes[hash] then
			say(getname(player) .. " has been disqualified for rejoining this round!")
			dq[hash] = true
		else
			privatesay(player, welcome_message)
			hashes[hash] = true
		end
	end
end

function OnPlayerLeave(player, team)


end

function OnPlayerKill(killer, victim, mode)

	if mode == 4 then
		addOneBullet(killer)
	end
end

function addOneBullet(player)

	local m_player = getplayer(player)
	if m_player then
		local m_objId = readdword(m_player, 0x34)
		local m_object = getobject(m_objId)
		if m_object then
			local m_weapId = readdword(m_object, 0x118)
			local m_weapon = getobject(m_weapId)
			if m_weapon then
				local ammo = readdword(m_weapon, 0x2B6)
				writedword(m_weapon, 0x2B6, ammo + 1)
				updateammo(m_weapId)
			end
		end
	end
end

function OnKillMultiplier(player, multiplier)


end

function OnPlayerSpawn(player, m_objId)

	local m_object = getobject(m_objId)
	if m_object then
		writebyte(m_object, 0x31E, 0)
		writebyte(m_object, 0x31F, 0)
	end
end

function OnPlayerSpawnEnd(player, m_objId)

	local hash = gethash(player)
	if dq[hash] then
		kill(player)
	end
	
	local m_object = getobject(m_objId)
	if m_object then
		registertimer(10, "WeaponTimer", player, m_object)
	end
end

function WeaponTimer(id, count, player, m_object)

	local weap
	local gametype_base = 0x671340
	local weapons = readbyte(gametype_base, 0x5C) -- Confirmed. (Normal = 0) (Pistols = 1) (Rifles = 2) (Plasma Weapons = 3) (Sniper = 4) (No Sniping = 5) (Rocket Launchers = 6) (Shotguns = 7) (Short Range = 8) (Human = 9) (Convenant = 10) (Classic = 11) (Heavy Weapons = 12)
	if weapons == 0 or weapons == 11 then
		weap = "weapons\\pistol\\pistol"
	else
		weap = "weapons\\sniper rifle\\sniper rifle"
	end
	
	for i = 0, 3 do
		local m_weapId = readdword(m_object, 0x2F8 + i * 4)
		if getobject(m_weapId) then
			destroyobject(m_weapId)
		end
	end
	
	local weapon = createobject("weap", weap, 0, 30, false, 0, 0, 0)
	local m_weapon = getobject(weapon)
	assignweapon(player, weapon)
	writedword(m_weapon, 0x2B6, 0)
	writedword(m_weapon, 0x2B8, 1)
	writefloat(m_weapon, 0x240, 0.99)
	updateammo(weapon)
	
	return 0
end

function OnTeamChange(relevant, player, cur_team, dest_team)

	return 1
end

function OnObjectCreation(m_objId, player, tagName)


end

function OnObjectInteraction(player, m_objId, tagType, tagName)

	if tagType == "weap" then
		return 0
	elseif tagType == "eqip" then
		if string.find(tagName, "grenade") then
			return 0
		end
	end
	
	return 1
end

function OnWeaponAssignment(player, m_objId, slot, tagName)
			
	return 0
end

function OnWeaponReload(player, m_weapId)

	return 1
end

function OnDamageLookup(receiver, causer, tagData, tagName)

	if string.find(tagName, "bullet") then
		writefloat(tagData, 0x1D0, 500)
		writefloat(tagData, 0x1D4, 500)
		writefloat(tagData, 0x1D8, 500)
	end
end

function OnVehicleEntry(relevant, player, m_vehicleId, tagName, seat)

	return 1
end

function OnVehicleEject(player, forced)

	return 1
end

function OnClientUpdate(player, m_objId)


end