>greet_prog 100~
if isnpc($n)
  break
endif
if charobj(30010)
 pmote glances at the tablet and loses all interest in $n.
else
  stand
  c sleep $n
  c poi $n
  c pla $n
  C power $n
endif
~

>fight_prog 30~
if hitprcnt($n) < 30
if rand(70)
    thrust
endif
  else
    if rand(30)
      c acid
    else
      if rand(40)
        c 'dispel magic'
      else
        if rand(45)
          c ghoul
        else
          if rand(50)
            c silence
          else
            c hell
          endif
        endif
      endif
    endif
endif
~

>death_prog 100~
echo A chorus of thousands of whispers surrounds you as the figure fades out of sight.
~
|