Помощь в изменении скриптов

[FYP]

Здесь вы можете попросить других пользователей внести какие-то небольшие изменения в скрипт, например, изменить активацию.
Для вопросов по программированию и разработке на форуме есть отдельная категория Разработка.

Рекомендации:

1. Не просите о редактировании .asi, .sf, .luac, .dll, .exe и прочих файлов, не поддающихся простой декомпиляции. Скрипты формата .ahk (AutoHotKey), .lua (Lua/MoonLoader) и .cs (CLEO) легко поддаются изменению.
2. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
3. За злонамеренное распространение вредоносного ПО - перманентный бан. Имейте это в виду.

Удаление копирайтов является нарушением авторских прав, если автор не дал на это своего разрешения. Правила BlastHack запрещают нарушать авторские права, поэтому если вам нужно их убрать - обращайтесь к автору.

 

[Unnecess4ry]

зделайте в этом скрипте чтобы при активации, не писало надписи на экран, а то палится. активация SHIFT+W+ПКМ
Код такой

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0662: printstring "==============================================================="
0662: printstring "My VK: vk.com/id138101483"
0662: printstring "My Skype: hackes8"
0662: printstring "Group VK: vk.com/by_air"
0662: printstring "My YouTube Channel: www.youtube.com/spacebmxair"
0662: printstring "All rights reserved ©"
0662: printstring "==============================================================="

:Label00011F
wait 0
   SAMP.Available
jf @Label00011F

:Label00012C
wait 0
if and
056D:   actor $PLAYER_ACTOR defined
key_down 2
key_down 16
key_down 87
jf @Label00018F
Player.CanMove($PLAYER_CHAR) = True
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
SAMP.ApplySpecialAction(NONE)
0AD0: show_formatted_text_lowpriority "~b~Uncuff ~r~by AIR ~g~for KOHANovsky" time 300
wait 100

:Label00018F
goto @Label00012C

 

[Skokk]

Здорово народ, мне в голову пришла такая идея, сделать через логический диалог мультичит,но понятие о диалогах у меня слабое,помогите создать диалог со списком(по моему 2 стиль) буду очень благодарен за помощь)

убери данную строку 0AD0: show_formatted_text_lowpriority "~b~Uncuff ~r~by AIR ~g~for KOHANovsky" time 300

 

[hnd7]

Кто поможет добавить ГМ в этом собейте?,буду благодарен:hi:

 

[Unnecess4ry]

изменить активацию с RR на ZZ

 

[Skokk]

Народ помогите уже 3 часа не могу сделать скрипт ,который по нажатию клавиши будет воспроизводит загруженный в папку клео звук помогите пожалуйста
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
SAMP.Available()

:1
wait 0
0AB0: key_pressed 50
jf @1
wait 0
if
0@ = Audiostream.Load("cleo\MP3\1.MP3")
wait 0
Audiostream.PerformAction(0@, PLAY)
wait 20000
Audiostream.PerformAction(0@, STOP)
Audiostream.Release(0@)
goto @1

 

[asdzxcjqwe]

Луак не кидай в эту тему, его тяжело декомпилировать

зачем декомпилировать, чтобы изменять?

Если можно, уберите надпись при входе в игру якобы
"Silent aim загружен"

Помогите убрать при активации и деактивации /dll оповещение в чат, прошу!

 

[damag]

Всем, привет клео скриптеры)) Вообщем хотел бы попросить у кого-то поменять скорость флайкара на - 800+. Буду благодарен

 

[tima_vite]

не меняет у ботов айпи ( они одни и теже)

 

[pilamana123]

Может кто дать исходник

 

[solo revenge]

Фиксаните это клео.Крч клео на изменение лого ARZ Brainburg написанное фиолетовым цветом.Крч там надпись Brainburg написана с ошибкой.Прошу исправить)
Ссылка на это клео:https://yadi.sk/d/8QXcHA2tAZ87gA

 

[Unnecess4ry]

Фиксаните это клео.Крч клео на изменение лого ARZ Brainburg написанное фиолетовым цветом.Крч там надпись Brainburg написана с ошибкой.Прошу исправить)
Ссылка на это клео:https://yadi.sk/d/8QXcHA2tAZ87gA

 

[Bananious]

Помогите, почему у меня когда я ввожу команду /open не появляется курсор? И почему когда я нажимаю кнопку закрыть в Dxut то у меня окно не закрывается?

{$CLEO}
{$INCLUDE SF}

// Константы ид событий
const
EVENT_BUTTON_CLICKED                = 257
EVENT_COMBOBOX_SELECTION_CHANGED    = 513
EVENT_RADIOBUTTON_CHANGED           = 769
EVENT_CHECKBOX_CHANGED              = 1025
EVENT_SLIDER_VALUE_CHANGED          = 1281
EVENT_EDITBOX_STRING                = 1537
EVENT_EDITBOX_CHANGE                = 1538
EVENT_LISTBOX_ITEM_DBLCLK           = 1793
EVENT_LISTBOX_SELECTION             = 1794
end

0000:

repeat
    wait 300
until 0AFA:  is_samp_available

wait 0

call @get_screen_centre 2 dlg_size 100 100{/2} returns 13@ 14@
0B80: dialog 0@ = create "Menu" //
0B84: dialog 0@ set_pos_XY 13@ 14@ size 200 200
0B93: dialog 0@ set_background_color 0x40FFFFFF

0B83: dialog 0@ add_checkbox id 1 text "1" pos_XY 5 25 size 150 20
0B83: dialog 0@ add_checkbox id 2 text "2" pos_XY 5 50 size 150 20
0B83: dialog 0@ add_checkbox id 3 text "3" pos_XY 5 75 size 150 20
0B82: dialog 0@ add_button id 4 text "Закрыть" pos_XY 5 125 size 100 30

0B86: dialog 0@ set_visible false

0b34: "open" @open

while true
    wait 0
    if 0B81: dialog 0@ pop_event_to 15@ control_id_to 16@
    then
        if 15@ == EVENT_CHECKBOX_CHANGED
        then
            if 16@ == 1
            then
                if 0B92:  dialog 0@ checkbox 16@ is_checked
                then
                chatmsg "1 - on" -1
                else
                chatmsg "1 - off" -1
                end
            end

            if 16@ == 2
            then
                if 0B92:  dialog 0@ checkbox 16@ is_checked
                then
                chatmsg "2 - on" -1
                else
                chatmsg "2 - off" -1
                end
            end
   
            if 16@ == 3
            then
                if 0B92:  dialog 0@ checkbox 16@ is_checked
                then
                SAMP.WriteSAMPMemory(16864, 195, 1)
                SAMP.WriteSAMPMemory(24896, 195, 1)
                SAMP.WriteSAMPMemory(18480, 195, 1)
                SAMP.WriteSAMPMemory(82384, 50064, 2)
                Actor.Health($PLAYER_ACTOR) = 0
                else
                SAMP.WriteSAMPMemory(16864, 0@, 1)
                SAMP.WriteSAMPMemory(24896, 1@, 1)
                SAMP.WriteSAMPMemory(18480, 2@, 1)
                SAMP.WriteSAMPMemory(82384, 3@, 2)
                9@ = 0
                end
            end
           
            if 15@ == EVENT_BUTTON_CLICKED
            then
                if 16@ == 4
                then
                8@ = 0
                end
            end      
        end
    end
end
   
:open
if
8@ == 0
then
8@ = 1
0b86: dialog 0@ set_visible true
0b5d: samp toggle_cursor 1
else
8@ = 0
0b86: dialog 0@ set_visible false
0b5d: samp toggle_cursor 0
end
samp.CmdRet()

:GET_SCREEN_CENTRE
0B5A: get_screen_resolution 2@ 3@
0016: 2@ /= 2
0062: 2@ -= 0@
0016: 3@ /= 2
0062: 3@ -= 1@
ret 2 2@ 3@

 

[maksbv]

Из за этого луа велосипед прыгает до небу, хотел бы вас попросить уменьшить этот прыжок раза в два или два с половиной, а то палевно, если это возможно, спасибо.

 

[alex421220]

сделайте активацию / деактивацию на кнопку V

 

[SpecSplint]

Вот тут надо вместо 3 строк дописать ещё 12, чтобы в сумме было 15 строк. Там они с командой /cheeps идут