--§µ§Ò§Ú§Û§ã§ä§Ó§à §á§Ö§â§ã§à§ß§Ñ§Ø§Ñ
function KingWar_KillPeople(MapID, InstanceID, RoleID, KillerID)
local crea_kill = {}
crea_kill[1] = {9010661}
crea_kill[2] = {9010662}
crea_kill[3] = {9010663}
crea_kill[4] = {9010664}
crea_kill[5] = {9010665}
crea_kill[6] = {9010666}
crea_kill[7] = {9010667}
crea_kill[8] = {9010668}
crea_kill[9] = {9010669}
crea_kill[10] = {9010670}
crea_kill[11] = {9010671}
crea_kill[12] = {9010672}
crea_kill[13] = {9010673}
crea_kill[14] = {9010674}
local x = math.random(14)

if unit.IsPlayer(KillerID) and unit.IsPlayer(RoleID)  and RoleID ~= KillerID then
equipkrulo(MapID, InstanceID, RoleID, KillerID)
local x, y ,z = unit.GetPosition(MapID, InstanceID, RoleID)
map.MapCreateColCreature(MapID, InstanceID,crea_kill[x][1],x, y ,z, true, "")
local RoleTbl = map.GetMapAllRoleID(MapID,InstanceID)
end
if table.maxn(RoleTbl) == 10 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],10)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 9 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],9)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 8 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],8)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 7 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],7)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 6 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],6)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 5 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],5)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 4 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],4)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 3 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],3)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 2 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],2)
map.DeleteInstance(br_MapID, RoleID)
elseif table.maxn(RoleTbl) == 1 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],1)
role.RoleGotoNewMap(MapID, InstanceID, KillerID, 3390518568,1281,20287,1345)
elseif table.maxn(RoleTbl) > 10 then
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],11)
end
end

aux.RegisterMapEvent("br", 5, "KingWar_KillPeople")


--§£§ç§à§Õ §ß§Ñ §Ý§à§Ü§Ñ§è§Ú§ð
function KingWar_OnPlayerEnter(MapID, InstanceID, RoleID)
	ReviveHP = role.GetRoleAttValue(MapID, InstanceID, RoleID, 8)
	ReviveMP = role.GetRoleAttValue(MapID, InstanceID, RoleID, 10)
	role.ModRoleAttValue(MapID, InstanceID, RoleID, 9, ReviveHP)
	role.ModRoleAttValue(MapID, InstanceID, RoleID, 11, ReviveMP)
	local MsgID = msg.BeginMsgEvent()
	msg.AddMsgEvent(MsgID, 16,	28)								--
	msg.AddMsgEvent(MsgID, 16,	3600)							--Ê£Óàʱ¼ä
	msg.DispatchRoleMsgEvent(RoleID, MsgID)
	role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],0)
	end	

aux.RegisterMapEvent("br", 2, "KingWar_OnPlayerEnter")

--§ª§Ô§â§à§Ü §á§à§Ü§Ú§Õ§Ñ§Ö§ä §á§à§Ý§Ö §Ò§à§ñ
function KingWar_LeaveMap(MapID, InstanceID, RoleID)
role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],0)
end

aux.RegisterMapEvent("br", 3, "KingWar_LeaveMap")

--§±§Ó§á §â§Ö§Ø§Ú§Þ §Õ§Ý§ñ §Ó§ã§Ö§ç
function KingWar_FriendEnemy(MapID, InstanceID, SrcID, TargetID)
   
	return false, true, false, true
end
	
aux.RegisterMapEvent("br", 16, "KingWar_FriendEnemy")


function KingWar_CanTakeOverWhenOnline(MapID, RoleID, InstanceID)

	role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],0)
	return 3390518568,1281,20287,1345
end

function KingWar_GetExporMapAndCoord(MapID, InstanceID, RoleID)

	role.SetRoleScriptData(RoleID, 1, RoleDataType["King_point"],0)
	return 1, 3390518568,1281,20287,1345
end

aux.RegisterMapEvent("br",  13, "KingWar_GetExporMapAndCoord")
aux.RegisterMapEvent("br",  12, "KingWar_CanTakeOverWhenOnline")

function KingWar_CanEnter(MapID, InstanceID, RoleID)
	if role.GetRoleLevel(MapID, InstanceID, RoleID) >= 100 then
		return 1
	else
		return 0
	end
end

aux.RegisterMapEvent("br",  15, "KingWar_CanEnter")