-- Ultra Small Meme Sea Script (for executors with severe character limits)
-- Just copy and paste this entire script into your mobile executor

loadstring(function()
local c={AF=false,ACC=false,PE=false,NE=false,CE=false,IE=false,AS=false,TM="Bandit"}
local p=game:GetService("Players")
local r=game:GetService("ReplicatedStorage")
local l=p.LocalPlayer
local h=l.Character or l.CharacterAdded:Wait()
local hm=h:WaitForChild("Humanoid")
local hr=h:WaitForChild("HumanoidRootPart")
local e=r:FindFirstChild("Remotes")or r:FindFirstChild("RemoteEvents")
local a=e and(e:FindFirstChild("Attack")or e:FindFirstChild("Combat"))

local g=Instance.new("ScreenGui")
g.Name="MS"
pcall(function()g.Parent=game.CoreGui end)
if not g.Parent then g.Parent=l.PlayerGui end

local f=Instance.new("Frame")
f.Size=UDim2.new(0,180,0,240)
f.Position=UDim2.new(0,10,0.5,-120)
f.BackgroundColor3=Color3.fromRGB(30,30,30)
f.Active=true
f.Draggable=true
f.Parent=g

local t=Instance.new("TextLabel")
t.Size=UDim2.new(1,0,0,25)
t.BackgroundColor3=Color3.fromRGB(40,40,40)
t.Text="Meme Sea"
t.TextColor3=Color3.new(1,1,1)
t.Font=Enum.Font.SourceBold
t.Parent=f

local x=Instance.new("TextButton")
x.Size=UDim2.new(0,25,0,20)
x.Position=UDim2.new(1,-25,0,2)
x.BackgroundColor3=Color3.fromRGB(255,0,0)
x.Text="X"
x.TextColor3=Color3.new(1,1,1)
x.Parent=t

local m=Instance.new("TextButton")
m.Size=UDim2.new(0,25,0,20)
m.Position=UDim2.new(1,-50,0,2)
m.BackgroundColor3=Color3.fromRGB(0,0,255)
m.Text="-"
m.TextColor3=Color3.new(1,1,1)
m.Parent=t

local s=Instance.new("ScrollingFrame")
s.Size=UDim2.new(1,-10,1,-30)
s.Position=UDim2.new(0,5,0,25)
s.BackgroundTransparency=1
s.ScrollBarThickness=4
s.CanvasSize=UDim2.new(0,0,0,300)
s.Parent=f

local u=Instance.new("UIListLayout")
u.Padding=UDim.new(0,5)
u.Parent=s

local b=Instance.new("TextButton")
b.Size=UDim2.new(0,40,0,40)
b.Position=UDim2.new(0,10,0,10)
b.BackgroundColor3=Color3.fromRGB(40,40,40)
b.Text="⛵"
b.TextColor3=Color3.new(1,1,1)
b.Visible=false
b.Parent=g

m.MouseButton1Click:Connect(function()
f.Visible=false
b.Visible=true
end)

b.MouseButton1Click:Connect(function()
f.Visible=true
b.Visible=false
end)

x.MouseButton1Click:Connect(function()
g:Destroy()
end)

local function bt(n,k)
local v=Instance.new("Frame")
v.Size=UDim2.new(1,-10,0,30)
v.BackgroundColor3=Color3.fromRGB(40,40,40)
v.Parent=s

local l=Instance.new("TextLabel")
l.Size=UDim2.new(0.7,0,1,0)
l.BackgroundTransparency=1
l.Text=n
l.TextColor3=Color3.new(1,1,1)
l.TextXAlignment=Enum.TextXAlignment.Left
l.Parent=v

local o=Instance.new("TextButton")
o.Size=UDim2.new(0,50,0,25)
o.Position=UDim2.new(1,-55,0.5,-12)
o.BackgroundColor3=Color3.fromRGB(255,0,0)
o.Text="OFF"
o.TextColor3=Color3.new(1,1,1)
o.Parent=v

o.MouseButton1Click:Connect(function()
c[k]=not c[k]
o.Text=c[k]and"ON"or"OFF"
o.BackgroundColor3=c[k]and Color3.fromRGB(0,255,0)or Color3.fromRGB(255,0,0)
end)
end

bt("Auto Farm","AF")
bt("Auto Chest","ACC")
bt("Player ESP","PE")
bt("NPC ESP","NE")
bt("Chest ESP","CE")
bt("Island ESP","IE")
bt("Auto Skill","AS")

local tp=Instance.new("TextButton")
tp.Size=UDim2.new(1,-10,0,30)
tp.BackgroundColor3=Color3.fromRGB(0,100,255)
tp.Text="TP Starter"
tp.TextColor3=Color3.new(1,1,1)
tp.Parent=s

tp.MouseButton1Click:Connect(function()
hr.CFrame=CFrame.new(0,50,0)
end)

local st=Instance.new("TextLabel")
st.Size=UDim2.new(1,-10,0,20)
st.BackgroundColor3=Color3.fromRGB(30,30,30)
st.Text="Status: Ready"
st.TextColor3=Color3.new(1,1,1)
st.TextSize=12
st.Parent=s

local o={}
local function esp(ob,tx,cl)
if o[ob]then o[ob]:Destroy() o[ob]=nil end
local b=Instance.new("BillboardGui")
b.AlwaysOnTop=true
b.Size=UDim2.new(0,100,0,40)
b.StudsOffset=Vector3.new(0,2,0)
local ad
if ob:IsA("Model")and ob.PrimaryPart then ad=ob.PrimaryPart
elseif ob:IsA("BasePart")then ad=ob
else
for _,v in pairs(ob:GetDescendants())do
if v:IsA("BasePart")then ad=v break end
end
end
if not ad then return end
b.Adornee=ad
b.Parent=ad
local t=Instance.new("TextLabel")
t.BackgroundTransparency=1
t.Size=UDim2.new(1,0,1,0)
t.Text=tx
t.TextColor3=cl
t.TextStrokeTransparency=0.4
t.Parent=b
o[ob]=b
end

local function gm()
local m={}
for _,v in pairs(workspace:GetChildren())do
if v:IsA("Model")and v:FindFirstChild("Humanoid")and not p:GetPlayerFromCharacter(v)then
if v.Name:find(c.TM)then table.insert(m,v)end
end
end
for _,v in pairs({"NPCs","Mobs","Enemies","Bandits","Pirates"})do
local f=workspace:FindFirstChild(v)
if f then
for _,m in pairs(f:GetChildren())do
if m:IsA("Model")and m:FindFirstChild("Humanoid")and m.Name:find(c.TM)then
table.insert(m,m)
end
end
end
end
return m
end

local function gc()
local r={}
for _,v in pairs(workspace:GetDescendants())do
if v:IsA("Model")and v.Name:find("Chest")or(v:IsA("BasePart")and v.Name:find("Chest"))then
table.insert(r,v)
end
end
return r
end

local function gi()
local i={}
for _,v in pairs(workspace:GetChildren())do
if v:IsA("Model")and v.Name:find("Island")then
table.insert(i,v)
end
end
return i
end

spawn(function()
while wait(0.1)do
if not c.AF then continue end
local ms=gm()
if #ms==0 then st.Text="No mobs" continue end
local cm=nil
local cd=math.huge
for _,m in ipairs(ms)do
if m:FindFirstChild("Humanoid")and m.Humanoid.Health>0 then
local rp=m:FindFirstChild("HumanoidRootPart")or m:FindFirstChild("Torso")
if rp then
local d=(hr.Position-rp.Position).Magnitude
if d<cd then cm=m cd=d end
end
end
end
if cm then
local rp=cm:FindFirstChild("HumanoidRootPart")or cm:FindFirstChild("Torso")
if rp then
st.Text="Farm: "..cm.Name
local p=rp.Position+(hr.Position-rp.Position).Unit*7
if(hr.Position-p).Magnitude>5 then hm:MoveTo(p)end
hr.CFrame=CFrame.new(hr.Position,Vector3.new(rp.Position.X,hr.Position.Y,rp.Position.Z))
if a then
if a.Name:find("Attack")then a:FireServer(cm)
elseif a.Name:find("Combat")then a:FireServer("Attack",cm)end
if c.AS and e then
for _,v in ipairs({"Skill","Ability","Power"})do
local s=e:FindFirstChild(v)
if s then s:FireServer(cm)end
end
end
end
end
end
end
end)

spawn(function()
while wait(0.5)do
if c.PE then
for _,v in pairs(p:GetPlayers())do
if v~=l and v.Character then
esp(v.Character,v.Name,Color3.fromRGB(255,0,0))
end
end
else
for _,v in pairs(p:GetPlayers())do
if v~=l and v.Character and o[v.Character]then
o[v.Character]:Destroy()
o[v.Character]=nil
end
end
end

if c.NE then
for _,v in ipairs(gm())do
if v:FindFirstChild("Humanoid")and v.Humanoid.Health>0 then
esp(v,v.Name,Color3.fromRGB(255,128,0))
end
end
else
for _,v in ipairs(gm())do
if o[v]then o[v]:Destroy() o[v]=nil end
end
end

if c.CE then
for _,v in ipairs(gc())do
esp(v,"Chest",Color3.fromRGB(255,215,0))
end
else
for _,v in ipairs(gc())do
if o[v]then o[v]:Destroy() o[v]=nil end
end
end

if c.IE then
for _,v in ipairs(gi())do
esp(v,v.Name,Color3.fromRGB(0,255,0))
end
else
for _,v in ipairs(gi())do
if o[v]then o[v]:Destroy() o[v]=nil end
end
end
end
end)

spawn(function()
while wait(1)do
if not c.ACC then continue end
local cs=gc()
if #cs==0 then st.Text="No chests" continue end
local cc=nil
local cd=math.huge
for _,v in ipairs(cs)do
local p
if v:IsA("Model")then p=v.PrimaryPart or v:FindFirstChildWhichIsA("BasePart")
else p=v end
if p then
local d=(hr.Position-p.Position).Magnitude
if d<cd then cc=v cd=d end
end
end
if cc then
local p
if cc:IsA("Model")then p=cc.PrimaryPart or cc:FindFirstChildWhichIsA("BasePart")
else p=cc end
if p then
st.Text="Get chest"
hm:MoveTo(p.Position)
wait(0.5)
for _,v in pairs(p:GetDescendants())do
if v:IsA("ProximityPrompt")then fireproximityprompt(v)end
end
end
end
end
end)

st.Text="Loaded!"
end)()