72 lines
3.2 KiB
Plaintext
72 lines
3.2 KiB
Plaintext
#include "x4_inc_functions"
|
|
#include "_sh_inc_list"
|
|
void main()
|
|
{
|
|
object oPC = GetPCSpeaker();
|
|
object oArea = GetArea(OBJECT_SELF);
|
|
|
|
//A conditional check
|
|
float fDistance;
|
|
object oMember = GetFirstFactionMember(oPC);
|
|
//Halt if the PC is in a different area
|
|
if (GetLocalString(oPC, "AreaString") != GetLocalString(oArea, "AreaString")) return;
|
|
while (GetIsObjectValid(oMember))
|
|
{
|
|
fDistance = GetDistanceBetween(oMember, oPC); //Get the distance between the PC and a party member
|
|
if (oPC != oMember && (fDistance == 0.0 || fDistance > 10.0)) //If they are in different areas or the distance is longer than 10 meters...
|
|
{
|
|
FloatingTextStringOnCreature("Your party wants to travel, but you are absent!", oMember, FALSE);
|
|
return;
|
|
}
|
|
oMember = GetNextFactionMember(oPC);
|
|
}
|
|
|
|
//Get area string
|
|
string sAreaString = GetLocalString(oArea, "AreaString");
|
|
string sRegionString = GetStringLeft(sAreaString, 1);
|
|
int nReturn = FALSE;
|
|
if (GetStringRight(sAreaString, 1) == "r") nReturn = TRUE; //We want to restore miles travelled if we are in the return area
|
|
|
|
//Get the list of free areas
|
|
string sList = "sList"+sRegionString;
|
|
object oList = GetLocalObject(GetModule(), sList);
|
|
|
|
//Get the number of free areas
|
|
int nCount = ListGetElementCount(oList);
|
|
|
|
//Randomly select a free area
|
|
int nElementIndex = Random(nCount)+1;
|
|
string sRandomAreaString = ListGetString(oList, nElementIndex);
|
|
|
|
//Teleport the PC (and their party) to the southern entrance waypoint of the chosen area and start counting miles travelled
|
|
object oWaypoint = GetWaypointByTag("exit_wp_"+sRandomAreaString+"_s");
|
|
//Let's store the party leader on the area about to be entered
|
|
SetLocalObject(GetArea(oWaypoint), "PartyLeader", GetFactionLeader(oPC));
|
|
//Now we move the party
|
|
object oParty = GetFirstFactionMember(oPC, FALSE);
|
|
while ( oParty != OBJECT_INVALID )
|
|
{
|
|
SetLocalInt(oParty, "CanDiscover", 1); //We don't want to encounter any villages or dungeons (or chests?) at the exit of the first area, but want to be able to do this in the second area
|
|
AssignCommand(oParty, ClearAllActions());
|
|
AssignCommand(oParty, JumpToObject(oWaypoint));
|
|
if (nReturn == FALSE)
|
|
{
|
|
SetLocalInt(oParty, "Miles", 1);
|
|
if (GetLocalString(GetModule(), "MODE") == "LOCAL" && GetIsPC(oParty)) SetCampaignInt(CharacterDB(oParty), "MILES", 1); //store miles travelled in LOCAL mode
|
|
if (sRegionString != GetCampaignString(CharacterDB(oParty), "REGION") && GetIsPC(oParty)) SetCampaignString(CharacterDB(oParty), "REGION", sRegionString); //store the region
|
|
}
|
|
else
|
|
{
|
|
SetLocalInt(oParty, "Miles", GetCampaignInt(CharacterDB(oParty), "MILES"));
|
|
}
|
|
|
|
oParty = GetNextFactionMember(oPC, FALSE);
|
|
}
|
|
|
|
/*//Simulate the OnEnter event of the area - we do not use the normal OnEnter to avoid event/encounter reloading in case of a loaded save file
|
|
object oRandomArea = GetArea(oWaypoint);
|
|
SetLocalObject(GetModule(), "TravellingPC", oPC);
|
|
ExecuteScript("execute_onenter", oRandomArea);
|
|
DeleteLocalObject(GetModule(), "TravellingPC");*/
|
|
}
|