>greet_prog 100~
if isnghost ($n)
if ispc($n)
murder $n
endif
endif
~
>fight_prog 10~
if ispc($n)
if rand(50)
  pmote wreaks havok on $n's armor.
  cas 'faerie fire'
else
  c slow
endif
endif
~
>entry_prog 100~
if isnghost ($r)
if ispc($r)
murder $r
endif
endif
~

>rand_prog 4~
if rand(50)
	mpasound The heat of an intense fire is felt nearby.
else
	mpasound Someone utters some strange words in a spidery language.
endif
~
>death_prog 80~
pmote explodes into a ball of fire!
cas 'fireball'
~

>act_prog p arrives through a gate.~
if isnghost ($n)
c 'dispel magic' $n
murder $n
endif
~

>act_prog p pops into existence.~
if isnghost ($n)
c 'dispel magic' $n
murder $n
endif
~

|