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

Dark_Knight · 29 Янв 2018

После
0B34: samp register_client_command "cc3" to_label @cc_3
ставишь pause_thread 0. Только опкод этот найди.

D3.Pheonix · 29 Янв 2018

Guin написал(а):
такое дело. когда открываю диалог резко проседает фпс че делать?

ХЗ как у тебя вообще работает скрипт
После регистрации команд поставь поток на паузу

CLEO:

0BDE: pause_thread 0

А фпс падает из-за того, что диалог объёмный.

MArkoas_Gonzaleees · 29 Янв 2018

Ребята. Как в своём клео сделать такую фичу. Чтобы я когда загружал и выдавал себе дигл. всем писало, как буд-то я сделал его из матов

randazzo · 29 Янв 2018

MArkoas_Gonzaleees написал(а):
Ребята. Как в своём клео сделать такую фичу. Чтобы я когда загружал и выдавал себе дигл. всем писало, как буд-то я сделал его из матов

никак

Trawer2289 · 29 Янв 2018

Ребята спасайте, хотелось сделать скрипт фейк alogin и получилось но проблема в том что я хотел чтоб при вводе команды /alogin 49550 авторизовка, а если напишешь допустим /alogin 1 то писало что введите: /alogin [пароль] но у меня в чат вообще не высвечивается ничего, помогите пж!

CLEO:

{$CLEO .cs}
0000: NOP
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "alogin 49550" to_label @alogin

repeat
wait 0
    if 0@ == 1
    then
    Samp.IsCommandTyped(1@)
    if 0AD4: 2@ = scan_string 1@ format "%d" 3@
    then
    msg "{FFFF00}Вы вошли как старший администратор" -1
    else
    msg "{FFFFFF}Введите: /alogin [пароль]" -1
    end
  0@ = 0
end
until false

:alogin
0@ = 1
Samp.CmdRet()

randazzo · 29 Янв 2018

@Trawer2289

CLEO:

{$CLEO}
0000: NOP
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "alogin" to_label @alogin
0BDE: pause_thread 0

:alogin
Samp.IsCommandTyped(1@)
if 0AD4: 2@ = scan_string 1@ format "%d" 3@
then
    if 3@ == 49550
    then
        msg "{FFFF00}Вы вошли как старший администратор" -1
    else
        msg "{FFFFFF}Введите: /alogin [пароль]" -1
    end
end
Samp.CmdRet()

Kristyan · 29 Янв 2018

Кто может дать скан для textdraw? Xочу взять ID.

randazzo · 29 Янв 2018

jaggerjam написал(а):
Кто может дать скан для textdraw? Xочу взять ID.

CLEO:

{$CLEO}
0000:
repeat
wait 0
until 0AFA:
cmd "txd" @cmd

WHILE TRUE
wait 0
    IF 0@ == 1
    THEN
        alloc 2@ 128
        FOR 1@ = 0 to 2048
            IF 0C5D: samp textdraw 1@ is_exists
            THEN
                0C5A: samp textdraw 1@ get_string_to 2@
                0AF8: "[%d] | %s" color -1 1@ 2@
            END
        END
        free 2@
        0@ = 0 
    END
END

:cmd
0@ = 1
cmdret

Kristyan · 30 Янв 2018

randazzo написал(а):

CLEO:

{$CLEO}
0000:
repeat
wait 0
until 0AFA:
cmd "txd" @cmd

WHILE TRUE
wait 0
    IF 0@ == 1
    THEN
        alloc 2@ 128
        FOR 1@ = 0 to 2048
            IF 0C5D: samp textdraw 1@ is_exists
            THEN
                0C5A: samp textdraw 1@ get_string_to 2@
                0AF8: "[%d] | %s" color -1 1@ 2@
            END
        END
        free 2@
        0@ = 0
    END
END

:cmd
0@ = 1
cmdret

:-[ А как использовать?

Nika23830 · 30 Янв 2018

CLEO:

{$CLEO}
0000: NOP

:Main
wait 0
0ADC:   test_cheat "helper"
jf @Main
0C4C: samp textdraw 426 set_style 2
0C52: samp textdraw 426 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 426 set_outline 1 color 16711680
0C48: samp textdraw 426 create "Nick" pos 44.0 250.0

0C4C: samp textdraw 427 set_style 1
0C52: samp textdraw 427 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 427 set_outline 1 color 16711680
0C48: samp textdraw 427 create " " pos 74.0 250.0

// LvL
0C4C: samp textdraw 428 set_style 2
0C52: samp textdraw 428 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 428 set_outline 1 color 16711680
0C48: samp textdraw 428 create "LvL:" pos 44.0 270.0
// LvL 2
0C4C: samp textdraw 429 set_style 1
0C52: samp textdraw 429 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 429 set_outline 1 color 16711680
0C48: samp textdraw 429 create " " pos 74.0 270.0

// Ping
0C4C: samp textdraw 430 set_style 2
0C52: samp textdraw 430 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 430 set_outline 1 color 16711680
0C48: samp textdraw 430 create "Ping:" pos 44.0 290.0
// Ping 2
0C4C: samp textdraw 431 set_style 1
0C52: samp textdraw 431 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 431 set_outline 1 color 16711680
0C48: samp textdraw 431 create " " pos 74.0 290.0

// ID
0C4C: samp textdraw 432 set_style 2
0C52: samp textdraw 432 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 432 set_outline 1 color 16711680
0C48: samp textdraw 432 create "ID:" pos 44.0 310.0
// ID 2
0C4C: samp textdraw 433 set_style 1
0C52: samp textdraw 433 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 433 set_outline 1 color 16711680
0C48: samp textdraw 433 create " " pos 74.0 310.0

while true
wait 0
    0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    0B65: samp 1@ = player 0@ score
    0B2A: samp 3@ = get_player_ping 0@
    0B36: samp 2@ = get_player_nickname 0@
 
    0AD3: 10@ format "%d " 0@
    0AD3: 11@ format "%d " 1@
    0AD3: 13@ format "%d " 3@
 
    0C50: samp textdraw 427 set_string 2@ // Nick
    0C50: samp textdraw 429 set_string 11@ // Score
    0C50: samp textdraw 431 set_string 13@ // Ping
    0C50: samp textdraw 433 set_string 10@ // ID
end

Не работает:
1) Цвет ставится голубой, я пыталась 0x80ff0000 - бесполезно, 16711680 - это FF0000 в Dec
2) При запуске ставит ник ID 0, а не мой
3) Score, Ping, ID не ставится

Помогите прошу, заодно новички увидят как ставить цифровое значение в textdraw :)

MArkoas_Gonzaleees · 30 Янв 2018

Есть ли такой оппкод. чтобы после активации, меня выкидывало с вод. места

DarkL1ght · 30 Янв 2018

MArkoas_Gonzaleees написал(а):
Есть ли такой оппкод. чтобы после активации, меня выкидывало с вод. места

Хз, работает или нет!

CLEO:

{$CLEO .cs}
0000: NOP
repeat
    wait 0
until 0AFA:  is_samp_available
0B34: samp register_client_command "kek" to_label @kek

repeat
wait 0
    IF 0@ == 1
    THEN
    SAMP.IsCommandTyped(1@)
    IF Actor.Driving($PLAYER_ACTOR)
    THEN
    $CAR = ACTOR.CurrentCar($PLAYER_ACTOR)
    0407: store_coords_to $car_x $car_y $car_z from_car $car with_offset -2.0 0.0 -1.0
    0362: remove_actor $PLAYER_ACTOR from_car_and_place_at $car_x $car_y $car_z
    Car.RemoveReferences($CAR)
    ELSE
    MSG "Требуется находиться в транспорте" -1
    END
    0@ = 0
END
until false

:kek
0@ = 1
Samp.CmdRet()

D3.Pheonix · 30 Янв 2018

Nika23830 написал(а):

CLEO:

{$CLEO}
0000: NOP

:Main
wait 0
0ADC:   test_cheat "helper"
jf @Main
0C4C: samp textdraw 426 set_style 2
0C52: samp textdraw 426 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 426 set_outline 1 color 16711680
0C48: samp textdraw 426 create "Nick" pos 44.0 250.0

0C4C: samp textdraw 427 set_style 1
0C52: samp textdraw 427 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 427 set_outline 1 color 16711680
0C48: samp textdraw 427 create " " pos 74.0 250.0

// LvL
0C4C: samp textdraw 428 set_style 2
0C52: samp textdraw 428 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 428 set_outline 1 color 16711680
0C48: samp textdraw 428 create "LvL:" pos 44.0 270.0
// LvL 2
0C4C: samp textdraw 429 set_style 1
0C52: samp textdraw 429 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 429 set_outline 1 color 16711680
0C48: samp textdraw 429 create " " pos 74.0 270.0

// Ping
0C4C: samp textdraw 430 set_style 2
0C52: samp textdraw 430 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 430 set_outline 1 color 16711680
0C48: samp textdraw 430 create "Ping:" pos 44.0 290.0
// Ping 2
0C4C: samp textdraw 431 set_style 1
0C52: samp textdraw 431 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 431 set_outline 1 color 16711680
0C48: samp textdraw 431 create " " pos 74.0 290.0

// ID
0C4C: samp textdraw 432 set_style 2
0C52: samp textdraw 432 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 432 set_outline 1 color 16711680
0C48: samp textdraw 432 create "ID:" pos 44.0 310.0
// ID 2
0C4C: samp textdraw 433 set_style 1
0C52: samp textdraw 433 set_letter_size 46 46 color 16711680
0C4E: samp textdraw 433 set_outline 1 color 16711680
0C48: samp textdraw 433 create " " pos 74.0 310.0

while true
wait 0
    0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    0B65: samp 1@ = player 0@ score
    0B2A: samp 3@ = get_player_ping 0@
    0B36: samp 2@ = get_player_nickname 0@
 
    0AD3: 10@ format "%d " 0@
    0AD3: 11@ format "%d " 1@
    0AD3: 13@ format "%d " 3@
 
    0C50: samp textdraw 427 set_string 2@ // Nick
    0C50: samp textdraw 429 set_string 11@ // Score
    0C50: samp textdraw 431 set_string 13@ // Ping
    0C50: samp textdraw 433 set_string 10@ // ID
end

Не работает:
1) Цвет ставится голубой, я пыталась 0x80ff0000 - бесполезно, 16711680 - это FF0000 в Dec
2) При запуске ставит ник ID 0, а не мой
3) Score, Ping, ID не ставится

Помогите прошу, заодно новички увидят как ставить цифровое значение в textdraw :)

Лучше сделать render text чем текстдравы клепать.
(в чат /helper)

CLEO:

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()
31@ = Render.CreateFont("Arial", {height}15, {flags}5)
0B34: samp register_client_command "helper" to_label @helper

while true
wait 0
    if 30@ == 1
    then
        alloc 4@ 256
        0B2B: samp 0@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B65: samp 1@ = player 0@ score
        0B2A: samp 3@ = get_player_ping 0@
        0B36: samp 2@ = get_player_nickname 0@
        format 4@ "Nick: %s%cLvl: %d%cPing: %d%cId: %d" 2@ 0x0A 1@ 0x0A 3@ 0x0A 0@
        Render.DrawText(31@ 4@ {X}300 {Y}300 {color}0x80ff0000) // X Y меняешь на своё, в пикселях
        free 4@
    end
end
 
:helper
0B12: 30@ = 30@ XOR 1
SAMP.CmdRet()

MArkoas_Gonzaleees · 30 Янв 2018

Ребята, помогите. Хочу сделать что-то вроде Дгана. Чтобы выдавало дигл если я сижу в машине, и после активации, меня выкидывало из машины, с диглом в руке.
Может я здесь что-то не так сделал, но не работает

CLEO:

{$CLEO}
{$NOSOURCE}
0000:

:load
wait 0
if and
// 0ADC:   test_cheat "dgun"   не работает

0AB0:   key_pressed 68     // это тоже не работает
0AB0:   key_pressed 71   // активация нажать d + g как чит код

0247: load_model #DESERT_EAGLE      //Загрузка оружия
038B: load_requested_models
jf @load

:proverka
wait 0
if
8247:   not load_model #DESERT_EAGLE         // проверка
jf @load

:proverka2
wait 0
if
80DF:   not actor $PLAYER_ACTOR driving             // проверка
jf @proverka2
0AF8: samp add_message_to_chat "Sit in car" color 0xFFFF00
jf @proverka

:car
wait 0
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset -2.0 0.0 -1.0         // тп персонажа из кара
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1@ 2@ 3@                          // выше
jf @load

:giving
wait 1000
01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 60 // выдача оружия
0249: release_model #DESERT_EAGLE        
jump @load

NookieONE · 30 Янв 2018

Всем привет.
Как записать число записанное в чат.
Пример:
При вводе команды /cari ЧИСЛО
ЧИСЛО должно записаться в ini

Поиск

Поиск

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

Dark_Knight

Me, me and me.

D3.Pheonix

🎹

MArkoas_Gonzaleees

Новичок

randazzo

.

Trawer2289

Известный

randazzo

.

Kristyan

Известный

randazzo

.

Kristyan

Известный

Nika23830

Новичок

MArkoas_Gonzaleees

Новичок

DarkL1ght

Новичок

D3.Pheonix

🎹

MArkoas_Gonzaleees

Новичок

NookieONE

Участник

Похожие темы