|
[CLEO] Помощь по редактированию скриптов
|
|
| DirectXD |
Дата: Вторник, 29.12.2015, 21:59 | Сообщение # 931
|
Новичок
Сообщений: 10
Статус: Offline
|
Кто может изменить активацию клео скрипта, на клавиши вместо команды???
|
|
|
|
|
| DokerGT |
Дата: Среда, 30.12.2015, 00:19 | Сообщение # 932
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
DirectXD, кидай код и нужные клавиши
|
|
|
|
|
| ComptonDude |
Дата: Суббота, 02.01.2016, 21:00 | Сообщение # 933
|
Новичок
Сообщений: 25
Статус: Offline
|
Как сделать клео антиразброс с расширяющимся прицелом? Я знаю как-то можно, у многих есть Добавлено (02.01.2016, 21:00)
---------------------------------------------
Напишите пожалуйста функцию, если м4 в руке - клео работает, а если нет - то не работает. Или хотя бы скажите нужные опкоды)
|
|
|
|
|
| DokerGT |
Дата: Воскресенье, 03.01.2016, 09:50 | Сообщение # 934
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Цитата ComptonDude (  ) Напишите пожалуйста функцию, если м4 в руке - клео работает, а если нет - то не работает. Или хотя бы скажите нужные опкоды)
Код 02D8: is_char_holding_weapon $PLAYER_ACTOR weapon 28
Возвращает true если перс держит в руке оружие указанного ид ( 28, в этом случае).
ид m4 - 31.
Ставь условие на этот опкод. Если оружие с идом 31(m4) будет у твоего чара в руках, то условие будет выполнятся
Код 02D8: is_char_holding_weapon $PLAYER_ACTOR weapon 31 |
|
|
|
|
| Vladik111228 |
Дата: Понедельник, 04.01.2016, 14:01 | Сообщение # 935
|
Новичок
Сообщений: 1
Статус: Offline
|
Помогите :с
Код {$CLEO .cs}
0000:
:NONAME_2
wait 0
SAMP.Available
else_jump @NONAME_2
:prost
1@ = 15.0
:SH
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 107
else_jump @Nado
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
02E3: 1@ = car 0@ speed
wait 0
1@ += 20.0
wait 250
04BA: set_car 0@ speed_to 1@
:Nado
00AD: set_car 0@ max_speed_to 255.0
goto @stop
:Stop
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 109
else_jump @vverh
0@ = Actor.CurrentCar($PLAYER_ACTOR)
04BA: set_car 0@ speed_to 0.0
goto @vverh
:vverh
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 104
else_jump @vniz
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 2@ 3@ 4@ from_car 0@ with_offset 0.0 0.0 1.0
wait 25
Car.PutAt(0@, 2@, 3@, 4@ )
goto @vniz
:vniz
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 98
else_jump @pojar
0@ = Actor.CurrentCar($PLAYER_ACTOR)
0407: store_coords_to 5@ 6@ 7@ from_car 0@ with_offset 0.0 0.0 1.0
wait 25
Car.PutAt(0@, 5@, 6@, 7@ )
goto @pojar
:Pojar
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 90
else_jump @salto
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
0731: set_car 0@ y_angle_to 180.0
goto @salto
:salto
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 89
else_jump @kolesooff
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
car.StorePos(0@, 20@, 21@, 22@ )
wait 50
car.PutAt(0@, 20@, 21@, 22@ )
goto @kolesooff
:kolesooff
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 100
else_jump @kolesoon
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
04FE: deflate_tire 1 on_car 0@
04FE: deflate_tire 2 on_car 0@
04FE: deflate_tire 3 on_car 0@
04FE: deflate_tire 4 on_car 0@
goto @kolesoon
:kolesoon
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 103
else_jump @Boom
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
0699: set_car 0@ repair_tire 1
0699: set_car 0@ repair_tire 2
0699: set_car 0@ repair_tire 3
0699: set_car 0@ repair_tire 4
goto @Boom
:Boom
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 101
else_jump @Repair
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
0407: store_coords_to 8@ 9@ 10@ from_car 0@ with_offset 0.0 7.0 0.5
wait 250
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 8@ 9@ 10@
wait 2500
020B: explode_car 0@
goto @Repair
:Repair
0B21: samp is_chat_opened
0B4C: samp is_dialog_active -1
wait 0
if and
Actor.Driving($PLAYER_ACTOR)
wait 0
key_down 99
else_jump @SH
0@ = Actor.CurrentCar($PLAYER_ACTOR)
wait 0
0A30: repair_car 0@
goto @SH
|
|
|
|
|
| maketowka |
Дата: Понедельник, 04.01.2016, 15:34 | Сообщение # 936
|
Любитель
Сообщений: 45
Статус: Offline
|
Мне понадобился скрипт "Fake Kick", решил сделать сам, но т.к. не знаю Cleo программирования решил за основу взять Cleo "Mbox".
Цитата // 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
thread 'FAKE'
:FAKE_13
wait 0
if
SAMP.Available
else_jump @FAKE_13
12@ = SAMP.Base()
0B34: samp register_client_command "mbox" to_label @FAKE_446
:FAKE_435
wait 0
jump @FAKE_435
:FAKE_446
wait 0
0AF8: samp add_message_to_chat "Вы положили ящик на склад мафии" color 0xFFD65C 3@ 4@
SAMP.CmdRet
jump @FAKE_446
Переделал код на
Цитата // 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
thread 'FAKE'
:FAKE_13
wait 0
if
SAMP.Available
else_jump @FAKE_13
12@ = SAMP.Base()
0B34: samp register_client_command "fkick" to_label @FAKE_446
:FAKE_435
wait 0
jump @FAKE_435
:FAKE_446
wait 0
0AF8: samp add_message_to_chat "Адмнистратор ADMIN кикнул игрока PLAYER. Причина: Помеха" color 0xAA3333AA 3@ 4@
SAMP.CmdRet
jump @FAKE_446
Захожу в игру, пишу /fkick и у меня выходит то, что на скрине
http://i.imgur.com/N6bAf1e.jpg
Мне нужно, что бы писало не капсом
|
|
|
|
|
| alanSL |
Дата: Понедельник, 04.01.2016, 18:18 | Сообщение # 937
|
Боец
Сообщений: 100
Статус: Offline
|
Простой гм , выдает много раз о включении и о выключении помогите исправить ошибку
Код {$CLEO}
0000:
0AA6: "GM mod. AlanSL" 8
while true
wait 0
if 0AB0: key press 106
then
printf "GM ~r~ON" 1337
repeat
wait 0
02AB: set_actor $PLAYER_ACTOR immunities BP 1 FP 1 EP 1 CP 1 MP 1
until 0AB0: key press 106
02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 0 MP 0
printf "GM ~r~OFF" 1337
end
end |
|
|
|
|
| DokerGT |
Дата: Понедельник, 04.01.2016, 19:23 | Сообщение # 938
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Цитата maketowka ( ) Мне нужно, что бы писало не капсом
http://cheat-master.ru/forum/116-208780-1
|
|
|
|
|
| maketowka |
Дата: Понедельник, 04.01.2016, 20:26 | Сообщение # 939
|
Любитель
Сообщений: 45
Статус: Offline
|
+реп
|
|
|
|
|
| DokerGT |
Дата: Понедельник, 04.01.2016, 21:16 | Сообщение # 940
|
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
|
Цитата alanSL ( ) {$CLEO}
0000:
0AA6: "GM mod. AlanSL" 8
while true
wait 0
if 0AB0: key press 106
then
printf "GM ~r~ON" 1337
repeat
wait 0
02AB: set_actor $PLAYER_ACTOR immunities BP 1 FP 1 EP 1 CP 1 MP 1
until 0AB0: key press 106
02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 0 MP 0
printf "GM ~r~OFF" 1337
end
end
Часть условия then, выполняется постоянно, когда нажата клавиша 106. От этого и постоянно срабатывает оповещение о включении.
Не используй циклы While..End, Repeat..Until, гораздо проще использовать простые потоки.
Готовый код:
Код
{$CLEO .cs}
0000:
:gm_on
wait 0
if
0ab0: key_pressed 106
jf @gm_on
printf "GM ~r~ON" 1337
02AB: set_actor $PLAYER_ACTOR immunities BP 1 FP 1 EP 1 CP 1 MP 1
:gm_off
wait 0
if
0ab0: key_pressed 106
jf @gm_off
printf "GM ~r~OFF" 1337
02AB: set_actor $PLAYER_ACTOR immunities BP 0 FP 0 EP 0 CP 0 MP 0
jump @gm_on
Добавлено (04.01.2016, 21:16)
---------------------------------------------
Vladik111228, подробнее, что нужно?
|
|
|
|
|
| ComptonDude |
Дата: Среда, 06.01.2016, 00:54 | Сообщение # 941
|
Новичок
Сообщений: 25
Статус: Offline
|
У меня кейворды слетели, без опкодов пишет что неизвестные команды и все. Переустанавливал
|
|
|
|
|
| renzzs |
Дата: Среда, 06.01.2016, 20:35 | Сообщение # 942
|
Бывалый
Сообщений: 387
Статус: Offline
|
Здарова народ,нуждаюсь в помощи,не могу соединить 2 скрипта в один,исходники оставлю ниже.
Вот эту коллизию,нужно вкатать в скрипт,что ниже.
Вот сюда,главное чтобы все функционировало,в смысле и коллизия и бот.
{CLEO}
Diamond Role Play
http://cheat-master.ru/forum/192-0-1-0-10-3-[renzzs]
[Моды]
http://cheat-master.ru/forum/108-0-1-0-10-3-[renzzs]
Внимание,обновил бота на Шахту до версии 4.5
|
|
|
|
|
| tema90771 |
Дата: Воскресенье, 10.01.2016, 14:28 | Сообщение # 943
|
Новичок
Сообщений: 3
Статус: Offline
|
В общем, проблема в том, что я не могу связать текст( в данном случае это id игрока) после созданной мной команды /ps c командой сервера /find [id]. Помогите, пожалуйста.
Код {$CLEO}
0000:
repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "ps" to_label @ps
while true
wait 1000
if
30@ == true
then
SAMP.IsCommandTyped(1@)
0AF9: samp say_msg "/find"
end
end
:ps
if
30@ == true
then
30@ = false
else
30@ = true
end
SAMP.CmdRet() |
|
|
|
|
| Кoт |
Дата: Воскресенье, 10.01.2016, 15:06 | Сообщение # 944
|
Сообщений: 1074
Статус: Offline
|
Цитата tema90771 ( ) общем, проблема в том, что я не могу связать текст( в данном случае это id игрока) после созданной мной команды /ps c командой сервера /find [id]. Помогите, пожалуйста.
Цитата {$CLEO .cs}
0000:
repeat
wait 228
until 0AFA: is_samp_available
0B34: samp register_client_command "ps" to_label @cmd
WHILE TRUE
wait 0
if 0@ == TRUE
then
0AF9: samp say_msg "/find %d" 3@
end
0@ = FALSE
END
:cmd
0B35: samp 1@ = get_last_command_params
0AD4: 2@ = scan_string 1@ forma "%d" 3@
if 3@ > -1
then
0@ = TRUE
end
0B43: samp cmd_ret
|
|
|
|
|
| tema90771 |
Дата: Воскресенье, 10.01.2016, 20:24 | Сообщение # 945
|
Новичок
Сообщений: 3
Статус: Offline
|
Цитата Кoт ( ) 0B34: samp register_client_command "ps" to_label @cmd
WHILE TRUE
wait 0
if 0@ == TRUE
then
0AF9: samp say_msg "/find %d" 3@
end
0@ = FALSE
END
:cmd
0B35: samp 1@ = get_last_command_params
0AD4: 2@ = scan_string 1@ forma "%d" 3@
if 3@ > -1
then
0@ = TRUE
end
0B43: samp cmd_ret
Не, не помогло( Пишет, будто нет такого игрока на серве.
|
|
|
|
|
