[CLEO] Помощь по редактированию скриптов - Страница 27 - Форум Cheat-Master.ru
Модератор форума: Alowir, Sanoxxx  
[CLEO] Помощь по редактированию скриптов
Maquire Дата: Суббота, 05.09.2015, 21:15 | Сообщение # 391
Новичок
Сообщений: 11
Статус: Offline
Всем салют! Как получить уровень розыска в сампе? Player.WantedLevel($PLAYER_CHAR) почему-то всегда выдает 0

Скачал GTA 5 Hud, но там розыск не отображается. Решил попытатся сделать клео скрипт для отображения розыска.

Появилась проблема, а т.к. я никогда не писал скрипты, не могу её решить =\ Вот мой код

Код
{$CLEO}

0000:

thread 'WANTED'

if

Player.Defined($PLAYER_CHAR)

while true

     0390: load_txd_dictionary 'wanted'

038F: load_texture "w0" as 1

038F: load_texture "w1" as 2

038F: load_texture "w2" as 3

038F: load_texture "w3" as 4

038F: load_texture "w4" as 5

038F: load_texture "w5" as 6

038F: load_texture "w6" as 7

             1@ = Player.WantedLevel($PLAYER_CHAR)

             if

                 1@ == 0

             then

                 wait 0

                 038D: create_texture 1 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if

                 1@ == 1

             then

                 wait 0

                 038D: create_texture 2 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if

                 1@ == 2

             then

                 wait 0

                 038D: create_texture 3 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if

                 1@ == 3

             then

                 wait 0

                 038D: create_texture 4 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if

                 1@ == 4

             then

                 wait 0

                 038D: create_texture 5 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if                    

                 1@ == 5

             then

                 wait 0

                 038D: create_texture 6 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

             if

                 1@ == 6

             then

                 wait 0

                 038D: create_texture 7 position 66.0 440.0 scale 100.0 13.0 color 255 219 25 alpha 255

             end

         wait 0

     0391: release_txd_dictionary

wait 0

end

wait 0

0A93: end_custom_thread


P.S. Не смейтесь, первый мой скрипт ;3
igorigor6160 Дата: Суббота, 05.09.2015, 21:15 | Сообщение # 392
Боец
Сообщений: 87
Статус: Offline
Приветствую! В общем я только сегодня начал обучаться Клео программированию, посмотрел пару уроков попробывал создать телепорт. Получилось! Но есть проблема, телепортирует как обычный телепорт, а нужен как корд мастер+ команды(/maria или что-то на подобие)
Код
     
     {$CLEO .cs}        
0000: NOP  
thread "CordMsByPuk"

:1
wait 0

if

0AB0:   key_pressed 106

jf @1

:2
wait 0
Actor.PutAt($PLAYER_ACTOR, 2030.8563 -1416.9611 16.9922 0)

jump @1

Разжуйте мне все пожалуйста, есть жажда учиться smile


KIM_CHEN_IN
karabawka Дата: Суббота, 05.09.2015, 21:15 | Сообщение # 393
Главный предприниматель
Сообщений: 1121
Статус: Offline
igorigor6160, советую начать с чего-нибудь попроще, тут и так есть гора разжеванных уроков, смотри в навигации по разделу и изучай постепенно: http://cheat-master.ru/forum/116-153411-1

Вот код простого кордмастера от меломана, здесь активация на команду GO не в чат.
Изучай, с комментами.
Kanoo Дата: Суббота, 05.09.2015, 21:15 | Сообщение # 394
Бывалый
Сообщений: 324
Статус: Offline
Где здесь пишется о том что "Вы посадили преступника на 600 секунд" ???
Код
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP  
thread "d1tewik"  

:D1TEWIK_13
wait 0  
if  
0AFA:  
jf @D1TEWIK_13  
0AF7:  
hex
  03 0C 00 34 0B 0E 09 66 61 6B 65 61 72 65 73 74
  01 4E FF FF FF C8 0A 04 46 03 03 00
end
0AC8: 2@ = allocate_memory_size 70  
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\farest.ini" section "Fakearest" key "Ник преступника" //IF and SET  
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\farest.ini" section "Fakearest" key "Ваш ник" //IF and SET  

:D1TEWIK_167
wait 0  
jump @D1TEWIK_167  
wait 0  
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\farest.ini" section "Fakearest" key "Ник преступника" //IF and SET  
0AF4: 3@ = read_string_from_ini_file "CLEO\INI\farest.ini" section "Fakearest" key "Ваш ник" //IF and SET  
0AF8:  
hex
  0E 1C C2 FB 20 EF EE F1 E0 E4 E8 EB E8 20 25 73
  20 ED E0 20 36 30 30 20 F1 E5 EA F3 ED E4 01 FF
  B1 6A 00 03
end
jump  
0AF8:  
hex
  0E 1C 3C 3C 20 CE F4 E8 F6 E5 F0 20 25 73 20 E0
  F0 E5 F1 F2 EE E2 E0 EB 20 25 73 20 3E 3E 01 47
  63 FF 00 03
end
Camera.Shake(2@)
hex
  00 43 0B 1A A1


Мой бот на ловлю машин(Arizona)
https://yadi.sk/d/8f0T4vnKPtqsFQ
http://rgho.st/8ypsgBTjx
karabawka Дата: Суббота, 05.09.2015, 21:15 | Сообщение # 395
Главный предприниматель
Сообщений: 1121
Статус: Offline
Цитата Kanoo ()
Где здесь пишется о том что "Вы посадили преступника на 600 секунд" ???


Как видишь, здесь конструкция hex -> end. Простым языком это вроде что-то типа шифра, запись в шестнадцатиричном значении.
Kanoo Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 396
Бывалый
Сообщений: 324
Статус: Offline
Цитата karabawka ()
Как видишь, здесь конструкция hex -> end. Простым языком это вроде что-то типа шифра, запись в шестнадцатиричном значении.

И как этот шифр расшифровать?


Мой бот на ловлю машин(Arizona)
https://yadi.sk/d/8f0T4vnKPtqsFQ
http://rgho.st/8ypsgBTjx
Toplivo Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 397
Советник
Сообщений: 728
Статус: Offline
Поищи в гугле "расшифровка hex"


Дурак дает,умный берет.
Zoxan181995 Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 398
Новичок
Сообщений: 3
Статус: Offline
мне нужно забить в переменную значение хп игрока. Как это зделать?

Добавлено (02.11.2013, 16:47)
---------------------------------------------
Поможите?

Toplivo Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 399
Советник
Сообщений: 728
Статус: Offline
Цитата Zoxan181995 ()
мне нужно забить в переменную значение хп игрока. Как это зделать?

Код
0@ = actor.Health($PLAYER_ACTOR)



Дурак дает,умный берет.
fast3w Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 400
Новичок
Сообщений: 19
Статус: Offline
Всем привет.Нужна помощь.Я на форуме нашел GM от пуль by FaraoN161 ( http://cheat-master.ru/forum/129-62811-1 ) И мне нужна помощь.Мне надо вот этот ГМ http://rghost.ru/43438953 исправить.Убрать две строчки,у меня не получается.

018C: play_sound 1085 at 0.0 0.0 0.0 - в начале скрипта.
018C: play_sound 1084 at 0.0 0.0 0.0 - в конце скрипта.

Чтобы не было звука,когда прицеливаешься и отпускаешь прицел.И у меня почему то,получается в txt формате,а надо в .cs
Заранее спасибо!
Niko_Belic Дата: Суббота, 05.09.2015, 21:16 | Сообщение # 401
Новичок
Сообщений: 25
Статус: Offline
Как сделать что бы команда повторялась через определенное время? Пока снова не нажать num0 тобиш key_pressed 96
Код
{$CLEO}
0000:
if
not 29@ = samp.Base()
then
end_thread
else
     while not samp.Available()
     wait 100
     end
end

while true
wait 0
     if 0AB0: key_pressed 96
     then
     0AF9: samp say_msg "/usedrugs pot"
     while 0AB0: key_pressed 96
     wait 0
     end
     end    
end
karabawka Дата: Суббота, 05.09.2015, 21:17 | Сообщение # 402
Главный предприниматель
Сообщений: 1121
Статус: Offline
Niko_Belic,

Используй этот цикл:

Код
repeat

0AF9: samp say_msg "/usedrugs pot"

until 0ab0: 96
Ravort Дата: Суббота, 05.09.2015, 21:17 | Сообщение # 403
Новичок
Сообщений: 8
Статус: 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---------------
thread "COORDMASTERZ"  
0662: printstring "Made by MISTER_GONWIK"  
0662: printstring "Modification by MelomanCool"  

:COORDMASTERZ_72
wait 0  
if  
0ADC:   test_cheat "GO"  
else_jump @COORDMASTERZ_907  
if  
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET  
else_jump @COORDMASTERZ_907  

:COORDMASTERZ_115
wait 0  
if  
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET  
else_jump @COORDMASTERZ_783  
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0509: 6@ = distance_between_XY 3@ 4@ and_XY 0@ 1@  
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@  
if  
    not 7@ > 70.0  
else_jump @COORDMASTERZ_253  
02CE: 5@ = ground_z_at 3@ 4@ 999.0  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @COORDMASTERZ_833  

:COORDMASTERZ_253
if and
0025:   2@ > 5@ // (float)  
   2@ > 30.0  
else_jump @COORDMASTERZ_420  
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if  
    Actor.Driving($PLAYER_ACTOR)
else_jump @COORDMASTERZ_320  
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False

:COORDMASTERZ_320
if  
    not 2@ >= 30.0  
else_jump @COORDMASTERZ_348  
jump @COORDMASTERZ_420  

:COORDMASTERZ_348
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 -70.0  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@  
wait 1000  
jump @COORDMASTERZ_320  

:COORDMASTERZ_420
if and
8025:   not  2@ > 5@ // (float)  
    not 6@ >= 70.0  
else_jump @COORDMASTERZ_651  
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if  
    Actor.Driving($PLAYER_ACTOR)
else_jump @COORDMASTERZ_487  
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = True

:COORDMASTERZ_487
   7@ > 70.0  
else_jump @COORDMASTERZ_576  
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 70.0  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@  
wait 1000  
jump @COORDMASTERZ_487  

:COORDMASTERZ_576
02CE: 5@ = ground_z_at 3@ 4@ 999.0  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if  
    Actor.Driving($PLAYER_ACTOR)
else_jump @COORDMASTERZ_644  
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False

:COORDMASTERZ_644
jump @COORDMASTERZ_833  

:COORDMASTERZ_651
0063: 3@ -= 0@ // (float)  
0063: 4@ -= 1@ // (float)  
0604: get_Z_angle_for_point 3@ 4@ store_to 8@  
Actor.Angle($PLAYER_ACTOR) = 8@
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if  
    Actor.Driving($PLAYER_ACTOR)
else_jump @COORDMASTERZ_732  
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.Angle(30@) = 8@
Car.LockInCurrentPosition(30@) = True

:COORDMASTERZ_732
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 70.0 0  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -40.0)
wait 1000  
jump @COORDMASTERZ_820  

:COORDMASTERZ_783
02CE: 5@ = ground_z_at 3@ 4@ 999.0  
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @COORDMASTERZ_833  

:COORDMASTERZ_820
0ADC:   test_cheat "NO"  
else_jump @COORDMASTERZ_115  

:COORDMASTERZ_833
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 999.0  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if  
056E:   car 30@ defined  
else_jump @COORDMASTERZ_907  
Car.LockInCurrentPosition(30@) = False

:COORDMASTERZ_907
jump @COORDMASTERZ_72
Toplivo Дата: Суббота, 05.09.2015, 21:17 | Сообщение # 404
Советник
Сообщений: 728
Статус: Offline
Цитата Ravort ()
:COORDMASTERZ_732
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 70.0 0  
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -40.0)
wait 1000  
jump @COORDMASTERZ_820  

Вместо
Код
wait 1000  

Указывай свою задержку



Дурак дает,умный берет.
igorigor6160 Дата: Суббота, 05.09.2015, 21:17 | Сообщение # 405
Боец
Сообщений: 87
Статус: Offline
Cоедините это by MelomanCool


C этим by xzkto


И научите, что да как писать, для соединения скриптов.


KIM_CHEN_IN

Сообщение отредактировал igorigor6160 - Понедельник, 04.11.2013, 20:39
Поиск:
Статистика Форума