[CLEO] Вопрос - Ответ - Страница 113 - Форум 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:08 | Сообщение # 1681
Советник
Сообщений: 728
Статус: Offline
Цитата RAKSHA1337 ()
попробуй так
структура авто + 0x3EC = (float) X

Не,это не то. На гтамоддинг такого нет

Дурак дает,умный берет.
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:08 | Сообщение # 1682
Советник
Сообщений: 784
Статус: Offline
 Toplivo, да всё там есть, если не то, ща значит найду. (RwV3D надо).

Добавлено (14.02.2014, 23:42)
---------------------------------------------
Кароче вот, думаю разберёшься.
0A97: 4@ = car 0@ struct
4@ += 20
0A8D: 4@ = read_memory 4@ size 4 virtual_protect 0
4@ += 48
0A8D: 5@ = read_memory 4@ size 4 virtual_protect 0 // X

Добавлено (15.02.2014, 00:09)
---------------------------------------------
0AB1: call_scm_func @SetCarPos params 4 Handle 0@ X 1@ Y 2@ Z 3@


0AB1: call_scm_func @GetCarPos params 1 Handle 0@ retCoord: X 1@ Y 2@ Z 3@

В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Patalog Дата: Воскресенье, 06.09.2015, 01:08 | Сообщение # 1683
Боец
Сообщений: 99
Статус: Offline
Пост удален
Подпишись: www.youtube.com/GorunuchCM
Факты о CM: vk.com/factsCM

Сообщение отредактировал Patalog - Суббота, 15.02.2014, 01:43
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:08 | Сообщение # 1684
Советник
Сообщений: 784
Статус: Offline
Цитата Patalog ()
Если запрещено на СМ разговоры об этом - то скажите, удалю пост.

Говорю:"Удаляй".
p.s. В самом коде 2 ошибки, если исправишь, то я подумаю, может быть и помогу.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Toplivo Дата: Воскресенье, 06.09.2015, 01:08 | Сообщение # 1685
Советник
Сообщений: 728
Статус: Offline
Цитата RAKSHA1337 ()
0AB1: call_scm_func @SetCarPos params 4 Handle 0@ X 1@ Y 2@ Z 3@

Спасибо. Позже тестану

Дурак дает,умный берет.
Suharik Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1686
Любитель
Сообщений: 35
Статус: Offline
 Нужен код кордмастера который тпхает на заданные координаты с любого места ( как в собейте ).
>> Скупаю аккаунты Advance RP | Быстро, анонимно, безопасно <<

Статус VK -
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1687
Советник
Сообщений: 784
Статус: Offline
 Suharik, ищи, он где-то был.
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Toplivo Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1688
Советник
Сообщений: 728
Статус: Offline
Цитата Suharik ()
Нужен код кордмастера который тпхает на заданные координаты с любого места ( как в собейте ).

В конец скрипта:
Код

: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

Вызов:
Код
0ab1: call @coordmaster 5 X 34.1 Y 26.3 Length 70.0 Depth -80.0 Delay 1100 // 34.1 - координаты по оси X, 26.3 - координаты по оси Y, 70.0 - длинна прыжка, -80.0 - глубина(под землей), 1100 - задержка между ТП

Пример:
Код

while true
      wait 0
      if and
          0ab0: 53
          0ab0: 54
      then
          0ab1: call @coordmaster 5 X 34.1 Y 26.3 Length 70.0 Depth -80.0 Delay 1100
          while true
              wait 0
              if or
                  8ab0: 53
                  8ab0: 54
              then break
          end
      end
end

: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
           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

Дезактивация:
Код
0adc: "OFF" //OFF не в чат



Дурак дает,умный берет.


Сообщение отредактировал Toplivo - Суббота, 15.02.2014, 22:32
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1689
Советник
Сообщений: 784
Статус: Offline
 Toplivo, эмм даа, ещё сделай так что бы и высоту измерял (я в своём сделал). Ну чтобы можно было хоть на чилиад ТП

Добавлено (15.02.2014, 22:51)
---------------------------------------------
Активация 5+6

Добавлено (15.02.2014, 22:52)
---------------------------------------------
Как блин так пишешь? Я походу 1 такой, который пишет как декомпилятор.

Добавлено (15.02.2014, 22:53)
---------------------------------------------
И главно не путаешься

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

Цитата Toplivo ()

02CE: 11@ = ground_z_at 0@ 1@ 999.0
09bc: $PLAYER_ACTOR 0@ 1@ 11@

Или я не так тебя понял?

Дурак дает,умный берет.
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:09 | Сообщение # 1691
Советник
Сообщений: 784
Статус: Offline
 Toplivo, ты на самую высокую гору так смогёшь тпшнуться без кика?
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/

Сообщение отредактировал RAKSHA1337 - Суббота, 15.02.2014, 22:57
Toplivo Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1692
Советник
Сообщений: 728
Статус: Offline
Цитата RAKSHA1337 ()
ты на самую высокую гору так смогёшь тпшнуться без кика?

Думаю да. Не кикает за тп от 90м до 120м

Дурак дает,умный берет.
Toplivo Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1693
Советник
Сообщений: 728
Статус: Offline
Цитата RAKSHA1337 ()
Как блин так пишешь?

Код взял из своего кордмастера(там код получше выглядит) и на скорую руку переделал под call. Лень было возиться с ним, т.к юзать все-равно никто не будет

Дурак дает,умный берет.
RAKSHA1337 Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1694
Советник
Сообщений: 784
Статус: Offline
 Toplivo, там оно больше будет, да и на всякий случай не помешает.

Добавлено (15.02.2014, 23:04)
---------------------------------------------

Цитата Toplivo ()
Код взял из своего кордмастера

да я про эти всякие while true if then end break else
В казино рандом. Но рандом в программах - это генератор псевдослучайных чисел, который написан ручками человека. А значит есть формула! Есть алгоритм! Есть тактика!
Кто не согласен - ставьте минус, после того как докажете обратное. https://habrahabr.ru/post/196442/
Suharik Дата: Воскресенье, 06.09.2015, 01:10 | Сообщение # 1695
Любитель
Сообщений: 35
Статус: Offline
 Крашит, что не так

Код
{$VERSION 3.1.1000}  
{$CLEO}
//-------------MAIN---------------  
0000: NOOP
thread 'kirill57rus'
03BC: 0@ = create_sphere_at 1667.73 -2080.54 13.55 radius 1.0
03BC: 1@ = create_sphere_at 2190.02 -1834.03 16.15 radius 1.0
03BC: 2@ = create_sphere_at 2536.84 -1662.19 15.18 radius 1.0
03BC: 3@ = create_sphere_at 2793.50 -1626.17 10.92 radius 1.0
03BC: 4@ = 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 @teleport 5 X 223.50 Y 1931.45 Length 70.0 Depth -80.0 Delay 1100 // 34.1 - ?????????? ?? ??? X, 26.3 - ?????????? ?? ??? Y, 70.0 - ?????? ??????, -80.0 - ???????(??? ??????), 1100 - ???????? ????? ??
0acd: "Teleport 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  
jump @marker_1

Добавлено (16.02.2014, 11:18)
---------------------------------------------
Крашит когда встаешь на маркер

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

Статус VK -
Форум » Программирование » 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]