start:
pause 1
put attack
if matchre("$roomobjs", "(\S+) ((which|that) appears dead|\(dead\))") then
  {
      gosub skinit
  }
match start Roundtime
matchre waitabit There is nothing else to face
matchwait
goto start

skinit:
pause 1
put hunt
pause 1
put arrange
pause 1
put arrange
pause 1
put skin
pause 1
return

waitabit:
pause 5
return

throwstart:
pause 1
put get %rh
if $stamina < 95 then
{
    gosub waitabit
}
put throw
if matchre("$roomobjs", "(\S+) ((which|that) appears dead|\(dead\))") then
  {
      gosub throwskinnit
  }
match throwstart Roundtime
matchre waitabit There is nothing else to face
matchwait

throwskinnit:
pause 1
put get %rh
gosub skinit
return