Mine

if string.find(say, "$givemoney") == 1 then
	local moneytable = string.Explode(" ",say)
	local AMOUNT = moneytable[2]
	local taker = moneytable[3]
	if !AMOUNT then return end
	if !tonumber(taker) then return end
	if taker < 0 then return end
	if !tonumber(AMOUNT) then 
		ply:PrintMessage(3,"That is not a valid number.")
	elseif tonumber(AMOUNT) < 1 then 
		ply:PrintMessage(3,"That number is too low.")
	elseif tonumber(AMOUNT) > 0 and tonumber(AMOUNT) <= tonumber(ply:GetNWString("money")) then
		for i,v in pairs(player.GetAll()) do
			if tonumber(v:UserID()) == tonumber(taker) then
				ply:SetNWString("money",tonumber(ply:GetNWString("money")) - AMOUNT)
				v:SetNWString("money",tonumber(v:GetNWString("money")) + AMOUNT)
				SaveData(savestuff(ply))
				SaveData(savestuff(v))
				ply:PrintMessage(3,"You have given "..v:Nick().." $"..AMOUNT)
				v:PrintMessage(3,ply:Nick().." has given you $"..AMOUNT)
			end
		end
	end
end
hook.Add( "PlayerSay", "playerchat", playerchat );