PlanetDisplay.ts

Promethius · Tue Dec 29, 2009 6:20 pm

The script below will do a TL command and then redisplay (echo to screen) all planets in sector order instead of creation order. This allows viewing a base by sector and the planets within the sector together. The echo output is displayed below. The code does show a bubble sort routine that some may find useful.

My thanks to those that gave up their planets for this display.

Attachment:

planetdisp.PNG [ 38.12 KiB | Viewed 9616 times ]

Code:

# planetDisplay.ts by Promethius
# planet displays sorted by sector order
# display lines used to seperate bases
# echos to screen display only


send "v"
setTextLineTrigger maxPlanets :maxPlanets "The Maximum number of Planets per sector:"
pause
:maxPlanets
getword currentLine $maxPlanets 8
stripText $maxPlanets ","
send "|tl"
waitfor "=============================================================================="
setVar $i 1
setVar $toggle 0
:trg
setTextLineTrigger getLine :lineOut ""
setTextTrigger done :sortSectors "Corporate command"
pause

:lineOut
 getword currentline $chkDone 1
 if ($chkDone = "======")
     goto :skip
 end
 getwordpos currentline $sectorLine "Class"
 if ($sectorLine > 0)
    setVar $sector[$i] $chkDone
 end

 add $toggle 1
 if ($toggle = 1)
      setVar $line[$i] currentANSILine
 elseif ($toggle = 2)
    setVar $line2[$i] currentANSILine
    setVar $toggle 0
    add $i 1
 end
 :skip
 setTextLineTrigger getLine :lineOut ""
 pause


:sortSectors
  setVar $ii ($i - 1)
  while ($ii >= 1)
    setVar $ij 1
    while ($ij <= ($ii - 1))
      setVar $ijDist1 $sector[$ij]
      stripText $ijDist1 ","
      setVar $ijNext ($ij + 1)
      setVar $ijDist2 $sector[$ijNext]
      stripText $ijDist2 ","
      if ($ijDist1 < $ijdist2)
        setVar $temp $sector[$ij]
        setVar $tempLine $line[$ij]
        setVar $tempLine2 $line2[$ij]
        setVar $Sector[$ij] $Sector[$ijNext]
        setVar $line[$ij] $line[$ijNext]
        setVar $line2[$ij] $line2[$ijNext]
        setVar $Sector[$ijNext] $temp
        setVar $line[$ijNext] $tempLine
        setVar $line2[$ijNext] $tempLine2
       end
      add $ij 1
    end
    subtract $ii 1
  end

:display
killtrigger getline
send "q"
echo ansi_15 "**                           Corporate Planet Scan"
echo "*"
echo ansi_11 "* Sector  Planet Name    Ore  Org  Equ   Ore   Org   Equ   Fighters    Citadel"
echo ansi_11 "* Shields Population    -=Productions=-  -=-=-=-=-On Hands-=-=-=-=-    Credits"
echo ansi_13 "*==============================================================================*"
setVar $dispCnt 1
setVar $sectorChng $sector[1]
setVar $overLoadCnt 0
while ($dispCnt < $i)
   if ($sectorChng <> $sector[$dispCnt])
         echo ansi_9 "------------------------------------------------------------------------------*"
      getword SECTOR.UPDATED[$sectorChng] $moDay 1
      getLength $moDay $len
      cutText $moDay $moDay 1  ($len - 5)
      getword SECTOR.UPDATED[$sectorChng] $hhmm 2
      getword SECTOR.UPDATED[$sectorChng] $amPM 3
      getDistance $dist currentSector $sectorChng
      if ($dist < 1) and (currentSector <> $sectorChng)
         setVar $dist "Unknown"
      elseif (currentSector = $sectorChng)
         setVar $dist "0"
      end
      echo ANSI_6 "  Dist: " $dist
      echo ansi_6 "  Figs: " SECTOR.FIGS.QUANTITY[$sectorChng]
      echo "  Armd: " SECTOR.MINES.QUANTITY[$sectorChng]
      echo "  Lmpt: " SECTOR.LIMPETS.QUANTITY[$sectorChng]
      echo "  Last: " $moDay " " $hhmm " " $amPM "*"
      if ($overLoadCnt > $maxPlanets)
         echo #27 "[1;5;31m           !!!! Overloaded Sector !!!!*" #27 "[0;1;34;40m"
      end
      echo ansi_9 "------------------------------------------------------------------------------*"
      setVar $sectorChng $sector[$dispCnt]
      setVar $overLoadCnt 1
   else
      add $overLoadCnt 1
   end
   if (($dispCnt + 1) = $i)
       echo ansi_13 "======   ============  ==== ==== ==== ===== ===== ===== ========== ==========*"
   end
   echo $line[$dispCnt]
   echo $line2[$dispCnt]
   add $dispCnt 1
end
send "|"
halt

PlanetDisplay.ts

Who is online