function PayPlayerToPlayer ( source, commandName, target, amount )
     tPlayer = getPlayerFromName ( tostring(target) )
        if tPlayer and amount then
     CurrentMoney = tonumber(getPlayerMoney ( source ))
     tMoney = getPlayerMoney ( tPlayer )
        if ( tPlayer ~= false ) then
            if tonumber(CurrentMoney) > tonumber(amount)  then
                if ( player ~= false ) then
                    givePlayerMoney ( tPlayer, amount )
                    takePlayerMoney ( source, amount )
                    outputChatBox ( " " .. thePlayer .. " gave you " .. amount .. " ", 0, 255, 0, target )
                end
            end
        end
    end
end
addCommandHandler ("pay", PayPlayerToPlayer)