Creating ship reinforcements

[Drako Slyith]

I need some help making ships a distance away and then come in and patrol around a station. My code is

Code: Select all

			<OnCreate>
				(sysAddObjRecurringTimerEvent 5 gSoruce "OnReinforce")
			</OnCreate>
			<OnReinforce>
						(block nil
							(setq reinforce
								(sysCreateShip 
									&scHurinDestroyer;
									(sysVectorPolarOffset gSource (random 0 359) 35)
									&svHuariEmpire;
									)
							(shpOrder reinforce 'patrol gSource 15)
						
						)
						
			</OnReinforce>

I don't know why it working. Noting is happening at all. What's wrong with the code?

[Amilir]

(sysAddObjRecurringTimerEvent 5 gSoruce "OnReinforce")

First, I'd spell gSource correctly. Second, I'd move the first item in your block to OnCreate. No point redoing it every time you spawn another ship.

[Drako Slyith]

I'm not quite sure what you mean. I need a steady stream of ships coming in.

[Amilir]

If I understand Tscript:

Code: Select all

(setq reinforce
                        (sysCreateShip
                           &scHurinDestroyer;
                           (sysVectorPolarOffset gSource (random 0 359) 35)
                           &svHuariEmpire;
                           )

That sets reinforce to the value:

Code: Select all

(sysCreateShip
                           &scHurinDestroyer;
                           (sysVectorPolarOffset gSource (random 0 359) 35)
                           &svHuariEmpire;
                           )

It doesn't actually do anything until reinforce is used. As such, your code sets reinforce to the same thing over and over again. A waste of resources.