#6500
Dig~
0 b 41
~
if %self.fighting%
  halt
end
emote digs some ore out of the rock face.
%load% obj 6522
drop ore
~
#6501
Haul Ore~
0 e 0
drops some ore~
wait %random.40% s
eval Path 
while %Path.strlen% > 0
  if !%self.fighting%
    eval Action %Path.car%
    eval Path %Path.cdr%
    switch %Action%
      case walk_to
        eval Dest %Path.car%
        eval Path %Path.cdr%
        if %self.room% != %Dest%
          pathto Step %Dest%
          eval myroom %self.room%
          %Step%
          if %myroom% == %self.room%
            say Hmm...I seem to be lost.
            %echoc% %self.name% closes his eyes and utters the words, 'inset candusqirr'.
            %echoc% %self.name% disappears.
            %teleport% %self% 4373
            eval Path rest
          else
            eval Path walk_to %Dest% %Path%
          end
        end
        break
      default
        %Action%
        break
    done
  end
  wait 1 s
  wait %random.5%
done
~
$~