|
[CLEO] Помощь по редактированию скриптов
|
|
| Кoт |
Дата: Суббота, 05.09.2015, 21:51 | Сообщение # 601
|
Сообщений: 1074
Статус: Offline
|
Цитата Yura_Nikolaev (  ) С диалогом такое прокатит?
нет
|
|
|
|
|
| _Kr1k_ |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 602
|
Любитель
Сообщений: 39
Статус: Offline
|
В чем ошибка?
Код
{$CLEO}
0000: NOP
while true
wait 0
if Actor.Driving($PLAYER_ACTOR)
then
0@ = Actor.CurrentCar($PLAYER_ACTOR)
01EA: 1@ = car 0@ max_passengers
if 1@ > 0
then
while Actor.Driving($PLAYER_ACTOR)
wait 0
if and
056E: car 0@ defined
Actor.InCar($PLAYER_ACTOR, 0@)
then
for 2@ = 1 to 1@ step 1
if 8431: car 0@ passenger_seat_busy 2@
then
0432: 3@ = get_actor_handle_from_car 0@ passenger_seat 2@
if 0ab1: call @MaxHealthPlayer 2 actor 3@ max_health 95
then
4@ = SAMP.GetSAMPPlayerIDByActorHandle(3@)
0af9: say "/heal %d 1" 4@
wait 3000
break
end
end
end
end
end
end
end
end
:MaxHealthPlayer
2@ = Actor.Health(0@)
if 802D: 2@ <= 1@
then 0ab2: ret 0 1
end
0ab2: ret 0
Сообщение отредактировал _Kr1k_ - Пятница, 18.07.2014, 13:20 |
|
|
|
|
| Sashka |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 603
|
Боец
Сообщений: 175
Статус: Offline
|
Вот хотел сделать 3d текст над машиной.
Ввожу команду и игра намертво зависает. Помогает только Ctrl+Alt+Del. В чем ошибка?
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
thread "Name"
:Name_62
0B34: samp register_client_command "fake" to_label @Name_64
:Name_63
wait 1
jump @Name_63
:Name_64
wait 0
0B35: samp 0@ = get_last_command_params
0AD4: 3@ = scan_string 0@ format "%d" 2@
if
0AB0: key_pressed 77
jf @Name_64
0B44: samp 20@ = create_3d_text "fake" color 0x3399ff position 0.0 0.0 3.0 view_distance 150 show_behind_walls 1 attached_to_player -1 attached_to_vehicle 2@
wait 10000
0B45: samp destroy_3d_text 20@
:Name_204
0B43: samp cmd_ret |
|
|
|
|
| DubStep_ |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 604
|
{ }
Сообщений: 1406
Статус: Offline
|
Sashka, потому что в sampfuncs новый обработчик комманд, :1 wait 0 jump @1 < теперь будет зависать
|
|
|
|
|
| Кoт |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 605
|
Сообщений: 1074
Статус: Offline
|
Цитата Sashka ( ) Ввожу команду и игра намертво зависает. Помогает только Ctrl+Alt+Del. В чем ошибка?
попробуй
Код {$CLEO .cs}
0000:
wait 2000 // time loading
0B34: "fake" @cmd
WHILE TRUE
wait 0
if 1@ == true
then
0B44: samp 20@ = create_3d_text "fake" color 0x3399ff position 0.0 0.0 3.0 view_distance 150 show_behind_walls 1 attached_to_player -1 attached_to_vehicle 2@
repeat
wait 0
until 0ab0: 77
wait 10000
0B45: samp destroy_3d_text 20@
end
END
:cmd
1@ = true
0B35: samp 0@ = get_last_command_params
0AD4: 3@ = scan_string 0@ format "%d" 2@
cmdret
|
|
|
|
|
| Korol_Artur |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 606
|
Боец
Сообщений: 93
Статус: Offline
|
Может кто написать,как сделать,чтобы при нажатия клавиши (активации скрипта) выводился звук,а не сообщение. p.s. низкоуровневый код
|
|
|
|
|
| Sashka |
Дата: Суббота, 05.09.2015, 21:52 | Сообщение # 607
|
Боец
Сообщений: 175
Статус: Offline
|
Кoт, скомпилировал твой скрипт, ввожу команду, ничего не происходит. 
Цитата DubStep_ ( ) :1 wait 0 jump @1
Попробовал сделать по другому, без :1 wait 0 jump @1, всеравно зависает
|
|
|
|
|
| Korol_Artur |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 608
|
Боец
Сообщений: 93
Статус: Offline
|
Код :NONAME_121
0AB0: is_key_pressed 20
004D: goto_if_false @NONAME_143
0001: wait 0
018C: add_one_off_sound 0 0 0 sound 1052
0002: goto @NONAME_121
Вот тут очень быстро проигрывается звук,и даже клео как другое стоновится(гм) как пофиксить,хочу чтобы проигрался как бы одиночный звук,а не каждую мл.секунду.Помогите пожалуйста.
|
|
|
|
|
| CallBack |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 609
|
Любитель
Сообщений: 48
Статус: Offline
|
Korol_Artur, 018C: play_sound 1053 at 0.0 0.0 0.0
Код play_sound - проиграть звук
1053- id звука
0.0 0.0 0.0 - координаты где будет проигрываться звук ( лучше не менять )
если поменять на 0.0 3.0 0.0 , тогда звук играет перед игроком
если на 0.0 0.0 -9.0 , то звук играет под игроком
если -2.0 0.0 0.0 , то звук играет слева.
Сообщение отредактировал CallBack - Суббота, 19.07.2014, 00:20 |
|
|
|
|
| Korol_Artur |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 610
|
Боец
Сообщений: 93
Статус: Offline
|
Цитата CallBack ( ) Korol_Artur, 018C: play_sound 1053 at 0.0 0.0 0.0
Код
play_sound - проиграть звук
1053- id звука
0.0 0.0 0.0 - координаты где будет проигрываться звук ( лучше не менять )
если поменять на 0.0 3.0 0.0 , тогда звук играет перед игроком
если на 0.0 0.0 -9.0 , то звук играет под игроком
если -2.0 0.0 0.0 , то звук играет слева.
Так звук вообще не воспроизводится.
|
|
|
|
|
| Castiellll |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 611
|
Боец
Сообщений: 110
Статус: Offline
|
Цитата Korol_Artur ( ) Korol_Artur, 018C: play_sound 1053 at 0.0 0.0 0.0
Код
play_sound - проиграть звук
1053- id звука
0.0 0.0 0.0 - координаты где будет проигрываться звук ( лучше не менять )
если поменять на 0.0 3.0 0.0 , тогда звук играет перед игроком
если на 0.0 0.0 -9.0 , то звук играет под игроком
если -2.0 0.0 0.0 , то звук играет слева.
Так звук вообще не воспроизводится.
Код {$VERSION 3.1.1000}
{$CLEO .cs}
//-------------MAIN---------------
thread "NONAME"
:NONAME_10
wait 0
if
0AB0: key_pressed 48
else_jump @NONAME_10
018C: play_sound 1053 at 0.0 0.0 0.0
jump @NONAME_10
Так звук работает
s
|
|
|
|
|
| _Kr1k_ |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 612
|
Любитель
Сообщений: 39
Статус: Offline
|
Цитата _Kr1k_ ( ) В чем ошибка?
Код
{$CLEO}
0000: NOP
while true
wait 0
if Actor.Driving($PLAYER_ACTOR)
then
0@ = Actor.CurrentCar($PLAYER_ACTOR)
01EA: 1@ = car 0@ max_passengers
if 1@ > 0
then
while Actor.Driving($PLAYER_ACTOR)
wait 0
if and
056E: car 0@ defined
Actor.InCar($PLAYER_ACTOR, 0@)
then
for 2@ = 1 to 1@ step 1
if 8431: car 0@ passenger_seat_busy 2@
then
0432: 3@ = get_actor_handle_from_car 0@ passenger_seat 2@
if 0ab1: call @MaxHealthPlayer 2 actor 3@ max_health 95
then
4@ = SAMP.GetSAMPPlayerIDByActorHandle(3@)
0af9: say "/heal %d 1" 4@
wait 3000
break
end
end
end
end
end
end
end
end
:MaxHealthPlayer
2@ = Actor.Health(0@)
if 802D: 2@ <= 1@
then 0ab2: ret 0 1
end
0ab2: ret 0
Все еще жду ответа.
|
|
|
|
|
| RAKSHA1337 |
Дата: Суббота, 05.09.2015, 21:53 | Сообщение # 613
|
Советник
Сообщений: 784
Статус: Offline
|
_Kr1k_, да вродебы всё правильно, а какие проблемы?
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
|
|
|
|
|
| Toplivo |
Дата: Суббота, 05.09.2015, 21:54 | Сообщение # 614
|
Советник
Сообщений: 728
Статус: Offline
|
Код :MaxHealthPlayer
2@ = Actor.Health(0@)
if 802D: 2@ <= 1@
then 0485: return_true
else 059A: return_false
end
Дурак дает,умный берет.
Сообщение отредактировал Toplivo - Понедельник, 21.07.2014, 08:47 |
|
|
|
|
| Badduh |
Дата: Суббота, 05.09.2015, 21:54 | Сообщение # 615
|
Любитель
Сообщений: 31
Статус: Offline
|
Код {$CLEO .cs}
0000: NOP
03F0: enable_text_draw 1
:0
wait 0
if
Samp.Available()
jf @0
0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
03E4: set_text_draw_align_right 1
033F: set_text_draw_letter_size 0.33 0.6
081C: draw_text_outline 2 RGBA 0 0 0 0
0340: set_text_draw_RGBA 255 255 255 255
045A: draw_text_1number 95.0 325.0 GXT 'NUMBER' number 0@
jump @0
Проблема: крашит у некоторых людей. Конкретно у меня всё работает на отлично. В чём может быть проблема?
|
|
|
|
|
