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.
90 lines
1.8 KiB
Plaintext
90 lines
1.8 KiB
Plaintext
void main()
|
|
{
|
|
|
|
|
|
object oObject = GetFirstObjectInArea();
|
|
int nPCinArea=FALSE;
|
|
location lLoc;
|
|
string sString;
|
|
int nIdx;
|
|
object oDoor;
|
|
|
|
|
|
while (GetIsObjectValid(oObject))
|
|
{
|
|
if (GetIsPC(oObject))
|
|
{
|
|
nPCinArea = TRUE;
|
|
}
|
|
oObject=GetNextObjectInArea();
|
|
}
|
|
|
|
|
|
if (nPCinArea != TRUE)
|
|
{
|
|
SetLocalInt(OBJECT_SELF,"nLights",0);
|
|
|
|
oObject = GetFirstObjectInArea();
|
|
while (GetIsObjectValid(oObject))
|
|
{
|
|
sString=GetTag(oObject);
|
|
|
|
|
|
if ((GetObjectType(oObject)==OBJECT_TYPE_PLACEABLE)&&((sString=="jw_light1")||(sString=="jw_light2")||(sString=="jw_light3")||(sString=="jw_light4")||(sString=="jw_light5")))
|
|
{
|
|
SetPlotFlag(oObject,FALSE);
|
|
DestroyObject(oObject);
|
|
}
|
|
|
|
|
|
|
|
oObject=GetNextObjectInArea();
|
|
}
|
|
|
|
SoundObjectStop(GetObjectByTag("jw_light_sound1"));
|
|
SoundObjectStop(GetObjectByTag("jw_light_sound2"));
|
|
SoundObjectStop(GetObjectByTag("jw_light_sound3"));
|
|
SoundObjectStop(GetObjectByTag("jw_light_sound4"));
|
|
SoundObjectStop(GetObjectByTag("jw_light_sound5"));
|
|
|
|
|
|
for (nIdx=1;nIdx<=3;nIdx++)
|
|
{
|
|
oDoor=GetObjectByTag("jw_sembdoor"+IntToString(nIdx));
|
|
|
|
AssignCommand(oDoor,ActionCloseDoor(oDoor));
|
|
SetLocked(oDoor,TRUE);
|
|
}
|
|
|
|
SetLocalInt(OBJECT_SELF,"nRiddle",Random(3)+1);
|
|
|
|
|
|
object oItem;
|
|
oObject = GetFirstObjectInArea();
|
|
while (GetIsObjectValid(oObject) == TRUE)
|
|
{
|
|
if (GetTag(oObject) == "BodyBag")
|
|
{
|
|
|
|
oItem = GetFirstItemInInventory(oObject);
|
|
while (GetIsObjectValid(oItem) == TRUE)
|
|
{
|
|
|
|
|
|
DestroyObject(oItem);
|
|
|
|
oItem=GetNextItemInInventory(oObject);
|
|
}
|
|
|
|
SetPlotFlag(oObject,FALSE);
|
|
|
|
DestroyObject(oObject);
|
|
}
|
|
oObject=GetNextObjectInArea();
|
|
}
|
|
|
|
}
|
|
|
|
|
|
}
|