MPGHThe Dark Arts
RegisterLog in

ExclamationUltimate [SBS] Hogwarts RP EXPLOIT

Posts 1–15 of 28 · Page 1 of 2
Ultimate [SBS] Hogwarts RP EXPLOIT
This a hack that uses a exploit that allows you to do alot of funny things.


1. Use every spell for yourself
2. Change Spell of specific Player
3. List all spells in console

bind [KEY] openspell
to open the menu

Code:
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
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
Have Fun, and screw up the server.

Love
Alan Notter
#1 · edited ·
Frist,. testing now
#2 ·
Anyone have the IP for this server? looks pretty nice
#3 ·
74.91.115.62:27015 here ya go
#4 ·
Thanks <3

//2short
#5 ·
Is it working on other servers ?
#6 ·
[ERROR] lua/hogwarts.lua:697: '<eof>' expected near 'end'
1. unknown - lua/hogwarts.lua:0

Gives me an error
#7 ·
^ Agree, how the fuck did we use this

Edit : Broken
Edit : Working (Permabanned kappa)
#9 · edited ·
I don't know much about lua but I'm pretty sure that the **** aren't supposed to be in the code draw****undedBox , and there is a problem with the end at line 697. I fixed the draw****undedBox part ,but I have no idea how to fix the eof expected near end (line 697).Any help would be appreciated.
#10 ·
Quote Originally Posted by SKYTHEKIDMINI View Post
I don't know much about lua but I'm pretty sure that the **** aren't supposed to be in the code draw****undedBox , and there is a problem with the end at line 697. I fixed the draw****undedBox part ,but I have no idea how to fix the eof expected near end (line 697).Any help would be appreciated.
Try this : pastebin.com/MgG1FuYT
#11 ·
Quote Originally Posted by yorik100 View Post
Try this : pastebin.com/MgG1FuYT
Yeah heads up to anyone that posts code post it with a pastebin or download because mpgh messes code up.
But now I get [ERROR] lua/spells.lua:19: '=' expected near '==' ._.
#12 ·
Quote Originally Posted by SKYTHEKIDMINI View Post
Yeah heads up to anyone that posts code post it with a pastebin or download because mpgh messes code up.
But now I get [ERROR] lua/spells.lua:19: '=' expected near '==' ._.
http://pastebin.com/KGRgjLGk
#13 · edited ·
Ex-mod on SBS here (the Hogwarts server). I was using these scripts on the server, it's so fun to fuck up the server because to be completely honest, the server is so fucking corrupt and cancerous. The owner/co-owner Vitiate is a power tripping child that bans people for minor offences, and doesn't give a shit about the server and just straight up abuses while he is on. The actual owner Guy also keeps all the donation money to himself and probably uses only a very small fraction of it on the server itself. The server has made at least $2000 profit from donations and he's only used $200 of it (if that) on the server itself, the rest he pockets, so he can get fucked.
I am tempted to make a YouTube video tutorial on how to script on the server so you guys can all go on there and fuck it up as much as possible, because the server honestly needs to hurry up and die. Tell me if you'd like me to do that or not.

Cheers
#14 · edited ·
Hey Retschlag

I think you totally should make a youtube video, just the thought of people messing up the server using my script gives me joy.
It's pretty embarrassing to get your server hacked by an 14 year old kid that just started lua. I was inspired to make a script when someone gave the heal spell to people. First I wanted to fix it and coded an soulution, which would ban every hacker, I wrote the guy and gave him the code but he said people could use it to give themselves admin rights, but that just proved that he knew s**t about gmod lua (RunConsoleCommand() on a serverside script). When I got banned on my alt account I told him more hackers are going to come, and so it is. *evil laugh*

By the way, when did you stop being a moderator?

Love
-Allan
#15 ·
Posts 1–15 of 28 · Page 1 of 2

Post a Reply

Similar Threads

Garry's Mod Server Exploits & HelpHogwarts rp exploitTLtl1 17 Garry's Mod Server Exploits & HelpHogwarts RP Spell exploitHUhungerjohnson 38 GeneralNew Windows ExploitDave84311Dave84311 6 Hack RequestsReq: Torncity hacks/bugs/exploits.dakiddydakiddy 39 General GamingSoul of the Ultimate NationVIvir2000 5

Tags for this Thread

None

Need help?