Blue's Unboxing Exploit

[bobby460]

Hello everyone! I'm somewhat new to posting on this community, but that aside, I'm looking for some help. I have a bit of an idea as to what I want, but I have no idea how to accomplish it. If anyone who is skilled in lua could assist me in the creation of a specific exploit, I would be very happy. I have a working source, but I want it to make me unbox specific weapons instead of money. I'm not sure if it matters, but the guns I wish to unbox are called the BINACHI AP and the K-Volt. Here is the source if anyone is willing to help.

NOMORE = nil
NONUM = nil
CMG = 0
	net.Receive("InitSpin" , function()

		local data = net.ReadTable()
		REKT = data
		
		if TYPE == 1 then
			print("MONEY")
			table.foreach(REKT, someFunctionMoney)
			TYPE = 0
		elseif TYPE == 2 then
			print("PRINTER")
			table.foreach(REKT, someFunctionPrinter)
			TYPE = 0
		elseif TYPE == 3 then
			print("HEAL")
			table.foreach(REKT, someFunctionHeal)
			TYPE = 0
		end
	end)
-----------------------------------------
function someFunctionMoney(k,v)
	local num = k
	local money = v.moneyAmount
	if money == nil then
		print("NIL")
	elseif money >= 150000 then
		net.Start("FinishedUnbox")
			net.WriteInt(num , 16)
		net.SendToServer()
	elseif money >= 10000 then
		NOMORE = num
			net.Start("FinishedUnbox")
				net.WriteInt(NOMORE , 16)
			net.SendToServer()	
	end
end

concommand.Add("CrateMeMoney", function()
		TYPE = 1
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenCrate")
		net.SendToServer()
end)

concommand.Add("CrateOthersMoney", function()
		TYPE = 1
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenGiftCrate")
		net.SendToServer()
end)

concommand.Add("CrateMeMoney_SPAM", function()
		timer.Remove("CrateMeMoney_SPAM")
end)

concommand.Add("CrateOthersMoney_SPAM", function()
		timer.Remove("CrateOthersMoney_SPAM")
end)
---------------------------------------
function someFunctionPrinter(k,v)
	print("GOT IT")
	local num = k
	local printer = v.entityName
	if printer == nil then
		print("NIL")
	elseif printer == "k_printer_t5" then
		print("k5")
		net.Start("FinishedUnbox")
			net.WriteInt(num , 16)
		net.SendToServer()
	elseif printer == "k_printer_t4" then
		print("k4")
		NOPRINT = 4
		NONUM = num
	elseif printer == "k_printer_t3" then
		print("k3")
		if NOMORE == nil then
			NOMORE = 3
		elseif NOMORE == 4 then
			print("GOT A T4")
		end
		NONUM = num
	end
	if num == 99 then
		print("END")
		if NOMORE == nil then
			print("nil")
		else
			print(NOMORE)
			print(NONUM)
			net.Start("FinishedUnbox")
				net.WriteInt(NONUM , 16)
			net.SendToServer()	
		end
	end
end

concommand.Add("CrateMePrinter", function()
		TYPE = 2
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenCrate")
		net.SendToServer()
end)

concommand.Add("CrateOthersPrinter", function()
		TYPE = 2
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenGiftCrate")
		net.SendToServer()
end)

concommand.Add("CrateMePrinter_SPAM", function()
	if CMMS == nil or 0 then
		CMMS = 1
		timer.Create("CrateMePrinter_SPAM", 1, 0, function()
			RunConsoleCommand("CrateMePrinter")
		end)
	elseif CMMS == 1 then
		CMMS = 0
		timer.Remove("CrateMePrinter_SPAM")
	end
end)

concommand.Add("CrateOthersPrinter_SPAM", function()
	if CMMO == nil or 0 then
		CMMO = 1
		timer.Create("CrateOthersPrinter_SPAM", 1, 0, function()
			RunConsoleCommand("CrateOthersPrinter")
		end)
	elseif CMMO == 1 then
		CMMO = 0
		timer.Remove("CrateOthersPrinter_SPAM")
	end
end)
---------------------------------------
function someFunctionHeal(k,v)
	local num = k
	local health = v.healAmount
	if health == nil then
		print("NIL")
	elseif health == 100 then
		print("100")
			net.Start("FinishedUnbox")
				net.WriteInt(k , 16)
			net.SendToServer()	
	elseif health >= 50 then
		print(">=50")
		NOMOREHP = 50
		NONUMHP = k
	elseif health >= 25 then
		if NOMORE > 50 then
			print("GOT 50 HP")
		else
		NOMOREHP = 25
		NONUMHP = k
		end
	end
	if num == 99 then
		print("END")
		if NOMOREHP == nil then
			print("nil")
		else
			print(NOMOREHP)
			print(NONUMHP)
			net.Start("FinishedUnbox")
				net.WriteInt(NONUMHP , 16)
			net.SendToServer()	
		end
	end
end

concommand.Add("CrateMeHealth", function()
		TYPE = 3
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenCrate")
		net.SendToServer()
end)

concommand.Add("CrateOthersHealth", function()
		TYPE = 3
		net.Start("BuyCrate")
		net.SendToServer()
		net.Start("BuyKey")
		net.SendToServer()
		net.Start("OpenGiftCrate")
		net.SendToServer()
end)

concommand.Add("CrateMeHealth_SPAM", function()
	if CMMS == nil or 0 then
		CMMS = 1
		timer.Create("CrateMeHealth_SPAM", 1, 0, function()
			RunConsoleCommand("CrateMeHealth")
		end)
	elseif CMMS == 1 then
		CMMS = 0
		timer.Remove("CrateMeHealth_SPAM")
	end
end)

concommand.Add("CrateOthersHealth_SPAM", function()
	if CMMO == nil or 0 then
		CMMO = 1
		timer.Create("CrateOthersHealth_SPAM", 1, 0, function()
			RunConsoleCommand("CrateOthersHealth")
		end)
	elseif CMMO == 1 then
		CMMO = 0
		timer.Remove("CrateOthersHealth_SPAM")
	end
end)

concommand.Add("CrateMeGod", function()
	print("YEAH")
	print(CMG)
	if CMG == 0 then
		print("CMG = 0")
		print(CMG)
		CMG = 1
		timer.Create("GodModeBitch", 1, 0, function()
			if LocalPlayer():Health() <= 99 then
				RunConsoleCommand("CrateMeHealth")
			end
		end)
	else
		print("CMG = 1")
		timer.Remove("GodModeBitch")
		CMG = 0
	end
end)

credit to ShitFucks

[GmodPlayer]

i can help you add me on skype

[Yemiez]

Moved to help