SA-MP Forums Archive
[Pedido] Comando pra adm - 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 pra adm (/showthread.php?tid=502411)


Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

Galera preciso de um comando igual a esse:

pawn Code:
new string[256];
    new cmd[128], idx; //
    new tmp[128]; // 
    cmd = strtok(cmdtext, idx);// 

    CMD:setcar(playerid, params[]) {
    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "teste");
    new plid, modeloid,cor1,cor2;

    tmp = strtok(cmd, idx);
    if(!strlen(tmp)){
        SendClientMessage(playerid, vermelho, "[Info-Insano]: /setcar [PlayerID] [ModeloID] [Cor1] [Cor2]");
        return 1;
    }
    plid = strval(tmp);
    //======================================================================
    tmp = strtok(cmd, idx);
    if(!strlen(tmp)) {
        SendClientMessage(playerid, vermelho, "[Info-Insano]: /setcar [PlayerID] [ModeloID] [Cor1] [Cor2]");
        return 1;
    }
    modeloid = strval(tmp);
    //======================================================================
    tmp = strtok(cmd, idx);
    if(!strlen(tmp)) {
        SendClientMessage(playerid, vermelho, "[Info-Insano]: /setcar [PlayerID] [ModeloID] [Cor1] [Cor2]");
        return 1;
    }
    cor1 = strval(tmp);
    //======================================================================
    tmp = strtok(cmd, idx);
    if(!strlen(tmp)) {
        SendClientMessage(playerid, vermelho, "[Info-Insano]: /setcar [PlayerID] [ModeloID] [Cor1] [Cor2]");
        return 1;
    }
    cor2 = strval(tmp);
    //======================================================================
    if(!IsPlayerConnected(plid)){
        SendClientMessage(playerid, vermelho, "[Info-Insano]:  Jogador nгo estб conectado!");
        return 1;
    }
    if(modeloid >= 400 && modeloid <= 611){
        if(CriarVeiculoPlayer(playerid,plid,modeloid,cor1,cor2)){
            SendClientMessage(playerid, verde, "[Info-Insano]: Veiculo Criado e Salvo com sucesso!");
            new msg[256];
            format(msg,256,"[Info-RedBull]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!",PlayerNome(playerid));
            SendClientMessage(plid, verde, msg);
            }else{
            SendClientMessage(playerid, verde, "[Info-Insano]: Erro ao criar o veiculo!");
        }
        return 1;
        }else{
        SendClientMessage(playerid, vermelho, "[Info-Insano]: Modelo ID Incorreto! (400-611)");
        return 1;
    }
}
return 0;
}
Preciso dele completo em ZCMD , agradeзo desde jб!

Re: Comando pra adm - VeNuZ_ - 23.03.2014

Acerio ? Nao tens maos para o fazer ?

Em vez de quote use pawn
Exemplo: [pawn*][/pawn]
Sem a *

Re: Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

Cara se eu soubesse fazer obviamente que nгo iria pedir , e vб aprender a escrever ^^.. e vlw pelo cуdigo pawn.

Re: Comando pra adm - Douglas_prt - 23.03.2014

Quote:
Originally Posted by iD4N0N3_.x[X]x
View Post
Cara se eu soubesse fazer obviamente que nгo iria pedir , e vб aprender a escrever ^^.. e vlw pelo cуdigo pawn.
Tudo o que precisar de saber para fazer o comando estб aqui:

https://sampforum.blast.hk/showthread.php?tid=277842

Re: Comando pra adm - VeNuZ_ - 23.03.2014

Mais fбcil Vc usar sscanf + zcmd.

Base:
pawn Code:
CMD:setcar(playerid, params[])
{
     new id, car, cor[2];
     If(!IsPlayerAdmin(playerid)) return 1;
     If(sscanf(params, "uinn", id, car,  cor[0], cor[1])) return 1;
     If(!IsPlayerConnected(id)) return 1;     
if(car >= 400 && car <= 611){
* * * * if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1])){
* * * * * * SendClientMessage(playerid, verde, "[Info-Insano]: Veiculo Criado e Salvo com sucesso!");
* * * * * * new msg[256];
* * * * * * format(msg,256,"[Info-RedBull]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!",PlayerNome(playerid));
* * * * * * SendClientMessage(id, verde, msg);
* * * * * * }else{
* * * * * * SendClientMessage(playerid, verde, "[Info-Insano]: Erro ao criar o veiculo!");
* * * * 
* * * * }else{
* * * * SendClientMessage(playerid, vermelho, "[Info-Insano]: Modelo ID Incorreto! (400-611)");
}
* * * * return 1;
* * }
Cуdigo mal indentificado e pode conter erros, foi feito no tlm.

Re: Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

pawn Code:
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(550) : error 029: invalid expression, assumed zero
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(550) : error 017: undefined symbol "cmd_setcar"
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(550) : error 029: invalid expression, assumed zero
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(550) : fatal error 107: too many error messages on one line

//Linha550      CMD:setcar(playerid, params[])
;-; ;-;

Re: Comando pra adm - VeNuZ_ - 23.03.2014

Cуdigo mal indentificado e pode conter erros, foi feito no tlm. --"

Re: Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

Como arrumo isso ? '-'

Re: Comando pra adm - VeNuZ_ - 23.03.2014

Estudando pawn -.- antes de comeзar a editar algo.

Nao estou no PC nao te consigo ajudar mais que isso.

Re: Comando pra adm - focaximubh - 23.03.2014

PRIMEIRO DELETA O COMANDO ANTIGO! VOCК TEM 2 COMANDOS IGUAIS NO SEU GM!

Re: Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

Foca nгo tenho nгo cara , tф tentando usar o:


pawn Code:
CMD:setcar(playerid, params[]) {
     {
     new id, car, cor[2];
     If(!IsPlayerAdmin(playerid)) return 1;
     If(sscanf(params, "uinn", id, car,  cor[0], cor[1])) return 1;
     If(!IsPlayerConnected(id)) return 1;
     if(car >= 400 && car <= 611){
     if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1])){
     SendClientMessage(playerid, verde, "[Info-Insano]: Veiculo Criado e Salvo com sucesso!");
     new msg[256];
     format(msg,256,"[Info-Insano]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!",PlayerNome(playerid));
     SendClientMessage(id, verde, msg);
     }else{
     SendClientMessage(playerid, verde, "[Info-Insano]: Erro ao criar o veiculo!");
     }else{
     SendClientMessage(playerid, vermelho, "[Info-Insano]: Modelo ID Incorreto! (400-611)");
     }
     return 1;
}
que o venuz me passou.

Re: Comando pra adm - iD4N0N3_.x[X]x - 23.03.2014

Foca nгo tenho nгo cara , tф tentando usar o:


pawn Code:
CMD:setcar(playerid, params[]) {
     {
     new id, car, cor[2];
     If(!IsPlayerAdmin(playerid)) return 1;
     If(sscanf(params, "uinn", id, car,  cor[0], cor[1])) return 1;
     If(!IsPlayerConnected(id)) return 1;
     if(car >= 400 && car <= 611){
     if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1])){
     SendClientMessage(playerid, verde, "[Info-Insano]: Veiculo Criado e Salvo com sucesso!");
     new msg[256];
     format(msg,256,"[Info-Insano]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!",PlayerNome(playerid));
     SendClientMessage(id, verde, msg);
     }else{
     SendClientMessage(playerid, verde, "[Info-Insano]: Erro ao criar o veiculo!");
     }else{
     SendClientMessage(playerid, vermelho, "[Info-Insano]: Modelo ID Incorreto! (400-611)");
     }
     return 1;
}
que o venuz me passou.

Re : Comando pra adm - Dieguinho - 24.03.2014

teste nгo sei se ta funcional

DICA: nгo coloque dentro de qualquer public se nгo vai dar erro !!!


pawn Code:
#include <a_samp>
#include <zcmd>

// fora de qualquer public, stock etc.

CMD:setcar(playerid, params[])
{
    new id, car, cor[2];
    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, vermelho, "Vocк nгo tem permissгo!");
    if(sscanf(params, "uinn", id, car, cor[0], cor[1]))
    {
        SendClientMessage(playerid, verde, " /setcar [modelo] [cor1] [cor2]");
        return 1;
    }
    if(!IsPlayerConnected(id)) return 1;
    if(car >= 400 && car <= 611)
    {
        if(IsPlayerInAnyVehicle(playerid))
        {
            if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1]))
            {
                SendClientMessage(playerid, verde, "[Info-Insano]: Veiculo Criado e Salvo com sucesso!");

                new msg[256];
                format(msg, 256, "[Info-RedBull]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!", PlayerNome(playerid));
                SendClientMessage(id, verde, msg);
                SendClientMessage(playerid, verde, "Veнculo setado com sucesso!");
            }
        }
        else SendClientMessage(playerid, vermelho, "saia do veiculo para poder criar outro!");
    }
    return 1;
}


Re: Comando pra adm - iD4N0N3_.x[X]x - 24.03.2014

Entгo velho deu 2 erros agora:
pawn Code:
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(949) : error 017: undefined symbol "CriarVeiculoPlayer"
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(954) : error 017: undefined symbol "PlayerNome"
Pawn compiler 3.2.3664          Copyright (c) 1997-2006, ITB CompuPhase

2 Errors.

//linha 949     if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1]))
//linha 954     format(msg, 256, "[Info-RedBull]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!", PlayerNome(playerid));
Se conseguir me ajudar te agradeзo msm ^^ , e +rep

Re : Re: Comando pra adm - Dieguinho - 24.03.2014

Quote:
Originally Posted by iD4N0N3_.x[X]x
View Post
Entгo velho deu 2 erros agora:
pawn Code:
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(949) : error 017: undefined symbol "CriarVeiculoPlayer"
C:\Users\NATAN\Desktop\Samp\[BMG] BRASIL MISTER GAMES 2012\gamemodes\GM.pwn(954) : error 017: undefined symbol "PlayerNome"
Pawn compiler 3.2.3664          Copyright (c) 1997-2006, ITB CompuPhase

2 Errors.

//linha 949     if(CriarVeiculoPlayer(playerid,id, car, cor[0], cor[1]))
//linha 954     format(msg, 256, "[Info-RedBull]: O Administrador %s Criou Um Veiculo Exclusivo Para Vocк!", PlayerNome(playerid));
Se conseguir me ajudar te agradeзo msm ^^ , e +rep
pawn Code:
#include <a_samp>
#include <zcmd>
#include <sscanf2>

CMD:setcar(playerid, params[])
{
    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, vermelho, "Vocк nгo tem permissгo!");

    new modelo, cor1, cor2;

    if(sscanf(cmdtext, "s[8]dD(-1)D(-1)", cmd, modelo, cor1, cor2))
    {

        SendClientMessage(playerid, verde, "Use: /setcar [modelo] [cor1] [cor2]");
        return 1;
    }
    if(modelo >= 400 && modelo <= 611)
    {
        if(IsPlayerInAnyVehicle(playerid))
        {
            new playerip[64],
            Float:X, Float:Y, Float:Z,
            Float:ang;

            GetPlayerPos(playerid, X, Y, Z);
            GetVehicleZAngle(GetPlayerVehicleID(playerid), ang);
            GetPlayerIp(playerid, playerip, sizeof(playerip));

            SetTimerEx("CriarVeiculo", 5000, false, "dffffdd", modelo, X, Y, Z, ang, cor1, cor2);

            SendClientMessage(playerid, verde, "Veнculo setado com sucesso!");
        }
        else
        {

            SendClientMessage(playerid, verde, "vocк estб em um veiculo saia dele para criar outro !");
        }
    }
    else
    {

        SendClientMessage(playerid, verde, "ID fora do normal! | ID's = 400-611");
    }
    return 1;
}

forward CriarVeiculo(m, Float:x, Float:y, Float:z, Float:r, c, d);

public CriarVeiculo(m, Float:x, Float:y, Float:z, Float:r, c, d)
{
    AddStaticVehicleEx(m, x, y, z, r, c, d, 30);
    return 1;
}