Jaysyn/LoD_PRC8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Initial Upload

Browse Source 
Initial Upload
This commit is contained in:
Jaysyn904
2023-09-21 21:20:34 -04:00
parent d3f23f8b3c
commit 94990edc60
5734 changed files with 6324648 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
_module/nss/_leverpuzzle.nss Normal file
View File

@@ -0,0 +1,99 @@
// Each switch must be flipped in order.
// I used the tag to get the order (1,2,3) and a localINT to indicate
// where in the sequence we are.
// Initial Version of this script was not multiplayer friendly
// Modified 7/6/2002
// Changed localINT from PC to MODULE level to account for multiple
// PCs interacting with the switches
// Set variables at the head for easier configuration for number of
// switches and names of light sources and invisible objects.
//Change the following variables to reflect your module's needs
// ------------------------------------------------------------------
//Max Number of switches
int iMaxSwitches=5;
//Invisible object tag base
string sInvisibleObjectBase = "inv00";
//Light blueprint base
string sLightBlueprintBase = "sol_";
//Light tag base
string sLightTagBase = "LIGHT_";
//LocalINT title
string sCurrentState = "WF_SWITCHES";
//Door to unlock when complete
object oDoor = GetObjectByTag("AirDoor2");
// ------------------------------------------------------------------
void makelight(int lightnum)
{
CreateObject(OBJECT_TYPE_PLACEABLE,sLightBlueprintBase + IntToString(lightnum), GetLocation(GetObjectByTag(sInvisibleObjectBase+IntToString(lightnum),0)));
DelayCommand(0.2, RecomputeStaticLighting(GetArea(GetObjectByTag(sLightTagBase + IntToString(lightnum)))));
}
void main()
{
object oPC=GetLastUsedBy();
//Read the stored state
int iCurrentState = GetLocalInt(GetModule(),sCurrentState);
//Find out which switch is being used
int iUsedSwitch = StringToInt(GetSubString(GetTag(OBJECT_SELF),GetStringLength(GetTag(OBJECT_SELF))-1,1));
if (iCurrentState <= iMaxSwitches)
{
//Only do this if the sequence is not complete
//If the current state is one less than the switch being pulled then
if ((iCurrentState+1) == iUsedSwitch)
{
// Show switch activation
AssignCommand(OBJECT_SELF, PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE));
// Turn related light on
makelight(iUsedSwitch);
// Store the sequence position
SetLocalInt(GetModule(),sCurrentState,(iCurrentState+1));
AssignCommand(OBJECT_SELF, PlaySound("gui_dm_drop"));
// Test for final Condition
if (iUsedSwitch == iMaxSwitches)
{
// save the state showing the puzzle is finished
SetLocalInt(GetModule(),sCurrentState,iMaxSwitches+1);
// Put anything you want to happen when the puzzle is solved in this
// section below. As is, it will unlock and open a door:
// ------------------------------------------------------------------
// make the last light if any
makelight(iMaxSwitches+1);
// play a nice sound
AssignCommand(OBJECT_SELF, PlaySound("gui_magbag_full"));
//open our door
SetLocked(oDoor, FALSE);
AssignCommand(OBJECT_SELF, ActionOpenDoor(oDoor));
// Tell the PC about opening the door
SendMessageToPC(oPC, "A door has opened somewhere!" );
// ------------------------------------------------------------------
}
} else {
// Sequence broken, so we must reset everything
AssignCommand(OBJECT_SELF, PlaySound("gui_cannotequip"));
// Show switch activation
AssignCommand(OBJECT_SELF, PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE));
// Destroy all light objects
int i;
object oLight;
string sLampTag;
string sSwitchTag;
string sSwitchTagBase=GetSubString(GetTag(OBJECT_SELF),0,GetStringLength(GetTag(OBJECT_SELF))-1);
string sInvObjTag;
//SendMessageToPC(GetFirstPC(), sSwitchTagBase );
for (i = 1; i <= iMaxSwitches; ++ i)
{
sLampTag = sLightTagBase + IntToString(i);
sSwitchTag = sSwitchTagBase + IntToString(i);
sInvObjTag = sInvisibleObjectBase + IntToString(i);
// Flip switch back
DelayCommand(0.2, AssignCommand(GetObjectByTag(sSwitchTag), PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE)));
// Reset the lights
oLight=GetObjectByTag(sLampTag);
DelayCommand(0.2, DestroyObject(oLight));
DelayCommand(2.5, RecomputeStaticLighting(GetArea(GetObjectByTag(sInvObjTag))));
}
SetLocalInt(GetModule(),sCurrentState,0);
}
}
}