Дата: Суббота, 05.09.2015, 22:34 | Сообщение # 856
Любитель
Сообщений: 33
Статус: Offline
Код
if 0ab0: key_down 51 then 0ac8: alloc 0@ size 64 0ad3: format_stirng 0@ = "God Mode: Выключить%cGod Mode: Включить%cTest%cH2O" 0xA 0xA 0B3B: samp show_dialog id 47 caption "Test" text 0@ button_1 "Выбрать" button_2 "Закрыть" style DIALOG_STYLE_LIST 0ac9: free 0@ break end
// DIALOG_STYLE_LIST if 0B3C: samp is_dialog_responded id 47 button 1@ list_item 3@ input_text 0 then if 1@ == 1 then if 3@ == 0 then actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1) end
if 3@ == 1 then actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0) end
if 3@ == 2 then 0af8: chat "В разработке" -1 end end end
Как в этот диалог добавить новый пункт, и чтобы при активации этого нового пункта показывалось сообщение в чат? Я пытался добавить пункт и сделал вот так:
(То что я пытался сделать отмечено красным цветом.)
if 0ab0: key_down 51 then 0ac8: alloc 0@ size 64 0ad3: format_stirng 0@ = "God Mode: Выключить%cGod Mode: Включить%cTest%cH2O" 0xA 0xA 0B3B: samp show_dialog id 47 caption "TEST" text 0@ button_1 "Выбрать" button_2 "Закрыть" style DIALOG_STYLE_LIST 0ac9: free 0@ break end
// DIALOG_STYLE_LIST if 0B3C: samp is_dialog_responded id 47 button 1@ list_item 3@ input_text 0 then if 1@ == 1 then if 3@ == 0 then actor.SetImmunities($PLAYER_ACTOR, 1, 1, 1, 1, 1) end
if 3@ == 1 then actor.SetImmunities($PLAYER_ACTOR, 0, 0, 0, 0, 0) end
if 3@ == 3 then 0af8: chat "H2O Test. Просто Test." -1 end
if 3@ == 2 then 0af8: chat "В разработке" -1 end end end
Но ничего из этого не вышло и у меня начались лаги. Можете отредактировать этот кусочек скрипта чтобы он работал нормально?
Сообщение отредактировал [CM]KYRLYK - Суббота, 06.06.2015, 21:08
Добавлено (13.06.2015, 22:42) --------------------------------------------- Помогите пажалуста с командой активации CLEO скрипта,недавно начел заниматса CLEO,можете помочь с таким CLEO как Invisible! Мне надо что-бы он активировался и деактивировался командой,буду рад помощи за ранее спасибо вот исходник даного CLEO
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 859
Бывалый
Сообщений: 488
Статус: Offline
Цитата[Cleo]Unload ()
Помогите пажалуста с командой активации CLEO скрипта,недавно начел заниматса CLEO,можете помочь с таким CLEO как Invisible! Мне надо что-бы он активировался и деактивировался командой,буду рад помощи за ранее спасибо вот исходник даного CLEO
Он и так активируется/деактивируется командой -------------------------------------------------------------------
[New] CC Pack by Gromble Сслылка на скачивание: *Click
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 862
Любитель
Сообщений: 33
Статус: Offline
Вот DXUT диалог который активируется на O. В нем есть функции: 1, 2, Закрыть меню. Помогите мне сделать так, что бы кнопка "Закрыть меню" работала нормально. То есть: Нажал на O, диалог открылся, нажал на кнопку "Закрыть меню" и диалог закрылся. И что бы при нажатии кнопки "Закрыть меню" диалог можно было заново открыть. Я как-то сделал, что при нажатии на кнопку "Закрыть меню" диалог закрывается, а открыть его больше нельзя. Или же что-бы при вводе чит-кода "menu" открылся диалог, а при вводе чит-кода "close" он закрылся. (И главное что бы его можно было заново открыть)
Код
:Core wait 0 if 0AB0: 79 jf @Core 0B8D: samp set_cursor_mode 2 0B80: dialog 0@ = create "[MENU]" 0B84: dialog 0@ set_pos_XY 500 500 size 300 225 0B82: dialog 0@ add_button id 1 text "1" pos_XY 0 0 size 100 30 0B82: dialog 0@ add_button id 3 text "Закрыть меню" pos_XY 3 50 size 100 30 0B83: dialog 0@ add_checkbox id 2 text "3" pos_XY 0 35 size 150 20
wait 0 while true wait 0 if 0B81: dialog 0@ pop_event_to 1@ control_id_to 2@ then if 1@ == EVENT_BUTTON_CLICKED then if 2@ == 1 then 0AF8: samp add_message_to_chat "Test" color -1 params 2@
end end
if 1@ == EVENT_BUTTON_CLICKED then if 2@ == 3 then
0B86: dialog 0@ set_visible 0 0B8D: samp set_cursor_mode 0 end end
Сообщение отредактировал [CM]KYRLYK - Четверг, 09.07.2015, 19:49
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 863
Новичок
Сообщений: 6
Статус: Offline
Код
:rheal for 0@ = 0 to 999 wait 0 if samp.IsPlayerConnected(0@) then 0B20: samp 1@ = actor_handle_by_samp_player_id 0@ if 056D: 1@ then 0af9: "/sethp %d 160" 0@ end end end samp.cmdret
Как сделать именно в радиусе а не в зоне стрима. Например: /rheal 10 т.е. даст 160 хп в радиусе 10 метров.
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 865
Любитель
Сообщений: 33
Статус: Offline
Есть две кнопки - Help и Close. Help - выводит информацию в чат. Close - Закрывает диалог. Но у меня по нажатию на кнопку "Help" не закрывается диалог, да и вообще больше никакие кнопки нельзя нажимать. Как исправить?
Код
0B82: dialog 20@ add_button id 1 text "Help" pos_XY 2 105 size 100 30 0B82: dialog 20@ add_button id 3 text "Close" pos_XY 2 150 size 100 30 0B91: dialog 20@ add_static id 4 text "Test" pos_XY 2 195 size 150 20 while true wait 0 if 0B81: dialog 20@ pop_event_to 21@ control_id_to 22@ then if 21@ == EVENT_BUTTON_CLICKED then if 22@ == 1 then 0AF8: samp add_message_to_chat "1" color -1 params 22@
end end
if 21@ == EVENT_BUTTON_CLICKED then if 22@ == 3 then
0B86: dialog 20@ set_visible 0 0B8D: samp set_cursor_mode 0 end end
Вот поменял, все будет работать. Дело в том что ты убирал проверку вместе с прижком на метку 404, естественно скрипт не работал. Пишу CLEO на заказ, мой Вконтакте - http://vk.com/garyachy
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 869
Бывалый
Сообщений: 348
Статус: Offline
Ребят, как сделать чтобы, кнопка была зажата неск. секунд?
Код
0B56: set_game_key 16 state 255 // как тут проставить время на которое она зажата? wait 0 0B56: set_game_key 16 state 0 wait 0 0B56: set_game_key 14 state 255 wait 0 0B56: set_game_key 14 state 0
Добавлено (17.07.2015, 20:46) --------------------------------------------- Как сделать, чтобы при повторном нажатии F2 скрипт отключался? Сейчас невозможно вырубить, он бесконечный
Код
{$CLEO .cs} {$CLEO .cs} 0000: // От краша при запуске игры
while TRUE // Бесконечный цикл wait 0 // Чтобы цикл проходил со скоростью 0 мс if 0ab0: key_pressed 113 // Если была нажата клавиша 113, (F2). То... then // Проверка, не зажата ли клавиша F2. Если зажата, то скрпт ждет пока вы не отпустите клавишу. repeat wait 0 until 8ab0: key_pressed 113 // 0acd: "Script is on" 1000 // Выводим на экран сообщение что скрипт активирован repeat Actor.PutAt($PLAYER_ACTOR, 2558.03, -1287.23, 1043.13) // 0.0, 0.0, 10.75 - ето координаты XYZ wait 1000 Actor.PutAt($PLAYER_ACTOR, 2551.14, -1287.23, 1043.13) wait 1000 Actor.PutAt($PLAYER_ACTOR, 2542.98, -1287.23, 1043.13) wait 1000 // правая сторона Actor.PutAt($PLAYER_ACTOR, 2543.06, -1300.09, 1043.13) wait 1000 Actor.PutAt($PLAYER_ACTOR, 2550.97, -1300.09, 1043.13) wait 1000 Actor.PutAt($PLAYER_ACTOR, 2559.07, -1300.09, 1043.13) wait 1000 //левая сторона Actor.PutAt($PLAYER_ACTOR, 2542.16, -1295.85, 1043.13) wait 9000 Actor.PutAt($PLAYER_ACTOR, 2544.40, -1295.85, 1043.13) wait 9000 //левая сторона столов Actor.PutAt($PLAYER_ACTOR, 2542.13, -1291.01, 1043.13) wait 9000 Actor.PutAt($PLAYER_ACTOR, 2544.37, -1291.01, 1043.13) wait 9000 //правая сторона столов Actor.PutAt($PLAYER_ACTOR, 2564.76, -1292.94, 1043.13) wait 3000 until 0ab0: key_pressed 113 // Проверка, что нажата второй раз клавиша активации // Проверка, не зажата ли клавиша F2. Если зажата, то скрпт ждет пока вы не отпустите клавишу. repeat wait 5000 until 8ab0: key_pressed 113 // 0acd: "Script is off" 1000 end end
Не покупаю, не обмениваю, только продаю!
Сообщение отредактировал garden - Пятница, 17.07.2015, 10:24
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 870
Любитель
Сообщений: 35
Статус: Offline
Анансики, я уже не один форум перерыл по клео, но нигде толково не рассказывают как же правильно сделать эмуляцию нажатия клавиш (да, код из топика в чаво не работает)
Вот собственно два кода, оба не работают. Не знаю почему.
Код
{$CLEO} wait 0 0000: //Инициализация if 0AA2: 0@ = load_library "User32.dll" // IF and SET jf @error_load_user32 if 0AA4: 1@ = get_proc_address "keybd_event" library 0@ // IF and SET jf @error_proc_keybd_event //Главный цикл if 0AB0: key_pressed 49 :key wait 1000 0AA5: call 1@ num_params 4 pop 0 0 0 0 0x57 0AA5: call 1@ num_params 4 pop 0 0 0x02 0 0x57 jump @key //Блок обработки ошибок :error_proc_keybd_event 0AA3: free_library 0@ :error_load_user32 0A93: end_custom_thread
И второй:
Код
{$CLEO} wait 0 0000: //Инициализация :keyPress // 0@ - key, 1@ - time // Example: 0AB1: call @keyPress 2 key 0@ time 1@ if 0AA2: 2@ = load_library "User32.dll" then while true wait 0 if 0AB0: key_pressed 49 // 1 then while 8AB0: not key_pressed 50 // 2 0AB1: call_scm_func @keyPress 2 key 87 time 500 // W wait 500 0AB1: call_scm_func @keyPress 2 key 83 time 500 // W wait 500 end end end end
Сообщение отредактировал Crycher - Понедельник, 20.07.2015, 01:17
