It use screen input text to search for matches in the item name.
But the code is a little too much for me.
The data is stored in list form.
objID, name, nodeID, 'visited status' and a list of uninstalled items in the station.
Code: Select all
matchingStations
((18565 "Pergium Fuel & Supplies" SE Visited ((16444 -16777078) (16458 -16777215) (16788 -16777185) (16422 -16777194))) (18609 "Sisters of Domina" SE Visited ((16523 -16777213) (16572 -16777215) (16560 -16777215) (16447 -16777213) (16431 -16777210))))
Code: Select all
sortedMatchingItemList
((16431 -16777210) (16444 -16777078) (16788 -16777185))
Code: Select all
(enum sortedMatchingItemList theItem
(enum matchingStations theStationEntry
(block Nil
(if (find (@ theStationEntry 4) theItem)
(lnkAppend entryToAdd
(cat
(itmGetName theItem) " "
(itmGetCount theItem) " - "
(@ theStationEntry 1)
)
)
)
)
)
)
Code: Select all
entryToAdd
("roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies" "roll of hyperfiber 6 - Sisters of Domina" "helium³ fuel rod 138 - Pergium Fuel & Supplies" "tank of hydrogen gas 31 - Pergium Fuel & Supplies")
I guess it may need 'for' or 'loop' instead of one of the 'enum's but I don't want to waste even more time on it.