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

[Royan_Millans]

Я хотел, именно флудер кнопки Enter. Что бы скрипт флудил кнопкой Enter. Кому не тяжело помогите пж.

{$CLEO}
{$NOSOURCE}

0000:

repeat
wait 0
until Samp.Available()


while true
wait 0
if 0AB0:   key_pressed 113 // id клавиши F2 (Активация скрипта)
then
    repeat
    wait 0
    0C72: set_virtual_key 13 down true // ID клавиши Enter (Та клавиша, которой он флудит)
    wait 150
    0C72: set_virtual_key 13 down false // ID клавиши Enter (Та клавиша, которой он флудит)
    until 0AB0:   key_pressed 114 // // id клавиши F3 (Деактивация скрипта)
end
end

 

[Forgionokt]

{$CLEO}
{$NOSOURCE}

0000:

repeat
wait 0
until Samp.Available()


while true
wait 0
if 0AB0:   key_pressed 113 // id клавиши F2 (Активация скрипта)
then
    repeat
    wait 0
    0C72: set_virtual_key 13 down true // ID клавиши Enter (Та клавиша, которой он флудит)
    wait 150
    0C72: set_virtual_key 13 down false // ID клавиши Enter (Та клавиша, которой он флудит)
    until 0AB0:   key_pressed 114 // // id клавиши F3 (Деактивация скрипта)
end
end

Спасибо, но пишет неизвестная команда Samp.Available()

 

[grandpafromghetto]

Спасибо, но пишет неизвестная команда Samp.Available()

установи опкоды сф

 

[Kristyan]

Хочу как-то отправлять серверу что я НЕ нажимаю на клавишу 2, но не получается.. хлп

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

0b34: "go" @start


while true
wait 0

if and
actor.Driving($PLAYER_ACTOR)
key_down 50
1@ == true
then
0C72: set_virtual_key 50 down false
chatmsg "Lol" -1
end
END


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

 

[Royan_Millans]

{$CLEO}

0000: NOP
const
    DIALOG_STYLE_MSGBOX = 0 // Ñ òåêñòîì
    DIALOG_STYLE_INPUT = 1 // Ñ ïîëåì äëÿ ââîäà òåêñòà
    DIALOG_STYLE_LIST = 2 // Ñî ñïèñêîì
    DIALOG_STYLE_PASSWORD = 3 // Ñ ïîëåì äëÿ ââîäà òåêñòà, òåêñò çàìåíÿåòñÿ òî÷êàìè
    DIALOG_STYLE_TABLIST = 4 // Ïîõîæ íà DIALOG_STYLE_LIST, íî ìîæåò áûòü ðàçáèò íà íåñêîëüêî êîëîíîê
    DIALOG_STYLE_TABLIST_HEADERS = 5 // Òîò æå, ÷òî è DIALOG_STYLE_TABLIST, íî èìååò çàãîëîâêè äëÿ êîëîíîê
end
repeat
wait 0
until samp.Available()


if 8AAB:   not file_exists "Cleo\nastr.ini"
then
0AF8: samp add_message_to_chat "Âíèìàíèå! Ó Âàñ íå íàñòðîåí ñêðèïò" color 0xFFFFFF
0AF8: samp add_message_to_chat "Íàñòðîèòü ìîæíî ïðè ïîìîùè - /nastr" color 0xFFFFFF
end

0B34: samp register_client_command "nastr" to_label @nasrt
0BDE: pause_thread 0@


:nasrt
if 8AAB:   not file_exists "Cleo\nastr.ini"
then
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Lvl"
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Medcart"
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Zakon"
    alloc 0@ 256
    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
    free 0@
    10@ = 1
        while 10@ == 1
        wait 0
        if 0B3C:  samp is_dialog_responded id 476 button 2@ list_item 3@ input_text 0
        then
        if 2@ == 1
        then
            if 3@ == 0
            then
                0B3B: samp show_dialog id 477 caption "Òðåáóåìûé ËÂË" text "Âïèøèòå ñþäà ÷èñëî" button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_INPUT
                repeat
                wait 0
                until 0B3C:  samp is_dialog_responded id 477 button 2@ list_item 3@ input_text 4@
                if 2@ == 1
                    then
                    0C1A: 4@ = atoi 5@
                    0AF1: write_int 5@ to_ini_file "Cleo\nastr.inii" section "Nastr" key "Lvl"
                    0AF8: samp add_message_to_chat "Ëâë áûë èçìåíåí íà: [%d]" color 0xFFFFFF params 5@
                    alloc 0@ 256
                    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
                    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
                    free 0
                    else
                    alloc 0@ 256
                    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
                    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
                    free 0
                end
            end
        else
        10@ = 0
        end
        end
    end 
end
0B43: samp cmd_ret

Почему крашит после ввода команды?

 

[Musaigen]

{$CLEO}

0000: NOP
const
    DIALOG_STYLE_MSGBOX = 0 // Ñ òåêñòîì
    DIALOG_STYLE_INPUT = 1 // Ñ ïîëåì äëÿ ââîäà òåêñòà
    DIALOG_STYLE_LIST = 2 // Ñî ñïèñêîì
    DIALOG_STYLE_PASSWORD = 3 // Ñ ïîëåì äëÿ ââîäà òåêñòà, òåêñò çàìåíÿåòñÿ òî÷êàìè
    DIALOG_STYLE_TABLIST = 4 // Ïîõîæ íà DIALOG_STYLE_LIST, íî ìîæåò áûòü ðàçáèò íà íåñêîëüêî êîëîíîê
    DIALOG_STYLE_TABLIST_HEADERS = 5 // Òîò æå, ÷òî è DIALOG_STYLE_TABLIST, íî èìååò çàãîëîâêè äëÿ êîëîíîê
end
repeat
wait 0
until samp.Available()


if 8AAB:   not file_exists "Cleo\nastr.ini"
then
0AF8: samp add_message_to_chat "Âíèìàíèå! Ó Âàñ íå íàñòðîåí ñêðèïò" color 0xFFFFFF
0AF8: samp add_message_to_chat "Íàñòðîèòü ìîæíî ïðè ïîìîùè - /nastr" color 0xFFFFFF
end

0B34: samp register_client_command "nastr" to_label @nasrt
0BDE: pause_thread 0@


:nasrt
if 8AAB:   not file_exists "Cleo\nastr.ini"
then
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Lvl"
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Medcart"
    0AF1: write_int 0 to_ini_file "Cleo\nastr.ini" section "Nastr" key "Zakon"
    alloc 0@ 256
    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
    free 0@
    10@ = 1
        while 10@ == 1
        wait 0
        if 0B3C:  samp is_dialog_responded id 476 button 2@ list_item 3@ input_text 0
        then
        if 2@ == 1
        then
            if 3@ == 0
            then
                0B3B: samp show_dialog id 477 caption "Òðåáóåìûé ËÂË" text "Âïèøèòå ñþäà ÷èñëî" button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_INPUT
                repeat
                wait 0
                until 0B3C:  samp is_dialog_responded id 477 button 2@ list_item 3@ input_text 4@
                if 2@ == 1
                    then
                    0C1A: 4@ = atoi 5@
                    0AF1: write_int 5@ to_ini_file "Cleo\nastr.inii" section "Nastr" key "Lvl"
                    0AF8: samp add_message_to_chat "Ëâë áûë èçìåíåí íà: [%d]" color 0xFFFFFF params 5@
                    alloc 0@ 256
                    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
                    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
                    free 0
                    else
                    alloc 0@ 256
                    0AD3: 0@ = format "Òðåáóåìûé ËÂË [Íåèçâåñòíî]%cÒðåáóåòñÿ ëè Ìåä êàðòà [Íåèçâåñòíî]%cÒðåáóåìàÿ çàêîíêà [Íåèçâåñòíî]" 0xA 0xA
                    0B3B: samp show_dialog id 476 caption "Íàñòðîéêè" text 0@ button_1 "Âûáðàòü" button_2 "Çàêðûòü" style DIALOG_STYLE_LIST
                    free 0
                end
            end
        else
        10@ = 0
        end
        end
    end
end
0B43: samp cmd_ret

Почему крашит после ввода команды?

Потому что в командах нельзя использовать wait. Выноси в основной цикл.

 

[kawa operand]

Хочу как-то отправлять серверу что я НЕ нажимаю на клавишу 2, но не получается.. хлп

{$CLEO}
0000:

repeat
wait 0
until SAMP.Available()

0b34: "go" @start


while true
wait 0

if and
actor.Driving($PLAYER_ACTOR)
key_down 50
1@ == true
then
0C72: set_virtual_key 50 down false
chatmsg "Lol" -1
end
END


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

ты так не на сервер отправляешь а у себя отжимаешь и вообще хуйню какую то ты написал

 

[Kristyan]

ты так не на сервер отправляешь а у себя отжимаешь и вообще хуйню какую то ты написал

Да знаю что хуйню сделал, но поможешь мне? Как сложно вам сказать в чём проблема, комментатор хренов

 

[kawa operand]

с чем тебе помочь лмао
хукай плеер снюс и там будет кнопка

 

[NookieONE]

Скиньте ссылку, где указаны все типы переменных.
%s %d и т.д.

 

[p1cador]

@NookieONE
гугл

 

[Kristyan]

с чем тебе помочь лмао

Типа рофл, да?

плеер снюс

Что за хук, скажи нормально...

 

[kawa operand]

структура которая отправляется чтобы синхронизировать твое положение (но какого то хуя там еще и кнопки есть) onfoot_data

 

[10 KopeHb u3 5]

Товарищи, будьте добры - помогите со скриптом.
Суть первоначальной идеи заключается в том, что для удобства управления гидрой очень неплохим вариантом было бы включить "газ" автоматически - т.е. заставить двигатель работать так, будто беспрерывно нажата кнопка "W".
После бесплодных попыток найти что-либо, чем можно программно зажать клавишу, вспомнил про CLEO, а точнее - про Cruise Control (тот, который активируется кнопкой "=" и заставляет автомобиль набирать или сбавлять скорость, чтобы достичь требуемой).
Нашел вроде бы его исходник и, поразбиравшись, попытался, не вникая в вызовы функций по указателям и детали записи в память, сделать "зажималку газа" с активацией на всё то же "=".
Однако скрипт не работает; почему - я понять не могу (в силу моего нулевого опыта в CLEO), за помощь буду крайне благодарен.
Прикрепляю на всякий случай исходник круиз-контроля и свою поделку; комменты в поделке отражают то, что, как мне кажется, должно было бы в теории происходить.

 

[kawa operand]

key должен быть строкой а не цифрой

а десять корней из пяти поищи по форуму эмуляцию игровых клавиш
или в ютубе и пикселя посмотри