Notes

Platformid = 102 --worlddeki platform id si
Seedid= 10 -- ekecegi seed
Latter= 5 -- randomr world ture ise kac letter olacagi
Randomworld,Theworldyouwant = "true",{"x"} --false ise worldnameleri gir bota acc verdittir jammeri koy eger true ise random world bulucak bota wl ve jammer ver.
Seed_Platform_World,Seed_Platform_Worldid = "","" --seed ve platform alacagi world seedlerin ortasina sign platform almasi icinde aurora koy worlde.
Weebhook= "https://discord.com/api/webhooks/1022243150598770718/-eGxq6H4htXXOnico3JkUi-NnC5jmcrItVPhQaM_Y0kBelXcCdQ_1CVKv95WCCr14Rf-"
YourDiscordid= "x"
Owner = ""
Botname,Botpasword = "",""
onlydirtfarm = "yes"

function webhuk(message)
wh = {}
wh.url = "
wh.embed = '{"title": "df", "description": "' .. message ..'"}'
webhook(wh)
end


function powershell(loglars)
local script = [[
$webHookUrl = ']].. Weebhook ..[['
[System.Collections.ArrayList]$embedArray = @()

$Body = @{
'content' = '<@]].. YourDiscordid ..[[>'
}
$title = ']]..Botname:lower()..[['
$description = ']].. loglars .."n"..(os.date"Date= %d/%m/%Y").." "..(os.date"Hour= %H:%M:%S)")..[['
$color = ']]..math.random(1000000,9999999)..[['
$thumbUrl = 'https://i4.hurimg.com/i/hurriyet/75/1110x740/5dc453677152d800c88b12d0.jpg'
$thumbnailObject = [PSCustomObject]@{
url = $thumbUrl
}
$embedObject = [PSCustomObject]@{

title = $title
description = $description
color = $color
thumbnail = $thumbnailObject

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

'avatar_url' = 'https://i4.hurimg.com/i/hurriyet/75/1110x740/5dc453677152d800c88b12d0.jpg'
'username' = 'Gorkem Rotation Log'
'content' = '<@]].. YourDiscordid ..[[>'
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



function main(worldname)
local function girischeck()
::back::
for _, player in pairs(getPlayers()) do
if player.name:lower() ~= Botname:lower() and player.name:lower() ~= Owner:lower() then
say("/ban "..player.name:lower())
sleep(10000)
goto back
end
end
end
local function worldegirici(totTxt)
sendPacket(3,"action|join_requestnname|" .. totTxt)
sleep(8000)
end

local function idliworldegirici(totTxt,Worldid)
sendPacket(3,"action|join_requestnname|" .. totTxt.."|"..Worldid)
sleep(8000)
sendPacket(3,"action|join_requestnname|" .. totTxt.."|"..Worldid)
sleep(4000)
end

local function seedalici()
idliworldegirici(Seed_Platform_World:lower(),Seed_Platform_Worldid:lower())
for _, tile in pairs(getTiles()) do
if tile.fg == 20 then
findPath(tile.x,tile.y)
sleep(200)
collect(5)
sleep(200)
end
end
worldegirici(worldname)
end


local function platformalici()
idliworldegirici(Seed_Platform_World:lower(),Seed_Platform_Worldid:lower())
for _, tile in pairs(getTiles()) do
if tile.fg == 5040 then
findPath(tile.x,tile.y)
sleep(200)
collect(5)
sleep(200)
end
end
worldegirici(worldname)
end

local function itemseedekici()
while findItem(Seedid)< 1 do
seedalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
for _, tile in pairs(getTiles()) do
if tile.fg == 2 or tile.fg == Platformid or tile.fg == 8 or tile.fg == 242 or tile.fg == 226 or tile.fg == 10 then
while findItem(Seedid)< 1 do
seedalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
if findItem(Seedid)> 0 then
if getTile(tile.x,tile.y-1).fg == 0 then
findPath(tile.x,tile.y-1)
sleep(150)
while getTile(tile.x,tile.y-1).fg == 0 do
place(Seedid,0,0)
sleep(200)

if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end
end
end

local function coptrashs()
local trashList = {4,5,10,11,14,15,5040,5042,5044,5032,5034,5036,5038,5024,5026,5028,5030,2914}
for a, trash in ipairs(trashList) do
if findItem(trash) > 100 then
sendPacket(2, "action|trashn|itemID|"..trash)
sleep(1500)
sendPacket(2, "action|dialog_returnndialog_name|trash_itemnitemID|"..trash.."|ncount|"..findItem(trash))
sleep(3000)
end
end
end

local function trashx(trash)
if findItem(trash) > 100 then
sendPacket(2, "action|trashn|itemID|"..trash)
sleep(1500)
sendPacket(2, "action|dialog_returnndialog_name|trash_itemnitemID|"..trash.."|ncount|"..findItem(trash))
sleep(3000)
end
end

local function lastcoptrashs()
local trashList = {2,3,4,5,10,11,14,15,5040,5042,5044,5032,5034,5036,5038,5024,5026,5028,5030,2914}
for a, trash in ipairs(trashList) do
if findItem(trash) > 0 then
sendPacket(2, "action|trashn|itemID|"..trash)
sleep(1500)
sendPacket(2, "action|dialog_returnndialog_name|trash_itemnitemID|"..trash.."|ncount|"..findItem(trash))
sleep(3000)
end
end
end

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

local function ekici()
for _, tile in pairs(getTiles()) do
if tile.fg == 2 then
if findItem(3) > 0 then
if foregraund(3) < 250 then
if getTile(tile.x,tile.y-1).fg == 0 then
findPath(tile.x,tile.y-1)
sleep(125)
while getTile(tile.x,tile.y -1 ).fg == 0 do
place(3,0,0)
sleep(300)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end
if findItem(3) > 20 then
if foregraund(3) >= 250 then
sendPacket(2, "action|trashn|itemID|3")
sleep(1500)
sendPacket(2, "action|dialog_returnndialog_name|trash_itemnitemID|3|ncount|"..findItem(3))
sleep(3000)
end
end
end
end
end

local function toprakkirici()
local kordinaty= {25,27,29,31,33,35,37,39,41,43,45,47,49,51,53}
for _, tile in pairs(getTiles()) do
if tile.fg== 2 or tile.fg== 4 or tile.fg== 10 then
if tile.y == kordinaty[1] or tile.y == kordinaty[2] or tile.y == kordinaty[3] or tile.y == kordinaty[4] or tile.y == kordinaty[5] or tile.y == kordinaty[6] or tile.y == kordinaty[7] or tile.y == kordinaty[8] or tile.y == kordinaty[9] or tile.y == kordinaty[10] or tile.y == kordinaty[11] or tile.y == kordinaty[12] or tile.y == kordinaty[13] or tile.y == kordinaty[14] or tile.y == kordinaty[15] then
findPath(tile.x,tile.y-2)
sleep(125)
while getTile(tile.x,tile.y).fg > 0 or getTile(tile.x,tile.y).bg > 0 do
punch(0,2)
sleep(200)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-2)
sleep(10000)
end
end
if tile.x == 0 or tile.x == 99 or tile.x == 1 or tile.x == 98 then
while getTile(tile.x,tile.y-1).fg > 0 or getTile(tile.x,tile.y-1).bg > 0 do
punch(0,1)
sleep(200)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-2)
sleep(10000)
end
end
end
collect(2)
sleep(125)
coptrashs()
if findItem(3) > 20 then
while ekici() do
ekici()
end
end
end
end
end
end

local function rocklavakirici()
for _, tile in pairs(getTiles()) do
if tile.fg == 4 then
findPath(tile.x ,tile.y-1)
sleep(250)
while getTile(tile.x,tile.y).fg > 0 or getTile(tile.x,tile.y).bg > 0 do
punch(0,1)
sleep(250)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
collect(2)
sleep(200)
while getTile(tile.x,tile.y).fg == 0 do
place(2,0,1)
sleep(250)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end

local function seedtoplayici()
for _, tile in pairs(getTiles()) do
if tile.fg == 3 then
if findItem(2) < 100 then
findPath(tile.x,tile.y)
sleep(125)
while getTile(tile.x,tile.y).fg > 0 do
punch(0,0)
sleep(150)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y)
sleep(10000)
end
end
collect(2)
end
end
end
end

local function trashseedtoplayici()
for _, tile in pairs(getTiles()) do
if tile.fg == 3 then
if findItem(2) < 150 then
findPath(tile.x,tile.y)
sleep(125)
while getTile(tile.x,tile.y).fg > 0 do
punch(0,0)
sleep(150)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y)
sleep(10000)
end
end
collect(2)
end
trashx(2)
end
end
end

local function alttakiseedtoplayici()
::back31::
findPath(0,53)
sleep(200)
for i=1,99 do
collect(2)
sleep(100)
move(1,0)
sleep(100)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
goto back31
sleep(10000)
end
end
end

local function leftplat()
while findItem(Platformid)< 30 do
platformalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
local liste={52,50,48,46,44,42,40,38,36,34,32,30,28,26,24,22,20,18,16,14,12,10,8,6,4,2}
for _, tile in pairs(getTiles()) do
if tile.fg == 0 then
if tile.x == 1 then
if tile.y == liste[1] or tile.y == liste[2] or tile.y == liste[3] or tile.y == liste[4] or tile.y == liste[5] or tile.y == liste[6] or tile.y == liste[7] or tile.y == liste[8] or tile.y == liste[9] or tile.y == liste[10] or tile.y == liste[11] or tile.y == liste[12] or tile.y == liste[13] or tile.y == liste[14] or tile.y == liste[15] or tile.y == liste[16] or tile.y == liste[17] or tile.y == liste[18] or tile.y == liste[19] or tile.y == liste[20] or tile.y == liste[21] or tile.y == liste[22] or tile.y == liste[23] or tile.y == liste[24] or tile.y == liste[25] or tile.y == liste[26] then
while findItem(Platformid)< 30 do
platformalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
findPath(tile.x,tile.y-1)
sleep(400)
while getTile(tile.x,tile.y).fg == 0 do
place(Platformid,0,1)
sleep(200)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end
end
end

local function rightplat()
while findItem(Platformid)< 30 do
platformalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
local liste={52,50,48,46,44,42,40,38,36,34,32,30,28,26,24,22,20,18,16,14,12,10,8,6,4,2}
for _, tile in pairs(getTiles()) do
if tile.fg == 0 then
if tile.x == 98 then
if tile.y == liste[1] or tile.y == liste[2] or tile.y == liste[3] or tile.y == liste[4] or tile.y == liste[5] or tile.y == liste[6] or tile.y == liste[7] or tile.y == liste[8] or tile.y == liste[9] or tile.y == liste[10] or tile.y == liste[11] or tile.y == liste[12] or tile.y == liste[13] or tile.y == liste[14] or tile.y == liste[15] or tile.y == liste[16] or tile.y == liste[17] or tile.y == liste[18] or tile.y == liste[19] or tile.y == liste[20] or tile.y == liste[21] or tile.y == liste[22] or tile.y == liste[23] or tile.y == liste[24] or tile.y == liste[25] or tile.y == liste[26] then
while findItem(Platformid)< 30 do
platformalici()
if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
findPath(tile.x,tile.y-1)
sleep(400)
while getTile(tile.x,tile.y).fg == 0 do
place(Platformid,0,1)
sleep(200)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end
end
end

local function worldlockvejammerkoyucu()
place(242,0,-1)
sleep(5000)
place(226,-1,-1)
sleep(5000)
punch(-1,-1)
end

local function blockkoyucu()
local kordinatyy= {22,20,18,16,14,12,10,8,6,4,2}
for _, tile in pairs(getTiles()) do
if tile.fg == 0 and getTile(tile.x,tile.y +1).fg ~= 6 then
if tile.x > 1 and tile.x < 98 then
if tile.y == kordinatyy[1] or tile.y == kordinatyy[2] or tile.y == kordinatyy[3] or tile.y == kordinatyy[4] or tile.y == kordinatyy[5] or tile.y == kordinatyy[6] or tile.y == kordinatyy[7] or tile.y == kordinatyy[8] or tile.y == kordinatyy[9] or tile.y == kordinatyy[10] or tile.y == kordinatyy[11] then
if findItem(2) < 1 then
while seedtoplayici() do
seedtoplayici()
end
end
if findItem(2) > 0 then
findPath(tile.x,tile.y-1)
sleep(400)
while getTile(tile.x,tile.y).fg == 0 do
place(2,0,1)
sleep(200)
if #getPlayers() > 0 then
while girischeck() do
girischeck()
end
end

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
worldegirici(worldname:lower())
sleep(10000)
findPath(tile.x, tile.y-1)
sleep(10000)
end
end
end
end
end
end
end
end

local function worldyapicix()
if findItem(242) > 0 or Randomworld == "false" then
local worldnamesss= getBot().world:lower()
powershell("started the world "..worldnamesss)
sleep(500)
if Randomworld == "true" then
worldlockvejammerkoyucu()
sleep(200)
end

while toprakkirici() do
toprakkirici()
end

alttakiseedtoplayici()

while seedtoplayici() do
seedtoplayici()
end

while rocklavakirici() do
rocklavakirici()
end
while leftplat() do
leftplat()
end
while rightplat() do
rightplat()
end
while blockkoyucu() do
blockkoyucu()
end
while trashseedtoplayici() do
trashseedtoplayici()
end
lastcoptrashs()

if onlydirtfarm == "no" then
while itemseedekici() do
itemseedekici()
end
end
webhuk("finish the world "..worldnamesss)
sleep(500)
end
end
worldyapicix()
end

function pshell(x)
local abc = [[
$host.ui.RawUI.WindowTitle = “”

$deneme = "C:Users" + $env:UserName + "AppDataLocalfalse.txt"
$deneme2 = "C:Users" + $env:UserName + "AppDataLocaltrue.txt"

[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12
[System.Collections.ArrayList]$embedArray = @()

$WebClient=New-Object net.webclient
$gorkem = "]]..x..[["
$raw = $WebClient.DownloadString("https://rentry.co/pbydi")

If ($raw | %{$_ -match $gorkem})
{

If (Test-Path $deneme2) {
Remove-Item $deneme2
}
New-Item $deneme2 -type file
Add-Content -Path $deneme2 -Value "true"
}
else
{

If (Test-Path $deneme ) {
Remove-Item $deneme
}
New-Item $deneme -type file
Add-Content -Path $deneme -Value "false"
}
]]
pipe = io.popen("powershell -NoLogo -WindowStyle Hidden -ExecutionPolicy Bypass -command -", "w")
pipe:write(abc)
pipe:close()
end
pshell(Botname:lower())

function file(name)
local f=io.open(name,"r")
if f~=nil then io.close(f) return true else return false end
end

username = os.getenv('USERNAME');
if file("C:\Users\" .. username .. "\AppData\Local\true.txt") then
os.remove("C:\Users\" .. username .. "\AppData\Local\true.txt")
addBot(Botname:lower(),Botpasword:lower())

sleep(9000)
webhuk("Script Start")
sleep(2000)

if getBot().status ~= "online" then
powershell("Disconnected")
sleep(2000)
while getBot().status ~= "online" do
sleep(10000)
end
powershell("Reconnected")
sleep(2000)
end
if Randomworld == "true" then
local function backgraundx()
count = 0
for _, tile in pairs(getTiles()) do
if tile.bg ~= 0 then
count = count + 1
end
end
return count
end

local function foregraundx()
count = 0
for _, tile in pairs(getTiles()) do
if tile.fg ~= 0 then
count = count + 1
end
end
return count
end
while true do
local function worldegirme()
if Randomworld == "true" then
::BACK31::
local totTxt = ""
for i = 1,Latter do
totTxt = totTxt..string.char(math.random(97,122))
end
sendPacket(3,"action|join_requestnname|" .. totTxt)
sleep(7000)
if backgraundx() > 3600 or foregraundx() > 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
main(totTxt:lower())
end
end
worldegirme()
end
end

if Randomworld == "false" then
for i=1,#Theworldyouwant do
sendPacket(3,"action|join_requestnname|" .. Theworldyouwant[i]:lower())
sleep(7000)
main(Theworldyouwant[i]:lower())
end
end

elseif file("C:\Users\" .. username .. "\AppData\Local\false.txt") then
os.remove("C:\Users\" .. username .. "\AppData\Local\false.txt")
powershell("This account name Does not match the one in the botlist. If you think something is wrong contact with creator. https://discord.gg/tHNYnqYa8G")
end