@verb #9595:"unthrow roshambo_reset @roshambo_reset reset*_roshambo @reset*_roshambo unshoot" none none none rxd #8034
@program #9595:"unthrow roshambo_reset @roshambo_reset reset*_roshambo @reset*_roshambo unshoot" none none none
"  Rescind all Roshambo challenges in the current room."
for fobj in ({@`player.location.features ! E_PROPNF => {}', @player.features})
  if ($object_utils:isa(fobj, parent(this)))
    player:tell(fobj)
    gname = fobj:throw_list()
    i = $list_utils:iassoc(player.location, fobj.challenges)
    if (i)
      if (fobj.challenges[i][2][1] == player)
        message = {"%N %<withdraws> %p challenge to ", gname, "."}
      elseif (fobj.challenges[i][3][1] == player)
        dobj = fobj.challenges[i][2][1]
        message = {"%N %<declines> %d's challenge to ", gname, "."}
      else
        message = {"%N %<resets> the ", gname, " challenge."}
      endif
      $you:say_action($string_utils:from_list(message))
      fobj.challenges = listdelete(fobj.challenges, i)
    else
      player:tell("There are no pending Roshambo challenges for ", gname, ".")
    endif
  endif
endfor
"Last modified by Pentomino (#8034) on Mon Aug 30 15:27:47 2004 MDT."
.