void LoginCharactersInLocation(ref loc)
{
	LocAi_Init(loc);
	string locID = loc.id;
	for(int i = 0; i < MAX_CHARACTERS; i++)
	{
		LoginCharacter(&Characters[i], locID);
	}
	if(actLoadFlag)
	{
		for(i = 0; i < 32; i++)
		{
			LoginCharacter(&Characters[LOC_FANTOM_CHARACTERS + i], locID);
		}
	}
	LocAi_PostInit(loc);
}

void LoginCharacter(aref chr, string locID)
{
	if(LAi_CharacterLogin(chr, locID))
	{
		bool isNoCreated = true;
		if(CreateCharacter(chr))
		{
			isNoCreated = false;
			if(TeleportCharacterToLocator(chr, chr.location.group, chr.location.locator)==0)
			{
				if((CheckAttribute(chr, "index") != false) &&
					(GetMainCharacterIndex() == sti(chr.index)))
				{
					Trace("Main character <" + chr.id + "> error teleportation by location: " + chr.location + "  on locator: " + chr.location.group + "::" + chr.location.locator);
				}else{
					isNoCreated = true;
					DeleteCharacter(chr);
					Trace("Delete character <" + chr.id + "> , error teleportation by location: " + chr.location + " on locator: " + chr.location.group + "::" + chr.location.locator);
				}
			}
		}else{
			Trace("Can't create character: " + chr.id);
		}
		if(isNoCreated)
		{
			LAi_CharacterLogoff(chr);
		}
	}
}

void LogoffCharacter(aref chr)
{
	if(IsEntity(chr))
	{
		LAi_CharacterLogoff(chr);
		CharacterExitFromLocation(chr);
	}
}


bool ChangeCharacterAddress(ref character, string location_id, string locator)
{
	return ChangeCharacterAddressGroup(character, location_id, "goto", locator);
}

string GetCharacterShipLocation(ref rCharacter)
{
	if (CheckAttribute(rCharacter,"location.from_sea")) return rCharacter.location.from_sea;
	Trace("Character '" + rCharacter.id + "' location.from_sea is absent");
	return "None";
}

bool SetCharacterShipLocation(ref character, string location_id)
{
	int lindex = FindLocation(location_id);
	if(lindex < 0)
	{
		Trace("Incorrect location id 'SetCharacterShipLocation' (location " + location_id + " not found");
		return false;
	}
	character.location.from_sea = location_id;
	return true;
}

bool ChangeCharacterShipGroup(ref rCharacter, string group_id)
{
	rCharacter.Ship.AI.GroupName = group_id;
	if (IsEntity(&AISea))
	{
		SendMessage(&AISea,"las",AI_MESSAGE_SHIP_CHANGE_GROUP,&rCharacter,group_id);
	}
	return true;
}

bool SetCharacterIslandLocation(ref character, string location_id, string group, string locator, string group_id, string task, string target_group_id)
{
	bool bRet = ChangeCharacterAddressGroup(character, location_id, group, locator);
	if (!bRet) return false;
	character.Ship.AI.GroupName = group_id;
	character.Ship.AI.Task = task;
	character.Ship.AI.Task.Group = target_group_id;
	return true;
}

bool ChangeCharacterAddressGroup(ref character, string location_id, string group, string locator)
{
	//Trace("Change character address id = " + character.id + "; location = " + location_id + "; group = " + group + "; locator = " + locator);
	int lindex = FindLocation(location_id);
	if(lindex < 0)
	{
		//Переходим в морскую часть
		LogoffCharacter(character);
		lindex = FindIsland(location_id);
		if(lindex < 0)
		{
			Trace("Incorrect location id 'ChangeCharacterAddressGroup' (location " + location_id + " not found");
			return false;
		}
		character.location = location_id;
		character.location.group = group;
		character.location.locator = locator;
		return true;
	}
	//Если перемещаемся в нутри одной локации, то просто телепортимся
	if(location_id == character.location)
	{
		TeleportCharacterToLocator(character, group, locator);
		character.location = location_id;
		character.location.group = group;
		character.location.locator = locator;
		return true;
	}
	//Если загруженны, то выйдем из локации
	LogoffCharacter(character);
	//Перемещаемся в другую локацию
	string oldLocation = character.location;
	character.location = location_id;
	character.location.group = group;
	character.location.locator = locator;
	//Если локация загруженна, то логинемся
	if(IsEntity(&Locations[lindex]))
	{
		LoginCharacter(character, Locations[lindex].id);
		LAi_PostLoginInit(character);
	}
	return true;
}