7b9e44ebbb
Initial upload. PRC8 has been added. Module compiles, PRC's default AI & treasure scripts have been integrated. Started work on top hak for SLA / Ability / Scripting modifications.
133 lines
4.0 KiB
Plaintext
133 lines
4.0 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: Secret Door invis object
|
|
//:: V 1.2
|
|
//:: Copyright (c) 2001 Bioware Corp.
|
|
//:://////////////////////////////////////////////
|
|
/*
|
|
This Invisable object will do a check and see
|
|
if any pc comes within a radius of this object.
|
|
|
|
If the PC has the search skill or is a elf then
|
|
a search check will be made.
|
|
|
|
It will create a trap door that will have its
|
|
Destination set to a waypoint that has
|
|
a tag of DST_<tag of this object>
|
|
|
|
The radius is determined by the reflex saving
|
|
throw of the invisible object
|
|
|
|
The DC of the search stored by the willpower
|
|
saving throw.
|
|
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Robert Babiak
|
|
//:: Created On: June 25, 2002
|
|
//:://////////////////////////////////////////////
|
|
|
|
void main()
|
|
{
|
|
int nSkill;
|
|
// get the radius and DC of the secret door.
|
|
float fSearchDist = IntToFloat( GetReflexSavingThrow ( OBJECT_SELF ) );
|
|
int nDiffaculty = GetWillSavingThrow ( OBJECT_SELF );
|
|
|
|
// what is the tag of this object used in setting the destination
|
|
string sTag = GetTag(OBJECT_SELF);
|
|
|
|
// has it been found?
|
|
int nDone = GetLocalInt(OBJECT_SELF,"D_"+sTag);
|
|
int nReset = GetLocalInt(OBJECT_SELF,"Reset");
|
|
|
|
// ok reset the door is destroyed, and the done and reset flas are made 0 again
|
|
// if (nReset == 1)
|
|
// {
|
|
// nDone = 0;
|
|
// nReset = 0;
|
|
//
|
|
// SetLocalInt(OBJECT_SELF,"D_"+sTag,nDone);
|
|
// SetLocalInt(OBJECT_SELF,"Reset",nReset);
|
|
//
|
|
// object oidDoor= GetLocalObject(OBJECT_SELF,"Door");
|
|
// if (oidDoor != OBJECT_INVALID)
|
|
// {
|
|
// SetPlotFlag(oidDoor,0);
|
|
// DestroyObject(oidDoor);
|
|
// }
|
|
|
|
// }
|
|
|
|
//
|
|
int nBestSkill = -50;
|
|
object oidBestSearcher = OBJECT_INVALID;
|
|
int nCount = 1;
|
|
|
|
// Find the best searcher within the search radius.
|
|
object oidNearestCreature = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE);
|
|
|
|
while ( ( nDone == 0 ) &&
|
|
( oidNearestCreature != OBJECT_INVALID )
|
|
)
|
|
{
|
|
// what is the distance of the PC to the door location
|
|
float fDist = GetDistanceBetween(OBJECT_SELF,oidNearestCreature);
|
|
|
|
if ( fDist > fSearchDist )
|
|
|
|
{
|
|
nDone = 1;
|
|
}
|
|
|
|
if ( fDist <= fSearchDist )
|
|
{
|
|
nSkill = GetSkillRank(SKILL_SEARCH,oidNearestCreature);
|
|
|
|
|
|
}
|
|
|
|
|
|
if ( ( nDone == 0 ) &&
|
|
( GetIsObjectValid( oidNearestCreature ) && (GetIsPC(oidNearestCreature)) )
|
|
)
|
|
{
|
|
int nMod = d20();
|
|
|
|
// did we find it.
|
|
if ((nSkill +nMod > nDiffaculty)&&(GetLevelByClass(CLASS_TYPE_ROGUE,oidNearestCreature)>=1))
|
|
{
|
|
location locLoc = GetLocation (OBJECT_SELF);
|
|
object oidDoor;
|
|
// yes we found it, now create a trap door for us to use. it. VICONIUS: Edited the door to be stone.
|
|
oidDoor = CreateObject(OBJECT_TYPE_PLACEABLE,"fr_secretdoor_st",locLoc,TRUE);
|
|
ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_IMP_KNOCK),GetLocation(oidDoor));
|
|
FloatingTextStringOnCreature("Discovered a hidden door",oidNearestCreature);
|
|
SetLocalString( oidDoor, "Destination" , "DST_"+sTag );
|
|
// make this door as found.
|
|
SetLocalInt(OBJECT_SELF,"D_"+sTag,1);
|
|
SetPlotFlag(oidDoor,1);
|
|
SetLocalObject(OBJECT_SELF,"Door",oidDoor);
|
|
|
|
float fSeconds = 45.00;
|
|
DelayCommand(fSeconds, DestroyObject(oidDoor));
|
|
|
|
nDone = 0;
|
|
nReset = 0;
|
|
|
|
SetLocalInt(OBJECT_SELF,"D_"+sTag,nDone);
|
|
SetLocalInt(OBJECT_SELF,"Reset",nReset);
|
|
|
|
SetPlotFlag(oidDoor,0);
|
|
|
|
} // if success on check
|
|
|
|
|
|
} // if check takes place
|
|
nCount = nCount +1;
|
|
oidNearestCreature = GetNearestCreature(CREATURE_TYPE_IS_ALIVE, TRUE, OBJECT_SELF ,nCount);
|
|
} // if Object is valid
|
|
|
|
|
|
}
|
|
|