case "Story_VoyageToKhaelRoaBegan":
LAi_LocationMonstersGen(&Locations[FindLocation("Labirint_1")], true);
LAi_LocationMonstersGen(&Locations[FindLocation("Labirint_2")], true);
LAi_LocationMonstersGen(&Locations[FindLocation("Labirint_3")], true);
LAi_LocationMonstersGen(&Locations[FindLocation("Treasure_Alcove")], true);
Islands[7].model = "KhaelRoa1";
Islands[7].filespath.models = "islands\KhaelRoa1";
Islands[7].refl_model = "KhaelRoa1_refl";
SetQuestHeader("Sail_to_KhaelRoa");
AddQuestRecord("Sail_to_KhaelRoa", 1);
// NK -->
//Log_SetStringToLog("done");
ChangeCharacterAddress(characterFromID("Robert Christopher Silehard"), "none", "");
SetRumourState("Silehard_nasty", false);
Locations[FindLocation("Redmond_Town_01")].reload.l13.disable = 0;
// NK <--
characters[GetCharacterIndex("Robert Christopher Silehard")].rank = makeint(pchar.rank) - 4;
LAi_SetGuardianType(characterFromID("Robert Christopher Silehard"));
ChangeCharacterAddress(characterFromID("John Clifford Brin"), "redmond_residence", "goto8"); // NK
Towns[GetTownIndex("Redmond")].gov = "John Clifford Brin"; // KK
// PS gen chars and ships-->
SetUpShip(characterFromID("Isenbrandt Jurcksen"), "war", true);
SetUpShip(characterFromID("Brian The Slayer"), "war", true);
//SetUpShip(characterFromID("James Paige"), "war", true);
// KK -->
SetUpShip(characterFromID("Robert Christopher Silehard"), "war", true);
SetUpShip(characterFromID("Thomas Norton"), "war", true);
GiveItem2Character(characterFromID("Robert Christopher Silehard"), "blade25+1");
EquipCharacterByItem(characterFromID("Robert Christopher Silehard"), "blade25+1");
GiveItem2Character(characterFromID("Robert Christopher Silehard"), "pistol5+2");
EquipCharacterByItem(characterFromID("Robert Christopher Silehard"), "pistol5+2");
// <-- KK
// (superhigh numbers to make sure crew at max)
SetCrewQuantity(characterFromID("Isenbrandt Jurcksen"), 4000);
SetCrewQuantity(characterFromID("Brian The Slayer"), 4500);
SetCrewQuantity(characterFromID("Robert Christopher Silehard"), 9500);
SetCrewQuantity(characterFromID("Thomas Norton"), 1600);
// PS <--
Group_AddCharacter("Story_Pirate_Squadron", "Isenbrandt Jurcksen");
Group_AddCharacter("Story_Pirate_Squadron", "Brian The Slayer");
Group_AddCharacter("Story_Pirate_Squadron", "Robert Christopher Silehard");
Group_AddCharacter("Story_Pirate_Squadron", "Thomas Norton");
Group_SetGroupCommander("Story_Pirate_Squadron", "Isenbrandt Jurcksen");
Group_SetTaskAttack("Story_Pirate_Squadron", PLAYER_GROUP);
Group_SetAddress("Story_Pirate_Squadron", "KhaelRoa", "Quest_ships", "Quest_Ship_4");
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l1 = "NPC_Death";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l1.character = "Isenbrandt Jurcksen";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l2 = "NPC_Death";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l2.character = "Brian The Slayer";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l3 = "NPC_Death";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l3.character = "Thomas Norton";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l4 = "NPC_Death";
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l4.character = "Robert Christopher Silehard";
// KK -->
pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l5 = "location";
pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition.l5.location = "KhaelRoa";
// <-- KK
Pchar.quest.Story_SinkPiratesAtKhaelRoa.win_condition = "Story_SinkPiratesAtKhaelRoa";
Pchar.quest.Story_AppearAtKhaelRoa.win_condition.l1 = "location";
Pchar.quest.Story_AppearAtKhaelRoa.win_condition.l1.location = "KhaelRoa";
Pchar.quest.Story_AppearAtKhaelRoa.win_condition = "Story_AppearAtKhaelRoa";
Characters[GetCharacterIndex("Danielle")].Dialog.CurrentNode = "ReadyForKhaelRoa";
break;