// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP

1@ = 1352.21 
2@ = -652.817 
3@ = 108.765 
4@ = 1351.61 
5@ = -651.0 
6@ = 108.765 
7@ = 341.0

:BEGIN
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
jf @BEGIN

:NEAR
wait 0
00EC:   actor $PLAYER_ACTOR 0 near_point 1@ 2@ radius 100.0 100.0
else_jump @NEAR

07FB: set_interior 'SVSFBG' access 0  // Safe House
07FB: set_interior 'STAHL' access 0

:BOUGHT
wait 0 
if 
09D1:   pickup $BUY_ASSET_PICKUPS[12] created 
jf @ACCESS
jump @BOUGHT

:ACCESS
wait 0 
07FB: set_interior 'STAHL' access 1 
07FB: set_interior 'SVSFBG' access 0  // Safe House
 
:SAVING
wait 0 
if 
  $ONMISSION == 0 
jf @SAVING
0A95: enable_thread_saving 

0@ = Pickup.Create(1277, 3, 1@, 2@, 3@)

:PICKUP
wait 0 
if 
   Pickup.Picked_up(0@)
jf @PICKUP
 
Actor.PutAt($PLAYER_ACTOR, 4@, 5@, 6@)
Actor.Angle($PLAYER_ACTOR) = 7@
Player.CanMove($PLAYER_CHAR) = False
03D8: show_save_screen 
Player.CanMove($PLAYER_CHAR) = True
wait 5000 
jump @SAVING
