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

[DarkL1ght]

Кто сможет объединить в одно цлео?

Можно использовать самый первый CLEO Cryptor by Slono Boyko , там есть функция склеить

 

[Qsany]

Можно использовать самый первый CLEO Cryptor by Slono Boyko , там есть функция склеить

не поделишься ссылочкой? А то на LH скачать нельзя

 

[DarkL1ght]

не поделишься ссылочкой? А то на LH скачать нельзя

Да даже на BlastHack есть крякнутый этот Cryptor by NarutoUA
Slonoboyko Cleo Cryptor cracked by NarutoUA^{(https://blast.hk/threads/10699/)}

 

[sin Maminoy Podrugi]

Как выключить чат клео когда наживмаешь на букву ё ?

 

[Qsany]

Как выключить чат клео когда наживмаешь на букву ё ?

мб чат самфункса? Так там крестик есть

 

[Kristyan]

Не робит брать номер из чата... Прост в 7@ нету номера

Спойлер: LOG

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()


while true
wait 0
 if
  056D:   actor $PLAYER_ACTOR defined
  then
   alloc 2@ 260
    alloc 4@ 50
   0B75: samp get_chat_string 99 text_to 2@ prefix_to 0 color_to 0 prefix_color_to 0
    if
        0C18: 17@ = strstr string1 2@ string2 "Name:"
    then
     log "%s" 17@
     0AA5: call 0x8220AD num_params 4 pop 4 7@v 4@ "Name: %s | Number: %d" 2@
     chatmsg "%d" -1 7@
end
     free 4@
    free 2@
end
end

 

[NookieONE]

{$CLEO .cs}
0000:
thread "QWE"

if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end
0B34: samp register_client_command "tp" to_label @tp

while true
    wait 0
end

:tp
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN   
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
SAMP.CmdRet

:tpp
if and
    0AB0:   key_pressed 05
    8B21:   not samp is_chat_opened
    8B4C:   not samp is_dialog_active -1
    then
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN   
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
        wait 1000
    end
Не работает тп на кнопку

 

[grandpafromghetto]

{$CLEO .cs}
0000:
thread "QWE"

if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end
0B34: samp register_client_command "tp" to_label @tp

while true
    wait 0
end

:tp
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN  
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
SAMP.CmdRet

:tpp
if and
    0AB0:   key_pressed 05
    8B21:   not samp is_chat_opened
    8B4C:   not samp is_dialog_active -1
    then
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN  
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
        wait 1000
    end
Не работает тп на кнопку

естественно не работает, т.к. скрипт туда никогда не дойдет посмотри это видео

 

[NookieONE]

естественно не работает, т.к. скрипт туда никогда не дойдет посмотри это видео

Добавляю опкод и игра не идет.

 

[hnnssy]

0AD4: 30@ = 15@ format "How much a cat has a leg: %d!" 8@
0AF9: "/answer %d" 8@

and don't use global vars

 

[jasd241]

как называется эта хрень? и можно как-то проверить нажата ли кнопка на ней?

 

[hnnssy]

как называется эта хрень? и можно как-то проверить нажата ли кнопка на ней?

текстдравы это
можно отловить хуком на sendclicktextdraw

 

[crespo_nosoft]

Подскажите пожалуйста с клео. А как например зделать при входе в игру текст как например aim by slonoBoyko или там чит?

opcode 0AF8

 

[NookieONE]

Не работает. Помогите.

{$CLEO .cs}

0000:

0C6A: 25@ = create_custom_thread_at_label @tpp

while not SAMP.Available()
wait 100
end   
0B34: samp register_client_command "tp" to_label @tp

while true
    wait 0
end

:tp
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN   
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
SAMP.CmdRet


:tpp

if and
    0AB0:   key_pressed 109
    8B21:   not samp is_chat_opened
    8B4C:   not samp is_dialog_active -1
    then
        IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
        THEN   
        04E4: refresh_game_renderer_at 1@ 2@ 3@
        03CB: set_rendering_origin_at 1@ 2@ 3@
        Camera.SetAtPos(1@, 2@, 3@)
        02CE: 3@ = ground_z_at 1@ 2@ 999.0
        Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
        ELSE
        chatmsg "Íå ïîñòàâëåíà ìåòêà íà êàðòå" -1
        END
    end

 

[san0]

Не работает. Помогите.

{$CLEO .cs}

0000:

while not SAMP.Available()
    wait 100
end 
0B34: samp register_client_command "tp" to_label @tp

while true
    wait 0
    if and
    0C89:  key_just_pressed 109
    8B21:   not samp is_chat_opened
    8B4C:   not samp is_dialog_active -1
    then
        gosub @PerformTeleport
    end
end

:tp
gosub @PerformTeleport
0B43: samp cmd_ret
  
:PerformTeleport
IF 0AB6: store_target_marker_coords_to 1@ 2@ 3@
THEN 
    04E4: refresh_game_renderer_at 1@ 2@ 3@
    03CB: set_rendering_origin_at 1@ 2@ 3@
    Camera.SetAtPos(1@, 2@, 3@)
    02CE: 3@ = ground_z_at 1@ 2@ 999.0
    Actor.PutAt($PLAYER_ACTOR,1@,2@,3@)
ELSE
    chatmsg "Не поставлена метка на карте" -1
END
return