Вопросы по CLEO-скриптингу

[LaRossa]

Какой код у клавиши ALT?

18

 

[Skelerll]

Как можно сделать активацию и деактивацию на один и тот же чит-код, чтобы это все работало во всех потоках(я создал 2)?
Вот примерно что хочу(мой вариант не работает):

{$CLEO}

0000:
0C6A: 31@ = create_custom_thread_at_label @LABEL

REPEAT
wait 0
UNTIL 0AFA:  is_samp_available


WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

:LABEL
WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code2>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

 

[Skelerll]

Какой код у клавиши ALT?

Малюсенькая прога, чтобы определять ID виртуальных(клавиатурных) клавиш: Информация - Номера клавиш^{(https://blast.hk/threads/8760/)}

 

[Skelerll]

Ты смотрел видео, которое я кинул? Оно снято на этом же сервере дня 4 назад

Эммм...

Это не он сделал...

 

[Lord]

Как можно сделать активацию и деактивацию на один и тот же чит-код, чтобы это все работало во всех потоках(я создал 2)?
Вот примерно что хочу(мой вариант не работает):

{$CLEO}

0000:
0C6A: 31@ = create_custom_thread_at_label @LABEL

REPEAT
wait 0
UNTIL 0AFA:  is_samp_available


WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

:LABEL
WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code2>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

Чё так мало беск циклов?
Я хочу больше

Юзай until

 

[GooDL]

Эммм...

Это не он сделал...

Эммм... Я разве писал, что это он сделал? Кто-то взорвал там всё, на каждом слёте дома/бизнеса такое происходит.

 

[Skelerll]

Чё так мало беск циклов?
Я хочу больше

Юзай until

Так, не придерайся. Все к месту тут у меня. В моём случае без циклов не обойтись(вырезал код). Так что.. Не надо тут из себя умного строить, мол "много циклов не надо, я же знаю, что тебе надо(нет)"

Так вот. Ответьте мне на вопрос: Как можно отключать весь скрипт чит-кодом, и все потоки в нем. А потом обратно его включить.

 

[Skelerll]

Эммм... Я разве писал, что это он сделал? Кто-то взорвал там всё, на каждом слёте дома/бизнеса такое происходит.

Там явно не просто взрыв создается. Там что-то взрывают, но что - не видно.

 

[LaRossa]

Как можно сделать активацию и деактивацию на один и тот же чит-код, чтобы это все работало во всех потоках(я создал 2)?
Вот примерно что хочу(мой вариант не работает):

{$CLEO}

0000:
0C6A: 31@ = create_custom_thread_at_label @LABEL

REPEAT
wait 0
UNTIL 0AFA:  is_samp_available


WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

:LABEL
WHILE TRUE
wait 0
IF 8ADC:   test_cheat "AL"
    THEN
<code2>
    ELSE
    print "OFF" 1000
        WHILE TRUE
        wait 0
            IF 0ADC:   test_cheat "AL"
                THEN
                print "ON" 1000
                BREAK
            END
        END
    END
END

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end

while true
    wait 0
    if 8ADC: test_cheat "AL"
        then
        0B12: 0@ = 0@ XOR 1
       
        if 0@ == 1
            then
            print "ON" 1000
        else
            print "OFF" 1000   
        end  
           
    end       
end

 

[Skelerll]

Как

{$CLEO}
0000:
while not Samp.Available()
    wait 0
end

while true
    wait 0
    if 8ADC: test_cheat "AL"
        then
        0B12: 0@ = 0@ XOR 1
      
        if 0@ == 1
            then
            print "ON" 1000
        else
            print "OFF" 1000  
        end 
          
    end      
end

Так погоди, у меня же два потока. На одном-то я и сам знаю, а на двух нет. Там надо разные чит-коды, а мне нужно, чтобы все отключалось одним

 

[Skelerll]

Ладно, как можно считать текст с сообщения на экране?

С этого

 

[grandpafromghetto]

Ладно, как можно считать текст с сообщения на экране?

С этого

хуками. gametext

 

[LaRossa]

хуками. gametext

Пиздец ты ему помог

 

[Skelerll]

Как проверить, бежит ли актер?

 

[DarkL1ght]

Пацаны помогите нужно что бы он обратно на место не тп а оставался там где координаты тпшут что бы там и остался!

{$CLEO}
0000:NOP

0B34: samp register_client_command "tmats" to_label @command
0B2E: 1@ = read_samp_memory offset 0xD150 size 2
while true
wait 0
    if 0@ == 1
    then
        Actor.LockInCurrentPosition($PLAYER_ACTOR,1)
        018C: play_sound 1052 at 0.0 0.0 0.0
        0B2D: write_samp_memory offset 0xD150 value 0xC390 size 2
        wait 1000
        0AFB: samp request_class 1
        Actor.StorePos($PLAYER_ACTOR,4@,5@,6@)
        Actor.Angle($PLAYER_ACTOR) = 180.1614
        Camera.Restore_WithJumpCut()
        04E4: refresh_game_renderer_at 375.928 1976.13 24.0366
        03CB: set_rendering_origin_at 375.928 1976.13 24.0366
        wait 150
        Actor.PutAt($PLAYER_ACTOR,375.928 1976.13 24.0366)
        wait 350
        Actor.PutAt($PLAYER_ACTOR,4@,5@,6@)
        wait 1000
        0B2D: write_samp_memory offset 0xD150 value 1@ size 2
        Actor.LockInCurrentPosition($PLAYER_ACTOR,0)
        0@ = 0
    end
end

:command
0@ = 1
chatmsg "* [Loading]..." -1
SAMP.CmdRet()

Убери это:

wait 350
Actor.PutAt($PLAYER_ACTOR,4@,5@,6@)