211
@verb #8165:"DoRefresh" this none this rxdo #8165
@program #8165:"DoRefresh" this none this
player:Convenience(player, "@e")
player:tell("Sorry, that was necessary.")
for All in [1..length(player.owned_objects)]
  Each = player.owned_objects[All]
  if (!is_player(Each) && Each.best_before != 0)
    player:Convenience(player, "^xtend " + toliteral(Each))
    if (All % 5 == 0)
      suspend(5)
      player:Convenience(player, "@e")
      player:tell("Arrrrggghhh! More necessity...")
    endif
  endif
endfor
.

0