09 февраля 2015

Скорость и цвет

При изменении скорости транспортного средства изменяется и его цвет

{$CLEO}
0000:        
while true
wait 0
    if
    player.Defined(0)
    then
        if and
        actor.Driving($PLAYER_ACTOR)     
        89AE: not  actor $PLAYER_ACTOR driving_train
        then
        0@ = actor.CurrentCar($PLAYER_ACTOR)
        02E3: 1@ = car 0@ speed
            while true
            wait 0
                if or
                not player.Defined(0)
                not actor.Driving($PLAYER_ACTOR)
                09AE:   actor $PLAYER_ACTOR driving_train
                856E: not  car 0@ defined
                then
                break
                else
                    if
                    not actor.InCar($PLAYER_ACTOR,0@)
                    then
                    break
                    else
                    02E3: 2@ = car 0@ speed
                    0063: 2@ -= 1@  // (float)
                    0097: make 2@ absolute_float
                        if
                        2@ > 7.0
                        then
                        0209: 1@ = random_int_in_ranges 0 127 //[0;126]
                        0209: 2@ = random_int_in_ranges 0 127
                        0229: set_car 0@ primary_color_to 1@ secondary_color_to 2@
                        break
                        end
                    end
                end
            end
        end
    end
end

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