08 марта 2015

Ждущий режим для транспорта

Если постоять в транспорте 15 секунд, активируется кинематографический вид камеры, который автоматически отключится при начале движения, при этом камера плавно вернётся к транспорта

//$PLAYER_ACTOR $PLAYER_GROUP
/* Made by Vital */
{$CLEO}
0000:
while true
wait 0
    if
    player.Defined(0)
    then
        if and
        89AE: not  actor $PLAYER_ACTOR driving_train
        actor.Driving($PLAYER_ACTOR)
        then
        0@ = 0 //Exit Flag
        32@ = 0
            while true //Main
            wait 0
                if and
                0@ == 0
                32@ > 14999
                then //Wait Successful
                093D: lock_camera_on_cinematic_view 1
                    while true //Exit Conditions
                    wait 0
                        if
                        0@ == 0
                        then
                            for 1@ = 0 to 19
                                if and
                                1@ <> 8
                                1@ <> 9
                                then
                                    if or
                                    not player.Defined(0)
                                    09AE:   actor $PLAYER_ACTOR driving_train
                                    not actor.Driving($PLAYER_ACTOR)
                                    00E1:   player 0 pressed_key 1@
                                    then
                                    0@ = 1
                                    093D: lock_camera_on_cinematic_view 0                                                                            camera.Restore()                                                                   
                                    break
                                    end
                                end
                            end
                        else
                        break
                        end
                    end //Exit Conditions
                else //Wait Failed
                    if
                    0@ == 1
                    then
                    break
                    else
                        for 1@ = 0 to 19
                            if and
                            1@ <> 8
                            1@ <> 9
                            then
                                if or
                                not player.Defined(0)
                                09AE:   actor $PLAYER_ACTOR driving_train
                                not actor.Driving($PLAYER_ACTOR)
                                00E1:   player 0 pressed_key 1@
                                then
                                0@ = 1
                                break
                                end
                            end
                        end
                    end
                end
            end //Main
        end
    end
end

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