22 ноября 2014

Самодельная какофония

Введите 'MUSIC' и нажимайте клавиши управления (Вперёд-Назад, Влево-Вправо) для создания примитивной музыки. Для выхода жмите "Войти в машину".

{$CLEO} //gtamodding.ru - GTA SA - Загруженные звуки
0000:
while true
wait 0
    if
    player.Defined(0)
    then
        if and
        not actor.Driving($PLAYER_ACTOR)
        0ADC:   test_cheat "MUSIC"
        then
        player.CanMove(0,0)
        03BF: set_player 0 ignored_by_everyone 1
            while true
            wait 0
                if or
                not player.Defined(0)
                00E1:   player 0 pressed_key 15
                then
                player.CanMove(0,1)
                03BF: set_player 0 ignored_by_everyone 0
                break
                else
                    if
                    00E1:   player 0 pressed_key 1
                    then
                    00E2: get_player 0 key 1 state_to 0@
                        if
                        0@ == 128
                        then
                        018C: play_sound 1133 at 0.0 0.0 0.0 //DOWN
                        else
                        018C: play_sound 1057 at 0.0 0.0 0.0 //UP
                        end
                        repeat
                        wait 0
                        until 80E1:  not player 0 pressed_key 1
                    else
                        if
                        00E1:   player 0 pressed_key 0
                        then
                        00E2: get_player 0 key 0 state_to 0@
                            if
                            0@ == 128
                            then
                            018C: play_sound 1095 at 0.0 0.0 0.0 //RIGHT
                            else
                            018C: play_sound 1136 at 0.0 0.0 0.0 //LEFT
                            end
                            repeat
                            wait 0
                            until 80E1:  not player 0 pressed_key 0
                        end
                    end
                end
            end
        end
    end

end

Комментариев нет: