RegisterChatCommand("!setmoney", function(ply, args)
	if( ply:IsAdmin() ) then
		local pname = args[1]
		local target = FindPlayer(pname)
		local amount = args[2]
		if !amount then ply:PrintSyntax("!setmoney <Spielername> <Höhe der zu setztenden Credits>") return end
	    if pname == nil then ply:PrintErrorMsg("Spieler nicht gefunden") return end
		if !isnumber(amount) then ply:PrintErrorMsg("Ungültige Eingabe") return end
		target:SetCredits(amount)
		target:PrintGeldbeutelMsg("+",amount,"einer höheren Macht")
	end
end)