|
[CLEO] Помощь по редактированию скриптов
|
|
| vadik_narkosha |
Дата: Суббота, 05.09.2015, 22:24 | Сообщение # 796
|
Новичок
Сообщений: 1
Статус: Offline
|
Такая проблема (я не особо разбираюсь в Cleo скриптах могу только кнопку включения выключения поменять да текст), я скачал скрипт, но там есть баг когда зашел на сервер скриптом можешь пользоваться сколько хочешь, но как только сел в авто и вышел пытаешься воспользоваться скриптом, то тебя тп на водительское место этого авто и кикает, как исправить?
Код // 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 "#########################"
0662: printstring "___Made by Opcode.eXe___"
0662: printstring "Www.Youtube.Com/OpcodeXe"
0662: printstring "#########################"
0006: 0@ = 0
:NONAME_123
0001: wait 0 ms
00D6: if
0ADC: test_cheat "R"
004D: jump_if_false @NONAME_530
00D6: if
0039: 0@ == 0
004D: jump_if_false @NONAME_416
0ACD: show_text_highpriority "~R~GHOST:~W~ you're now a AFK ghost!" time 1337
018C: play_sound 1083 at 0.0 0.0 0.0
0006: 0@ = 1
0665: get_actor $PLAYER_ACTOR model_to 1@
04C4: store_coords_to 2@ 3@ 4@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0
009A: 5@ = create_actor_pedtype 2 model 1@ at 2@ 3@ 4@
0619: enable_actor 5@ collision_detection 1
0172: 6@ = actor $PLAYER_ACTOR Z_angle
0173: set_actor 5@ Z_angle_to 6@
0470: 7@ = actor $PLAYER_ACTOR current_weapon
01B2: give_actor 5@ weapon 7@ ammo 60 // Load the weapon model before using this
01B9: set_actor 5@ armed_weapon_to 1@
0350: set_actor 5@ maintain_position_when_attacked 1
02A9: set_actor 5@ immune_to_nonplayer 1
0568: set_actor 5@ untargetable 1
04D7: set_actor 5@ locked 1
0575: set_actor 5@ keep_position 1
0A96: 3@ = actor $PLAYER_ACTOR struct
000A: 3@ += 1328
0A8C: write_memory 3@ size 4 value 50 virtual_protect 0
0001: wait 100 ms
0619: enable_actor 5@ collision_detection 0
0002: jump @NONAME_530
:NONAME_416
0ACD: show_text_highpriority "~R~GHOST:~W~ you're now no longer AFK!" time 1337
018C: play_sound 1084 at 0.0 0.0 0.0
0A96: 3@ = actor $PLAYER_ACTOR struct
000A: 3@ += 1328
0A8C: write_memory 3@ size 4 value 1 virtual_protect 0
009B: destroy_actor 5@
0AB1: call_scm_func @NONAME_820 0
0006: 0@ = 0
:NONAME_530
00D6: if
0039: 0@ == 1
004D: jump_if_false @NONAME_813
00A0: store_actor $PLAYER_ACTOR position_to 10@ 11@ 12@
00A0: store_actor 5@ position_to 13@ 14@ 15@
00D6: if
86BD: not no_obstacles_between 13@ 14@ 15@ and 10@ 11@ 12@ solid 1 car 1 actor 0 object 1 particle 0
004D: jump_if_false @NONAME_707
0ACD: show_text_highpriority "~R~GHOST:~W~ you cant kill people here!~n~There is a wall between you and your body!" time 100
:NONAME_707
0509: 16@ = distance_between_XY 10@ 11@ and_XY 13@ 14@
00D6: if
0021: 16@ > 50.0
004D: jump_if_false @NONAME_813
0ACD: show_text_highpriority "~R~GHOST:~W~ you cant kill people here!~n~You're too far away!" time 100
:NONAME_813
0002: jump @NONAME_123
:NONAME_820
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 -1.0
000B: 2@ += 3.0
00A5: 0@ = create_car #BULLET at 1@ 2@ 3@
000F: 2@ -= 3.0
0172: 25@ = actor $PLAYER_ACTOR Z_angle
036A: put_actor $PLAYER_ACTOR in_car 0@
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@
0173: set_actor $PLAYER_ACTOR Z_angle_to 25@
00A6: destroy_car 0@
0AB2: ret 0
|
|
|
|
|
| xxxLimon |
Дата: Суббота, 05.09.2015, 22:24 | Сообщение # 797
|
Новичок
Сообщений: 3
Статус: Offline
|
помогите плес, хочу сделать бесконечный цикл что-бы телепортировало на 1 кординаты потом на 2 . При это что-бы цикл был бесконечным и дезактивировался на клавишу активации.
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
thread 'Forma' //
:Forma_2
wait 0 //
if //
0AB0: key_pressed 35 //
jf @Forma_2
Actor.PutAt($PLAYER_ACTOR, 820.56, -2093.17, 12.58) //
wait 100 //
Actor.PutAt($PLAYER_ACTOR, 784.08, -2091.80, 12.59) //
jump @Forma_2
Какашка
Сообщение отредактировал xxxLimon - Воскресенье, 22.02.2015, 08:14 |
|
|
|
|
| [CM]Daemon |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 798
|
Любитель
Сообщений: 31
Статус: Offline
|
В общем у меня возникла такая проблема, нужно сделать проверку на время.
Чтобы допустим если время было **:30 то происходило какое-либо действие.
Так вот, как же создать такую проверку?
Жду ответа, заранее спасибо smile
|
|
|
|
|
| tupac982 |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 799
|
Боец
Сообщений: 64
Статус: Offline
|
Код {$CLEO .cs}
thread "input"
cmd "input" @INPUT_162
if
33@ == 1
else_jump @INPUT_169
SAMP.ShowDialog(16, "text", "Ââåäèòå òåêñò", "Îê", "Îòìåíà", DIALOG_STYLE_INPUT)
:INPUT_85
wait 0
alloc 2@ 128
if
SAMP.DialogRespond(16, 1@, 0, 2@)
else_jump @INPUT_155
if
1@ == 1
else_jump @INPUT_150
chatmsg "%s" -1 2@
:INPUT_150
free 2@
:INPUT_155
goto @INPUT_85
:INPUT_162
33@ = 1
:INPUT_169
SAMP.CmdRet
Зацикливается и приходится комп перезагружать. Кто подскажет, что делать?
[ASI] Исправление крашей и годный FPS UP (Crashes.asi) - http://u.to/mBdsEg
[Халява] Заработок в TELEGRAM - http://u.to/ThdsEg
[Халява] Заработок на Анкетах - http://u.to/BYlwEg
[Продажа] Акк на ARP Blue - http://u.to/1I9wEg
Сообщение отредактировал tupac982 - Воскресенье, 08.03.2015, 23:49 |
|
|
|
|
| Dimka_K |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 800
|
Боец
Сообщений: 158
Статус: Offline
|
Может нулевой опкод нужно добавить?)Цитата tupac982 (  ) Зацикливается и приходится комп перезагружать. Кто подскажет, что делать? |
|
|
|
|
| tupac982 |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 801
|
Боец
Сообщений: 64
Статус: Offline
|
Код {$CLEO .cs}
const
DIALOG_STYLE_INPUT = 1
end
0000: NOP
thread "input"
cmd "input" @input_162
if
33@ == 1
else_jump @input_169
SAMP.ShowDialog(16, "Fake text", "Ââåäèòå òåêñò", "Îê", "Îòìåíà", DIALOG_STYLE_INPUT)
:input_85
wait 0
alloc 2@ 128
if
SAMP.DialogRespond(16, 1@, 0, 2@)
else_jump @input_155
if
1@ == 1
else_jump @input_150
chatmsg "%s" -1 2@
:input_150
free 2@
:input_155
goto @input_85
:input_162
33@ = 1
:input_169
SAMP.CmdRet
Исправил с нулевым опкодом. Запускаю, краш. Что не так-то опять)
[ASI] Исправление крашей и годный FPS UP (Crashes.asi) - http://u.to/mBdsEg
[Халява] Заработок в TELEGRAM - http://u.to/ThdsEg
[Халява] Заработок на Анкетах - http://u.to/BYlwEg
[Продажа] Акк на ARP Blue - http://u.to/1I9wEg
|
|
|
|
|
| Dimka_K |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 802
|
Боец
Сообщений: 158
Статус: Offline
|
Ребят, почему у меня не получается привязать две команды к двум разным действиям? Точнее я уже все сделал, но при компиляции пишет "Неизвестная команда end". Далее убираю end и пишет "Неверное число условий"... Помогите пожалуйста, буду благодарен) Репой не обижу...
Код {$CLEO .cs}
0000: NOP
repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "test_odin" to_label @odin
0B34: samp register_client_command "test_dva" to_label @dva
repeat
wait 0
if 0@ == true
then
0AF9: samp say_msg "Раз, раз, два, три"
wait 1000
0AF9: samp say_msg "лаа"
wait 1000
0AF9: samp say_msg "/do дубинка в руке"
wait 1000
0AB1: call @key 2 key 119 time 1000
0@ = false
end
if 1@ == true
0AF9: samp say_msg "Три, шесть, семь"
wait 1000
0AF9: samp say_msg "/mn"
wait 1000
0AF9: samp say_msg "(( ))"
wait 1000
0AB1: call @key 2 key 119 time 1000
1@ = false
end
until false
:odin
0@ = true
SAMP.CmdRet()
:dva
1@ = true
SAMP.CmdRet()
:key
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
Сообщение отредактировал Dimka_K - Понедельник, 09.03.2015, 10:23 |
|
|
|
|
| russky(samp) |
Дата: Суббота, 05.09.2015, 22:25 | Сообщение # 803
|
Боец
Сообщений: 101
Статус: Offline
|
Цитата Dimka_K ( ) {$CLEO .cs}
0000: NOP
repeat
wait 0
until SAMP.Available()
0B34: samp register_client_command "test_odin" to_label @odin
0B34: samp register_client_command "test_dva" to_label @dva
repeat
wait 0
if 0@ == true
then
0AF9: samp say_msg "Раз, раз, два, три"
wait 1000
0AF9: samp say_msg "лаа"
wait 1000
0AF9: samp say_msg "/do дубинка в руке"
wait 1000
0AB1: call @key 2 key 119 time 1000
0@ = false
end
if 1@ == true
0AF9: samp say_msg "Три, шесть, семь"
wait 1000
0AF9: samp say_msg "/mn"
wait 1000
0AF9: samp say_msg "(( ))"
wait 1000
0AB1: call @key 2 key 119 time 1000
1@ = false
end
until false
:odin
0@ = true
SAMP.CmdRet()
:dva
1@ = true
SAMP.CmdRet()
:key
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
"if 1@ == true" - Вместо этого напиши "if and 1@ == true", и убери end из-за которого была ошибка
[CM]Russky
Сообщение отредактировал russky(samp) - Понедельник, 09.03.2015, 11:13 |
|
|
|
|
| Chag |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 804
|
Новичок
Сообщений: 15
Статус: Offline
|
Dimka_K,
Код {$CLEO .cs}
{$NOSOURCE}
Thread "Chag"
0B34: samp register_client_command "test_odin" to_label @odin
0B34: samp register_client_command "test_dva" to_label @dva
While True
wait 0
if 0@ == 1
then
0AF9: samp say_msg "???, ???, ???, ???"
wait 1000
0AF9: samp say_msg "???"
wait 1000
0AF9: samp say_msg "/do ??????? ? ????"
wait 1000
0AB1: call @key 2 key 119 time 1000
0@ = 0
end
if 1@ == 1
then
0AF9: samp say_msg "???, ?????, ????"
wait 1000
0AF9: samp say_msg "/mn"
wait 1000
0AF9: samp say_msg "(( ))"
wait 1000
0AB1: call @key 2 key 119 time 1000
1@ = 0
end
end
:odin
0@ = 1
SAMP.CmdRet()
:dva
1@ = 1
SAMP.CmdRet()
:key
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
Добавлено (09.03.2015, 11:34)
---------------------------------------------
russky(samp), глупо...
Сообщение отредактировал Chag - Понедельник, 09.03.2015, 11:35 |
|
|
|
|
| Dimka_K |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 805
|
Боец
Сообщений: 158
Статус: Offline
|
Цитата russky(samp) ( ) "if 1@ == true" - Вместо этого напиши "if and 1@ == true", и убери end из-за которого была ошибка
Цитата Chag ( ) russky(samp), глупо...
Ребят, спасибо большое! Все работает) +сик дал обоим
|
|
|
|
|
| tupac982 |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 806
|
Боец
Сообщений: 64
Статус: Offline
|
Цитата tupac982 ( ) Код {$CLEO .cs}
const
DIALOG_STYLE_INPUT = 1
end
0000: NOP
thread "input"
cmd "input" @input_162
if
33@ == 1
else_jump @input_169
SAMP.ShowDialog(16, "Fake text", "Ââåäèòå òåêñò", "Îê", "Îòìåíà", DIALOG_STYLE_INPUT)
:input_85
wait 0
alloc 2@ 128
if
SAMP.DialogRespond(16, 1@, 0, 2@)
else_jump @input_155
if
1@ == 1
else_jump @input_150
chatmsg "%s" -1 2@
:input_150
free 2@
:input_155
goto @input_85
:input_162
33@ = 1
:input_169
SAMP.CmdRet Исправил с нулевым опкодом. Запускаю, краш. Что не так-то опять)
Помогите кто-нибудь
[ASI] Исправление крашей и годный FPS UP (Crashes.asi) - http://u.to/mBdsEg
[Халява] Заработок в TELEGRAM - http://u.to/ThdsEg
[Халява] Заработок на Анкетах - http://u.to/BYlwEg
[Продажа] Акк на ARP Blue - http://u.to/1I9wEg
|
|
|
|
|
| Chag |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 807
|
Новичок
Сообщений: 15
Статус: Offline
|
tupac982,
Код {$CLEO .cs}
{$NOSOURCE}
Thread "Chag"
0B34: samp register_client_command "input" to_label @input
alloc 2@ 128
While True
wait 0
if 0B3C: samp is_dialog_responded id 16 button 1@ list_item 0 input_text 2@
then
if 1@ == 1
then
0af8: "%s" -1 2@
end
end
end
:input
0B3B: samp show_dialog id 16 caption "Input" text "Введите текст" button_1 "Готово" button_2 "Закрыть" style 1
SAMP.CmdRet()
Пиши по нормальному , в твоем коде ничего не понятно. Как я понял , это декомпил.
|
|
|
|
|
| [CM]Andrey228 |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 808
|
Барыга :D
Сообщений: 93
Статус: Offline
|
Мне интересно, можно ли если мне прислали /sms (Например на ARP или SRP) как-то извлечь из неё ник игрока. а в последствии и его ид, и записать этот id в переменную?
|
|
|
|
|
| hnnssy[Царь] |
Дата: Суббота, 05.09.2015, 22:26 | Сообщение # 809
|
Новичок
Сообщений: 18
Статус: Offline
|
[CM]Andrey228, можно конечно.
|
|
|
|
|
| [CM]Andrey228 |
Дата: Суббота, 05.09.2015, 22:27 | Сообщение # 810
|
Барыга :D
Сообщений: 93
Статус: Offline
|
Цитата hnnssy[Царь] ( ) можно конечно.
Можно пример как это сделать?
|
|
|
|
|
