[CLEO] Помощь по редактированию скриптов - Страница 37 - Форум Cheat-Master.ru
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » CLEO Программирование » [CLEO] Помощь по редактированию скриптов
[CLEO] Помощь по редактированию скриптов
Francesco_Corleone Дата: Суббота, 05.09.2015, 21:41 | Сообщение # 541
Новичок
Сообщений: 19
Статус: Offline
 Сам код cleo , я не знаю как открывать . Но вот ссылка на него .
( http://rghost.ru/52299427 )
Суть в том , что бы изменить координаты показателя брони . Сделать его на середине полоски брони ( Как у хп ) Буду благодарен smile
http://s43.radikal.ru/i099/1403/ff/6e8963340148.png
HFLAVA Дата: Суббота, 05.09.2015, 21:41 | Сообщение # 542
BOSS
Сообщений: 190
Статус: Offline
 Не известный опкод 0AFA
Что делать?
Мяу :3
DokerGT Дата: Суббота, 05.09.2015, 21:41 | Сообщение # 543
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
 HFLAVA, установить SampFuncs

Добавлено (06.04.2014, 01:30)
---------------------------------------------
Написал клео которое при вводе команды /dance0 прописывает /animlist и выбирает там Dance0. Но оно не хочет работать, при вводе команды крашит. Вот код:

Код
{$CLEO .cs}
0000: NOP

if not 0@ = SAMP.Base()  
then  
          end_thread  
end  

repeat  
          wait 400  
until 0afa: struct

0B34: samp register_client_command "dance0" to_label @dance0

while true
wait 0
end

:dance0
wait 0
0ab1: call_scm_func @Func 1 0
samp.CmdRet()

:Func
say "/animlist"
wait 700
0B49: samp set_current_dialog_list_item 0@
wait 100
0B47: samp close_current_dialog_with_button 1

Скорее всего ошибка в scm функции ибо плохо еще их понимаю.
RAKSHA1337 Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 544
Советник
Сообщений: 784
Статус: Offline
 DokerGT, конечно там, у тебя возврата нету
0AB2: ret 1 0@
Данный опкод возвращает поток на опкод 0AB1 и записывает значения в его результирующие переменные. Общее число возвращаемых значений обязательно должно соответствовать числу переменных в опкоде 0AB1. В данном примере опкод 0AB2 вернет одно значение, которое содержится в переменной 0@ и это значение будет записано в переменную $result (см. 0AB1). Если 0AB2 не возвращает значений, в нем должен стоять ноль как единственный параметр, а 0AB1 не должен иметь переменных для приема.

Параметры:
1 – количество возвращаемых значений
После этого идут возвращаемые значения, в данном случае значение переменной 0@.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Toplivo Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 545
Советник
Сообщений: 728
Статус: Offline
Цитата DokerGT ()
:dance0
wait 0

Тут еще wait 0 лишний

Дурак дает,умный берет.
DokerGT Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 546
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
 RAKSHA1337, Спасибо, попробую. Просто читал в интернете про 0ab1, там сказано что если функция не возвращает данных то и 0ab2 не нужен.
StarkDrawing Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 547
Боец
Сообщений: 239
Статус: Offline
 Неизвестная команда not.Actor.Driving($PLAYER_ACTOR).
RAKSHA1337 Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 548
Советник
Сообщений: 784
Статус: Offline
 StarkDrawing, потомучто точка стоит, поставь пробел
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
forcusss Дата: Суббота, 05.09.2015, 21:42 | Сообщение # 549
Новичок
Сообщений: 11
Статус: Offline
 Помогите пожалуйста. Скрипт работает на SF 3.0, но там нельзя свернуть окно alt+enter (не только у меня), а это критически важно.
Скрипт не работает на SF 3.1.1, но сворачивание есть. (Игра просто виснет намертво)
Кто-то может переделать это говно на 3.1.1 что бы оно там нормально работало?
Буду очень, очень благодарен!



Сообщение отредактировал forcusss - Понедельник, 07.04.2014, 00:33
bis Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 550
Любитель
Сообщений: 30
Статус: Offline
 Клео выводит на экран рисунок, изначально не было активации\дезактивации, активацию сделал на +,не разобрался как сделать дезактивацию. Хотелось бы узнать, как ее сделать.

// 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
:NONAME_2
wait 1000
if and
not Actor.Driving($PLAYER_ACTOR)
$ONMISSION == 0
0AB0: key_pressed 187
else_jump @NONAME_2

$76 = 0
$78 = 0
$79 = 0
0000: NOP
gosub @Noname_333
gosub @Noname_368

:Noname_37
wait 0
gosub @Noname_123
gosub @Noname_178
gosub @Noname_240
if or
$76 == 1
$78 == 1
$79 == 1
else_jump @Noname_105
03F0: enable_text_draw 0
jump @Noname_116

:Noname_105
03F0: enable_text_draw 1
gosub @Noname_289

:Noname_116
jump @Noname_37

:Noname_123
0A8D: $36 = read_memory 11989093 size 4 virtual_protect 0
if
$36 == 1
else_jump @Noname_169
$76 = 1
jump @Noname_176

:Noname_169
$76 = 0

:Noname_176
return

:Noname_178
0A8D: $77 = read_memory 9873356 size 4 virtual_protect 0
if or
$77 == 1
$77 == 2
else_jump @Noname_231
$78 = 1
jump @Noname_238

:Noname_231
$78 = 0

:Noname_238
return

:Noname_240
if
06B9: cutscene_data_loaded
else_jump @Noname_280
if
82E9: not cutscene_reached_end
else_jump @Noname_273
$79 = 1

:Noname_273
jump @Noname_287

:Noname_280
$79 = 0

:Noname_287
return

:Noname_289
03E3: set_texture_to_be_drawn_antialiased 1
038D: draw_texture 1 position 339.0 179.0 size 120.0 120.0 RGBA 255 255 255 255
return
return

:Noname_333
0391: release_textures
0390: load_txd_dictionary 'C_RADAR'
038F: load_texture "RADARRINGFRONT" as 1 // Load dictionary with 0390 first
return

:Noname_368
09BA: show_entered_zone_name 0
09B9: show_entered_car_name 0
return
Otis Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 551
Боец
Сообщений: 56
Статус: Offline
 Короче, сделал клео, если нажать L+O, то тпхает вверх, если нажать L+K, то прямо, в обоих случаях скрипт останавливается на L, но работает только тп вверх, и то нужно пару раз на клаву нажать на кнопки, что исправить?
Код

{$CLEO .cs}

0000:

:kn1_1   
wait 0    
if and  
      0AB0:  key_pressed 76    
      0AB0:  key_pressed 75                    
jf @kn2_1                    
:kn1_2                    
wait 0                    
if or                    
      0AB0:  key_pressed 76  
      0AB0:  key_pressed 75  
jf @priamo  
jump @kn1_1

:kn2_1
wait 0
if and  
      0AB0:  key_pressed 76    
      0AB0:  key_pressed 79                    
jf @kn1_1                    
:kn2_2                    
wait 0                    
if or                    
      0AB0:  key_pressed 76  
      0AB0:  key_pressed 79  
jf @vverh  
jump @kn1_1

:priamo
wait 0
if  
Player.Defined($Player_Actor)
jf @kn1_1
Player.Defined($Player_Actor)
Actor.StorePos($Player_Actor, 1@, 2@, 3@)
2@ += 50
Actor.PutAt($Player_Actor, 1@, 2@, 3@)
if
0AB0: key_pressed 76
jf @priamo
jump @kn1_1

:vverh  
wait 0
if  
Player.Defined($Player_Actor)
jf @kn1_1
Actor.StorePos($Player_Actor, 1@, 2@, 3@)
3@ += 50
Actor.PutAt($Player_Actor, 1@, 2@, 3@)
if
0AB0: key_pressed 76
jf @vverh
jump @kn1_1
DokerGT Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 552
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
Код
kn1_1    
wait 0     
if and   
       0AB0:  key_pressed 76     
       0AB0:  key_pressed 75                     
jf @kn2_1                     
:kn1_2                     
wait 0                     
if or                     
       0AB0:  key_pressed 76   
       0AB0:  key_pressed 75   
jf @priamo   
jump @kn1_1  

:kn2_1  
wait 0  
if and   
       0AB0:  key_pressed 76     
       0AB0:  key_pressed 79                     
jf @kn1_1                     
:kn2_2                     
wait 0                     
if or                     
       0AB0:  key_pressed 76   
       0AB0:  key_pressed 79   
jf @vverh   
jump @kn1_1  

Что это за бред?
Вот что должно быть ( не тестил, но вроде должно работать)
Код
{$CLEO .cs}
0000:

:proverka_na_priamo // Проверяем нажатия для тп прямо
wait 0
if and
0ab0: 76
0ab0: 75
jf @proverka_na_vverh // Если нет то прыгаем на проверку вверх(для цикла проверок)
jump @priamo // Если проверка прошла то прыгаем на тп прямо

:proverka_na_vverh  // Проверяем нажатия для тп вверх
wait 0
if and
0ab0: 76
0ab0: 79
jf @proverka_na_priamo // Прыгаем на начало (опять же для цикла)
jump @vverh  // Если проверка прошла то прыгаем на тп вверх

:priamo
wait 0
if
056D: $Player_actor  // Проверка на существование актера
jf @proverka_na_priamo
Actor.StorePos($Player_actor 1@ 2@ 3@) // Сохраняем координаты
wait 50
2@ += 50 // +50 к в Y
Actor.PutAt($Player_actor 1@ 2@ 3@) // тп-хаем нас на координаты +50 по Y
jump @proverka_na_priamo // прыгаем на начало
                      
:vverh
wait 0
if
056d: $Player_actor // Проверка на существование актера
jf @proverka_na_priamo
Actor.StorePos($Player_actor 1@ 2@ 3@) // Сохраняем координаты
wait 50
3@ =+ 50 // +50 к Z
Actor.PutAt($Player_actor 1@ 2@ 3@) // тп-хаем нас на координаты +50 по Z
jump @proverka_na_priamo  // Прыгаем на начало

Denchik Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 553
Новичок
Сообщений: 26
Статус: Offline
 помогите отредактировать, крашит при заходе
Код
{$cleo .cs}   
0000:   
if not 0@ = samp.base()   
then 0a93:   
end      
repeat   
wait 200   
until samp.available()
0af8: samp add_message_to_chat "minibot для костей" color 0xff0000   
0b34: samp register_client_command "fak" to_label @asd  
       
while true   
wait 0   
end   

:asd
     0af9: samp say_msg "/time"
     wait 1000
     0af9: samp say_msg "/time"
     wait 1000
     0af9: samp say_msg "/time"
     wait 2000   
     0af8: samp add_message_to_chat "не(МАТ) ботить пидар" color 0xff0000
     samp.disconnect(0)
                 
0b43: samp cmd_ret
RusFatal Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 554
Новичок
Сообщений: 23
Статус: Offline
 Помогите,не могу понять на какую клавишу активация скрипта smile


Тот самый ARP_Farrest
Кoт Дата: Суббота, 05.09.2015, 21:43 | Сообщение # 555

Сообщений: 1074
Статус: Offline
Цитата RusFatal ()
Помогите,не могу понять на какую клавишу активация скрипта

Тот самый ARP_Farrest

Активацию меняешь в ini
Цитата RusFatal ()
[act]
activate=49 // 1
#################
#################
[rel]
reloade=50 // 2
#################
#################

http://wenegred.ru/publ/1/1-1-0-16
Форум » Программирование » CLEO Программирование » [CLEO] Помощь по редактированию скриптов
Поиск:
Статистика Форума
Последнии темы
[Продам] БАГ на ВИРТЫ са...
Отели для путешествий
Обман при покупке |...
✅САМЫЕ НИЗКИЕ ЦЕНЫ НА ВИ...
Курилка
⏮⏮⛔⛔⛔⛔⛔ПРОДАЖА✅ПОКУПКА✅ ...
✅✅✅ПРОДАЖА ВИРТОВ SAMP/C...
Мой кейс | Как зара...
Blood Strike Чит Hack Ch...
Куплю аккаунт в фбр на E...
МОСС КЕСИМОВ✔ чистые вир...
Танк мечты: Sheridan Рак...
Читаемые темы
Курилка [10000]
[0.3z][RUS] S0beit mo... [9991]
Поиск CLEO скриптов &... [9977]
Флудильная [9936]
Курилка [9688]
RakBot - Качай аккаун... [9653]
Курилка [9614]
Общение читеров [CM] [9523]
S0beit - pr9n project... [9501]
Часто задаваемые вопр... [8268]
ПОКУПАЮ/ПРОДАЮ ♚SAMP♚... [6360]
[0.3.7][RUS] Sobeit m... [6249]
[FREE] AntiAFK_R 3.4.... [6220]
Лучшие пользователи
Admin [39113]
GеNius [7210]
[CM]Russel [5557]
kenlo763 [4952]
[CM]AGRESSOR [4639]
Snake_Firm [4452]
Сэс [4416]
Artem_Buero [4223]
[CM]Durman [3204]
[CM]Рафаэль [3080]
iMaddy [2855]
sky_Woker [2854]
getrekt [2745]
Новые пользователи
060sbr [19:11]
Getrawn [15:53]
malancea98a [03:26]
hgfhfhfhgf [21:19]
surreal55 [19:41]
wyatzz1313 [18:45]
Stankeev [16:00]
Lum1x [15:50]
NightMusicant [12:32]
douoling652 [10:40]
billienq1 [01:47]
staciah1 [01:15]
maksmovictimofej [00:18]