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

[D3.Pheonix]

НЕ ТПШИТ, ПАМАГИТИ

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

if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 100
end

0B34: samp register_client_command "tpm" to_label @tp

while true
wait 0
end

:tp
if call @getmarkerpos 0 5@ 6@ 7@
then
    Actor.PutAt($PLAYER_ACTOR, 5@ 6@ 7@)
    0B78: log "{FFCC00}* [PT] {EAEAEA}телепортация на %.2f %.2f %.2f" 5@ 6@ 7@
else
    0B78: log "{FFCC00}* [PT] {EAEAEA}красный маркер не найден"
end
0B43: cmd_ret

:getmarkerpos
// if call @getmarkerpos 0 5@ 6@ 7@
0@ = SAMP.Base()
0@ += 0x21A10C
0A8D: 0@ = read_memory 0@ size 4 virtual_protect 1
0085: 1@ = 0@
1@ += 0x49
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 1
if 1@ == 0
then                 
    return_false
else
    0085: 2@ = 0@
    2@ += 0x2C           
    0a8e: 3@ = 2@ + 0x4
    0a8e: 4@ = 3@ + 0x4
    0A8D: 2@ = read_memory 2@ size 4 virtual_protect 1
    0A8D: 3@ = read_memory 3@ size 4 virtual_protect 1
    0A8D: 4@ = read_memory 4@ size 4 virtual_protect 1
    return_true
    ret 3 2@ 3@ 4@
end
ret 3 0 0 0

Какой нужен опкод для этой функции?:

if 0@ == 0
then
0@ = "Текст" // Этой
end

Можно так:

0AD3: 0@ = format "TEXT" // под 0@ выдели память

 

[grandpafromghetto]

Is it possible to connect DIALOG_STYLE_PASSWORD with database ?
Можно ли подключить DIALOG STYLE PASSWORD с базой данных?
Может быть MySQL ?
thanks a lot!
большое спасибо

in this thread nobody answer on your question. ask in this thread

 

[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