|
[CLEO] Помощь по редактированию скриптов
|
|
| DokerGT |
Дата: Понедельник, 08.02.2016, 20:56 | Сообщение # 961
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
iYounger, получать параметры команды нужно в теле команды.
Перемести
Код
0B35: samp 2@ = get_last_command_params
В тело команды.
Также замени переменные 4@, 5@, 6@ на 4@v, 5@v, 6@v.
Сообщение отредактировал DokerGT - Понедельник, 08.02.2016, 21:01 |
|
|
|
|
| tema90771 |
Дата: Вторник, 09.02.2016, 16:02 | Сообщение # 962
|
Новичок
Сообщений: 3
Статус: Offline
|
Цитата Ну или вот еще пример.
Пишем в чат /doc ID
А нам выдает так:
/pass ID
wait 1000
/lic ID
wait 1000
/skill 1000
Код
{$CLEO}
0000: NOP
repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "doc" to_label @228
While true
wait 0
if 7@ == true
then
0AF9: "/pass %d" 5@
wait 1000
0AF9: "/lic %d" 5@
wait 1000
0AF9: "/skill %d" 5@ // Тут я не понял, тебе нужно /skill 1000 или /skill [id]? Если что-то тут не так, то просто исправь.
7@ = false
end
END
:228
0B35: samp 4@ = get_last_command_params
0AD4: 3@ = scan_string 4@ format "%d" 5@
7@ = true
SAMP.CmdRet()
|
|
|
|
|
| getto371 |
Дата: Воскресенье, 14.02.2016, 12:49 | Сообщение # 963
|
Новичок
Сообщений: 28
Статус: Offline
|
1)На просторах интернета нашел простенький тайминг для дальнобойщиков. Активируется на "1"+"2" ,может кто подделать чтобы он включался когда вводим фразу "/tload" и "/tunload" ,и чтобы если идет тайминг,при повторном вводе фразы ,он начинал отсчет заново.
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
[color=red]Оригинал[/color]
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
:NONAME_2
wait 0
if 1
0AB0: key_pressed 49
0AB0: key_pressed 50
else_jump @NONAME_2
0@ = 60
1@ = 2
:NONAME_39
wait 0
0@ -= 1
0AD1: show_formatted_text_highpriority "DT - %d:%d" time 1000 1@ 0@
wait 1000
if
0@ == 0
else_jump @NONAME_39
0@ = 60
1@ -= 1
if
1@ == -1
else_jump @NONAME_39
jump @NONAME_2
Что я сделал,не работает,крашит
Код {$CLEO .cs}
//-------------MAIN---------------
0000: NOP
:NONAME_2
:Start
wait 0
Samp.Available
jf @Start
0B34: samp register_client_command "tload" to_label @NONAME_2
0@ = 60
1@ = 2
While true
wait 0
end
:NONAME_39
wait 0
0@ -= 1
printf "DT - %d:%d" 1000 1@ 0@
wait 1000
if
0@ == 0
jf @NONAME_39
0@ = 60
1@ -= 1
if
1@ == -1
jf @NONAME_39
goto @NONAME_2
2)Совместил два скрипта на НР и броню персонажа и на НР машины.Вроде все работает,но почему то цифры мерцают,может кто знает ,что куда воткнуть или удалить ;D
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
:NONAME_26
wait 0
if
Player.Defined($PLAYER_CHAR)
jf @NONAME_510
if
Actor.Driving($PLAYER_ACTOR)
jf @NONAME_510
10@ = Actor.CurrentCar($PLAYER_ACTOR)
0@ = Car.Health(10@)
03E4: set_text_draw_align_right 1
033F: set_text_draw_letter_size 0.4 0.9
0340: set_text_draw_RGBA 255 255 0 255
081C: draw_text_outline 1 RGBA 0 0 0 255
045A: draw_text_1number 631.0 55.0 GXT 'NUMBER' number 0@ // ~1~
0093: 0@ = integer 0@ to_float
0@ -= 250.0
if
not 0@ >= 0.0
jf @NONAME_194
0@ = 0.0
:NONAME_194
if
0@ >= 750.0
jf @NONAME_225
0@ = 749.9
:NONAME_225
0087: 3@ = 0@ // (float)
3@ /= 750.0
3@ *= 58.0
0087: 2@ = 3@ // (float)
2@ /= 2.0
2@ += 547.6
0@ /= 2.941176
0092: 7@ = float 0@ to_integer
if
7@ > 127
jf @NONAME_354
8@ = 255
7@ -= 127
7@ *= -2
7@ += 255
jump @NONAME_377
:NONAME_354
0085: 8@ = 7@ // (int)
8@ *= 2
7@ = 255
:NONAME_377
0085: 5@ = 7@ // (int)
0085: 6@ = 8@ // (int)
5@ *= 0.5
6@ *= 0.5
03F0: enable_text_draw 1
038E: draw_box_position 576.6 60.0 size 62.0 8.0 RGBA 0 0 0 255
038E: draw_box_position 576.6 60.0 size 58.0 5.1 RGBA 5@ 6@ 0 255
038E: draw_box_position 2@ 60.0 size 3@ 5.0 RGBA 7@ 8@ 0 255
:NONAME_510
jump @NONAME_6
:NONAME_6
wait 0
0@ = Actor.Health($PLAYER_ACTOR)
03F0: enable_text_draw 1
03E4: set_text_draw_align_right 1
033F: set_text_draw_letter_size 0.4 0.9
0340: set_text_draw_RGBA 255 0 0 255
081C: draw_text_outline 1 RGBA 0 0 0 55
045A: draw_text_1number 631.0 65.7 GXT 'NUMBER' number 0@ // ~1~
04DD: 1@ = actor $PLAYER_ACTOR armour
if
1@ >= 2
jump @NONAME_115
jump @NONAME_6
:NONAME_115
03F0: enable_text_draw 1
03E4: set_text_draw_align_right 1
033F: set_text_draw_letter_size 0.4 0.9
0340: set_text_draw_RGBA 255 255 255 255
081C: draw_text_outline 1 RGBA 0 0 0 55
045A: draw_text_1number 631.0 44.3 GXT 'NUMBER' number 1@ // ~1~
jump @NONAME_26
Сообщение отредактировал getto371 - Воскресенье, 14.02.2016, 14:50 |
|
|
|
|
| EvolUtioN_VIII |
Дата: Среда, 24.02.2016, 10:50 | Сообщение # 964
|
Новичок
Сообщений: 29
Статус: Offline
|
Что не так в моем скрипте? Вроде все работает, если ввожу /cmd, пишет, что не введен id, если пишу /cmd 1, допустим, пишет, что не верный id. НО, если я введу верный id(тобишь номер телефона), то игру просто крашит и в конце chatlog'a пишет это:
Код [12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
[12:44:18] Используйте: /sms [номер телефона] [сообщение]
[12:44:18] Warning(s007): Exception 0xC0000005 at 0x0
В правильности написания номера я уверен. Тобишь скрипт добавляет какие-то числа, либо вовсе их не вставляет...
Вот сам мой cleo скрипт.
Код {$CLEO .cs}
0000:
repeat
wait 0
until SAMP.Available()
0B34: "cmd" @cmd
repeat
wait 0
if 0@ == true
Then
SAMP.IsCommandTyped(1@)
if 0AD4: 4@ = scan_string 1@ format "%d" 5@
Then
if and
5@ >= 100000
5@ < 999999
Then
0AF9: samp say_msg "/sms '%d' проверка"
0@ = false
else
0AF8: samp add_message_to_chat "Ошибка! Неверный id." color 0xFF0000
0@ = false
end
else
0AF8: "Ошибка! Не введен id." 0xFF0000
0@ = false
end
end
until false
:cmd
0@ = true
SAMP.CmdRet() |
|
|
|
|
| DokerGT |
Дата: Среда, 24.02.2016, 16:02 | Сообщение # 965
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Получать параметры команды нужно в теле команды.
|
|
|
|
|
| EvolUtioN_VIII |
Дата: Среда, 24.02.2016, 17:52 | Сообщение # 966
|
Новичок
Сообщений: 29
Статус: Offline
|
Вообще не помогло решить ситуацию.
Можешь мне это в код вписать? Имхо я ничего не понял.
|
|
|
|
|
| Кoт |
Дата: Среда, 24.02.2016, 20:09 | Сообщение # 967
|
Сообщений: 1074
Статус: Offline
|
Цитата EvolUtioN_VIII (  ) Вообще не помогло решить ситуацию.
Можешь мне это в код вписать? Имхо я ничего не понял.
Код {$CLEO .cs}
0000:
REPEAT
0001: wait 443
UNTIL 0AFA:
0B34: samp register_client_command "mycmd" to_label @cmd_mycmd
WHILE TRUE
wait 0
if 0@ == TRUE
then
0AF8: samp add_message_to_chat "Your number: [ {DD0000}%d {FFFFFF}]" color 0xFFFFFF 3@
end
0@ = FALSE
END
:cmd_mycmd
0B35: samp 1@ = get_last_command_params
0AD4: 2@ = scan_string 1@ format "%d" 3@
if and
0019: 2@ > -1
0019: 3@ > -1
then
0006: 0@ = TRUE
else
0AF8: samp add_message_to_chat "[ CLEO ] {DD0000}Error" color 0xFFFFFF
end
0B43: samp cmd_ret
|
|
|
|
|
| EvolUtioN_VIII |
Дата: Четверг, 25.02.2016, 10:14 | Сообщение # 968
|
Новичок
Сообщений: 29
Статус: Offline
|
Кoт, огромное спасибо!) Заработало) Сегодня рассмотрю код, надеюсь, что больше у меня таких проблем не будет:D
|
|
|
|
|
| Barraul |
Дата: Воскресенье, 06.03.2016, 01:39 | Сообщение # 969
|
Новичок
Сообщений: 21
Статус: Offline
|
Код // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
0001: wait 1337 ms
0B34: samp register_client_command "fd" to_label @Noname_160
:Noname_18
0001: wait 0 ms
00D6: if
0039: 0@ == 1
004D: jump_if_false @Noname_146
0B36: samp 6@ = get_player_nickname 3@
0AF8: samp add_message_to_chat " Бандит %s предложил(а) вам %d граммов за %d вирт. (/ac)cept drugs чтобы купить" color 7055359 6@ 5@ 4@
:Noname_146
0006: 0@ = 0
0002: jump @Noname_18
:Noname_160
0006: 0@ = 1
0B35: samp 1@ = get_last_command_params
0AD4: 2@ = scan_string 1@ format "%d%d%d" 3@ 5@ 4@
0B43: samp cmd_ret
Фейк чат
Нужно сделать так как на этом скрине - 
Никак не получаеться сделать после слова "Вирт." __ 2 пробела далее " " никак не могу сделать , должно быть с ковычками.
Когда то давно Кот делал подобное для меня , но увы потерял
|
|
|
|
|
| DokerGT |
Дата: Воскресенье, 06.03.2016, 13:48 | Сообщение # 970
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Barraul, чтобы использовать кавычки в тексте, ставь обратный слэш перед ними.
Код
0AF8: samp add_message_to_chat " Бандит %s предложил(а) вам %d граммов за %d вирт. \"(/ac)cept drugs\" чтобы купить" color 7055359 6@
|
|
|
|
|
| Barraul |
Дата: Воскресенье, 06.03.2016, 19:21 | Сообщение # 971
|
Новичок
Сообщений: 21
Статус: Offline
|
Ага это я понял , получилось но вот осталось 3 прбела идёт
Код вирт. "(/ac)cept drugs"
Не могу сделать , в игре выдаёт 1 пробел
|
|
|
|
|
| Кoт |
Дата: Воскресенье, 06.03.2016, 23:11 | Сообщение # 972
|
Сообщений: 1074
Статус: Offline
|
Цитата Barraul ( ) Когда то давно Кот делал подобное для меня , но увы потерял
Сообщение отредактировал Кoт - Воскресенье, 06.03.2016, 23:11 |
|
|
|
|
| dorfd |
Дата: Среда, 09.03.2016, 19:16 | Сообщение # 973
|
Новичок
Сообщений: 2
Статус: Offline
|
В чем дело? Хочу поменять активацию, а мне пишет "Неверный символ в идентификаторе $PLAYER.DEFINED($PLAYER_CHAR)_489."
Сообщение отредактировал dorfd - Среда, 09.03.2016, 19:48 |
|
|
|
|
| fragma |
Дата: Среда, 09.03.2016, 20:00 | Сообщение # 974
|
|
|
dorfd, Код {$CLEO .cs}
0662: printstring "SYSTEMAIN.3DN.RU"
thread "$PLAYER.DEFINED($PLAYER_CHAR)"
wait 0 ms
0@ = 12045904
gosub @1
:2
wait 0
if and
84C8: not actor $PLAYER_ACTOR driving_flying_vehicle
not Actor.DrivingPlane($PLAYER_ACTOR)
84A9: not actor $PLAYER_ACTOR driving_heli
84A7: not actor $PLAYER_ACTOR driving_boat
847A: not actor $PLAYER_ACTOR driving_bike
Actor.Driving($PLAYER_ACTOR)
key_down 191
jf @2
2@ = Actor.CurrentCar($PLAYER_ACTOR)
0730: car 2@ damage_door 0
0730: car 2@ damage_door 1
0730: car 2@ damage_door 3
0689: set_car 2@ remove_door 0 removed_door_visible 1
0689: set_car 2@ remove_door 1 removed_door_visible 1
0689: set_car 2@ remove_door 2 removed_door_visible 1
0689: set_car 2@ remove_door 3 removed_door_visible 1
0689: set_car 2@ remove_door 4 removed_door_visible 1
0689: set_car 2@ remove_door 5 removed_door_visible 1
0689: set_car 2@ remove_door 6 removed_door_visible 1
0689: set_car 2@ remove_door 7 removed_door_visible 1
0689: set_car 2@ remove_door 8 removed_door_visible 1
0689: set_car 2@ remove_door 9 removed_door_visible 1
0689: set_car 2@ remove_door 10 removed_door_visible 1
0689: set_car 2@ remove_door 11 removed_door_visible 1
0689: set_car 2@ remove_door 12 removed_door_visible 1
0697: set_car 2@ remove_componentB 0 visible_effect_flag 1
0697: set_car 2@ remove_componentB 1 visible_effect_flag 1
0697: set_car 2@ remove_componentB 2 visible_effect_flag 1
0697: set_car 2@ remove_componentB 3 visible_effect_flag 1
0697: set_car 2@ remove_componentB 4 visible_effect_flag 1
0697: set_car 2@ remove_componentB 5 visible_effect_flag 1
0697: set_car 2@ remove_componentB 6 visible_effect_flag 1
0697: set_car 2@ remove_componentB 7 visible_effect_flag 1
0697: set_car 2@ remove_componentB 8 visible_effect_flag 1
0697: set_car 2@ remove_componentB 9 visible_effect_flag 1
0697: set_car 2@ remove_componentB 10 visible_effect_flag 1
0697: set_car 2@ remove_componentB 11 visible_effect_flag 1
0697: set_car 2@ remove_componentB 12 visible_effect_flag 1
0697: set_car 2@ remove_componentB 13 visible_effect_flag 1
0697: set_car 2@ remove_componentB 14 visible_effect_flag 1
0697: set_car 2@ remove_componentB 15 visible_effect_flag 1
0697: set_car 2@ remove_componentB 16 visible_effect_flag 1
0697: set_car 2@ remove_componentB 17 visible_effect_flag 1
0697: set_car 2@ remove_componentB 18 visible_effect_flag 1
0697: set_car 2@ remove_componentB 19 visible_effect_flag 1
0697: set_car 2@ remove_componentB 20 visible_effect_flag 1
0697: set_car 2@ remove_componentB 21 visible_effect_flag 1
wait 30
0A30: repair_car 2@
Car.RemoveReferences(2@)
jump @2
:1
0@ -= 10787168
0@ /= 4
008B: 1@ = &0(0@,1i)
return
Пишу на заказ CLEO скрипты, SF и ASI плагины.
|
|
|
|
|
| EvolUtioN_VIII |
Дата: Суббота, 12.03.2016, 19:37 | Сообщение # 975
|
Новичок
Сообщений: 29
Статус: Offline
|
Что не так в скрипте?:(
Запускаю самп и крашит..
Код {$CLEO}
{$NOSOURCE}
0000:
:Health
Wait 0
0B2B: samp 0@ = get_player_id_by_actor_handle $PlAYER_ACTOR
0B26: samp 2@ = get_player_armor 0@
0B25: samp 1@ = get_player_health 0@
0B6D: render 3@ = create_font "Arial" height 9 flags 0x8
0B6F: render font 3@ draw_text "[ARM=2@ | HP=1@]" pos 20 160 color 0xFF0000
0B6E: render release_font 3@
jump @Health |
|
|
|
|
