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

[BugHunter]

{$CLEO .cs} 
0000:
thread "fakeKick" 
0AB0: key_pressed 60
0AF8: samp add_message_to_chat " Вы были кикнуты по подозрению в читерстве! (#0111)" 0xFFFF6347
0B27: samp set_gamestate 5
0B43: samp cmd_ret

Че не так то? Крашает после загрузки сразу

 

[itsLegend]

Потому что код такой.

• Нужно подождать загрузку структур сампа;
• Поставить цикл;
• Убрать 0B43(если ты не будешь юзать команды);
• Неправильно составленное условие, точнее - вообще не составленное. 0AB0 должен быть в условии.

 

[iTz_WEEZY]

увидел тут код какой-то и чуть переделал
ну и пошло как то не так.

{$CLEO .cs}

0000: NOP

wait 1000 ms
0AFA:  is_samp_available

:2
0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 1@ = get_player_nickname 0@
00D6: if
0C21: stricmp string1 1@ string2 "Ник_Нэйм"
then
0001: wait 500 ms
chatmsg "ля-ля-ля" color -1 
chatmsg "228-1337" color -1 
chatmsg "Хуй" color -1 
0B28: samp disconnect_with_reason 0
jf @2

Думал ебнуть по ник нейму крч если какойто там ник нейм запустит игру с этим скриптом там в чате выйдет всякая хуйня
и закрытое соединение.. но сука крашит, зависает через 15 сек и нехера не появляется в чате

 

[BlackKnigga]

увидел тут код какой-то и чуть переделал
ну и пошло как то не так.

{$CLEO .cs}

0000: NOP

wait 1000 ms
0AFA:  is_samp_available

:2
0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
0B36: samp 1@ = get_player_nickname 0@
00D6: if
0C21: stricmp string1 1@ string2 "Ник_Нэйм"
then
0001: wait 500 ms
chatmsg "ля-ля-ля" color -1
chatmsg "228-1337" color -1
chatmsg "Хуй" color -1
0B28: samp disconnect_with_reason 0
jf @2

Думал ебнуть по ник нейму крч если какойто там ник нейм запустит игру с этим скриптом там в чате выйдет всякая хуйня
и закрытое соединение.. но сука крашит, зависает через 15 сек и нехера не появляется в чате

jf используется только после условия, нельзя совмещать конструкции if..then..end и if..jf. Поменяй jf на end.

 

[iTz_WEEZY]

jf используется только после условия, нельзя совмещать конструкции if..then..end и if..jf. Поменяй jf на end.

бля.. точно чет я в парился совсем забыл как кодить надо

 

[RedBoxWhite]

Почему когда захожу в игру, проходит 2-3 минуты, начинает проседать FPS ниже 20, а после вовсе краш.

if 0B4C:  samp is_dialog_active -1
then
0BD7: samp get_dialog_text 5@
if 0C18: 10@ = strstr string1 5@ string2 "Введите код"
then
0B4B: samp set_current_dialog_editbox_text "9999"
0AA5: call 3@ num_params 4 pop 0 0 0 0 0x0D
0AA5: call 3@ num_params 4 pop 0 0 0x02 0x0D
end
end
jump @3

 

[fiendshadow]

Почему когда захожу в игру, проходит 2-3 минуты, начинает проседать FPS ниже 20, а после вовсе краш.

if 0B4C:  samp is_dialog_active -1
then
0BD7: samp get_dialog_text 5@
if 0C18: 10@ = strstr string1 5@ string2 "Введите код"
then
0B4B: samp set_current_dialog_editbox_text "9999"
0AA5: call 3@ num_params 4 pop 0 0 0 0 0x0D
0AA5: call 3@ num_params 4 pop 0 0 0x02 0x0D
end
end
jump @3

"Смотрите, у меня болит нога, но рентген делать не дам". Полный код может дашь ?

 

[BugHunter]

Потому что код такой.

• 
  Нужно подождать загрузку структур сампа;
  Поставить цикл;
  Убрать 0B43(если ты не будешь юзать команды);
  Неправильно составленное условие, точнее - вообще не составленное. 0AB0 должен быть в условии.

{$CLEO .cs} 
0000:
thread "fakeKick" 
if not 0@ = SAMP.Base() 
then 0a93: 
end 

repeat 
wait 200 
until SAMP.Available() 
0AB0: if key_pressed 60
        then jump @0
while true 
wait 0 
end 

:0
0AF8: samp add_message_to_chat " Âû áûëè êèêíóòû ïî ïîäîçðåíèþ â ÷èòåðñòâå! (#0111)" 0xFFFF6347
0B27: samp set_gamestate 5

Придерживался твоим советам и получилось как то так.... Билдер не дает скомпилировать отсылаясь на то что then jump @0 неправильно. Может кто поправить?)

 

[SR_team]

куда я попал? Общество окончательно деградировало :( Вы хоть слышали про логику?
if событие
then
что-то там
else
что-то там другое
end

 

[RedBoxWhite]

"Смотрите, у меня болит нога, но рентген делать не дам". Полный код может дашь ?

{$CLEO}
0000:            
wait 2000 

while true 
wait 0 
end 

alloc 5@ 50
alloc 7@ 50

if 
0AA2: 4@ = load_library "User32.dll"
jf @error_load_user32
if 
0AA4: 3@ = get_proc_address "keybd_event" library 4@
jf @error_proc_keybd_event 

:2
wait 0
if 0B4C:  samp is_dialog_active -1
then
0BD7: samp get_dialog_text 5@
if 0C18: 10@ = strstr string1 5@ string2 "Введите код:"
then
0B4B: samp set_current_dialog_editbox_text "9999"
0AA5: call 3@ num_params 4 pop 0 0 0 0 0x0D
0AA5: call 3@ num_params 4 pop 0 0 0x02 0x0D
end
end
jump @3

:3
wait 0
if 0B4C:  samp is_dialog_active -1
then
0BD7: samp get_dialog_text 7@
if 0C18: 11@ = strstr string1 7@ string2 "Код неверный"
then
0B4B: samp set_current_dialog_editbox_text "0000"
0AA5: call 3@ num_params 4 pop 0 0 0 0 0x0D
0AA5: call 3@ num_params 4 pop 0 0 0x02 0x0D
end
end

:error_proc_keybd_event 
0AA3: free_library 4@ 
:error_load_user32 
0A93: end_custom_thread

 

[RedBoxWhite]

{$CLEO .cs}
0000:
thread "fakeKick"
if not 0@ = SAMP.Base()
then 0a93:
end

repeat
wait 200
until SAMP.Available()
0AB0: if key_pressed 60
        then jump @0
while true
wait 0
end

:0
0AF8: samp add_message_to_chat " Âû áûëè êèêíóòû ïî ïîäîçðåíèþ â ÷èòåðñòâå! (#0111)" 0xFFFF6347
0B27: samp set_gamestate 5

Придерживался твоим советам и получилось как то так.... Билдер не дает скомпилировать отсылаясь на то что then jump @0 неправильно. Может кто поправить?)

Попробуй так...

{$CLEO .cs}
0000:
wait 2000

while true
wait 0
if 0AB0: key_pressed 60
then
0AF8: samp add_message_to_chat " Вы были кикнуты по подозрению в читерстве! (#0111)"0xFFFF6347
0B27: samp set_gamestate 5
end
end

 

[Perojek)0]

Подскажите пожалуйста окод, который с начала строки копирует определённое кол-во символов в переменную
Чё-т найти не могу

 

[Dark_Knight]

проще обрезать строку. копируешь в строку в строку. Потом циклом через фор пробегаешь до конца строки через реад мемори в байте и начиная с Н-ого символа записываешь ноль.

 

[SR_team]

проще обрезать строку. копируешь в строку в строку. Потом циклом через фор пробегаешь до конца строки через реад мемори в байте и начиная с Н-ого символа записываешь ноль.

а не проще сразу в нужный байт записать ноль?

 

[PaHaNjkee]

Где ошибка? Не создаётся файл

:test
wait 0
if 0A9A: 0@ = openfile "file.txt" mode "a"
then
  1@ = 12
  2@ = 5
  3@ = 2016
  0AD9: write_formatted_text "Now: %d.%d.%d" in_file 0@ params 1@ 2@ 3@
  chatmsg "Выполнено" -1
  0A9B: closefile 0@
end
0B43: samp cmd_ret