IF
  Entered([PC])
THEN
  RESPONSE #100
    DisplayString(Myself,14381)
    ReallyForceSpell(LastTrigger,TRAP_ARROW)
    Wait(2)
END

IF
  Opened([PC])
THEN
  RESPONSE #100
    DisplayString(Myself,14381)
    ReallyForceSpell(LastTrigger,TRAP_ARROW)
    Wait(2)
END

