motrax wrote:
Is it possible to sort the data from "$db" and parse to a file?. I would like to end up with a single column file with the deepest sector of dends 2 or more deep. Or am I asking the mpossible. Btw thanks for the input
ElderProphet wrote:
getNearestWarps $warps STARDOCK
setVar $i $warps
while ($i > 1)
setVar $focus $warps[$i]
if (SECTOR.WARPINCOUNT[$focus] = 1)
write "DeadEnds.txt" $warps[$i]
end
subtract $i 1
end
Both EP's and Lonestars process to a file using the Write command. Looking specifically for 2deep deadends or larger would require somemore lines to Ep's code.
getNearestWarps $warps STARDOCK
setVar $i $warps
while ($i > 1)
setVar $focus $warps[$i]
if (SECTOR.WARPINCOUNT[$focus] = 2)
SetVar $Index 1
While ($Index < Sector.Warpcount[$focus])
Setvar $TestSector Sector.Warps[$focus][$Index]
If (Sector.Warpcount[$TestSector] = 1)
Echo ANSI_12 "*2 Deep Deadend at " & $TestSector
write "DeadEnds.txt" $TestSector
end
add $Index 1
end
end
subtract $i 1
end
One more which starts at 1 and goes to Sectors instead of farthest to closest as you requested. I'm posting it because awhile back I wrote this for a corpie and commented in my logic to help make it easier to read. May give you a better idea of what Lone and EP are doing in the above code. Figured since you asked for a 2 deep Deadend searcher it might be relevant. The script looks for unfigged deadends 2 deep.
#Setvar a variable named $file with the GAMENAME and "targettedde.txt"
setVar $file GAMENAME & "_TargettedDe.txt"
#delete any previous written .txt documents
delete $file
#----Main Code 2 Deep Searcher
#Set a index variable to 1
Setvar $idx 1
#While 1 is less than total sectors
While ($idx <= Sectors)
#if the warpcount, (number of warps is 2)
If (SECTOR.WARPCOUNT[$idx] = 2)
#set a new variable to 1
Setvar $idxc 1
#while the new variable is less than the total warps out which we set to 2 above
While ($idxc <= SECTOR.WARPCOUNT[$idx])
#set a variable named $test that holds the adjacent warp to the current sector
Setvar $test SECTOR.WARPS[$idx][$idxc]
#get the sectors FIGSEC parameter and assign it to $figged variable
GetSectorParameter $test "FIGSEC" $Figged
#If the warp adjacent to our $test variable only has 1 warp out and is not $figged
If ((SECTOR.WARPCOUNT[$test] = 1) AND ($Figged = FALSE))
#write to our $file variable which also writes it out as a .txt
Write $file $test
#end our if arguement
end
#add +1 to the $idxc variable we set to incriment the while loop and allow it to exit normally
add $idxc 1
#end our second while loop
end
#end out first if statement
end
#increment our first while loop that cycles through sectors
add $idx 1
#end our first while loop
end
And you go from there with other if statements to test how back you want to go in the Deadend. Of course I am prolly missing something in my logic above, so I'll defer any mistakes to my newness
