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

DarkP1xel · 14 Апр 2018

Pycckuu_Alkash написал(а):
Т.к. у тебя все это дело происходит в хуке, а циклов там быть не может

Может, но только не бесконечных.

Kotovasya · 14 Апр 2018

Не знаю, будет ли работать. Времени проверять нету.

CLEO:

{$CLEO}
0000:

repeat
wait 0
until Samp.Available()

0B34: samp register_client_command "azz" to_label @azz

while true
wait 0
    if 1@ == 1
    then
        0A8E: 2@ = 2@ + 1
        if not 8039: 2@ == 1001
        then
            if and
            0B23:  samp is_player_connected 2@
            8B64:  not samp is_player 2@ npc
            then
                0B20: samp 3@ = actor_handle_by_samp_player_id 2@
                if
                Player.Defined(3@)
                then
                    Actor.StorePos($PLAYER_ACTOR, 4@, 5@, 6@)
                    Actor.StorePos(3@, 7@, 8@, 9@)
                    050A: 10@ = distance_between_XYZ 4@ 5@ 6@ and_XYZ 7@ 8@ 9@
                    if 10@ <= 5.0
                    then
                        say "/iznas %d" 2@
                    end
                end
            end
        else 2@ = 0
        end
    end
end                      


      






:azz
0B12: 0@ = 0@ XOR 1
if 0@ == 1
then
    1@ = 1
else
    1@ = 0
end
samp.CmdRet()

Игра замедляется

rufadi · 14 Апр 2018

Имеется скрипт который после взятия пикапа отключается, как сделать чтобы он после взятия пикапа включался снова?

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
0006: 2@ = 0
0AB1: call_scm_func @Noname_516 0 0@ 1@

:Noname_25
8AFA:   not is_samp_available
004D: jump_if_false @Noname_46
0001: wait 400 ms
0002: jump @Noname_25

:Noname_46
0001: wait 1000 ms
0BE2: raknet setup_outcoming_packet_hook @Noname_348
0BE1: raknet setup_outcoming_rpc_hook @Noname_423

:Noname_207
0001: wait 0 ms
00D6: if
0AB0:   key_pressed 0@
004D: jump_if_false @Noname_341
0B12: 2@ = 2@ XOR 1
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_299
0ACD: show_text_highpriority "Invisible ~n~~g~Enabled" time 1000
0002: jump @Noname_337

:Noname_299
0ACD: show_text_highpriority "Invisible ~n~~r~Disabled" time 1000

:Noname_337
0001: wait 100 ms

:Noname_341
0002: jump @Noname_207

:Noname_348
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_419
0BE5: raknet 3@ = get_hook_param 1
00D6: if
0039:   3@ == 207
004D: jump_if_false @Noname_419
0BE5: raknet 4@ = get_hook_param 0
0BF3: raknet 5@ = bit_stream 4@ get_data_ptr
0C0D: struct 5@ offset 15 size 4 = 1@

:Noname_419
0BE0: raknet hook_ret 1

:Noname_423
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_512
0BE5: raknet 3@ = get_hook_param 1
00D6: if
0039:   3@ == 131
004D: jump_if_false @Noname_512
0006: 2@ = 0
0ACD: show_text_highpriority "Invisible ~n~~r~Disabled" time 1000


:Noname_512
0BE0: raknet hook_ret 1

:Noname_516
00D6: if
8AAB:   not file_exists "CLEO\Invisible.ini"
004D: jump_if_false @Noname_632
0AF1: write_int 35 to_ini_file "CLEO\Invisible.ini" section "Settings" key "Key"
0AF3: write_float -10.0 to_ini_file "CLEO\Invisible.ini" section "Settings" key "Depth"

:Noname_632
0AF0: 0@ = get_int_from_ini_file "CLEO\Invisible.ini" section "Settings" key "Key"
0AF2: 1@ = get_float_from_ini_file "CLEO\Invisible.ini" section "Settings" key "Depth"
0AB2: ret 2 0@ 1@

romanblinov2013 · 15 Апр 2018

rufadi написал(а):

Имеется скрипт который после взятия пикапа отключается, как сделать чтобы он после взятия пикапа включался снова?

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
0006: 2@ = 0
0AB1: call_scm_func @Noname_516 0 0@ 1@

:Noname_25
8AFA:   not is_samp_available
004D: jump_if_false @Noname_46
0001: wait 400 ms
0002: jump @Noname_25

:Noname_46
0001: wait 1000 ms
0BE2: raknet setup_outcoming_packet_hook @Noname_348
0BE1: raknet setup_outcoming_rpc_hook @Noname_423

:Noname_207
0001: wait 0 ms
00D6: if
0AB0:   key_pressed 0@
004D: jump_if_false @Noname_341
0B12: 2@ = 2@ XOR 1
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_299
0ACD: show_text_highpriority "Invisible ~n~~g~Enabled" time 1000
0002: jump @Noname_337

:Noname_299
0ACD: show_text_highpriority "Invisible ~n~~r~Disabled" time 1000

:Noname_337
0001: wait 100 ms

:Noname_341
0002: jump @Noname_207

:Noname_348
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_419
0BE5: raknet 3@ = get_hook_param 1
00D6: if
0039:   3@ == 207
004D: jump_if_false @Noname_419
0BE5: raknet 4@ = get_hook_param 0
0BF3: raknet 5@ = bit_stream 4@ get_data_ptr
0C0D: struct 5@ offset 15 size 4 = 1@

:Noname_419
0BE0: raknet hook_ret 1

:Noname_423
00D6: if
0039:   2@ == 1
004D: jump_if_false @Noname_512
0BE5: raknet 3@ = get_hook_param 1
00D6: if
0039:   3@ == 131
004D: jump_if_false @Noname_512
0006: 2@ = 0
0ACD: show_text_highpriority "Invisible ~n~~r~Disabled" time 1000


:Noname_512
0BE0: raknet hook_ret 1

:Noname_516
00D6: if
8AAB:   not file_exists "CLEO\Invisible.ini"
004D: jump_if_false @Noname_632
0AF1: write_int 35 to_ini_file "CLEO\Invisible.ini" section "Settings" key "Key"
0AF3: write_float -10.0 to_ini_file "CLEO\Invisible.ini" section "Settings" key "Depth"

:Noname_632
0AF0: 0@ = get_int_from_ini_file "CLEO\Invisible.ini" section "Settings" key "Key"
0AF2: 1@ = get_float_from_ini_file "CLEO\Invisible.ini" section "Settings" key "Depth"
0AB2: ret 2 0@ 1@

Работа и услуги^{(https://blast.hk/forums/16/)}

Lord · 15 Апр 2018

Как вытащить из строки определенный текст? Подскажите пожалуйста.

CLEO:

0B75: samp get_chat_string 99 text_to 1@ prefix_to 0 color_to 0 prefix_color_to 0
    if and
    0C18: 0 = strstr string1 1@ string2 "Реклама:" // Пример строки: "Реклама: продам гараж у восточного побережья Лос-[I]Сантос Earth-15.[/I]"
    0C18: 0 = strstr string1 1@ string2 "Лос-%s" 2@
        then
        say "%s" 2@ // тут должно в чат выдать "[I]Сантос Earth-15.[/I]", но у меня  не получается.
    end

grandpafromghetto · 15 Апр 2018

lordpower написал(а):

Как вытащить из строки определенный текст? Подскажите пожалуйста.

CLEO:

0B75: samp get_chat_string 99 text_to 1@ prefix_to 0 color_to 0 prefix_color_to 0
    if and
    0C18: 0 = strstr string1 1@ string2 "Реклама:" // Пример строки: "Реклама: продам гараж у восточного побережья Лос-[I]Сантос Earth-15.[/I]"
    0C18: 0 = strstr string1 1@ string2 "]: Лос-%s" 2@
        then
        say "%s" 2@ // тут должно в чат выдать "[I]Сантос Earth-15.[/I]", но у меня  не получается.
    end

0AD4

Lord · 15 Апр 2018

old_ghetto_ написал(а):
0AD4

Спасибо. Можешь привести свой пример? А то у меня не работает, видимо я делаю что-то не так.

CLEO:

{$CLEO}
{$INCLUDE SF}
0000:
repeat
wait 0
until 0AFA:
allloc 1@ 256

WHILE TRUE
wait 0
0B75: samp get_chat_string 99 text_to 1@ prefix_to 0 color_to 0 prefix_color_to 0
    if and
    0C18: 13@ = strstr string1 1@ string2 "Реклама:"
    0AD4: 13@ = scan_string 1@ format "Лос-%s" 2@
        then
            say "%s" 2@
    end
    cmdret
END

Musaigen · 15 Апр 2018

lordpower написал(а):
Спасибо. Можешь привести свой пример? А то у меня не работает, видимо я делаю что-то не так.]

Блять, опкодом 0AD4 нельзя форматировать текст, или искать что-то в нём. До вас когда дойдёт?

Lord · 15 Апр 2018

Musaigen написал(а):
Блять, опкодом 0AD4 нельзя форматировать текст, или искать что-то в нём. До вас когда дойдёт?

Блять, до всех разом не дойдет. Посвяти, раз уж такой умный.

Kotovasya · 16 Апр 2018

Есть ли какой-нибудь опкод/функция, которая заменяет все определенные символы в стринговой переменной на друие символы?

romanblinov2013 · 16 Апр 2018

Pycckuu_Alkash написал(а):
Есть ли какой-нибудь опкод/функция, которая заменяет все определенные символы в стринговой переменной на друие символы?

Про ссылку ХЗ, но ты можешь брать символы из определённой строки и сравнивать их с исходной.
Я делал подобную херню, поэтому подарю тебе сурс(чмок в пупок).

debil :)) · 16 Апр 2018

Небольшой вопрос: Когда активирую скрипт командой, то информация о том, что команда введена посылается только клиенту?Или же серверу тоже видно?

grandpafromghetto · 16 Апр 2018

DEFLIK написал(а):
Небольшой вопрос: Когда активирую скрипт командой, то информация о том, что команда введена посылается только клиенту?Или же серверу тоже видно?

скорее всего видно, потому что я видел сервера, где нельзя ввести команду дган

Terratomorf · 17 Апр 2018

У меня есть код помогите убрать от туда часть до строки 56 там где "У вас нет наживы" чтоб я зашёл и скрипт сразу работал и когда появлялась надпись "У вас нет наживы" сразу начинал работать кордмастер

Код:

{$CLEO}
{$INCLUDE SF}
wait 2500
$123 = 0
0BE3: raknet setup_incoming_rpc_hook @in_rpc
0B34: samp register_client_command "drpfish" to_label @on
:0
wait 0
if 
30@==1
then
actor.StorePos($PLAYER_ACTOR, 10@, 9@, 8@)
8@ -= 1.0
0AF9: samp say_msg "/fish"
:1
wait 300
if
30@ == 1
jf @0

if
$123 == 1
then
0B56: set_game_key 6 state true
wait 100
0B56: set_game_key 6 state false
end

if
$123 == 2
then
0B56: set_game_key 17 state true
wait 100
0B56: set_game_key 17 state false
end

alloc 1@ 256
0B75: samp get_chat_string 99 text_to 1@ prefix_to 0 color_to 0 prefix_color_to 0
if or
0C18: 2@ = strstr string1 1@ string2 "Вы поймали рыбу:"
0C18: 2@ = strstr string1 1@ string2 "Рыба сорвалась"
then 
$123=0
wait 500
0B47: samp close_current_dialog_with_button 0 
wait 400
actor.PutAt($PLAYER_ACTOR, 10@, 9@, 8@)
0173: set_actor $PLAYER_ACTOR Z_angle_to 180.0
wait 600
0AF9: samp say_msg "/fish" 
end

alloc 1@ 256
0B75: samp get_chat_string 99 text_to 1@ prefix_to 0 color_to 0 prefix_color_to 0
if
0C18: 2@ = strstr string1 1@ string2 "У вас нет наживы"
then
call @coordmaster 5 X 2594.4607 Y -2463.0203 Length 0.1 Depth 2.0 Delay 100     
wait 200
call @coordmaster 5 X 2618.3899 Y -2459.6841 Length 0.1 Depth 12.0 Delay 100   
wait 200
call @coordmaster 5 X 2607.2791 Y -2436.8081 Length 0.1 Depth 12.0 Delay 100 
wait 500
actor.PutAt($PLAYER_ACTOR, 2607.2791, -2436.8081, 13.6466)
wait 2000
0B49: samp set_current_dialog_list_item 2
wait 400
0B47: samp close_current_dialog_with_button 1
wait 700
0B47: samp close_current_dialog_with_button 1
wait 700
0B47: samp close_current_dialog_with_button 0
wait 700
call @coordmaster 5 X 2618.3899 Y -2459.6841 Length 0.1 Depth 12.0 Delay 100 
wait 200
call @coordmaster 5 X 2594.4607 Y -2463.0203 Length 0.1 Depth 2.0 Delay 100 
wait 200
call @coordmaster 5 X 10@ Y 9@ Length 0.1 Depth 2.0 Delay 100
wait 500
0173: set_actor $PLAYER_ACTOR Z_angle_to 180.0
wait 500
0AF9: samp say_msg "/fish" 
end

jump @1
end
jump @0

:in_rpc
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
IF 0@ == 73
    THEN
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT
    0BE7: raknet 3@ = bit_stream_read 1@ type BS_TYPE_INT
    0BE7: raknet 4@ = bit_stream_read 1@ type BS_TYPE_INT
    0AC8: 5@ = allocate_memory_size 125
    0BE8: raknet bit_stream 1@ read_array 5@ size 4@
    0C1E: array 5@ element 4@ el_size 1 = 0
    0AC9: free_allocated_memory 5@   
        ////////////////////////////////////////////////
        if
        0C18: 20@ = strstr string1 5@ string2 "PED_LOCK_TARGET"
        then
        $123 = 1
        end
       
        if
        0C18: 20@ = strstr string1 5@ string2 "PED_FIREWEAPON"
        then
        $123 = 2
        end
        ////////////////////////////////////////////////
        free 7@
        end 
0BE0: raknet hook_ret true

:on
0B12: 30@ = 30@ XOR 1
if
30@==0
then
0AF8: samp add_message_to_chat "Выкл" 0xFFff
else
0AF8: samp add_message_to_chat "Вкл" 0xFFff
end
0B43: samp cmd_ret

:coordmaster 
 0acd: "CoordMaster ON" 500 
 0087: 15@ = 0@ 
 0087: 16@ = 1@ 
 while true 
         wait 0 
         if 12@ == 12 
         then 
             12@ = 0 
             break 
         end 
         0087: 0@ = 15@ 
         0087: 1@ = 16@ 
         actor.StorePos($PLAYER_ACTOR,9@,10@,11@) 
         0509: 6@ = distance_between_XY 0@ 1@ and_XY 9@ 10@ 
         if 6@ <= 120.0 
         then 
             02CE: 11@ = ground_z_at 0@ 1@ 999.0 
             09bc: $PLAYER_ACTOR 0@ 1@ 11@ 
             if actor.Driving($PLAYER_ACTOR) 
             then 
                 5@ = actor.CurrentCar($PLAYER_ACTOR) 
                 car.LockInCurrentPosition(5@,0) 
             else 
                 actor.LockInCurrentPosition($PLAYER_ACTOR,0) 
             end 
             break 
         else 
             0061: 0@ -= 9@ 
             0061: 1@ -= 10@ 
             0604: get_Z_angle_for_point 0@ 1@ store_to 6@ 
             if actor.Driving($PLAYER_ACTOR) 
             then 
                 5@ = actor.CurrentCar($PLAYER_ACTOR) 
                 car.LockInCurrentPosition(5@,1) 
                 car.Angle(5@) = 6@ 
             else 
                 actor.LockInCurrentPosition($PLAYER_ACTOR,1) 
                 actor.Angle($PLAYER_ACTOR) = 6@ 
             end 
             04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 2@ 0.0 // 70.0 - расстояние прыжка 
             09bc: $PLAYER_ACTOR 8@ 9@ 3@ 
             32@ = 0 
             while 0025:   4@ > 32@ 
                 wait 0 
                 if 0adc: "OFF" // Дезактивация 
                 then 
                     0acd: "CoordMaster OFF" 500 
                     actor.StorePos($PLAYER_ACTOR,8@,9@,10@) 
                     02CE: 11@ = ground_z_at 8@ 9@ 999.0 
                     11@ += 1.0 
                     00a1: $PLAYER_ACTOR 8@ 9@ 11@ 
                     if actor.Driving($PLAYER_ACTOR) 
                     then 
                         5@ = actor.CurrentCar($PLAYER_ACTOR) 
                         car.LockInCurrentPosition(5@,0) 
                     else 
                         actor.LockInCurrentPosition($PLAYER_ACTOR,0) 
                     end 
                     12@ = 12 
                     break 
                 end 
             end 
         end 
 end 
 0ab2: ret 0   

[/code/]

В чём ошибка?

Код:

{$CLEO}
{$INCLUDE SF}
0000: NOP

wait 2000

alloc 4@ 256
0c11: memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage


while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
 
////////////////////////////////////
if
0C18: 7@ = strstr string1 4@ string2 "Äàðîâà" //-Òåêñò â ÷àòå
then
say "Ñîñè äî ïîë âòîðîãî" //-Îòâåò
end
////////////////////////////////////
[/code/]

DarkP1xel · 18 Апр 2018

Denixon написал(а):

В чём ошибка?

Код:

{$CLEO}
{$INCLUDE SF}
0000: NOP

wait 2000

alloc 4@ 256
0c11: memset 4@ 0 256

0BE3: raknet setup_incoming_rpc_hook @ClientMessage


while true
wait 0
end

:ClientMessage
0BE5: raknet 0@ = get_hook_param PARAM_BITSTREAM
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
if
1@ == RPC_ScrClientMessage // DWORD color, DWORD strLen, char[] msg
then
    0BE7: raknet 2@ = bit_stream_read 0@ type BS_TYPE_INT  // color
    0BE7: raknet 3@ = bit_stream_read 0@ type BS_TYPE_INT  // strLen
    0C11: memset destination 4@ value 0 size 256
    0BE8: raknet bit_stream 0@ read_array 4@ size 3@ // Text
    0C0F: array 4@ element 3@ = 0x00
 
////////////////////////////////////
if
0C18: 7@ = strstr string1 4@ string2 "Äàðîâà" //-Òåêñò â ÷àòå
then
say "Ñîñè äî ïîë âòîðîãî" //-Îòâåò
end
////////////////////////////////////
[/code/]

END проебал и у hook'a нет конца.

Поиск

Поиск

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

DarkP1xel

Сила воли наше всё.

Kotovasya

Участник

rufadi

Новичок

romanblinov2013

RB_PRO

Lord

Новичок

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ

Lord

Новичок

Musaigen

shitposter

Lord

Новичок

Kotovasya

Участник

romanblinov2013

RB_PRO

Вложения

debil :))

Участник

grandpafromghetto

НАСТАЯЩИЙ ДАГИСТАНИЦ

Terratomorf

Известный

DarkP1xel

Сила воли наше всё.

Похожие темы