@verb #53:"new_player_number" this none this rxdo #55
@program #53:"new_player_number" this none this
if (caller != this)
  raise(E_PERM)
endif
if (typeof(this.last_player_number) != OBJ || !valid(this.last_player_number))
  fork (10)
    $mail_agent:send_message($recycler, {$pcl}, "Ack!", {"The new player numbers thing borked again!", tostr("$recycler.last_player_number was set to: ", toliteral(this.last_player_number))})
  endfork
  this.last_player_number = #1000
endif
start = this.last_player_number
for n in [start..max_object()]
  if (!$recycler:valid(n) && n.recycled_time < $recycler.last_complete_refkill_sweep)
    this.last_player_number = n
    return n
  endif
  $cmd_utils:suspend_if_needed()
endfor
for n in [this.min_user_obj..max_object()]
  if (!$recycler:valid(n))
    this.last_player_number = n
    return n
  endif
  $cmd_utils:suspend_if_needed()
  this.last_player_number = "Oh no, we ran out of numbers!"
endfor
return #-1
"Last modified by Cecil (#7407) on Mon Nov  4 08:36:59 2002 MST."
.