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

Caxei

Известный
87
3
Что не так? не хочет работать? помогите пожалуйста
CLEO:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "VSE RADI ZABAVY / Majorov inc"

:NONAME_15
wait 400
   SAMP.Available
else_jump @NONAME_15

:NONAME_29
wait 0
1@ = SAMP.GetSAMPPlayerIDByActorHandle(0@)
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 61
else_jump @NONAME_96
wait 100
say "/knockout %d" 1@
jump @NONAME_310

:NONAME_96
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 81
else_jump @NONAME_147
wait 100
say "/take weapons %d" 1@
jump @NONAME_310

:NONAME_147
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 82
else_jump @NONAME_200
wait 100
say "/take drugs %d 1" 1@
jump @NONAME_310

:NONAME_200
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 69
else_jump @NONAME_260
wait 100
say "/cuff %d" 1@
jump @NONAME_310

:NONAME_260
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 67
else_jump @NONAME_310
wait 100
say "/uncuff %d" 1@

:NONAME_310
jump @NONAME_29
 
Последнее редактирование модератором:

ollydbg

Известный
163
113
Что не так? не хочет работать? помогите пожалуйста
Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0662: printstring "VSE RADI ZABAVY / Majorov inc"

:NONAME_15
wait 400
   SAMP.Available
else_jump @NONAME_15

:NONAME_29
wait 0
1@ = SAMP.GetSAMPPlayerIDByActorHandle(0@)
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 61
else_jump @NONAME_96
wait 100
say "/knockout %d" 1@
jump @NONAME_310

:NONAME_96
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 81
else_jump @NONAME_147
wait 100
say "/take weapons %d" 1@
jump @NONAME_310

:NONAME_147
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 82
else_jump @NONAME_200
wait 100
say "/take drugs %d 1" 1@
jump @NONAME_310

:NONAME_200
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 69
else_jump @NONAME_260
wait 100
say "/cuff %d" 1@
jump @NONAME_310

:NONAME_260
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 67
else_jump @NONAME_310
wait 100
say "/uncuff %d" 1@

:NONAME_310
jump @NONAME_29
CLEO:
{$CLEO .cs}

0000: NOP
0662: printstring "VSE RADI ZABAVY / Majorov inc"

REPEAT
WAIT 0
UNTIL 0AFA: SAMP_IS_READY

        WHILE TRUE
            WAIT 0
            IF
            0AD2: 0@ = player $PLAYER_CHAR targeted_actor
            THEN
            0B2B: samp 1@ = get_player_id_by_actor_handle 0@
            IF
            KEY_DOWN 61
            THEN
                wait 100
                say "/knockout %d" 1@
                END
                
                IF
                KEY_DOWN 81
                THEN
                    wait 100
                    say "/take weapons %d" 1@
                    END
                    
                    IF
                    KEY_DOWN 82
                    THEN
                        wait 100
                        say "/take drugs %d 1" 1@
                        END
                        
                        IF
                        KEY_DOWN 69
                        THEN
                            wait 100
                            say "/cuff %d" 1@
                            END
                            
                           IF
                           KEY_DOWN 67
                           THEN
                                wait 100
                                say "/uncuff %d" 1@
                            END
                        END
                    END
 

Caxei

Известный
87
3
CLEO:
{$CLEO .cs}

0000: NOP
0662: printstring "VSE RADI ZABAVY / Majorov inc"

REPEAT
WAIT 0
UNTIL 0AFA: SAMP_IS_READY

        WHILE TRUE
            WAIT 0
            IF
            0AD2: 0@ = player $PLAYER_CHAR targeted_actor
            THEN
            0B2B: samp 1@ = get_player_id_by_actor_handle 0@
            IF
            KEY_DOWN 61
            THEN
                wait 100
                say "/knockout %d" 1@
                END
               
                IF
                KEY_DOWN 81
                THEN
                    wait 100
                    say "/take weapons %d" 1@
                    END
                   
                    IF
                    KEY_DOWN 82
                    THEN
                        wait 100
                        say "/take drugs %d 1" 1@
                        END
                       
                        IF
                        KEY_DOWN 69
                        THEN
                            wait 100
                            say "/cuff %d" 1@
                            END
                           
                           IF
                           KEY_DOWN 67
                           THEN
                                wait 100
                                say "/uncuff %d" 1@
                            END
                        END
                    END
Первая команда не работает( пустота в чате
 

Kaktyc007

Известный
166
11
Можно ли изменить размер серверного диалога типа DIALOG_STYLE_INPUT? Если да, то как?
 

clownfiesta

Новичок
1
0
Как сделать что-бы после появление в чате строки "321" нажимался enter 2 раза с задержкой 1 секунду. Пробую через wait 1000, но ничего не работает.
CLEO:
[/B]
{$CLEO}
{$INCLUDE SF}
0000:

0BE3: raknet setup_incoming_rpc_hook @rpchook
0BDE: pause_thread 0


:rpchook
wait 0
0BE5: raknet 31@ = get_hook_param PARAM_PACKETID
alloc 28@ 129
0C11: memset destination 28@ value 0 size 129
if
31@ == RPC_ScrClientMessage
jf @1  
0BE5: raknet 30@ = get_hook_param PARAM_BITSTREAM
0BE7: raknet 27@ = bit_stream_read 30@ type BS_TYPE_INT 
0BE7: raknet 29@ = bit_stream_read 30@ type BS_TYPE_INT 
0BE8: raknet bit_stream 30@ read_array 28@ size 29@ 
0C0D: struct 28@ offset 29@ size 1 = 0
:2
wait 0    
if 
0C18: $n = strstr string1 28@ string2 "321" 
jf @1
0C72: set_virtual_key 13 down true
0C72: set_virtual_key 13 down false
wait 1000
0C72: set_virtual_key 13 down true
0C72: set_virtual_key 13 down false
:1
free 28@
0BE0: raknet hook_ret true
[B]
 

MAHEKEH

Известный
1,990
494
как ставить на хуки задержку и возможно ли это в принципе?
Например когда перехватываешь строчку и ставишь задержку на реакцию, по типу:
( поймал ) Привет! ( подождал 1с и Ответил ) Привет.
 

123321123123321

Новичок
13
0
{$CLEO .cs}
//-------------MAIN---------------
thread "COORDFLY"
wait 0

:COORDFLY_16
wait 0
if and
0AB0: key_pressed 17
0AB0: key_pressed 40
else_jump @COORDFLY_381
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, -40.0)
gosub @COORDFLY_388
Camera.Restore_WithJumpCut
0ACD: show_text_highpriority "COORD FLY ACTIVATED" time 2000


Есть такой отрывок кода, (coordfly), я хочу его поднять на ноги, он крашит игру при запуске, т.к. кто то его криво декомпилировал и выдаёт за рабочее клео, вообщем, я убрал лишнее (повторюсь это только отрывок кода, если нужен полный пишите), и при компиляции мне выдает вот это
1610637755737.png

В написании клео полный ноль, есть подозрения что я не установил какую то библиотеку, но вряд ли, клео и сампфункс ставил, незнаю куда думать, хелп!