{$VERSION 3.1.0000}

thread 'MAIN'
var              
 $PLAYER_CHAR: Player 
end // var
01F0: set_max_wanted_level_to 6 
0111: toggle_wasted_busted_check 0 
00C0: set_current_time 15 0 
04E4: unknown_refresh_game_renderer_at 824.0641 -1794.8955 
Camera.SetAtPos(2488.562, -1666.865, 12.8757)
$PLAYER_CHAR = Player.Create(#NULL, 2488.562, -1666.865, 12.8757)
$PLAYER_ACTOR = Actor.EmulateFromPlayer($PLAYER_CHAR)
07AF: $PLAYER_GROUP = player $PLAYER_CHAR group
Camera.SetBehindPlayer
set_weather 0          
wait 0 ms                                
$PLAYER_CHAR.SetClothes("GARAGELEG", "GARAGETR", Special)                                      
$PLAYER_CHAR.Build
$PLAYER_CHAR.CanMove = True
fade 1 (out) 0 ms                     
select_interior 0
0629: change_stat 181 (islands unlocked) to 4
016C: restart_if_wasted_at 2027.77 -1420.52 15.99 angle 137.0 town_number 0 
016C: restart_if_wasted_at 1180.85 -1325.57 12.58 angle 271.4 town_number 0 
0180: set_on_mission_flag_to $ONMISSION // Note: your missions have to use the variable defined here ($ONMISSION)
03E6: remove_text_box
0330: toggle_player $PLAYER_CHAR infinite_run 1

#COPBIKE.Load
#NRG500.Load

while true
    if and
        #COPBIKE.Available
        #NRG500.Available
    then
        Break
    end
    wait 0    
end   

0@ = Car.Create(#COPBIKE, 2485.562, -1666.865, 12.8757)
Car.RemoveReferences(0@)
1@ = Car.Create(#NRG500, 2490.562, -1666.865, 12.8757)
Car.RemoveReferences(1@)

#NRG500.Destroy
#COPBIKE.Destroy

{
         **************************
           ENABLE RADIO MOD BEGIN
         **************************   
}
while true
    wait 250
    if
        $PLAYER_CHAR.Defined
    then
        if or
            00E1:   player 0 pressed_key 8
            00E1:   player 0 pressed_key 9       
        then
            gosub @EnableRadio
            wait 2000
        end
    end
end    
end_thread
    :EnableRadio
    alloc($_asmproc, 77)
    alloc($_temp, 78)
    0@ = -429863 
    &0(0@,1i) = 0xA49960
    &0(0@,1i) += @_GetActorStruct
    $_asmproc = 0x404910            
    0572: run_asm_inject true        // GetActorstruct
    $_temp -= 10785748
    $_temp /= 4
    0084: $_temp = &0($_temp,1i) // carstruct
    $_temp -= 10786701
    $_temp /= 4 
    &0($_temp,1i) = 0
    return
    :_GetActorStruct // $_temp = actor $PLAYER_ACTOR struct^
    hex 
        FF 35 6C99A400      // push $PLAYER_ACTOR
        8B 0D 9044B700      // mov ecx, @ActorsPool
        FF 15 949AA400      // call dword ptr [0xA49960+$_asmproc*4]
        A3    989AA400      // mov [$_temp], eax   
        C3                  // return  
    end
{
         **************************
           ENABLE RADIO MOD END
         **************************   
}