SA-MP Forums Archive
[PEDIDO] Comando /Transferir [ID] [QUANTIA] - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Português/Portuguese (https://sampforum.blast.hk/forumdisplay.php?fid=34)
+---- Thread: [PEDIDO] Comando /Transferir [ID] [QUANTIA] (/showthread.php?tid=324145)


[PEDIDO] Comando /Transferir [ID] [QUANTIA] - Delete_ - 08.03.2012

Ja usei vбrios que eu vi mais nгo funfo, to procurando um comando que transfere uma certa quantia de dinheiro de um player para outro player (do char), de proferencia em:

pawn Код:
COMMAND:transferir(playerid, params[])
dou +rep

Re: [PEDIDO] Comando /Transferir [ID] [QUANTIA] - GuiihCamargo - 08.03.2012

Nгo se esquessa, vocк nunca pode por os comandos zcmd dentro do:
pawn Код:
public OnPlayerCommandText
pawn Код:
COMMAND:transferir(playerid, params[]) {
new giveplayerid;
new moneys;
new giveplayer[MAX_PLAYER_NAME];
new sendername[MAX_PLAYER_NAME];
new playermoney2;
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, Vermelho, "Uso: /transferir [id-do-jogador] [quantidade]");
return 1;
}
giveplayerid = strval(tmp);
tmp = strtok(cmdtext, idx);
if(!strlen(tmp)) {
SendClientMessage(playerid, Vermelho, "Uso: /transferir [id-do-jogador] [quantidade]");
return 1;
}
moneys = strval(tmp);
if (IsPlayerConnected(giveplayerid)) {
GetPlayerName(giveplayerid, giveplayer, sizeof(giveplayer));
GetPlayerName(playerid, sendername, sizeof(sendername));
playermoney2 = GetPlayerMoney(playerid);
if (moneys > 0 && playermoney2 >= moneys) {
GivePlayerMoney(playerid, (0 - moneys));
GivePlayerMoney(giveplayerid, moneys);
format(string, sizeof(string), "(INFO) Vocк transferiu para %s (ID:%d) a importвncia de $%d.", giveplayer,giveplayerid, moneys);
SendClientMessage(playerid, Amarelo, string);
format(string, sizeof(string), "(INFO) Vocк recebeu $%d de %s (ID:%d).", moneys, sendername, playerid);
SendClientMessage(giveplayerid, Amarelo, string);
} else {
SendClientMessage(playerid, Amarelo, "(INFO) Valor invбlido.");
}
} else {
format(string, sizeof(string), "(INFO) %d nгo estб online.", giveplayerid);
SendClientMessage(playerid, Amarelo, string);
}
return 1;
}


Re: [PEDIDO] Comando /Transferir [ID] [QUANTIA] - paulor - 08.03.2012

pawn Код:
COMMAND:transferir(playerid, params[])
{
    new giveid, value, str[128], Nome[MAX_PLAYER_NAME];
    if(sscanf(params, "ui", giveid, value))
        return SendClientMessage(playerid, -1, "Use /transferir [ID/Nome] [Valor]");

    if (GetPlayerMoney(playerid) < value)
        return SendClientMessage(playerid, -1, "Voce nгo tem esse dinheiro!");

    GivePlayerMoney(playerid, -value);
    GivePlayerMoney(giveid, value);
    GetPlayerName(giveid, Nome, MAX_PLAYER_NAME);
    format(str,128,"BANCO Vocк transferiu R$%d para o jogador %s.", value, Nome);
    SendClientMessage(playerid, -1, str);
    GetPlayerName(playerid, Nome, MAX_PLAYER_NAME);
    format(str,128,"BANCO %s transferiu R$%d para voce.", Nome, value);
    SendClientMessage(giveid, -1, str);
    return 1;
}