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

D

dino.

Новичок
5
0
kolya29 написал(а):
справа от иконки gta, значок, нажми на него и выбери IGNORE_UNKNOWN
WuKdMShK.png
Нажмите для раскрытия...

Ооо! спасибо большое
 
E

Enjoy

Новичок
Проверенный
164
11
Че не так сделал посаны?
Изначально тпшило на координату, а теперь нет.
Код: 
{$CLEO}
{$INCLUDE includes\raknetdefines.txt}
thread 'Sliv formi'
 
if not 0@ = SAMP.Base()
then 0a93: end_custom_thread
end
 
while not SAMP.Available()
wait 400
end
 
while true
wait 400
 
if and
Actor.Model($PLAYER_ACTOR) == #WMYVA2
00FE: actor $PLAYER_ACTOR sphere 0 in_sphere 240.43 1854.75 8.76 radius 15.0 15.0 15.0
then
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
Actor.PutAt($PLAYER_ACTOR, 240.43, 1854.75, -10.0)
0af9: samp say_msg "/clist 0"
wait 400
end
end
 
E

Enjoy

Новичок
Проверенный
164
11
Ну как правильно тогда?
Я хз в общем. Что-то, наверное, с самим циклом, если бы с тп, то тогда бы клист офался, но даже и он не работает.
 
D

dino.

Новичок
5
0
Всем привет, вот решил изменить активацию в Cleo. изменил,решил сохранить выходит такая ошибка.
SjAHRTvPPh8.jpg

Помогите пацаны. от души
 
O

OtherWeather

Новичок
39
2
PHP: 
wait 0
while true
wait 0
    0ac8: 0@ = 64
    0ac8: 2@ = 256
    0ac8: 3@ = 0
    0B75: samp get_chat_string 98 text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@
wait 0
if 0C18: 0@ strstr string1 2@ string2 "Текст"
then
    wait 300
    0AF9: samp say_msg "/s Текст1"
    wait 1500
    0AF9: samp say_msg "/s Alo"
end
    0ac9: 0@
    0ac9: 2@
    0ac9: 3@
end

Как сделать так, чтобы сразу после обнаружения текста скрипт писал в чат текст?
А то пример, что выше работает(пишет в чат) только после ввода какой-либо команды сервера.
 
Lightkiller

Lightkiller

Известный
Всефорумный модератор
557
400
OtherWeather написал(а):
PHP: 
wait 0
while true
wait 0
    0ac8: 0@ = 64
    0ac8: 2@ = 256
    0ac8: 3@ = 0
    0B75: samp get_chat_string 98 text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@
wait 0
if 0C18: 0@ strstr string1 2@ string2 "Текст"
then
    wait 300
    0AF9: samp say_msg "/s Текст1"
    wait 1500
    0AF9: samp say_msg "/s Alo"
end
    0ac9: 0@
    0ac9: 2@
    0ac9: 3@
end

Как сделать так, чтобы сразу после обнаружения текста скрипт писал в чат текст?
А то пример, что выше работает(пишет в чат) только после ввода какой-либо команды сервера.
Нажмите для раскрытия...

если сразу, убери задержку, wait
 
SR_team

SR_team

like pancake
BH Team
4,815
6,515
OtherWeather написал(а):
PHP: 
wait 0
while true
wait 0
    0ac8: 0@ = 64
    0ac8: 2@ = 256
    0ac8: 3@ = 0
    0B75: samp get_chat_string 98 text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@
wait 0
if 0C18: 0@ strstr string1 2@ string2 "Текст"
then
    wait 300
    0AF9: samp say_msg "/s Текст1"
    wait 1500
    0AF9: samp say_msg "/s Alo"
end
    0ac9: 0@
    0ac9: 2@
    0ac9: 3@
end

Как сделать так, чтобы сразу после обнаружения текста скрипт писал в чат текст?
А то пример, что выше работает(пишет в чат) только после ввода какой-либо команды сервера.
Нажмите для раскрытия...


PHP: 
    0ac8: 2@ = 144
    0ac8: 3@ = 26
while true
wait 0
    0B75: samp get_chat_string 99 text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@
if 0C18: 0@ strstr string1 2@ string2 "Текст"
then
    wait 300
    0AF9: samp say_msg "/s Текст1"
    wait 1500
    0AF9: samp say_msg "/s Alo"
end
end
 
E

Enjoy

Новичок
Проверенный
164
11
Сложно ли делать визуальную смену ника, score и по возможности ping?
Короч хелпаните чем-нибудь, пока не имею никакого представления как это пилить.
 
itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,469
Enjoy написал(а):
Сложно ли делать визуальную смену ника, score и по возможности ping?
Короч хелпаните чем-нибудь, пока не имею никакого представления как это пилить.
Нажмите для раскрытия...

Занопить обновление пингов или всё время перезаписывать его.
Смена ника делается через пару опкодов.
Очки так же меняются, как и пинг, через структуру удаленного игрока.
 
S

Sensation

Известный
59
0
Нужна помощь. Необходимо вырезать всё кроме показа id, и сделать активацию на /dl1. Что должно получиться:
02ac8c37ec2d.png

Исходник (тема):
Код: 
{$CLEO .cs}
{$Include includes\RakNetDefines.txt}
thread "NewDL"
wait 2700
msg "[IdHandle]: {FFFFFF}Author {FF4444}SR_team{FFFFFF}." 0x4444FF
cmd "dl" @Vkl
0006: 10@ = 30
29@ = Render.CreateFont("Tahoma", 7, 4)
:Label22
0001: wait 0 ms
068D: get_camera_position_to 14@ 15@ 16@
if and
31@ == 1
0AE2: 0@ = random_vehicle_near_point 14@ 15@ 16@ in_radius 3600.0 find_next 0 pass_wrecked 1
004D: jump_if_false @Label75
0227: 8@ = car 0@ health
0441: 21@ = car 0@ model
09B3: get_car_door_lock_status 0@ store_to 22@
00AA: store_car 0@ position_to 3@ 4@ 5@
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 6@ 7@
0B2C: samp 2@ = get_vehicle_id_by_car_handle 0@
if and
06BD: no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 0 car 0 actor 0 object 0 particle 0
02CA: car 0@ bounding_sphere_visible
00C2: sphere_onscreen 3@ 4@ 5@ radius 0.0
01AF: car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 25.0 25.0 12.5
then
0ac8: 17@ = 256
0ac8: 18@ = 256
0ac8: 19@ = 256
0ac8: 20@ = 256
format 17@ = "Id: {FFFFFF}%d" 2@
3@ = Render.FontDrawLength(29@, 17@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 20
Render.DrawText(29@, 17@, 12@, 13@, 0xFF44FF44)
format 19@ = "Model: {888888}%d" 21@
3@ = Render.FontDrawLength(29@, 19@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 10
Render.DrawText(29@, 19@, 12@, 13@, 0xFFFF44FF)
if 8@ >= 800
then format 18@ = "Health: {88FF88}%d" 8@
end
if and
8@ < 800
8@ >= 500
then format 18@ = "Health: {F0E68C}%d" 8@
end
if 8@ < 500
then format 18@ = "Health: {FF8888}%d" 8@
end
3@ = Render.FontDrawLength(29@, 18@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 0
Render.DrawText(29@, 18@, 12@, 13@, 0xFFAAAAFF)
if 22@ == 0
then format 20@ = "Doors: {AAFFAA}open"
else format 20@ = "Doors: {FFAAAA}closed"
end
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 10
Render.DrawText(29@, 20@, 12@, 13@, 0xFF6655FF)
0ac9: 17@
0ac9: 18@
0ac9: 19@
0ac9: 20@
else
if and
06BD: no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 1 car 0 actor 0 object 1 particle 0
02CA: car 0@ bounding_sphere_visible
00C2: sphere_onscreen 3@ 4@ 5@ radius 0.0
01AF: car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 100.0 100.0 50.0
then
0ac8: 17@ = 256
0ac8: 18@ = 256
0ac8: 19@ = 256
0ac8: 20@ = 256
format 17@ = "Id: {FFFFFF}%d" 2@
3@ = Render.FontDrawLength(29@, 17@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 20
Render.DrawText(29@, 17@, 12@, 13@, 0xFF44FF44)
format 19@ = "Model: {888888}%d" 21@
3@ = Render.FontDrawLength(29@, 19@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 10
Render.DrawText(29@, 19@, 12@, 13@, 0xFFFF44FF)
if 8@ >= 800
then format 18@ = "Health: {88FF88}%d" 8@
end
if and
8@ < 800
8@ >= 500
then format 18@ = "Health: {F0E68C}%d" 8@
end
if 8@ < 500
then format 18@ = "Health: {FF8888}%d" 8@
end
3@ = Render.FontDrawLength(29@, 18@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 0
Render.DrawText(29@, 18@, 12@, 13@, 0xFFAAAAFF)
if 22@ == 0
then format 20@ = "Doors: {AAFFAA}open"
else format 20@ = "Doors: {FFAAAA}closed"
end
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 10
Render.DrawText(29@, 20@, 12@, 13@, 0xFF6655FF)
0ac9: 17@
0ac9: 18@
0ac9: 19@
0ac9: 20@
end
end
:Label75
068D: get_camera_position_to 14@ 15@ 16@
if and
31@ == 1
0AE2: 0@ = random_vehicle_near_point 14@ 15@ 16@ in_radius 3600.0 find_next 1 pass_wrecked 1
004D: jump_if_false @Label22
0227: 8@ = car 0@ health
0441: 21@ = car 0@ model
09B3: get_car_door_lock_status 0@ store_to 22@
00AA: store_car 0@ position_to 3@ 4@ 5@
0B55: convert_3D_coords 3@ 4@ 5@ to_screen 6@ 7@
0B2C: samp 2@ = get_vehicle_id_by_car_handle 0@
if and
06BD: no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 0 car 0 actor 0 object 0 particle 0
02CA: car 0@ bounding_sphere_visible
00C2: sphere_onscreen 3@ 4@ 5@ radius 0.0
01AF: car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 25.0 25.0 12.5
then
0ac8: 17@ = 256
0ac8: 18@ = 256
0ac8: 19@ = 256
0ac8: 20@ = 256
format 17@ = "Id: {FFFFFF}%d" 2@
3@ = Render.FontDrawLength(29@, 17@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 20
Render.DrawText(29@, 17@, 12@, 13@, 0xFF44FF44)
format 19@ = "Model: {888888}%d" 21@
3@ = Render.FontDrawLength(29@, 19@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 10
Render.DrawText(29@, 19@, 12@, 13@, 0xFFFF44FF)
if 8@ >= 800
then format 18@ = "Health: {88FF88}%d" 8@
end
if and
8@ < 800
8@ >= 500
then format 18@ = "Health: {F0E68C}%d" 8@
end
if 8@ < 500
then format 18@ = "Health: {FF8888}%d" 8@
end
3@ = Render.FontDrawLength(29@, 18@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 0
Render.DrawText(29@, 18@, 12@, 13@, 0xFFAAAAFF)
if 22@ == 0
then format 20@ = "Doors: {AAFFAA}open"
else format 20@ = "Doors: {FFAAAA}closed"
end
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 10
Render.DrawText(29@, 20@, 12@, 13@, 0xFF6655FF)
0ac9: 17@
0ac9: 18@
0ac9: 19@
0ac9: 20@
else
if and
06BD: no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 1 car 0 actor 0 object 1 particle 0
02CA: car 0@ bounding_sphere_visible
00C2: sphere_onscreen 3@ 4@ 5@ radius 0.0
01AF: car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 100.0 100.0 50.0
then
0ac8: 17@ = 256
0ac8: 18@ = 256
0ac8: 19@ = 256
0ac8: 20@ = 256
format 17@ = "Id: {FFFFFF}%d" 2@
3@ = Render.FontDrawLength(29@, 17@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 20
Render.DrawText(29@, 17@, 12@, 13@, 0xFF44FF44)
format 19@ = "Model: {888888}%d" 21@
3@ = Render.FontDrawLength(29@, 19@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 10
Render.DrawText(29@, 19@, 12@, 13@, 0xFFFF44FF)
if 8@ >= 800
then format 18@ = "Health: {88FF88}%d" 8@
end
if and
8@ < 800
8@ >= 500
then format 18@ = "Health: {F0E68C}%d" 8@
end
if 8@ < 500
then format 18@ = "Health: {FF8888}%d" 8@
end
3@ = Render.FontDrawLength(29@, 18@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 0
Render.DrawText(29@, 18@, 12@, 13@, 0xFFAAAAFF)
if 22@ == 0
then format 20@ = "Doors: {AAFFAA}open"
else format 20@ = "Doors: {FFAAAA}closed"
end
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 10
Render.DrawText(29@, 20@, 12@, 13@, 0xFF6655FF)
0ac9: 17@
0ac9: 18@
0ac9: 19@
0ac9: 20@
end
end
0002: jump @Label75
:Vkl
0b12: 31@ = 31@ XOR 1
if 31@ == 1
then
msg "[IdHandle]: {44FF44}Enable" 0x4444FF
0DBA: 11@ = new_cleo_thread from_label @Label11
else
msg "[IdHandle]: {FF4444}Disable" 0x4444FF
0DBD: exit_thread 11@
end
cmdret
 
:Label11
0001: wait 0
0006: 9@ = 0
0006: 32@ = 0
 
:Label29
0001: wait 0
000A: 9@ += 1
03F0: enable_text_draw 1
0349: set_text_draw_font 1
033F: set_text_draw_letter_size 0.25 1.05
0340: set_text_draw_RGBA 96 255 96 255
045A: draw_text_1number 0.75 1.0 GXT 'NUMBER' number 10@ // ~1~
00D6: if
0019: 32@ > 999
004D: jump_if_false @Label29
03F0: enable_text_draw 1
0349: set_text_draw_font 1
033F: set_text_draw_letter_size 0.25 1.05
0340: set_text_draw_RGBA 96 255 96 255
045A: draw_text_1number 0.75 1.0 GXT 'NUMBER' number 9@ // ~1~
0085: 10@ = 9@ // (int)
0002: jump @Label11
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    25
    Просмотры
    4K
    Общение
    Арсений Пиво
    Арсений Пиво
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    21K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    55
    Просмотры
    11K
    Общение
    nikusyaxxs
    nikusyaxxs
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    4K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу