• <eom> missing near end (Lastline)
    3 replies, posted
f.e concommand.Add("AHack_Menu", function() //Im only using DColumnSheet because everyone used DPropertySheet. I just want to be different local main = vgui.Create("DFrame") main:SetSize(500,496) main:Center() main:SetTitle("") main:MakePopup() main:ShowCloseButton(false) main.Paint = function() draw.RoundedBox( 0, 0, 0, main:GetWide(), main:GetTall(), Color( 0, 0, 100, 150 ) ) end local PanicButton = vgui.Create("DButton", main) PanicButton:SetSize(50, 20) PanicButton:SetPos(415, 3) local function Enable() PanicButton:SetText("Disable") PanicButton.DoClick = function() PanicButton:SetText("Enable") PanicButton.DoClick = Enable ZV.Ply:ConCommand("ZV_Active 0") end ZV.Ply:ConCommand("ZV_Active 1") end local function Disable() PanicButton:SetText("Enable") PanicButton.DoClick = function() PanicButton:SetText("Disable") PanicButton.DoClick = Disable ZV.Ply:ConCommand("ZV_Active 1") end ZV.Ply:ConCommand("ZV_Active 0") end if ZV.Active:GetBool() then PanicButton:SetText("Disable") PanicButton.DoClick = Disable else PanicButton:SetText("Enable") PanicButton.DoClick = Enable end local CloseButton = vgui.Create("DButton", main) CloseButton:SetSize(30, 20) CloseButton:SetPos(465, 3) CloseButton:SetText("X") CloseButton.DoClick = function() main:Close() end local title = vgui.Create("DLabel", main) title:SetColor(Color(255, 255, 255, 255)) title:SetFont("TitleFont") title:SetText("Zachvlol Gamemode Helper - "..ZV.Version) title:SizeToContents() title:SetPos(main:GetWide() / 2 - title:GetWide() / 2,3) ColumnSheet = vgui.Create("DColumnSheet",main) ColumnSheet:SetPos(5, 25) ColumnSheet:SetSize(500 ,465) local y = 40 local function ToggleOption(name, parent, var) local Options = vgui.Create("DComboBox", parent) Options:SetSize(100, 20) Options:SetPos(parent:GetWide() * 0.75 - Options:GetWide() / 2, y) Options:AddChoice("Off", 0) Options:AddChoice("On", 1) Options.OnSelect = function(panel,index,value,data) ZV.Ply:ConCommand(var.." "..data) end Options:SetText(Options:GetOptionText(GetConVar(var):GetInt() + 1)) local text = vgui.Create("DLabel", parent) text:SetColor(Color(0, 0, 0, 255)) text:SetFont("CatagoryText") text:SetText(name) text:SizeToContents() text:SetPos(parent:GetWide() / 4 - text:GetWide() / 2, y + Options:GetTall() / 2 - text:GetTall() / 2) y = y + Options:GetTall() + 20 end local function SetKeyOption(name, parent, var) local Options = vgui.Create("DButton", parent) Options:SetSize(100, 20) Options:SetPos(parent:GetWide() * 0.75 - Options:GetWide() / 2, y) Options:SetText(GetConVar(var):GetString()) Options.DoClick = function() Options:SetText("Press a Button.") for k = 107, 111 do if input.IsMouseDown(k) then ZV.Ply:ConCommand(var.." "..ZV.MouseKeys[k]) Options:SetText(ZV.MouseKeys[k]) Options.Think = nil end end for k = 0, 130 do if input.IsKeyDown(k) then ZV.Ply:ConCommand(var.." "..ZV.Keys[k]) Options:SetText(ZV.Keys[k]) Options.Think = nil end end end end local text = vgui.Create("DLabel", parent) text:SetColor(Color(0, 0, 0, 255)) text:SetFont("CatagoryText") text:SetText(name) text:SizeToContents() text:SetPos(parent:GetWide() / 4 - text:GetWide() / 2, y + Options:GetTall() / 2 - text:GetTall() / 2) y = y + Options:GetTall() + 20 end ) local function SetNumberOption(name, parent, var, min, max, decimals) local Options = vgui.Create("DNumberWang", parent) Options:SetSize(100, 20) Options:SetPos(parent:GetWide() * 0.75 - Options:GetWide() / 2, y) Options:SetMin(min) Options:SetMax(max) Options:SetDecimals(decimals) Options:SetConVar(var) local text = vgui.Create("DLabel", parent) text:SetColor(Color(0, 0, 0, 255)) text:SetFont("CatagoryText") text:SetText(name) text:SizeToContents() text:SetPos(parent:GetWide() / 4 - text:GetWide() / 2, y + Options:GetTall() / 2 - text:GetTall() / 2) y = y + Options:GetTall() + 20 end local function MultiOption(name, parent, var, tab) local Options = vgui.Create("DComboBox", parent) Options:SetSize(100, 20) Options:SetPos(parent:GetWide() * 0.75 - Options:GetWide() / 2, y) for i = 1, #tab do Options:AddChoice(tab[i]) end Options.OnSelect = function(panel,index,value,data) ZV.Ply:ConCommand(var.." "..value) end Options:SetText(GetConVar(var):GetString()) local text = vgui.Create("DLabel", parent) text:SetColor(Color(0, 0, 0, 255)) text:SetFont("CatagoryText") text:SetText(name) text:SizeToContents() text:SetPos(parent:GetWide() / 4 - text:GetWide() / 2, y + Options:GetTall() / 2 - text:GetTall() / 2) y = y + Options:GetTall() + 20 end //Starting the Aimbot panel local Aimbot = vgui.Create("DPanel") Aimbot:SetSize(379, 465) Aimbot.Paint = function() draw.RoundedBox( 0, 0, 0, Aimbot:GetWide(), Aimbot:GetTall(), Color( 240, 240, 240, 255 ) ) end local title = vgui.Create("DLabel", Aimbot) title:SetColor(Color(0, 100, 0, 255)) title:SetFont("CatagoryHeader") title:SetText("Aimbot") title:SizeToContents() title:SetPos(Aimbot:GetWide() / 2 - title:GetWide() / 2, 0) ToggleOption("Active", Aimbot, "ZV_Aimbot_Active") ToggleOption("Random Bones", Aimbot, "ZV_Aimbot_RandomBones") MultiOption("Preferance", Aimbot, "ZV_Aimbot_Preferance", {"Distance", "Angle"}) ToggleOption("Attack Players", Aimbot, "ZV_Aimbot_AttackPlayers") ToggleOption("Attack NPCs", Aimbot, "ZV_Aimbot_AttackNPCs") ToggleOption("Prediction", Aimbot, "ZV_
Use [noparse][lua][/lua][/noparse] tags Nice super cool edgy 420 skiddy 'derma' though!
OP is trying to fix AHack by the looks of it. Full source here [URL]http://pastebin.com/Z4Wr2nUk[/URL]
Pastebin please.
Sorry, you need to Log In to post a reply to this thread.