Code:
local function Menu()
local menuheight, menuwidth, w, h = {}, 270, 240, ScrW() / 2, ScrH() / 2
local Frame = vgui.Create('DFrame')
Frame:SetSize(600, 400)
Frame:SetVisible(true)
Frame:ShowCloseButton(false)
Frame:MakePopup()
Frame:SetTitle('ExplicityBoat v3')
Frame:Center()
Frame.Paint = function()
draw****undedBox(0, 0, 0, Frame:GetWide(), Frame:GetTall(), Color(0, 188, 255, 75))
surface.SetDrawColor(Color(0, 188, 255, 75))
surface.DrawOutlinedRect(0, 0, Frame:GetWide(), Frame:GetTall())
end
local Sheet = vgui.Create('DPropertySheet', Frame)
Sheet:Dock(FILL)
local AimBot = vgui.Create('DPanel')
Sheet:AddSheet(' Aimbot ', AimBot, false, false, false)
local AimActive = vgui.Create('DCheckBoxLabel', AimBot)
AimActive:SetPos(10, 10)
AimActive:SetText('AimBoat')
AimActive:SetValue(ExplicityBoatVars['AimBoat'])
AimActive.OnChange = function()
ExplicityBoatVars['AimBoat'] = !ExplicityBoatVars['AimBoat'];
end
AimActive:SetTextColor(Color(5, 5, 5))
AimActive:SizeToContents()
local IgnoreTeam = vgui.Create('DCheckBoxLabel', AimBot)
IgnoreTeam:SetPos(10, 30)
IgnoreTeam:SetText('Ignore Team')
IgnoreTeam:SetValue(ExplicityBoatVars['Ignore Team'])
IgnoreTeam.OnChange = function()
ExplicityBoatVars['Ignore Team'] = !ExplicityBoatVars['Ignore Team'];
end
IgnoreTeam:SetTextColor(Color(5, 5, 5))
IgnoreTeam:SizeToContents()
local IgnoreFriends = vgui.Create('DCheckBoxLabel', AimBot)
IgnoreFriends:SetPos(10, 50)
IgnoreFriends:SetText('Ignore Friends')
IgnoreFriends:SetValue(ExplicityBoatVars['Ignore Friends'])
IgnoreFriends.OnChange = function()
ExplicityBoatVars['Ignore Friends'] = !ExplicityBoatVars['Ignore Friends'];
end
IgnoreFriends:SetTextColor(Color(5, 5, 5))
IgnoreFriends:SizeToContents()
local AimOnKey = vgui.Create('DCheckBoxLabel', AimBot)
AimOnKey:SetPos(10, 70)
AimOnKey:SetText('Aim On Key')
AimOnKey:SetValue(ExplicityBoatVars['Aim on Key'])
AimOnKey.OnChange = function()
ExplicityBoatVars['Aim on Key'] = !ExplicityBoatVars['Aim on Key'];
end
AimOnKey:SetTextColor(Color(5, 5, 5))
AimOnKey:SizeToContents()
local ESP = vgui.Create('DPanel')
Sheet:AddSheet(' ESP ', ESP, false, false, false)
local Misc = vgui.Create('DPanel')
Sheet:AddSheet(' Misc. ', Misc, false, false, false)
local FakeLag = vgui.Create('DCheckBoxLabel', Misc)
FakeLag:SetPos(10, 10)
FakeLag:SetText('FakeLag')
FakeLag:SetValue(ExplicityBoatVars['FakeLag'])
FakeLag.OnChange = function()
ExplicityBoatVars['FakeLag'] = !ExplicityBoatVars['FakeLag'];
end
FakeLag:SetTextColor(Color(5, 5, 5))
FakeLag:SizeToContents()
local HvH = vgui.Create('DPanel')
Sheet:AddSheet(' HvH ', HvH, false, false, false)
local AA = vgui.Create('DCheckBoxLabel', HvH)
AA:SetPos(10, 10)
AA:SetText('AA')
AA:SetValue(ExplicityBoatVars['AA'])
AA.OnChange = function()
ExplicityBoatVars['AA'] = !ExplicityBoatVars['AA'];
end
local AAType = vgui.Create('DComboBox', HvH)
AAType:SetPos(496, 5)
AAType:SetSize(75, 20)
if (ExplicityBoatVars['AAType'] == 1) then
AAType:SetValue('Type 1')
elseif(ExplicityBoatVars['AAType'] == 2) then
AAType:SetValue('Type 2')
end
AAType:AddChoice('Type 1')
AAType:AddChoice('Type 2')
AAType.OnSelect = function(panel, index, value)
if (value == 'Type 1') then
ExplicityBoatVars['AAType'] = 1;
elseif(value == 'Type 2') then
ExplicityBoatVars['AAType'] = 2;
end
end
AA:SetTextColor(Color(5, 5, 5))
AA:SizeToContents()
function Frame:Think()
if input.IsKeyDown(KEY_INSERT) and !insert2 then
menuopen = false;
Frame:Close()
end
end
end
local function MenuThink()
if (input.IsKeyDown(KEY_INSERT) and !menuopen and !insert) then
menuopen = true;
insert = true;
Menu()
surface.PlaySound('/buttons/button17.wav')
elseif(!input.IsKeyDown(KEY_INSERT) and !menuopen) then
insert = false;
end
if (input.IsKeyDown(KEY_INSERT) and insert and menuopen) then
insert2 = true;
else
insert2 = false;
end
end