#9000
Bow and Arrow Shoot - 9000~
1 c 1
shoot~
if %actor.fighting% && !%arg%
  set arg %actor.fighting%
end
if !%arg% 
  %send% %actor% Shoot Who?
  halt
else
  %force% %arg% kill %actor.name%
end
if (%arg.room% != %actor.room%) || (%arg.id% == %actor.id%)
  %send% %actor% Shoot: Invalid Target!
  halt
end
eval i %actor.inventory%
while (%i%)
  set next %i.next_in_list%
  if %i.vnum%==9005
    set quiver 1
    break
  end
  set i %next%
done
if %quiver%
  %force% %actor% take arrow quiver
end  
if %actor.inventory(9004)%
  %echo% Arrow in inventory shoot.
  %damage% %arg% 20
  %send% %actor% You shoot an arrow at your opponent.
  %echoaround% %actor% %actor.name%'s opponent shudders, hit by an arrow.
  %purge% %actor.inventory(9004)%
  %load% obj 9004
else
  %send% %actor% You need to have arrows or a quiver.
end
~
$~