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

FYP

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

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

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

🎹
Модератор
2,866
1,640
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

Потрачен
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

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

Вложения

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

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

Через тернии к звёздам
Проверенный
1,521
994
Луа переделать строку помогите братцы 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

Новичок
14
1
я, честно, не сильно разбираюсь со строками, но!
у тебя в коде строка:
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 строкой уже в том луа а то я незнаю куда его нужно вставить
я, честно, не сильно разбираюсь со строками, но!
у тебя в коде строка:
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

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

Вложения

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

Adrian G.

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

Вложения

  • 10fixtime.lua
    214 байт · Просмотры: 7

aaa111bbb

Потрачен
301
132
Короче по фану толком ничего не зная захотел отредачить метлу.Модельку то я поменял но коллизия мешает ее нормальной работе.Вроде бы прописано удаление колизии я хз.Помогите пофиксить
 

Вложения

  • mop[0].cs
    59.4 KB · Просмотры: 2

Just_

Участник
90
16
Сани билдер не открывает( Может кто-то если не сложно при активации убрать надпись на экране
 

Вложения

  • Click.cs
    1.8 KB · Просмотры: 6