Вопросы по CLEO-скриптингу

M

MArkoas_Gonzaleees

Новичок
22
0
Ребята, помогите с кодом. Хочу сделать бота, чтобы после активации он создавался, и когда я по нему попадаю с дигла. Звенел колокольчик. Что-то вроде Aim training
Код: 
{$CLEO .cs}
0000:

repeat
wait 100
until Samp.Available()

0B34: samp register_client_command "botc" to_label @create


:create
wait 0
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0 0 0
009A: 10@ = create_actor_pedtype 9 model #LSV3 at 1@ 2@ 3@
02AB: set_actor 10@ immunities BP 1 FP 1 EP 1 CP 1 MP 1

gosub @proverka
0AAC: $hMP3 = load_audiostream "cleo\hitbot.mp3"
jf @create

:sound
wait 0
if
031D:   actor 10@ hit_by_weapon 24
jf @sound
0AAD: set_audiostream $hMP3 perform_action 1

:lbexit
wait 0
if
0ADC:   test_cheat "off"
jf @lbexit
0AAE: release_audiostream $hMP3
Samp.CmdRet()




:proverka
if
0AAB:   file_exists "cleo\hitbot.mp3"
jf @proverka
0051: return
 
LaRossa

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Надеюсь проверку на дигл сам добавить сможешь
MArkoas_Gonzaleees написал(а):
Ребята, помогите с кодом. Хочу сделать бота, чтобы после активации он создавался, и когда я по нему попадаю с дигла. Звенел колокольчик. Что-то вроде Aim training
Код: 
{$CLEO .cs}
0000:

repeat
wait 100
until Samp.Available()

0B34: samp register_client_command "botc" to_label @create


:create
wait 0
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0 0 0
009A: 10@ = create_actor_pedtype 9 model #LSV3 at 1@ 2@ 3@
02AB: set_actor 10@ immunities BP 1 FP 1 EP 1 CP 1 MP 1

gosub @proverka
0AAC: $hMP3 = load_audiostream "cleo\hitbot.mp3"
jf @create

:sound
wait 0
if
031D:   actor 10@ hit_by_weapon 24
jf @sound
0AAD: set_audiostream $hMP3 perform_action 1

:lbexit
wait 0
if
0ADC:   test_cheat "off"
jf @lbexit
0AAE: release_audiostream $hMP3
Samp.CmdRet()




:proverka
if
0AAB:   file_exists "cleo\hitbot.mp3"
jf @proverka
0051: return
Нажмите для раскрытия...
CLEO: 
{$CLEO}
0000:
while not Samp.Available()
    wait 0
end
0AAC: 0@ = load_audiostream "CLEO\название.mp3"
0B34: samp register_client_command "kolokol" to_label @cmd
0BE1: raknet setup_outcoming_rpc_hook @hook
0BDE: pause_thread 0

:cmd
0B12: 1@ = 1@ XOR 1
if 0@ == 1
    then
    chatmsg "ON" -1
else
    chatmsg "OFF" -1
end
Samp.CmdRet()

:Hook
0BE5: raknet 2@ = get_hook_param 1
if and
1@ == 1
2@ == 115 {RPC_GIVETAKEDAMAGE}
    then
    0BE5: raknet 3@ = get_hook_param 0
    0BE7: raknet 4@ = bit_stream_read 3@ type 1
    if 4@ == 0
        then
        0AAD: set_mp3 0@ perform_action 1
    end
end
0BE0: raknet hook_ret 1
 
M

MArkoas_Gonzaleees

Новичок
22
0
LaRossa написал(а):
Надеюсь проверку на дигл сам добавить сможешь

CLEO: 
{$CLEO}Мне надо бота создать. А не колокольчик на сервер
0000:
while not Samp.Available()
    wait 0
end
0AAC: 0@ = load_audiostream "CLEO\название.mp3"
0B34: samp register_client_command "kolokol" to_label @cmd
0BE1: raknet setup_outcoming_rpc_hook @hook
0BDE: pause_thread 0

:cmd
0B12: 1@ = 1@ XOR 1
if 0@ == 1
    then
    chatmsg "ON" -1
else
    chatmsg "OFF" -1
end
Samp.CmdRet()

:Hook
0BE5: raknet 2@ = get_hook_param 1
if and
1@ == 1
2@ == 115 {RPC_GIVETAKEDAMAGE}
    then
    0BE5: raknet 3@ = get_hook_param 0
    0BE7: raknet 4@ = bit_stream_read 3@ type 1
    if 4@ == 0
        then
        0AAD: set_mp3 0@ perform_action 1
    end
end
0BE0: raknet hook_ret 1
Нажмите для раскрытия...
Мне надо бота создать. А не колокольчик на сервер
 
M

Mihan

Новичок
2
0
Приветствую. Помогите пожалуйста найти гайд. Вообщем надумал сделать бота дальнобойщика drp. Ни где не могу найти как сделать в cleo езду по кординатам. Если не сложно расскажите где можно найти похожие уроки
 
T

Trawer2289

Известный
48
9
Что не так с кодом скажите пожалуйста? И помогите исправить прошу! Суть клео такова, активируем команду вот допустим /ckill [ID игрока] то после смерти нашего персонажа тому игроку кто нас убил прибудет смс типа say "/sms %d ГРЯЗНОЕ ЖИВОТНОЕ",а у меня херь вообще получилась! Помогите прошу.
CLEO: 
{$CLEO .cs}
0000: NOP

repeat
    wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "ckill" to_label @cmd

WHILE TRUE
wait 0
    IF 0@ == 1
    THEN
        Samp.IsCommandTyped(1@)
        IF 0AD4: 2@ = scan_string 1@ format "%d" 3@
            THEN
            IF 0B20: samp 4@ = actor_handle_by_samp_player_id 3@
            THEN
                IF 0118:   actor $PLAYER_ACTOR dead
                THEN
                    say "/sms %d ГРЯЗНОЕ ЖИВОТНОЕ! СЛИТ!!!" -1
                ELSE
                    018C: play_sound 1139 at 0.0 0.0 0.0
                    msg "{FF0000}[Ckill] {FFFFFF}Неверный {FF0000}ID {FFFFFF}игрока" -1
                END
                ELSE
                    018C: play_sound 1139 at 0.0 0.0 0.0
                    msg "{FF0000}[Ckill] {FFFFFF}Введите: {FF0000}/ckill {FFFFFF}[ID игрока]" -1
                END
            END
        0@ = 0
    END
END

:cmd
IF 0@ == 1
THEN
0@ = 0
018C: play_sound 1139 at 0.0 0.0 0.0
msg "{FF0000}[Ckill] {FFFFFF}Деактивирован" -1
else
0@ = 1
018C: play_sound 1139 at 0.0 0.0 0.0
msg "{FF0000}[Ckill] {FFFFFF}Активирован" -1
END
Samp.CmdRet()
 
LaRossa

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Trawer2289 написал(а):
Что не так с кодом скажите пожалуйста? И помогите исправить прошу! Суть клео такова, активируем команду вот допустим /ckill [ID игрока] то после смерти нашего персонажа тому игроку кто нас убил прибудет смс типа say "/sms %d ГРЯЗНОЕ ЖИВОТНОЕ",а у меня херь вообще получилась! Помогите прошу.
CLEO: 
{$CLEO .cs}
0000: NOP

repeat
    wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "ckill" to_label @cmd

WHILE TRUE
wait 0
    IF 0@ == 1
    THEN
        Samp.IsCommandTyped(1@)
        IF 0AD4: 2@ = scan_string 1@ format "%d" 3@
            THEN
            IF 0B20: samp 4@ = actor_handle_by_samp_player_id 3@
            THEN
                IF 0118:   actor $PLAYER_ACTOR dead
                THEN
                    say "/sms %d ГРЯЗНОЕ ЖИВОТНОЕ! СЛИТ!!!" -1
                ELSE
                    018C: play_sound 1139 at 0.0 0.0 0.0
                    msg "{FF0000}[Ckill] {FFFFFF}Неверный {FF0000}ID {FFFFFF}игрока" -1
                END
                ELSE
                    018C: play_sound 1139 at 0.0 0.0 0.0
                    msg "{FF0000}[Ckill] {FFFFFF}Введите: {FF0000}/ckill {FFFFFF}[ID игрока]" -1
                END
            END
        0@ = 0
    END
END

:cmd
IF 0@ == 1
THEN
0@ = 0
018C: play_sound 1139 at 0.0 0.0 0.0
msg "{FF0000}[Ckill] {FFFFFF}Деактивирован" -1
else
0@ = 1
018C: play_sound 1139 at 0.0 0.0 0.0
msg "{FF0000}[Ckill] {FFFFFF}Активирован" -1
END
Samp.CmdRet()
Нажмите для раскрытия...
0118: actor $PLAYER_ACTOR dead
Грязное животное это ты xD
0118: actor 4@ dead
 
romanblinov2013

romanblinov2013

RB_PRO
Проверенный
212
196
Mihan написал(а):
Приветствую. Помогите пожалуйста найти гайд. Вообщем надумал сделать бота дальнобойщика drp. Ни где не могу найти как сделать в cleo езду по кординатам. Если не сложно расскажите где можно найти похожие уроки
Нажмите для раскрытия...

Ну если ты сможешь интегрировать ИИ в CLEO, то у тебя получится сделать такого бота.
А теперь трезво: Ну вот ты сделаешь бота, который гоняет по корам и перетаскивает грузы, но во время пути какая-то собачка может тебя подрезать/слить ну или просто взаимодействовать с тобой. Такое клео сделать ну почти нереально, максимум телепорт под землёй, посредством кордмастера, но нахуя, если можно фармить на других работах и не ебать себе мозг с такой ересью)))
 
bomber!

bomber!

Известный
Проверенный
958
462
1)нужен клео NOP ResetPlayerMoney

2)можно кого попросить (если не впадло)
написать рандомный антистан. 1 сек работает- 1 секунду нет
автоматом
 
Последнее редактирование модератором:
D3.Pheonix

D3.Pheonix

🎹
Модератор
2,817
1,597
bomber! написал(а):
нужен клео NOP ResetPlayerMoney
Нажмите для раскрытия...
CLEO: 
{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()
0BE3: raknet setup_incoming_rpc_hook @money
0BDE: pause_thread 0

:money
0BE5: raknet 0@ = get_hook_param 1
if 0@ == 20
then
0be0: 0
end
0be0: 1

bomber! написал(а):
можно кого попросить (если не впадло)
написать рандомный антистан. 1 сек работает- 1 секунду нет
автоматом
Нажмите для раскрытия...
CLEO: 
{$CLEO}
0000:

while true
wait 1000
0946: set_actor $PLAYER_ACTOR actions_uninterupted_by_weapon_fire 1
wait 1000
0946: set_actor $PLAYER_ACTOR actions_uninterupted_by_weapon_fire 0
end
 
Последнее редактирование:
  • Нравится
Реакции: bomber!
shailkiller

shailkiller

Известный
164
35
Код: 
{$CLEO .cs}
0000:

0662: printstring "Anti-freeze"

repeat
wait 0
until SAMP.Available()
0AF8: samp add_message_to_chat "Anti-Freeze by shailkiller" color 0xFF0000

while true
wait 0
if
0AB0: 73
then
0ACD: show_text_highpriority "Anti-freeze ON" time 1000
SAMP.ReadSAMPMemory(1@, 0x168E0, 2)
SAMP.WriteSAMPMemory(0x168E0, 50064, 2)
wait 228       
repeat
wait 0
until 0AB0: 73
0ACD: show_text_highpriority "Anti-freeze OFF" time 1000
SAMP.WriteSAMPMemory(0x168E0, 1@, 2)
wait 228
end
end
Как сделать так что-бы активация в клео не работала при включённом чате?
 
K

kawa operand

перерывпятьминут
602
333
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
CLEO: 
0B21:     samp is_chat_opened
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    21
    Просмотры
    2K
    Общение
    ARMOR
    ARMOR
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    20K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    54
    Просмотры
    8K
    Общение
    GrishaMazzlov
    GrishaMazzlov
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    2K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу