[CLEO] Помощь по редактированию скриптов
Кoт
Дата: Воскресенье, 10.01.2016, 22:12 | Сообщение # 946
Сообщений: 1074
Статус: Offline
Цитата tema90771 (
)
Не, не помогло( Пишет, будто нет такого игрока на серве.
[adidas]
Дата: Воскресенье, 17.01.2016, 17:31 | Сообщение # 947
Новичок
Сообщений: 11
Статус: Offline
Помогите пожалуйста. Ситуация такая. Есть fake heal он выдавал фейк текст что я например кого то вылечил. Из ini файла бралась база ников. Но дело в том что маленько переделали отображение лечения. У меня вот два скрипта. Первый отредактированный а второй оригинальный. Я не могу скомпилировать отредактированный скрипт В чем может быть ошибка? Мне постоянно пишет при нажатие f7 "Неизвестная команда then." (Подредактированный)
Код
{$CLEO .cs} 0000: while not SAMP.Available() wait 400 end 0B34: samp register_client_command "fheal" to_label @ON while true wait 0 if 28@ == 1 then 0AC8: 3@ = allocate_memory_size 128 0AC8: 4@ = allocate_memory_size 128 0AC8: 5@ = allocate_memory_size 128 0AC8: 6@ = allocate_memory_size 128 0AF4: 3@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ник больного" 0AF4: 4@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Цена лечения" 0AF4: 5@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ваш ник и ID" 0AF4: 6@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ник и ID больного" chatmsg "Вы предложили %s пройти у Вас курс платного лечения за %s" 0x319AFF 3@ 4@ wait 1000 chatmsg "Вы провели курс лечения для %s" 0x319AFF 3@ 0ACF: show_formatted_styled_text "~g~+%s" time 5000 style 2 4@ say "/c 060" 0AB1: call_scm_func @keyPress 2 key 119 time 100 // W 28@ = 0 end end :keyPress if 0AA2: 2@ = load_library "User32.dll" then if 0AA4: 2@ = get_proc_address "keybd_event" library 2@ then 0AA5: call 2@ num_params 4 pop 0 0 0 0 0@ wait 1@ 0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@ end end 0AB2: ret 0 :ON wait 0 28@ = 1 Samp.CmdRet()
(Оригинальный)
Код
{$CLEO .cs} 0000: while not SAMP.Available() wait 400 end 0B34: samp register_client_command "fheal" to_label @ON while true wait 0 if 28@ == 1 then 0AC8: 3@ = allocate_memory_size 128 0AC8: 4@ = allocate_memory_size 128 0AC8: 5@ = allocate_memory_size 128 0AC8: 6@ = allocate_memory_size 128 0AF4: 3@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ник больного" 0AF4: 4@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Цена лечения" 0AF4: 5@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ваш ник и ID" 0AF4: 6@ = read_string_from_ini_file "CLEO\fheal.ini" section "fheal" key "Ник и ID больного" chatmsg "Вы предложили %s пройти у Вас курс платного лечения за %s" 0x319AFF 3@ 4@ wait 1000 chatmsg "[MED] Медработник %s провел курс лечения у %s за %s" 0x9CCF9C 5@ 6@ 4@ 0ACF: show_formatted_styled_text "~g~+%s" time 5000 style 2 4@ say "/c 060" 0AB1: call_scm_func @keyPress 2 key 119 time 100 // W 28@ = 0 end end :keyPress if 0AA2: 2@ = load_library "User32.dll" then if 0AA4: 2@ = get_proc_address "keybd_event" library 2@ then 0AA5: call 2@ num_params 4 pop 0 0 0 0 0@ wait 1@ 0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@ end end 0AB2: ret 0 :ON wait 0 28@ = 1 Samp.CmdRet()
Как видно я изменил эту строку "chatmsg "chatmsg "[MED] Медработник %s провел курс лечения у %s за %s" 0x9CCF9C 5@ 6@ 4@" На вот эту строку "chatmsg "Вы провели курс лечения для %s" 0x319AFF 3@"
Сообщение отредактировал [adidas] - Воскресенье, 17.01.2016, 18:28
DokerGT
Дата: Воскресенье, 17.01.2016, 18:34 | Сообщение # 948
★Doker крутой перец! ★
Сообщений: 329
Статус: Offline
[adidas] , переустанови Sanny Builder.
Stivenson99
Дата: Среда, 27.01.2016, 11:12 | Сообщение # 949
Новичок
Сообщений: 6
Статус: Offline
Код
{$CLEO .cs} 0000: NOP if not 0@ = SAMP.Base() then 0a93: end repeat wait 200 until SAMP.Available() 0B34: samp register_client_command "fktime" to_label @time while true wait 0 end :time 0B35: samp 0@ = get_last_command_params 0AD4: 3@ = scan_string 0@ format "%s%s%s%s%s" 5@s 6@s 7@s 8@s 9@s if 3@ > 0 then 0605: actor $PLAYER_ACTOR perform_animation_sequence "Coplook_watch" IFP_file "COP_AMBIENT" 4.1 loop 0 0 0 0 time -1 0ACF: show_formatted_styled_text "~y~%s %s~n~~w~%s:%s~n~~g~SERVER %s" time 5000 style 3 8@s 9@s 6@s 7@s 5@s 5@s = 0 6@s = 0 7@s = 0 8@s = 0 9@s = 0 end 0B43: samp cmd_ret
Говорит, что неверное выражение "0@ = SAMP.Base()", и как изменить цвет времени,который будет показываться?!
Dmitriy_Stvenson
fragma
Дата: Среда, 27.01.2016, 14:22 | Сообщение # 950
Stivenson99 , обнови опкоды сф.
Пишу на заказ CLEO скрипты, SF и ASI плагины.
Кoт
Дата: Среда, 27.01.2016, 16:19 | Сообщение # 951
Сообщений: 1074
Статус: Offline
Цитата Stivenson99 (
)
и как изменить цвет времени,
Цитата Stivenson99 (
)
"~y~%s %s~n~~w~%s:%s~n~~g~SERVER %s
~y~ - жёлтый ~w~ - белый ~g~ - зеленый ~r~ - красный ~b~ -синий ~n~ - перенос на новую строку
Stivenson99
Дата: Среда, 27.01.2016, 20:48 | Сообщение # 952
Новичок
Сообщений: 6
Статус: Offline
Код
{$CLEO .cs} 0000: NOP if not 0@ = SAMP.Base() then 0a93: end repeat wait 200 until SAMP.Available() 0B34: samp register_client_command "fktime" to_label @time while true wait 0 end :time 0B35: samp 0@ = get_last_command_params 0AD4: 3@ = scan_string 0@ format "%s%s%s%s%s" 5@s 6@s 7@s 8@s 9@s if 3@ > 0 then 0605: actor $PLAYER_ACTOR perform_animation_sequence "Coplook_watch" IFP_file "COP_AMBIENT" 4.1 loop 0 0 0 0 time -1 0ACF: show_formatted_styled_text "~y~%s %s~n~~w~%s:%s~n~~g~SERVER %s" time 5000 style 3 8@s 9@s 6@s 7@s 5@s 5@s = 0 6@s = 0 7@s = 0 8@s = 0 9@s = 0 end 0B43: samp cmd_ret
Как убрать сервер?! Чтобы было только время и дата?! Я пробовал убрать, но у меня крашило, после этого.
Dmitriy_Stvenson
Сообщение отредактировал Stivenson99 - Среда, 27.01.2016, 21:08
Кoт
Дата: Среда, 27.01.2016, 21:07 | Сообщение # 953
Сообщений: 1074
Статус: Offline
Код
{$CLEO .cs} 0000: NOP if not 0@ = SAMP.Base() then 0a93: end repeat wait 200 until SAMP.Available() 0B34: samp register_client_command "fktime" to_label @time while true wait 0 end :time 0B35: samp 0@ = get_last_command_params 0AD4: 3@ = scan_string 0@ format "%s%s%s%s" 6@s 7@s 8@s 9@s if 3@ > 0 then 0605: actor $PLAYER_ACTOR perform_animation_sequence "Coplook_watch" IFP_file "COP_AMBIENT" 4.1 loop 0 0 0 0 time -1 0ACF: show_formatted_styled_text "~y~%s %s~n~~w~%s:%s" time 5000 style 3 8@s 9@s 6@s 7@s 5@s = 0 6@s = 0 7@s = 0 8@s = 0 9@s = 0 end 0B43: samp cmd_ret
Stivenson99
Дата: Среда, 27.01.2016, 21:15 | Сообщение # 954
Новичок
Сообщений: 6
Статус: Offline
Я так делал, оно крашит когда пишу команду, может из за собейта?!
Dmitriy_Stvenson
Сообщение отредактировал Stivenson99 - Четверг, 28.01.2016, 17:58
EvolUtioN_VIII
Дата: Воскресенье, 07.02.2016, 13:55 | Сообщение # 955
Новичок
Сообщений: 29
Статус: Offline
Кoт , привет, помоги, пожалуйста) Пишу вот себе скрипт, который при вводе команды "/zv ID" будет писать в чат, допустим, /su ID 2 9.1, но я не пойму как мне записать в переменную или что-то такое ID, который будет написал после команды /zv :( Ну или вот еще пример. Пишем в чат /doc ID А нам выдает так: /pass ID wait 1000 /lic ID wait 1000 /skill 1000 Буду очень благодарен, если ты мне поможешь:) Вот пока что, что я смог написать.Код
{$CLEO} 0000: :doc_cmd wait 0 0B34: "doc " @doc jf @doc_cmd :doc wait 0 0AF9: "/pass " wait 1000 0AF9: "/lic " wait 1000 0AF9: "/skill " jump @doc_cmd
Места, где надо как-то записать в переменную id я оставил пустыми..
Сообщение отредактировал EvolUtioN_VIII - Воскресенье, 07.02.2016, 13:56
DokerGT
Дата: Воскресенье, 07.02.2016, 15:48 | Сообщение # 956
★Doker крутой перец! ★
Сообщений: 329
Статус: Offline
EvolUtioN_VIII , поищи в гугле про форматирование строк. На одном сайте есть подробный гайд. Надеюсь разберешься.
naxab
Дата: Воскресенье, 07.02.2016, 21:00 | Сообщение # 957
Любитель
Сообщений: 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 | Сообщение # 958
★Doker крутой перец! ★
Сообщений: 329
Статус: Offline
naxab , так сделай сам, код у тебя есть. Простой скрипт же. Тут за тебя никто ничего делать не будет. Если только помочь.
Кoт
Дата: Понедельник, 08.02.2016, 09:27 | Сообщение # 959
Сообщений: 1074
Статус: Offline
используй repeat...until
iYounger
Дата: Понедельник, 08.02.2016, 20:46 | Сообщение # 960
Любитель
Сообщений: 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