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

serhiyrubin · 17 Июн 2017

Привет всем
Кто подскажет как получить текст из серверного GameText
Типа когда что то покупаешь и на экране внизу красным цветом -$500

SpawnPro · 17 Июн 2017

Друзья, помогите пожалуйста, дайте пример хотя бы, есть у меня клео
Пампкин Детектор, Автор DarkP1xel, суть клео такова, что бы он искал тыквы на хелуин на Diamond RP, его id 19320(тыквы),
очень прошу кто бы мог дописать с открытым кодом хотя бы один предмет добавить ещё, что бы он искал на сервере для выживания нужные иды предметов, а потом, я уже сам постепенно буду заполнять клео, что бы он искал допустим не одну тыкву, а ещё допустим, какой нибудь ид, два то есть одновременно

{$CLEO}
0000:

REPEAT
0001: 0
UNTIL 0AFA:
0BB9: samp 0@ = get_pickup_pool_ptr

WHILE TRUE
0001: 0

FOR 1@ = 0 TO {MAX_PICKUPS}4096 [STEP = 1]
IF 0B51: samp 2@ = pickup_handle_by_id 1@
THEN
0A90: 2@ = 1@ * 20
000A: 2@ += 61444
000A: 2@ += 0@ // stPickup
0A8D: 3@ = read_memory 2@ size 4 virtual_protect TRUE // iModelID
IF 0039: 3@ == 19320
THEN
0C0C: 3@ = struct 2@ offset 8 size 4 // X
0C0C: 4@ = struct 2@ offset 12 size 4 // Y
0C0C: 5@ = struct 2@ offset 16 size 4 // Z
IF 00C2: sphere_onscreen 3@ 4@ 5@ radius 5.0
THEN
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 3@ 4@
00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@
0B55: convert_3D_coords 5@ 6@ 7@ to_screen 5@ 6@
0B68: render draw_line_point1 5@ 6@ point2 3@ 4@ width 1 color 0xFFFFA500
END
END
END
END

END

kuleer · 17 Июн 2017

SpawnPro написал(а):
Друзья, помогите пожалуйста, дайте пример хотя бы, есть у меня клео
Пампкин Детектор, Автор DarkP1xel, суть клео такова, что бы он искал тыквы на хелуин на Diamond RP, его id 19320(тыквы),
очень прошу кто бы мог дописать с открытым кодом хотя бы один предмет добавить ещё, что бы он искал на сервере для выживания нужные иды предметов, а потом, я уже сам постепенно буду заполнять клео, что бы он искал допустим не одну тыкву, а ещё допустим, какой нибудь ид, два то есть одновременно

{$CLEO}
0000:

REPEAT
0001: 0
UNTIL 0AFA:
0BB9: samp 0@ = get_pickup_pool_ptr

WHILE TRUE
0001: 0

FOR 1@ = 0 TO {MAX_PICKUPS}4096 [STEP = 1]
IF 0B51: samp 2@ = pickup_handle_by_id 1@
THEN
0A90: 2@ = 1@ * 20
000A: 2@ += 61444
000A: 2@ += 0@ // stPickup
0A8D: 3@ = read_memory 2@ size 4 virtual_protect TRUE // iModelID
IF 0039: 3@ == 19320
THEN
0C0C: 3@ = struct 2@ offset 8 size 4 // X
0C0C: 4@ = struct 2@ offset 12 size 4 // Y
0C0C: 5@ = struct 2@ offset 16 size 4 // Z
IF 00C2: sphere_onscreen 3@ 4@ 5@ radius 5.0
THEN
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 3@ 4@
00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@
0B55: convert_3D_coords 5@ 6@ 7@ to_screen 5@ 6@
0B68: render draw_line_point1 5@ 6@ point2 3@ 4@ width 1 color 0xFFFFA500
END
END
END
END

END

IF OR

SpawnPro · 17 Июн 2017

kuleer написал(а):
IF OR

А можно хотя бы одно предложение, для примера, я просто не шарю, плиз

serhiyrubin · 17 Июн 2017

SpawnPro написал(а):
А можно хотя бы одно предложение, для примера, я просто не шарю, плиз

Код:

{$CLEO}
0000:

REPEAT
0001: 0
UNTIL 0AFA:
0BB9: samp 0@ = get_pickup_pool_ptr

WHILE TRUE
0001: 0

FOR 1@ = 0 TO {MAX_PICKUPS}4096 [STEP = 1]
IF 0B51: samp 2@ = pickup_handle_by_id 1@
THEN
0A90: 2@ = 1@ * 20
000A: 2@ += 61444
000A: 2@ += 0@ // stPickup
0A8D: 3@ = read_memory 2@ size 4 virtual_protect TRUE // iModelID
IF OR
0039: 3@ == 19320
0039: 3@ == 228
0039: 3@ == 777
THEN
0C0C: 3@ = struct 2@ offset 8 size 4 // X
0C0C: 4@ = struct 2@ offset 12 size 4 // Y
0C0C: 5@ = struct 2@ offset 16 size 4 // Z
IF 00C2: sphere_onscreen 3@ 4@ 5@ radius 5.0
THEN
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 3@ 4@
00A0: store_actor $PLAYER_ACTOR position_to 5@ 6@ 7@
0B55: convert_3D_coords 5@ 6@ 7@ to_screen 5@ 6@
0B68: render draw_line_point1 5@ 6@ point2 3@ 4@ width 1 color 0xFFFFA500
END
END
END
END

END

Wiki почитай, там можно все это найти и в справке санни билдера
if or это крч ты пишешь до восьми условий, и если хоть одно из них верное, то срабатывает код после then

serhiyrubin · 17 Июн 2017

D.Harris написал(а):
Парни, знаю что нагло, да и в шапке темы писали об этом, но:
- Может кто-либо помочь написать скрипт (раз в минуту - нажатия на клавишу)?

На какую клавишу?

serhiyrubin · 17 Июн 2017

D.Harris написал(а):
Альт

Только не смейтесь

Код:

{$CLEO}
0000:
if not 0@ = Samp.Base()
then 0A93:
end

repeat
  wait 400
until Samp.Available()

0B34: samp register_client_command "alt" to_label @activ

while true
wait 0
if 3@ == 1
then
  3@ = 0
  0C72: set_virtual_key 18 down true
  wait 2000
  0C72: set_virtual_key 18 down false
end  
end

:activ
0B12: 1@ = 1@ XOR 1
if 1@ == 1
then
  0AD1: "Script ALT ~G~ON" 1000
  3@ = 1
  0C74: 2@ = create_timer_interval 60000 on_label @timer
end
if 1@ == 0
then
  0AD1: "Script ALT ~R~OFF" 1000
  0C75: kill_timer 2@
end
cmdret

:timer
3@ = 1
cmdret

Активация или деактивация - /alt

D.Harris · 18 Июн 2017

Помогите пожалуйста. Суть клео: каждую минуту нажимает клавишу альт. Не крашит, но когда ввожу команду - ничего не происходит.
В SF-консоле пишет, что commad already exist. Перевод знаю, но ошибку в коде не вижу(

Код:

{$CLEO}
0000:
if not 0@ = Samp.Base()
then 0A93:
end

repeat
  wait 400
until Samp.Available()

0B34: samp register_client_command "alt" to_label @activ

while true
wait 0
if 3@ == 1
then
  3@ = 0
  0C72: set_virtual_key 18 down true
  wait 2000
  0C72: set_virtual_key 18 down false
end 
end

:activ
0B12: 1@ = 1@ XOR 1
if 1@ == 1
then
  0AD1: "Script ALT ~G~ON" 1000
  3@ = 1
  0C74: 2@ = create_timer_interval 60000 on_label @timer
end
if 1@ == 0
then
  0AD1: "Script ALT ~R~OFF" 1000
  0C75: kill_timer 2@
end
cmdret

:timer
3@ = 1
cmdret

itsLegend · 18 Июн 2017

D.Harris написал(а):
В SF-консоле пишет, что commad already exist. Перевод знаю, но ошибку в коде не вижу(

Знаешь, но не понимаешь.
Это ошибка означает то, что команда уже зарегистрирована другим скриптом/плагином.

samp is meme · 18 Июн 2017

D.Harris написал(а):
Помогите пожалуйста. Суть клео: каждую минуту нажимает клавишу альт. Не крашит, но когда ввожу команду - ничего не происходит.
В SF-консоле пишет, что commad already exist. Перевод знаю, но ошибку в коде не вижу(

Код:

{$CLEO} 0000: if not 0@ = Samp.Base() then 0A93: end repeat wait 400 until Samp.Available() 0B34: samp register_client_command "alt" to_label @activ while true wait 0 if 3@ == 1 then 3@ = 0 0C72: set_virtual_key 18 down true wait 2000 0C72: set_virtual_key 18 down false end end :activ 0B12: 1@ = 1@ XOR 1 if 1@ == 1 then 0AD1: "Script ALT ~G~ON" 1000 3@ = 1 0C74: 2@ = create_timer_interval 60000 on_label @timer end if 1@ == 0 then 0AD1: "Script ALT ~R~OFF" 1000 0C75: kill_timer 2@ end cmdret :timer 3@ = 1 cmdret

зачем создавать таймер еси есть 32 и 33 переменная ежжи

serhiyrubin · 18 Июн 2017

arturkalis69 написал(а):
зачем создавать таймер еси есть 32 и 33 переменная ежжи

таймер сф мне ближе
Сделай с этими переменными, для примера если не сложно)

samp is meme · 18 Июн 2017

JackBanana написал(а):
таймер сф мне ближе
Сделай с этими переменными, для примера если не сложно)

Они считаю какждую миллисекунду. Еси их юзать, то перед отсчетом обнулять надо. Вот пример скрипта.

serhiyrubin · 18 Июн 2017

arturkalis69 написал(а):
Они считаю какждую миллисекунду. Еси их юзать, то перед отсчетом обнулять надо. Вот пример скрипта.

В афк будет работать не правильно

samp is meme · 18 Июн 2017

JackBanana написал(а):
В афк будет работать не правильно

Есть такое, вообще лучше на сф апи переходить с этого клео

Karbun · 18 Июн 2017

В чём ошибка? Код должен рендерить ближайший игроков и писать их id и никнеймы на экран

CLEO:

{$CLEO}
0000:

while not Samp.Available()
wait 100
end


0B34: samp register_client_command "players" to_label @players

0B6D: render 10@ = create_font "Arial" height 11 flags 5

while true
wait 0
if 22@ == 1
then
00A0: store_actor $PLAYER_ACTOR position_to 7@ 8@ 9@
for 0@ = 0 to 999
  if 0B23:  samp is_player_connected 0@
  then
  if
  0B20: samp 1@ = actor_handle_by_samp_player_id 0@
  then
  00A0: store_actor 1@ position_to 2@ 3@ 4@
  050A: 5@ = distance_between_XYZ 7@ 8@ 9@ and_XYZ 2@ 3@ 4@
  if
  5@ <= 200.0
  then
  0B36: samp 6@ = get_player_nickname 0@
  0B37: samp 1@ = get_player_color 0@
  0B5A: get_screen_resolution 20@ 21@
20@ /= 2
21@ /= 2
20@ -= 50
21@ -= 30
  0B6F: render font 10@ draw_text "%s[%d]" pos 20@ 21@ color 1@ 6@ 0@
  end
  end
  end
end
end
end

:players
0B12: 22@ = 22@ XOR 1
Samp.CmdRet()

Поиск

Поиск

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

serhiyrubin

Известный

SpawnPro

Новичок

kuleer

Участник

SpawnPro

Новичок

serhiyrubin

Известный

serhiyrubin

Известный

serhiyrubin

Известный

Вложения

D.Harris

Известный

itsLegend

Фонд борьбы за жуков 🐞

samp is meme

Активный

serhiyrubin

Известный

samp is meme

Активный

Вложения

serhiyrubin

Известный

samp is meme

Активный

Karbun

Участник

Похожие темы