Code: Select all
; See if the freighter already has a destination
(setq dest (objGetObjRefData freighter "korolovDest"))
(if dest
(setq gateMission (objMatches dest Nil "G"))
(if (or (leq (random 1 100) 30) (not portsLeft))
(block Nil
(setq dest (random (sysFindObject gSource "G -uncharted;")))
(setq gateMission True)
)
(block Nil
(setq dest (random (sysFindObject gSource "T:populated; F")))
(setq gateMission Nil)
)
)
)
In the code I was instructed to use: and sometime versions rebel and i got to move it around : this is for Earth Industries, i have several companies : i do not send the ships to gate so I don't use the gate part of the code : but you can see that I use the "A" and the " - occupation; 'to keep them in line.
Code: Select all
; See if the freighter already has a destination
(setq dest (objGetObjRefData freighter "EIDest"))
(if dest
(setq gateMission (objMatches dest Nil "G"))
(if (or (leq (random 1 100) 10) (not portsLeft))
(block Nil
(setq dest (random (sysFindObject gSource "G -uncharted;")))
(setq gateMission True)
)
(block Nil
(setq dest (random (sysFindObject gSource "TA:populated;F -occupation; -uncharted;")))
(setq gateMission Nil)
)
)
)