Помогите со скриптом

kalmyk.luac

Участник
Автор темы
124
15
[14:25:20.665941] (error) Auto Klad Dig by Gruzin Gang.lua: ...ayer [0.3.7]\moonloader\Auto Klad Dig by Gruzin Gang.lua:98: 'end' expected (to close 'while' at line 9) near '<eof>'
[14:25:20.665941] (error) Auto Klad Dig by Gruzin Gang.lua: Script died due to an error. (08243D9C)
шарящих людей прошу помочь пофиксить ошибку
 

Вложения

  • Auto Klad Dig by Gruzin Gang.lua
    3.8 KB · Просмотры: 12
Решение
Lua:
local samp = require "samp.events"
local enabled = false

function main()
    while not isSampAvailable() do wait(0) end wait(1)
    wait(1300)
    sampAddChatMessage("{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - {FF4A4A}ACTIVATED",-1)
    sampRegisterChatCommand("adklad", digact)
    while true do
    wait(0)
    end
end
    
function samp.onDisplayGameText(style, timer, text)
    if text:find('Press: ~g~Y') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 64
        data.send()
    end
    if text:find('Press: ~r~N') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 128
        data.send()
    end
    if text:find('ALT') then...

damag

Женюсь на официантке в моем любимом баре
Проверенный
1,152
1,194
Lua:
local samp = require "samp.events"
local enabled = false

function main()
    while not isSampAvailable() do wait(0) end wait(1)
    wait(1300)
    sampAddChatMessage("{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - {FF4A4A}ACTIVATED",-1)
    sampRegisterChatCommand("adklad", digact)
    while true do
    wait(0)
    end
end
    
function samp.onDisplayGameText(style, timer, text)
    if text:find('Press: ~g~Y') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 64
        data.send()
    end
    if text:find('Press: ~r~N') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 128
        data.send()
    end
    if text:find('ALT') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('~g~successfully') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('fail') or text:find('FAIL') or text:find('Fail') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 1024
        data.send()
    end
end

function digact(noArg)
    enabled = not enabled
    sampAddChatMessage(enabled and '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{4FFF38}Enable{FFFFFF}]' or '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{FF1C1C}Disable{FFFFFF}]', -1)
end

function samp_create_sync_data(sync_type, copy_from_player)
    local ffi = require 'ffi'
    local sampfuncs = require 'sampfuncs'
    -- from SAMP.Lua
    local raknet = require 'samp.raknet'
    require 'samp.synchronization'

    copy_from_player = copy_from_player or true
    local sync_traits = {
        player = {'PlayerSyncData', raknet.PACKET.PLAYER_SYNC, sampStorePlayerOnfootData},
        vehicle = {'VehicleSyncData', raknet.PACKET.VEHICLE_SYNC, sampStorePlayerIncarData},
        passenger = {'PassengerSyncData', raknet.PACKET.PASSENGER_SYNC, sampStorePlayerPassengerData},
        aim = {'AimSyncData', raknet.PACKET.AIM_SYNC, sampStorePlayerAimData},
        trailer = {'TrailerSyncData', raknet.PACKET.TRAILER_SYNC, sampStorePlayerTrailerData},
        unoccupied = {'UnoccupiedSyncData', raknet.PACKET.UNOCCUPIED_SYNC, nil},
        bullet = {'BulletSyncData', raknet.PACKET.BULLET_SYNC, nil},
        spectator = {'SpectatorSyncData', raknet.PACKET.SPECTATOR_SYNC, nil}
    }
    local sync_info = sync_traits[sync_type]
    local data_type = 'struct ' .. sync_info[1]
    local data = ffi.new(data_type, {})
    local raw_data_ptr = tonumber(ffi.cast('uintptr_t', ffi.new(data_type .. '*', data)))
    -- copy player's sync data to the allocated memory
    if copy_from_player then
        local copy_func = sync_info[3]
        if copy_func then
            local _, player_id
            if copy_from_player == true then
                _, player_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
            else
                player_id = tonumber(copy_from_player)
            end
            copy_func(player_id, raw_data_ptr)
        end
    end
    -- function to send packet
    local func_send = function()
        local bs = raknetNewBitStream()
        raknetBitStreamWriteInt8(bs, sync_info[2])
        raknetBitStreamWriteBuffer(bs, raw_data_ptr, ffi.sizeof(data))
        raknetSendBitStreamEx(bs, sampfuncs.HIGH_PRIORITY, sampfuncs.UNRELIABLE_SEQUENCED, 1)
        raknetDeleteBitStream(bs)
    end
    -- metatable to access sync data and 'send' function
    local mt = {
        __index = function(t, index)
            return data[index]
        end,
        __newindex = function(t, index, value)
            data[index] = value
        end
    }
    return setmetatable({send = func_send}, mt)
end
 
  • Нравится
Реакции: kalmyk.luac

kalmyk.luac

Участник
Автор темы
124
15
Lua:
local samp = require "samp.events"
local enabled = false

function main()
    while not isSampAvailable() do wait(0) end wait(1)
    wait(1300)
    sampAddChatMessage("{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - {FF4A4A}ACTIVATED",-1)
    sampRegisterChatCommand("adklad", digact)
    while true do
    wait(0)
    end
end
   
function samp.onDisplayGameText(style, timer, text)
    if text:find('Press: ~g~Y') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 64
        data.send()
    end
    if text:find('Press: ~r~N') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 128
        data.send()
    end
    if text:find('ALT') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('~g~successfully') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('fail') or text:find('FAIL') or text:find('Fail') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 1024
        data.send()
    end
end

function digact(noArg)
    enabled = not enabled
    sampAddChatMessage(enabled and '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{4FFF38}Enable{FFFFFF}]' or '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{FF1C1C}Disable{FFFFFF}]', -1)
end

function samp_create_sync_data(sync_type, copy_from_player)
    local ffi = require 'ffi'
    local sampfuncs = require 'sampfuncs'
    -- from SAMP.Lua
    local raknet = require 'samp.raknet'
    require 'samp.synchronization'

    copy_from_player = copy_from_player or true
    local sync_traits = {
        player = {'PlayerSyncData', raknet.PACKET.PLAYER_SYNC, sampStorePlayerOnfootData},
        vehicle = {'VehicleSyncData', raknet.PACKET.VEHICLE_SYNC, sampStorePlayerIncarData},
        passenger = {'PassengerSyncData', raknet.PACKET.PASSENGER_SYNC, sampStorePlayerPassengerData},
        aim = {'AimSyncData', raknet.PACKET.AIM_SYNC, sampStorePlayerAimData},
        trailer = {'TrailerSyncData', raknet.PACKET.TRAILER_SYNC, sampStorePlayerTrailerData},
        unoccupied = {'UnoccupiedSyncData', raknet.PACKET.UNOCCUPIED_SYNC, nil},
        bullet = {'BulletSyncData', raknet.PACKET.BULLET_SYNC, nil},
        spectator = {'SpectatorSyncData', raknet.PACKET.SPECTATOR_SYNC, nil}
    }
    local sync_info = sync_traits[sync_type]
    local data_type = 'struct ' .. sync_info[1]
    local data = ffi.new(data_type, {})
    local raw_data_ptr = tonumber(ffi.cast('uintptr_t', ffi.new(data_type .. '*', data)))
    -- copy player's sync data to the allocated memory
    if copy_from_player then
        local copy_func = sync_info[3]
        if copy_func then
            local _, player_id
            if copy_from_player == true then
                _, player_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
            else
                player_id = tonumber(copy_from_player)
            end
            copy_func(player_id, raw_data_ptr)
        end
    end
    -- function to send packet
    local func_send = function()
        local bs = raknetNewBitStream()
        raknetBitStreamWriteInt8(bs, sync_info[2])
        raknetBitStreamWriteBuffer(bs, raw_data_ptr, ffi.sizeof(data))
        raknetSendBitStreamEx(bs, sampfuncs.HIGH_PRIORITY, sampfuncs.UNRELIABLE_SEQUENCED, 1)
        raknetDeleteBitStream(bs)
    end
    -- metatable to access sync data and 'send' function
    local mt = {
        __index = function(t, index)
            return data[index]
        end,
        __newindex = function(t, index, value)
            data[index] = value
        end
    }
    return setmetatable({send = func_send}, mt)
end
щас проверю, отпишу
Lua:
local samp = require "samp.events"
local enabled = false

function main()
    while not isSampAvailable() do wait(0) end wait(1)
    wait(1300)
    sampAddChatMessage("{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - {FF4A4A}ACTIVATED",-1)
    sampRegisterChatCommand("adklad", digact)
    while true do
    wait(0)
    end
end
   
function samp.onDisplayGameText(style, timer, text)
    if text:find('Press: ~g~Y') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 64
        data.send()
    end
    if text:find('Press: ~r~N') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 128
        data.send()
    end
    if text:find('ALT') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('~g~successfully') then
        local data = samp_create_sync_data('player')
        data.keysData = data.keysData + 1024
        data.send()
    end
    if text:find('fail') or text:find('FAIL') or text:find('Fail') then
        local data = samp_create_sync_data('player')
        data.weapon = data.weapon + 1024
        data.send()
    end
end

function digact(noArg)
    enabled = not enabled
    sampAddChatMessage(enabled and '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{4FFF38}Enable{FFFFFF}]' or '{FFFFFF}[{FFAD40}Auto Klad Dig by Gruzin Gang{FFFFFF}] - [{FF1C1C}Disable{FFFFFF}]', -1)
end

function samp_create_sync_data(sync_type, copy_from_player)
    local ffi = require 'ffi'
    local sampfuncs = require 'sampfuncs'
    -- from SAMP.Lua
    local raknet = require 'samp.raknet'
    require 'samp.synchronization'

    copy_from_player = copy_from_player or true
    local sync_traits = {
        player = {'PlayerSyncData', raknet.PACKET.PLAYER_SYNC, sampStorePlayerOnfootData},
        vehicle = {'VehicleSyncData', raknet.PACKET.VEHICLE_SYNC, sampStorePlayerIncarData},
        passenger = {'PassengerSyncData', raknet.PACKET.PASSENGER_SYNC, sampStorePlayerPassengerData},
        aim = {'AimSyncData', raknet.PACKET.AIM_SYNC, sampStorePlayerAimData},
        trailer = {'TrailerSyncData', raknet.PACKET.TRAILER_SYNC, sampStorePlayerTrailerData},
        unoccupied = {'UnoccupiedSyncData', raknet.PACKET.UNOCCUPIED_SYNC, nil},
        bullet = {'BulletSyncData', raknet.PACKET.BULLET_SYNC, nil},
        spectator = {'SpectatorSyncData', raknet.PACKET.SPECTATOR_SYNC, nil}
    }
    local sync_info = sync_traits[sync_type]
    local data_type = 'struct ' .. sync_info[1]
    local data = ffi.new(data_type, {})
    local raw_data_ptr = tonumber(ffi.cast('uintptr_t', ffi.new(data_type .. '*', data)))
    -- copy player's sync data to the allocated memory
    if copy_from_player then
        local copy_func = sync_info[3]
        if copy_func then
            local _, player_id
            if copy_from_player == true then
                _, player_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
            else
                player_id = tonumber(copy_from_player)
            end
            copy_func(player_id, raw_data_ptr)
        end
    end
    -- function to send packet
    local func_send = function()
        local bs = raknetNewBitStream()
        raknetBitStreamWriteInt8(bs, sync_info[2])
        raknetBitStreamWriteBuffer(bs, raw_data_ptr, ffi.sizeof(data))
        raknetSendBitStreamEx(bs, sampfuncs.HIGH_PRIORITY, sampfuncs.UNRELIABLE_SEQUENCED, 1)
        raknetDeleteBitStream(bs)
    end
    -- metatable to access sync data and 'send' function
    local mt = {
        __index = function(t, index)
            return data[index]
        end,
        __newindex = function(t, index, value)
            data[index] = value
        end
    }
    return setmetatable({send = func_send}, mt)
end
лучший нахуй<3
 
Последнее редактирование: