Functions

Functions for the provided dialogs

pingname = true
originalname = "EMPTY"

function log(text)
    local packet = {}
    packet[0] = "OnConsoleMessage"
    packet[1] = "[Your text here]" .. text
    packet.netid = -1
    SendVarlist(packet)
end

function makenotification(text)
    local var = {}
    var[0] = "OnAddNotification"
    var[1] = "interface/science_button.rttex"
    var[2] = text
    var[3] = "audio/bell.wav"
    var.netid = -1 --required netid
    SendVarlist(var)
end

function netidfromname(username)
    for _, item in pairs(GetPlayers()) do
        if string.sub(item.name, 3, string.len(item.name) - 2) == username then
            return math.floor(item.netid)
        end
    end
    return GetLocal().netid
end

function namefromnetid(netid)
    for _, item in pairs(GetPlayers()) do
        if item.netid == netid then
            return item.name
        end
    end
    return GetLocal().netid
end

function collectrange(range)
    erdx = math.floor(GetLocal().pos_x // 32)
    erdy = math.floor(GetLocal().pos_y // 32)
    for y = range, -range, -1 do
        for x = range, -range, -1 do
            collect(erdx + x, erdy + y)
        end
    end
end

function overlayText(text)
    local var = {}
    var[0] = "OnTextOverlay"
    var[1] = text
    var.netid = -1
    SendVarlist(var)
end

function split(pString, pPattern)
    local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
    local fpat = "(.-)" .. pPattern
    local last_end = 1
    local s, e, cap = pString:find(fpat, 1)
    while s do
       if s ~= 1 or cap ~= "" then
      table.insert(Table,cap)
       end
       last_end = e+1
       s, e, cap = pString:find(fpat, last_end)
    end
    if last_end <= #pString then
       cap = pString:sub(last_end)
       table.insert(Table, cap)
    end
    return Table
end

function punch(x, y)
    local pkt = {}
    pkt.type = 3
    pkt.int_data = 18
    pkt.pos_x = x//32
    pkt.pos_y = (y-1)//32
    pkt.int_x = x
    pkt.int_y = y
    pkt.flags = 2560
    SendPacketRaw(pkt)
end

function use(id, x, y)
    local pkt = {}
    pkt.type = 3
    pkt.int_data = id
    pkt.pos_x = GetLocal().pos_x
    pkt.pos_y = GetLocal().pos_y 
    pkt.int_x = x
    pkt.int_y = y
    pkt.flags = 2560
    SendPacketRaw(pkt)
end

function shatter(id)
    local packet = {}
    packet.type = 10 
    packet.int_data = id
    SendPacketRaw(packet)
end

function chat(message)
    SendPacket(2, "action|input\n|text|" .. message)
end

function place(x, y, id)
    local pkt = {}
    pkt.type = 3
    pkt.flags = 2560
    pkt.int_data = id
    pkt.int_x = x
    pkt.int_y = y
    pkt.pos_x = GetLocal().pos_x
    pkt.pos_y = GetLocal().pos_y
    SendPacketRaw(pkt)
end

function pullnetid(netid)
    SendPacket(2, "action|wrench\n|netid|" .. netid)
    SendPacket(2, "action|dialog_return\ndialog_name|popup\nnetID|" .. netid .. "|\nnetID|" .. netid .. "|\nbuttonClicked|pull")
end

function pullusername(username)
    for _, item in pairs(GetPlayers()) do
        if item.name == username then
            pullnetid(item.netid)
        end
    end
end

function getgemsbyblock(x, y)
    gems = 0
    for _,item in pairs(GetObjects()) do
        if item.pos_x // 32 == x and item.pos_y // 32 == y and item.id == 112 then
            gems = gems + item.count
        end
    end
    return math.floor(gems)
end

function colormode(bool, pps)
    local Colors = {1348237567, 1685231359, 2022356223, 2190853119, 2527912447, 2864971775, 3033464831, 3370516479, 3033464831, 2864971775, 2527912447, 2190853119, 2022356223, 1348237567, 1685231359, 2022356223, 2190853119, 2527912447, 2864971775, 3033464831, 3370516479, 3033464831, 2864971775, 2527912447, 2190853119, 2022356223}
    _G.toggle = bool

    if pps > 100 then
        print("You cannot have "..pps.." packets, cooldown.")
    else
        while _G.toggle do Sleep()
            pps = 1000 / pps
            for index, var in pairs (Colors) do Sleep(pps)
                SendPacket(2,"action|setSkin\ncolor|"..var)
            end
        end
    end
end

function teleport(world, x, y)
    SendPacket(3, "action|join_request\nname|start\ninvitedWorld|0")
    Sleep(5000)
    SendPacket(3, "action|join_request\nname|" .. world .. "\ninvitedWorld|0")
    Sleep(650)
    SendPacket(3, "action|quit_to_exit")
    FindPath(x, y)
    Sleep(400)
    SendPacket(3, "action|quit_to_exit")
end

function drop(itemID, count)
    SendPacket(2,"action|drop\n|itemID|" .. itemID)
    SendPacket(2,"action|dialog_return\ndialog_name|drop\nitem_drop|".. itemID .. "|\nitem_count|".. count)
end

function join(world)
	SendPacket(3, "action|join_request\nname|" .. world .. "\ninvitedWorld|0")
end

function cdrop(count)
    shouldCancel = true
    tonumber(count)
    local wl = count % 100
    local dl = math.floor(count / 100) % 100
    local bgl = math.floor(count / 10000)

    -- GET INVENTORY
    local dlinventory = 0
    local wlinventory = 0
    local bglinventory = 0

    for _, item in pairs(GetInventory()) do
        if (item.id == 242) then
            wlinventory = item.count
        end
        if (item.id == 1796) then
            dlinventory = item.count
        end
        if (item.id == 7188) then
            bglinventory = item.count
        end
    end

    -- DROP
    if bgl ~= 0 then
        if bglinventory < bgl or dlinventory >= 100 * bgl then
            drop(1796, 100 * bgl)
        else
            drop(7188, bgl)
        end
        log("`#Dropped " .. tostring(math.floor(bgl)) .. " blue gem locks")
        Sleep(90)
    end
    if dl ~= 0 then
        if dlinventory < dl and bglinventory > bgl then
            shatter(7188)
        end
        if dlinventory < dl and wlinventory > wl + dl * 100 then
            shatter(242)
        end
        drop(1796, dl)
        log("`#Dropped " .. tostring(math.floor(dl)) .. " diamond locks")
        Sleep(90)
    end
    if wl ~= 0 then
        if wlinventory < wl and dlinventory > dl then
            shatter(1796)
        end
        drop(242, wl)
        log("`#Dropped " .. tostring(math.floor(wl)) .. " world locks")
        Sleep(90)
    end
    Sleep(300)
    shouldCancel = false
end