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

FYP

FYP

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

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

damstxr.

Новичок
1
0
Не могли бы вы изменить всеми известный мод на черный экран сделав его белым? Очень нужно для создания СС-ок. Активация на F3
 

Вложения

  • blackscreen.cs
    17.7 KB · Просмотры: 2
SpinQuatts

SpinQuatts

Участник
52
2
Может кто-нибудь включить и выключить ключи? (активация: z, деактивация: x)
и ставьте пожалуйста сообщения активации и деактивации.
 

Вложения

  • lag (1).cs
    18.3 KB · Просмотры: 3
DANIIL XPC

DANIIL XPC

Известный
81
5
I need this script to work continuously when I write the / mr command and be a command to stop / stop it, can you help me?
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP 
0006: 0@ = 0

:NONAME_1
00D6: if and
8256: not player $PLAYER_CHAR defined
8AFA: not is_samp_available
004D: jump_if_false @NONAME_2
0001: wait 1000 ms
0002: jump @NONAME_1

:NONAME_2
0B34: samp register_client_command "mx" to_label @mr


:NONAME_3
0001: wait 0 ms
00D6: if and
0256:  player $PLAYER_CHAR defined
0039:  0@ == 1
004D: jump_if_false @NONAME_3
0AF9: samp say_msg "/bz"
0001: wait 100 ms // 
0B47: samp close_current_dialog_with_button 1   
0006: 0@ = 0
0002: jump @NONAME_3


:mr
0006: 0@ = 1
0B43: samp cmd_ret
 
D3.Pheonix

D3.Pheonix

🎹
Модератор
2,817
1,599
DANIIL XPC написал(а):
I need this script to work continuously when I write the / mr command and be a command to stop / stop it, can you help me?
CLEO: 
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
0006: 0@ = 0

:NONAME_1
00D6: if and
8256: not player $PLAYER_CHAR defined
8AFA: not is_samp_available
004D: jump_if_false @NONAME_2
0001: wait 1000 ms
0002: jump @NONAME_1

:NONAME_2
0B34: samp register_client_command "mx" to_label @mr


:NONAME_3
0001: wait 0 ms
00D6: if and
0256:  player $PLAYER_CHAR defined
0039:  0@ == 1
004D: jump_if_false @NONAME_3
0AF9: samp say_msg "/bz"
0001: wait 100 ms //
0B47: samp close_current_dialog_with_button 1
0006: 0@ = 0
0002: jump @NONAME_3


:mr
0006: 0@ = 1
0B43: samp cmd_ret
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000:

repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "mr" to_label @mr
0B34: samp register_client_command "stop" to_label @stop
0@ = 0

while true
wait 0
    if and
    0@ == 1
    Player.Defined($PLAYER_CHAR)
    then
    say "/bz"
    wait 100
    0B47: samp close_current_dialog_with_button 1
    end
end

:mr
0@ = 1
Samp.CmdRet()

:stop
0@ = 0
Samp.CmdRet()
 
3JlouZai4ik

3JlouZai4ik

Потрачен
23
1
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Ребят помогите пожалуйста, сделайте что бы скрипт делал 100 HP на автомобиле, а не 3399.
CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013

{$CLEO .cs}



//-------------MAIN---------------

wait 0



:Noname_4

wait 0

if

   Player.Defined($PLAYER_CHAR)

jf @Noname_101

if and

   Actor.Driving($PLAYER_ACTOR)

key_down 45

jf @Noname_101

1@ = Actor.CurrentCar($PLAYER_ACTOR)

0731: set_car 1@ y_angle_to 0

wait 0

Car.Health(1@) = 34000

Car.Health(1@) = 33998

wait 0

if

0185:   car 1@ health >= 33999

jf @Noname_101

0A30: repair_car 1@



:Noname_101

goto @Noname_4
 

Вложения

  • Kleo_pochinka_Insert_0_1.cs
    17.8 KB · Просмотры: 2
cesarikk

cesarikk

Новичок
24
2
Приветики всем) кто сможет сделать кд между строчками 350 млс?😎
 

Вложения

  • cp.cs
    19.1 KB · Просмотры: 3
David_Grand

David_Grand

Новичок
14
1
Луа переделать строку помогите братцы fake message это сделано для чата аризоны нужно переделать под чат редмира
типу -текст (Nick_Name)[ID]

Lua: 
local function func(arg)
  local id, text = arg:match('(%d+) (.+)')
  if tonumber(id) then
    lua_thread.create(function()
      local BS = raknetNewBitStream()
      raknetBitStreamWriteInt16(BS, id)
      raknetBitStreamWriteInt32(BS, -1)
      raknetBitStreamWriteFloat(BS, 15.0)
      raknetBitStreamWriteInt32(BS, 2000)
      raknetBitStreamWriteInt8(BS, text:len())
      raknetBitStreamWriteString(BS, text)
      raknetEmulRpcReceiveBitStream(59, BS)
      raknetDeleteBitStream(BS)
      sampAddChatMessage(sampGetPlayerNickname(id) .. '['.. id .. '] говорит:{B7AFAF} ' .. text, 0xFFFFFF)
      local _, handle = sampGetCharHandleBySampPlayerId(id)
      taskPlayAnim(handle, 'IDLE_CHAT', 'PED', 4.0, false, false, true, true, 20000)
      local w = text:len() * 150
      if w > 3000 then
        w = 3000
      end
      taskPlayAnim(handle, 'crry_prtial', 'CARRY', 4.0, false, false, false, false, -1)
    end)
  end
end

function main()
  repeat wait(0) until isSampAvailable()
  sampRegisterChatCommand('pezdec', func)
  while true do
    wait(0)
  end
end
 
Последнее редактирование:
Vintik

Vintik

Мечтатель
Проверенный
1,469
917
David_Grand написал(а):
Луа переделать строку помогите братцы fake message это сделано для чата аризоны нужно переделать под чат редмира
типу -текст (Nick_Name)[ID]

Lua: 
local function func(arg)
  local id, text = arg:match('(%d+) (.+)')
  if tonumber(id) then
    lua_thread.create(function()
      local BS = raknetNewBitStream()
      raknetBitStreamWriteInt16(BS, id)
      raknetBitStreamWriteInt32(BS, -1)
      raknetBitStreamWriteFloat(BS, 15.0)
      raknetBitStreamWriteInt32(BS, 2000)
      raknetBitStreamWriteInt8(BS, text:len())
      raknetBitStreamWriteString(BS, text)
      raknetEmulRpcReceiveBitStream(59, BS)
      raknetDeleteBitStream(BS)
      sampAddChatMessage(sampGetPlayerNickname(id) .. '['.. id .. '] говорит:{B7AFAF} ' .. text, 0xFFFFFF)
      local _, handle = sampGetCharHandleBySampPlayerId(id)
      taskPlayAnim(handle, 'IDLE_CHAT', 'PED', 4.0, false, false, true, true, 20000)
      local w = text:len() * 150
      if w > 3000 then
        w = 3000
      end
      taskPlayAnim(handle, 'crry_prtial', 'CARRY', 4.0, false, false, false, false, -1)
    end)
  end
end

function main()
  repeat wait(0) until isSampAvailable()
  sampRegisterChatCommand('pezdec', func)
  while true do
    wait(0)
  end
end
Нажмите для раскрытия...
я, честно, не сильно разбираюсь со строками, но!
у тебя в коде строка:
Lua: 
sampAddChatMessage(sampGetPlayerNickname(id) .. '['.. id .. '] говорит:{B7AFAF} ' .. text, 0xFFFFFF)
замени её на:
Lua: 
local ID = tonumber(id)
sampAddChatMessage('- ' .. text .. ' (' .. sampGetPlayerNickname(ID) .. ')['.. id .. ']', 0xFFFFFF)
хотя стоит признать, что более очевидным будет так (это одно и то же):
Lua: 
local ID = tonumber(id)
local str = string.format('- %s (%s)[%d]', text, sampGetPlayerNickname(ID), id)
sampAddChatMessage(str, 0xFFFFFF)
лучше возьми второй метод
если хочешь перекрасить текст, то:
перед текстом делай так:
Lua: 
{1E00FF}какой-то текст, {FF0000}а тут другой
и будет вот так:
какой-то текст, а тут другой
так делать разноцветным строку в чате. цвета брать отсюда:
в гугле пиши hex color
 
Последнее редактирование:
David_Grand

David_Grand

Новичок
14
1
Vintik написал(а):
я, честно, не сильно разбираюсь со строками, но!
у тебя в коде строка:
Lua: 
sampAddChatMessage(sampGetPlayerNickname(id) .. '['.. id .. '] говорит:{B7AFAF} ' .. text, 0xFFFFFF)
замени её на:
Lua: 
local ID = tonumber(id)
sampAddChatMessage('- ' .. text .. ' (' .. sampGetPlayerNickname(ID) .. ')['.. id .. ']', 0xFFFFFF)
хотя стоит признать, что более очевидным будет так (это одно и то же):
Lua: 
local ID = tonumber(id)
local str = string.format('- %s (%s)[%d]', text, sampGetPlayerNickname(ID), id)
sampAddChatMessage(str, 0xFFFFFF)
лучше возьми второй метод
если хочешь перекрасить текст, то:
перед текстом делай так:
Lua: 
{1E00FF}какой-то текст, {FF0000}а тут другой
и будет вот так:
какой-то текст, а тут другой
так делать разноцветным строку в чате. цвета брать отсюда:
в гугле пиши hex color
Нажмите для раскрытия...

Можешь скинуть полностью с 1 строкой уже в том луа а то я незнаю куда его нужно вставить
Vintik написал(а):
я, честно, не сильно разбираюсь со строками, но!
у тебя в коде строка:
Lua: 
sampAddChatMessage(sampGetPlayerNickname(id) .. '['.. id .. '] говорит:{B7AFAF} ' .. text, 0xFFFFFF)
замени её на:
Lua: 
local ID = tonumber(id)
sampAddChatMessage('- ' .. text .. ' (' .. sampGetPlayerNickname(ID) .. ')['.. id .. ']', 0xFFFFFF)
хотя стоит признать, что более очевидным будет так (это одно и то же):
Lua: 
local ID = tonumber(id)
local str = string.format('- %s (%s)[%d]', text, sampGetPlayerNickname(ID), id)
sampAddChatMessage(str, 0xFFFFFF)
лучше возьми второй метод
если хочешь перекрасить текст, то:
перед текстом делай так:
Lua: 
{1E00FF}какой-то текст, {FF0000}а тут другой
и будет вот так:
какой-то текст, а тут другой
так делать разноцветным строку в чате. цвета брать отсюда:
в гугле пиши hex color
Нажмите для раскрытия...


Уже ненадо спасибо очень помог))
 
HatakeKakashi

HatakeKakashi

Активный
230
41
После обновы видать сменили ID текстдравов и перестал работать данный скриптик, кто может подправить?)
 

Вложения

  • Open_rouletteARZ_FIX.lua
    6.8 KB · Просмотры: 4
Adrian G.

Adrian G.

Известный
Проверенный
521
453
Cделать активацию на F2.
 

Вложения

  • 10fixtime.lua
    214 байт · Просмотры: 7
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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