Code: Select all
<MissionSuccess
desc="Error (MissionSuccess)...">
<Actions>
<Action name="Continue" default="1" cancel="1" key="C">
(block Nil
(objSetData gSource "MissionStatus" Nil)
(if (eq (objGetData gSource "TransportReachedDest") "true")
(block Nil
(setq gPirateStationXP (multiply (add gPirateStationXP 15) (add gPirateStationRank 1)))
(plyCredit gPlayer (multiply (add gPirateStationRank 1) 1200))
(scrSetDesc gScreen (cat "\"Well Done. " (multiply (add gPirateStationRank 1) 500) " credits have been transfered to your account.\""))
)
)
(if (eq (objGetData gSource "TransportReachedDest") "false")
(block Nil
(setq gPirateStationXP (add gPirateStationXP (multiply 6 (add gPirateStationRank 1))))
(plyCredit gPlayer (multiply (add gPirateStationRank 1) 500))
(scrSetDesc gScreen (cat "\"Get the freighter *before* it delievers its cargo next time. Since you didn't fully complete the job " (multiply (add gPirateStationRank 1) 500) "credits have been transfered to your account.\""))
)
)
(objSetData gSource "TransportReachedDest" "false")
(scrShowPane gScreen "Default")
)
</Action>
</Actions>
</MissionSuccess>