home » builders » builder's lessons » wear prog

Wear programs

Wear programs activate when an item is worn or held by the PC.

>wear_prog 100~
if deity($n) != Corellon
  mpforce $n remove i1243
  mpechoat $n The boots zaps you and disappear.
  mpechoaround $n The boots zaps $n and disappear.
  mpmadd $n currhp -20
  mppurge i1243 $n
else
  mpechoat $n Your footsteps can no longer be heard.
endif
~
|

This prog is on the supplicate object of Corellons followers. When worn it checks to see if the deity is Corellon and if not it hurts the player and they junk. If they do follow corellon it echos to them.