-
Notifications
You must be signed in to change notification settings - Fork 0
/
viewed_sector_list.ts
80 lines (70 loc) · 2.59 KB
/
viewed_sector_list.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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#generate viewed sector list
:vars
setVar $count 1
setVar $script "(viewed_sectors)"
setVar $version "v. 0.1"
setVar $total_track 0
setVar $not_track 0
setVar $new_track 0
setVar $old_track 0
setArray $sectors SECTORS
setArray $prev_seen SECTORS
setArray $new_seen SECTORS
:main
setVar $seen_file GAMENAME & "-viewed_sectors" & ".txt"
setVar $unseen_file GAMENAME & "-not_viewed_sectors" & ".txt"
:chk_exists
fileExists $exists $seen_file
if ($exists)
setVar $seen_exists "Yes"
else
setVar $seen_exists "No"
end
if ($seen_exists = "Yes")
goto :read_list
end
:create_list
setVar $count 1
while ($count <= SECTORS)
getSector $count $sector_var
if ($sector_var.explored = "YES") OR ($sector_var.explored = "DENSITY")
setVar $total_track ($total_track + 1)
setVar $new_seen[$count] 1
write $seen_file $count
end
add $count 1
end
echo ansi_14 "*LIST CREATED*"
send "'" $script " : total [" $total_track "]*"
halt
:read_list
setVar $count 1
while ($sector <> "EOF")
read $seen_file $sector $count
setVar $prev_seen[$count] 1
setVar $old_track ($old_track + 1)
add $count 1
end
setVar $count 1
delete $seen_file
delete $unseen_file
while ($count <= SECTORS)
getSector $count $sector_var
if ($sector_var.explored = "YES") OR ($sector_var.explored = "DENSITY")
setVar $total_track ($total_track + 1)
setVar $new_seen[$count] 1
# if ($new_seen[$count] > $prev_seen[$count])
setVar $new_track ($new_track + 1)
# end
write $seen_file $count
else
setVar $not_track ($not_track + 1)
write $unseen_file $count
end
add $count 1
end
setVar $count 1
:done
setVar $newly_explored ($new_track - $old_track)
send "'" $script " total [" $total_track "] newly_explored [" $newly_explored "] un_seen [" $not_track "]*"
halt