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

FYP

FYP

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

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

olol321

Участник
102
16
Slent написал(а):
file:write('[Coordinates] - ' ..vremya.. 'X = ' ..X.. 'Y = ' ..Y.. 'Z = ' ..Z.. '\n\n\n') замени это на это file:write('[Coordinates] - ' ..vremya.. ' ' ..X.. ' ' ..Y.. ' ' ..Z.. '\n\n\n')
Нажмите для раскрытия...
короче сделал что ты сказал и еще свое немного изменил... работает!
[Coordinates] - 19:48:57 225.67199707031 1022.0300292969 1084.0159912109
можно еще с боку координат как-то поставить " какбы координат около 200 придется записывать, такая мелочь поможет, вот такое чюдо должно получится
[Coordinates] - 19:48:57 "225.67199707031 1022.0300292969 1084.0159912109"
 
Slent

Slent

Известный
293
173
olol321 написал(а):
короче сделал что ты сказал и еще свое немного изменил... работает!
[Coordinates] - 19:48:57 225.67199707031 1022.0300292969 1084.0159912109
можно еще с боку координат как-то поставить " какбы координат около 200 придется записывать, такая мелочь поможет, вот такое чюдо должно получится
[Coordinates] - 19:48:57 "225.67199707031 1022.0300292969 1084.0159912109"
Нажмите для раскрытия...

file:write('[Coordinates] - ' ..vremya.. 'X = ' ..X.. 'Y = ' ..Y.. 'Z = ' ..Z.. '\n\n\n') замени это на это file:write('[Coordinates] - ' ..vremya.. ' "' ..X.. '" "' ..Y.. '" "' ..Z.. '"\n\n\n')
Попробуй если не получилось возможно нельзя
 
  • Нравится
Реакции: olol321
SpongeBobus

SpongeBobus

Новичок
11
0
Кто нибудь может из скрипта B.S. Project отделить скрипт телепортации в закрытую машину на команду /tpc в отдельный скрипт, если у кого нибудь получится, 100 рублей заплачу
Ну или же просто скинуть нормальный скрипт, позволяющий садиться в закрытые машины(клео)
 

Вложения

  • B.S. Project v1.5.cs
    34.8 KB · Просмотры: 7
Последнее редактирование:
Slent

Slent

Известный
293
173
V@[DiM]4eK написал(а):
помогите пж нужно в exstra wс добавить активацию на INSERT помогите плиз
code: 
savezoom = 1 -- сохранение зума после прицеливания(0, чтобы выключить)
zoom0 = 70 -- максимальный fov в прицеливании, стандарт 70
stupen = 3 -- ступень изменения зума
weapons_restricted = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 36, 39, 40, 41, 42, 44, 45, 46} -- Оружия, на которых не работает зум

script_author("FYP")
mem = require("memory")
function main()
    while not isSampAvailable() do wait(0) end
    while not sampIsLocalPlayerSpawned() do wait(0) end
    zoom=zoom0
    lua_thread.create(ExtraWS) -- закомментить, чтобы отключить экстру
end

function ExtraWS()
    mem.write(5310892, 117, 1, true) -- 122 default?
    mem.write(5310917, 117, 1, true) -- 122 default?
    mem.write(5386662, 117, 1, true)
    mem.write(5386797, 117, 1, true)
    mem.write(5387194, 117, 1, true)
    while isCharDead(PLAYER_PED) do wait(0) end
    while isCurrentCharWeapon(PLAYER_PED, 0) do wait(0) end
    mem.write(5310892, 235, 1, true)
    mem.write(5310917, 235, 1, true)
    mem.write(5386662, 235, 1, true)
    mem.write(5386797, 235, 1, true)
    mem.write(5387194, 235, 1, true)
    while not isCharDead(PLAYER_PED) do wait(0) end
    ExtraWS()
end
Нажмите для раскрытия...

isKeyDown

Проверяет, зажата ли клавиша
wiki.blast.hk wiki.blast.hk
 
  • Нравится
Реакции: b1mkka
B

bmw99

Новичок
2
0
Добавьте, пожалуйста, активацию/деактивацию скрипта на Alt
 

Вложения

  • [Cleo]Неотцепляющийся прицеп.cs
    17.6 KB · Просмотры: 3
U

umeHHo oH

Активный
162
25
Нужно отредактировать код скрипта, чтобы чат больше не открывался на T. Возможно, кто-то захочет помочь
 

Вложения

  • samp++.cs
    16.3 KB · Просмотры: 7
Fix_Play

Fix_Play

Потрачен
105
30
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
umeHHo oH написал(а):
Нужно отредактировать код скрипта, чтобы чат больше не открывался на T. Возможно, кто-то захочет помочь
Нажмите для раскрытия...
Привет данный скрипт закрытый. Могу за 1 рубль открыть его и изменить. А так на данный момент тут мало кто открывает клео
 
woodware

woodware

Потрачен
Проверенный
4,987
1,437
где в этом скрипте координаты текстдрава при /hppos 1?
Lua: 
local ev = require 'lib.samp.events'
local inicfg = require 'inicfg'
local memory = require 'memory'

created = false
created2 = false

tag = '{73b461}[HP HUD] '

local cfg = inicfg.load({
    main = {
        active = true,
        text = 3,
        style = 1,
        pos = 2
        }
}, "HPHUD by Azimoff")


function getpos()
    if cfg.main.pos == 1 then
        return 548
    end
    if cfg.main.pos == 2 then
        return 577
    end
    if cfg.main.pos == 3 then
        return 606
    end
end

function msg(param)
sampAddChatMessage(tag..""..param, -1)
end

function stringhp(param)
    if cfg.main.style == 1 then
        return '_'..param
    end
    
    if cfg.main.style == 0 then
        return ''
    end
end

function ev.onSendClickTextDraw(id)
    if invopened and id == 65535 then
        invopened = false
    end
end


function onReceiveRpc(id, bs, priority, reliability)
    if id == 83 then
        print(raknetBitStreamReadBool(bs))
        invopened = raknetBitStreamReadBool(bs)
    end
end

function main()
while not isSampAvailable() do wait(100) end
sampRegisterChatCommand("hphud", hphud)
sampRegisterChatCommand("hpstyle", hpstyle)
sampRegisterChatCommand("hppos", hppos)
sampRegisterChatCommand("hpt", hpt)
sampRegisterChatCommand("hphelp", hphelp)
    while true do wait(0)
    
    if sampIsLocalPlayerSpawned() and not created then
        sampTextdrawCreate(500, "_", getpos(), 66.500)   
        created = true
    end
    
        if created and not sampTextdrawIsExists(500) then
        created = false
        end

        if created2 and not sampTextdrawIsExists(501) then
        created2 = false
        end
    
        if created then
        if not created2 then
            if getCharArmour(playerPed) >= 1 then
            sampTextdrawCreate(501, "_", getpos(), 44.500)           
                created2 = true
            end
        end
        
        sampTextdrawSetLetterSizeAndColor(500, 0.270, 0.900, 4294967295)
        sampTextdrawSetPos(500, getpos(), 66.500)
        sampTextdrawSetStyle(500, cfg.main.text)
        sampTextdrawSetAlign(500, cfg.main.pos)
        sampTextdrawSetOutlineColor(500, 1, 4278190080)
    if cfg.main.active and not sampIsScoreboardOpen() and not invopened then
        local hp = getCharHealth(playerPed)
        sampTextdrawSetString(500, hp..""..stringhp('hp'))
    else
        sampTextdrawSetString(500, "_")
    
    end
    end
    
    
        if created2 then
                    sampTextdrawSetLetterSizeAndColor(501, 0.270, 0.900, 4294967295)
        sampTextdrawSetPos(501, getpos(), 44.500)
        sampTextdrawSetStyle(501, cfg.main.text)
        sampTextdrawSetAlign(501, cfg.main.pos)
        sampTextdrawSetOutlineColor(501, 1, 4278190080)
    if cfg.main.active and getCharArmour(playerPed) >= 1 and not sampIsScoreboardOpen() and not invopened then
        local hp = getCharArmour(playerPed)
        sampTextdrawSetString(501, hp..""..stringhp('ap'))
    else
        sampTextdrawSetString(501, "_")
    
    end
        end
        
        
    end
end

function onScriptTerminate(script, quitGame)
  if script == thisScript() then
    if created then
            sampTextdrawDelete(500)

    end
    
    if created2 then
            sampTextdrawDelete(501)

    end
    inicfg.save(cfg, "HPHUD by Azimoff")
  end
end

function hphelp()
sampShowDialog(5152,'{c2c2c2}[HP HUD] {DC4747}by azimoff',"{c2c2c2}Команды для управления {DC4747}HP HUD{c2c2c2}'ом:\n\n{DC4747}1. {73b461}/hphud {c2c2c2}- Включает и отключает HP HUD\n{DC4747}2. {73b461}/hpstyle {c2c2c2}- {ffffff}[0-3] {c2c2c2}- Изменяет стиль шрифта показателя\n{DC4747}3. {73b461}/hpt {c2c2c2}- Добавляет/Убирает буквы в показателе\n{DC4747}4. {73b461}/hppos {c2c2c2}- {ffffff}[1-3] {c2c2c2}- Изменяет позицию показателя\n{DC4747}5. {73b461}/hphelp {c2c2c2}- Вызов окна помощи", "Понятно", "", 0)
end

function hppos(param)
    if tonumber(param) and tonumber(param) <= 3 and tonumber(param) >= 1 then
            msg("{ffffff}Установлена позиция: {DC4747}"..param)
            cfg.main.pos = tonumber(param)
    else
    msg("{ffffff}Используйте {DC4747}/hppos {ffffff}- [1 - 3]")
    end
end

function hpt()
    if cfg.main.style == 1 then
                    msg("{ffffff}Установлен стиль худа: {DC4747}0")
        cfg.main.style = 0
    else
                        msg("{ffffff}Установлен стиль худа: {DC4747}1")
        cfg.main.style = 1

    end
end

function hpstyle(param)
    if tonumber(param) and tonumber(param) <= 3 and tonumber(param) >= 0 then
            cfg.main.text = param
            msg("{ffffff}Установлен шрифт: {DC4747}"..param)
            cfg.main.text = param
    else
    msg("{ffffff}Используйте {DC4747}/hpstyle {ffffff}- [0, 1, 2, 3]")
    end
end

function hphud()
cfg.main.active = not cfg.main.active
    if cfg.main.active then
    msg("{ffffff}Активирован!")
    else
    msg("{DC4747}Выключен")
    end
end
 
Н

Не большое так не буду

Новичок
3
0
Помогите пожалуйста, скачал я АКХ для нубо рп. Он время от времени водит не правильною капчу но это сделано специально "фейк капча" Уберите пожалуйста эту функцию
 

Вложения

  • AHKnubo.luac
    50.4 KB · Просмотры: 5
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. Carlos777
    Исходник Гайд Изменяем скомпилированные луа-скрипты
      • Нравится
    Ответы
    4
    Просмотры
    5K
    Lua
    MrCreepTon
    MrCreepTon
  2. chapo
    • Закрыта
    • Вопрос
      Помогите дауну в изменении цлео скриптов
      • Нравится
    Ответы
    1
    Просмотры
    914
    Помощь
    enrique newskii
    E
  3. samperskiy
    • Решено
    Помощь в изменении скриптов
      • Bug
    Ответы
    4
    Просмотры
    952
    Помощь
    YarikVL
    YarikVL
  4. Use[R]
    Заказ Фикс клео снегопада
    Ответы
    0
    Просмотры
    546
    Работа и услуги
    Use[R]
    Use[R]
  5. Lumonton
    • Вопрос
    Помощь в изменении скриптов
    Ответы
    16
    Просмотры
    1K
    Помощь
    BakiHanma1
    B
Сверху Снизу