-
Notifications
You must be signed in to change notification settings - Fork 0
/
port_report.ts
55 lines (48 loc) · 1.47 KB
/
port_report.ts
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#xxb finder
#records unfigged XXB's for hunt list
:vars
setVar $count 0
setVar $script "(port_report)"
setVar $version "v. 1.0"
setArray $fig_grid SECTORS
:set_txt
setVar $fig_file GAMENAME & "-fig_grid" & ".txt"
setVar $buyers GAMENAME & "-unfigd_quip_buyers" & ".txt"
setVar $target_buyers GAMENAME & "-other_corp_buyers" & ".txt"
setVar $sellers GAMENAME & "-unfigd_quip_sellers" & ".txt"
delete $buyers
delete $sellers
:read_fig
echo ansi_15 "*Reading Fig list..."
setVar $count 1
while ($sector <> "EOF")
read $fig_file $sector $count
if ($sector = "EOF")
setVar $sector ""
goto :done_read_fig
end
setVar $fig_grid[$sector] 1
add $count 1
end
:done_read_fig
goto :get_port_info
:get_port_info
echo ansi_15 "*Grabbing port info..."
setVar $count 1
while ($count <= SECTORS)
getSector $count $sect
if ($sect.port.exists = 1)
if ($sect.port.buy_equip = "YES")
if ($fig_grid[$count] = 0)
write $buyers $count
if ($sect.figs.owner = "belong to Corp#1, Phoenix Rising")
write $target_buyers $count
end
end
end
end
add $count 1
end
:done
echo ansi_15 "*Done! Results saved in " $buyers "*"
halt