VIP script doesn't work correctly? Lets you use all 3? Please help!

My VIP script is supposed to work like this: A person buys a VIP, and it lets them use that VIP.. they are divided into sections for each VIP but it's letting them use all of the VIP's even if they only own one?

At the top of the script is this:

				local p = script.Parent.Parent.Parent.Parent.Parent
				repeat wait() until p.Character
				local char = p.Character

and the rest:

				if game.ReplicatedStorage.Game_Tools:FindFirstChild(suit.Tools.Value) then
					for _,v in pairs(game.ReplicatedStorage.Game_Tools[suit.Tools.Value]:GetChildren()) do
						if v:IsA'HopperBin' or v:IsA'Tool' then
							if p:FindFirstChild'Backpack' then
								v:clone().Parent = p.Backpack
							end 
						end 
					end
				else
					---So VIP's work.
					if c.VipType.Value == 1 and GPS:PlayerOwnsAsset(p, script.Parent.Rex.Value) then
						for _,v in pairs(game.ReplicatedStorage.Game_Tools[suit.Tools.Value]:GetChildren()) do
							if v:IsA("HopperBin") or v:IsA("Tool") then
								v:clone().Parent = p.Backpack
							end 
						end
					end 
					
					if c.VipType.Value == 2 and GPS:PlayerOwnsAsset(p, script.Parent.Sat.Value) then
						for _,v in pairs(game.ReplicatedStorage.Game_Tools[suit.Tools.Value]:GetChildren()) do
							if v:IsA("HopperBin") or v:IsA("Tool") then
								v:clone().Parent = p.Backpack
							end
						end 
					end
					
					if c.VipType.Value == 3 and GPS:PlayerOwnsAsset(p, script.Parent.Fusion.Value) then
						for _,v in pairs(game.ReplicatedStorage.Game_Tools[suit.Tools.Value]:GetChildren()) do
							if v:IsA("HopperBin") or v:IsA("Tool") then
								v:clone().Parent = p.Backpack
							end
						end 
					end 
					
					if c.VipType.Value == 4 and GPS:PlayerOwnsAsset(p, script.Parent.Rex.Value) and GPS:PlayerOwnsAsset(p, script.Parent.Sat.Value) then
						for _,v in pairs(game.ReplicatedStorage.Game_Tools[suit.Tools.Value]:GetChildren()) do
							if v:IsA("HopperBin") or v:IsA("Tool") then
								v:clone().Parent = p.Backpack
							end
						end
					end 
if suit then
	print('Error! Missing tools for: '..c.Name)
else
	print('Error! Missing suit for: '..c.Name)
end
end
wait(0.15)
db.Value = false
			end 
		end) 
	end
end
end