@verb #3923:"s" none none none rdo #9452
@program #3923:"s" none none none
dude = $lord_database:authenticate(player)
if (typeof(dude) == WAIF)
  if (dude->armor_index != 0)
    armor = $lord_database.armor_stats[dude->armor_index]
    player:tell("  \"Hmmm, I will buy your " + dude->armor_name + " for " + $string_utils:group_number(armor[2] / 2) + ".")
    player:tell("  Agreed, friend?\"")
    player:tell()
    player:tell("  Sell it?  [N]")
    answer = $command_utils:read()
    if (answer == "y")
      player:tell("  \"Good doing business with you!\"  The girl takes your armor and gives")
      player:tell("  you the money.")
      dude->gold_hand = $lord_database:intadd(dude->gold_hand, armor[2] / 2)
      dude->defense = dude->defense - armor[3]
      dude->armor_index = 0
      dude->armor_name = "Nothing!"
    else
      player:tell("  \"That's ok.  Your armor probably has sentimental value to you.\"")
    endif
  else
    player:tell("  \"You silly kidder!!\" Paula laughs, \"You don't have any armor to sell!\"")
  endif
  player:tell(this.menu_msg)
endif
"Last modified by Crono (#9452) on Sun Sep  8 20:00:40 2002 MDT."
.