Virsion = "0.0.9"
DATE = "4/1/2017"
TIME = "4:55 PM"
p = game.Players.LocalPlayer
LocalPlayerName = p.Name
LPN = p.Name
en = "Welcome "..p.Name.."!, this is One Piece Stimulate v("..Virsion..") updated on "..DATE.." in "..TIME

 local hint = Instance.new("Message", game.Workspace)
 hint.Text = (en)
 print(en)


GetMouse   = p:GetMouse()
--where = p.PlayerGui
where = game.CoreGui
Damage = game.ReplicatedStorage.Events.Damage
LocalGui = Instance.new("ScreenGui", where); LocalGui.Name = "EvolGui"
Box = Instance.new("TextBox", LocalGui); Box.Visible = false; Box.Name = "sLabel"; Box.Position = UDim2.new(0,500,0,550); Box.Size = UDim2.new(0,280,0,50); Box.BackgroundTransparency = 0.6; Box.BorderSizePixel = 3; Box.TextScaled = true
SF = Instance.new("ScrollingFrame", LocalGui); SF.Visible = false; SF.Name = "sFrame"; SF.Position = UDim2.new(0,750,0,90); SF.Size = UDim2.new(0,300,0,300); SF.BackgroundTransparency = 0.6;SF.CanvasSize =  UDim2.new(0,0,4,0)
MC = Instance.new("TextButton", LocalGui); MC.Visible = false; MC.Name = "mClose"; MC.Position = UDim2.new(0,1020,0,60); MC.Size = UDim2.new(0,30,0,30); MC.BackgroundColor3 = Color3.new(1/2, 0, 255); MC.BorderSizePixel = 0;MC.Text = "X"; MC.Font = "ArialBold"; MC.TextScaled = true
iT = Instance.new("TextLabel", LocalGui); iT.Visible = false; iT.Name = "iTitle"; iT.Position = UDim2.new(0,750,0,60); iT.Size = UDim2.new(0,270,0,30); iT.BorderSizePixel = 0;iT.Text = "COMMANDS"; iT.Font = "SciFi"; iT.TextScaled = true;iT.BackgroundColor3 = Color3.new(0, 0, 255);iT.TextColor3 = Color3.new(255, 255, 255) ;iT.TextXAlignment = "Left";iT.BackgroundTransparency = 0.6
DNA = Instance.new("TextLabel", SF); DNA.Visible = true; DNA.Name = "iTitle"; DNA.Position = UDim2.new(0,10,0,5); DNA.Size = UDim2.new(0,270,0,35); DNA.BorderSizePixel = 0;DNA.Text = ""; DNA.Font = "Code"; DNA.TextScaled = true;DNA.TextColor3 = Color3.new(0, 0, 0) ;DNA.BackgroundTransparency = 0.7
SF2 = Instance.new("ScrollingFrame", LocalGui); SF2.Visible = false; SF2.Name = "ssFrame"; SF2.Position = UDim2.new(0,350,0,90); SF2.Size = UDim2.new(0,300,0,300); SF2.BackgroundTransparency = 0.6;SF2.CanvasSize =  UDim2.new(0,0,2,0)
MC2 = Instance.new("TextButton", LocalGui); MC2.Visible = false; MC2.Name = "mmClose"; MC2.Position = UDim2.new(0,620,0,60); MC2.Size = UDim2.new(0,30,0,30); MC2.BackgroundColor3 = Color3.new(1/2, 0, 255); MC2.BorderSizePixel = 0;MC2.Text = "X"; MC2.Font = "ArialBold"; MC2.TextScaled = true
iiT = Instance.new("TextLabel", LocalGui); iiT.Visible = false; iiT.Name = "iiTitle"; iiT.Position = UDim2.new(0,350,0,60); iiT.Size = UDim2.new(0,270,0,30); iiT.BorderSizePixel = 0;iiT.Text = "INFO"; iiT.Font = "SciFi"; iiT.TextScaled = true;iiT.BackgroundColor3 = Color3.new(0, 0, 255);iiT.TextColor3 = Color3.new(255, 255, 255) ;iiT.TextXAlignment = "Left";iiT.BackgroundTransparency = 0.6
DNA2 = Instance.new("TextLabel", SF2); DNA2.Visible = true; DNA2.Name = "iTitle"; DNA2.Position = UDim2.new(0,10,0,5); DNA2.Size = UDim2.new(0,270,3,0); DNA2.BorderSizePixel = 0;DNA2.Text = ""; DNA2.Font = "SourceSansItalic"; DNA2.TextScaled = true;DNA2.TextColor3 = Color3.new(0, 0, 0) ;DNA2.BackgroundTransparency = 0.7;DNA2.TextScaled = false;DNA2.TextXAlignment = "Left";DNA2.TextYAlignment = "Top";DNA2.FontSize = "Size24"
DNA2.Text = [[
One Piece Stimulate
Version(]]..Virsion..[[)
Updated on ]]..DATE..[[ in ]]..TIME..[[


Every decent updates will be counted as an update
Very obvious updates won't be nessary to be logged


* Fixed teleportations
* Fixed 'Sword' on the stats aimbot


]]


local rna1 = DNA:Clone();local rna2 = DNA:Clone();local rna3 = DNA:Clone();local rna4 = DNA:Clone();local rna5 = DNA:Clone();local rna6 = DNA:Clone();local rna7 = DNA:Clone();local rna8 = DNA:Clone();local rna9 = DNA:Clone();local rna10 = DNA:Clone();local rna11 = DNA:Clone();local rna12 = DNA:Clone();local rna13 = DNA:Clone()local rna13 = DNA:Clone()local rna14 = DNA:Clone()local rna15 = DNA:Clone()local rna16 = DNA:Clone()local rna17 = DNA:Clone()local rna18 = DNA:Clone()local rna19 = DNA:Clone()local rna20 = DNA:Clone()
rna1.Parent = SF;rna2.Parent = SF;rna3.Parent = SF;rna4.Parent = SF;rna5.Parent = SF;rna6.Parent = SF;rna7.Parent = SF;rna8.Parent = SF;rna9.Parent = SF;rna10.Parent = SF;rna11.Parent = SF;rna1.Parent = SF;rna12.Parent = SF;rna1.Parent = SF;rna13.Parent = SF;rna14.Parent = SF;rna15.Parent = SF;rna16.Parent = SF;rna17.Parent = SF;rna18.Parent = SF;rna19.Parent = SF;rna20.Parent = SF
local dRna = SF:GetChildren()
for i = 1, #dRna do
local dup = dRna[i]:Clone()
dup.Parent = SF
end
for i = 1, #dRna do
local dup = dRna[i]:Clone()
dup.Parent = SF
end

local rnas = SF:GetChildren()
local rNum = 0
local cOffset = 5
for i = 1, #rnas do
rNum = rNum + 1
rnas[i].Name = ("r"..rNum)

rnas[i].Position = UDim2.new(0, 0, 0, cOffset)
cOffset = cOffset + 40



end
DNA.Name = "r1"
--[[Naming]--
--]]
rN = 0

rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "bank(tp)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "stats"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "cmds/commands"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "mute(mute sounds)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "chest(tp chests here)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "search(for fruit/book)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "mineral(to ores)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "marine(tp)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "flag# (tp)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "jail (tp)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "spawn# (tp)"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "spamfruit#"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "spamtravel"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = "spamtp"
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end
rN = rN + 1
if SF:FindFirstChild("r"..rN) then
SF:FindFirstChild("r"..rN).Text = ""
end



--[[ENDing]]--

SpamFruit = 1
SpamTravel = 7
SpamTP = 7
Ranged = "No"
--]]

MC.MouseButton1Click:connect(function()
SF.Visible = false
MC.Visible = false
iT.Visible = false
end)

MC2.MouseButton1Click:connect(function()
SF2.Visible = false
MC2.Visible = false
iiT.Visible = false
end)

Evol = Instance.new("Folder", game); Evol.Name = "Evol"
WHO = Instance.new("StringValue", Evol); WHO.Name = "Ocal"; WHO.Value = ""
Parti = Instance.new("TextBox", Evol)

local flags = game.Workspace:GetChildren()
local num = 0
for i = 1, #flags do
if flags[i].Name:sub(1,4) == "Flag" then
num = num + 1
flags[i].Name = ("Flag"..num)
flags[i].Name = flags[i].Name:upper()
end
end

local spawns = game.Workspace:GetChildren()
local num = 0
for i = 1, #spawns do
if spawns[i].Name:sub(1,5) == "Spawn" then
num = num + 1
spawns[i].Name = ("Spawn"..num)
spawns[i].Name = spawns[i].Name:upper()
end
end

aim = "No"
function clearbots()
local children = where:GetChildren()
for i = 1, #children do
if children[i].Name == "HAX" then
children[i]:Destroy()
end
if children[i].Name == "HAX2" then
children[i]:Destroy()
end
aim = "No"
end
end

GetMouse.KeyDown:connect(function(key)
if key == "p" then
Box.Visible = true
Box:CaptureFocus()
end
end)

Others = "No"
Box.FocusLost:connect(function(enterpressed)
if enterpressed then
local HRP = p.Character.HumanoidRootPart
local did = 0
local iname = Box.Text:upper()
if iname == "BANK" then
local whe = game.Workspace.NPCBanker.Banker.Torso
Box.Text = ""
Box.Visible = false
for i = 1, SpamTP do
HRP.CFrame = whe.CFrame
wait(0.2)
end
did = 1
end
if iname == "STATS" then
Others = "Yes"
Box.Text = ""
Box.Visible = false
did = 1
end
if iname == "RANGED" then
Ranged = "Yes"
Box.Text = ""
Box.Visible = false
did = 1
end
if iname == "NORANGE" then
Ranged = "No"
Box.Text = ""
Box.Visible = false
did = 1
end
if iname == "CMDS" or iname == "COMMANDS" then
where.EvolGui.sFrame.Visible = true
where.EvolGui.mClose.Visible = true
where.EvolGui.sLabel.Visible = true
where.EvolGui.iTitle.Visible = true
Box.Text = ""
Box.Visible = false
did = 1
end
if iname == "UPDATES" or iname == "INFO" or iname == "INFORMATION" or iname == "INFORMATIONS" or iname == "INFOS" or iname == "UPDATE" then
SF2.Visible = true
MC2.Visible = true
iiT.Visible = true
Box.Text = ""
Box.Visible = false
print("print cmds")
did = 1
end

if iname == "NAME" then
Others = "No"
Box.Text = ""
Box.Visible = false
did = 1
end
if iname == "MUTE" then
Box.Text = ""
Box.Visible = false
local children = game.Workspace:GetChildren()
for i = 1, #children do
if children[i].ClassName == "Sound" then
children[i].Volume = 0
end
end
did = 1
end
if iname == "nil" then
print("nil")
did = 1
end
if iname == "CHEST" then
local children = game.Workspace:GetChildren()
for i = 1, #children do
if children[i].Name:sub(1,5) == "Chest" then
Box.Text = ""
Box.Visible = false
children[i].CFrame = p.Character.HumanoidRootPart.CFrame
end
end
did = 1
end
if iname == "SEARCH" then
Box.Text = ""
Box.Visible = false
local children = game.Workspace:GetChildren()
for i = 1, #children do
if children[i].Name:sub(1,5) == "Fruit" or children[i].Name == "Book" then
children[i].Handle.CFrame = p.Character.HumanoidRootPart.CFrame
end
end
did = 1
end
if iname == "MINERAL" then
Box.Text = ""
Box.Visible = false
local children = game.Workspace:GetChildren()
for i = 1, #children do
if children[i].Name == "Mineral" then
children[i].CFrame = p.Character.HumanoidRootPart.CFrame
end
end
did = 1
end
if iname == "MARINE" then
local whe = game.Workspace.MarineSpawn1
Box.Text = ""
Box.Visible = false
for i = 1, SpamTP do
HRP.CFrame = whe.CFrame
wait(0.2)
end
did = 1
end
if iname == "JAIL" then
local whe = game.Workspace.JailSpawn
Box.Text = ""
Box.Visible = false
for i = 1, SpamTP do
HRP.CFrame = whe.CFrame
wait(0.2)
end
did = 1
end
if iname:sub(1,4) == "FLAG" then
local whe = game.Workspace:FindFirstChild(iname).Flag
Box.Text = ""
Box.Visible = false
for i = 1, SpamTP do
HRP.CFrame = whe.CFrame
wait(0.2)
end

did = 1
end
if iname:sub(1,9) == "SPAMFRUIT" then
local noum = iname:sub(10,11,12)
SpamFruit = (noum)
Box.Text = ""
Box.Visible = false
did = 1
end
if iname:sub(1,10) == "SPAMTRAVEL" then

local noum = iname:sub(10,11,12)
SpamTravel= (noum)
Box.Text = ""
Box.Visible = false
did = 1
end
if iname:sub(1,6) == "SPAMTP" then

local noum = iname:sub(10,11,12)
SpamTP = (noum)
Box.Text = ""
Box.Visible = false
did = 1
end
if iname:sub(1,5) == "SPAWN" then
local whe = game.Workspace:FindFirstChild(iname)
Box.Text = ""
Box.Visible = false
for i = 1, SpamTP do
HRP.CFrame = whe.CFrame
wait(0.2)
end
did = 1
end

if did == 0 then
WHO.Value = Box.Text
Box.Text = ""
Box.Visible = false
end

end
end)

function soru()
game.ReplicatedStorage.Events.Rokushiki:FireServer("Soru", GetMouse.Hit.p)
end

function geppo()
local Box = Instance.new("Part", workspace)
Box.CFrame = p.Character.HumanoidRootPart.CFrame * CFrame.Angles(1.6, 0, 0)
Box.Size = Vector3.new(0.2, 0.2, 0.2)
Box.Transparency = 1
Box.CanCollide = false
Box.Anchored = true
game.Debris:AddItem(Box, 1)
game.ReplicatedStorage.Events.Rokushiki:FireServer("Geppo")
local Velocity = Instance.new("BodyVelocity")
Velocity.maxForce = Vector3.new(math.huge, math.huge, math.huge)
Velocity.velocity = game.workspace.CurrentCamera.CoordinateFrame.lookVector * 100
Velocity.Parent = p.Character.HumanoidRootPart
game.Debris:AddItem(Velocity, 0.01)
end

GetMouse.KeyDown:connect(function(key)
if key == "e" then
soru()
--print(Mouse.Hit.p)
end
end)



GetMouse.KeyDown:connect(function(key)
if key == "q" then
geppo()
end
end)

GetMouse.KeyDown:connect(function(key)
if key == "n" then
for i = 1, SpamTravel do
soru()
geppo()
wait(0.3)
end
end
end)


GetMouse.KeyDown:connect(function(key)
if key == "nil" then
local who = WHO.Value
local people = game.Players:GetChildren()
for i = 1, #people do
local person = people[i]
local personname = person.Name
local worked = "Invalid"
if personname == who then
if person.UserId ~= 256683789 then

local ochar = person.Character
p.Character.HumanoidRootPart.CFrame = ochar.HumanoidRootPart.CFrame
worked = "Valid"
end
end
if worked == "Invalid" then
if personname:sub(1,2,4,5,6,7,8,9,10) == who:sub(1,2,4,5,6,7,8,9,10) then
if person.UserId ~= 256683789 then

local ochar = person.Character
p.Character.HumanoidRootPart.CFrame = ochar.HumanoidRootPart.CFrame
end
end
end

end


end
end)




GetMouse.KeyDown:connect(function(key)
if key == "y" then
local who = WHO.Value
local people = game.Players:GetChildren()
for i = 1, #people do
local person = people[i]
local personname = person.Name
local worked = "Invalid"
if personname == who then
if person.UserId ~= 256683789 then

local ochar = person.Character
for i = 1, SpamTP do
p.Character.HumanoidRootPart.CFrame = ochar.HumanoidRootPart.CFrame
end
worked = "Valid"
end
end
if worked == "Invalid" then
if personname:sub(1,2,4,5,6,7,8,9,10) == who:sub(1,2,4,5,6,7,8,9,10) then
if person.UserId ~= 256683789 then

local ochar = person.Character
for i = 1, SpamTP do
p.Character.HumanoidRootPart.CFrame = ochar.HumanoidRootPart.CFrame
wait(0.2)
end
end
end
end

end


end
end)

GetMouse.KeyDown:connect(function(key)
if key == "b" then
local did = 0
if did == 0 then
if aim == "No" then
if where:FindFirstChild("HAX") then
where:FindFirstChild("HAX"):Destroy()
end
if where:FindFirstChild("HAX2") then
where:FindFirstChild("HAX2"):Destroy()
end
local people = game.Players:GetChildren()
for i = 1, #people do
local person = people[i]
local personname = person.Name
local ochar = person.Character


local BASE = ochar.HumanoidRootPart
local LocalGui                   = Instance.new('BillboardGui', where)
local LocalFrame                    = Instance.new('Frame', LocalGui)
local LocalName                   = Instance.new('TextLabel', LocalGui)
local LocalStatus                   = Instance.new('TextLabel', LocalGui)
local LocalBeli                   = Instance.new('TextLabel', LocalGui)
local LocalStats                   = Instance.new('TextLabel', LocalGui)

LocalGui.Name                    = 'HAX'
LocalGui.Adornee                 = BASE
LocalGui.AlwaysOnTop             = true
LocalGui.ExtentsOffset           = Vector3.new(0, 4, 0)
LocalGui.Size                    = UDim2.new(0, 5, 0, 5)

LocalName.Name                    = 'LocalName'
LocalName.BackgroundColor3        = Color3.new(0, 0, 255)
LocalName.BackgroundTransparency  = 1
LocalName.BorderSizePixel         = 3
LocalName.Position                = UDim2.new(0, 0, 0, -40)
LocalName.Size                    = UDim2.new(1, 0, 10, 0)
LocalName.Visible                 = true
LocalName.ZIndex                  = 10
LocalName.Font                    = 'ArialBold'
LocalName.FontSize                = 'Size14'
LocalName.Text                    = BASE.Parent.Name
LocalName.TextStrokeTransparency  = 0
LocalName.TextColor               = BrickColor.new('White')
if Others == "Yes" then
LocalStatus.Name                    = 'LocalStatus'
LocalStatus.BackgroundColor3        = Color3.new(0, 0, 255)
LocalStatus.BackgroundTransparency  = 1
LocalStatus.BorderSizePixel         = 3
LocalStatus.Position                = UDim2.new(0, 0, 0, -25)
LocalStatus.Size                    = UDim2.new(1, 0, 10, 0)
LocalStatus.Visible                 = true
LocalStatus.ZIndex                  = 10
LocalStatus.Font                    = 'ArialBold'
LocalStatus.FontSize                = 'Size14'
LocalStatus.TextStrokeTransparency  = 0
local LocalStetus = person.DataFolder.Bounty.Value
if person.DataFolder.Faction.Value == 1 then
LocalStatus.TextColor               = BrickColor.new('Bright red')
LocalStatus.Text = "Bounty: "..LocalStetus
end
if person.DataFolder.Faction.Value == 2 then
LocalStatus.TextColor               = BrickColor.new('Bright blue')
LocalStatus.Text = "Reputation: "..LocalStetus
end

LocalBeli.Name                    = 'LocalBeli'
LocalBeli.BackgroundColor3        = Color3.new(0, 0, 255)
LocalBeli.BackgroundTransparency  = 1
LocalBeli.BorderSizePixel         = 3
LocalBeli.Position                = UDim2.new(0, 0, 0, -10)
LocalBeli.Size                    = UDim2.new(1, 0, 10, 0)
LocalBeli.Visible                 = true
LocalBeli.ZIndex                  = 10
LocalBeli.Font                    = 'ArialBold'
LocalBeli.FontSize                = 'Size14'
LocalBeli.TextStrokeTransparency  = 0
local BeliStat = person.DataFolder.Beli.Value

LocalBeli.TextColor               = BrickColor.new('Bright green')
LocalBeli.Text = "Beli: "..BeliStat

LocalStats.Name                    = 'LocalStats'
LocalStats.BackgroundColor3        = Color3.new(0, 0, 255)
LocalStats.BackgroundTransparency  = 1
LocalStats.BorderSizePixel         = 3
LocalStats.Position                = UDim2.new(0, 0, 0, 4)
LocalStats.Size                    = UDim2.new(1, 0, 10, 0)
LocalStats.Visible                 = true
LocalStats.ZIndex                  = 10
LocalStats.Font                    = 'ArialBold'
LocalStats.FontSize                = 'Size14'
LocalStats.TextStrokeTransparency  = 0
LocalStats.TextColor               = BrickColor.new('White')



local Strength = person.DataFolder.Strength.Value
local Stamina = person.DataFolder.Stamina.Value
local Defence = person.DataFolder.Defense.Value
local Sword = person.DataFolder.Swordsmenship.Value
local Gun = person.DataFolder.Marksmenship.Value
local Fruit = person.DataFolder.Fruit.Value
local JT = person.DataFolder.JailTime.Value

if JT > 0 then
local LocalGui2                   = Instance.new('BillboardGui', where)
LocalGui2.Name                    = 'HAX2'
LocalGui2.Adornee                 = BASE
LocalGui2.AlwaysOnTop             = true
LocalGui2.ExtentsOffset           = Vector3.new(0, 6, 0)
LocalGui2.Size                    = UDim2.new(0, 5, 0, 5)

local LocalJT                   = Instance.new('TextLabel', LocalGui2)
LocalJT.Name                    = 'LocalJT'
LocalJT.BackgroundColor3        = Color3.new(0, 0, 255)
LocalJT.BackgroundTransparency  = 1
LocalJT.BorderSizePixel         = 3
LocalJT.Position                = UDim2.new(0, 0, 0, 0)
LocalJT.Size                    = UDim2.new(1, 0, 10, 0)
LocalJT.Visible                 = true
LocalJT.ZIndex                  = 10
LocalJT.Font                    = 'ArialBold'
LocalJT.FontSize                = 'Size36'
LocalJT.TextStrokeTransparency  = 0
LocalJT.TextColor               = BrickColor.new('Bright blue')
LocalJT.Text = (JT)


end



local yesorno = "No"
if person.DataFolder.Haki.Value == 2 then
yesorno = "Yes"
end
LocalStats.Text = ("STR: "..Strength.." | STA: "..Stamina.." | DEF: "..Defence.." | SWO: "..Sword.." | GUN: "..Gun.." | HAKI: "..yesorno.." | DF: "..Fruit.."")
end



aim = "Yes"
did = 1
end

end
end

if did == 0 then
if aim == "Yes" then
clearbots()
end
end






end
end)

view = "Yes"
GetMouse.KeyDown:connect(function(key)
if key == "v" then
local did = 0
if did == 0 then
if view == "Yes" then

local who = WHO.Value
local people = game.Players:GetChildren()
for i = 1, #people do
local person = people[i]
local personname = person.Name
local worked = "Invalid"
if personname == who then
if person.UserId ~= 256683789 then

local ochar = person.Character
game.Workspace.CurrentCamera.CameraSubject = ochar
worked = "Valid"
end
end
if worked == "Invalid" then
if personname:sub(1,2,4,5,6,7,8,9,10) == who:sub(1,2,4,5,6,7,8,9,10) then
local ochar = person.Character
game.Workspace.CurrentCamera.CameraSubject = ochar
end
end

end


view = "No"
did = 1
end
end

if did == 0 then
if view == "No" then

game.Workspace.CurrentCamera.CameraSubject = p.Character


view = "Yes"
did = 1
end
end

end
end)
















Target = "No"
GetMouse.KeyDown:connect(function(key)
if key == "m" then
did = 0
local who = WHO.Value
local people = game.Players:GetChildren()
for i = 1, #people do
local person = people[i]
local personname = person.Name
did2 = 0

if personname == who then
if person.UserId ~= 256683789 then
if Target == "No" then
person.Character.HumanoidRootPart.CFrame = p.Character.HumanoidRootPart.CFrame
person.Character.HumanoidRootPart.Anchored = true
Target = "Yes"
did = 1
end
did2 = 1
end
end

if did2 == 0 then
if personname:sub(1,2,4,5,6,7,8,9,10) == who:sub(1,2,4,5,6,7,8,9,10) then
if person.UserId ~= 256683789 then
if did == 0 then
if Target == "No" then
person.Character.HumanoidRootPart.CFrame = p.Character.HumanoidRootPart.CFrame
person.Character.HumanoidRootPart.Anchored = true
Target = "Yes"
did = 1
end
end
end

if did == 0 then
if Target == "Yes" then
person.Character.HumanoidRootPart.Anchored = false
Target = "No"
did = 1
end
end

end
end


end
end
end)

Obs = "No"
GetMouse.KeyDown:connect(function(key)
if key == "g" then
local did = 0

if Obs == "No" then
Obs = "Yes"
game.Lighting.KenHaki.Enabled = true
game.ReplicatedStorage.Events.Haki:FireServer("Ken")
did = 1
end
if did == 0 then
if Obs == "Yes" then
Obs = "No"
game.Lighting.KenHaki.Enabled = false
end

end

end
end)


GetMouse.KeyDown:connect(function(key)
if key == "z" then
if p.Character:FindFirstChild("HaoHaki") then
p.Character.HaoHaki:WaitForChild("HaoValue"):FireServer("Fall")
end
end
end)


GetMouse.KeyDown:connect(function(key)
if key == "r" then
if p:FindFirstChild("DataFolder").Fruit.Value == "None" then
return
end
if p.Character.Humanoid.WalkSpeed == 0 then
return
end
if p.Character.Humanoid.JumpPower == 0 then
return
end
if p:FindFirstChild("DataFolder").JailTime.Value > 0 then
return
end
local SecurityCode = game.Workspace:FindFirstChild("EventSecurity")
if SecurityCode == nil then
return
end
--[[BEEF]]--
for i = 1, SpamFruit do
Damage:FireServer(SecurityCode.Value, math.random(100, 150), "None", p:FindFirstChild("DataFolder").Fruit.Value .. "1", math.random(50, 200), GetMouse.Hit.p)
wait(0.2)
end
--[[END]]--
end
end)

GetMouse.KeyDown:connect(function(key)
if key == "t" then
if p:FindFirstChild("DataFolder").Fruit.Value == "None" then
return
end
if p.Character.Humanoid.WalkSpeed == 0 then
return
end
if p.Character.Humanoid.JumpPower == 0 then
return
end
if p:FindFirstChild("DataFolder").JailTime.Value > 0 then
return
end
local SecurityCode = game.Workspace:FindFirstChild("EventSecurity")
if SecurityCode == nil then
return
end
--[[BEEF]]--
for i = 1, SpamFruit do
Damage:FireServer(SecurityCode.Value, math.random(105, 125), "None", p:FindFirstChild("DataFolder").Fruit.Value .. "2", math.random(50, 200))
wait(0.2)
end

--[[END]]--
end
end)

GetMouse.KeyDown:connect(function(key)
if key == "f" then
if p:FindFirstChild("DataFolder").Fruit.Value == "None" then
return
end
if p.Character.Humanoid.WalkSpeed == 0 then
return
end
if p.Character.Humanoid.JumpPower == 0 then
return
end
if p:FindFirstChild("DataFolder").JailTime.Value > 0 then
return
end
local SecurityCode = game.Workspace:FindFirstChild("EventSecurity")
if SecurityCode == nil then
return
end
--[[BEEF]]--
if p:FindFirstChild("DataFolder").Fruit.Value == "Pika" then
p.Character.HumanoidRootPart.CFrame = CFrame.new(p.Character.HumanoidRootPart.Position, GetMouse.Hit.p)
end

for i = 1, SpamFruit do
Damage:FireServer(SecurityCode.Value, math.random(125, 145), "None", p:FindFirstChild("DataFolder").Fruit.Value .. "3", math.random(50, 200))
wait(0.2)
end

--[[END]]--
end
end)

wait(4)
hint:Remove()


while true do
if Ranged == "Yes" then
local OPN = WHO.Value

if game.Workspace:FindFirstChild(OPN) then
local OP = game.Workspace:FindFirstChild(OPN)
if game.Workspace:FindFirstChild(LPN) then
if game.Players.LocalPlayer.Character:FindFirstChild("Bullet") then
local Bullet = game.Players.LocalPlayer.Character:FindFirstChild("Bullet")
local Target = OP.HumanoidRootPart
Bullet.CFrame = Target.CFrame
end
if game.Players.LocalPlayer.Character:FindFirstChild("TrapShotBullet") then
local Bullet = game.Players.LocalPlayer.Character:FindFirstChild("TrapShotBullet")
--Bullet.Size = Vector3.new(0.3,0.3,0.3)
local Target = OP.HumanoidRootPart
Bullet.CFrame = Target.CFrame
end
end

end
end
wait()
end