I added some debug code, but otherwise the code is unmodified:
Code: Select all
(block Nil
(switch
; OK if Kate leaves
(eq aDestroyReason 'enteredStargate)
Nil
; If player destroyed Kate's ship, then she remembers
(and gPlayerShip (eq aOrderGiver gPlayerShip))
(typSetGlobalData &svCorporate; "statusKateM" 'destroyedByPlayer)
; Otherwise, we remembed that she was destroyed
(typSetGlobalData &svCorporate; "statusKateM" 'destroyed)
)
(dbgLog "Kate morgental destroyed reason: "aDestroyReason)
(dbgLog "statusKateM data: "(typGetGlobalData &svCorporate; "statusKateM"))
)
Start logging session
Transcendence 1.01
Loading extension: Extensions\kateTest
Kate morgental destroyed reason:
statusKateM data: destroyed
End logging session