[PEDIDO] /ir para VIPS - Printable Version

[PEDIDO] /ir para VIPS - 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] /ir para VIPS (/showthread.php?tid=230909)

[PEDIDO] /ir para VIPS - [AF]Junior - 24.02.2011

Quero o comando /ir sу para VIP's.

Jб fiz um sу que nгo funcionava...

Comando /ir para ir atй o player.

Obs: aqui й

pawn Код:

CMD:vipir(playerid, params[])
{
return 1;

E quem nгo й vip й

pawn Код:

if(PlayerInfo[playerid][VIP] != 1)

E quem й vip й

pawn Код:

if(PlayerInfo[playerid][VIP] == 1)

Re: [PEDIDO] /ir para VIPS - deregudegu - 24.02.2011

Acho que vocк pode editar esse aqui para o seu gosto:

pawn Код:

if(strcmp(cmd, "/irls", true) == 0)
    {
        if(IsPlayerConnected(playerid))
        {
            new nome[24];
            GetPlayerName(playerid, nome, sizeof nome);
            if(PlayerInfo[playerid][VIP] == 1)
            {
                if (GetPlayerState(playerid) == 2)
                {
                    new tmpcar = GetPlayerVehicleID(playerid);
                    SetVehiclePos(tmpcar, 1529.6,-1691.2,13.3);
                    TelePos[playerid][0] = 0.0;TelePos[playerid][1] = 0.0;
                }
                else
                {
                    SetPlayerPos(playerid, 1529.6,-1691.2,13.3);
                }
                SendClientMessage(playerid, COLOR_GRAD1, "   Vocк foi teleportado !");
                SetPlayerInterior(playerid,0);
                PlayerInfo[playerid][pInt] = 0;
            }
            else
            {
                SendClientMessage(playerid, COLOR_GRAD1, "   Vocк nгo pode usar esse comando !");
            }
        }
        return 1;
    }

Esse cmd й para ir para a DP de ls

Re: [PEDIDO] /ir para VIPS - Pharrel - 24.02.2011

pawn Код:

if(strcmp(cmd, "/ir", true) == 0)
    {
        if(IsPlayerConnected(playerid))
        {
            tmp = strtok(cmdtext, idx);
            if(!strlen(tmp))
            {
                SendClientMessage(playerid, COLOR_GRAD2, "USO: /ir [ID]");
                return 1;
            }
            new Float:plocx,Float:plocy,Float:plocz;
            new plo;
            plo = ReturnUser(tmp);
            if (IsPlayerConnected(plo))
            {
                if(plo != INVALID_PLAYER_ID)
                {
                    if (PlayerInfo[playerid][pVipLevel] >= 1)
                    {
                        if(Spectate[playerid] != 255)
                        {
                            Spectate[playerid] = 256;
                        }
                        GetPlayerPos(plo, plocx, plocy, plocz);
                        if(PlayerInfo[plo][pInt] > 0)
                        {
                            SetPlayerInterior(playerid,PlayerInfo[plo][pInt]);
                            PlayerInfo[playerid][pInt] = PlayerInfo[plo][pInt];
                            PlayerInfo[playerid][pLocal] = PlayerInfo[plo][pLocal];
                        }
                        if(PlayerInfo[playerid][pInt] == 0)
                        {
                            SetPlayerInterior(playerid,0);
                        }
                        if(plocz > 530.0 && PlayerInfo[plo][pInt] == 0)
                        {
                            SetPlayerInterior(playerid,1);
                            PlayerInfo[playerid][pInt] = 1;
                        }
                        if (GetPlayerState(playerid) == 2)
                        {
                            new tmpcar = GetPlayerVehicleID(playerid);
                            SetVehiclePos(tmpcar, plocx, plocy+4, plocz);
                            TelePos[playerid][0] = 0.0;TelePos[playerid][1] = 0.0;
                        }
                        else
                        {
                            SetPlayerPos(playerid,plocx,plocy+2, plocz);
                        }
                        GetPlayerName(plo, giveplayer,256);
                        GetPlayerName(playerid, sendername,256);
                        format(string, sizeof(string), "[Info] Vocк teleportou atй %s.", giveplayer);
                        SendClientMessage(playerid, COLOR_WHITE, string);
                        format(string, sizeof(string), "[Info] O VIP %s, teleportou atй vocк.", sendername);
                        SendClientMessage(plo, COLOR_WHITE, string);
                    }
                    else
                    {
                        SendClientMessage(playerid, COLOR_GRAD1, "   Vocк nгo estб autorizado a usar este comando");
                    }
                }
            }
            else
            {
                format(string, sizeof(string), "   %d nгo й um player ativo.", plo);
                SendClientMessage(playerid, COLOR_GRAD1, string);
            }
        }
        return 1;
    }

Nгo te garanto nada shaushaushaus comecei a scriptar a 7 dias entao n sei c vai fumegar e n testei

Re: [PEDIDO] /ir para VIPS - -GooGle- - 24.02.2011

aqui

pawn Код:

if(strcmp("/ir", cmdtext, true, 3) == 0)
{
if(PlayerInfo[playerid][VIP] == 1)
{
new Float:x,Float:y,Float:z;
new escolher[256];
escolher = KcmD(1, cmdtext);
if(!strlen(escolher)) return SendClientMessage(playerid,COR_AQUI,"Use: /ir [ID]");
GetPlayerPos(strval(escolher),x,y,z);
SetPlayerPos(playerid,x,y+2,z);
}else{
SendClientMessage(playerid,COR_AQUI,"Voce nao й Vip");
return true;
}
return true;
}

Add isto ao final do gm

pawn Код:

stock KcmD(param, cmdtext[])
{
    new string[128], pos, var;
    format(string, sizeof(string), "%s ", cmdtext);

    while((pos = strfind(string, " ", true)) != -1)
    {
        if(var == param) return string;
        var++;

        strdel(string, 0, pos + 1);
        if(strcmp(string, " ", true, pos) == 0) goto end;
    }

end:
    string[0] = '\0';
    return string;
}