|
[CLEO] Помощь по редактированию скриптов
|
|
| ♦Gromble♦ |
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 856
|
Бывалый
Сообщений: 488
Статус: Offline
|
Цитата [Cleo]Unload (  ) Помогите пажалуста с командой активации CLEO скрипта,недавно начел заниматса CLEO,можете помочь с таким CLEO как Invisible! Мне надо что-бы он активировался и деактивировался командой,буду рад помощи за ранее спасибо вот исходник даного CLEO
Он и так активируется/деактивируется командой 
-------------------------------------------------------------------
 
[New] CC Pack by Gromble
Сслылка на скачивание: *Click
|
|
|
|
|
| [Cleo]Unload |
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 857
|
Новичок
Сообщений: 27
Статус: Offline
|
Цитата ♦Gromble♦ ( ) Он и так активируется/деактивируется командой
Мне надо для версии 0.3.7,а не для 0.3z ! ! ! !
Проверил неработает!
|
|
|
|
|
| soso4ik |
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 858
|
Новичок
Сообщений: 6
Статус: Offline
|
Переделайте пожалуйста на 0.3.7 http://rghost.ru/7wGsbjzsB ( GM ) и Аим чтоб без актививации был работал на лкм допустим http://rghost.ru/7fFvjVJfk (аим ) Буду очень благодарен.
Сообщение отредактировал soso4ik - Четверг, 02.07.2015, 18:31 |
|
|
|
|
| [CM]KYRLYK |
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 859
|
Любитель
Сообщений: 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 |
|
|
|
|
| [nexus] |
Дата: Суббота, 05.09.2015, 22:35 | Сообщение # 860
|
Новичок
Сообщений: 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 метров.
|
|
|
|
|
| [CM]KYRLYK |
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 861
|
Любитель
Сообщений: 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 |
|
|
|
|
| Bibikaa |
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 862
|
Любитель
Сообщений: 32
Статус: Offline
|
Ребят, помогите надо убрать строки
Код chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} включён." 16777215
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} выключён." 16777215
Вот сам код
Код // 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
0662: printstring "ebalscripti"
:NONAME_17
not SAMP.Available
else_jump @NONAME_220
wait 1337
chatmsg "{00FF00}[PRIVATE] {ffffff}Активация: {00FF00}/gmp{ffffff}. Автор: {32CD32}Logan for Gotti." 16777215
chatmsg "{00FF00}[PRIVATE] {ffffff}Спасибо: {00FF00}SlonoBoyko{ffffff} за помощь." 16777215
jump @NONAME_17
:NONAME_220
0B34: samp register_client_command "gmp" to_label @NONAME_250
0BE2: raknet setup_outcoming_packet_hook -406
:NONAME_239
wait 0
jump @NONAME_239
:NONAME_250
0B12: 1@ = 1@ XOR 1
if
1@ == 1
else_jump @NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} включён." 16777215
jump @NONAME_404
:NONAME_344
chatmsg "{00FF00}[PRIVATE] {ffffff}Скрипт{32CD32} выключен." 16777215
:NONAME_404
SAMP.CmdRet
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
if and
1@ == 1
11@ == 206
else_jump @NONAME_450
0BE0: raknet hook_ret 0
:NONAME_450
0BE0: raknet hook_ret 1
Ссылка на скачку, если нужно. Я пробовал удалить их, закомментировать, но при входе крашит, очень нужно! И скажи пожалуйста, в чем проблема моя была?
Сообщение отредактировал Bibikaa - Воскресенье, 12.07.2015, 19:33 |
|
|
|
|
| [CM]Vovich |
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 863
|
Знаток
Сообщений: 556
Статус: Offline
|
Цитата Bibikaa ( )
Код
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
0662: printstring "ebalscripti"
:NONAME_17
not SAMP.Available
else_jump @NONAME_220
wait 1337
chatmsg "{00FF00}[PRIVATE] {ffffff}Активация: {00FF00}/gmp{ffffff}. Автор: {32CD32}Logan for Gotti." 16777215
chatmsg "{00FF00}[PRIVATE] {ffffff}Спасибо: {00FF00}SlonoBoyko{ffffff} за помощь." 16777215
jump @NONAME_17
:NONAME_220
0B34: samp register_client_command "gmp" to_label @NONAME_250
0BE2: raknet setup_outcoming_packet_hook -406
:NONAME_239
wait 0
jump @NONAME_239
:NONAME_250
0B12: 1@ = 1@ XOR 1
jump @NONAME_404
:NONAME_404
SAMP.CmdRet
0BE5: raknet 10@ = get_hook_param 0
0BE5: raknet 11@ = get_hook_param 1
if and
1@ == 1
11@ == 206
else_jump @NONAME_450
0BE0: raknet hook_ret 0
:NONAME_450
0BE0: raknet hook_ret 1
Вот поменял, все будет работать.
Дело в том что ты убирал проверку вместе с прижком на метку 404, естественно скрипт не работал.
Пишу CLEO на заказ, мой Вконтакте - http://vk.com/garyachy
|
|
|
|
|
| [CM]228papirosim |
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 864
|
Не просто Пользователь
Сообщений: 135
Статус: Offline
|
Поменяйте пожалуйста активацию на Num.(110), буду благодарен.Ссылка
|
|
|
|
|
| garden |
Дата: Суббота, 05.09.2015, 22:36 | Сообщение # 865
|
Бывалый
Сообщений: 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 |
|
|
|
|
| Crycher |
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 866
|
Любитель
Сообщений: 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 |
|
|
|
|
| garden |
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 867
|
Бывалый
Сообщений: 348
Статус: Offline
|
Цитата Crycher ( ) Анансики, я уже не один форум перерыл по клео, но нигде толково не рассказывают как же правильно сделать эмуляцию нажатия клавиш (да, код из топика в чаво не работает)
Вот собственно два кода, оба не работают. Не знаю почему.
если это игровая клавиша, то через опкод 0B56
Не покупаю, не обмениваю, только продаю!
|
|
|
|
|
| Kevinoso |
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 868
|
Новичок
Сообщений: 11
Статус: Offline
|
Помогите, сделал простенький дган на дигл. При нажатии на J через 1 секунду выдаётся дигл с 100 патронами и всё робит, но потом через 10 секунд он должен удалится, но чё то не удаляется. Срочно помощь! Код {$CLEO}
thread "Dgun"
0662: NOP "Dgun"
:WEAP_1_11
wait 0
if and
Player.Defined($PLAYER_CHAR)
not Actor.Driving($PLAYER_ACTOR)
jf @WEAP_1_11
wait 0
if and
0AB0: key_pressed 74
Player.Controllable($PLAYER_CHAR)
jf @WEAP_1_11
if
Model.Load(#desert_eagle)
if
wait 1000
Model.Available(#desert_eagle)
01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 100
wait 10000
Model.Destroy(#desert_eagle)
jump @WEAP_1_11
кек
|
|
|
|
|
| Crycher |
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 869
|
Любитель
Сообщений: 35
Статус: Offline
|
Цитата garden ( ) то через опкод 0B56
Код {$CLEO}
0000:
wait 0
if and
0AB0: key_pressed 0 49
:AAFK
wait 1500
0B56: set_game_key 57 state 255
wait 1500
0B56: set_game_key 57 state -255
jump @AAFK
Ровным счетом ничего не происходит в игре.
Сообщение отредактировал Crycher - Среда, 22.07.2015, 14:32 |
|
|
|
|
| ♦Gromble♦ |
Дата: Суббота, 05.09.2015, 22:37 | Сообщение # 870
|
Бывалый
Сообщений: 488
Статус: Offline
|
Цитата [CM]228papirosim ( ) Поменяйте пожалуйста активацию на Num.(110), буду благодарен.Ссылка
Click
Цитата garden ( ) Ребят, как сделать чтобы, кнопка была зажата неск. секунд?
Код
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
0B56: set_game_key 16 state 255
wait 1000 // Тут ставишь на сколько секунд клавиша будет зажата (в данном случае 1 секунда)
0B56: set_game_key 16 state 0
Цитата Crycher ( ) Анансики, я уже не один форум перерыл по клео, но нигде толково не рассказывают как же правильно сделать эмуляцию нажатия клавиш (да, код из топика в чаво не работает)
Вот собственно два кода, оба не работают. Не знаю почему.
Используй 0B56: set_game_key 1 state 255 // Первый параметр - ид клавиши, второй статус [255 - нажата, 0 отжата]
Цитата Kevinoso ( ) Помогите, сделал простенький дган на дигл. При нажатии на J через 1 секунду выдаётся дигл с 100 патронами и всё робит, но потом через 10 секунд он должен удалится, но чё то не удаляется. Срочно помощь!
Код
{$CLEO}
thread "Dgun"
0662: NOP "Dgun"
:WEAP_1_11
wait 0
if and
Player.Defined($PLAYER_CHAR)
not Actor.Driving($PLAYER_ACTOR)
jf @WEAP_1_11
wait 0
if and
0AB0: key_pressed 74
Player.Controllable($PLAYER_CHAR)
jf @WEAP_1_11
if
Model.Load(#desert_eagle)
if
wait 1000
Model.Available(#desert_eagle)
01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 100
wait 10000
Model.Destroy(#desert_eagle)
jump @WEAP_1_11
Он и не должен удалится. Удаляется модель оружия из памяти игры, а не само оружие.
-------------------------------------------------------------------
[New] CC Pack by Gromble
Сслылка на скачивание: *Click
|
|
|
|
|
