# Random corp assignments

send "clvq"
waitfor "--- ---------------------"
setVar $i 0

:loopTrader
  setTextLineTrigger getTrader :getTrader "   "
  setTextTrigger compDone :compDone "Computer command"
  pause

:getTrader
  killtrigger compDone
  add $i 1
  cuttext currentline $trader[$i] 30 30
  goto :loopTrader

:compDone
  killtrigger getTrader
  echo ANSI_11 "*How many players do you want on a corp?"
  getConsoleInput $numPlayers

  if ($numPlayers = 0) or ($numPlayers > $i)
      echo ANSI_12 "* Sorry the number of players entered for a corp is not allowed*"
      echo ANSI_12 "* Press ~ to continue*"
      setTextOutTrigger cont :compDone "~"
      pause
  end

setVar $corps $i
divide $corps $numPlayers

setVar $icnt 1
# ------------------- Remove comment # from next line to output to fed com
#   send "`*"
while ($icnt <= $i)
   getRnd $corpNumber 1 $corps
   :recheck
   if ($corpAssign[$corpNumber] = $numPlayers)
       add $corpNumber 1
       if ($corpNumber > $corps)
              if ($pass = 1)
                 goto oneAssignments
              end
              setvar $corpNumber 1
              setVar $pass 1
       end
       goto :recheck
   end
   setVar $pass 0
   add $corpAssign[$corpNumber] 1
   echo "*" $trader[$icnt] " Assigned to corp:  " $corpNumber
   # to output to fed remove the # from the next line
  # send  $trader[$icnt] " Assigned to corp:  " $corpNumber "*"

   add $icnt 1
end

oneAssignments
# remove comment from next line to close fed com if output to there
# send "*"