Code: Select all
<Invoke>
(block (sysID sysName sysType sysStar)
(setq sysID "A6")
(setq sysName (sysGetName sysID))
(setq sysType (sysGetSystemType sysID))
(switch
(eq sysType &ssEarthSpaceStandard;)
(setq sysStar "Standard")
(eq sysType &ssEarthSpaceRedDwarf;)
(setq sysStar "Red Dwarf")
(eq sysType &ssEarthSpaceAsteroids;)
(setq sysStar "Asteroids")
(eq sysType &ssEarthSpaceDesert;)
(setq sysStar "Desert")
(eq sysType &ssEarthSpaceNebulae;)
(setq sysStar "Nebulae")
(eq sysType &ssEarthSpaceVolcanic;)
(setq sysStar "Volcanic")
(eq sysType &ssEarthSpaceIceRing;)
(setq sysStar "Ice Ring")
(eq sysType &ssEarthSpaceBinary;)
(setq sysStar "Binary")
)
(objSendMessage gPlayership nil (cat sysName " is a system type " sysStar ))
)
</Invoke>
This was impossible in 098d, in fact- to even get a mapping system to work I had to prepare a data table that could be used to look up the information that these simple functions make easy, fast and fun.