//humilde ejemplo:

new Tarjeta_de_Creditos[MAX_PLAYERS];

#define InclementarSaldo(%0,%1) Tarjeta_de_Creditos[%0] += %1
native InclementarSaldo(playerid,cantidad);

#define PagarConTarjeta(%0,%1) Tarjeta_de_Creditos[%0] -= %1
native PagarConTarjeta(playerid,cantidad);

#define SaldoTarjeta(%0) Tarjeta_de_Creditos[%0]
native SaldoTarjeta(playerid);

COMMAND:credito(playerid, params[])
    new dinero;
    if(sscanf(params, "d", dinero)) return SendClientMessage(playerid, -1, "escribe el comando /credito [cantidad de dinero]");
    InclementarSaldo(playerid,dinero);
    SendClientMessage(playerid, -1, "haz obtenido una cierta cantidad de dinero para tu tarjeta de crйdito");
    return true;
}

COMMAND:comprar(playerid, params[])
    if(SaldoTarjeta(playerid) >= 1){
        PagarConTarjeta(playerid,1000);
        SendClientMessage(playerid, -1, "haz comprado algo por 1000$ con tu tarjeta de crйditos");
    }else{
        SendClientMessage(playerid, -1, "tu tienes saldo insuficiente en tu tarjeta de crйdito");
    }
    return true;
}

COMMAND:cajero(playerid, params[])
    new data[144];
    if(SaldoTarjeta(playerid) >= 1){
        format(data,sizeof(data),"tu tienes %d de saldo en tu tarjeta de crйdito",SaldoTarjeta(playerid));
        SendClientMessage(playerid, -1, data);
    }else{
        SendClientMessage(playerid, -1, "tu tienes saldo insuficiente en tu tarjeta de crйdito");
    }
    return true;
}