SA-MP Forums

Go Back   SA-MP Forums > Non-English > Languages > Português/Portuguese > Lançamentos/Releases

Reply
 
Thread Tools Display Modes
Old 17/08/2013, 03:24 AM   #1
xxRaioxx
Huge Clucker
 
xxRaioxx's Avatar
 
Join Date: Jun 2013
Location: Brazil, Minas Gerais, Varginha
Posts: 284
Reputation: 5
Default Beach Sistema de vip Simples v1.0

Olá,eu começei estudar um pouco Pawn,os operadores etc... Até que resolvi fazer essa FS de vip! O nome está no título.

Comandos:
Level 1 (Prata) :
/kitvip , /chatvip , /eusouvip

Level 2 (Bronze) :
/kitvip , /chatvip , /nitro , /eusouvip

Level 3 (Ouro) :
/kitvip , /chatvip , /nitro , /irp , /eusouvip

Level 4 (Diamante) :
/kitvip , /chatvip , /nitro , /irp , /mudarskin , /eusouvip

Rcon :
/darvip , /tirarvip

Será necessário criar uma pasta Vips na scriptfiles .

Includes necessária são ZCMD SSCANF e DOF2


ZCMD:
http://www.solidfiles.com/d/d20f/

SSCANF:
http://www.mediafire.com/?af78de7rmne966m

Bem é um simples sistema,na próxima versão eu colocarei mais comandos!

Download:

Code:
pawn Code:
// Sstema vip feito por xxRaioxx.
// Todos os créditos a min (xxRaioxx)
//Comandos:
// | /darvip  ,  /tirarvip  ,  /chatvip  ,  /kitvip  ,  /nitro  ,  /irp  ,  /mudarskin  ,  /eusouvip  ,  /infovip |



#define FILTERSCRIPT

#include    a_samp
#include    zcmd
#include    dof2
#include    sscanf

//--------[> Levels-VIP <]--------
#define Vip_Prata 1
#define Vip_Bronze 2
#define Vip_Ouro 3
#define Vip_Diamante 4

//--------[> Cores <]--------
#define Vermelho 0xD30000FF
#define Ciano 0x00FFFFFF
#define Verde 0x006D00FF

//--------[> Custa <]--------
#define CustaVip 15000


enum PlayerVip
{
    Vip
}
new pVip[MAX_PLAYERS][PlayerVip];

#if defined FILTERSCRIPT

public OnFilterScriptInit()
{
    print("\n--------Iniciado em 03/08/2013");
    print(" Sistema VIP  by xxRaioxx");
    print("--------Terminado em 17/08/2013\n");
    return 1;
}

public OnFilterScriptExit()
{
    DOF2_Exit();
    return 1;
}

#endif

public OnPlayerConnect(playerid)
{
    new arquivei[34], nomepv[MAX_PLAYER_NAME];
    GetPlayerName(playerid, nomepv, sizeof(nomepv));
    format(arquivei, sizeof(arquivei), "Vips/%s", nomepv);
    pVip[playerid][Vip] = DOF2_GetInt(arquivei, "Vip");
    return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
    new arquives[34], nomevip[MAX_PLAYER_NAME];
    GetPlayerName(playerid, nomevip, sizeof(nomevip));
    format(arquives, sizeof(arquives), "Vips/%s", nomevip);
    if(DOF2_FileExists(arquives))
    {
        DOF2_SetInt(arquives, "Vip", pVip[playerid][Vip]);
        DOF2_SaveFile();
    }
    else
    {
        DOF2_CreateFile(arquives);
        DOF2_SetInt(arquives, "Vip", pVip[playerid][Vip]);
        DOF2_SaveFile();
    }
    return 1;
}

public OnPlayerSpawn(playerid)
{
    return 1;
}

CMD:infovip(playerid)
{
    SendClientMessage(playerid, Ciano, "Todos leveis vip custam 15 mil");
    return 1;
}

CMD:darvip(playerid, params[])
{
    new id, vip, string[256], ganhouvip[MAX_PLAYER_NAME];
    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, 0xAD0000AA, "{00E5FF}Você não está autorizado a usar este Comando.");
    if(sscanf(params, "ud", id, vip)) return SendClientMessage(playerid, 0xAD0000AA, "Use /darvip [ID] [LEVEL]");
    if (vip < 1 || vip > 4) return SendClientMessage(playerid, 0xFF0000FF, "Level inválido. Use de 1 a 4");
    if(!IsPlayerConnected(id)) return SendClientMessage(playerid, 0xAD0000AA, "Este jogador não está online.");
    GetPlayerName(id, ganhouvip, sizeof(ganhouvip));
    format(string, sizeof(string), "Você deu Vip %s para o %s", LevelVip(vip), ganhouvip);
    SendClientMessage(playerid, 0x00F6F6AA, string);
    pVip[id][Vip] =  vip;
    GivePlayerMoney(id, CustaVip);
    return 1;
}

CMD:tirarvip(playerid, params[])
{
    new id, string[256], string1[256], admintirou[MAX_PLAYER_NAME], ganhouvip[MAX_PLAYER_NAME];
    if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, Vermelho, "{00E5FF}Você não está autorizado a usar este Comando.");
    if(sscanf(params, "u", id)) return SendClientMessage(playerid, Verde, "Use /tirarvip [ID]");
    if(!IsPlayerConnected(id)) return SendClientMessage(playerid, 0xAD0000AA, "Este jogador não está online.");
    GetPlayerName(id, ganhouvip, sizeof(ganhouvip));
    GetPlayerName(id, admintirou, sizeof(admintirou));
    format(string, sizeof(string), "Você tirou o vip do %s .", ganhouvip);
    SendClientMessage(playerid, 0x00F6F6AA, string);
    format(string1, sizeof(string1), "O admin %s tirou o seu vip .", admintirou);
    SendClientMessage(playerid, 0x00F6F6AA, string1);
    pVip[id][Vip] =  0;
    return 1;
}

CMD:kitvip(playerid)
{
    if(pVip[playerid][Vip] < 1) return SendClientMessage(playerid, Vermelho, "Você não é vip!");
    GivePlayerWeapon(playerid, 4, 1000);
    GivePlayerWeapon(playerid, 24, 1000);
    GivePlayerWeapon(playerid, 27, 1000);
    GivePlayerWeapon(playerid, 29, 1000);
    GivePlayerWeapon(playerid, 31, 1000);
    GivePlayerWeapon(playerid, 38, 1000);
    GivePlayerWeapon(playerid, 36, 1000);
    GivePlayerWeapon(playerid, 18, 1000);
    GivePlayerWeapon(playerid, 34, 1000);
    SendClientMessage(playerid, Ciano, "Você pegou um kit vip!");
    return 1;
}

CMD:chatvip(playerid, params[])
{
    if(pVip[playerid][Vip] < 1) return SendClientMessage(playerid, 0xAD0000AA, "Você não é Vip!");
    new text[128], string[128], playern[MAX_PLAYER_NAME];
    if(sscanf(params, "s", text)) return SendClientMessage(playerid, Vermelho, "Use /chatvip [MENSAGEM]");
    GetPlayerName(playerid, playern, sizeof(playern));
    format(string, sizeof(string), "(Chat Vip) %s diz: %s", playern, text);
    SendFamilyMessage( string);
    return 1;
}

CMD:nitro(playerid, params[])
{
    if(pVip[playerid][Vip] < 2) return SendClientMessage(playerid, Vermelho, "Você não é vip maior que level 1 ! ");
    new carro;
    carro = GetPlayerVehicleID(playerid);
    if(!IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, Verde,"Você não está em nenhum carro!");
    AddVehicleComponent(carro, 1010);
    SendClientMessage(playerid, Ciano, "Você colocou nitro no carro.");
    return 1;
}

CMD:irp(playerid, params[])
{
    if(pVip[playerid][Vip] < 3) return SendClientMessage(playerid, Vermelho, "Você é vip level menor que 3!");
    new id, Float: x, Float: y, Float: z, string[256], string1[256], nomeplayer[MAX_PLAYER_NAME], nomepvip[MAX_PLAYER_NAME];
    if(sscanf(params, "u", id)) return SendClientMessage(playerid, Verde,"Use /irp [ID]");
    if(!IsPlayerConnected(id)) return SendClientMessage(playerid, Vermelho,"Este jogador não está online.");
    GetPlayerName(playerid, nomepvip, sizeof(nomepvip));
    GetPlayerName(id, nomeplayer, sizeof(nomeplayer));
    format(string, sizeof(string), "Você foi até até ao jogador %s.", nomeplayer);
    format(string1, sizeof(string1), "O vip %s foi até você.", nomepvip);
    SendClientMessage(playerid, Ciano, string);
    SendClientMessage(id, Ciano, string1);
    GetPlayerPos(id, x, y, z);
    SetPlayerPos(playerid, x+1, y+1, z);
    return 1;
}

CMD:mudarskin(playerid, params[])
{
    if(pVip[playerid][Vip] != 4) return SendClientMessage(playerid, Vermelho, "Você não é vip level 4 ! ");
    new skinid, string[128];
    if(sscanf(params, "i", skinid)) return SendClientMessage(playerid, Ciano,"Use /mudarskin [id da skin]");
    format(string, sizeof(string), "Você mudou sua skin para a id %d.", skinid);
    SendClientMessage(playerid, Ciano, string);
    SetPlayerSkin(playerid, skinid);
    return 1;
}

CMD:eusouvip(playerid)
{
    if(pVip[playerid][Vip] < 1) return SendClientMessage(playerid, Vermelho, "Você não é vip! ");
    new id, eunome[MAX_PLAYER_NAME], string[256];
    GetPlayerName(id, eunome, sizeof(eunome));
    format(string, sizeof(string), "Eu %s sou vip então me chupa!", eunome);
    SendClientMessageToAll(Verde, string);
    return 1;
}

stock LevelVip(vipid)
{
    new str[50];
    if(vipid == 1)
    {
        str = "Prata";
    }
    else if (vipid == 2)
    {
        str = "Bronze";
    }
    else if (vipid == 3)
    {
        str = "Ouro";
    }
    else if (vipid == 4)
    {
        str = "Diamante";
    }
    return str;
}

stock SendFamilyMessage(mensagem[])
{
    for(new i = 0; i < MAX_PLAYERS; i++)
    {
        if(IsPlayerConnected(i))
        {
            if(pVip[i][Vip] > 1)
            {
                SendClientMessage(i, Ciano, mensagem);
            }
        }
    }
    return 0;
}

Na próxima versão,vou colocar no Pastebin e prints do sistema.
__________________

---

Tutoriais


FilterScripts

xxRaioxx is offline   Reply With Quote
Old 17/08/2013, 04:26 AM   #2
Caio_Freeze
Gangsta
 
Caio_Freeze's Avatar
 
Join Date: Jan 2012
Posts: 797
Reputation: 23
Default Re: Beach Sistema de vip Simples v1.0

po fera podia faze um sistema vip que vence sozinho né fora isso ta top
__________________
Upload de Imagens

Caio_Freeze is offline   Reply With Quote
Old 17/08/2013, 07:00 AM   #3
CaioMiglioli
Big Clucker
 
Join Date: Mar 2012
Posts: 166
Reputation: 2
Default Re: Beach Sistema de vip Simples v1.0

Quote:
Originally Posted by Caio_Freeze View Post
po fera podia faze um sistema vip que vence sozinho né fora isso ta top
O mlk é novo, tá aprendendo ainda.

~

Bom FS. Poderia idealiza-lo mais, adicionar mais coisas. Vantagens reais para ser vip caso for para o ar em algum servidor.
CaioMiglioli is offline   Reply With Quote
Old 17/08/2013, 01:47 PM   #4
Juniiro3
High-roller
 
Join Date: Feb 2013
Location: Campinas, Brasil
Posts: 1,804
Reputation: 140
Default Re: Beach Sistema de vip Simples v1.0

Legal, não desanime e continue melhorando seus scripts!

Gente, vocês leram a última frase?
"Na próxima versão, ponho no pastebin"

Talvez a próxima versão que a gente do forum dê sugestões para ele melhorar.
Juniiro3 is offline   Reply With Quote
Old 17/08/2013, 03:35 PM   #5
ViniKuliveguisky
Gangsta
 
ViniKuliveguisky's Avatar
 
Join Date: May 2013
Location: Brasil-SC
Posts: 725
Reputation: 18
Default Respuesta: Re: Beach Sistema de vip Simples v1.0

Quote:
Originally Posted by CaioMiglioli View Post
O mlk é novo, tá aprendendo ainda.

~

Bom FS. Poderia idealiza-lo mais, adicionar mais coisas. Vantagens reais para ser vip caso for para o ar em algum servidor.
O interessante é que você criticou o Caio Freeze e logo depois fala para colocar mais coisas ¬¬!

@Topic bom sistema ^^
__________________
ViniKuliveguisky is offline   Reply With Quote
Old 17/08/2013, 04:16 PM   #6
xxRaioxx
Huge Clucker
 
xxRaioxx's Avatar
 
Join Date: Jun 2013
Location: Brazil, Minas Gerais, Varginha
Posts: 284
Reputation: 5
Default Re: Beach Sistema de vip Simples v1.0

Obrigado pelos comentários (: , já estou até fazendo a próxima versão .
__________________

---

Tutoriais


FilterScripts

xxRaioxx is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
[FilterScript] Sistema de MP3, Simples... DanDRT Lançamentos/Releases 11 04/02/2013 11:54 AM
[Pedido] SISTEMA VIP SIMPLES Eduardo Honorato Português/Portuguese 4 22/08/2012 03:33 PM
[TUT]Sistema de God Car Simples .FuneraL. Português/Portuguese 4 05/08/2012 01:24 AM
[FilterScript] [FS] Sistema de AFK simples. zSuYaNw Lançamentos/Releases 10 14/11/2010 06:27 AM


All times are GMT. The time now is 10:41 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.