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

[randazzo]

Помогите что не так ?

0000: NOP

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

while true
wait 0
if 0@ == 1
then
03F0: enable_text_draw 1
0AC8: 10@ = allocate_memory_size 256
0AC8: 11@ = allocate_memory_size 256
0AC8: 12@ = allocate_memory_size 256
0AB1: call_scm_func @Main 0 1@ 2@
0AD3: 10@ = format "Äèàëîã: %d" 1@
0AD3: 11@ = format "Èíòåðååð: %d" 2@ 
0AC9: free_allocated_memory 10@
0AC9: free_allocated_memory 11@
0AC9: free_allocated_memory 12@
0B6F: render font 0 draw_text 11@ pos 500 550 color 0xFFFFFFFF
    end
end

:Main
0B4E: samp 1@ = get_current_dialog_id
077E: get_active_interior_to 2@
0AB2: ret 2 1@ 2@

:Xor
0B12: 0@ = 0@ XOR 1
00D6: if
0039:   0@ == 1
0B43: samp cmd_ret

шрифт надо в начале регистрировать и ещё куча херни.

{$CLEO}
0000: NOP
0B6D: render 30@ = create_font "Tahoma" height 8 flags 0xD

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

while true
wait 0
if 0@ == 1
then
03F0: enable_text_draw 1
0AC8: 10@ = allocate_memory_size 256
0AB1: call_scm_func @Main 0 1@ 2@
0AD3: 10@ = format "Èíòåðüåð: %d Äèàëîã: %d" 2@ 1@
0B6F: render font 30@ draw_text 10@ pos 500 550 color 0xFFFFFFFF
0AC9: free_allocated_memory 10@
    end                                                         
end

:Main
0B4E: samp 1@ = get_current_dialog_id
077E: get_active_interior_to 2@
0AB2: ret 2 1@ 2@

:Xor
0B12: 0@ = 0@ XOR 1
0B43: samp cmd_ret

 

[SumJest]

0A1A не поддерживает форматирование.
Пробуй так:

04ED: load_animation 2@
0A1A: actor 4@ perform_animation 3@ IFP 2@ framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time -1
04EF: release_animation 2@

Куча варнингов летит. Блин

 

[ToPro]

Есть ли возможность брать не прорисованный пикап зная его ид?

 

[debil :))]

Существует опкод, который записывает текст диалога в переменную ?

 

[randazzo]

Существует опкод, который записывает текст диалога в переменную ?

https://blast.hk/wiki/opcodes:0B4A
https://blast.hk/wiki/opcodes:0BD7

 

[Quit]

0B20: samp 0@ = actor_handle_by_samp_player_id 420
009B: destroy_actor 0@

а как вернуть всех?

 

[DarkP1xel]

Есть ли возможность брать не прорисованный пикап зная его ид?

0BD1: samp send_picked_up_pickup 0@

 

[LaRossa]

Как узнать время на сервере ?

 

[Skid330]

{$Cleo}
{#include sf}
0000:
0BE3: raknet setup_incoming_rpc_hook @IRPC
0BDE: pause_thread 0

:IRPC
0BE5: Raknet 0@ = get_hook_param PARAM_PACKETID
IF 0039: 0@ =={RPC_CHAT}101
then
0BE5: Raknet 1@ = get_hook_param PARAM_BITSTEAM

0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT
0BE7: raknet 3@ = bit_stream_read 1@ type BS_TYPE_INT
alloc 4@ 145
0BE8: raknet bit_stream 1@ read_array 4@ size 3@
0C1E: array 4@ element 3@ el_size 1 = 0x0
0B15: 2@ = 2@ SHR 8
0B10: 2@ = 2@ AND 0x00FFFFFF
if
0c18: strstr 31@ 4@ "Привет"
then

0B56: set_game_key 10 state 255

end
end

Что тут не верно?

 

[DarkP1xel]

Как узнать время на сервере ?

0AB1: call_scm_func @getServerTime params 0 || {byteWorldTime_Hour}0@ {byteWorldTime_Minute}1@ |

:getServerTime
0BAC: samp 0@ = get_server_settings_ptr
0C0C: 1@ = struct 0@ offset {byteWorldTime_Hour}0x2C size {BYTE}1
0C0C: 2@ = struct 0@ offset {byteWorldTime_Minute}0x2D size {BYTE}1
0AB2: _ret 2 | {byteWorldTime_Hour}1@ {byteWorldTime_Minute}2@ |

 

[Skid330]

0AB1: call_scm_func @getServerTime params 0 || {byteWorldTime_Hour}0@ {byteWorldTime_Minute}1@ |

:getServerTime
0BAC: samp 0@ = get_server_settings_ptr
0C0C: 1@ = struct 0@ offset {byteWorldTime_Hour}0x2C size {BYTE}1
0C0C: 2@ = struct 0@ offset {byteWorldTime_Minute}0x2D size {BYTE}1
0AB2: _ret 2 | {byteWorldTime_Hour}1@ {byteWorldTime_Minute}2@ |

Мне поможешь?
что не верно в клео?

 

[Bond_Jems]

Как узнать координаты пикапа в зоне стрима по его модель ид?

 

[Zefir2511]

Да, AHK может всё))

А автозагрузку как добавить? Что бы при входе в самп запускался ахк.

 

[SumJest]

А автозагрузку как добавить? Что бы при входе в самп запускался ахк.

Поставь клео скрипт, который будет это делать )

 

[Zefir2511]

{$CLEO .cs}
0000: NOP

:NONAME_2
   not SAMP.Available
else_jump @NONAME_22
wait 0
jump @NONAME_2

:NONAME_22
wait 0
if
0ADC:   test_cheat "P"
else_jump @NONAME_73
0C8F: samp process_chat_input "/setweather 7"
0C8F: samp process_chat_input "/settime 7"

:NONAME_73
jump @NONAME_22

Можете добавить что бы не срабатывал когда чат открыт?