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

[Evgeniy13]

Выбивает просто непонятные цифры вместо нужного текста(

 

[Lightkiller]

Выбивает просто 0 вместо нужного текста(

Выдели память

 

[Evgeniy13]

Память то выделил, выбивает набор цифр, а не текст.

 

[Lightkiller]

Память то выделил, выбивает набор цифр, а не текст.

как выводишь в чат? скинь
у тебя, скорее всего, %d, а надо %s указать

 

[Vovich]

Благодарю! А не подскажите, как мне теперь из переменной 1@ вывести текст в чат например... Чтобы я потом смог из чат лога его скопировать. Очень нужно

А не легче записать данные в .txt файл?

0BD7: samp get_dialog_text 0@
0A9A: 30@ = openfile "CLEO/dialog.txt" mode "wt"  // IF and SET
0AD8: write_string_to_file 30@ from 0@ //IF and SET
0A9B: closefile 30@

 

[Woofing Giraffe]

0AC8: 1@ = allocate_memory_size 1024
0BD7: samp get_dialog_text 1@
0AF8: samp add_message_to_chat 1@ color 0xFFFFFF

Небольшой пример. А лучше воспользоваться способом выше.

 

[AWRage]

Некоторые из них описаны в файлах statdisp.dat и ar_stats.dat
Тут ещё: http://www.gtamodding.com/wiki/List_of_statistics_(SA)

Спасибо.

 

[Evgeniy13]

Создался пустой файл(

 

[Evgeniy13]

А нет, все заработало! Благодарю! Обажаю ваш форум, нигде так не помогут, как у вас!

 

[Art4D]

Опкод: 0C72: set_virtual_key 0@ down 1@
Не зажимает кнопку,а только крашит.

{$CLEO .cs}
0000: NOP

0662: printstring "by kraft1k"  0x33FFCC

repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "boxerbot" to_label @cb

While True
wait 0
if 7@ == 1
then
0AB1: call @key 2 key 70 time 10
0AB1: call @key 2 key 1 time 10
if 0AB0:   key_pressed 117
then
0C72: set_virtual_key 20 down false
7@ = 0
0AB1: call @key 2 key 117 time 10
actor.LockInCurrentPosition($Player_Actor) = false
0acd: "~y~[~r~Boxer BOT~y~] ~y~OFF" 1500
end
end
end
      

:cb
0B12: 7@ = 7@ XOR 1
if 7@ == 1
then
actor.LockInCurrentPosition($Player_Actor) = true
0C72: set_virtual_key 20 down true
0acd: "~y~[~r~Boxer BOT~y~] ~y~ON" 1500
end
SAMP.Cmdret()

:key
if 0AA2: 2@ = load_library "User32.dll"
then
if 0AA4: 2@ = get_proc_address "keybd_event" library 2@
then
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@
wait 1@
0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@
end
end
0AB2: ret 0

мб у тебя клео 4.1? У меня на нем половина виндовских библиотек не работало

 

[kraft1k]

мб у тебя клео 4.1? У меня на нем половина виндовских библиотек не работало

Ну да 4.1,у меня на нём мой флай норм робит.

 

[Mustang228]

xелпаните перевести оффсеты на 0.3.7, не работал с памятью >:o

0B24: samp 5@ = get_remote_player_ptr 0@
5@ += 8
0A8D: 5@ = read_memory 5@ size 4 virtual_protect 1
5@ += 127
0A8D: 6@ = read_memory 5@ size 1 virtual_protect 1

 

[woksonal]

Опкод: 0C72: set_virtual_key 0@ down 1@
Не зажимает кнопку,а только крашит.

{$CLEO .cs}
0000: NOP

0662: printstring "by kraft1k"  0x33FFCC

repeat
wait 0
until SAMP.Available()

0B34: samp register_client_command "boxerbot" to_label @cb

While True
wait 0
if 7@ == 1
then
0AB1: call @key 2 key 70 time 10
0AB1: call @key 2 key 1 time 10
if 0AB0:   key_pressed 117
then
0C72: set_virtual_key 20 down false
7@ = 0
0AB1: call @key 2 key 117 time 10
actor.LockInCurrentPosition($Player_Actor) = false
0acd: "~y~[~r~Boxer BOT~y~] ~y~OFF" 1500
end
end
end
     

:cb
0B12: 7@ = 7@ XOR 1
if 7@ == 1
then
actor.LockInCurrentPosition($Player_Actor) = true
0C72: set_virtual_key 20 down true
0acd: "~y~[~r~Boxer BOT~y~] ~y~ON" 1500
end
SAMP.Cmdret()

:key
if 0AA2: 2@ = load_library "User32.dll"
then
if 0AA4: 2@ = get_proc_address "keybd_event" library 2@
then
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@
wait 1@
0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@
end
end
0AB2: ret 0

Вот, как вариант, на синхе https://www.blast.hk/threads/10684/
И одной эмуляцией клавиш не обойтись, сервер проверяет еще и анимку

 

[Vovich]

xелпаните перевести оффсеты на 0.3.7, не работал с памятью >:o

0B24: samp 5@ = get_remote_player_ptr 0@
5@ += 8
0A8D: 5@ = read_memory 5@ size 4 virtual_protect 1
5@ += 127
0A8D: 6@ = read_memory 5@ size 1 virtual_protect 1

Полный код то тай.

 

[Niko]

Возможно клео к нику привязать?

да, очень просто