CreativePSofficial / CreativePSScripts

Only Trusted scripts!
82 stars 10 forks source link

Can help Decrypt this script #32

Open bagakibadi opened 1 year ago

bagakibadi commented 1 year ago

test.txt @badewen

Adi1Surya commented 1 year ago

Whay

Pada tanggal Kam, 7 Sep 2023 1.51 AM, bagakibadi @.***> menulis:

test.txt https://github.com/CreativePSofficial/CreativePSScripts/files/12540989/test.txt

— Reply to this email directly, view it on GitHub https://github.com/CreativePSofficial/CreativePSScripts/issues/32, or unsubscribe https://github.com/notifications/unsubscribe-auth/BCLAP2HK6NSRCC3SVD2NBCDXZCZYJANCNFSM6AAAAAA4NWPBYY . You are receiving this because you are subscribed to this thread.Message ID: @.***>

Freennzzy commented 1 year ago
treeid = 13903
world = "island"

EditToggle("ModFly", true)

if world == "island" then
ex = 199
ey = 193
elseif world == "normal" then
ex = 99
ey = 53
end

function path(x, y, state)
SendPacketRaw(false, {state = state,
px = x,
py = y,
x = x*32, 
y = y*32})
end

function h2(x, y, id)
SendPacketRaw(false,{type = 3,
value = id,
px = x,
py = y,
x = x*32,
y= y*32})
end

function getTree()
local count = 0
for y = ey, 0, -1 do
for x = 0, ex, 1 do
if GetTile(x, y).fg == 0 and (GetTile(x, y + 1).fg ~= 0 and GetTile(x, y + 1).fg % 2 == 0) then
count = count + 1
end
end
end
return count
end

function getReady()
local ready = 0
for y = ey, 0, -1 do
for x = 0, ex, 1 do
if GetTile(x, y).fg == treeid and GetTile(x, y).readyharvest then
ready = ready + 1
end
end
end
return ready
end

function harvest()
if getReady() > 0 then
for y = ey, 0, -1 do
for x = 0, ex, 1 do
if (GetTile(x, y).fg == treeid and GetTile(x, y).readyharvest) then
path(x, y, 16779296)
Sleep(300)
h2(x, y, 18)
Sleep(50)
end
end
end
end
end

function uws()
if getTree() == 0 then
Sleep(500) 
SendPacket(2, "action|dialog_return\ndialog_name|ultraworldspray") 
Sleep(2000) 
harvest() 
elseif getTree() ~= 0 then 
plant() 
Sleep(1000)
end
end

function plant()
if getReady() < 20000 then
for y = ey, 0, -1 do
for x = 0, ex, 10 do
if GetTile(x,y).fg == 0 and (GetTile(x,y+1).fg ~= 0 and GetTile(x,y+1).fg %2 == 0) then
path(x, y, 32)
Sleep(50)
h2(x, y, plantid)
Sleep(100)
end
end
for x = ex, 0, -1 do
if GetTile(x,y).fg == 0 and (GetTile(x,y+1).fg ~= 0 and GetTile(x,y+1).fg %2 == 0) then
path(x, y, 48)
Sleep(50)
h2(x, y, plantid)
Sleep(100)
end
end
end
end
uws()
end

for i = 5, 1, -1 do
LogToConsole([[`0Script Running In : ]]..i)
Sleep(1000)
end

for i = 1, 20 do
LogToConsole([[`0Dont Resell Script!!
Credit : ~ `2User404#5457]])
end

for i = 1, 4 do
SendPacket(2, [[action|input
|text|`0Dont Resell Script!! Credit : ~ `2User404#5457]])
Sleep(1000)
end

while true do
Sleep(200)
harvest()
Sleep(200)
plant()
end