{$CLEO .csa}

thread 'mouse'

var 
    0@ : Integer  // general purporse
    1@ : Integer  // player actor/char
end
 
wait 1000

0DD5: 0@ = get_platform
if 
    0@ <> 2 // PSP
then
    end_thread
end                                            

3@ = 0

while true
    wait 0
    
    0DDD: 0@ = get_mutex_var 0
    if
        0@ <> 0
    then
        wait 150
        3@ = 0
        continue
    end
    
    0004: 1@ = $PLAYER_CHAR
    
    if  
        007D:   is_char_in_model $PLAYER_CHAR model 171
     then    
        gosub @set_aim
        end
     end   

:set_aim
00B4: point_camera_at_car $99 mode 15 switchstyle 2
$99 = 171
return


