-- Informasi penting!

-- (IND)

-- 1. botx = 1 berguna untuk setting bot ke berapa yang digunakan

-- 2. break menggunakan 2 tile atas
-- 3. berikan jarak antara drop pack/seed dan tempat break
-- 4. drop seed support 3 tile ke kiri
-- 6. menjual kembali = anda kontol
-- 7. kalau sc nya jelek, gw jangan dibully kontol

-- Important information!

-- (ENG)

-- 1. botx = 1 is useful for setting which bot are you using

-- 2. break using the top 2 tiles
-- 3. provide a distance between the drop pack/seed and the break
-- 4. Drop seed support 3 tiles to the left
-- 6. resell = you're dick
-- 7. if the sc is bad, don't be bully me you're dick

--==================================================

idworld = "id door" -- Setting id door world

botx = 1 -- bot ke-berapa yang kamu gunakan / which bot
are you using
block = 4584 -- Setting Idblock
hit = 4 -- Setting Hit Block
range = 3 -- Setting Range Collect Max 5
packname = "world_lock_10_pack" -- Setting debug pack
hargapack = 20000 -- Setting price pack
belipack = false

dplace = 120 -- Setting delay Place

dbreak = 180 -- Setting delay Break
warpB = 5034 -- background / foreground pnb

bgseed = 16 -- background / foreground drop seed

bgpack = 16 -- background / foreground drop pack
autofarm = "on"
world = getWorld().name

totalitem = 1 -- Total itemid in pack

itmpck = {242 -- ItemID item from pack
}

dit = {5028, --Earth Essence

5032, --Fissure
5034, --Waterfall
5036, --Hidden Door
5038, --Anemone
5040, --Aurora
5042, --Obsidian
5044, --Lava Lamp
7162, --Hour Glass
7164, --Red Entrance
8846, --Lace A-Line Dress
2914, --Wiggly Worm
7164 --Red House Entrance
}
--============================================================= end edit here!

function dropseed()
collectSet(false, range)
if findItem(block+1) >= 150 then
sleep(50)
move(-1,0)
sleep(1000)
drop(block+1)
sleep(1000)
if findItem(block+1) >= 150 then
sleep(50)
move(-1,0)
sleep(1000)
drop(block+1)
sleep(1000)
if findItem(block+1) >= 150 then
sleep(50)
move(-1,0)
sleep(1000)
drop(block+1)
sleep(1000)
end
end
end
posisibreak()
end

function dropp()
collectSet(false, range)
if findItem(block+1) >= 150 then
for _, tile in pairs(getTiles()) do
if tile.bg == bgseed or tile.fg == bgseed then
findPath(tile.x,tile.y)
dropseed()
end
end
end
end

function posisibreak()
for _, tile in pairs(getTiles()) do
if tile.fg == warpB or tile.bg == warpB then
xx = (tile.x+(botx*2-1))
yy = tile.y
break
end
end
findPath(xx,yy)
sleep(1000)
xx = xx+1
bbreak()
end

function take()
collectSet(true, range)
for _, object in pairs(getObjects()) do
 if object.id == block then
local x = math.floor(object.x / 32)
local y = math.floor(object.y / 32)
findPath(x,y)
sleep(1000)
if findItem(block) > 1 then
break
end
else
autofarm = "off"
end
end
posisibreak()
end

function bbreak()
trashh()
while findItem(block) > 0 and findItem(block+1) <= 150 do
collectSet(true, range)
place(block,0,-2)
sleep(dplace)
for i=1,hit do
punch(0,-2)
sleep(dbreak)
end
place(block,0,-1)
sleep(dplace)
for i=1,hit do
punch(0,-1)
sleep(dbreak)
end
collect(3)
end
if belipack == true and findItem(112) >= hargapack then
buypck()
end
if findItem(block+1) >= 150 then
dropp()
end
if findItem(block) <= 0 then
take()
end
end

function trashh()
for i = 1,13 do
if findItem(dit[i]) > 0 then
sendPacket(2, "action|trash\n|itemID|" .. dit[i])
sleep(200)
sendPacket(2, "action|dialog_return\ndialog_name|trash_item\
nitemID|" .. dit[i] .. "|\ncount|"..findItem(dit[i]))
sleep(1000)
end
end
end

function buypck()
trashh()
collectSet(false, range)
 for i = 1,2 do
if findItem(112) >= hargapack then
sendPacket(2, "action|buy\nitem|"..packname)
sleep(200)
else
break
end
end
droppck()
end

function masukworld()
sendPacket(3, "action|join_request\nname|"..world.."\ninvitedWorld|0")
sleep(2000)
sendPacket(3, "action|join_request\nname|"..world.."|"..idworld.."\
ninvitedWorld|0")
sleep(3000)
end

function droppck()
for _, tile in pairs(getTiles()) do
if tile.bg == bgpack or tile.fg == bgpack then
findPath(tile.x,tile.y)
sleep(1000)
for i=1,totalitem do
if findItem(itmpck[i]) > 0 then
drop(itmpck[i])
sleep(2300)
end
end
move(-1,0)
sleep(1000)
for i=1,totalitem do
if findItem(itmpck[i]) > 0 then
drop(itmpck[i])
sleep(2300)
end
end
end
end
posisibreak()
end

masukworld()
sleep(1000)
posisibreak()

while autofarm == "on" do

if getBot().status == "Online" then
while getWorld().name ~= string.upper(world) do
sleep(1000)
end
bbreak()
buypck()
end
end