[CLEO] Вопрос - Ответ - Страница 114 - Форум Cheat-Master.ru
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » CLEO Программирование » [CLEO] Вопрос - Ответ
[CLEO] Вопрос - Ответ
[CM]Рафаэль Дата: Суббота, 05.09.2015, 20:19 | Сообщение # 1
Cheat-Master
Сообщений: 3080
Статус: Offline

В этой теме задаются вопросы по CLEO, конкретным опкодам (например, назначение того или иного опкода) и т.д.


Форма вопроса:
Код
[color=#1E90FF][b]Вопрос:[/b][/color] text


Форма ответа:
Код
[color=#1E90FF][b]Ответ:[/b][/color] text

Мой Shop
Официальный гарант

Контактные данные:
VK: vk.com/ali_benua
Skype: lvinyipen
Telegram: @AliBenua
ICQ: 552-090-283
Toplivo Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1696
Советник
Сообщений: 728
Статус: Offline
Код
{$VERSION 3.1.1000}   
{$CLEO}  
//-------------MAIN---------------   
0000: NOOP  
thread 'kirill57rus'  
03BC: 17@ = create_sphere_at 1667.73 -2080.54 13.55 radius 1.0  
03BC: 18@ = create_sphere_at 2190.02 -1834.03 16.15 radius 1.0  
03BC: 19@ = create_sphere_at 2536.84 -1662.19 15.18 radius 1.0  
03BC: 20@ = create_sphere_at 2793.50 -1626.17 10.92 radius 1.0  
03BC: 21@ = create_sphere_at 2654.21 -2031.46 13.55 radius 1.0  

:marker_1  
wait 0  
if  
00EC: actor $PLAYER_ACTOR sphere 0 near_point 1667.73 -2080.54 13.55 radius 1.0 1.0  
else_jump @marker_2  
jump @teleport  

:marker_2  
wait 0  
if  
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2190.02 -1834.03 16.15 radius 1.0 1.0  
else_jump @marker_3  
jump @teleport  

:marker_3  
wait 0  
if  
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2536.84 -1662.19 15.18 radius 1.0 1.0  
else_jump @marker_4  
jump @teleport  

:marker_4  
wait 0  
if  
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2793.50 -1626.17 10.92 radius 1.0 1.0  
else_jump @marker_5  
jump @teleport  

:marker_5  
wait 0  
if  
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2654.21 -2031.46 13.55 radius 1.0 1.0  
else_jump @marker_1  
jump @teleport  

:teleport   
0ab1: call @coordmaster 5 X 223.50 Y 1931.45 Length 70.0 Depth -80.0 Delay 1100
jump @marker_1  

:coordmaster   
while true   
         wait 0
         0087: 15@ = 0@   
         0087: 16@ = 1@
         0acd: "Teleport ON" 500   
         if 12@ == 12   
         then   
             12@ = 0   
             break   
         end   
         0087: 0@ = 15@   
         0087: 1@ = 16@   
         actor.StorePos($PLAYER_ACTOR,9@,10@,11@)   
         0509: 6@ = distance_between_XY 0@ 1@ and_XY 9@ 10@   
         if 6@ <= 120.0   
         then   
             02CE: 11@ = ground_z_at 0@ 1@ 999.0   
             09bc: $PLAYER_ACTOR 0@ 1@ 11@   
             if actor.Driving($PLAYER_ACTOR)   
             then   
                 5@ = actor.CurrentCar($PLAYER_ACTOR)   
                 car.LockInCurrentPosition(5@,0)   
             else   
                 actor.LockInCurrentPosition($PLAYER_ACTOR,0)   
             end   
             break   
         else   
             0061: 0@ -= 9@   
             0061: 1@ -= 10@   
             0604: get_Z_angle_for_point 0@ 1@ store_to 6@   
             if actor.Driving($PLAYER_ACTOR)   
             then   
                 5@ = actor.CurrentCar($PLAYER_ACTOR)   
                 car.LockInCurrentPosition(5@,1)   
                 car.Angle(5@) = 6@   
             else   
                 actor.LockInCurrentPosition($PLAYER_ACTOR,1)   
                 actor.Angle($PLAYER_ACTOR) = 6@   
             end   
             04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 2@ 0.0 // 70.0 - ?????????? ??????   
             09bc: $PLAYER_ACTOR 8@ 9@ 3@   
             32@ = 0   
             while 0025:   4@ > 32@   
                 wait 0   
                 if 0adc: "OFF"  
                 then   
                     0acd: "CoordMaster OFF" 500   
                     actor.StorePos($PLAYER_ACTOR,8@,9@,10@)   
                     02CE: 11@ = ground_z_at 8@ 9@ 999.0   
                     11@ += 1.0   
                     00a1: $PLAYER_ACTOR 8@ 9@ 11@   
                     if actor.Driving($PLAYER_ACTOR)   
                     then   
                         5@ = actor.CurrentCar($PLAYER_ACTOR)   
                         car.LockInCurrentPosition(5@,0)   
                     else   
                         actor.LockInCurrentPosition($PLAYER_ACTOR,0)   
                     end   
                     12@ = 12   
                     break   
                 end   
             end   
         end   
end   
0ab2: ret 0  

Дурак дает,умный берет.
Suharik Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1697
Любитель
Сообщений: 35
Статус: Offline
 Спасибо огромное :3

Добавлено (16.02.2014, 12:15)
---------------------------------------------
Только когда я становлюсь на пикап он не тпхает в координаты которые мне нужны, а именно на 223.50 1931.45 17.64, а тпхает по всей карте кругами

>> Скупаю аккаунты Advance RP | Быстро, анонимно, безопасно <<

Статус VK -
Toplivo Дата: Воскресенье, 06.09.2015, 01:11 | Сообщение # 1698
Советник
Сообщений: 728
Статус: Offline
Цитата Suharik ()
Только когда я становлюсь на пикап он не тпхает в координаты которые мне нужны, а именно на 223.50 1931.45 17.64, а тпхает по всей карте кругами

Код

{$VERSION 3.1.1000}    
{$CLEO}   
//-------------MAIN---------------    
0000: NOOP   
thread 'kirill57rus'   
03BC: 17@ = create_sphere_at 1667.73 -2080.54 13.55 radius 1.0   
03BC: 18@ = create_sphere_at 2190.02 -1834.03 16.15 radius 1.0   
03BC: 19@ = create_sphere_at 2536.84 -1662.19 15.18 radius 1.0   
03BC: 20@ = create_sphere_at 2793.50 -1626.17 10.92 radius 1.0   
03BC: 21@ = create_sphere_at 2654.21 -2031.46 13.55 radius 1.0   

:marker_1   
wait 0   
if   
00EC: actor $PLAYER_ACTOR sphere 0 near_point 1667.73 -2080.54 13.55 radius 1.0 1.0   
else_jump @marker_2   
jump @teleport   

:marker_2   
wait 0   
if   
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2190.02 -1834.03 16.15 radius 1.0 1.0   
else_jump @marker_3   
jump @teleport   

:marker_3   
wait 0   
if   
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2536.84 -1662.19 15.18 radius 1.0 1.0   
else_jump @marker_4   
jump @teleport   

:marker_4   
wait 0   
if   
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2793.50 -1626.17 10.92 radius 1.0 1.0   
else_jump @marker_5   
jump @teleport   

:marker_5   
wait 0   
if   
00EC: actor $PLAYER_ACTOR sphere 0 near_point 2654.21 -2031.46 13.55 radius 1.0 1.0   
else_jump @marker_1   
jump @teleport   

:teleport    
0ab1: call @coordmaster 5 X 223.50 Y 1931.45 Length 70.0 Depth -80.0 Delay 1100  
jump @marker_1   

:coordmaster
0acd: "CoordMaster ON" 500
0087: 15@ = 0@
0087: 16@ = 1@
while true
     wait 0
     if 12@ == 12
     then
         12@ = 0
         break
     end
     0087: 0@ = 15@
     0087: 1@ = 16@
     actor.StorePos($PLAYER_ACTOR,9@,10@,11@)
     0509: 6@ = distance_between_XY 0@ 1@ and_XY 9@ 10@
     if 6@ <= 120.0
     then
         02CE: 11@ = ground_z_at 0@ 1@ 999.0
         09bc: $PLAYER_ACTOR 0@ 1@ 11@
         if actor.Driving($PLAYER_ACTOR)
         then
             5@ = actor.CurrentCar($PLAYER_ACTOR)
             car.LockInCurrentPosition(5@,0)
         else
             actor.LockInCurrentPosition($PLAYER_ACTOR,0)
         end
         break
     else
         0061: 0@ -= 9@
         0061: 1@ -= 10@
         0604: get_Z_angle_for_point 0@ 1@ store_to 6@
         if actor.Driving($PLAYER_ACTOR)
         then
             5@ = actor.CurrentCar($PLAYER_ACTOR)
             car.LockInCurrentPosition(5@,1)
             car.Angle(5@) = 6@
         else
             actor.LockInCurrentPosition($PLAYER_ACTOR,1)
             actor.Angle($PLAYER_ACTOR) = 6@
         end
         04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0.0 2@ 0.0 // 70.0 - расстояние прыжка
         09bc: $PLAYER_ACTOR 8@ 9@ 3@
         32@ = 0
         while 0025:   4@ > 32@
             wait 0
             if 0adc: "OFF" // Дезактивация
             then
                 0acd: "CoordMaster OFF" 500
                 actor.StorePos($PLAYER_ACTOR,8@,9@,10@)
                 02CE: 11@ = ground_z_at 8@ 9@ 999.0
                 11@ += 1.0
                 00a1: $PLAYER_ACTOR 8@ 9@ 11@
                 if actor.Driving($PLAYER_ACTOR)
                 then
                     5@ = actor.CurrentCar($PLAYER_ACTOR)
                     car.LockInCurrentPosition(5@,0)
                 else
                     actor.LockInCurrentPosition($PLAYER_ACTOR,0)
                 end
                 12@ = 12
                 break
             end
         end
     end
end
0ab2: ret 0

Должен робить 100%

Дурак дает,умный берет.
Nem4ik Дата: Воскресенье, 06.09.2015, 01:11 | Сообщение # 1699
Боец
Сообщений: 92
Статус: Offline
 Иногда крашит помогите исправить,и если ещё можно добавте автопокупку дома


Сообщение отредактировал Nem4ik - Понедельник, 17.02.2014, 17:16
Кoт Дата: Воскресенье, 06.09.2015, 01:11 | Сообщение # 1700

Сообщений: 1074
Статус: Offline
Цитата Nem4ik ()
:HOUSECHECKER_546
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
return


:HOUSECHECKER_546
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
wait 500
0af9: "/buyhouse"
return

а крашит из-за сф,потому что его на 03z fix
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:11 | Сообщение # 1701
Советник
Сообщений: 784
Статус: Offline
 dikker4q, да. Открываешь скрипт и ставишь условие при котором он будет активироваться.

Добавлено (18.02.2014, 14:00)
---------------------------------------------

Цитата Кoт ()
:HOUSECHECKER_546 Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@) wait 500 0af9: "/buyhouse" return

Можно и без СФ, вот так попробовать
Код

:HOUSECHECKER_546  
  Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)  
  wait 500  
if
0AB1: call_scm_func @Say 1  "/buyhouse"
jf @HOUSECHECKER_546  
  return

:say
00D6: if
0AA2: 4@ = load_library "kernel32.dll" // IF and SET
004D: jump_if_false @ErrorLib
00D6: if
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 4@ // IF and SET
004D: jump_if_false @end
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 4@
4@ += 0x4CA0
  0AA5: call 4@ num_params 1 pop 0 0@
0485:  return_true

:ErrorLib
0AA3: free_library 4@

:end
059A:  return_false


p.s. Не проверял, но вдруг получится.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Повелитель Дата: Воскресенье, 06.09.2015, 01:11 | Сообщение # 1702
Новичок
Сообщений: 8
Статус: Offline
Цитата RAKSHA1337 ()
Можно и без СФ, вот так попробовать
Код

:HOUSECHECKER_546
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
wait 500
if
0AB1: call_scm_func @Say 1  "/buyhouse"
jf @HOUSECHECKER_546
return

:say
00D6: if
0AA2: 4@ = load_library "kernel32.dll" // IF and SET
004D: jump_if_false @ErrorLib
00D6: if
0AA4: 1@ = get_proc_address "GetModuleHandleA" library 4@ // IF and SET
004D: jump_if_false @end
0AA7: call_function 1@ num_params 1 pop 0 "samp.dll" 4@
4@ += 0x4CA0
0AA5: call 4@ num_params 1 pop 0 0@
0485:  return_true

:ErrorLib
0AA3: free_library 4@

:end
059A:  return_false

p.s. Не проверял, но вдруг получится.

Сначала идёт оффсет на структуру, а потом уже на саму функцию. И оффсеты на ввод обычного текста и ввод команды разные. Команда, отправленная в чат с помощью 0x4CA0 не будет принята сервером.
Код
0AA2: 31@ = load_library "kernel32.dll"
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 1@
0A8E: 1@ = 0@ + 0x212A6C
0A8D: 2@ = read_memory 1@ size 4 virtual_protect 1
0A8E: 1@ = 0@ + 0x7BDD0
0AA5: call 1@ num_params 1 pop 0 "/buyhouse"
Снимаю защиту (крипт) с клео-скриптов за оплату на ВМ. Подробности в ЛС.

Сообщение отредактировал Повелитель - Вторник, 18.02.2014, 22:10
Кoт Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1703

Сообщений: 1074
Статус: Offline
 dell


Сообщение отредактировал Кoт - Среда, 19.02.2014, 14:03
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1704
Советник
Сообщений: 784
Статус: Offline
Цитата Повелитель ()
Сначала идёт оффсет на структуру, а потом уже на саму функцию.

Ничего не знаю, у меня работает, всмысле в чат пишет, правда там структура скрипта немного подругому, а так всё работает, хотяя не проверял что видят другие игроки, но я свой текст вижу.
Код
1@ = SampBase
1@ += 0x4CA0
   
0AA5: call 1@ num_params 1 pop 0 "wowka"

p.s. Откуда ты выпал? Полюбому слова, что выше не из твоей головы.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Повелитель Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1705
Новичок
Сообщений: 8
Статус: Offline
Цитата raksha1337 ()
p.s. откуда ты выпал? полюбому слова, что выше не из твоей головы.

Уeбался?
Снимаю защиту (крипт) с клео-скриптов за оплату на ВМ. Подробности в ЛС.
Eazy1337 Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1706
Новичок
Сообщений: 17
Статус: Offline
 Привет, у меня такой вопрос. Без сампфункса, будет работать взятие патрон на маленьком расстояние, чтобы на самом пикапе не стоять на Advance-rp. Ну как на samp-rp, в армейке ган быстро на расстояние набирали.
изучаю cleo :3
DokerGT Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1707
★Doker крутой перец!★
Сообщений: 329
Статус: Offline
 Вопрос: Каким опкодом заставить нашего педа сесть на пасс. место?
JJJJJ Дата: Воскресенье, 06.09.2015, 01:12 | Сообщение # 1708
Бывалый
Сообщений: 392
Статус: Offline
Цитата DokerGT ()
Вопрос: Каким опкодом заставить нашего педа сесть на пасс. место?

072B: put_actor $PLAYER_ACTOR into_car 0@ passengerseat 1
Не помню, 0 - это вод. место или пасс. место.


SAMP 0.3z: http://yadi.sk/d/8ljsLu7m3Iitb
CLEO 4.1: http://clck.ru/978nn
CLEO 4.3: http://cleo.li/cleo4/CLEO4_setup.exe
GTA:SA 1.0 us: http://yadi.sk/d/pJNaahj92MlQD
[CLEO] Админ-чекер на худе: http://cheat-master.ru/forum/129-220729-1
Кoт Дата: Воскресенье, 06.09.2015, 01:13 | Сообщение # 1709

Сообщений: 1074
Статус: Offline
Цитата JJJJJ ()
072B: put_actor $PLAYER_ACTOR into_car 0@ passengerseat 1
Не помню, 0 - это вод. место или пасс. место.

разве это не тп в кар?
JJJJJ Дата: Воскресенье, 06.09.2015, 01:13 | Сообщение # 1710
Бывалый
Сообщений: 392
Статус: Offline
Цитата Кoт ()
разве это не тп в кар?

Он же садится.
Раз нужен аск, то вот:
05CA: AS_actor $PLAYER_ACTOR enter_car 0@ passenger_seat 1 time 10000
10000 - если в течении этого времени "задание" не выполнится, то он сразу тпшится в кар.


SAMP 0.3z: http://yadi.sk/d/8ljsLu7m3Iitb
CLEO 4.1: http://clck.ru/978nn
CLEO 4.3: http://cleo.li/cleo4/CLEO4_setup.exe
GTA:SA 1.0 us: http://yadi.sk/d/pJNaahj92MlQD
[CLEO] Админ-чекер на худе: http://cheat-master.ru/forum/129-220729-1
Форум » Программирование » CLEO Программирование » [CLEO] Вопрос - Ответ
Поиск:
Статистика Форума
Последнии темы
Оригинальные моды Сrime-...
✅ПРОДАЮ И СКУПАЮ ВИРТЫ Н...
✅ПРОДАЮ И СКУПАЮ ВИРТЫ Н...
Hytale чит, хак, софт, e...
⭐Sendersex.com Игра Эрот...
GTA5VIRTS.COM / КУПИТЬ, ...
Ищу будущего Владельца/Р...
cheat-master 2025
Wheel Fortune++ - Чит на...
Куплю аккаунт администра...
Продажа мода Diamond RP ...
Left 4 Dead 2 чит, хак, ...
Читаемые темы
Курилка [10000]
[0.3z][RUS] S0beit mo... [9991]
Поиск CLEO скриптов &... [9976]
Флудильная [9936]
Курилка [9688]
RakBot - Качай аккаун... [9653]
Курилка [9614]
Общение читеров [CM] [9523]
S0beit - pr9n project... [9501]
Часто задаваемые вопр... [8268]
ПОКУПАЮ/ПРОДАЮ ♚SAMP♚... [6360]
[0.3.7][RUS] Sobeit m... [6250]
[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]
Новые пользователи
ub1xmanager [21:28]
Amazonnnswf [18:54]
luffipirate [16:35]
candysize [13:17]
Lesa864 [13:53]
okyesokyesokya [13:12]
Blenderpcy [01:41]
723117078 [00:07]
Alan050 [22:54]
akvqb [11:10]
vahe7172 [21:23]
fomhyys [21:11]
bievziuk2002 [21:06]