|
[CLEO] Помощь по редактированию скриптов
|
|
| naxab |
Дата: Воскресенье, 07.02.2016, 21:00 | Сообщение # 961
|
Любитель
Сообщений: 37
Статус: Offline
|
Нужно сделать эмуляцию нажатия клавиши enter через каждый 5 секунд, как бы флудило чтоб клавишой.Вот код эмуляции нажатия клавиши
Код {$CLEO .cs}
0000:
repeat
wait 400
until 0AFA: is_samp_structures_available
:1
wait 5000
if
0AB0: key_pressed 96
jf @1
0C72: set_virtual_key 13 down true
:2
wait 0
if
0AB0: key_pressed 96
jf @2
0C72: set_virtual_key 13 down false
jump @1 |
|
|
|
|
| DokerGT |
Дата: Воскресенье, 07.02.2016, 21:07 | Сообщение # 962
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
naxab, так сделай сам, код у тебя есть. Простой скрипт же. Тут за тебя никто ничего делать не будет. Если только помочь.
|
|
|
|
|
| Кoт |
Дата: Понедельник, 08.02.2016, 09:27 | Сообщение # 963
|
Сообщений: 1074
Статус: Offline
|
используй repeat...until
|
|
|
|
|
| iYounger |
Дата: Понедельник, 08.02.2016, 20:46 | Сообщение # 964
|
Любитель
Сообщений: 38
Статус: Offline
|
Все отлично запускается, ошибку ввода выводит, но! Когда вводишь параметры команды и отправляешь - крашит. Что делать? Мб в коде проблемы?
Код {$CLEO}
0000: NOP
repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "fban" to_label @f_ban
repeat
wait 0
if 1@ == true
then
0B35: samp 2@ = get_last_command_params
if 0AD4: 3@ = scan_string 2@ format "%s %s %s" 4@ 5@ 6@
then
0AF8: samp add_message_to_chat "Администратор %s забанил %s. Причина: %s" color 0xFF0000 4@ 5@ 6@
1@ = false
else
0AF8: samp add_message_to_chat "Используйте /fban [НИК АДМИНА] [НИК ИГРОКА] [ПРИЧИНА]." color 0xFF0000
1@ = false
end
end
until false
:f_ban
1@ = true
SAMP.CmdRet()
• помощь новичкам.
• знание языков программирования.
Сообщение отредактировал iYounger - Понедельник, 08.02.2016, 20:46 |
|
|
|
|
| DokerGT |
Дата: Понедельник, 08.02.2016, 20:56 | Сообщение # 965
|
★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 | Сообщение # 966
|
Новичок
Сообщений: 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 | Сообщение # 967
|
Новичок
Сообщений: 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 | Сообщение # 968
|
Новичок
Сообщений: 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 | Сообщение # 969
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Получать параметры команды нужно в теле команды.
|
|
|
|
|
| EvolUtioN_VIII |
Дата: Среда, 24.02.2016, 17:52 | Сообщение # 970
|
Новичок
Сообщений: 29
Статус: Offline
|
Вообще не помогло решить ситуацию.
Можешь мне это в код вписать? Имхо я ничего не понял.
|
|
|
|
|
| Кoт |
Дата: Среда, 24.02.2016, 20:09 | Сообщение # 971
|
Сообщений: 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 | Сообщение # 972
|
Новичок
Сообщений: 29
Статус: Offline
|
Кoт, огромное спасибо!) Заработало) Сегодня рассмотрю код, надеюсь, что больше у меня таких проблем не будет:D
|
|
|
|
|
| Barraul |
Дата: Воскресенье, 06.03.2016, 01:39 | Сообщение # 973
|
Новичок
Сообщений: 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 | Сообщение # 974
|
★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 | Сообщение # 975
|
Новичок
Сообщений: 21
Статус: Offline
|
Ага это я понял , получилось но вот осталось 3 прбела идёт
Код вирт. "(/ac)cept drugs"
Не могу сделать , в игре выдаёт 1 пробел
|
|
|
|
|
