--[[ ### Multi-Team Vehicle Script v1.3 ###]]--
--[[ ###   by H® Shaft for Phasor v2+   ###]]-- 

-- Allows you to enter the enemy's vehicle during FREE-for-All (FFA) games, not compatible with team games
-- Good to use with my Taxi script http://pastebin.com/00FcbiVs
--Version: 1.3 7/14/2014 -- added onplayerjoin, and ondamagelookup edits

function GetRequiredVersion()
	return 200
end

function OnScriptLoad(process, game, persistent)
	if game == "PC" or game == true then
		GAME = "PC"
		gametype_base = 0x671340		
	else 
		GAME = "CE"
		gametype_base = 0x5F5498
	end
    if readbyte(gametype_base + 0x34) == 1 then
		compatible = false
	else
		compatible = true
	end	
end

function OnPlayerSpawn(player, m_objectId)
	if compatible then writebyte(getplayer(player) + 0x20, 0) end
end

function OnPlayerJoin(player)
	if getplayer(player) then
		if compatible then writebyte(getplayer(player) + 0x20, 0) end
	end
end

function OnDamageLookup(receiver_id, causer_id, tagid)
	if compatible then
		if causer_id and receiver_id then
			local c_player = objectidtoplayer(causer_id)
			local r_player = objectidtoplayer(receiver_id)
			if r_player and c_player and c_player ~= r_player then
				if getteam(c_player) == getteam(r_player) then
					local count = r_player
					while(getteam(c_player) == count) do
						count = count + 1
					end
					writebyte(getplayer(r_player) + 0x20, count)
					mtv = registertimer(100, "multiteamtimer", r_player)
				end		
			end
		end
	end
end

function multiteamtimer(id, count, player)
	if compatible then
		writebyte(getplayer(player) + 0x20, 0)
	end
    return false
end

function OnGameEnd(stage)
	if stage == 1 then
		if mtv then
			mtv = nil
		end			
	end	
end	

--[[ Created by H® Shaft & AelitePrime
Thanks to Oxide, AelitePrime, Nugget & Wizard 
Visit http://halorace.org/forum/index.php?topic=514.0 or
Visit http://pastebin.com/u/HR_Shaft for more phasor scripts
]]