281
@verb #5383:"grind" any on top of/on/onto/upon any rxdo #5156
@program #5383:"grind" any on top of/on/onto/upon any
$msg:mtell("grind")
n = 0
alive = 1
if (index(iobj:title(), "rail"))
  chance = 150.0
elseif (iobj:isa($player))
  chance = 10.0
elseif (!valid(iobj))
  chance = 0.0
else
  chance = 100.0
endif
while (alive)
  if (tofloat(random(100)) > chance)
    alive = 0
  else
    suspend(3)
    n = n + 1
    $msg:mtell("grind_more", n)
    chance = chance * (3.0 / 4.0)
  endif
endwhile
suspend(random(4))
$msg:mtell("grind_fall")
"Last modified by ChocolateGuy (#4813) on Wed Jun 14 14:49:36 2000 MDT."
.

0