hex
D9 E1 D8 1D 50 8B 85 00 DF E0 F6 C4 01 58 75 07
59 68 B9 0B 5A 00 C3 59 68 08 0C 5A 00 C3 90 90
90
end
0868: NOP  // <------------------------------------- Показывает на эту строку
hex
90 90 90 90 90 C6 0A 01 F3 EE FF FF
end
Camera.Shake()
0A8C: write_memory 0@ size 4 value 175.0 virtual_protect 0
0A8C: write_memory 5901297 size 4 value 0@ virtual_protect 1
0AC6: 0@ = label @NONAME_4307 offset
0@ -= 5901238
0A8C: write_memory 5901233 size 1 value 233 virtual_protect 1
0A8C: write_memory 5901234 size 4 value 0@ virtual_protect 1
0A8C: write_memory 5901238 size 1 value 144 virtual_protect 1
0AC6: 0@ = label @NONAME_4307 offset
0AC6: 1@ = label @NONAME_4369 offset
0A8C: write_memory 1@ size 4 value 0.04 virtual_protect 0
0@ += 32
0A8C: write_memory 0@ size 4 value 1@ virtual_protect 0
return
hex
4C 49 4E 4B 2F 32 30 31 32 50 00 01 30 EE FF FF
end

{$CLEO}
0000:
while true

:1
wait 0
Model.Load(1509) //объявляем модель бутылки по id 1509
Model.Load(#VWFYCRP) //объявляем модель бармена
038B: load_requested_models //загружаем объявленные модели
:2
wait 0
if and  //проверяем несколько условий
Model.Available(1509) //бутылка загружена?
Model.Available(#VWFYCRP) //бармен загружен?
jf @2 //если нет то возвращаемся к метке 2 и проверка будет происходить до тех пор пока объявленные модели не загрузятся
wait 10 //задержка в 10мс
Actor.Create(3@, 5, #VWFYCRP, 500.3259, -77.7879, 998.7578) //создаём актора в данных координатах (бар грув-стрит)
Object.Create(0@,1509,0.0,0.0,0.0) //создаём бутылку
Model.Destroy(1509)  //уничтожаем каждую модель
Model.Destroy(#VWFYCRP) //и
Actor.RemoveReferences(3@) //стираем сведения
Object.RemoveReferences(0@) //чтобы не  грузить память

wait 1000

:3
select_interior 11 //номер интерьера 11, это бар на Грув-стрит
0860: link_actor 3@ to_interior 11 // выбираем интерьер создаваемому актёру
if player.Defined(3@) //проверяем существует ли бармен в игре
then //если да, тогда помещаем его в бар.
actor.PutAt(3@, 501.980987, -69.1501, 998.7578) //координаты бара
jf @3

wait 0 //задержка в 0мс
    if and //проверяем несколько условий
    player.Defined(0) //игрок (cj) жив ?
    not actor.Driving($PLAYER_ACTOR) //игрок не в машине ?
    player.Money(0) > 14 //число игрока целое и больше 14 ?
    0102:   actor $PLAYER_ACTOR in_sphere 500.3043 -75.8083 998.7578 radius 1.0 1.0 1.0 sphere 1 stopped_on_foot //когда игрок встанет на маркер
    then //тогда
    player.Money(0) += -15  //с игрока снимут 15$
    
    00FE:   actor $PLAYER_ACTOR sphere 1 in_sphere 500.3043 -75.8083 998.7578 radius 1.0 1.0 1.0 //если игрок ещё стоит на маркере
Player.CanMove($PLAYER_CHAR) = False //бармен никуда не уйдёт
//и обслужит игрока
    0605: actor 3@ perform_animation "BARSERVE_LOOP" IFP "BAR" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time -1 //бармен смотрит по сторонам и ожидает клиентов
    0605: actor 3@ perform_animation "BARSERVE_ORDER" IFP "BAR" framedelta 4.0 loop 0 lockX 0 lockY 0 lockF 0 time 2000 //бармен на месте прислушался
        wait 2000
    0605: actor 3@ perform_animation "BARSERVE_BOTTLE" IFP "BAR" framedelta 4.0 loop 0 lockX 0 lockY 0 lockF 0 time 3000 //наклонился и достал бутылку
        wait 3000
    0605: actor 3@ perform_animation "BARSERVE_GIVE" IFP "BAR" framedelta 4.0 loop 0 lockX 0 lockY 0 lockF 0 time 3000 //бармен поставил перед игроком выпивку
    
    070A: AS_actor $PLAYER_ACTOR attach_to_object 0@ offset 0.05 0.06 0.05 on_bone 6 16 perform_animation "DRNKBR_PRTL" IFP "GANGS" time 15000
    
    wait 1500

    1@ = 0
    
        repeat
        wait 0
            if
            not player.Defined(0)
            then
            1@ = 1 //Dead/arrested/not found flag
            end
        until not actor.Animation($PLAYER_ACTOR) == "DRNKBR_PRTL"
    
    04EF: release_animation "GANGS"
    
        if
        1@ == 0
        then
        015D: set_gamespeed 0.5
        player.SetDrunkVisuals(0,50)
        object.Destroy(0@)
        actor.DestroyInstantly(3@) - уничтожаем бармена
        
            while player.Defined(0)
            wait 0
            32@ = 0
                
                repeat
                wait 0
                    if
                    not player.Defined(0)
                    then
                    break
                    end
                until 32@ > 999
                
            fade 0 1500
            
                repeat
                wait 0
                    if
                    not player.Defined(0)
                    then
                    break
                    end
                until not fading
                
            fade 1 1500
            
                repeat
                wait 0
                    if
                    not player.Defined(0)
                    then
                    break
                    end
                until not fading                        
            end //while
        
        015D: set_gamespeed 1.0
        player.SetDrunkVisuals(0,0)
        end
    end
end