getWordPos CURRENTLINE $pos "Command [TL="
     if ($pos <> 1)
          echo "**" &ANSI_14& " Must Start at Command Prompt. Exiting..."
          halt
         
         
     end


:HowMany
getInput $howmany "***" &ANSI_11& "How many planets would you like to Neg?"
isNumber $isNumber1 $howmany
if ($isNumber1 = FALSE)
   echo "**" &ANSI_14& "Please enter a number."
   goto :HowMany
   elseif ($howmany >= "8")
   echo "**" &ANSI_14& "This script only supports up to 7 planets"
   goto :HowMany
   elseif ($howmany > SECTOR.PLANETCOUNT[CURRENTSECTOR])
   echo "**" &ANSI_14& "There aren't that many planets in the sector."
   goto :HowMany
   else
   setvar $count $howmany
end



setArray $planets $count
setArray $used 0
setArray $eqInput 0
setArray $orgInput 0
setArray $gasInput 0
setVar $i 1
setVar $eq 1
setvar $org 1
setvar $gas 1
while ($i <= $count) and ($eq <= $count) and ($org <= $count) and ($gas <= $count)
   getInput $input "**" &ANSI_11& "What is the number for Planet " & $i & "?"
   isNumber $isNumber2 $input
   if ($isNumber2 = FALSE)
      echo "**" &ANSI_14& "Um, try putting in a number."
   elseif ($used[$input] = TRUE)
      echo "**" &ANSI_14& "That planet number isn't unique.  Try again."
   else
      setVar $planets[$i] $input
      setVar $used[$input] TRUE
     
   end
   
   getinput $eqSell "**" &ANSI_11& "How much EQU do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
   isNumber $isNumber3 $eqSell
   if ($isNumber3 = FALSE)
        echo "**" &ANSI_14& "That wasn't a number!"
   elseif ($isnumber3 > "65530")
        echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
    else
    setvar $planets[$i][$eq] $eqSell
    setvar $eqInput[$eqSell] true
    end
   
    getinput $orgSell "**" &ANSI_11& "How much ORG do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
   isNumber $isNumber4 $orgSell
   if ($isNumber4 = FALSE)
        echo "**" &ANSI_14& "That wasn't a number!"
   elseif ($isnumber4 > "65530")
        echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
    else
    setvar $planets[$i][$org] $orgSell
    setvar $orgInput[$orgSell] true
    end
   
    getinput $gasSell "**" &ANSI_11& "How much FUEL do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
   isNumber $isNumber5 $gasSell
   if ($isNumber5 = FALSE)
        echo "**" &ANSI_14& "That wasn't a number!"
   elseif ($isnumber5 > "65530")
        echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
    else
    setvar $planets[$i][$gas] $gasSell
    setvar $gasInput[$gasSell] true
    end
   
    add $i 1
   add $eq 1
   add $gas 1
   add $org 1
end

setVar $i 1
setVar $eq 1
setVar $org 1
setVar $eq 1
while ($i <= $count) and ($eq <= $count) and ($org <= $count) and ($gas <= $count)

if ($planets[$i][$eq] = 1)
SetVar $_CK_PNEGO_EQUIPTOSELL "max"
elseif ($planets[$i][$eq]  = 2)
setvar $_CK_PNEGO_EQUIPTOSELL "-1"
else
setvar $_CK_PNEGO_EQUIPTOSELL $planets[$i][$eq]
end
SaveVar $_CK_PNEGO_EQUIPTOSELL

if ($planets[$i][$org]  = 1)
SetVar $_CK_PNEGO_ORGTOSELL "max"
elseif ($planets[$i][$org]  = 2)
setvar $_CK_PNEGO_ORGTOSELL "-1"
else
setvar $_CK_PNEGO_ORGTOSELL $planets[$i][$org]
end
SaveVar $_CK_PNEGO_ORGTOSELL

if ($planets[$i][$gas]  = 1)
SetVar $_CK_PNEGO_FUELTOSELL "max"
elseif ($planets[$i][$gas]  = 2)
setvar $_CK_PNEGO_FUELTOSELL "-1"
else
setvar $_CK_PNEGO_FUELTOSELL $planets[$i][$gas]
end
SaveVar $_CK_PNEGO_FUELTOSELL

      send "l" $planets[$i] "*"
      waiton "Fuel Ore"
      waiton "elp) [D]"
      load "scripts\_ck_planet_nego.cts"
      waiton " --- Done with port"
      send "q"
     
      add $i 1
      add $eq 1
      add $org 1
      add $gas 1
end

SetVar $_CK_PNEGO_FUELTOSELL "DELETED"
SetVar $_CK_PNEGO_ORGTOSELL "DELETED"
SetVar $_CK_PNEGO_EQUIPTOSELL "DELETED"
SaveVar $_CK_PNEGO_FUELTOSELL
SaveVar $_CK_PNEGO_ORGTOSELL
SaveVar $_CK_PNEGO_EQUIPTOSELL

halt

getWordPos CURRENTLINE $pos "Command [TL="
if ($pos <> 1)
  echo "**" &ANSI_14& " Must Start at Command Prompt. Exiting..."
  halt
end

:HowMany
  getInput $howmany "***" &ANSI_11& "How many planets would you like to Neg?"
  isNumber $isNumber1 $howmany
  if ($isNumber1 = FALSE)
     echo "**" &ANSI_14& "Please enter a number."
     goto :HowMany
  elseif ($howmany >= "8") # would recommend checking a range here (1 to 7) as they could put in a negative number
     echo "**" &ANSI_14& "This script only supports up to 7 planets"
     goto :HowMany
  elseif ($howmany > SECTOR.PLANETCOUNT[CURRENTSECTOR])
     echo "**" &ANSI_14& "There aren't that many planets in the sector."
     goto :HowMany
  else
     setvar $count $howmany
  end

setArray $planets $count
setArray $used 0
setArray $eqInput 0
setArray $orgInput 0
setArray $gasInput 0
setVar $i 1
setVar $eq 1  # seems like these are supposed to be the indexes of the different types, probably want 1, 2 and 3
setvar $org 1
setvar $gas 1
while ($i <= $count) and ($eq <= $count) and ($org <= $count) and ($gas <= $count) # I imagine you just want to test that $i is less than $count here.
  getInput $input "**" &ANSI_11& "What is the number for Planet " & $i & "?"
  isNumber $isNumber2 $input
  if ($isNumber2 = FALSE)
    echo "**" &ANSI_14& "Um, try putting in a number."
# missing a goto to get a new number
  elseif ($used[$input] = TRUE)
    echo "**" &ANSI_14& "That planet number isn't unique.  Try again."
# missing a goto to get a new number
  else
    setVar $planets[$i] $input
    setVar $used[$input] TRUE
  end
   
  getinput $eqSell "**" &ANSI_11& "How much EQU do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
  isNumber $isNumber3 $eqSell
  if ($isNumber3 = FALSE)
    echo "**" &ANSI_14& "That wasn't a number!"
# missing a goto to get a new number
  elseif ($isnumber3 > "65530") # should probably be a range check 1 to 65530
    echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
# missing a goto to get a new number
  else
    setvar $planets[$i][$eq] $eqSell
    setvar $eqInput[$eqSell] true
  end
 
  getinput $orgSell "**" &ANSI_11& "How much ORG do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
  isNumber $isNumber4 $orgSell
  if ($isNumber4 = FALSE)
    echo "**" &ANSI_14& "That wasn't a number!"
# missing a goto to get a new number
  elseif ($isnumber4 > "65530") # should probably be a range check 1 to 65530
    echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
# missing a goto to get a new number
  else
    setvar $planets[$i][$org] $orgSell
    setvar $orgInput[$orgSell] true
  end
   
  getinput $gasSell "**" &ANSI_11& "How much FUEL do you want to sell? ---  Enter number of holds, the number 1 for max holds, or the number 2 for none "
  isNumber $isNumber5 $gasSell
  if ($isNumber5 = FALSE)
    echo "**" &ANSI_14& "That wasn't a number!"
# missing a goto to get a new number
  elseif ($isnumber5 > "65530")
    echo "**"  &ANSI_14& "Ehhhh... No port can afford that much product. Try a smaller number."
# missing a goto to get a new number
  else
    setvar $planets[$i][$gas] $gasSell
    setvar $gasInput[$gasSell] true
  end

  add $i 1
  add $eq 1  # assuming these are the indexes for the types, they shouldn't be incremented
  add $gas 1
  add $org 1
end

setVar $i 1
setVar $eq 1 # again, assuming these were supposed to be specific indexes, they wouldn't need to be reset here.
setVar $org 1
setVar $eq 1
while ($i <= $count) and ($eq <= $count) and ($org <= $count) and ($gas <= $count) # again, these are always going to be the same as they are setup currently, so only one needs to be checked.
  if ($planets[$i][$eq] = 1)
    SetVar $_CK_PNEGO_EQUIPTOSELL "max"
  elseif ($planets[$i][$eq] = 2)
    setvar $_CK_PNEGO_EQUIPTOSELL "-1"
  else
    setvar $_CK_PNEGO_EQUIPTOSELL $planets[$i][$eq]
  end
  SaveVar $_CK_PNEGO_EQUIPTOSELL

  if ($planets[$i][$org]  = 1)
    SetVar $_CK_PNEGO_ORGTOSELL "max"
  elseif ($planets[$i][$org]  = 2)
    setvar $_CK_PNEGO_ORGTOSELL "-1"
  else
    setvar $_CK_PNEGO_ORGTOSELL $planets[$i][$org]
  end
  SaveVar $_CK_PNEGO_ORGTOSELL

  if ($planets[$i][$gas]  = 1)
    SetVar $_CK_PNEGO_FUELTOSELL "max"
  elseif ($planets[$i][$gas]  = 2)
    setvar $_CK_PNEGO_FUELTOSELL "-1"
  else
    setvar $_CK_PNEGO_FUELTOSELL $planets[$i][$gas]
  end
  SaveVar $_CK_PNEGO_FUELTOSELL

  send "l" $planets[$i] "*"
  waiton "Fuel Ore"
  waiton "elp) [D]"
  load "scripts\_ck_planet_nego.cts"
  waiton " --- Done with port"
  send "q"

  add $i 1
  add $eq 1 # assuming these are the indexes for the types, they shouldn't be incremented
  add $org 1
  add $gas 1
end

SetVar $_CK_PNEGO_FUELTOSELL "DELETED"
SetVar $_CK_PNEGO_ORGTOSELL "DELETED"
SetVar $_CK_PNEGO_EQUIPTOSELL "DELETED"
SaveVar $_CK_PNEGO_FUELTOSELL
SaveVar $_CK_PNEGO_ORGTOSELL
SaveVar $_CK_PNEGO_EQUIPTOSELL

halt # this should be unnecessary

Waiton #179 & "Turns"