39a
@verb #450:"new_pilot" this none this rxd #9988
@program #450:"new_pilot" this none this
":new_pilot(<player>)  => Creates a pilot for the player, ignores if the"
"    player already has a pilot. returns the pilot's callsign."
if (!$perm_utils:controls(caller_perms(), this))
  return E_PERM
elseif (args[1] in this.pilot_idx)
  return "You can't have multiple pilots!" && E_QUOTA
endif
while (`name_conflict ! E_VARNF => 1')
  csign = $command_utils:read("a callsign for your pilot")
  name_conflict = csign in this:get_stats(1)
  if (name_conflict)
    player:tell("Sorry! ", this.pilot_idx[name_conflict]:title(), " already has a pilot with that name.")
  endif
endwhile
{pdata, pship, ploc} = this.initial_values
this.pilot_idx = {@this.pilot_idx, args[1]}
this.pilot_data = {@this.pilot_data, pdata}
this.pilot_shipdata = {@this.pilot_shipdata, pship}
this.pilot_loc = {@this.pilot_loc, ploc}
.

0