Islands VenDump (Vending price collector)

-- This script will print a list of a visited island vending machines items, type of sale, and price.
-- A .txt will be saved to your Workspace folder for comparison.
-- I also made this tool to fix the word wrap issue and make it readable and not 1 long line.
-- https://www.mediafire.com/file/7wfakglq3yx4fap/vendDump.rar/file
-- P.S to Void admins....
-- I never sent anything let alone had intentions of any bad, I wanted to help the community.

local owner = ""
local island = ""
local blocks = ""
local item = ""
local price = ""
local mode = ""   --mode 1 is buying, 0 is selling
local code = ""
local counter = 0
local HttpService = game:GetService("HttpService")

_G.vendingTable = {}

--Find Owner
for i , v in pairs(game.Players:GetChildren()) do
   if v:FindFirstChild("Visitor") and v.Visitor.Value == false then
       owner = v.Name
       code = v.JoinCode.Value
       local oBody = game.Workspace[owner]
       local reply = "Island Owner:" .. owner .. " - Join Code:" .. code
       print(reply)
       _G.vendingTable[#_G.vendingTable+1] = reply
       local a = Instance.new("BoxHandleAdornment", oBody)
        a.Name = "Owner"
        a.Parent = oBody
        a.AlwaysOnTop = true
        a.ZIndex = 0
        a.Size = oBody.HumanoidRootPart.Size
        a.Transparency = 0.1
        a.Color = BrickColor.new("Really red")
        local BillboardGui = Instance.new("BillboardGui", oBody)
        local TextLabel = Instance.new("TextLabel")
        BillboardGui.Adornee = oBody
        BillboardGui.Name = "Owner"
        BillboardGui.Size = UDim2.new(0, 100, 0, 150)
        BillboardGui.StudsOffset = Vector3.new(0, 1, 0)
        BillboardGui.AlwaysOnTop = true
        TextLabel.Parent = BillboardGui
        TextLabel.BackgroundTransparency = 1
        TextLabel.Position = UDim2.new(0, 0, 0, -50)
        TextLabel.Size = UDim2.new(0, 100, 0, 100)
        TextLabel.Font = Enum.Font.SourceSansSemibold
        TextLabel.TextSize = 40
        TextLabel.TextColor3 = Color3.new(196, 40, 28)
        TextLabel.TextStrokeTransparency = 0
        TextLabel.TextYAlignment = Enum.TextYAlignment.Bottom
        TextLabel.Text = "Owner"
    end
end

--Get Island
for i,v in pairs(game:GetService("Workspace").Islands:GetChildren()) do
    if v:FindFirstChild("Blocks") then
        island = v
        blocks = v.Blocks
        else
            print("Unable to find island!")
    end
end

--Look for vending machine
for i,v in pairs(blocks:GetChildren()) do
    if v.Name == "vendingMachine" or v.Name == "vendingMachine1"  then
        counter = counter +1
        price = v.TransactionPrice.Value
        if v.Mode.Value == 1 then
            mode = "Buying"
            elseif v.Mode.Value == 0 then
            mode = "Selling"
        end
       for x,y in pairs(v.SellingContents:GetChildren()) do
        item = y.Name
        local answer = mode.. " a " .. item .. " for $" .. price
        --print(answer)
        _G.vendingTable[#_G.vendingTable+1] = answer
        wait(0.001)
       end
    end
end
local saveAs = "AMT_scan- ".. owner .. ".txt"
local json
json = HttpService:JSONEncode(_G.vendingTable)
writefile(saveAs, json)
 print("Done Scanning:" .. counter .. " Vending Machines...")
 print("            Made By King")