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