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

[Nexus] · 9 Авг 2015

Всем привет. Нужно вот по типу скрипта ниже только чтоб еще плюсом был не только /reagle но еще и /rpistol

Код:

{$CLEO}
0000:
0662: "by Niko_Belic"
repeat
     wait 0
until Samp.Available()
0B34: samp register_client_command "reagle" to_label @reagle  

while true
     if
     30@ == 1
     then
         for 0@ = 0 to 1000 
             if
             0B20: samp 1@ = actor_handle_by_samp_player_id 0@
             then
                 04C4: store_coords_to 2@ 3@ 4@ from_actor 1@ with_offset 0.0 0.0 0.0
                 04C4: store_coords_to 5@ 6@ 7@ from_actor $3 with_offset 0.0 0.0 0.0
                 0509: 8@ = distance_between_XY 2@ 3@ and_XY 5@ 6@
                 0092: 8@ = float 8@ to_integer
                 if
                 801d: not 8@ > 11@
                 then
                     0af9: "/sellgun %d eagle" 0@
                 end
             end
         end
         30@ = 0
     end
wait 0
end
:reagle
0B35: samp 10@ = get_last_command_params
if
0ad4: 10@ 10@ "%d" 11@
     then
     30@ = 1
     else
     0af8: "Введите: /reagle [радиус]" 0xAAAAAA
end
Samp.CmdRet()

itsLegend · 9 Авг 2015

AW_Rage написал(а):
Снова что-то не так. Снова при активации данной части кода, камера мгновенно перемещается в то место, когда запускается самп и начинает все мерцать, экран темнеет и появляются разные надписи. Что я снова сделал не так.

Я ж тебе говорил насчет тех переменных, которые ты возвращаешь из функции.

AWRage · 9 Авг 2015

legend2360 написал(а):
Я ж тебе говорил насчет тех переменных, которые ты возвращаешь из функции.

Я думал ты не мне :с
спасибо!

hnnssy · 9 Авг 2015

KYRLYK написал(а):

Решил по уроку legend2360 сделать скрипт, типа что по вводу команды /gravity 'гравитация' устанавливалась гравитация. Но чёт не так.

Код:

{$CLEO .cs}
{$NOSOURCE}
{$INCLUDE SF}
0001: wait 0 ms
00D6: if
8AF7:   not samp 33@ = get_base
004D: jump_if_false @Noname_22
0A93: end_custom_thread

:Noname_22
0001: wait 400 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_22
0B34: samp register_client_command "gravity" to_label @Noname_96

:Noname_52
0001: wait 0 ms
00D6: if
0039:   29@ == 1
004D: jump_if_false @Noname_89
0AF9: samp say_msg "%s" 3@
0001: wait 2@ ms

:Noname_89
0002: jump @Noname_52

:Noname_96
0B35: samp 0@ = get_last_command_params
00D6: if
0AD4: 0@ = scan_string 0@ format "%d" 1@ 2@
004D: jump_if_false @Noname_146
0A8C: write_memory 8796548 size 4 value "%d" virtual_protect 1

:Noname_146
0B43: samp cmd_ret
00D6: if
0C18: 1@ = strstr string1 0@ string2 "info"
004D: jump_if_false @Noname_234
0C18: 3@ = strstr string1 0@ string2 "info"
000A: 3@ += 5
0A8D: 20@ = read_memory 8796548 size 4 virtual_protect 1
0AF8: samp add_message_to_chat "Gravity: %s" color 16776960 3@
0B43: samp cmd_ret

:Noname_234
00D6: if
0039:   29@ == 0
004D: jump_if_false @Noname_266
0006: 29@ = 1
0002: jump @Noname_273

:Noname_266
0006: 29@ = 0

:Noname_273
0AF8: samp add_message_to_chat "Main cmd, status: %d" color 16776960 29@
0B43: samp cmd_ret

а чё, декомпилы кидать модно? или это ты так кодишь?

hnnssy · 9 Авг 2015

[Nexus] написал(а):

Всем привет. Нужно вот по типу скрипта ниже только чтоб еще плюсом был не только /reagle но еще и /rpistol

Код:

{$CLEO}
0000:
0662: "by Niko_Belic"
repeat
     wait 0
until Samp.Available()
0B34: samp register_client_command "reagle" to_label @reagle 

while true
     if
     30@ == 1
     then
         for 0@ = 0 to 1000
             if
             0B20: samp 1@ = actor_handle_by_samp_player_id 0@
             then
                 04C4: store_coords_to 2@ 3@ 4@ from_actor 1@ with_offset 0.0 0.0 0.0
                 04C4: store_coords_to 5@ 6@ 7@ from_actor $3 with_offset 0.0 0.0 0.0
                 0509: 8@ = distance_between_XY 2@ 3@ and_XY 5@ 6@
                 0092: 8@ = float 8@ to_integer
                 if
                 801d: not 8@ > 11@
                 then
                     0af9: "/sellgun %d eagle" 0@
                 end
             end
         end
         30@ = 0
     end
wait 0
end
:reagle
0B35: samp 10@ = get_last_command_params
if
0ad4: 10@ 10@ "%d" 11@
     then
     30@ = 1
     else
     0af8: "Введите: /reagle [радиус]" 0xAAAAAA
end
Samp.CmdRet()

Код:

{$CLEO}
0000:
0662: "by Niko_Belic"
repeat
     wait 0
until Samp.Available()
0B34: samp register_client_command "reagle" to_label @reagle 
0B34: samp register_client_command "rpistol" to_label @rpistol

while true
    
if
     30@ == 1
     then
         for 0@ = 0 to 1000
             if
             0B20: samp 1@ = actor_handle_by_samp_player_id 0@
             then
                 04C4: store_coords_to 2@ 3@ 4@ from_actor 1@ with_offset 0.0 0.0 0.0
                 04C4: store_coords_to 5@ 6@ 7@ from_actor $3 with_offset 0.0 0.0 0.0
                 0509: 8@ = distance_between_XY 2@ 3@ and_XY 5@ 6@
                 0092: 8@ = float 8@ to_integer
                 if
                 801d: not 8@ > 11@
                 then
                     0af9: "/sellgun %d eagle" 0@
                 end
             end
         end
         30@ = 0
     end
     if
     31@ == 1
     then
         for 0@ = 0 to 1000
             if
             0B20: samp 1@ = actor_handle_by_samp_player_id 0@
             then
                 04C4: store_coords_to 2@ 3@ 4@ from_actor 1@ with_offset 0.0 0.0 0.0
                 04C4: store_coords_to 5@ 6@ 7@ from_actor $3 with_offset 0.0 0.0 0.0
                 0509: 8@ = distance_between_XY 2@ 3@ and_XY 5@ 6@
                 0092: 8@ = float 8@ to_integer
                 if
                 801d: not 8@ > 11@
                 then
                     0af9: "/sellgun %d pistol" 0@
                 end
             end
         end
         31@ = 0
     end
wait 0
end

:reagle
0B35: samp 10@ = get_last_command_params
if
0ad4: 10@ 10@ "%d" 11@
     then
     30@ = 1
     else
     0af8: "Введите: /reagle [радиус]" 0xAAAAAA
end
Samp.CmdRet()

:rpistol
0B35: samp 10@ = get_last_command_params
if
0ad4: 10@ 10@ "%d" 11@
     then
     31@ = 1
     else
     0af8: "Введите: /rpistol [радиус]" 0xAAAAAA
end
Samp.CmdRet()

hnnssy · 10 Авг 2015

KYRLYK написал(а):
Я сначала скомпилировал, зашел в игру, протестил, вышел из игры, зашел заново в скрипт, а там уже названия меток другие. Вот так вот.

Потому что нужно открывать не скомпилированный скрипт, а исходник, он в .txt сохраняется. Хотя, подсказывает мне моё чутьё, что в твоём исходнике подобный хлам.

fiendshadow · 10 Авг 2015

ни

Madera написал(а):

Код:

  {$CLEO}
{$INCLUDE SF}
{$NOSOURCE}
 
0001: wait 0 ms
 
repeat
  wait 400
until 0AFA:  is_samp_available

0b34: "get" @loer

while true
wait 0
if
  0@ == 1
then
  0B35: samp 1@ = get_last_command_params
  if
  0AD4: 2@ = scan_string 1@ format "%d" 3@
  then
  if
  0B23: samp is_player_connected 3@
  then
  if
  8B5C:  samp is_player 3@ paused
  then
  0B20: samp 13@ = actor_handle_by_samp_player_id 3@
  04C4: store_coords_to 4@ 5@ 6@ from_actor 13@ with_offset 0.0 0.0 -1.0
  0@ = 0
  while not Actor.Dead(13@)
  wait 0
  0ab1: @z 3 4@ 5@ 6@
  end
0@ = 0
  else
  0af8: "Æåðòâà â ÀÔÊ" color -12211
  0@ = 0
end
  else
  0af8: "Æåðòâû íå ñóùåñòâóåò/âíå çîíû ïðîðèñîâêè" color -99999
  0@ = 0
end
  else
  0af8: "get [id èãðîêà] " color -48101
  0@ = 0
end
  end 
  end


:loer
0@ = 1
0b43:




 
 
  :z
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0AC8: 4@ = allocate_memory_size 63
0BBB: samp store_player 3@ incar_data 4@
0C0D: struct 4@ offset 36 size 4 = 100.0
0C0D: struct 4@ offset 40 size 4 = 100.0
0C0D: struct 4@ offset 44 size 4 = 100.0
0BC1: samp send_incar_data 4@
0AC9: free_allocated_memory 4@
0AB2: ret 0

Почему не работает фэйк-скорость?

ничего что у тебя условие стоит что самп на паузе ?

fiendshadow · 10 Авг 2015

KYRLYK написал(а):
0B5C: samp is_player 1@ paused
Проверяет, находится ли игрок в паузе

Это условие что игрок на паузе, а не самп.

Да какая разница, там стоит условие, что, если игрок на паузе - скрипт идет дальше.

itsLegend · 10 Авг 2015

if
8B5C: samp is_player 3@ paused

C&J · 10 Авг 2015

Здравствуйте,есть ли опкод который изменяет в TAB score(lvl) игрока?

DarkP1xel · 10 Авг 2015

Jeffwood написал(а):
Здравствуйте,есть ли опкод который изменяет в TAB score(lvl) игрока?

Нет.

Vovich · 10 Авг 2015

Почему не выходит сделать пробелы в названии диалога?

Код:

 0ad3: 1@ = format "%c%c%cПроверка" 9 9 9
  0B3B: samp show_dialog id 2332 caption 1@ text 7@ button_1 "OK" button_2 "" style 0

san0 · 10 Авг 2015

#Skywalker написал(а):
Почему не выходит сделать пробелы в названии диалога?

Код:

0ad3: 1@ = format "%c%c%cПроверка" 9 9 9 0B3B: samp show_dialog id 2332 caption 1@ text 7@ button_1 "OK" button_2 "" style 0

вроде всегда пробел был 0x20, проверь
https://ru.wikipedia.org/wiki/Пробел

Vovich · 10 Авг 2015

san0 написал(а):
вроде всегда пробел был 0x20, проверь
https://ru.wikipedia.org/wiki/Пробел

Работет, то пробел еще и "9" тоже :)
Но на 9 он более масштабный.

SR_team · 11 Авг 2015

#Skywalker написал(а):
на 9 он более масштабный.

это табуляция называется

Поиск

Поиск

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

[Nexus]

Известный

itsLegend

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

AWRage

Активный

hnnssy

Известный

hnnssy

Известный

hnnssy

Известный

fiendshadow

3LFhocV726q7pKWWky2vv3W38Dm9sGJV86

fiendshadow

3LFhocV726q7pKWWky2vv3W38Dm9sGJV86

itsLegend

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

C&J

Известный

DarkP1xel

Сила воли наше всё.

Vovich

HOT

san0

Известный

Vovich

HOT

SR_team

like pancake

Похожие темы