part two

set *Mortalled #false
set *Para #False
set #lpc 400
Loop:
gosub CheckforMortal&Para
if *Mortalled && #Scnt >= %Mortaltime
   set *Mortalled #false
if *Para && #Scnt >= %Paratime
   set *Para #False
goto Loop

sub CheckforMortal&Para
  scanjournal
{
  if You_have_been_mortally_wounded in #journal && : notin #journal
  {
     set *Mortalled #true
     set %Mortaltime ( #Scnt + 7 )
     deletejournal
     break
  }
  if ( You_are_no_longer_mortally_wounded in #journal || A_tasty_bite_of_the_enchanted in #journal ) && : notin #journal
  {
     set *Mortalled #false
     deletejournal
     break
  }
  if ( You_cannot_move in #journal || The_attack_has_temporarily in #journal ) && : notin #journal
  {
  set *Para #true
  set %Paratime ( #Scnt + 12 )
  deletejournal
  break
  }
  if You_can_move in #journal && : notin #journal
  {
  set *Para #false
  deletejournal
  break
  }
 break
}
return