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.
39 lines
753 B
Plaintext
39 lines
753 B
Plaintext
void main()
|
|
{
|
|
|
|
object oPC=GetEnteringObject();
|
|
|
|
if ((GetLocalInt(OBJECT_SELF,"trapped")==TRUE)&&(GetIsObjectValid(oPC))&&(GetObjectType(oPC)==OBJECT_TYPE_CREATURE))
|
|
|
|
{
|
|
|
|
int nReflex=ReflexSave(oPC,32,SAVING_THROW_TYPE_TRAP);
|
|
int nHP=GetCurrentHitPoints(oPC);
|
|
nHP=nHP-d6();
|
|
if (nReflex==0)
|
|
|
|
{
|
|
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDeath(),oPC);
|
|
|
|
}
|
|
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_IMP_DEATH_L),oPC);
|
|
SendMessageToPC(oPC,"You set off a trap!");
|
|
PlaySound("as_sw_woodplate1");
|
|
|
|
SetLocalInt(OBJECT_SELF,"trapped",FALSE);
|
|
|
|
string sString=GetStringLeft(GetTag(OBJECT_SELF),(GetStringLength(GetTag(OBJECT_SELF))-1));
|
|
|
|
if (GetIsObjectValid(GetObjectByTag(sString)))
|
|
|
|
{
|
|
DestroyObject(GetObjectByTag(sString));
|
|
}
|
|
|
|
|
|
}
|
|
}
|
|
|