Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Lost In NeverWinter - With Maps

Author

Gryphyn

Submitted / Updated

01-04-2003 / 11-22-2006

Category

Travel

Expansions

Works on all versions

View Code

Script Follows:

The key is to break a rule -> This relies on the Waypoint being placed within the AreaTransition Trigger.
Attached is a demo Module - with full "ON_ENTER" script
 
 
Known issues:
1. Transitions to same area: sometimes Associates don't JumpToLocation, but walk from opposite side of map (see NSEW opposites)
2. Party not included in transition - only associates. ie Parties can get split up.
3. It doesn't create random dungeon areas, but uses a number fixed areas in a random fashion.
4. The demo is very limited, the more areas the more random - areas don't have to look identical
5. All areas require a N, S, E & W Waypoint within a trigger
 
This might help get other started, along other threads.
ie the is the potential of using "INTRANSIT" checking to hinder lurkers in PvP PW's (while in Destination trigger area they are safe from harm, until they gain their bearings and exit the trigger area
 
This will do for now. The more experienced will be able to decipher the intent of the script.

;-------------------------------------------------------------
//
// LostInNeverWinter
//
// Gryphyn     4 Jan 2003
//
// See AT_ENTER script in Demo
//
// ON_ENTER -> Area Transition Trigger
//
//
//++
// at_enter
// Gryphyn    22 Dec 2002
//
// 05Jan03 Added Mapping
//--

string EnterOpposite(string sExit)
{
  string sResult;
  int iExit = FindSubString("NSEW",sExit);
  switch (iExit)
  {
    case 0: sResult = "S"; break;
    case 1: sResult = "N"; break;
    case 2: sResult = "W"; break;
    case 3: sResult = "E"; break;
  }
  return sResult;
}

string RandomArea()
{
  string sResult;
  int iArea = Random(4) + 1; // (?) = Random Areas available
  sResult = GetStringRight("00" + IntToString(iArea),2);
  return sResult;
}

string RandomWayPoint()
{
  // "WP_nn_x" - "nn" = Area# and "x" in (N,S,E,W)
  string sTrigger = GetTag(OBJECT_SELF);
  string sExit = GetStringRight(sTrigger,1);
  string sEnter = EnterOpposite(sExit);
  string sArea = RandomArea();
  string sWayPoint = "WP_" + sArea + "_" + sEnter;
  // If ((same area) OR (invalid waypoint)) then try again
  while ( !GetIsObjectValid(GetObjectByTag(sWayPoint)) )
  {
    sArea = RandomArea();
    sWayPoint = "WP_" + sArea + "_" + sEnter;
  }
  return sWayPoint;
}

void BringAssociates(object oMaster)
{
  int iType;
  int iIndex;
  object oAssociate;
  for (iIndex = 1; iIndex <= 5; iIndex++)
  {
    switch(iIndex)
    {
      case 1: iType = ASSOCIATE_TYPE_ANIMALCOMPANION; break;
      case 2: iType = ASSOCIATE_TYPE_DOMINATED; break;
      case 3: iType = ASSOCIATE_TYPE_FAMILIAR; break;
      case 4: iType = ASSOCIATE_TYPE_HENCHMAN; break;
      case 5: iType = ASSOCIATE_TYPE_SUMMONED; break;
    }
    oAssociate = GetAssociate(iType,oMaster);
    if (GetIsObjectValid(oAssociate))
    {
      SetLocalInt(oAssociate,"INTRANSIT",3);
      AssignCommand(oAssociate,JumpToObject(oMaster));
      BringAssociates(oAssociate);
    }
  }
}

int GetIsOnPath(object oPC, string sMapTag)
{
  int iOnPath = 0;
  int iMapProg = 0;
  object oMap = GetObjectByTag(sMapTag);
  string sMapStart = GetLocalString(oMap,"MapStart");
  string sMapPath = GetLocalString(oMap,"MapPath");
  int iLenPath = GetStringLength(sMapPath);
  // Progress does not commence until the "START" trigger is activated
  string sTrigName = GetTag(OBJECT_SELF);
  if (sTrigName == sMapStart) { SetLocalInt(oPC,sMapTag,1); }
  iMapProg = GetLocalInt(oPC,sMapTag);
  if (iMapProg >= iLenPath) { iOnPath = 2; } // Exit
  if (iOnPath == 0 && iMapProg >= 1)
  {
    string sPathExit = GetSubString(sMapPath,iMapProg - 1,1);
    string sTrigExit = GetStringRight(sTrigName,1);
    if (sTrigExit == sPathExit)
    {
      iOnPath = 1;
      iMapProg++;
      SetLocalInt(oPC,sMapTag,iMapProg);
    }
  }
  if (iOnPath == 0) { DeleteLocalInt(oPC,sMapTag); }
  return iOnPath;
}

string DetermineWayPoint(object oPC)
{
  // How many transitions, while "LOST", before
  // returning to Entry location
  int iReturnToStart = 5;
  string sResult;

  int iHasMap = 0;
  int iIsOnPath = 0;
  string sMapTag = "";

  if (GetIsObjectValid(GetItemPossessedBy(oPC,"PathToBelia"))) { iHasMap = 1; }
  if (GetIsObjectValid(GetItemPossessedBy(oPC,"PathToRadra"))) { iHasMap = 2; }
  switch (iHasMap)
  { case 1: sMapTag = "PathToBelia"; break;
    case 2: sMapTag = "PathToRadra"; break; }

  if (sMapTag != "") { iIsOnPath = GetIsOnPath(oPC,sMapTag); }

  int iLostFor = GetLocalInt(oPC,"LOSTFOR");
  switch (iIsOnPath)
  { case 0: // Lost
      if (iLostFor <= iReturnToStart)
      { iLostFor++;
        SetLocalInt(oPC,"LOSTFOR",iLostFor);
        sResult = RandomWayPoint();
      }
      else
      { DeleteLocalInt(oPC,"LOSTFOR");
        sResult = GetLocalString(GetObjectByTag(sMapTag),"MapWPStart");
        // If PC didn't get Map 1st
        if (sResult == "") { sResult = "WP_AA_Exit"; } // Back to start
      }
      break;
    case 1: // OnPath
      sResult = RandomWayPoint();
      break;
    case 2: // Exit
      sResult = GetLocalString(GetObjectByTag(sMapTag),"MapWPFinish");
      break;
  }
  return sResult;
}


void main()
{
  object oPC = GetEnteringObject();
  switch (GetLocalInt(oPC,"INTRANSIT"))
  {
// "INTRANSIT" set
// PC must be arriving in area
    case 1: // DM Arrives
    case 2: // PC Arrives
      BringAssociates(oPC);
    case 3: // Associate Arrives
    case 4: // NPC Arrives
    case 5: // Monster Arrives
      DeleteLocalInt(oPC,"INTRANSIT");
      break;
// "INTRANSIT" not set (or invalid value)
// PC must be leaving area
    default:
      // Leaving Area
      if (GetIsDM(oPC)) { SetLocalInt(oPC,"INTRANSIT",1); }
      if (GetIsPC(oPC)) { SetLocalInt(oPC,"INTRANSIT",2); }
      string sWayPoint = DetermineWayPoint(oPC);
      object oWayPoint = GetObjectByTag(sWayPoint);
      location lWayPoint = GetLocation(oWayPoint);
      ClearAllActions();
      AssignCommand(oPC,JumpToLocation(lWayPoint));
  }
}

Select All Text | View Code in separate window

Format

Code Only

Type

Type - Transitions

Includes

None

Description

This is the basis for being able to generate Random dungeons. while NOT an 'on-the-fly' area generator. It will give starting point where an infinite number of areas (from a PC's perspective) can be generated using a small set of areas. The key is to break the rule and place WayPoints within AreaTransitionTriggers. Then each trigger is assigned the same 'on_enter' script. WARNING: Demo NOT Complete Known issues: 1. Transitions to same area: sometimes Associates don't JumpToLocation, but walk from opposite side of map (see NSEW opposites) 2. Party not included in transition - only associates. ie Parties can get split up. 3. It doesn't create random dungeon areas, but uses a number fixed areas in a random fashion. 5. The demo is very limited, the more areas the more random - areas don't have to look identical 6. All areas require a N, S, E & W Waypoint within a trigger

Files

Name	Type	Size	Downloads
Lost_in_Neverwinter.zipLost_in_Neverwinter.zip Submitted: 01-04-2003 / Last Updated: 01-07-2003	zip	37.71Kb	332
--

SCORE OUT OF 10

N/A
Cast Your Vote!

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

No Images

You Must Be Logged In to Participate.

Comments (6):

Posted by merentha at 2004-01-13 18:42:00

to force the party to transfer locations together couldn't you make an on enter clause to all areas to where when they enter an area if they are not the party leader they are teleported to the party leader? at least it prevent the party spanning so many areas. You could maybe add the script that's somewhere in the vault that simulates the BG series "you must gather your party before venturing forth", that way if you use the warping them to party leader on enter they'd end up together anyhow in the end...just an idea.-Merentha
Purveyor of Fine Music, Fine Wines and Fine Music!
(hey we all dream!)
_________________________
Currently awfg and deep into cyberpunk of AO, but I'll eventually come back to NWN :)

No wait, playin' DDO! But I've got a copy of NWN2 to load up and play ><

Posted by Anonymous ( ..xxx.xxx ) at 2003-07-19 20:34:00

what does this do

Posted by Gryphyn ( ..xxx.xxx ) at 2003-01-06 23:46:00

Just uploaded an update with MAPs
Code is still a bit messy - but you can now complete the
demo quest.
Bit of a spoiler - always exit from an AT Trigger

Posted by Gryphyn ( ..xxx.xxx ) at 2003-01-06 13:39:00

DoA,

My "Lost" is simply, Increment "LOSTFOR" integer on PC each
time they enter a new transition. When they have done this
enought "iReturnToStart", return PC to starting area.

The intent is that you are "Lost" if you don't have a map.
I've got Maps working, and should be able to Post an update
later today (my time)

FYI
The Maps I've done are "Quest" Maps. PC can only have One
Quest Map at a time (Given & Taken by the NPC's). For
simplicity they are One-Way Directional Maps. You'll see in
the update.

On a technical note, I avoided using the "OnAcquire"
& "OnUnAcquire" for processing getting/losing Map's - as
this is Module-Wide. It would be nice if BioWare had these
events for Objects.

Posted by Den of Assassins ( ..xxx.xxx ) at 2003-01-06 12:46:00

Neat, Gryphyn. I had gotten 90% done with an adaptation of
Jaga's Seamless Transitioner for outdoor random areas (also
coincidentally named LOST :D) before the holidays hit me.
I'll have to compare how you did the "lost" part in yours,
but if you're interested in comparing notes, I'll be happy
to send a copy of what I've done thus far.

Posted by spellbinder023 ( ..xxx.xxx ) at 2003-01-05 10:16:00

Interesting, not exactly what i am looking for, but
definetly a step in the right direction, ty.

You must be Logged In to post comments in this section.