systemlog = "`7[`9HelperCps`7]`o "

systemcmd = "`7[`9HelperCps`7]`9 "

local Tax = 5
data = {}
local amountbuy = 0
local flymod = false
local tpmod = false
local autopull = false
local fastwheel = true
local autocbgl = false
local checkgems = false
local checkgems1 = false
local banpocket = false
local blocksdb = false
local buyvend = false
Gems = 0
count = 0
OIDList = {}
jumlah = 0

function DropItem(id, count)

SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|"..id.."|\
nitem_count|"..count)
end

function skip(x, y)
if [Link](GetLocal().posX // 32 - x) > 11 or [Link](GetLocal().posY // 32 - y)
> 10 then
return nil
end
if GetTiles(x, y).collidable then
return nil
end
local Z = 0
if not GetTiles(x + 1, y).collidable then
Z = 0
elseif not GetTiles(x - 1, y).collidable then
Z = -2
else
return nil
end
SendPacketRaw(false, { type = 0, x = (x + Z) * 32, y = (y-0)* 32, state = (Z == 1
and 48 or 32) })
end

function Data()
Amount = 0
for _, list in pairs(data) do
Name = ""
if [Link] == 7188 then
Name = "Blue Gem Lock"
Amount = Amount + [Link] * 10000
elseif [Link] == 1796 then
Name = "Diamond Lock"
Amount = Amount + [Link] * 100
elseif [Link] == 242 then
Name = "World Lock"
Amount = Amount + [Link]
end
SendVariant({v0="OnTalkBubble", v1=GetLocal().netID, v2="Collected
`9"..[Link].." "..Name})
end
data = {}
end

function ont(str)
s = {}
s.v0 = "OnTalkBubble"
s.v1 = GetLocal().netID
s.v2 = str
SendVariant(s)
end

function wear(id)
pkt = {}
[Link] = 10
[Link] = id
SendPacketRaw(false, pkt)
end

function GetGemsAmount(oid)
for _, __ in pairs(GetObjectList()) do
if __.itemid == 112 and __.id == oid then
return __.amount
end
end
return 0
end

function get(val)
for _, player in pairs(GetPlayerList()) do
if [Link] == val then
return [Link]
end
end
end

function checkamount(id)
for _, inv in pairs(GetInventory()) do
if [Link] == id then
return [Link]
end
end
return 0
end

function overlay(str)
var = {}
var.v0 = "OnTextOverlay"
var.v1 = str
SendVariant(var)
end

function date()
dialog = [[
add_label_with_icon|big|`7Calender|left|12786|
add_smalltext|`oHello, ]]..name..[[|
add_spacer|small||
add_textbox|`9Hari`0: ]]..hari..[[||
add_textbox|`9Tanggal`0: ]]..tanggal..[[||
add_textbox|`9Jam`0: ]]..[Link]("%H:%M")..[[||
add_spacer|small||
end_dialog|mek|Cancel|OK|
add_spacer|small||
]]
var = {}
var.v0 = "OnDialogRequest"
var.v1 = dialog
SendVariant(var)
end

function collect()
tiles = {
{posx1, posy1},
{posx2, posy2}
}
for _, obj in pairs(GetObjectList()) do
for _, tiles in pairs(tiles) do
if ([Link])//32 == tiles[1] and ([Link])//32 == tiles[2] then
local pkt = {}
[Link] = 11
[Link] = [Link]
pkt.x = [Link]
pkt.y = [Link]
SendPacketRaw(false, pkt)
[Link](data, {id=[Link], count=[Link]})
end
end
end
Data()
end

tile = {
pos1 = {
{x = xgem1, y = ygem1}, {x = xgem1, y = ygem2}, {x = xgem1, y = ygem3}, {x = xgem2,
y = ygem1}, {x = xgem3, y = ygem1}
},
pos2 = {
{x = xgemm1, y = ygemm1}, {x = xgemm1, y = ygemm2}, {x = xgemm1, y = ygemm3}, {x =
xgemm2, y = ygemm1}, {x = xgemm3, y = ygemm1}
}
}

Count = 0
data = {}
function collectgem()
for _, obj in pairs(GetObjectList()) do
for _, tiles in pairs(tile.pos1) do
if [Link] == 112 and ([Link])//32 == tiles.x and ([Link])//32 == tiles.y
then
Count = Count + [Link]
local pkt = {}
[Link] = 11
[Link] = [Link]
pkt.x = [Link]
pkt.y = [Link]
SendPacketRaw(false, pkt)
end
end
end
[Link](data, Count)
Count = 0
for _, obj in pairs(GetObjectList()) do
for _, tiles in pairs(tile.pos2) do
if [Link] == 112 and ([Link])//32 == tiles.x and ([Link])//32 == tiles.y
then
local pkt = {}
[Link] = 11
[Link] = [Link]
pkt.x = [Link]
pkt.y = [Link]
SendPacketRaw(false, pkt)
Count = Count + [Link]
end
end
end
[Link](data, Count)
Count = 0
if data[1] > data[2] then
SendPacket(2, "action|input\n|text|`0LEFT [`2Win !`0] : `2"..data[1].."`0, RIGHT
[`4Nub Lose !`0] : `4"..data[2])
elseif data[1] == data[2] then
SendPacket(2, "action|input\n|text| `0LEFT : `9"..data[1].."`0 [`2Tie`0] RIGHT :
`9"..data[2])
else
SendPacket(2, "action|input\n|text|`0LEFT 1 [`4Nub Lose !`0] : `4"..data[1].."`0,
RIGHT [`2Win !`0] : `2"..data[2])
end
data = {}
end

function Packet(type, packet)

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

if packet:find("/sg") then
collectgem()
return true
end

if command ("/gem1") then

LogToConsole("`9Command : /gem1")
xgem1 = GetLocal().posX//32
ygem1 = GetLocal().posY//32
xgem2 = xgem1 - 1
xgem3 = xgem1 - 2
ygem2 = ygem1 + 1
ygem3 = ygem1 + 2
tile = {
pos1 = {
{x = xgem1, y = ygem1}, {x = xgem1, y = ygem2}, {x = xgem1, y = ygem3}, {x = xgem2,
y = ygem1}, {x = xgem3, y = ygem1}
},
pos2 = {
{x = xgemm1, y = ygemm1}, {x = xgemm1, y = ygemm2}, {x = xgemm1, y = ygemm3}, {x =
xgemm2, y = ygemm1}, {x = xgemm3, y = ygemm1}
}
}
return true
end

if command ("/gem2") then

LogToConsole("`9Command : /gem2")
xgemm1 = GetLocal().posX//32
ygemm1 = GetLocal().posY//32
xgemm2 = xgemm1 + 1
xgemm3 = xgemm1 + 2
ygemm2 = ygemm1 + 1
ygemm3 = ygemm1 + 2
tile = {
pos1 = {
{x = xgem1, y = ygem1}, {x = xgem1, y = ygem2}, {x = xgem1, y = ygem3}, {x = xgem2,
y = ygem1}, {x = xgem3, y = ygem1}
},
pos2 = {
{x = xgemm1, y = ygemm1}, {x = xgemm1, y = ygemm2}, {x = xgemm1, y = ygemm3}, {x =
xgemm2, y = ygemm1}, {x = xgemm3, y = ygemm1}
}
}
return true
end

if packet:find("/pos1") then
LogToConsole("`9Command : /pos1")
posx1 = GetLocal().posX//32
posy1 = GetLocal().posY//32
return true

elseif packet:find("/pos2") then

LogToConsole("`9Command : /pos2")
posx2 = GetLocal().posX//32
posy2 = GetLocal().posY//32
return true
end
-- Command

if packet:find("friends") then
-- ini tempat sc
proxydialog = "\nadd_label_with_icon|big|`wHelper Creative PS|left|9472|"..
"\nadd_spacer|small|"..
"\nadd_label_with_icon|small|`wHello : `2"..GetLocal().name.."|left|
13706|"..
 "\nadd_label_with_icon|small|`wYour Position : `0[`6X : "..
GetLocal().posX//32 .."`0,`#Y : ".. GetLocal().posY//32 .."`0]|left|3802|"..
"\nadd_label_with_icon|small|`wTax : `0[`6".. Tax .."%`0]|left|4430|"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|festurelist|`wFeature|staticBlueFrame|7340||"..
"\nadd_button_with_icon|cheatmenu|`wCheat Menu|staticBlueFrame|
5956||"..
"\nadd_button_with_icon|sport|`wSocial|staticBlueFrame|12436||"..
"\nadd_button_with_icon|info|`wInformation|staticBlueFrame|5016||"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nadd_spacer|small|"..
"\nend_dialog|menug|Cancel|Okay|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = proxydialog
SendVariant (var);
log("Helper Menu")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("action|dialog_return\ndialog_name|menug\nbuttonClicked|cheatmenu")
then
cheat = "\nadd_label_with_icon|big|`wCheat Menu|left|5956|"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|modfly|`wMod fly|staticBlueFrame|362||"..
"\nadd_button_with_icon|tele|`wTeleport|staticBlueFrame|32||"..
"\nadd_button_with_icon|autopull|`wAuto Pull|staticBlueFrame|1400||"..
"\nadd_button_with_icon|banpocket|`wBan Pocket|staticBlueFrame|
3062||"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nadd_spacer|small|"..
"\nend_dialog|cheat1|Cancel|Next|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = cheat
SendVariant (var);
log("Cheat Menu")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

-- Setup Vend Mode

if packet:find("buttonClicked|fastvend") then
if buyvend == false then
enablevend = "`4Disable"
vendd = [[
add_label_with_icon|big|`7Vend Shortcut|left|9268|
add_spacer|small|
add_label_with_icon|small|`7Buy fast set to `6[`7]]..amountbuy..[[`6]|left|1430|
add_spacer|small||
add_button|setupvend|]]..enablevend..[[|
add_smalltext|`7Using `3/vset (amount) For set Fast Shortcut Vend|
end_dialog|hsd|Close||
]]
h = {}
h.v0 = "OnDialogRequest"
h.v1 = vendd
SendVariant(h)
buyvend = true
else
enablevend = "`2Enable"
vendd = [[
add_label_with_icon|big|`7Vend Shortcut|left|9268|
add_spacer|small|
add_label_with_icon|small|`7Buy fast set to `6[`7]]..amountbuy..[[`6]|left|1430|
add_spacer|small||
add_button|setupvend|]]..enablevend..[[|
add_smalltext|`7Using `3/vset (amount) For set Fast Shortcut Vend|
end_dialog|hsd|Close||
]]
h = {}
h.v0 = "OnDialogRequest"
h.v1 = vendd
SendVariant(h)
buyvend = false
return true
end
end
if packet:find("/vset (%d+)") then
if buyvend == true then
setbuy = packet:match("/vset (%d+)")
amountbuy = setbuy
log("Auto buy "..amountbuy.." On Vending!")
overlay("Auto buy "..amountbuy.." On Vending!")
return true
else
vendd = [[
add_label_with_icon|big|`7Vend Shortcut|left|9268|
add_spacer|small|
add_label_with_icon|small|`7Buy fast set to `6[`7]]..amountbuy..[[`6]|left|1430|
add_spacer|small||
add_button|setupvend|]]..enablevend..[[|
add_smalltext|`7Using `3/vset (amount) For set Fast Shortcut Vend|
end_dialog|hsd|Close||
]]
h = {}
h.v0 = "OnDialogRequest"
h.v1 = vendd
SendVariant(h)
log("Enable Fast Vend First")
overlay("Enable Buy Vend First")
return true
end
end

if packet:find("buttonClicked|tele") then
if tpmod == false then
tpmod = true
EditToggle("PathFinder", true)
overlay("`2Teleport Enabled")
else
tpmod = false
EditToggle("PathFinder", false)
overlay("`4Teleport Disabled")
end
return true
end

if packet:find("buttonClicked|modfly") then
if flymod == false then
flymod = true
EditToggle("ModFly", true)
overlay("`2Mod Fly Enabled")
else
flymod = false
EditToggle("ModFly", false)
overlay("`4Mod Fly Disabled")
end
return true
end

if packet:find("buttonClicked|autopull") then
if autopull == false then
autopull = true
EditToggle("Auto Pull When Join", true)
overlay("`2Auto Pull Enabled")
else
autopull = false
EditToggle("Auto Pull When Join", false)
overlay("`4Auto Pull Disabled")
end
return true
end

if packet:find("buttonClicked|banpocket") then
if banpocket == false then
banpocket = true
overlay("`2Auto Ban Pocket Enabled")
else
banpocket = false
overlay("`4Auto Ban Pocket Disabled")
end
return true
end

if packet:find("buttonClicked|blocksdb") then
if blocksdb == false then
blocksdb = true
overlay("`2Block Sdb Mode Enabled")
else
blocksdb = false
overlay("`4Block Sdb Mode Disabled")
end
return true
end

if packet:find("action|dialog_return\ndialog_name|menug\nbuttonClicked|
festurelist") then
feature = "\nadd_label_with_icon|big|`wFeature Helper|left|7340|"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|command|`wAll Command|staticBlueFrame|394||"..
"\nadd_button_with_icon|fastacc|`wFast Acc|staticBlueFrame|242||"..
 "\nadd_button_with_icon|fastvend|`wFast Buy Vend|staticBlueFrame|
2978||"..
"\nadd_button_with_icon|cbgl|`wC Bgl Mode|staticBlueFrame|7188||"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|blocksdb|`wBlock Sdb|staticBlueFrame|2480||"..
"\nadd_button_with_icon|checkgems|`wCheck Gems|staticBlueFrame|112||"..
"\nadd_button_with_icon|skino|`wSkin Option|staticBlueFrame|3774||"..
"\nadd_button_with_icon|wrencho|`wWrench Option|staticBlueFrame|32||"..
"\nadd_spacer|small|"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nend_dialog|feature|Cancel|Next|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = feature
SendVariant (var);
log("Feature List")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("buttonClicked|command") then
command = "\nadd_label_with_icon|big|`oHelper Cps|left|7188|"..
"\nadd_image_button|banner|interface/large/news_bannerrttex|
bannerlayout|||"..
"\nadd_textbox|`6Hi: " ..GetLocal().name.. "|left|2480|"..
"\nadd_textbox|`9Thank You For Purchase This Script|left|2440|"..
"\nadd_spacer|small|"..
"\nadd_label_with_icon|small|`2All Features :|left|5956|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`2Hoster Command :|left|2480|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`o/stax `2- Set Your Tax|left|2480|"..
"\nadd_textbox|`o/pos1 `2- Set Pos Player 1|left|2480|"..
"\nadd_textbox|`o/pos2 `2- Set Pos Player 2|left|2480|"..
"\nadd_textbox|`o/take `2- Take Lock In Display|left|2480|"..
"\nadd_textbox|`o/win1 `2- Drop To Player 1|left|2480|"..
"\nadd_textbox|`o/win2 `2- Drop To Player 2|left|2480|"..
"\nadd_textbox|`o/gem1 `2- Set Auto Count Gems P1|left|2480|"..
"\nadd_textbox|`o/gem2 `2- Set Auto Count Gems P2|left|2480|"..
"\nadd_textbox|`o/sg `2- Take Gems And Show Count|left|2480|"..
"\nadd_textbox|`o/cd `2- Custom Drop Lock|left|2480|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`2Drop Lock :|left|2480|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`o/w `2- Drop Wls|left|2480|"..
"\nadd_textbox|`o/wall `2- Drop All Wls In Your Backpack|left|
2480|"..
"\nadd_textbox|`o/d `2- Drop Dls|left|2480|"..
"\nadd_textbox|`o/dall `2- Drop All Dls In Your Backpack|left|
2480|"..
"\nadd_textbox|`o/b `2- Drop Bgl|left|2480|"..
"\nadd_textbox|`o/ball `2- Drop All Bgl In Your Backpack|left|
2480|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`2Many Command :|left|2480|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`o/lock `2- Show Lock|left|2480|"..
"\nadd_textbox|`o/buymega `2- Buy Megaphone In Tele|left|2480|"..
 "\nadd_textbox|`o/relog `2- Relog Game|left|2480|"..
"\nadd_textbox|`o/depo `2- Depo Bgl Bank|left|2480|"..
"\nadd_textbox|`o/wd `2- Wd Bgl Bank|left|2480|"..
"\nadd_spacer|smal|"..
"\nadd_quick_exit|"..
"\nend_dialog|end|Cancel|Okay|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = command
SendVariant (var);
log("Command List")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("buttonClicked|checkgems") then
if checkgems == false and checkgems1 == false then
checkgems = true
checkgems1 = true
overlay("`2Check Gems Mode Enabled")
else
checkgems = false checkgems1 = false
overlay("`4Check Gems Mode Disabled")
end
return true
end

if packet:find("action|dialog_return\ndialog_name|feature\nbuttonClicked|skino")
then
skindialog = "\nadd_label_with_icon|big|`oSkin Character Option|left|32|"..
"\nadd_image_button|banner|interface/large/news_bannerrttex|
bannerlayout|||"..
"\nadd_spacer|smal|"..
"\nadd_button|shitam|`bSkin Hitam|NOFLAGS|0|"..
"\nadd_spacer|small|"..
"\nadd_button|scream|`oSkin Cream|NOFLAGS|0|"..
"\nadd_spacer|small|"..
"\nadd_button|sputih|`0Skin Putih|NOFLAGS|0|"..
"\nadd_spacer|small|"..
"\nadd_button|blinkon|`2Enable Blink Color|NOFLAGS|0|"..
"\nadd_spacer|small|"..
"\nadd_button|blinkoff|`4Disable Blink Color|NOFLAGS|0|"..
"\nadd_spacer|smal|"..
"\nadd_textbox|`#CHANGE YOUR SKIN COLOR IN HERE|left|2480|"..
"\nend_dialog|sk|Cancel|Okay|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = skindialog
SendVariant (var);
log("Skin Option")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("action|dialog_return\ndialog_name|feature\nbuttonClicked|wrencho")
then
wrenchop = "\nadd_label_with_icon|big|`5Wrench Option|left|11816|"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|wpull|`wWrench Pull|staticBlueFrame|274||"..
 "\nadd_button_with_icon|wkick|`wWrench Kick|staticBlueFrame|276||"..
"\nadd_button_with_icon|wban|`wWrench Ban|staticBlueFrame|732||"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nadd_spacer|small|"..
"\nend_dialog|wh|Ok|"
wm = {}
wm.v0 = "OnDialogRequest"
wm.v1 = wrenchop
SendVariant (wm);
log("Wrench Option")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("action|dialog_return\ndialog_name|menug\nbuttonClicked|sport") then
socialport = [[
default_color|`o

add_label_with_icon|big|`wSocial Portal|Left|1366|
add_spacer_small|
add_button|friendlist|`wShow Friends|noflags|0|0|
add_button|recipebook|`wShow Recipes|noflags|0|0|
add_button|games|`wShow Minigames|0|0|
add_button|leaderboard|`wShow Leaderboard|noflags|0|0|
add_button|guild|`wShow Guild|noflags|0|0|
add_button|bgls|`eBGL Bank|noflags|0|0||
add_button|bgems|`bBlack Gem Bank|noflags|0|0||
add_quick_exit|
end_dialog|social|OK||
]]
var = {}
var.v0 = "OnDialogRequest"
var.v1 = socialport
SendVariant (var);
log("Social")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("action|dialog_return\ndialog_name|menug\nbuttonClicked|info") then
info = "\nadd_label_with_icon|big|`wInformartion|left|5016|"..
"\nadd_spacer|small|"..
"\ntext_scaling_string|asdasdasdsaas|"..
"\nadd_button_with_icon|change|`wChangelogs|staticBlueFrame|6292||"..
"\nadd_button_with_icon|credit|`wCredit|staticBlueFrame|13702||"..
"\nadd_button_with_icon|sosmed|`wSocial Media|staticBlueFrame|2376||"..
"\nadd_button_with_icon|calender|`wCalender|staticBlueFrame|11472||"..
"\nadd_button_with_icon||END_LIST|noflags|0||"..
"\nadd_spacer|small|"..
"\nend_dialog|infolist|Cancel|Okay|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = info
SendVariant (var);
log("Information")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("buttonClicked|change") then
changelog = [[
add_label_with_icon|big|`cHelper Creative Ps|left|]] .. 5956 ..[[|
add_spacer|small|
add_label_with_icon|small|`9Hello Thanks For Purchase My
Script ]]..GetLocal().name..[[|left|7786|
add_smalltext|`9This Is The Best Our Project Maked|
add_spacer|small|
add_label_with_icon|small|`cThis Change Logs & New Update Today|left|3524|
add_smalltext|[+] AUTO TAX|
add_smalltext|[+] /cd CUSTOM DROP ( CAN DROP 2 LOCK )|
add_smalltext|[+] BUY MEGA USE /buymega|
add_smalltext|[/] EASY CRASH BECAUSE LONG TERM USAGE|
add_smalltext|[-] REMOVE LOG SPIN|
add_smalltext|[-] REMOVE HISTORY DROP|
add_smalltext|[+] FAST ACC WORLD|
add_smalltext|[+] FAST BUY VEND|
add_smalltext|[/] SORY FOR BUG & CRASH|
add_spacer|small|
add_quick_exit||
]]
s = {}
s.v0 = "OnDialogRequest"
s.v1 = changelog
SendVariant(s)
return true
end

if packet:find("buttonClicked|credit") then
founders = [[
add_label_with_icon|big|`0Credit This Script|left|5956|
add_textbox|`0--------------------------------------------------|
add_label_with_icon|small|`0Big Thanks To : |left|13224|
add_spacer|small||
add_label|small|`^Razu|left|
add_label|small|`^User404|left|
add_label|small|`^Yasugami|left|
add_label|small|`^Devil|left|
add_label|small|`^Arr / Rimuru|left|
add_label|small|`^Rakha|left|

add_textbox|`0--------------------------------------------------|
add_spacer|small|
add_button|backinfo|`0Back
add_quick_exit||
]]
pre = {}
pre.v0 = "OnDialogRequest"
pre.v1 = founders
SendVariant(pre)
ontext("`4Founder`w Info")
return true
end

if packet:find("buttonClicked|calender") then
hari = [Link]("%A")
if hari == "Sunday" then
hari = "Minggu"
end
if hari == "Monday" then
hari = "Senin"
end
if hari == "Tuesday" then
hari = "Selasa"
end
if hari == "Wednesday" then
hari = "Rabu"
end
if hari == "Thursday" then
hari = "Kamis"
end
if hari == "Friday" then
hari = "Jumat"
end
if hari == "Saturday" then
hari = "Sabtu"
end
tanggal = [Link]("%d %B, %Y")
calend = [[
add_label_with_icon|big|`7Calender|left|12786|
add_smalltext|`oHello, ]]..GetLocal().name..[[|
add_spacer|small||
add_textbox|`9Hari`0: ]]..hari..[[||
add_textbox|`9Tanggal`0: ]]..tanggal..[[||
add_textbox|`9Jam`0: ]]..[Link]("%H:%M")..[[||
add_spacer|small||
end_dialog|mek|Cancel|OK|
add_spacer|small||
]]
var = {}
var.v0 = "OnDialogRequest"
var.v1 = calend
SendVariant(var)
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("buttonClicked|sosmed") then
medsos = "\nadd_label_with_icon|big|`oMedia Sosial|left|656|"..
"\nadd_image_button|banner|interface/large/news_bannerrttex|
bannerlayout|||"..
"\nadd_spacer|smal|"..
"\nadd_url_button||`4 Youtube|NOFLAGS|[Link]
0|0|"..
"\nadd_url_button||`c Discord : |NOFLAGS|[Link]
0|0|"..
"\nadd_url_button||COMING SOON"..
"\nadd_spacer|smal|"..
"\nend_dialog||Cancel|Okay|"
var = {}
var.v0 = "OnDialogRequest"
var.v1 = medsos
SendVariant (var);
log("Sosial Media")
return true -- return client (untuk menghilangkan log undefinied command)
end -- akhir dari command

if packet:find("buttonClicked|cbgl") then
if autocbgl == false then
autocbgl = true
overlay("`2Change Bgl Mode Enabled")
else
 autocbgl = false
overlay("`4Change Bgl Mode Disabled")
end
return true
end

-- Deposit BGls
if packet:find("/depo (%d+)") then
amount = packet:match("/depo (%d+)")
SendPacket(2,"action|dialog_return\ndialog_name|bank_deposit\
nbgl_count|"..amount)
ontext("Deposit `3"..amount.." Bgls")
return true
end
if packet:find("/wd (%d+)") then
amount = packet:match("/wd (%d+)")
SendPacket(2,"action|dialog_return\ndialog_name|bank_withdraw\
nbgl_count|"..amount)
ontext("Withdraw "..amount.." Bgls")
return true
end

if packet:find("/buymega") then
for _, tile in pairs(GetTiles()) do
if [Link] == 3898 then
SendPacket(2,"action|dialog_return\ndialog_name|telephone\nnum|
53785|\nx|"..tile.x.."|\ny|"..tile.y.."|\nbuttonClicked|megaconvert")
return true
end
end
end

-- Setup Tax For Many function

if packet:find("/stax (%d+)") then
Tax = packet:match("/stax (%d+)")
overlay("Tax Set To : `3"..Tax)
return true
end

if packet:find("/buymega") then
for _, tile in pairs(GetTiles()) do
if [Link] == 3898 then
SendPacket(2,"action|dialog_return\ndialog_name|telephone\nnum|
53785|\nx|"..tile.x.."|\ny|"..tile.y.."|\nbuttonClicked|megaconvert")
return true
end
end
end

-- ACC Mode
if packet:find("buttonClicked|fastacc") then
accfast = [[
add_label_with_icon|big|`wAcc Mode|left|242|
add_smalltext|`4Fast Acces World |
add_spacer|small|
add_player_picker|targetACC|`wPick `4PLAYER|
add_spacer|small|
end_dialog|accfast|Thanks!||
]]
acc = {}
acc.v0 = "OnDialogRequest"
acc.v1 = accfast
SendVariant(acc)
return true
end

if packet:find("targetACC|(%d+)") then
netID = packet:match("targetACC|(%d+)")
for _, tile in pairs(GetTiles ()) do
if [Link]==242 or [Link]==7188 or [Link]==1796 then
SendPacket(2,"action|dialog_return\ndialog_name|lock_edit\nx|"..tile.x.."|\
ny|"..tile.y.."|\ntargetNetID|"..netID)
end
end
end

if packet:find("/take") then
LogToConsole("`9Command : /take")
collect()
tax = [Link](Amount * Tax / 100)
drop = Amount - tax
LogToConsole("`9Amount Lock : "..Amount..", Tax : "..Tax.."%, Total drop :
"..drop.."World Lock")
return true
end

if packet:find("/win1") then
LogToConsole("`9Command : /win1")
bgl =[Link](drop/10000)
drop = drop - bgl*10000
dl = [Link](drop/100)
wl = drop % 100
skip(posx1, posy1)
DropMode = true
hasil = (bgl ~= 0 and bgl.."Blue Gem Lock" or "").." "..(dl ~= 0 and dl.."Diamond
Lock" or "").." "..(wl ~= 0 and wl.."World Lock" or "")
SendVariant({v0="OnTextOverlay", v1="`9Bet : "..Amount..", Tax : "..Tax.."%,
Total : "..hasil})
return true

elseif packet:find("/win2") then

LogToConsole("`9Command : /win2")
bgl =[Link](drop/10000)
drop = drop - bgl*10000
dl = [Link](drop/100)
wl = drop % 100
skip(posx2, posy2)
DropMode = true
hasil = (bgl ~= 0 and bgl.."Blue Gem Lock" or "").." "..(dl ~= 0 and dl.."Diamond
Lock" or "").." "..(wl ~= 0 and wl.."World Lock" or "")
SendVariant({v0="OnTextOverlay", v1="`9Bet : "..Amount..", Tax : "..Tax.."%,
Total : "..hasil})
return true
end
if packet:find("/cd (%d+)") then
Amount = packet:match("/cd (%d+)")
LogToConsole("`9Command : /cd")
bgl =[Link](Amount/10000)
Amount = Amount - bgl*10000
dl = [Link](Amount/100)
wl = Amount % 100
CDMode = true
hasil = (bgl ~= 0 and bgl.."Blue Gem Lock" or "").." "..(dl ~= 0 and dl.."Diamond
Lock" or "").." "..(wl ~= 0 and wl.."World Lock" or "")
SendVariant({v0="OnTextOverlay", v1="`9Total drop : "..hasil})
return true
end

if command("/dall") then
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|1796|\
nitem_count|".. checkamount(1796))
overlay("`2Succes Drop All `1Diamond Lock")
return true
end

if command("/d") then
txt = packet:gsub("action|input\n|text|/d", "")
if txt == "" then
overlay("`2Write Amount")
else
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|1796|\
nitem_count|"..txt)
overlay("`2Succes Drop`0"..txt.." `1Diamond Lock")
return true
end
end

if command("/wall") then
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|242|\
nitem_count|".. checkamount(242))
overlay("`2Succes Drop All `9World Lock")
return true
end

if command("/w") then
txt = packet:gsub("action|input\n|text|/w", "")
if txt == "" then
log("`2Write Amount")
else
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|242|\
nitem_count|"..txt)
overlay("`2Succes Drop`0"..txt.." `9World Lock")
return true
end
end

if command("/ball") then
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|7188|\
nitem_count|".. checkamount(7188))
overlay("`2Succes Drop All `eBGL")
return true
end

if command("/b") then
txt = packet:gsub("action|input\n|text|/b", "")
if txt == "" then
log("`2Write Amount")
else
SendPacket(2, "action|dialog_return\ndialog_name|drop\nitem_drop|7188|\
nitem_count|"..txt)
overlay("`2Succes Drop`0"..txt.." `eBGL")
return true
end
end

if packet:find("action|dialog_return\ndialog_name|sk\nbuttonClicked|blinkon") then
overlay("Blink Mode On")
EditToggle("Blink Color", true)
overlay("`2Succes Enable Blink Color")
return true
end

if packet:find("action|dialog_return\ndialog_name|sk\nbuttonClicked|blinkoff") then
overlay("Blink Mode Off")
EditToggle("Blink Color", false)
overlay("`4Succes Disable Blink Color")
return true
end

-- Setup Wrench Mode!

if packet:find("buttonClicked|wpull") then
if pull == false then
pull = true
kick = false
ban = false
SendVariant(wm)
overlay("Pull Mode Enable")
else
pull = false
kick = false
ban = false
SendVariant(wm)
overlay("Pull Mode Disable")
return true
end
end
if packet:find("buttonClicked|wban") then
if ban == false then
ban = true
pull = false
kick = false
SendVariant(wm)
overlay("Ban Mode Enable")
else
ban = false
pull = false
kick = false
 SendVariant(wm)
overlay("Ban Mode Disable")
return true
end
end
if packet:find("buttonClicked|wkick") then
if kick == false then
kick = true
ban = false
pull = false
SendVariant(wm)
overlay("Kick Mode Enable")
else
kick = false
ban = false
pull = false
SendVariant(wm)
overlay("Kick Mode Disable")
return true
end
end
-- Execute Wrench Mode
if packet:find("action|wrench\n|netid|(%d+)") then
id = packet:match("action|wrench\n|netid|(%d+)")
if pull == true then
SendPacket(2,"action|dialog_return\ndialog_name|popup\nnetID|"..id.."|\
nbuttonClicked|pull")
for _, player in pairs(GetPlayerList()) do
if [Link] == tonumber(id) then
overlay("`#Pulling `7"..[Link].."..")
end
end
return true
end
end
if packet:find("action|wrench\n|netid|(%d+)") then
id = packet:match("action|wrench\n|netid|(%d+)")
if kick == true then
SendPacket(2,"action|dialog_return\ndialog_name|popup\nnetID|"..id.."|\
nbuttonClicked|kick")
for _, player in pairs(GetPlayerList()) do
if [Link] == tonumber(id) then
overlay("Kick "..[Link].."..")
end
end
return true
end
end
if packet:find("action|wrench\n|netid|(%d+)") then
id = packet:match("action|wrench\n|netid|(%d+)")
if ban == true then
SendPacket(2,"action|dialog_return\ndialog_name|popup\nnetID|"..id.."|\
nbuttonClicked|world_ban")
for _, player in pairs(GetPlayerList()) do
if [Link] == tonumber(id) then
overlay("Banned "..[Link].."..")
end
end
return true
 end
end

if packet:find("action|dialog_return\ndialog_name|sk\nbuttonClicked|scream") then
overlay("Change Skin To Cream")
SendPacket(2, "action|setSkin\ncolor|3370516479")
return true
end

if packet:find("action|dialog_return\ndialog_name|sk\nbuttonClicked|sputih") then
overlay("Change Skin To White")
SendPacket(2, "action|setSkin\ncolor|4042322175")
return true
end

if packet:find("action|dialog_return\ndialog_name|sk\nbuttonClicked|shitam") then
overlay("Change Skin To Black")
SendPacket(2, "action|setSkin\ncolor|0000000000")
return true
end

if command("/relog") then
SendPacket(3, "action|quit")
return true
end

if command("/lock") then
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")
return true
end

return false
end

function Variant(var)

if var.v1 == "OnConsoleMessage" then

LogToConsole(systemlog..varcontent)
return true
end

if var.v1 == "OnSDBroadcast" then

if blocksdb == true then
LogToConsole("SUCCES BLOCKED SDB")
return true
end
end

-- Block Var Succes

if var.v1 == "OnDialogRequest" then
if autocbgl == true then
x = var.v2:match("embed_data|x|(%d+)")
y = var.v2:match("embed_data|y|(%d+)")
if var.v2:find("Phone") then
SendPacket(2,"action|dialog_return\ndialog_name|telephone\nnum|53785|\
nx|" ..x .. "|\ny|" .. y .. "|\nbuttonClicked|bglconvert")
end
return true
end
end

-- Execute Logs Spin

if var.v1 == "OnTalkBubble" and var.v3:find("`4MWAHAHAHA!! FIRE FIRE FIRE") then

if banpocket == true then
SendPacket(2,"action|dialog_return\ndialog_name|popup\
nnetID|"..var.v2.."|\nbuttonClicked|world_ban")
overlay("Succes Banned Someone Burn Your World!")
return true
end
end

-- Execute Vend Helper

if var.v1 == "OnDialogRequest" then
if buyvend == true then
if var.v2:find("DigiVend Machine") or var.v2:find("Vending Machine") then
xstock = var.v2:match("|x|(%d+)")
ystock = var.v2:match("|y|(%d+)")
amount = amountbuy
harga = var.v2:match("total of (%d+) (.+)|")
name = var.v2:match("total of "..harga.." `2(.+)``")
SendPacket(2,"action|dialog_return\ndialog_name|vend_buy\
nx|"..xstock.."|\ny|"..ystock.."|\nbuyamount|"..amount.."\n")
return true
end
end
end
if var.v1 == "OnDialogRequest" then
if buyvend == true then
if var.v2:find("Purchase Confirmation") then
SendPacket(2,"action|dialog_return\ndialog_name|vend_buyconfirm\
nx|"..xstock.."|\ny|"..ystock.."|\nbuyamount|"..amountbuy.."|\n")
log("You at `3Vending Shortcut Mode `0Disabled `4Fast Buy Mode `0if u
need use Vending normally")
return true
end
end
end

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

SendVariant({v0 = var.v1, v1 = var.v2, v2 = "````" ..var.v3, v3 =
var.v4})
return true
end

-- Ececute Tele DLs

function PacketRaw(a)
if checkgems == true then
if [Link] == 11 then
[Link](OIDList, [Link])
elseif [Link] == 0 and #OIDList > 0 then
for _, __ in pairs(OIDList) do
Gems = Gems + GetGemsAmount(__)
end
if Gems > 0 then
ont("`9Collected `2+" .. Gems .. " (gems) ")
end
Gems = 0
OIDList = {}
end
end

if checkgems1 == true then

if [Link] == 0 then
for _, obj in pairs(GetObjectList()) do
if [Link] == 112 then
if [Link]//32 == [Link] and [Link]//32 == [Link] then
count = count + [Link]
end
end
end
if count > 0 then

LogToConsole("[`4CONSOLE]`9 There Is `2"..count.." Gems")

Sleep(100)
SendPacket(2, "action|input\ntext|`9There Is `2" ..count.. " (gems)")
count = 0
end
end
end
end

return false
end

AddHook(PacketRaw, "OnSendPacketRaw")
AddHook (Packet , "OnSendPacket")
AddHook (Variant, "OnVariant")

while true do
Sleep(2000)
if DropMode then
Sleep(200)
if bgl > 0 then
DropItem(7188, bgl)
Sleep(500)
end
if dl > 0 then
DropItem(1796, dl)
Sleep(500)
end
if wl > 0 then
DropItem(242, wl)
Sleep(500)
end
drop = nil
DropMode = false
LogToConsole("`9Tax reset")
end

if CDMode then
Sleep(2000)
if bgl > 0 then
DropItem(7188, bgl)
Sleep(500)
end
if dl > 0 then
DropItem(1796, dl)
Sleep(500)
end
if wl > 0 then
DropItem(242, wl)
Sleep(500)
end
Amount = nil
CDMode = false
end
end