Где найти тут корды.

molodoy212

molodoy212

Потрачен
Автор темы
23
2
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
_: 
local slot0_a1004 = renderCreateFont("Arial", 10, 5)
local slot1_a1005 = false
local slot2_a1006 = nil
local slot3_a1007 = {}
local slot4_a1008 = {}
local slot5_a1009 = {}
local slot6_a1010 = {}

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function main()
    repeat
        wait(0)
    until isSampAvailable()

    sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Запущен! Создатель - {FF0000}youtube.com/goxashow{FFFFFF} | Тема скрипта: blast.hk/threads/95291", -1)
    sampRegisterChatCommand("mine", function ()
    end)

    while true do
        wait(0)

        if slot1_a1005 then
            if not isCharInArea3d(PLAYER_PED, 393.1, 716.46, 15, 769.71, 1017.04, -55, false) then
                sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Вы вышли с шахты, поэтому скрипт выключен!", -1)

                slot1_a1005 = false

                for slot3_a1053 = 1, 3000 do
                    slot3_a1007[slot3_a1053] = {}

                    for slot7_a1062 = 1, 4 do
                        slot3_a1007[slot3_a1053][slot7_a1062] = 0
                    end
                end
            end

            if os.time() - slot2_a1006 >= 1 then
                slot2_a1006 = os.time()

                for slot3_a1139 = 1, 3000 do
                    if slot3_a1007[slot3_a1139][4] > 0 then
                        slot3_a1007[slot3_a1139][4] = slot3_a1007[slot3_a1139][4] - 1

                        if slot3_a1007[slot3_a1139][4] == 15 then
                            metka(slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3])

                            local slot4_a1105, slot5_a1106, slot6_a1107 = getCharCoordinates(1)
                            local slot7_a1123 = math.floor(getDistanceBetweenCoords3d(slot4_a1105, slot5_a1106, slot6_a1107, slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3]))

                            sampAddChatMessage("{FFC300}[Mine Time Render ]{FFFFFF} Через ~15 секунд, в " .. slot7_a1123 .. " метрах от вас, появится руда!", -1)
                        elseif slot3_a1007[slot3_a1139][4] == 0 then
                            for slot7_a1142 = 1, 4 do
                                slot3_a1007[slot3_a1139][slot7_a1142] = 0
                            end
                        end
                    end
                end
            end

            for slot3_a1179 = 1, 3000 do
                if slot3_a1007[slot3_a1179][4] > 0 then
                    local slot4_a1169 = slot3_a1007[slot3_a1179][1]
                    local slot5_a1171 = slot3_a1007[slot3_a1179][2]
                    local slot6_a1173 = slot3_a1007[slot3_a1179][3]

                    if isPointOnScreen(slot4_a1169, slot5_a1171, slot6_a1173, 0) then
                        local slot7_a1175, slot8_a1176 = convert3DCoordsToScreen(slot4_a1169, slot5_a1171, slot6_a1173)
                        local slot9_a1182 = changetime(slot3_a1007[slot3_a1179][4])

                        renderFontDrawText(slot0_a1004, "Появится через " .. slot9_a1182 .. "!", slot7_a1175, slot8_a1176, -1)
                    end
                end
            end
        end
    end
end

function _1_()
end

function hp1g()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function __()
end

function hpg()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function onReceiveRpc(arg0_a1372, arg1_a1375)
    if arg0_a1372 == 58 and slot1_a1005 then
        local slot2_a1341 = raknetBitStreamReadInt16(arg1_a1375)

        if sampIs3dTextDefined(slot2_a1341) then
            local slot3_a1300, slot4_a1301, slot5_a1361, slot6_a1364, slot7_a1367, slot8_a1305, slot9_a1306, slot10_a1307, slot11_a1308 = sampGet3dTextInfoById(slot2_a1341)
            local slot12_a1319, slot13_a1321, slot14_a1323 = getCharCoordinates(1)

            if slot3_a1300:find("Месторождение ресурсов") and getDistanceBetweenCoords3d(slot12_a1319, slot13_a1321, slot14_a1323, slot5_a1361, slot6_a1364, slot7_a1367) < 90 then
                local slot15_a1359 = check(slot5_a1361, slot6_a1364, slot7_a1367)

                if slot15_a1359 == -1 then
                    local slot16_a1342 = slot2_a1341 - 1000
                    slot3_a1007[slot16_a1342][1] = slot5_a1361
                    slot3_a1007[slot16_a1342][2] = slot6_a1364
                    slot3_a1007[slot16_a1342][3] = slot7_a1367
                    slot3_a1007[slot16_a1342][4] = 180
                elseif slot15_a1359 > -1 then
                    slot3_a1007[slot15_a1359][1] = slot5_a1361
                    slot3_a1007[slot15_a1359][2] = slot6_a1364
                    slot3_a1007[slot15_a1359][3] = slot7_a1367
                    slot3_a1007[slot15_a1359][4] = 180
                end
            end
        end

        return true
    elseif arg0_a1372 == 47 and slot1_a1005 then
        local slot2_a1418 = raknetBitStreamReadInt16(arg1_a1375)
        local slot3_a1389 = sampGetObjectHandleBySampId(slot2_a1418)

        if doesObjectExist(slot3_a1389) and getObjectModel(slot3_a1389) == 3930 then
            local slot4_a1391, slot5_a1436, slot6_a1439, slot7_a1442 = getObjectCoordinates(slot3_a1389)
            local slot8_a1397, slot9_a1398, slot10_a1399 = getCharCoordinates(1)

            if getDistanceBetweenCoords3d(slot8_a1397, slot9_a1398, slot10_a1399, slot5_a1436, slot6_a1439, slot7_a1442) < 45 then
                local slot11_a1434 = check(slot5_a1436, slot6_a1439, slot7_a1442)

                if slot11_a1434 == -1 then
                    slot3_a1007[slot2_a1418][1] = slot5_a1436
                    slot3_a1007[slot2_a1418][2] = slot6_a1439
                    slot3_a1007[slot2_a1418][3] = slot7_a1442 + 1
                    slot3_a1007[slot2_a1418][4] = 180
                elseif slot11_a1434 > -1 then
                    slot3_a1007[slot11_a1434][1] = slot5_a1436
                    slot3_a1007[slot11_a1434][2] = slot6_a1439
                    slot3_a1007[slot11_a1434][3] = slot7_a1442 + 1
                    slot3_a1007[slot11_a1434][4] = 180
                end
            end
        end

        return true
    end
end

function check(arg0_a1468, arg1_a1470, arg2_a1472)
    for slot6_a1481 = 1, 3000 do
        if getDistanceBetweenCoords3d(slot3_a1007[slot6_a1481][1], slot3_a1007[slot6_a1481][2], slot3_a1007[slot6_a1481][3], arg0_a1468, arg1_a1470, arg2_a1472) < 2 and slot3_a1007[slot6_a1481][4] > 0 then
            return slot6_a1481
        end
    end

    return -1
end

function changetime(arg0_a1484)
    local slot1_a1491 = math.floor(arg0_a1484 / 60)
    local slot2_a1499 = arg0_a1484 % 60

    if slot1_a1491 ~= 0 then
        return "\n  {FF0000}" .. slot1_a1491 .. "{FFFFFF} мин , {FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    else
        return "{FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    end
end

function metka(arg0_a1504, arg1_a1505, arg2_a1506)
    local slot3_a1510 = #slot4_a1008 + 1
    local slot4_a1514 = #slot6_a1010 + 1
    local slot5_a1518 = #slot5_a1009 + 1
    slot4_a1008[slot3_a1510] = createUser3dMarker(arg0_a1504, arg1_a1505, arg2_a1506 + 2, 4)
    slot6_a1010[slot4_a1514] = addBlipForCoord(arg0_a1504, arg1_a1505, arg2_a1506)

    changeBlipColour(slot6_a1010[slot4_a1514], 68451042303.0)

    slot5_a1009[slot5_a1518] = createCheckpoint(1, arg0_a1504, arg1_a1505, arg2_a1506, 1, 1, 1, 1.5)

    lua_thread.create(function ()
        wait(15000)
        deleteCheckpoint(slot5_a1009[slot5_a1518])
        removeBlip(slot6_a1010[slot4_a1514])
        removeUser3dMarker(slot4_a1008[slot3_a1510])

        slot6_a1010[slot4_a1514] = nil
        slot4_a1008[slot3_a1510] = nil
        slot5_a1009[slot5_a1518] = nil
    end)
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring
Буду благодарен если поможете радобраться.
Мб даже накину на ход ноги.
 
Сортировка по дате Сортировка по голосам
Z3roKwq

Z3roKwq

Известный
294
157
molodoy212 написал(а):
_: 
local slot0_a1004 = renderCreateFont("Arial", 10, 5)
local slot1_a1005 = false
local slot2_a1006 = nil
local slot3_a1007 = {}
local slot4_a1008 = {}
local slot5_a1009 = {}
local slot6_a1010 = {}

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function main()
    repeat
        wait(0)
    until isSampAvailable()

    sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Запущен! Создатель - {FF0000}youtube.com/goxashow{FFFFFF} | Тема скрипта: blast.hk/threads/95291", -1)
    sampRegisterChatCommand("mine", function ()
    end)

    while true do
        wait(0)

        if slot1_a1005 then
            if not isCharInArea3d(PLAYER_PED, 393.1, 716.46, 15, 769.71, 1017.04, -55, false) then
                sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Вы вышли с шахты, поэтому скрипт выключен!", -1)

                slot1_a1005 = false

                for slot3_a1053 = 1, 3000 do
                    slot3_a1007[slot3_a1053] = {}

                    for slot7_a1062 = 1, 4 do
                        slot3_a1007[slot3_a1053][slot7_a1062] = 0
                    end
                end
            end

            if os.time() - slot2_a1006 >= 1 then
                slot2_a1006 = os.time()

                for slot3_a1139 = 1, 3000 do
                    if slot3_a1007[slot3_a1139][4] > 0 then
                        slot3_a1007[slot3_a1139][4] = slot3_a1007[slot3_a1139][4] - 1

                        if slot3_a1007[slot3_a1139][4] == 15 then
                            metka(slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3])

                            local slot4_a1105, slot5_a1106, slot6_a1107 = getCharCoordinates(1)
                            local slot7_a1123 = math.floor(getDistanceBetweenCoords3d(slot4_a1105, slot5_a1106, slot6_a1107, slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3]))

                            sampAddChatMessage("{FFC300}[Mine Time Render ]{FFFFFF} Через ~15 секунд, в " .. slot7_a1123 .. " метрах от вас, появится руда!", -1)
                        elseif slot3_a1007[slot3_a1139][4] == 0 then
                            for slot7_a1142 = 1, 4 do
                                slot3_a1007[slot3_a1139][slot7_a1142] = 0
                            end
                        end
                    end
                end
            end

            for slot3_a1179 = 1, 3000 do
                if slot3_a1007[slot3_a1179][4] > 0 then
                    local slot4_a1169 = slot3_a1007[slot3_a1179][1]
                    local slot5_a1171 = slot3_a1007[slot3_a1179][2]
                    local slot6_a1173 = slot3_a1007[slot3_a1179][3]

                    if isPointOnScreen(slot4_a1169, slot5_a1171, slot6_a1173, 0) then
                        local slot7_a1175, slot8_a1176 = convert3DCoordsToScreen(slot4_a1169, slot5_a1171, slot6_a1173)
                        local slot9_a1182 = changetime(slot3_a1007[slot3_a1179][4])

                        renderFontDrawText(slot0_a1004, "Появится через " .. slot9_a1182 .. "!", slot7_a1175, slot8_a1176, -1)
                    end
                end
            end
        end
    end
end

function _1_()
end

function hp1g()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function __()
end

function hpg()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function onReceiveRpc(arg0_a1372, arg1_a1375)
    if arg0_a1372 == 58 and slot1_a1005 then
        local slot2_a1341 = raknetBitStreamReadInt16(arg1_a1375)

        if sampIs3dTextDefined(slot2_a1341) then
            local slot3_a1300, slot4_a1301, slot5_a1361, slot6_a1364, slot7_a1367, slot8_a1305, slot9_a1306, slot10_a1307, slot11_a1308 = sampGet3dTextInfoById(slot2_a1341)
            local slot12_a1319, slot13_a1321, slot14_a1323 = getCharCoordinates(1)

            if slot3_a1300:find("Месторождение ресурсов") and getDistanceBetweenCoords3d(slot12_a1319, slot13_a1321, slot14_a1323, slot5_a1361, slot6_a1364, slot7_a1367) < 90 then
                local slot15_a1359 = check(slot5_a1361, slot6_a1364, slot7_a1367)

                if slot15_a1359 == -1 then
                    local slot16_a1342 = slot2_a1341 - 1000
                    slot3_a1007[slot16_a1342][1] = slot5_a1361
                    slot3_a1007[slot16_a1342][2] = slot6_a1364
                    slot3_a1007[slot16_a1342][3] = slot7_a1367
                    slot3_a1007[slot16_a1342][4] = 180
                elseif slot15_a1359 > -1 then
                    slot3_a1007[slot15_a1359][1] = slot5_a1361
                    slot3_a1007[slot15_a1359][2] = slot6_a1364
                    slot3_a1007[slot15_a1359][3] = slot7_a1367
                    slot3_a1007[slot15_a1359][4] = 180
                end
            end
        end

        return true
    elseif arg0_a1372 == 47 and slot1_a1005 then
        local slot2_a1418 = raknetBitStreamReadInt16(arg1_a1375)
        local slot3_a1389 = sampGetObjectHandleBySampId(slot2_a1418)

        if doesObjectExist(slot3_a1389) and getObjectModel(slot3_a1389) == 3930 then
            local slot4_a1391, slot5_a1436, slot6_a1439, slot7_a1442 = getObjectCoordinates(slot3_a1389)
            local slot8_a1397, slot9_a1398, slot10_a1399 = getCharCoordinates(1)

            if getDistanceBetweenCoords3d(slot8_a1397, slot9_a1398, slot10_a1399, slot5_a1436, slot6_a1439, slot7_a1442) < 45 then
                local slot11_a1434 = check(slot5_a1436, slot6_a1439, slot7_a1442)

                if slot11_a1434 == -1 then
                    slot3_a1007[slot2_a1418][1] = slot5_a1436
                    slot3_a1007[slot2_a1418][2] = slot6_a1439
                    slot3_a1007[slot2_a1418][3] = slot7_a1442 + 1
                    slot3_a1007[slot2_a1418][4] = 180
                elseif slot11_a1434 > -1 then
                    slot3_a1007[slot11_a1434][1] = slot5_a1436
                    slot3_a1007[slot11_a1434][2] = slot6_a1439
                    slot3_a1007[slot11_a1434][3] = slot7_a1442 + 1
                    slot3_a1007[slot11_a1434][4] = 180
                end
            end
        end

        return true
    end
end

function check(arg0_a1468, arg1_a1470, arg2_a1472)
    for slot6_a1481 = 1, 3000 do
        if getDistanceBetweenCoords3d(slot3_a1007[slot6_a1481][1], slot3_a1007[slot6_a1481][2], slot3_a1007[slot6_a1481][3], arg0_a1468, arg1_a1470, arg2_a1472) < 2 and slot3_a1007[slot6_a1481][4] > 0 then
            return slot6_a1481
        end
    end

    return -1
end

function changetime(arg0_a1484)
    local slot1_a1491 = math.floor(arg0_a1484 / 60)
    local slot2_a1499 = arg0_a1484 % 60

    if slot1_a1491 ~= 0 then
        return "\n  {FF0000}" .. slot1_a1491 .. "{FFFFFF} мин , {FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    else
        return "{FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    end
end

function metka(arg0_a1504, arg1_a1505, arg2_a1506)
    local slot3_a1510 = #slot4_a1008 + 1
    local slot4_a1514 = #slot6_a1010 + 1
    local slot5_a1518 = #slot5_a1009 + 1
    slot4_a1008[slot3_a1510] = createUser3dMarker(arg0_a1504, arg1_a1505, arg2_a1506 + 2, 4)
    slot6_a1010[slot4_a1514] = addBlipForCoord(arg0_a1504, arg1_a1505, arg2_a1506)

    changeBlipColour(slot6_a1010[slot4_a1514], 68451042303.0)

    slot5_a1009[slot5_a1518] = createCheckpoint(1, arg0_a1504, arg1_a1505, arg2_a1506, 1, 1, 1, 1.5)

    lua_thread.create(function ()
        wait(15000)
        deleteCheckpoint(slot5_a1009[slot5_a1518])
        removeBlip(slot6_a1010[slot4_a1514])
        removeUser3dMarker(slot4_a1008[slot3_a1510])

        slot6_a1010[slot4_a1514] = nil
        slot4_a1008[slot3_a1510] = nil
        slot5_a1009[slot5_a1518] = nil
    end)
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring
Буду благодарен если поможете радобраться.
Мб даже накину на ход ноги.
Нажмите для раскрытия...
хахахахаххахах весело, я его и декомпилил
 
Позитивный голос 0 Негативный голос
molodoy212

molodoy212

Потрачен
Автор темы
23
2
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Прикольно , надо найти где сдесь корды, переписать их и пользоваться это штукой , и продавать вирты/аккаунты
 
Позитивный голос 0 Негативный голос
molodoy212

molodoy212

Потрачен
Автор темы
23
2
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
z3ro_kwq написал(а):
а тут хер че найдёш, т.к. 2 антипитона от бабули + луаджик и ещё после декомпилера от коды мало что остается
Нажмите для раскрытия...
может кто-либо найдёт и я солью эту штуку за 5к малым xd
я могу)
 
Позитивный голос 0 Негативный голос
whyhardlyz

whyhardlyz

Известный
119
88
molodoy212 написал(а):
_: 
local slot0_a1004 = renderCreateFont("Arial", 10, 5)
local slot1_a1005 = false
local slot2_a1006 = nil
local slot3_a1007 = {}
local slot4_a1008 = {}
local slot5_a1009 = {}
local slot6_a1010 = {}

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function main()
    repeat
        wait(0)
    until isSampAvailable()

    sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Запущен! Создатель - {FF0000}youtube.com/goxashow{FFFFFF} | Тема скрипта: blast.hk/threads/95291", -1)
    sampRegisterChatCommand("mine", function ()
    end)

    while true do
        wait(0)

        if slot1_a1005 then
            if not isCharInArea3d(PLAYER_PED, 393.1, 716.46, 15, 769.71, 1017.04, -55, false) then
                sampAddChatMessage("{FFC300}[Mine Time Render by GoxaShow]{FFFFFF} Вы вышли с шахты, поэтому скрипт выключен!", -1)

                slot1_a1005 = false

                for slot3_a1053 = 1, 3000 do
                    slot3_a1007[slot3_a1053] = {}

                    for slot7_a1062 = 1, 4 do
                        slot3_a1007[slot3_a1053][slot7_a1062] = 0
                    end
                end
            end

            if os.time() - slot2_a1006 >= 1 then
                slot2_a1006 = os.time()

                for slot3_a1139 = 1, 3000 do
                    if slot3_a1007[slot3_a1139][4] > 0 then
                        slot3_a1007[slot3_a1139][4] = slot3_a1007[slot3_a1139][4] - 1

                        if slot3_a1007[slot3_a1139][4] == 15 then
                            metka(slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3])

                            local slot4_a1105, slot5_a1106, slot6_a1107 = getCharCoordinates(1)
                            local slot7_a1123 = math.floor(getDistanceBetweenCoords3d(slot4_a1105, slot5_a1106, slot6_a1107, slot3_a1007[slot3_a1139][1], slot3_a1007[slot3_a1139][2], slot3_a1007[slot3_a1139][3]))

                            sampAddChatMessage("{FFC300}[Mine Time Render ]{FFFFFF} Через ~15 секунд, в " .. slot7_a1123 .. " метрах от вас, появится руда!", -1)
                        elseif slot3_a1007[slot3_a1139][4] == 0 then
                            for slot7_a1142 = 1, 4 do
                                slot3_a1007[slot3_a1139][slot7_a1142] = 0
                            end
                        end
                    end
                end
            end

            for slot3_a1179 = 1, 3000 do
                if slot3_a1007[slot3_a1179][4] > 0 then
                    local slot4_a1169 = slot3_a1007[slot3_a1179][1]
                    local slot5_a1171 = slot3_a1007[slot3_a1179][2]
                    local slot6_a1173 = slot3_a1007[slot3_a1179][3]

                    if isPointOnScreen(slot4_a1169, slot5_a1171, slot6_a1173, 0) then
                        local slot7_a1175, slot8_a1176 = convert3DCoordsToScreen(slot4_a1169, slot5_a1171, slot6_a1173)
                        local slot9_a1182 = changetime(slot3_a1007[slot3_a1179][4])

                        renderFontDrawText(slot0_a1004, "Появится через " .. slot9_a1182 .. "!", slot7_a1175, slot8_a1176, -1)
                    end
                end
            end
        end
    end
end

function _1_()
end

function hp1g()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring

function __()
end

function hpg()
    return 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69
end

function onReceiveRpc(arg0_a1372, arg1_a1375)
    if arg0_a1372 == 58 and slot1_a1005 then
        local slot2_a1341 = raknetBitStreamReadInt16(arg1_a1375)

        if sampIs3dTextDefined(slot2_a1341) then
            local slot3_a1300, slot4_a1301, slot5_a1361, slot6_a1364, slot7_a1367, slot8_a1305, slot9_a1306, slot10_a1307, slot11_a1308 = sampGet3dTextInfoById(slot2_a1341)
            local slot12_a1319, slot13_a1321, slot14_a1323 = getCharCoordinates(1)

            if slot3_a1300:find("Месторождение ресурсов") and getDistanceBetweenCoords3d(slot12_a1319, slot13_a1321, slot14_a1323, slot5_a1361, slot6_a1364, slot7_a1367) < 90 then
                local slot15_a1359 = check(slot5_a1361, slot6_a1364, slot7_a1367)

                if slot15_a1359 == -1 then
                    local slot16_a1342 = slot2_a1341 - 1000
                    slot3_a1007[slot16_a1342][1] = slot5_a1361
                    slot3_a1007[slot16_a1342][2] = slot6_a1364
                    slot3_a1007[slot16_a1342][3] = slot7_a1367
                    slot3_a1007[slot16_a1342][4] = 180
                elseif slot15_a1359 > -1 then
                    slot3_a1007[slot15_a1359][1] = slot5_a1361
                    slot3_a1007[slot15_a1359][2] = slot6_a1364
                    slot3_a1007[slot15_a1359][3] = slot7_a1367
                    slot3_a1007[slot15_a1359][4] = 180
                end
            end
        end

        return true
    elseif arg0_a1372 == 47 and slot1_a1005 then
        local slot2_a1418 = raknetBitStreamReadInt16(arg1_a1375)
        local slot3_a1389 = sampGetObjectHandleBySampId(slot2_a1418)

        if doesObjectExist(slot3_a1389) and getObjectModel(slot3_a1389) == 3930 then
            local slot4_a1391, slot5_a1436, slot6_a1439, slot7_a1442 = getObjectCoordinates(slot3_a1389)
            local slot8_a1397, slot9_a1398, slot10_a1399 = getCharCoordinates(1)

            if getDistanceBetweenCoords3d(slot8_a1397, slot9_a1398, slot10_a1399, slot5_a1436, slot6_a1439, slot7_a1442) < 45 then
                local slot11_a1434 = check(slot5_a1436, slot6_a1439, slot7_a1442)

                if slot11_a1434 == -1 then
                    slot3_a1007[slot2_a1418][1] = slot5_a1436
                    slot3_a1007[slot2_a1418][2] = slot6_a1439
                    slot3_a1007[slot2_a1418][3] = slot7_a1442 + 1
                    slot3_a1007[slot2_a1418][4] = 180
                elseif slot11_a1434 > -1 then
                    slot3_a1007[slot11_a1434][1] = slot5_a1436
                    slot3_a1007[slot11_a1434][2] = slot6_a1439
                    slot3_a1007[slot11_a1434][3] = slot7_a1442 + 1
                    slot3_a1007[slot11_a1434][4] = 180
                end
            end
        end

        return true
    end
end

function check(arg0_a1468, arg1_a1470, arg2_a1472)
    for slot6_a1481 = 1, 3000 do
        if getDistanceBetweenCoords3d(slot3_a1007[slot6_a1481][1], slot3_a1007[slot6_a1481][2], slot3_a1007[slot6_a1481][3], arg0_a1468, arg1_a1470, arg2_a1472) < 2 and slot3_a1007[slot6_a1481][4] > 0 then
            return slot6_a1481
        end
    end

    return -1
end

function changetime(arg0_a1484)
    local slot1_a1491 = math.floor(arg0_a1484 / 60)
    local slot2_a1499 = arg0_a1484 % 60

    if slot1_a1491 ~= 0 then
        return "\n  {FF0000}" .. slot1_a1491 .. "{FFFFFF} мин , {FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    else
        return "{FF0000}" .. slot2_a1499 .. "{FFFFFF} сек"
    end
end

function metka(arg0_a1504, arg1_a1505, arg2_a1506)
    local slot3_a1510 = #slot4_a1008 + 1
    local slot4_a1514 = #slot6_a1010 + 1
    local slot5_a1518 = #slot5_a1009 + 1
    slot4_a1008[slot3_a1510] = createUser3dMarker(arg0_a1504, arg1_a1505, arg2_a1506 + 2, 4)
    slot6_a1010[slot4_a1514] = addBlipForCoord(arg0_a1504, arg1_a1505, arg2_a1506)

    changeBlipColour(slot6_a1010[slot4_a1514], 68451042303.0)

    slot5_a1009[slot5_a1518] = createCheckpoint(1, arg0_a1504, arg1_a1505, arg2_a1506, 1, 1, 1, 1.5)

    lua_thread.create(function ()
        wait(15000)
        deleteCheckpoint(slot5_a1009[slot5_a1518])
        removeBlip(slot6_a1010[slot4_a1514])
        removeUser3dMarker(slot4_a1008[slot3_a1510])

        slot6_a1010[slot4_a1514] = nil
        slot4_a1008[slot3_a1510] = nil
        slot5_a1009[slot5_a1518] = nil
    end)
end

function loadstring()
end

load = loadstring
string = loadstring
gsub = loadstring
chatMsg = loadstring
str = loadstring
TheSampHack = loadstring
SampHack = loadstring
Буду благодарен если поможете радобраться.
Мб даже накину на ход ноги.
Нажмите для раскрытия...
113 строка, получает RPC 58 (Update3DTextLabel) обновления 3д текста, далее получает информацию из него (из нужных нам только: текст, позиция по оси X, Y, Z)
1644303560423.png

далее идет проверка на наличие в тексте "Месторождение ресурсов" и дистанцию между 3д текстом и юзером.

Простыми словами - координат нет изначально, они получаются путем получения 3д текста, таймер запускается по получению RPC 47 (DestroyObject).
Возможно глобально ошибаюсь, возможно и нет, со стороны выглядит как правда.
 
  • Нравится
Реакции: molodoy212
Позитивный голос 0 Негативный голос
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. M
    • Вопрос
    Как получить координаты и следовательно изменить их
    Ответы
    3
    Просмотры
    770
    Вопросы
    MATEMOTIMO
    M
  2. 4uxaLo
    • Вопрос
    Готовый TRMAP. Где можно вставить свои координаты.
    Ответы
    2
    Просмотры
    555
    Помощь
    4uxaLo
    4uxaLo
  3. Vovich
    • Закрыта
    Гайд Отправка фейк текста в чат (новичкам)
      • Нравится
    Ответы
    29
    Просмотры
    15K
    CLEO
    hnnssy
    hnnssy
  4. Noah Krarup
    Гайд Баннеры групп для форумов SA:MP
      • Нравится
    Ответы
    0
    Просмотры
    2K
    Web-разработка
    Noah Krarup
    Noah Krarup
  5. {$FANTOMCODER .cs}
    Где можно взять инвайт-коды для riseup.net?
    Ответы
    0
    Просмотры
    209
    Общение
    {$FANTOMCODER .cs}
    {$FANTOMCODER .cs}
Сверху Снизу