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

[Dark_Knight]

Нужно сделать так, чтобы персонаж бежал на координаты, например: 0.0, 0.0, 0.0 , потом нажималось 3-5 раз ЛКМ, затем он бежал на координаты, например: 100.0, 100.0. 0.0
И чтобы всё это отключалось и включалось на какую-нибудь клавишу. В общем это бот для бега по координатам, например, для работы грузчика на самп-рп. Тому кто поможет-спасибо.:)

05D3: AS_actor $PLAYER_ACTOR goto_point 681.8004 -474.1063 15.5363 mode 4 3000 ms // versionA 
05F5: AS_actor 43@ goto_point 2516.686 -1675.861 13.1227 mode 4 5500 ms // versionB

Для пояснения опкодов юзай opcode database http://gtag.gtagaming.com/opcode-database/

 

[Thomas_Johnson]

Выдели для неё память, и после использования очистить не забудь.

Приложи код, я не понял-_-

 

[Dark_Knight]

Приложи код, я не понял-_-

0AC8: 27@ = allocate_memory_size 128 //Выделяем 128 байт для переменой 27@
<code>
0AC9: free_memory 27@// Освобождаем, когда нам она уже не нужна.

 

[gwplayer]

Как получить остаток от деления

 

[Thomas_Johnson]

Выдели для неё память, и после использования очистить не забудь.

В чат выводится иероглифы

Появилась другая проблема.
0B2E: 1@ = read_module_memory "samp.dll" offset 0x6060 size 2
0B2D: write_module_memory "samp.dll" offset 0x6060 value 0xC3 size 2 //включается
0B2D: write_module_memory "samp.dll" offset 0x6060 value 1@ size 2 // не выключается
В чем дело? Ноп включается, но не может выключиться, хотя записывает вроде.
Ах да, еще весь чат в варнингах

 

[Dark_Knight]

В чат выводится иероглифы

Появилась другая проблема.
0B2E: 1@ = read_module_memory "samp.dll" offset 0x6060 size 2
0B2D: write_module_memory "samp.dll" offset 0x6060 value 0xC3 size 2 //включается
0B2D: write_module_memory "samp.dll" offset 0x6060 value 1@ size 2 // не выключается
В чем дело? Ноп включается, но не может выключиться, хотя записывает вроде.
Ах да, еще весь чат в варнингах

На счет чата пример дай исходник.
Вот тебе пример нопа. Хотя даже не пример, а рабочий скрипт.

 {$CLEO}
{$include includes\vk_keys.txt}
if
not 29@ = samp.Base()
then
0A93: end_custom_thread
end

repeat
wait 400
until samp.Available()

var
1@ : int
2@ : int
end


0B2E: 1@ = read_module_memory "samp.dll" offset 0x13D60 size 2 // 0x12F70 - Адресс нопа
while true
wait 0
if and
not samp.ChatInputOpened()
0AB0: key_pressed Клавина активации/деактивации 
then
0B2D: write_module_memory "samp.dll" offset 0x13D60 value 0xC390 size 2 // Включаем ноп. 0xC390 - адресс включения нопа.
printf "NOP SetPlayerHealth enabled"
end
0B2E: 2@ = read_module_memory "samp.dll" offset 0x13D60 size 2 
if and
0AB0: key_pressed Клавина активации/деактивации 
not samp.ChatInputOpened() 
not 1@ == 2@
then
0B2D: write_module_memory "samp.dll" offset 0x13D60 value 1@ size 2 // Отключаем ноп
printf "NOP SetPlayerHealth disambled"
end 
end

 

[FYP]

Как получить остаток от деления

0B14: 0@ = 0@ MOD 60

В чат выводится иероглифы

после выделения памяти нужно копировать строку в выделенный буффер с помощью опкода strcpy.

 

[gwplayer]

Как искать рандомных игроков в радиусе n?

 

[Dark_Knight]

const
ID = 0@
end
<code>  
for ID = 0 to 999 step 1
<code> 
end
<code>

 

[spiceman]

Как искать рандомных игроков в радиусе n?

0AE1: $actor = random_actor_near_point 0@ 1@ 2@ in_radius 10.0 find_next 1 pass_deads 1 //IF and SET

 

[MogAika]

Как искать рандомных игроков в радиусе n?

01F5: $PLAYER_ACTOR = get_player_actor $PLAYER_CHAR
0@ = 0
if
    0AE1: 1@ = random_actor_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_deads 1 //IF and SET
then
    repeat
        if
            803C:  not  $PLAYER_ACTOR == 1@ // (int)
        then
            0@ += 1
        end
    until 8AE1: not 1@ = random_actor_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_deads 1 //IF and SET
end
0AF8: samp add_message_to_chat "Count: %d" color 0xDDDDDD 0@

Данный код выводит в чат кол-во игроков, которые есть в данный момент времени

 

[MogAika]

Как записывать текст в буфер?
hex
00 00 00 00 00 00 00 00 00
end

hex
"Text" 20 "OLOLOLO" 00
end
//20 - пробел
//00 - конец строки

 

[Dark_Knight]

Как записывать текст в буфер?
hex
00 00 00 00 00 00 00 00 00
end

:menudialog
hex
7B "00FF00" 7D "Active" A
7B "00FF00" 7D "Health" A
7B "00FF00" 7D "Icon" 20 "Health" A
7B "00FF00" 7D "Armor" A
7B "00FF00" 7D "Icon" 20 "Armor" A
7B "00FF00" 7D "Money" A 
7B "00FF00" 7D "Icon" 20 "Money" A
7B "00FF00" 7D "Gun" 20 "Name" A
7B "00FF00" 7D "Gun" 20 "Ammo" A
7B "00FF00" 7D "Icon" 20 "Gun" 00
end
7B - {
7D - }
A - переход на следующею строку.
[code]

 

[lomik]

Как сделать скрипт чтобы при команде /list например выводился список команд или всяких надписей?

 

[Dark_Knight]

Как сделать скрипт чтобы при команде /list например выводился список команд или всяких надписей?

{$CLEO}
if
not 29@ = samp.base()
then
end_thread
end

repeat
wait 400
until samp.Available()

0B34: samp register_client_command "list" to_label @list

while true
wait 0
end

:list
<code>
samp.CmdRet()