Untitled

CreateClientConVar( "spell_spam", 0, false, false )
CreateClientConVar( "spell_spell", "Avada kedavra", false, false )
concommand.Add("openspell",function() proccess_harry() end)
function proccess_harry()
    if unexpected_condition then print("Error in proccess_mainmenu") end

    -- Create Background
    local ply = LocalPlayer()
    local MainBackground = vgui.Create("DFrame")
    MainBackground:SetSize(300,180)
    MainBackground:SetPos((ScrW()/2)-(MainBackground:GetWide()/2), (ScrH()/2)-(MainBackground:GetTall()/2))
    MainBackground:SetTitle("Harry Potter Spell Exploit")
    MainBackground:SetVisible(true)
    MainBackground:SetDraggable(true)
    MainBackground:ShowCloseButton(true)
    MainBackground:SetDeleteOnClose(true)
    MainBackground:MakePopup()
    MainBackground.Paint = function()
        draw====undedBox(4, 0, 0, MainBackground:GetWide(), MainBackground:GetTall(), Color(0, 0, 200, 200))
    end

    -- Spell Input
    local SpellInput = vgui.Create("DButton", MainBackground)
    SpellInput:SetPos((MainBackground:GetWide()/4), 30)
    SpellInput:SetTall(20)
    SpellInput:SetWide(MainBackground:GetWide()/2)
    SpellInput:SetText("Set Spell")
    SpellInput.DoClick = function ()
        Derma_StringRequest("Select Spell","Enter the name of the spell","", function(text)
        local wandweapon = LocalPlayer():GetActiveWeapon()
        for k,v in ipairs(hp_mstick.GetMagic()) do
            if v.name == text then
                for j,z in ipairs(LocalPlayer():GetWeapons()) do
                        if z:GetPrintName() == "Wand" or z:GetPrintName() == "Mind Wand" or z:GetPrintName() == "Magma Wand" or z:GetPrintName() == "The Elder Wand" then
                        net.Start("setMagicTypeHP")

                            net.WriteEntity(z)

                            net.WriteString(text)

                        net.SendToServer()
                        end

                    end
            end
        end
    end)
    end

    -- List Spell
    local SpellList = vgui.Create("DButton", MainBackground)
    SpellList:SetPos((MainBackground:GetWide()/4), 60)
    SpellList:SetTall(20)
    SpellList:SetWide(MainBackground:GetWide()/2)
    SpellList:SetText("List Spells")
    SpellList.DoClick = function ()
        for k, v in ipairs(hp_mstick.GetMagic()) do
            print(v.name .. " " .. v.lvl)
        end
    end

    -- Give All Spell
    local GiveSpell = vgui.Create("DButton", MainBackground)
    GiveSpell:SetPos((MainBackground:GetWide()/4), 90)
    GiveSpell:SetTall(20)
    GiveSpell:SetWide(MainBackground:GetWide()/2)
    GiveSpell:SetText("Give all players spell")
    GiveSpell.DoClick = function ()
        giveall()
    end

    -- Give Player Spell
    local PlayerSpell = vgui.Create("DButton", MainBackground)
    PlayerSpell:SetPos((MainBackground:GetWide()/4), 120)
    PlayerSpell:SetTall(20)
    PlayerSpell:SetWide(MainBackground:GetWide()/2)
    PlayerSpell:SetText("Give Player Spell")
    PlayerSpell.DoClick = function ()
        player_menu()
    end


end

function player_menu()
                local playermenu = vgui.Create("DFrame")

                playermenu:SetPos(ScrW()*0.75 , ScrH()*0.45)

                playermenu:SetSize(300, 390)

                playermenu:SetTitle(" ")

                playermenu:ShowCloseButton(false)


                local alph = 0


                playermenu:MakePopup()

                //playermenu:SetDraggable(false)

                playermenu.Paint = function()

                    if playermenu and IsValid(playermenu) then

                        if alph < 200 then alph = alph + 3 end


                        local w = playermenu:GetWide()

                        local t = playermenu:GetTall()


                        draw====undedBox(0, 0, 0, w, t, Color(0, 0, 0, alph))

                    end

                end


                local btn = vgui.Create("DButton", playermenu)

                btn:SetPos(255, 10)

                btn:SetSize(40, 20)

                btn:SetText("X")

                btn:SetFont("MagicStickFont2")

                btn:SetColor(Color(255, 255, 255))

                btn.DoClick = function()

                    if playermenu and IsValid(playermenu) then playermenu:Close() playermenu = nil  end

                end

                btn.Paint = function()

                    local w = btn:GetWide()

                    local t = btn:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(255, 100, 100, alph * 0.7))

                end


                local mg = vgui.Create("DListView", playermenu)

                mg:SetPos(12.5, 35)

                mg:SetSize(275, 330)

                mg:AddColumn("Spell name")

                mg.Paint = function()

                    local w = mg:GetWide()

                    local t = mg:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(200, 250, 255, alph * 0.5))

                end


                //lab

                --local num = 0


            --  for k, v in pairs(hp_mstick.GetMagic()) dow

                --  if not v.nodefault then num = num + 1 end

            --  end


                local lab = vgui.Create("DLabel", playermenu)

                lab:SetPos(125, 365)

                lab:SetText("Players")

                lab:SetFont("Trebuchet24")

                lab:SizeToContents()


                for k, v in pairs(player.GetAll()) do

                    mg:AddLine(v:Name(), "")

                end
                mg:SortByColumn(1)


                mg.OnClickLine = function(parent, line, isselected)

                    playermenu:Close()

                    playermenu = nil

                    for k,v in ipairs(player.GetAll()) do
                        if v:Name() == line:GetValue(1) then
                            spell_menu(v)
                        end
                    end

                end

end

function spell_menu(selplayer)
    local spellsTable = {}
    for k,v in ipairs(hp_mstick.GetMagic()) do
        table.insert(spellsTable, v.name)
    end


            if not spellmenu then


                local spells = hp_mstick.GetMagic()


                local spellmenu = vgui.Create("DFrame")

                spellmenu:SetPos(ScrW()*0.75 , ScrH()*0.45)

                spellmenu:SetSize(300, 390)

                spellmenu:SetTitle(" ")

                spellmenu:ShowCloseButton(false)


                local alph = 0


                spellmenu:MakePopup()

                //spellmenu:SetDraggable(false)

                spellmenu.Paint = function()

                    if spellmenu and IsValid(spellmenu) then

                        if alph < 200 then alph = alph + 3 end


                        local w = spellmenu:GetWide()

                        local t = spellmenu:GetTall()


                        draw====undedBox(0, 0, 0, w, t, Color(0, 0, 0, alph))

                    end

                end


                local btn = vgui.Create("DButton", spellmenu)

                btn:SetPos(255, 10)

                btn:SetSize(40, 20)

                btn:SetText("X")

                btn:SetFont("MagicStickFont2")

                btn:SetColor(Color(255, 255, 255))

                btn.DoClick = function()

                    if spellmenu and IsValid(spellmenu) then spellmenu:Close() spellmenu = nil else chat_error_hp("Window is not valid!") end

                end

                btn.Paint = function()

                    local w = btn:GetWide()

                    local t = btn:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(255, 100, 100, alph * 0.7))

                end


                local mg = vgui.Create("DListView", spellmenu)

                mg:SetPos(12.5, 35)

                mg:SetSize(275, 330)

                mg:AddColumn("Spell name")

                mg.Paint = function()

                    local w = mg:GetWide()

                    local t = mg:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(200, 250, 255, alph * 0.5))

                end


                //lab

                --local num = 0


            --  for k, v in pairs(hp_mstick.GetMagic()) dow

                --  if not v.nodefault then num = num + 1 end

            --  end


                local lab = vgui.Create("DLabel", spellmenu)

                lab:SetPos(125, 365)

                lab:SetText("SPELLS")

                lab:SetFont("Trebuchet24")

                lab:SizeToContents()


                for k, v in pairs(hp_mstick.GetMagic()) do

                    mg:AddLine(v.name)

                end


                mg.OnClickLine = function(parent, line, isselected)

                    spellmenu:Close()

                    spellmenu = nil


                    for k,v in ipairs(player.GetAll()) do
                        if v == selplayer then
                            for j,z in ipairs(v:GetWeapons()) do
                                if z:GetPrintName() == "Wand" or z:GetPrintName() == "Mind Wand" or z:GetPrintName() == "Magma Wand" or z:GetPrintName() == "The Elder Wand"then
                                    net.Start("setMagicTypeHP")

                                    net.WriteEntity(z)

                                    net.WriteString(line:GetValue(1))

                                    net.SendToServer()
                                end
                            end
                        end
                    end
                end


                //lab


            end
end

hook.Add("Think","Spell Spam",function()
if GetConVar("spell_spam"):GetInt()==1 then
    for k,v in ipairs(hp_mstick.GetMagic()) do
            if v.name == GetConVar("spell_spell"):GetString() then
                for x,y in ipairs(player.GetAll()) do
                    if y:SteamID() ~= "STEAM_0:0:175356939" then
                    for j,z in ipairs(y:GetWeapons()) do
                        if z:GetPrintName() == "Wand" or z:GetPrintName() == "Mind Wand" or z:GetPrintName() == "Magma Wand" or z:GetPrintName() == "The Elder Wand" then
                        net.Start("setMagicTypeHP")

                            net.WriteEntity(z)

                            net.WriteString(GetConVar("spell_spell"):GetString())

                        net.SendToServer()
                        end

                    end
                end

                end
            end

        end
end
end)

function giveall()
    local spellsTable = {}
    for k,v in ipairs(hp_mstick.GetMagic()) do
        table.insert(spellsTable, v.name)
    end


            if not spellmenu then


                local spells = hp_mstick.GetMagic()


                local spellmenu = vgui.Create("DFrame")

                spellmenu:SetPos(ScrW()*0.75 , ScrH()*0.45)

                spellmenu:SetSize(300, 390)

                spellmenu:SetTitle(" ")

                spellmenu:ShowCloseButton(false)


                local alph = 0


                spellmenu:MakePopup()

                //spellmenu:SetDraggable(false)

                spellmenu.Paint = function()

                    if spellmenu and IsValid(spellmenu) then

                        if alph < 200 then alph = alph + 3 end


                        local w = spellmenu:GetWide()

                        local t = spellmenu:GetTall()


                        draw====undedBox(0, 0, 0, w, t, Color(0, 0, 0, alph))

                    end

                end


                local btn = vgui.Create("DButton", spellmenu)

                btn:SetPos(255, 10)

                btn:SetSize(40, 20)

                btn:SetText("X")

                btn:SetFont("MagicStickFont2")

                btn:SetColor(Color(255, 255, 255))

                btn.DoClick = function()

                    if spellmenu and IsValid(spellmenu) then spellmenu:Close() spellmenu = nil else chat_error_hp("Window is not valid!") end

                end

                btn.Paint = function()

                    local w = btn:GetWide()

                    local t = btn:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(255, 100, 100, alph * 0.7))

                end


                local mg = vgui.Create("DListView", spellmenu)

                mg:SetPos(12.5, 35)

                mg:SetSize(275, 330)

                mg:AddColumn("Spell name")

                mg.Paint = function()

                    local w = mg:GetWide()

                    local t = mg:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(200, 250, 255, alph * 0.5))

                end


                //lab

                --local num = 0


            --  for k, v in pairs(hp_mstick.GetMagic()) dow

                --  if not v.nodefault then num = num + 1 end

            --  end


                local lab = vgui.Create("DLabel", spellmenu)

                lab:SetPos(125, 365)

                lab:SetText("SPELLS")

                lab:SetFont("Trebuchet24")

                lab:SizeToContents()


                for k, v in pairs(hp_mstick.GetMagic()) do

                    mg:AddLine(v.name)

                end


                mg.OnClickLine = function(parent, line, isselected)

                    spellmenu:Close()

                    spellmenu = nil


                    for k,v in ipairs(player.GetAll()) do

                            for j,z in ipairs(v:GetWeapons()) do
                                if z:GetPrintName() == "Wand" or z:GetPrintName() == "Mind Wand" or z:GetPrintName() == "Magma Wand" or z:GetPrintName() == "The Elder Wand"then
                                    net.Start("setMagicTypeHP")

                                    net.WriteEntity(z)

                                    net.WriteString(line:GetValue(1))

                                    net.SendToServer()
                                end
                            end

                    end
                end


                //lab


            end
end

hook.Add("Think","No Cooldown",function()
    for j,z in ipairs(LocalPlayer():GetWeapons()) do
                        if z:GetPrintName() == "Wand" or z:GetPrintName() == "Mind Wand" or z:GetPrintName() == "Magma Wand" or z:GetPrintName() == "The Elder Wand" then
                            z:SetNextPrimaryFire(CurTime()-1)
                        end

                    end
end)

net.Receive("sendRightClickMenu", function()

    local spellsTable = {}
    for k,v in ipairs(hp_mstick.GetMagic()) do
        table.insert(spellsTable, v.name)
    end


    local wandweapon = LocalPlayer():GetActiveWeapon()

            if not playermenu then

                wandweapon.Favourite = {}


                local spells = hp_mstick.GetMagic()


                for k, v in pairs(spells) do

                    if file.Exists("harry_potter/" .. v.name .. ".txt", "DATA") then

                        table.insert(wandweapon.Favourite, v.name)

                    end

                end


                playermenu = vgui.Create("DFrame")

                playermenu:SetPos(ScrW()*0.75 , ScrH()*0.45)

                playermenu:SetSize(300, 390)

                playermenu:SetTitle(" ")

                playermenu:ShowCloseButton(false)


                local alph = 0


                playermenu:MakePopup()

                //playermenu:SetDraggable(false)

                playermenu.Paint = function()

                    if playermenu and IsValid(playermenu) then

                        if alph < 200 then alph = alph + 3 end


                        local w = playermenu:GetWide()

                        local t = playermenu:GetTall()


                        draw====undedBox(0, 0, 0, w, t, Color(0, 0, 0, alph))

                    end

                end


                local btn = vgui.Create("DButton", playermenu)

                btn:SetPos(255, 10)

                btn:SetSize(40, 20)

                btn:SetText("X")

                btn:SetFont("MagicStickFont2")

                btn:SetColor(Color(255, 255, 255))

                btn.DoClick = function()

                    if playermenu and IsValid(playermenu) then playermenu:Close() playermenu = nil else chat_error_hp("Window is not valid!") end

                end

                btn.Paint = function()

                    local w = btn:GetWide()

                    local t = btn:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(255, 100, 100, alph * 0.7))

                end


                local mg = vgui.Create("DListView", playermenu)

                mg:SetPos(12.5, 35)

                mg:SetSize(275, 330)

                mg:AddColumn("Spell name")
                mg:AddColumn("Level")

                mg.Paint = function()

                    local w = mg:GetWide()

                    local t = mg:GetTall()


                    draw====undedBox(0, 0, 0, w, t, Color(200, 250, 255, alph * 0.5))

                end


                //lab

                --local num = 0


            --  for k, v in pairs(hp_mstick.GetMagic()) dow

                --  if not v.nodefault then num = num + 1 end

            --  end


                local lab = vgui.Create("DLabel", playermenu)

                lab:SetPos(125, 365)

                lab:SetText("SPELLS")

                lab:SetFont("Trebuchet24")

                lab:SizeToContents()


                for k, v in pairs(hp_mstick.GetMagic()) do

                    mg:AddLine(v.name, v.lvl)

                end

                mg:SortByColumn(2)


                mg.OnClickLine = function(parent, line, isselected)

                    playermenu:Close()

                    playermenu = nil


                    if not wandweapon.Weapon or not wandweapon then return end


                    net.Start("setMagicTypeHP")

                        net.WriteEntity(wandweapon)

                        net.WriteString(line:GetValue(1))

                    net.SendToServer()

                end


                //lab


                    if not wandweapon.Weapon or not wandweapon then return end


                    if not wandweapon.Weapon or not wandweapon then return end


            end
end)