Code: Select all
<ShipClass UNID="&vsQwertyTest;" virtual="true">
<Events>
<OnCreate>
(block Nil
(dbgOutput (cat "Creating vs " gSource))
(sysAddObjRecurringTimerEvent 30 gSource "SayHello")
)
</OnCreate>
<SayHello>
(plyMessage gplayer (cat "Hello from " (sysGetName)))
</SayHello>
<OnPlayerLeftSystem>
(block Nil
(dbgOutput (cat "Player leaving " (sysGetName)))
'followPlayer
)
</OnPlayerLeftSystem>
<OnPlayerEnteredSystem>
(dbgOutput (cat "Player entering " (sysGetName)))
</OnPlayerEnteredSystem>
<OnEnteredSystem>
(dbgOutput (cat "Ship entering " (sysGetName)))
</OnEnteredSystem>
<OnLeftSystem>
(dbgOutput (cat "Ship leaving " (sysGetName)))
</OnLeftSystem>
<OnDestroy>
(dbgOutput (cat gSource " destroyed by " aDestroyer))
</OnDestroy>
</Events>
</ShipClass>