// Define Start Nation Port and Questbook Header
iNation = GetServedNation();
switch(CharPlayerType)
{
case PLAYER_TYPE_NAVAL_OFFICER:
questRecord = "Navy_Continue";
break;
case PLAYER_TYPE_ROGUE:
iNation = PERSONAL_NATION; // Triggers La Croix opening further down
break;
case PLAYER_TYPE_GAMBLER:
iNation = PERSONAL_NATION; // Triggers La Croix opening further down
break;
case PLAYER_TYPE_AGENT:
questRecord = "Agent_Continue";
if (GetMySimpleName(PChar) == "Jean Lafitte" && GetCurrentPeriod() >= PERIOD_REVOLUTIONS)
{
iNation = AMERICA;
SetActualRMRelation(iNation, REP_LEAVEMIN); // Encourage play for America
}
iNation = FindEnemyNation2Nation(iNation);
break;
case PLAYER_TYPE_CURSED:
questRecord = "Cursed_Continue";
iNation = rand(NATIONS_QUANTITY-1);
break;
case PLAYER_TYPE_CORSAIR:
questRecord = "Corsair_Continue";
break;
}
// Hoist False Flag if Required
if(GetNationRelation2MainCharacter(iNation) == RELATION_ENEMY) // If necessary:
{ // - Hoist false flag
PChar.nation = iNation; // - Restore original player flag after worldmap
SafePortLeave(); // - Ensure you are not recognized upon leaving
}
// Reload to Appropriate Port
if (NationNoIsland(iNation, GetCurrentPeriod()))
{
SetCharacterShipLocation(Pchar, "Tortuga_Port");
DoQuestReloadToLocation("Tortuga_Port", "reload", "reload2_back" ,questRecord);
}
else
{
switch(iNation)
{
case ENGLAND:
SetCharacterShipLocation(Pchar, "Redmond_port");
DoQuestReloadToLocation("Redmond_port", "reload", "Sea_2_back" ,questRecord);
break;
case FRANCE:
SetCharacterShipLocation(Pchar, "Falaise_de_fleur_port_01");
DoQuestReloadToLocation("Falaise_de_fleur_port_01", "reload", "sea" ,questRecord);
break;
case SPAIN:
SetCharacterShipLocation(Pchar, "Muelle_port");
DoQuestReloadToLocation("Muelle_port", "reload", "reload1_back" ,questRecord);
break;
case PIRATE:
SetCharacterShipLocation(Pchar, "QC_port");
DoQuestReloadToLocation("QC_port", "reload", "reload1" ,questRecord);
break;
case HOLLAND:
SetCharacterShipLocation(Pchar, "Douwesen_port");
DoQuestReloadToLocation("Douwesen_port", "reload", "reload2" ,questRecord);
break;
case PORTUGAL:
SetCharacterShipLocation(Pchar, "Conceicao_port");
DoQuestReloadToLocation("Conceicao_port", "reload", "reload2" ,questRecord);
break;
case AMERICA:
SetCharacterShipLocation(Pchar, "Eleuthera_Port");
DoQuestReloadToLocation("Eleuthera_Port", "reload", "reload1_back" ,questRecord);
break;
case PERSONAL_NATION:
SetCharacterShipLocation(Pchar, "Cuba_shore_03");
DoQuestReloadToLocation("Cuba_shore_03", "goto", "locator5" ,"embora");
break;
}
}