@verb #3309:"default_seat" this none this rxdo #8438
@program #3309:"default_seat" this none this
":default_seat( sitter ) => Returns index value of seat in this:seatlist() which <sitter> will sit in when no specific seat is specified.  Returns 0 if no seat is available."
"    Currently this simply find the first available seat but you could modify it any way you like."
who = args[1]
seatnumber = 0
for x in [1..length(this:seatlist())]
  if (seatnumber == 0 && this:seat_accept(who, x))
    seatnumber = x
  endif
endfor
return seatnumber
.