@verb #7113:"figextend" none none none rdo #7113
@program #7113:"figextend" none none none
for each in (player.owned_objects)
  if (each != player && each.subsidised != 1)
    notify(player, "@extend " + tostr(each))
  endif
endfor
player:tell("Complete..")
.