BlockID = 4584

FarmWorlds = {} --Write Capital Letter, Unlimited World {"",""}
FarmWorldID = "" --DOOR ID

StorageWorld = "" --Seed and Block Drop World Name
StorageWorldSeedID = "" --Seed Drop DOOR ID
StorageWorldBlockID = "" --Block Drop DOOR ID

PackDropWorld = "" --Pack Drop World
PackDropWorldID = "" --DOOR ID

Webhooks = "" --You can research on youtube
YourDiscordid = ""

delayHarvest = 200

packname = "world_lock" --if you write wrong you will get ercon
pricepack = 2000 --if you write wrong you will get ercon
PackitemID = 242 --if you write wrong you will get ercon
PackDropCount = 3 --when drop pack

function GonWebhook(Shinuqi)
    local script = [[
    $webHookUrl = "]]..Webhooks..[["
    $thumbnailObject = [PSCustomObject]@{
    url = "https://cdn.discordapp.com/emojis/1016295109970645022.gif?size=80&quality=lossless"
    }
    $color = Get-Random -Minimum 0 -Maximum 16777215
    $title = 'profes - Harvest'
    $description = "**]]..Shinuqi..[[**"
  
    $footer = [PSCustomObject]@{
        icon_url = "https://cdn.discordapp.com/emojis/978628955907170314.gif?size=96&quality=lossless"
        text = "]].."profes | Date : "..(os.date"%d/%m/%y":upper().." Hour : ")..os.date("%I")..":"..os.date("%M").." "..os.date("%p"):upper()..[["
    }
  
    $embedObject = [PSCustomObject]@{
        color = $color
        title = $title
        description = $description
        thumbnail = $thumbnailObject
        footer = $footer
    }
  
    [System.Collections.ArrayList]$embedArray = @()
    $embedArray.Add($embedObject)
  
    $payload = [PSCustomObject]@{
        embeds = $embedArray
    }
    [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12
    Invoke-RestMethod -Uri $webHookUrl -Body ($payload | ConvertTo-Json -Depth 4) -Method Post -ContentType 'application/json'
    ]]
  
    local pipe = io.popen("powershell -command -", "w")
    pipe:write(script)
    pipe:close()
end

startT = os.time()
function SecondTT(seconds)
  local seconds = tonumber(seconds)
  if seconds <= 0 then
    return "00:00:00";
  else
    hours = string.format("%02.f", math.floor(seconds/3600));
    mins = string.format("%02.f", math.floor(seconds/60 - (hours*60)));
    secs = string.format("%02.f", math.floor(seconds - hours*3600 - mins *60));
    return hours..":"..mins..":"..secs
  end
end

function join(a,b) 
    sleep(3000) 
    sendPacket(3,"action|join_request\nname|"..a.."|"..b.."\ninvitedWorld|0")
    sleep(5000) 
end

function harvest(list) 
    for _, tile in pairs(getTiles()) do
            if tile.fg == BlockID+1 and tile.ready then
                Reconnect(list)
                findPath(tile.x,tile.y) 
                if getTile(tile.x,tile.y).fg == BlockID+1 then
                    punch(0,0) 
                    sleep(delayHarvest) 
                    collect(2) 
                    sleep(delayHarvest)
                end
                if getTile(tile.x,tile.y).fg == BlockID+1 then
                    punch(0,0) 
                    sleep(delayHarvest) 
                    collect(2) 
                    sleep(delayHarvest)
                end
            end
            if findItem(BlockID) == 200 then
                break
            end
    end
end

function Dropf(list)
    if findItem(BlockID) > 50 then
        Reconnect(list)
        collectSet(false, 1)
        sleep(500)
        join(StorageWorld,StorageWorldBlockID)
        sleep(500)
        drop(BlockID)
        sleep(500)
        while (findItem(BlockID) > 1) do
            Reconnect(list)
            sleep(500)
            move(-1,0) 
            sleep(500)
            collectSet(false, 1)
            sleep(500)
            drop(BlockID)
            sleep(500)
        end
        GonWebhook(
        "<:growbot:992058196439072770> Bot Name : "..getBot().name..
        "\n <a:World:997157064008810620> Current World : "..getBot().world..
        "\n <a:online:1007062631787544666> Status : "..getBot().status..
        "\n <:pepper_tree_seed:1012630107715797073> Dropped Seed : "..floats(BlockID+1).ucanlar..
        "\n <:pepper_tree_seed:1012630107715797073> Dropped Block : "..floats(BlockID).ucanlar)
    end
    if findItem(BlockID+1) > 50 then
        Reconnect(list)
        collectSet(false, 1)
        sleep(500)
        join(StorageWorld,StorageWorldSeedID)
        sleep(500)
        drop(BlockID+1)
        sleep(500)
        while (findItem(BlockID+1) > 1) do
            Reconnect(list)
            sleep(500)
            move(-1,0) 
            sleep(500)
            collectSet(false, 1)
            sleep(500)
            drop(BlockID+1)
            sleep(500)
        end  
    end
    while findItem(112) > pricepack do
        Reconnect(list)
        sendPacket(2, "action|buy\nitem|"..packname)
        sleep(3000) -- you can change delay
    end
    if findItem(PackitemID) > PackDropCount then
        Reconnect(list)
        collectSet(false, 1)
        sleep(500)
        join(PackDropWorld,PackDropWorldID)
        sleep(500)
        drop(PackitemID)
        sleep(1500)
        while (findItem(PackitemID) > PackDropCount) do
            Reconnect(list)
            sleep(500)
            move(-1,0) 
            sleep(500)
            collectSet(false, 1)
            sleep(500)
            drop(PackitemID)
            sleep(500)
            GonWebhook(
            "<:growbot:992058196439072770> Bot Name : "..getBot().name..
            "\n <a:World:997157064008810620> Current World : "..getBot().world..
            "\n <a:online:1007062631787544666> Status : "..getBot().status..
            "\n <:gems:994218103032520724> Dropped Pack : "..floats(PackitemID).ucanlar)
        end
    end
end

function floats(idz)
    float = 0
    for _, obj in pairs(getObjects()) do 
        if obj.id == idz then 
            float = float + obj.count
        end
    end
    return {ucanlar = float}
end

function scanTree(id)
    local countReady = 0
    local countUnready = 0
    for _,tile in pairs(getTiles()) do 
        if tile.fg == id then
            if tile.ready then
                countReady = countReady + 1 
            else
                countUnready = countUnready + 1
            end
        end
    end 
    return { Ready = countReady, Unready = countUnready }
end

function OnlineOffline(loglars)
    local script = [[
      $webhookUri = "]]..Webhooks..[["
      $Body = @{
        'username' = 'Shinuqi#2111'
        'content' = ']] .. loglars .. [['
        'avatar_url' = 'https://cdn.discordapp.com/avatars/208654299738144768/b4338b90a3026628cdc1e2598587ef12.png?size=1024'
      }
      [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12
      Invoke-RestMethod -Uri $webhookUri -Method 'post' -Body $Body
      echo done
    ]]
  
    local pipe = io.popen("powershell -command -", "w")
    pipe:write(script)
    pipe:close()
end

botcuk = getBot().name
function Reconnect(list)
    if getBot().status == "suspended" or getBot().status == "currently banned" or getBot().status == "temporary ban" then
        OnlineOffline(botcuk.." "..getBot().status.." Bot Removed")
        sleep(1000)
        removeBot(botcuk)
    end
    if getBot().status ~= "online" then
        OnlineOffline("<@" .. YourDiscordid .. ">".."\n<:growbot:992058196439072770> | Bot Name : "..getBot().name.."\n<:mega:984686541383290940> | Information : Bot Is Offline Trying To Reconnect.... \n<:red_circle:987661002868936774> | Status : Offline ")
        while getBot().status ~= "online" do
            connect()
            sleep(10000)
        end
		sleep(1000)
        OnlineOffline("<@" .. YourDiscordid .. ">".."\n<:growbot:992058196439072770> | Bot Name : "..getBot().name.."\n<:mega:984686541383290940> | Information : Bot Is Back Online\n<a:online:1007062631787544666> | Status : Online\n<a:World:997157064008810620> | Current World : "..getBot().world.." \n<:jam:987145988470898758> | UpTime Bot : "..SecondTT(os.difftime(os.time(), startT)))
    end
    if getBot().world == "EXIT" then
        join(list,FarmWorldID)
    end
    if getTile(math.floor(getBot().x/32),math.floor(getBot().y/32)).fg == 6 then
        join(list,FarmWorldID)
    end
end

for i, list in ipairs(FarmWorlds) do
    if getBot().world ~= list then
        join(list,FarmWorldID)
    end
    agaclar = scanTree(BlockID+1).Ready
    while agaclar > 1 do
        if findItem(BlockID) ~= 200 then
            Reconnect(list)
            harvest(list)
        end
        Dropf(list)
        Reconnect(list)
        if getBot().world ~= list then
            join(list,FarmWorldID)
        end
        agaclar = scanTree(BlockID+1).Ready
    end
end
GonWebhook("<:growbot:992058196439072770> Bot Name : "..getBot().name.." All World Done Bot Removed")
sleep(1000)
removeBot(getBot().name)