{$CLEO}
04ED: load_animation  "GYMNASIUM"

// Wczytywanie klawiszy
if 8AF0: not 0@ = get_int_from_ini_file "motion.ini" section "Keys" key "BackFlip"
if 8AF0: not 1@ = get_int_from_ini_file "motion.ini" section "Keys" key "Superman"
then
    // Domyolny klawisz dla CoolTrick
    0@ = 49   //P
    1@ = 73   //P
end

while 84EE:   not animation "GYMNASIUM" loaded
    wait 250
end

while true
    wait 0

    if and
        044B:   actor $PLAYER_ACTOR on_foot
        03EE:   player $PLAYER_CHAR controllable
    then
        if 0AB0:   key_pressed 0@
        then
            0615: define_AS_pack_begin 33@
            if 02A0:   actor $PLAYER_ACTOR stopped
            then
                0812: AS_actor -1 perform_animation "GYMSHADOWBOX" IFP "GYMNASIUM" framedelta 3.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            else
                0812: AS_actor -1 perform_animation "BIEGBIEGBIEG" IFP "GYMNASIUM" framedelta 3.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            end
            0812: AS_actor -1 perform_animation "GYM_BIKE_CELEBRATE" IFP "GYMNASIUM" framedelta 4.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            0812: AS_actor -1 perform_animation "GYM_BIKE_FAST" IFP "GYMNASIUM" framedelta 4.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            0616: define_AS_pack_end 33@

            0618: assign_actor $PLAYER_ACTOR to_AS_pack 33@
            061B: remove_references_to_AS_pack 33@

            while 8611:   not actor $PLAYER_ACTOR performing_animation "GYM_BIKE_CELEBRATE"
                wait 0
            end

            0AB1: call_scm_func @WybicieBack 4 actor $PLAYER_ACTOR dir 0.0 -1.0 5.0

            31@ = 0
            while 0.9 > 31@
                wait 0
                0613: 31@ = actor $PLAYER_ACTOR animation "GYM_BIKE_CELEBRATE" time
            end
            0819: 31@ = actor $PLAYER_ACTOR distance_from_ground

            if and
                0AB0:   key_pressed 0@
                31@ > 5.0
            then

                // Double
                0812: AS_actor $PLAYER_ACTOR perform_animation "gym_bike_getoff" IFP "GYMNASIUM" framedelta 1.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB

                while 0AB0:   key_pressed 0@
                    wait 250
                end
            else
                // Ladowanie

                while 0611:   actor $PLAYER_ACTOR performing_animation "GYM_BIKE_CELEBRATE"
                    wait 0
                end

                0819: 33@ = actor $PLAYER_ACTOR distance_from_ground
                if 33@ > 1.5
                then
                    0614: set_actor $PLAYER_ACTOR animation "GYM_BIKE_FAST" progress_to 0.99
                end
            end
            if 0AB0:   key_pressed 1@        //superman
        then
            0615: define_AS_pack_begin 33@
            if 02A0:   actor $PLAYER_ACTOR stopped
            then
                0812: AS_actor -1 perform_animation "GYMSHADOWBOX" IFP "GYMNASIUM" framedelta 3.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            else
                0812: AS_actor -1 perform_animation "BIEGBIEGBIEG" IFP "GYMNASIUM" framedelta 3.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            end
            0812: AS_actor -1 perform_animation "GYM_BIKE_CELEBRATE" IFP "GYMNASIUM" framedelta 4.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            0812: AS_actor -1 perform_animation "GYM_BIKE_FAST" IFP "GYMNASIUM" framedelta 4.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB
            0616: define_AS_pack_end 33@

            0618: assign_actor $PLAYER_ACTOR to_AS_pack 33@
            061B: remove_references_to_AS_pack 33@

            while 8611:   not actor $PLAYER_ACTOR performing_animation "GYM_BIKE_CELEBRATE"
                wait 0
            end

            0AB1: call_scm_func @WybicieBack 4 actor $PLAYER_ACTOR dir 0.0 -5.0 4.0

            31@ = 0
            while 0.9 > 31@
                wait 0
                0613: 31@ = actor $PLAYER_ACTOR animation "GYM_BIKE_CELEBRATE" time
            end
            0819: 31@ = actor $PLAYER_ACTOR distance_from_ground

            if and
                0AB0:   key_pressed 1@
                31@ > 5.0
            then

                // Double
                0812: AS_actor $PLAYER_ACTOR perform_animation "gym_bike_getoff" IFP "GYMNASIUM" framedelta 1.0 loopA 0 lockX 1 lockY 1 lockF 0 time -1  // versionB

                while 0AB0:   key_pressed 1@
                    wait 250
                end
            else
                // Ladowanie

                while 0611:   actor $PLAYER_ACTOR performing_animation "GYM_BIKE_CELEBRATE"
                    wait 0
                end

                0819: 33@ = actor $PLAYER_ACTOR distance_from_ground
                if 33@ > 1.5
                then
                    0614: set_actor $PLAYER_ACTOR animation "GYM_BIKE_FAST" progress_to 0.99
                end
            end
        end

    end
end

:WybicieBack
0172: 4@ = actor 0@ Z_angle
02F6: 5@ = sine 4@
02F7: 6@ = cosine 4@

0087: 7@ = 1@
006B: 7@ *= 6@
0087: 9@ = 2@
006B: 9@ *= 5@
0063: 7@ -= 9@

0087: 8@ = 1@
006B: 8@ *= 5@
0087: 9@ = 2@
006B: 9@ *= 6@
005B: 8@ += 9@

if 8818:  not actor $PLAYER_ACTOR in_air
then
    083C: set_actor $PLAYER_ACTOR velocity_in_direction_XYZ 0 0 10.0
    wait 0
end
083C: set_actor $PLAYER_ACTOR velocity_in_direction_XYZ 7@ 8@ 3@
0AB2: ret 0