FLYER_MAIN.cs

{$CLEO}
0000: NOP


:_
wait 0
0AF1: write_int 0 to_ini_file "cleo\FLYER.ini" section "FLYER" key "isModActive"


:0
wait 0
if
    0AFA:  is_samp_available
then
    if and
        8B21: not	samp is_chat_opened
        key_down 71
        key_down 75
    then
        while gosub @KEY_PRESSED
            wait 0
        end
        0AF1: write_int 1 to_ini_file "cleo\FLYER.ini" section "FLYER" key "isModActive"
    end
else
    if and
        key_down 71
        key_down 75
    then
        while gosub @KEY_PRESSED
            wait 0
        end
        0AF1: write_int 1 to_ini_file "cleo\FLYER.ini" section "FLYER" key "isModActive"
    end
end
0AF0: 30@ = get_int_from_ini_file "cleo\FLYER.ini" section "FLYER" key "isModActive"
if
    30@ == 1
else_jump @0
0AD1: show_formatted_text_highpriority "Flyer Activated" time 2000
08C6: set_actor $PLAYER_ACTOR stay_on_bike 1
$10 = 0.02
$11 = 0.02
$12 = 0.04
$20 = -0.02
$21 = -0.02
$22 = -0.02
jump @1

:1
wait 0
if
    0AFA:  is_samp_available
then
    if and
        8B21: not	samp is_chat_opened
        key_down 71
        key_down 75
    then
        while gosub @KEY_PRESSED
            wait 0
        end
        30@ = 0
    end
else
    if and
        key_down 71
        key_down 75
    then
        while gosub @KEY_PRESSED
            wait 0
        end
        30@ = 0
    end
end
if
    30@ == 0
else_jump @2
0AD1: show_formatted_text_highpriority "Flyer Deactivated" time 2000
if
    056E:   car 15@ defined
then
    099A: set_car 15@ collision_detection 1
end
01C3: remove_references_to_car 15@
08C6: set_actor $PLAYER_ACTOR stay_on_bike 0
jump @_

//  W - 87  forwards
//  S - 83  backwards
//  D - 68  right
//  A - 65  left
//  SPACE - 32  up
//  SHIFT - 16  down

:KEY_PRESSED
wait 0
if or
    key_down 71
    key_down 75
then
    return_true
else
    return_false
end
return

:2
wait 0
if or
    key_down 87
    key_down 83
    key_down 68
    key_down 65
    key_down 32
    key_down 16
then
    if and
        0256:   player $PLAYER_CHAR defined
        044B:   actor $PLAYER_ACTOR on_foot
    then
        $10 = 0.02
        $11 = 0.02
        $12 = 0.04
        $20 = -0.02
        $21 = -0.02
        $22 = -0.02
        //// if only 3 keys are pressed //// ==============================================================
        if and
            key_down 87
            key_down 68
            key_down 32
            not key_down 16
            not key_down 83
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 65
            key_down 32
            not key_down 16
            not key_down 83
            not key_down 68
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 68
            key_down 32
            not key_down 87
            not key_down 16
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 -25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 65
            key_down 32
            not key_down 16
            not key_down 87
            not key_down 68
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 -25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 68
            key_down 16
            not key_down 83
            not key_down 65
            not key_down 32
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 65
            key_down 16
            not key_down 83
            not key_down 68
            not key_down 32
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 68
            key_down 16
            not key_down 87
            not key_down 65
            not key_down 32
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 -25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 65
            key_down 16
            not key_down 87
            not key_down 68
            not key_down 32
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 -25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        //// if only 2 keys are pressed //// ==============================================================
        if and
            key_down 87
            key_down 32
            not key_down 83
            not key_down 16
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 32
            not key_down 87
            not key_down 16
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 -25.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 68
            key_down 32
            not key_down 65
            not key_down 16
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 0.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 65
            key_down 32
            not key_down 68
            not key_down 16
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 0.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 16
            not key_down 83
            not key_down 32
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 16
            not key_down 87
            not key_down 32
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 -25.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 68
            key_down 16
            not key_down 65
            not key_down 32
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 0.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 65
            key_down 16
            not key_down 68
            not key_down 32
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 0.0 -25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 68
            not key_down 83
            not key_down 65
            not key_down 32
            not key_down 16
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 25.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 87
            key_down 65
            not key_down 83
            not key_down 68
            not key_down 32
            not key_down 16
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 25.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 68
            not key_down 87
            not key_down 65
            not key_down 32
            not key_down 16
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 -25.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            key_down 65
            not key_down 87
            not key_down 68
            not key_down 32
            not key_down 16
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 -25.0 0.0 STORE TO 4@ 5@ 6@
        end
        //// if only 1 key is pressed //// ================================================================
        if and
            key_down 87
            not key_down 83
            not key_down 32
            not key_down 16
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 25.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 83
            not key_down 87
            not key_down 32
            not key_down 16
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 -25.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 68
            not key_down 65
            not key_down 32
            not key_down 16
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 25.0 0.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 65
            not key_down 68
            not key_down 32
            not key_down 16
            not key_down 87
            not key_down 83
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET -25.0 0.0 0.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 32
            not key_down 16
            not key_down 87
            not key_down 83
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 0.0 25.0 STORE TO 4@ 5@ 6@
        end
        if and
            key_down 16
            not key_down 32
            not key_down 87
            not key_down 83
            not key_down 68
            not key_down 65
        then
            0AB1: @CREATE_VELOCITY_PUSH 4 FROM ACTOR $PLAYER_ACTOR _TO_OFFSET 0.0 0.0 -25.0 STORE TO 4@ 5@ 6@
        end
        083C: set_actor $PLAYER_ACTOR velocity_in_direction_XYZ 4@ 5@ 6@
    else        //=============================================================================================================================================================================
        if and  //_____________________________________________________________________________________________________________________________________________________________________________
            0256:   player $PLAYER_CHAR defined
            00DF:   actor $PLAYER_ACTOR driving  ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
        then
            03C0: 15@ = actor $PLAYER_ACTOR car
            if and
                key_down 87
                key_down 68
                key_down 32
                not key_down 16
                not key_down 83
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $11 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 65
                key_down 32
                not key_down 16
                not key_down 83
                not key_down 68
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $11 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 68
                key_down 32
                not key_down 87
                not key_down 16
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $21 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 65
                key_down 32
                not key_down 16
                not key_down 87
                not key_down 68
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $21 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 68
                key_down 16
                not key_down 83
                not key_down 65
                not key_down 32
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $11 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 65
                key_down 16
                not key_down 83
                not key_down 68
                not key_down 32
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $11 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 68
                key_down 16
                not key_down 87
                not key_down 65
                not key_down 32
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $21 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 65
                key_down 16
                not key_down 87
                not key_down 68
                not key_down 32
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $21 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            //// if only 2 keys are pressed //// ==============================================================
            if and
                key_down 87
                key_down 32
                not key_down 83
                not key_down 16
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $11 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 32
                not key_down 87
                not key_down 16
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $21 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 68
                key_down 32
                not key_down 65
                not key_down 16
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 0.0 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 65
                key_down 32
                not key_down 68
                not key_down 16
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 0.0 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 16
                not key_down 83
                not key_down 32
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $11 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 16
                not key_down 87
                not key_down 32
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $21 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 68
                key_down 16
                not key_down 65
                not key_down 32
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 0.0 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 65
                key_down 16
                not key_down 68
                not key_down 32
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 0.0 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 68
                not key_down 83
                not key_down 65
                not key_down 32
                not key_down 16
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $11 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 87
                key_down 65
                not key_down 83
                not key_down 68
                not key_down 32
                not key_down 16
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $11 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 68
                not key_down 87
                not key_down 65
                not key_down 32
                not key_down 16
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 $21 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                key_down 65
                not key_down 87
                not key_down 68
                not key_down 32
                not key_down 16
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 $21 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            //// if only 1 key is pressed //// ================================================================
            if and
                key_down 87
                not key_down 83
                not key_down 32
                not key_down 16
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $11 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 83
                not key_down 87
                not key_down 32
                not key_down 16
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 $21 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 68
                not key_down 65
                not key_down 32
                not key_down 16
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $10 0.0 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 65
                not key_down 68
                not key_down 32
                not key_down 16
                not key_down 87
                not key_down 83
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET $20 0.0 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 32
                not key_down 16
                not key_down 87
                not key_down 83
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 0.0 $12 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                key_down 16
                not key_down 32
                not key_down 87
                not key_down 83
                not key_down 68
                not key_down 65
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 0.0 $22 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
            if and
                not key_down 87
                not key_down 83
                not key_down 68
                not key_down 65
                not key_down 32
                not key_down 16
            then
                0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 0@ _TO_OFFSET 0.0 0.0 0.0 STORE TO $4 $5 $6
                07D5: set_car 15@ velocity_in_direction_XYZ $4 $5 $6 rotation_velocitiesXY 0.0 0.0 unk 0.0
            end
        end
    end
end
gosub @BREAK
jump @1

:BREAK
wait 0
if
    0AFA:  is_samp_available
then
    while 8B21: not samp is_chat_opened
        wait 0
        while key_down 67
            wait 0
            if
                not 25@ == 1
            then
                if and
                    0256:   player $PLAYER_CHAR defined
                    044B:   actor $PLAYER_ACTOR on_foot
                then
                    25@ = 1
                    26@ = 0
                    0575: set_actor $PLAYER_ACTOR pinned_position 1
                end
            end
            if
                not 26@ == 1
            then
                if and
                    0256:   player $PLAYER_CHAR defined
                    00DF:   actor $PLAYER_ACTOR driving
                then
                    26@ = 1
                    25@ = 0
                    03C0: 15@ = actor $PLAYER_ACTOR car
                    0574: set_car 15@ keep_position 1
                end
            end
            if
                80DF:  not actor $PLAYER_ACTOR driving
            then
                if
                    056E:   car 15@ defined
                then
                    0574: set_car 15@ keep_position 0
                end
                01C3: remove_references_to_car 15@
            end
        end
        if
            25@ == 1
        then
            25@ = 0
            if
                0256:   player $PLAYER_CHAR defined
            then
                0575: set_actor $PLAYER_ACTOR pinned_position 0
            end
            if
                056E:   car 15@ defined
            then
                0574: set_car 15@ keep_position 0
            end
            01C3: remove_references_to_car 15@
        else
            if
                26@ == 1
            then
                26@ = 0
                if
                    056E:   car 15@ defined
                then
                    0574: set_car 15@ keep_position 0
                end
                01C3: remove_references_to_car 15@
            end
        end
        break
    end
else
    while key_down 67
        wait 0
        if
            not 25@ == 1
        then
            if and
                0256:   player $PLAYER_CHAR defined
                044B:   actor $PLAYER_ACTOR on_foot
            then
                25@ = 1
                26@ = 0
                0575: set_actor $PLAYER_ACTOR pinned_position 1
            end
        end
        if
            not 26@ == 1
        then
            if and
                0256:   player $PLAYER_CHAR defined
                00DF:   actor $PLAYER_ACTOR driving
            then
                26@ = 1
                25@ = 0
                03C0: 15@ = actor $PLAYER_ACTOR car
                0574: set_car 15@ keep_position 1
            end
        end
        if
            80DF:  not actor $PLAYER_ACTOR driving
        then
            if
                056E:   car 15@ defined
            then
                0574: set_car 15@ keep_position 0
            end
            01C3: remove_references_to_car 15@
        end
    end
    if
        25@ == 1
    then
        25@ = 0
        if
            0256:   player $PLAYER_CHAR defined
        then
            0575: set_actor $PLAYER_ACTOR pinned_position 0
        end
        if
            056E:   car 15@ defined
        then
            0574: set_car 15@ keep_position 0
        end
        01C3: remove_references_to_car 15@
    else
        if
            26@ == 1
        then
            26@ = 0
            if
                056E:   car 15@ defined
            then
                0574: set_car 15@ keep_position 0
            end
            01C3: remove_references_to_car 15@
        end
    end
end
return

:CREATE_VELOCITY_PUSH
04C4: store_coords_to 4@ 5@ 6@ from_actor 0@ with_offset 1@ 2@ 3@
Actor.StorePos(0@, 7@, 8@, 9@)
0063: 4@ -= 7@  // (float)
0063: 5@ -= 8@  // (float)
0063: 6@ -= 9@  // (float)
0AB2: ret 3 4@ 5@ 6@

//0AB1: @CREATE_VELOCITY_PUSH_CAR 4 FROM CAR 15@ _TO_OFFSET 0.0 0.0 0.0 STORE TO 4@ 5@ 6@
:CREATE_VELOCITY_PUSH_CAR
0407: store_coords_to 4@ 5@ 6@ from_car 0@ with_offset 1@ 2@ 3@
Car.StorePos(0@, 7@, 8@, 9@)
0063: 4@ -= 7@  // (float)
0063: 5@ -= 8@  // (float)
0063: 6@ -= 9@  // (float)
0AB2: ret 3 4@ 5@ 6@