@verb #8084:"@down" any none none rdo #8084
@program #8084:"@down" any none none
what = dobj
idx = random(4)
what.values[idx] = what.values[idx] - 1
for x in [1..4]
  what.values[x] = max(what.values[x], 1)
endfor
player:tell("knocked up")
"Last modified by Lao-Tzu (#8084) on Mon Dec 10 07:46:05 2001 MST."
.