{$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 
        007F: is_button_pressed 0 button 6     
     then    
        gosub @set_aim
        end
     end   

:set_aim
03E9: unknown_pad_command_7421 1.4 0.0     
return


