- 1
- 0
- Версия MoonLoader
- Другое
Привет, хочу увеличить урон где он тут прописан? и как его увеличить?
Moonloader v.026.5-beta
function onSendPacket(id, bs)
if id == 221 then
raknetBitStreamSetReadOffset(bs, 8)
if raknetBitStreamReadInt16(bs) == 73 then
local data = {}
for i = 1, (raknetBitStreamGetNumberOfUnreadBits(bs)/8) do table.insert(data, raknetBitStreamReadInt8(bs)) end
local damage_bs = raknetNewBitStream()
raknetBitStreamWriteInt8(damage_bs, 221)
raknetBitStreamWriteInt16(damage_bs, 73)
for i = 1, 2 do raknetBitStreamWriteInt8(damage_bs, data) end
raknetBitStreamWriteInt8(damage_bs, 0)
raknetBitStreamWriteInt8(damage_bs, 6)
raknetBitStreamWriteInt8(damage_bs, 62)
raknetBitStreamWriteInt8(damage_bs, 62)
for i = 7, #data do raknetBitStreamWriteInt8(damage_bs, data) end
raknetSendBitStreamEx(damage_bs, 1, 7, 1)
raknetDeleteBitStream(damage_bs)
return false
end
end
end
if id == 221 then
raknetBitStreamSetReadOffset(bs, 8)
if raknetBitStreamReadInt16(bs) == 73 then
local data = {}
for i = 1, (raknetBitStreamGetNumberOfUnreadBits(bs)/8) do table.insert(data, raknetBitStreamReadInt8(bs)) end
local damage_bs = raknetNewBitStream()
raknetBitStreamWriteInt8(damage_bs, 221)
raknetBitStreamWriteInt16(damage_bs, 73)
for i = 1, 2 do raknetBitStreamWriteInt8(damage_bs, data) end
raknetBitStreamWriteInt8(damage_bs, 0)
raknetBitStreamWriteInt8(damage_bs, 6)
raknetBitStreamWriteInt8(damage_bs, 62)
raknetBitStreamWriteInt8(damage_bs, 62)
for i = 7, #data do raknetBitStreamWriteInt8(damage_bs, data) end
raknetSendBitStreamEx(damage_bs, 1, 7, 1)
raknetDeleteBitStream(damage_bs)
return false
end
end
end
local states_data = { [0] = "off", "on", "on with current gun" }
local state = 0
function main()
sampRegisterChatCommand("bdb", function(arg)
state = (arg ~= nil and tonumber(arg) or (state > 0 and 0 or 1))
sampAddChatMessage(string.format("damager: %s", states_data[tonumber(state > 2 and 2 or state)]), 0xCCCCCC)
end)
wait(-1)
end
function onSendPacket(id, bs)
if id == 221 and state ~= 0 then
raknetBitStreamIgnoreBits(bs, 8)
local type_id = raknetBitStreamReadInt16(bs)
if type_id ~= 53 then return true end
local damage_bs = raknetNewBitStream()
raknetBitStreamWriteInt8(damage_bs, 221)
raknetBitStreamWriteInt16(damage_bs, 73)
raknetBitStreamWriteBool(damage_bs, true)
raknetBitStreamWriteInt16(damage_bs, raknetBitStreamReadInt16(bs))
raknetBitStreamWriteFloat(damage_bs, 300000)
raknetBitStreamWriteInt32(damage_bs, state > 1 and getCurrentCharWeapon(PLAYER_PED) or 40)
raknetBitStreamWriteInt32(damage_bs, 6)
raknetBitStreamWriteInt16(damage_bs, 0)
raknetBitStreamWriteInt16(damage_bs, select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)))
raknetSendBitStreamEx(damage_bs, 1, 8, 1)
raknetDeleteBitStream(damage_bs)
end
if id == 207 and state == 1 then
raknetBitStreamSetWriteOffset(bs, raknetBitStreamGetNumberOfUnreadBits(bs) - 8)
raknetBitStreamWriteInt8(bs, 40)
end
end
local state = 0
function main()
sampRegisterChatCommand("bdb", function(arg)
state = (arg ~= nil and tonumber(arg) or (state > 0 and 0 or 1))
sampAddChatMessage(string.format("damager: %s", states_data[tonumber(state > 2 and 2 or state)]), 0xCCCCCC)
end)
wait(-1)
end
function onSendPacket(id, bs)
if id == 221 and state ~= 0 then
raknetBitStreamIgnoreBits(bs, 8)
local type_id = raknetBitStreamReadInt16(bs)
if type_id ~= 53 then return true end
local damage_bs = raknetNewBitStream()
raknetBitStreamWriteInt8(damage_bs, 221)
raknetBitStreamWriteInt16(damage_bs, 73)
raknetBitStreamWriteBool(damage_bs, true)
raknetBitStreamWriteInt16(damage_bs, raknetBitStreamReadInt16(bs))
raknetBitStreamWriteFloat(damage_bs, 300000)
raknetBitStreamWriteInt32(damage_bs, state > 1 and getCurrentCharWeapon(PLAYER_PED) or 40)
raknetBitStreamWriteInt32(damage_bs, 6)
raknetBitStreamWriteInt16(damage_bs, 0)
raknetBitStreamWriteInt16(damage_bs, select(2, sampGetPlayerIdByCharHandle(PLAYER_PED)))
raknetSendBitStreamEx(damage_bs, 1, 8, 1)
raknetDeleteBitStream(damage_bs)
end
if id == 207 and state == 1 then
raknetBitStreamSetWriteOffset(bs, raknetBitStreamGetNumberOfUnreadBits(bs) - 8)
raknetBitStreamWriteInt8(bs, 40)
end
end
Moonloader v.026.5-beta