--CREDIT : Discord = TWIXISTHEBEST

--REMOVE CREDIT/RESELL YTEAM

--BUY VERSI PREMIUM? JOIN DC CUMAN 3DL
--FITUR KEREN
--JOIN DISCORD : Disbaled for now

systemlog = "`7[`9Join Our discord`7]`o "

systemcmd = "`7[`9Join Our discord`7]`9 "

proxy = "\nadd_label_with_icon|big|`oSonic Proxy|left|32|"..

"\nadd_textbox|`4This Sonic Proxy|left|2440|"..
"\nadd_spacer|small|"..
"\nadd_label|small|`2All Features Helper:|left||"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`o/proxy `2 (Proxy List)|left|2480|"..
"\nadd_textbox|`o/wd `2- Drop World Lock|left|2480|"..
"\nadd_textbox|`o/dd `2- Drop Diamond Lock|left|2480|"..
"\nadd_textbox|`o/bd `2- Drop Blue Gem Lock|left|2480|"..
"\nadd_textbox|`o/daw `2- Drop All Lock|left|2480|"..
"\nadd_textbox|`o/lock `2- Show Amount Lock In Backpack|left|
2480|"..
"\nadd_spacer|smal|"..
"\nadd_quick_exit|"..
"\nend_dialog|end|Cancel|Okay|"

function wear(id)
pkt = {}
pkt.type = 10
pkt.value = id
SendPacketRaw(false, pkt)
end
----------------------------------------
-- End of Define Section
----------------------------------------

LogToConsole("`9Proxy Started")

----------------------------------------
-- Start The Proxy
----------------------------------------
function on_sendpacket(type, packet) -- send packet hook

function checkitm(id)
for _, inv in pairs(GetInventory()) do
if inv.id == id then
return inv.amount
end
end
return 0
end

-- Func Daw
function dl()
for _, v in pairs(GetInventory()) do
if v.id == 1796 then
SendPacket(2, "action|drop\n|itemID|1796");
log("`2Succes Dropped `0"..v.amount.." `2Diamond Lock")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|1796|\
ncount|"..v.amount);
end
end
end

function wl()
for _, v in pairs(GetInventory()) do
if v.id == 242 then
SendPacket(2, "action|drop\n|itemID|242");
log("`2Succes Dropped `0"..v.amount.." `2World Lock")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|242|\
ncount|"..v.amount);
end
end
end

function bgl()
for _, v in pairs(GetInventory()) do
if v.id == 7188 then
SendPacket(2, "action|drop\n|itemID|7188");
log("`2Succes Dropped `0"..v.amount.." `2Blue Gem Lock")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|7188|\
ncount|"..v.amount);
end
end
end

-- Dh ampe sini Doang

inputt = "action|input\n|text|"
function log(str)
LogToConsole(systemcmd .. str)
end

function command(str)
if packet:find(inputt .. str) then
LogToConsole("`6" .. str)
return true
end
end

----------------------------------------
-- Proxy Commands Nya
----------------------------------------
if command("/proxy") then
var = {}
var.v1 = "OnDialogRequest"
var.v2 = proxy
SendVariant (var);
LogToConsole("Hi See The Commands?")
return true
end

if command("/dd") then
txt = packet:gsub("action|input\n|text|/dd", "")
if txt == "" then
log("`2Write Amount")
else
SendPacket(2, "action|drop\n|itemID|1796")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|1796|\
ncount|"..txt)
log("`2Succes Drop`0"..txt.." `2Diamond Lock")
return true
end
end

if command("/wd") then
txt = packet:gsub("action|input\n|text|/wd", "")
if txt == "" then
log("`2Write Amount")
else
wl = tonumber(txt)
if checkitm(242) < wl then
wear(1796)
end
SendPacket(2, "action|drop\n|itemID|242")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|242|\
ncount|"..txt)
log("`2Succes Drop`0"..txt.." `2World Lock")
return true
end
end

if command("/bd") then
txt = packet:gsub("action|input\n|text|/bd", "")
if txt == "" then
log("`2Write Amount")
else
SendPacket(2, "action|drop\n|itemID|7188")
SendPacket(2, "action|dialog_return\ndialog_name|drop_item\nitemID|7188|\
ncount|"..txt)
log("`2Succes Drop`0"..txt.." `2Blue Gem Lock")
return true
end
end

if command("/daw") then
wl()
dl()
bgl()
return true
end
if command("/lock") then
function checkamount(id)
for _, inv in pairs(GetInventory()) do
if inv.id == id then
return inv.amount
end
end
return 0
end
log("Show ur Lock")
LogToConsole("`0Your World Locks`0 : " .. checkamount(FindItemID("World Lock")) ..
" `9World Lock`0,`1 " .. checkamount(FindItemID("Diamond Lock")) .. " `1Diamond
Lock`0, `c" .. checkamount(FindItemID("Blue Gem Lock")) .. " `cBGL")
end
----------------------------------------
-- End Of Proxy Commands Jangan Banyak Banyak
----------------------------------------
return false
end

----------------------------------------
-- Variant List
----------------------------------------
function variantlist(var)

if var.v1 == "OnDialogRequest" then

if var.v2:find("drop") and var.v2:find("242") then
return true
end
end

if var.v1 == "OnDialogRequest" then

if var.v2:find("drop") and var.v2:find("1796") then
return true
end
end

if var.v1 == "OnDialogRequest" then

if var.v2:find("drop") and var.v2:find("7188") then
return true
end
end

if var.v1 == "OnConsoleMessage" then

if var.v2:match("Collected `w(%d+) World Lock``") then
wear(242)
return true
end
end

if var.v1 == "OnTalkBubble" and var.v3:find("You need to be") then

return true
end

if var.v1 == "OnTalkBubble" and var.v3:find("spun the wheel and got") and

(var.v3:find("`2(%d+)``!") or var.v3:find("`4(%d+)``!") or
var.v3:find("`b(%d+)``!")) then
ToWeak = {}
ToWeak.v1 = "OnTalkBubble"
ToWeak.v2 = var.v2
ToWeak.v3 = "`w" .. var.v3
SendVariant(ToWeak)
return true
end

return false
end
----------------------------------------
-- End of Variant List
----------------------------------------

----------------------------------------
-- Add Hook for variant list, packet raw, and packet
----------------------------------------
AddHook (on_sendpacket, "OnSendPacket")
AddHook (variantlist, "OnVariant")
SendPacket(2, [=[
action|input
|text|`4Sonic Proxy]=])