worldletter = 5

platId = 102
-- ID PLATFORM

worldPlat = "udinroz"
-- WORLD TAKE PLAT

idWorldPlat = "okok"
-- ID DOOR TAKE PLAT
WORLDWL = "udinroz"
IDWL = "okok"
BGFORWLS = 3
BGFORJAMMERS = 15

breakRock = "true"
-- KALAU "TRUE" DIA AKAN BREAK BATU
-- KALAU "FALSE" DIA TIDAK BREAK BATU

tittlr = "DF LOG BY King"

webhookk = "https://discord.com/api/webhooks/1014524348150849628/RLH4NSJZZUQsktX-
KGAjxmI5BD_UhL3SpMSDrEcxsYdoxzRzpB7VNyhbYYnSy4T5YM6B"
thumbnail =
"https://media.discordapp.net/attachments/887163400793260085/1014527289029046302/
ASPEED.jpg"
warna = "3333333" -- Colour embed
-- LINK WEBHOOK

-- UNTUK MENUTUP BOT SELESAI SEMUA WORLD

-- ]] =====================================
-- [[ PEMBATAS
-- ]] ======================================

-- RUMUS
function mf(xy)
return math.floor(xy / 32)
end

-- BIASALAH
function powershell(message)
local script = [[
$webHookUrl = ']] .. webhookk .. [['

$host.ui.RawUI.WindowTitle = ""
[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12
[System.Collections.ArrayList]$embedArray = @()
$title = ']] .. getBot().name.. [['
$description = ']] .. message .. [['
$color = ']] .. warna .. [['
$thumbUrl = ']] .. thumbnail .. [['
$footertext = "SCRIPT BY King"
$ip = Get-NetIPAddress -AddressFamily IPv4 -InterfaceIndex $(Get-
NetConnectionProfile | Select-Object -ExpandProperty InterfaceIndex) | Select-
Object -ExpandProperty IPAddress
$cpu = (Get-WmiObject win32_processor | Measure-Object -property LoadPercentage -
Average | Select Average).Average
$ram = (Get-Counter '\Memory\Available MBytes').CounterSamples.CookedValue
$thumbnailObject = [PSCustomObject]@{
url = $thumbUrl
}
$footerObject = [PSCustomObject]@{
text = $footertext
}

$embedObject = [PSCustomObject]@{
title = $title
description = "**<a:rightsgy2:1012358899627733093> BOT
INFORMATION**`n$description`r`n**`n<a:rightsgy2:1012358899627733093> RDP
INFORMATION**`n<:CPU:996159527500120127> | Cpu : $cpu%`n<:RAM:996159529966391377> |
RAM : $ram MB `n<:ip:1005353539096289331> | IP : $ip"
color = $color
thumbnail = $thumbnailObject
footer = $footerObject
}

$embedArray.Add($embedObject) | Out-Null
$payload = [PSCustomObject]@{
embeds = $embedArray

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

-- ALL IN ONE
function allIn1()
if getBot().status ~= "online" then
powershell("<a:broadcast:981898314423341116> | Information : Bot Disconnect
(Reconnect) \n<a:offline:1012357910120124548> | Status : "..getBot().status.." \
n<a:globe:1010592985043447838> | World : "..getBot().world:upper())
sleep(15000)
end
while getBot().status ~= "online" do
sleep(1000)
if getBot().status == "online" then
powershell("<a:broadcast:981898314423341116> | Information : Bot
Terhubung \n<a:onlen:1010590755414351892> | Status : "..getBot().status.." \
n<a:globe:1010592985043447838> | World : "..getBot().world:upper())
sleep(15000)
end
end
if getTile(math.floor(getBot().x/32),math.floor(getBot().y/32)).fg == 6 then
move(3,0)
end
trashs = { 5, 11, 4, 10, 2914, 5024, 5026, 5028, 5030, 5032, 5034, 5036, 5038,
5040, 5042, 5044, 7162, 7164 }
for i, trash in ipairs(trashs) do
if findItem(trash) > 0 then
sendPacket(2, "action|trash\n|itemID|" .. trash)
 sendPacket(2, "action|dialog_return\ndialog_name|trash_item\
nitemID|" .. trash .. "|\ncount|" .. findItem(trash))
sleep(500)
end
end
TrashF = { 2, 3, 14, 15 }
for i, trash in ipairs(TrashF) do
if findItem(trash) > 195 then
sendPacket(2, "action|trash\n|itemID|" .. trash)
sendPacket(2, "action|dialog_return\ndialog_name|trash_item\
nitemID|" .. trash .. "|\ncount|" .. 10)
sleep(500)
end
end
end

function takey(WorldTak,IdDoorTak)
sendPacket(3,"action|join_request\nname|" .. WorldTak)
sleep(4500)
sendPacket(3,"action|join_request\nname|" .. WorldTak .. "|" ..IdDoorTak)
sleep(3500)
end

function floatingbg(id)
for _,tile in pairs(getTiles()) do
if tile.fg == id or tile.bg == id then
findPath(tile.x,tile.y)
sleep(1000)
end
end
end

function bgkntl()
count = 0
for _, tile in pairs(getTiles()) do
if tile.bg ~= 0 then
count = count + 1
end
end
return count
end

function fgcuyy()
count = 0
for _, tile in pairs(getTiles()) do
if tile.fg ~= 0 then
count = count + 1
end
end
return count
end

function geneWorld()
::BACK31::
sleep(3000)
sendPacket(3,"action|quit_to_exit")
sleep(3000)
local totTxt = ""
for i = 1,worldletter do
 totTxt = totTxt..string.char(math.random(97,122))
end
sendPacket(3,"action|join_request\nname|" .. totTxt)
sleep(3000)

if bgkntl() > 3600 or fgcuyy() > 3601 then

goto BACK31
end

for _,t in pairs(getTiles()) do

if t.fg== 242 or t.fg== 9640 or t.fg== 202 or t.fg== 204 or t.fg== 206 or
t.fg== 1796 or t.fg== 4994 or t.fg== 7188 or t.fg== 2408 or t.fg== 2950 or t.fg==
4428 or t.fg== 4802 or t.fg== 5814 or t.fg== 5260 or t.fg== 5980 or t.fg== 8470 or
t.fg== 10410 or t.fg== 11550 or t.fg== 11586 then
goto BACK31
end
end
end

function putwlsj()
powershell("<a:broadcast:981898314423341116> | Information : Found World \
n<a:onlen:1010590755414351892> | Status : "..getBot().status.." \
n<a:globe:1010592985043447838> | World : "..getBot().world:upper())
sleep(300)
place(242,0,-1)
sleep(300)
place(226,-1,-1)
sleep(1000)
punch(-1,-1)
end

function breaksj()
for _,tiles in pairs(getTiles()) do
if tiles.fg == 226 or tiles.bg == 226 then
findPath(tile.x,tile.y-1)
sleep(1000)
punch(0,-1)
sleep(150)
end
end
end

function takewls()
takey(WORLDWL,IDWL)
sleep(2000)
floatingbg(BGFORWLS)
sleep(500)
collect(2)
sleep(1000)
dropItem(242,findItem(242) - 1)
sleep(1000)
collect(0)
sleep(1000)
end

function takejammers()
floatingbg(BGFORJAMMERS)
sleep(500)
collect(2)
sleep(1000)
dropItem(226,findItem(226) - 1)
sleep(1000)
collect(0)
sleep(1000)
end

-- GROWSCAN
function gs(id)
count = 0
for _, object in pairs(getObjects()) do
if object.id == id then
count = count + object.count
end
end
return count
end

-- DROP ITEM WITH AMOUNT

function dropItem(itemID, count)
if findItem(itemID) >= count then
sendPacket(2, "action|drop\nitemID|" .. itemID)
sleep(500)
sendPacket(2,"action|dialog_return\ndialog_name|drop_item\nitemID|" ..
itemID .. "|\ncount|" .. count)
sleep(1000)
end
end

-- CLEAR SIDE
function clearSide()
powershell("<a:broadcast:981898314423341116> | Information : Start Build Df \
n<a:onlen:1010590755414351892> | Status : "..getBot().status.." \
n<a:globe:1010592985043447838> | World : "..getBot().world:upper())
sleep(300)
for i=24,53 do
if getTile(1,i).bg == 14 or getTile(1,i).fg == 2 or getTile(0,i).bg == 14
or getTile(0,i).fg == 2 then
while getTile(1,i).bg == 14 or getTile(1,i).fg == 2 do
allIn1()
findPath(1,i-1)
punch(0,1)
sleep(160)
if getTile(1,i).bg == 0 or getTile(1,i).fg == 0 then
collect(2)
end
end
while getTile(0,i).bg == 14 or getTile(0,i).fg == 2 do
allIn1()
findPath(1,i-1)
punch(-1,1)
sleep(160)
if getTile(1,i).bg == 0 then
collect(2)
end
end
end
 end
for i=24,53 do
if getTile(98,i).bg == 14 or getTile(98,i).fg == 2 or getTile(99,i).bg ==
14 or getTile(99,i).fg == 2 then
while getTile(98,i).bg == 14 or getTile(98,i).fg == 2 do
allIn1()
findPath(98,i-1)
punch(0,1)
sleep(160)
if getTile(1,i).bg == 0 or getTile(1,i).fg == 0 then
collect(2)
end
end
while getTile(99,i).bg == 14 or getTile(99,i).fg == 2 do
allIn1()
findPath(98,i-1)
punch(1,1)
sleep(160)
if getTile(1,i).bg == 0 or getTile(1,i).bg == 0 then
collect(2)
end
end
end
end
end

-- TAKE AND PUT PLATFORM

function platform(retun)
if findItem(platId) < 52 then
while getBot().world ~= string.upper(worldPlat) do
allIn1()
sendPacket(3,"action|join_request\nname|" .. worldPlat)
sleep(5500)
end
sleep(2000)
sendPacket(3,"action|join_request\nname|" .. worldPlat .. "|" ..
idWorldPlat)
sleep(4500)
collect(2)
sleep(3500)
if findItem(platId) > 156 then
move(-1,0)
dropItem(platId,findItem(platId) - 156)
end
while getBot().world ~= string.upper(retun) do
sendPacket(3,"action|join_request\nname|" .. retun)
sleep(5500)
allIn1()
end
sleep(5500)
end
for i = 2, 52, 2 do
while getTile(1,i).fg == 0 do
allIn1()
if findItem(platId) == 0 then
break
end
findPath(1,i-1)
place(platId,0,1)
 sleep(delayPut)
end
end
for i = 2, 52, 2 do
while getTile(98,i).fg == 0 do
allIn1()
if findItem(platId) == 0 then
break
end
findPath(98,i-1)
place(platId,0,1)
sleep(delayPut)
end
end
end

-- CLEAR DIRT
function clearDirt()
for i = 1, 54, 2 do
for j = 2,97 do
if getTile(j,i).bg == 14 or getTile(j,i).fg == 2 then
while getTile(j,i).bg == 14 or getTile(j,i).fg == 2 do
allIn1()
findPath(j-1,i)
punch(1,0)
sleep(160)
if getTile(j,i).bg == 0 or getTile(j,i).fg == 0 then
collect(2)
end
end
while getTile(j + 1,i).fg == 2 or getTile(j + 1,i).bg == 14 do
allIn1()
findPath(j - 1,i)
punch(2,0)
sleep(160)
if getTile(j+1,i).bg == 0 or getTile(j+1,i).fg == 0 then
collect(3)
end
end
end
end
end
end

-- CLEAR ROCK
function clearRock()
if breakRock then
for _, tile in pairs(getTiles()) do
while getTile(tile.x,tile.y).fg == 10 do
allIn1()
findPath(tile.x,tile.y - 1)
punch(0,1)
sleep(160)
if getTile(tile.x,tile.y).fg == 0 then
collect(2)
end
end
end
end
end

-- CLEAR LAVA
function clearLava()
for _, tile in pairs(getTiles()) do
while getTile(tile.x,tile.y).fg == 4 do
allIn1()
findPath(tile.x,tile.y-1)
punch(0,1)
sleep(160)
if getTile(tile.x,tile.y).fg == 0 then
collect(2)
end
end
end
end

-- PLANT AND HARVEST DIRT TREE

function plantHv()
while findItem(2) == 0 do
for x = 2, 22 do
allIn1()
if findItem(2) > 160 then
break
end
while getTile(x, 23).fg == 3 and getTile(x, 23).ready == true do
allIn1()
findPath(x, 23)
punch(0, 0)
sleep(160)
collect(1)
end
while getTile(x, 23).fg == 0 and findItem(3) > 0 do
allIn1()
findPath(x, 23)
place(3, 0, 0)
sleep(100)
end
while findItem(3) == 0 and findItem(2) == 0 do
allIn1()
powershell("<a:broadcast:981898314423341116> | Information : Butuh
Dirt Seed \n<a:onlen:1010590755414351892> | Status : "..getBot().status.." \
n<a:globe:1010592985043447838> | World : "..getBot().world:upper())
sleep(40000)
collect(1)
end
end
end
end

-- PLACE DIRT
function placeDirt()
for y = 52, 2, -2 do
for x = 2, 97 do
if getTile(x, y).fg == 0 then
allIn1()
plantHv()
allIn1()
findPath(x, y - 1)
 while getTile(x, y).fg == 0 and findItem(2) > 0 do
allIn1()
place(2, 0, 1)
sleep(160)
end
end
end
end
end

-- BREAK DIRT TREE WHEN DONE

function allDone()
for x = 2, 22 do
while getTile(x,23).fg == 3 do
allIn1()
findPath(x,23)
punch(0,0)
sleep(160)
collect(2)
sleep(1000)
breaksj()
end
end
end

-- MAIN FUNCTION
function startdff()
takewls()
sleep(2000)
takejammers()
sleep(2000)
geneWorld()
sleep(2000)
putwlsj()
sleep(2000)
worldretun = getBot().world
clearSide()
sleep(2000)
platform(worldretun)
sleep(2000)
clearDirt()
sleep(2000)
clearRock()
sleep(2000)
clearLava()
sleep(2000)
placeDirt()
sleep(2000)
powershell("<a:broadcast:981898314423341116> | Information : World
"..getBot().world:upper().." Selesai \n<a:onlen:1010590755414351892> | Status :
"..getBot().status)
sleep(2000)
allDone()
sleep(2000)
end

while true do
startdff()
sleep(10000)
end