[Pedido] Fs Vendedor de Drogas
#1

to procurando um sistema de emprego nesse sistema teria apenas 2 empregos Vendedor de Drogas e de Armas esse de armas n precisa pegar materials. mais n achei entao se alguem pode fazer um para min apenas com os

comandos:

(drogas)
Tipos de Drogas:
Crack, Oxi, Maconha, Cocaina
/venderdrogas [id] [quantidade] [preзo]
/pegardrogas [quantidade]
/esconderdrogas [quantidade]
/usardrogas [quantidade]

(armas)
/venderarma [id] [muniзгo] [preзo]


obrigado desde ja dou reep+ pra quem me ajudar nessa

OBS : estou pidindo sу um favor ninguem й obrigado a fazer e se fizerem fico mto grato!
Reply
#2

Bom, como estou sem nada para fazer, crie uma base para vocк.
Na verdade criei um quase completo, mas bem simples, sу para vocк da uma olhada e saber como se faz.
Nгo o testei, portanto vocк poderб encontrar alguns erros, mais nada que nгo seja solucionavel.
Pastebin
pawn Код:
#include <a_samp>
#include <zcmd>
#include <sscanf2>

new TDrogas[MAX_PLAYERS], TArmas[MAX_PLAYERS], Oxi[MAX_PLAYERS], Crack[MAX_PLAYERS], Cocaina[MAX_PLAYERS], Maconha[MAX_PLAYERS];

CMD:virartdrogas(playerid)
{
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante de drogas. ( /perder )");
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante( Armas )( /perder )");
    TDrogas[playerid] = 1;
    return true;
}

CMD:virartarmas(playerid)
{
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante de armas ( /perder )");
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante ( Drogas ) ( /perder )");
    TArmas[playerid] = 1;
    return true;
}

CMD:perder(playerid)
{
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк perdeu seu cargo no morro!"); TArmas[playerid] = 0;
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк perdeu seu cargo no morro!"); TDrogas[playerid] = 0;
    return true;
}

CMD:pegardrogas(playerid, params[])
{
    if(TDrogas[playerid] != 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de drogas.");
    new tipo, quantidade;
    if(sscanf(params,"dd",tipo,quantidade)) return SendClientMessage(playerid,-1,"Utilize: /pegardrogas <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha> <Quantidade>");
    switch(tipo)
    {
        case 1: Oxi[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou Oxis! (/minhasdrogas)");
        case 2: Crack[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou Crack! (/minhasdrogas");
        case 3: Cocaina[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou cocaina! (/minhasdrogas");
        case 4: Maconha[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou maconha! (/minhasdrogas");
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:venderdrogas(playerid, params[])
{
    if(TDrogas[playerid] != 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de drogas.");
    new id,tipo,qt,preco, cells[128];
    if(sscanf(params,"iddd",id, tipo, qt, preco)) return SendClientMessage(playerid,-1,"Utilize: /venderdrogas <ID> <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha> <Quantidade> <Preзo>");
    switch(tipo)
    {
        case 1: Oxi[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Oxi por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 2: Crack[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Crack por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 3: Cocaina[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Cocaina por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 4: Maconha[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Maconha por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:usardroga(playerid, params[])
{
    if(Oxi[playerid] < 1 || Crack[playerid] < 1 || Cocaina[playerid] < 1 || Maconha[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem drogas.");
    new tipo;
    if(sscanf(params,"d",tipo)) return SendClientMessage(playerid,-1,"Utilize: /usardroga <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha>");
    switch(tipo)
    {
        case 1:
                if(Oxi[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Oxi!");
                Oxi[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando Oxi.");
        case 2:
                if(Crack[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Crack!");
                Crack[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando Crack.");
        case 3:
                if(Cocaina[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Cocaina!");
                Cocaina[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando cocaina.");
        case 4:
                if(Maconha[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Maconha!");
                Maconha[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando maconha.");
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:venderarma(playerid, params[])
{
    new id, idarma, municao, preco, cells[128];
    if(TArmas[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de armas!");
    if(sscanf(params,"iddd",id, idarma, municao, preco)) return SendClientMessage(playerid,-1,"Utilize: /venderarma <ID><ID ARMA><MUNIЗГO><PRECO>");
    GivePlayerWeapon(id, idarma, municao);
    GivePlayerMoney(id, - preco);
    format(cells,128,"O traficante %s te vendeu uma arma id %d por R$ %d.",Nome(playerid),idarma,preco);
    SendClientMessage(id,-1,cells);
    return true;
}

stock Nome(playerid)
{
    new Name[MAX_PLAYER_NAME];
    GetPlayerName(playerid, Name, MAX_PLAYER_NAME);
    return Name;
}
Reply
#3

Quote:
Originally Posted by AFerreira
Посмотреть сообщение
Bom, como estou sem nada para fazer, crie uma base para vocк.
Na verdade criei um quase completo, mas bem simples, sу para vocк da uma olhada e saber como se faz.
Nгo o testei, portanto vocк poderб encontrar alguns erros, mais nada que nгo seja solucionavel.
Pastebin
pawn Код:
#include <a_samp>
#include <zcmd>
#include <sscanf2>

new TDrogas[MAX_PLAYERS], TArmas[MAX_PLAYERS], Oxi[MAX_PLAYERS], Crack[MAX_PLAYERS], Cocaina[MAX_PLAYERS], Maconha[MAX_PLAYERS];

CMD:virartdrogas(playerid)
{
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante de drogas. ( /perder )");
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante( Armas )( /perder )");
    TDrogas[playerid] = 1;
    return true;
}

CMD:virartarmas(playerid)
{
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante de armas ( /perder )");
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк jб й um traficante ( Drogas ) ( /perder )");
    TArmas[playerid] = 1;
    return true;
}

CMD:perder(playerid)
{
    if(TArmas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк perdeu seu cargo no morro!"); TArmas[playerid] = 0;
    if(TDrogas[playerid] == 1) return SendClientMessage(playerid,-1,"Vocк perdeu seu cargo no morro!"); TDrogas[playerid] = 0;
    return true;
}

CMD:pegardrogas(playerid, params[])
{
    if(TDrogas[playerid] != 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de drogas.");
    new tipo, quantidade;
    if(sscanf(params,"dd",tipo,quantidade)) return SendClientMessage(playerid,-1,"Utilize: /pegardrogas <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha> <Quantidade>");
    switch(tipo)
    {
        case 1: Oxi[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou Oxis! (/minhasdrogas)");
        case 2: Crack[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou Crack! (/minhasdrogas");
        case 3: Cocaina[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou cocaina! (/minhasdrogas");
        case 4: Maconha[playerid] += quantidade; SendClientMessage(playerid,-1,"Vocк pegou maconha! (/minhasdrogas");
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:venderdrogas(playerid, params[])
{
    if(TDrogas[playerid] != 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de drogas.");
    new id,tipo,qt,preco, cells[128];
    if(sscanf(params,"iddd",id, tipo, qt, preco)) return SendClientMessage(playerid,-1,"Utilize: /venderdrogas <ID> <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha> <Quantidade> <Preзo>");
    switch(tipo)
    {
        case 1: Oxi[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Oxi por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 2: Crack[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Crack por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 3: Cocaina[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Cocaina por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        case 4: Maconha[id] += qt; format(cells,128,"* O traficante %s te vendeu %s de Maconha por R$ %d",Nome(playerid), qt, preco); SendClientMessage(id,-1, cells); GivePlayerMoney(id,-preco);
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:usardroga(playerid, params[])
{
    if(Oxi[playerid] < 1 || Crack[playerid] < 1 || Cocaina[playerid] < 1 || Maconha[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem drogas.");
    new tipo;
    if(sscanf(params,"d",tipo)) return SendClientMessage(playerid,-1,"Utilize: /usardroga <Tipo: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha>");
    switch(tipo)
    {
        case 1:
                if(Oxi[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Oxi!");
                Oxi[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando Oxi.");
        case 2:
                if(Crack[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Crack!");
                Crack[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando Crack.");
        case 3:
                if(Cocaina[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Cocaina!");
                Cocaina[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando cocaina.");
        case 4:
                if(Maconha[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo tem Maconha!");
                Maconha[playerid] --; SendClientMessage(playerid,-1,"Vocк estб usando maconha.");
        default: SendClientMessage(playerid,-1,"Tipos: 1 - Oxi, 2 - Crack, 3 - Cocaina, 4 - Maconha");
    }
    return true;
}

CMD:venderarma(playerid, params[])
{
    new id, idarma, municao, preco, cells[128];
    if(TArmas[playerid] < 1) return SendClientMessage(playerid,-1,"Vocк nгo й um traficante de armas!");
    if(sscanf(params,"iddd",id, idarma, municao, preco)) return SendClientMessage(playerid,-1,"Utilize: /venderarma <ID><ID ARMA><MUNIЗГO><PRECO>");
    GivePlayerWeapon(id, idarma, municao);
    GivePlayerMoney(id, - preco);
    format(cells,128,"O traficante %s te vendeu uma arma id %d por R$ %d.",Nome(playerid),idarma,preco);
    SendClientMessage(id,-1,cells);
    return true;
}

stock Nome(playerid)
{
    new Name[MAX_PLAYER_NAME];
    GetPlayerName(playerid, Name, MAX_PLAYER_NAME);
    return Name;
}
vou testar e dou um Edit

@Edit

Deu esses 5 erros
pawn Код:
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4319) : error 002: only a single statement (or expression) can follow each "case"
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4319) : warning 215: expression has no effect
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4320) : error 014: invalid statement; not in switch
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4320) : warning 215: expression has no effect
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4320) : error 001: expected token: ";", but found ":"
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4320) : error 029: invalid expression, assumed zero
C:\Documents and Settings\Fernando\Desktop\BPLV2.pwn(4320) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664          Copyright (c) 1997-2006, ITB CompuPhase


5 Errors.
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)