Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - aledark24

Pages: [1] 2
1
ShowRoom (pawn) / Votekick, Command (is the one of a kind in vcmp)
« on: August 10, 2013, 10:20:31 pm »
[pawn]new Xp[256], VoteKick[MAX_PLAYERS];
new file[ 128 ];[/pawn]



[pawn]                        else if (strcmp(cmd, "!votekick", true) == 0) {
            tmp = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp );
      if (!strlen(tmp)) SendClientMessage(playerid, 0x333AFFF,"Write: !votekick <name/id>");
        else
        {
                        if(VoteKick[playerid] == 1)
            {
   SendClientMessage(playerid,0xAA3333AA,"You already Vote");
}
                        if(VoteKick[playerid] == 0) {

          format( szMsg, sizeof( szMsg ), "Player [%s] calls votekick for  [%s] ",gPlayers[playerid],gPlayers[plr]);
                  SendClientMessageToAll(0x333AFFF, szMsg );
                      format( szMsg, sizeof( szMsg ), "For Vote Write !votekick %s",gPlayers[plr]);
                  SendClientMessageToAll(0x333AFFF, szMsg );
                  DarVoteKick(plr,1);
                     SetTimer( "Votando", 120000,false);
                  VoteKick[playerid] = 1;
          format( szMsg, sizeof( szMsg ), "VoteKick [%s], [%s] ",gPlayers[plr],VoteKickLevel(ObtenerVoteKick(plr)));
                  SendClientMessageToAll(0x333AFFF, szMsg );
                  }
                                               if (ObtenerVoteKick(plr) == 5)
           {
           Kick(plr);
                format( szMsg, sizeof( szMsg ), "Player [%s] Is kicked Reason [VoteKick]",gPlayers[plr]);
                  SendClientMessageToAll(0xAA3333FF, szMsg );
                  SetTimer( "VotoBorrado", 5000,false);
        KillTimer(120000);
                 
           }
           }
                  return 1;
                  }[/pawn]

[pawn]//==============================================================================
public VotoBorrado() {
    for(new i = 0; i < MAX_PLAYERS; i++) {
        if(IsPlayerConnected(i)) {
       if(VoteKick == 1) {
SendClientMessage(i,0x0FCD18FF,"Now You Cant Vote Again");
VoteKick = 0;
}
}
}
}
//==============================================================================
public Votando() {
    for(new i = 0; i < MAX_PLAYERS; i++) {
        if(IsPlayerConnected(i)) {
SendClientMessage(i,0x0FCD18FF,"VoteKick is canceled 2 minutes passed");
QuitaVoteKick(i);
VoteKick = 0;
}
}
}
//==============================================================================
public ObtenerVoteKick(playerid)
{
    format(Xp,256, REGISTROS, gPlayers[playerid]); //Please change "REGISTROS" and put your folder name of registers
   new vote; vote = dini_Int(Xp,"VoteKick");
   return vote;
}
public DarVoteKick( playerid, Amount )
{
   format( file, sizeof( file ), REGISTROS, gPlayers[ playerid ] ); //Please change "REGISTROS" and put your folder name of registers
   new votekick; votekick = dini_Int( file, "VoteKick" );
   dini_IntSet( file, "VoteKick", votekick +Amount);
}
public QuitaVoteKick(playerid)
{
    format(Xp,256, REGISTROS, gPlayers[playerid]); //Please change "REGISTROS" and put your folder name of registers
   dini_Unset(Xp,"VoteKick");
}
//==============================================================================
public VoteKickLevel(level)
{
   new lvl[256];
    if (level == 1) lvl = "1";
   if (level == 2) lvl = "2";
    if (level == 3) lvl = "3";
    if (level == 4) lvl = "4";
   else if (level == 5) lvl = "5";
   return lvl;
}
//================================================
[/pawn]

This Command is for make a vote and if the player have 5 vote es automatic kicked

2
Snippet Showroom / Fun Command
« on: June 27, 2013, 04:18:48 am »
[pawn]  else if (strcmp(cmd, "Fun", true) == 0)
   {
    tmp = strtok( cmdtext, idx );
    new i;
     if (!strlen(tmp)) SendClientMessage(playerid, 0xFFFF00AA,"[Error] Write /c fun on/off");
            else
      {
      
           if (strcmp(tmp, "on", true) == 0)
          {
    for (i = 0; i <= MAX_PLAYERS; i ++)
    {
        EnableShootInAir(i,1);
      SetPlayerWeapon(i,32,10000);
     SetGravity(21);
        }
        SendClientMessageToAll(0xFFFF00AA, " Shoot in air - Kill Everyone!! ");
        GameTextForAll("~l~Shoot in air on!!");
        }
    else if (strcmp(tmp, "off", true) == 0) {
    for (i = 0; i <= MAX_PLAYERS; i ++)
    {
        EnableShootInAir(i,0);
SetGravity(100);
    }
    SendClientMessageToAll(0xFFFF00AA, " Shoot in air - DeActivated!! ");
    GameTextForAll("~l~Shoot in air off!!");
    }
      }
    return 1;
}[/pawn]


Enjoy and Comment

3
ShowRoom (pawn) / Register And Login System
« on: May 07, 2013, 08:19:35 pm »
Hello all... in this day i give "alone" my register and login system...


[pawn]#define REGISTERS "/Registers/%s.ini"[/pawn]
[pawn]new INFO[256];[/pawn]
[pawn]#define AMARILLO 0xFFFF00AA[/pawn]


[pawn]public OnPlayerConnect(playerid)
{
new string[128];
    SetSpikes(playerid,1);
    SetLogueo(playerid,0);
     GetPlayerName(playerid,gPlayers[playerid],MAX_PLAYER_NAME);
   format(MSN,256,"%s",gPlayers[playerid]);
   format( string, 128, "** [%d] %s is entered in server.", playerid, gPlayers[ playerid ] );
   print( string );
   SetWaterLevel(6.0);
   SetGamespeed(100);
   SetGravity(100);
   {
   if (ObtenerLevel(playerid) == 0) {
    SendClientMessage(playerid,AMARILLO,"Register or to stay frozen");
    SendClientMessage(playerid,AMARILLO,"See the commands availables Whit !cmds");
    }
       SetLogueo(playerid,0);
       if (ObtenerLevel(playerid) >= 1) {
   SendClientMessage(playerid,AMARILLO,"Login or to stay frozen");
   SendClientMessage(playerid,AMARILLO,"See the commands availables Whit !cmds");
   }
   }
   return 1;
 }[/pawn]


[pawn]public OnPlayerCommandText(playerid, cmdtext[ ] )
{
    new cmd[256];
   new tmp[256];
   new szMsg[256];
   new idx, newvar;
   new Float:x, Float:y, Float:z;
   new level[ 128 ], money[256];
   new plr;
   format(INFO,256, REGISTERS, gPlayers[playerid]);
   cmd = strtok(cmdtext, idx);[/pawn]

[pawn]//======================================Register and login of players =====================================[/pawn]

[pawn]        if (strcmp(cmd, "login", true) == 0) {
       tmp = strtok(cmdtext, idx);
         if (ObtenerLevel(playerid) == 0) SendClientMessage(playerid, AMARILLO,"[Error] - This nickname is not registered!");
       else if (!strlen(tmp)) SendClientMessage(playerid, AMARILLO,"[Error] : /c login [Password].");
         else if (GetLogueo(playerid) == 1) SendClientMessage(playerid, AMARILLO,"[Error] - Already logged!.");
         else {
              if (strcmp(hash(tmp), ObtenerClave(playerid), true) == 0) LogueoJugador(playerid,tmp);
              else SendClientMessage(playerid, AMARILLO,"[Error] - Incorrect Password");
       }
       return 1;
   }

      else if (strcmp(cmd, "register", true) == 0) {
       tmp = strtok(cmdtext, idx);
       new str[256];
         if (!strlen(tmp)) SendClientMessage(playerid, AMARILLO,"[Write] - /c register: [Password]");
         else if (ObtenerLevel(playerid) >= 1) SendClientMessage(playerid, AMARILLO,"[Error] - This nickname is already registered!");
         else if (GetLogueo(playerid) == 1) SendClientMessage(playerid, AMARILLO,"[Error] - Already logued.");
         else if( AntiNick ( gPlayers[ playerid ] ) )
      {
         format( str, sizeof( str ), "Error: Nickname whit invalid characters, remove for register" );
         SendClientMessage( playerid, AMARILLO, str );
      }
        else {
              RegistroJugador(playerid,tmp,INFO);
       }
       return 1;
   }[/pawn]

[pawn]//===============Register player================================================================
public RegistroJugador(playerid,clave[ ], xD[ ])
{
new szMsg[256];
   dini_Create(xD);
   dini_Set(xD,"Nombre", gPlayers[playerid]);
   dini_Set(xD,"Clave", hash(clave));
   dini_Set(xD,"Banco","1000");
   dini_Set(xD,"Dinero","0");
   dini_Set(xD,"Level","1");
   dini_Set(xD,"Logueo","1");

           format(szMsg,sizeof(szMsg),"Registered- Password --> [%s]",clave);
            SendClientMessage(playerid,AMARILLO, szMsg);
            TogglePlayerControllable(playerid,1);

   return 1;
}
//==============================================================================
public LogueoJugador(playerid, clave[ ])
{
new szMsg[256];
     format(szMsg,sizeof(szMsg),"Login Whit Password [%s]",clave);
    SendClientMessage(playerid,AMARILLO, szMsg);
         format(szMsg,sizeof(szMsg),"Name:[%s]  Level:[%d][%s].",gPlayers[playerid],ObtenerLevel(playerid),LevelJugador(ObtenerLevel(playerid)));
    SendClientMessage(playerid,AMARILLO, szMsg);
    TogglePlayerControllable(playerid,1);
    SetLogueo(playerid,1);
    return 1;
}
//==============================================================================
public GetLogueo(playerid)
{
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   new logueo; logueo = dini_Int(INFO,"Logueo");
   return logueo;
}
//==============================================================================
public SetLogueo(playerid,logueo)
{
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   dini_IntSet(INFO,"Logueo",logueo);
}
//==============================================================================
public ObtenerClave(playerid)
{
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   new clave[256]; clave = dini_Get(INFO,"Clave");
   return clave;
}
//==============================================================================
public ObtenerLevel(playerid)
{
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   new level; level = dini_Int(INFO,"Level");
   return level;
}
//==============================================================================
//==============================================================================
public LevelJugador(level)
{
   new lvl[256];
    if (level == 0) lvl = "Not registered";
   if (level == 1) lvl = "Registered Player";
   if (level == 2) lvl = "Bronze Account";
    if (level == 3) lvl = "Silver Account";
    if (level == 4) lvl = "Gold Account";
   if (level == 5) lvl = "Premium Account";
   if (level == 6) lvl = "Moderator Level 2";
   if (level == 7) lvl = "Administrator Level 1";
   if (level == 8) lvl = "Administrator Level 2";
   if (level == 9) lvl = "Scripter";
   else if (level >= 10) lvl = "Scripter-Owner";
   return lvl;
}
//=======================================================[/pawn]
[pawn]//==============================================================================
stock AntiNick(c [ ])
{
   if (strfind(c, "*", true) != -1 || strfind(c, "?", true) != -1 ||
       strfind(c, ">", true) != -1 || strfind(c, "<", true) != -1 ||
       strfind(c, "¡", true) != -1 || strfind(c, "@", true) != -1 ||
       strfind(c, "-", true) != -1 || strfind(c, "#", true) != -1 ||
       strfind(c, "%", true) != -1 || strfind(c, "ñ", true) != -1 ||
      strfind(c, "\\", true) != -1 || strfind(c, "\32", true) != -1 ||
        strfind(c, "{", true) != -1 || strfind(c, "\162", true) != -1 ||
        strfind(c, "}", true) != -1 || strfind(c, "\47", true) != -1 ||
        strfind(c, "´", true) != -1 || strfind(c, "\658", true) != -1 ||
        strfind(c, "`", true) != -1 || strfind(c, "\47", true) != -1 ||
        strfind(c, "'", true) != -1 || strfind(c, "(", true) != -1 ||
        strfind(c, "\33", true) != -1 || strfind(c, "\39", true) != -1 ||
        strfind(c, "\34", true) != -1 || strfind(c, "\20", true) != -1 ||
        strfind(c, "\21", true) != -1 || strfind(c, "\27", true) != -1 ||
       strfind(c, "|", true) != -1) return 1;
   if (isNumeric(c)) return 1;
        else return 0;
    return 1;
 }
//==============================================================================
stock NombreJugador(playerid)
{
      new nombre[24];
      GetPlayerName(playerid,nombre,24);
      return nombre;
}
//==============================================================================[/pawn]

[pawn]//====================Sistema de banco==========================================================
public MasDinero(playerid,amount)
{
   new monto = ObtenerDinero(playerid)+amount;
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   dini_IntSet(INFO, "Dinero", monto);
   SetPlayerMoney(playerid,monto);
}
//==============================================================================
public MenosDinero(playerid,amount)
{
   new monto = ObtenerDinero(playerid)-amount;
    format(INFO,256, REGISTERS, gPlayers[playerid]);
   dini_IntSet(INFO, "Dinero", monto);
   SetPlayerMoney(playerid,monto);
}
//==============================================================================[/pawn]


2 Commands for admins

[pawn]         else if ( strcmp( cmd, "setmon", true ) == 0 )
   {
        tmp = strtok(cmdtext, idx), plr = FindPlayerIDFromString(tmp), money = strtok(cmdtext, idx);
         if (GetLogueo(playerid) == 0) SendClientMessage(playerid, AMARILLO,"[Error] - Login first");
        else if (!strlen(money)) SendClientMessage(playerid, AMARILLO,"[Syntax] - Write: /c setmon [Name] [Money]" );
      else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, ROJO, "Error: Unknown Player" );
        else if (ObtenerLevel(plr) == 0) SendClientMessage(playerid, AMARILLO,"[Error] - Not is registered");
           else {
           if (ObtenerLevel(playerid) == 10)
           {
           format( szMsg, sizeof( szMsg ), "Admin [%s] give money player: %s, amount: $ [%d]",gPlayers[playerid],gPlayers[plr],strval(money));
                  SendClientMessage( playerid, AMARILLO, szMsg );
              MasDinero(plr,strval(money));
      }
      else SendClientMessage(playerid,AMARILLO,"You not are admin [10]");
      }
      return 1;
   }[/pawn]


[pawn]      else if ( strcmp( cmd, "setlevel", true ) == 0 )
   {
      tmp = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp ), level = strtok( cmdtext, idx );
       if (GetLogueo(playerid) == 0) SendClientMessage(playerid, AMARILLO,"[Error] - First Login");
      else if ( !strlen( level ) ) SendClientMessage( playerid, ROJO, "Write: /c setlevel [Nick/ID] [ Level ]" );
        else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, ROJO, "Error: Unknown player" );
       else if (ObtenerLevel(plr) == 0) SendClientMessage(playerid, AMARILLO,"[Error] - This nickname not is registered.");
      else
      {
      if (ObtenerLevel(playerid) == 10) {
         format( file, sizeof( file ), REGISTROS, gPlayers[ plr ] );
         dini_Set( file, "Level", IntToStr( strval( level) ));
         format( szMsg, sizeof( szMsg ), "[Admin] [%s] is changed the level of [%s] to [%s]", gPlayers[playerid],gPlayers[plr],level);
         SendClientMessage( playerid, AMARILLO, szMsg );
      }
      else SendClientMessage(playerid,ROJO,"[ERROR] You Not Are Admin!!");
      }
      return 1;
   }[/pawn]


Make a folder inside of scriptfiles named Registers
I think not forget anything xD


4
Snippet Showroom / Easy Spawn Wep Pack
« on: May 03, 2013, 09:29:03 pm »
This day i give my spawn wep but this is in packs of weapons..

[pawn]new INFO [256];[/pawn]

[pawn]public OnPlayerSpawn(playerid,classid,teamid)
{
if (ObtenerArmas(playerid) == 0)
{
SendClientMessage(playerid, 0x333AFFF,"Choose your weapon pack - see availables packs whit !infowep");
SendClientMessage(playerid, 0x333AFFF,"!weppack 1, !weppack 2, !weppack 3, !weppack 4");
}
if (ObtenerArmas(playerid) == 1)
{
SendClientMessage(playerid, 0x333AFFF,"Given Weapon Pack # 1");
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,24,10000);
                 SetPlayerWeapon(playerid,26,10000);
                 SetPlayerWeapon(playerid,24,10000);
}
if (ObtenerArmas(playerid) == 2)
{
SendClientMessage(playerid,0x333AFFF,"Given Weapon Pack # 2");
                      SetPlayerWeapon(playerid,18,10000);
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,27,10000);
                 SetPlayerWeapon(playerid,15,10000);
}
if (ObtenerArmas(playerid) == 3)
{
SendClientMessage(playerid, 0x333AFFF,"Given Weapon Pack # 3");
                                         SetPlayerWeapon(playerid,20,10000);
                 SetPlayerWeapon(playerid,25,10000);
                 SetPlayerWeapon(playerid,17,10000);
                 SetPlayerWeapon(playerid,32,10000);
}
if (ObtenerArmas(playerid) == 4)
{
SendClientMessage(playerid, 0x333AFFF,"Given Weapon Pack # 4");
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,18,10000);
                 SetPlayerWeapon(playerid,15,10000);
                 SetPlayerWeapon(playerid,27,10000);
                 SetPlayerWeapon(playerid,32,10000);
}

return 1;
}
[/pawn]


[pawn]//==============================================================================
public ObtenerArmas(playerid)
{
    format(INFO,256, REGISTROS, gPlayers[playerid]);// change for the name of you folder of registers
   new armas; armas = dini_Int(INFO,"WepSpawn");
   return armas;
}
//==============================================================================
public DarArmas(playerid,armas)
{
    format(INFO,256, REGISTROS, gPlayers[playerid]);// change for the name of you folder of registers
   dini_IntSet(INFO,"WepSpawn",armas);
}
//==============================================================================[/pawn]


[pawn]      else if (strcmp(cmd, "!pack", true) == 0 || strcmp(cmd, "!weppack", true) == 0) {
       tmp = strtok(cmdtext, idx);
       if (!strlen(tmp))  SendClientMessage(playerid,0xFFFF00AA,"[!pack - !weppack] 1/2/3/4");
         else {
              if (strcmp(tmp, "1", true) == 0) {
                       SendClientMessage(playerid,0xFFFF00AA,"Weapon pack Stubby - M4 - ingrams - Python");
                 DarArmas(playerid,1);
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,24,10000);
                 SetPlayerWeapon(playerid,26,10000);
                 SetPlayerWeapon(playerid,18,10000);
           }
                     else if (strcmp(tmp, "2", true) == 0) {

                       SendClientMessage(playerid,0xFFFF00AA,"Weapon pack 2 - Python - Stubby - Ruger - Molotov ");
                                          DarArmas(playerid,2);
                 SetPlayerWeapon(playerid,18,10000);
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,27,10000);
                 SetPlayerWeapon(playerid,15,10000);
                     
           }
                      else if (strcmp(tmp, "3", true) == 0) {
                       SendClientMessage(playerid,0xFFFF00AA,"Weapon Pack 3 - M60 - SPAZ - MP5 - Colt");
                                          DarArmas(playerid,3);
                                          SetPlayerWeapon(playerid,20,10000);
                 SetPlayerWeapon(playerid,25,10000);
                 SetPlayerWeapon(playerid,17,10000);
                 SetPlayerWeapon(playerid,32,10000);
           }
                   else if (strcmp(tmp, "4", true) == 0) {
                      SendClientMessage(playerid,0xFFFF00AA,"Weapon Pack 4 - Stubby - Python - Molotov - Ruger - M60");
                                          DarArmas(playerid,4);
                 SetPlayerWeapon(playerid,21,10000);
                 SetPlayerWeapon(playerid,18,10000);
                 SetPlayerWeapon(playerid,15,10000);
                 SetPlayerWeapon(playerid,27,10000);
                 SetPlayerWeapon(playerid,32,10000);
           }
            else  SendClientMessage(playerid,0xFFFF00AA,"[Error] !pack- !weppack 1/2/3/4");
      }
      return 1;
    }
[/pawn]
[pawn]
      else if (strcmp(cmd, "!infowep", true) == 0 || strcmp(cmd, "!wepinfo", true) == 0) {
                      SendClientMessage(playerid,0xFFFF00AA,"-------- Weapon Pack --------");
                      SendClientMessage(playerid,0xFFFF00AA,"Weapon pack 1 - Stubby - M4 - ingrams - Python");
                      SendClientMessage(playerid,0xFFFF00AA,"Weapon pack 2 - Python - Stubby - Ruger - Molotov ");
                      SendClientMessage(playerid,0xFFFF00AA,"Weapon Pack 3 - M60 - SPAZ - MP5 - Colt");
                      SendClientMessage(playerid,0xFFFF00AA,"Weapon Pack 4 - Stubby - Python - Molotov - Ruger - M60");
return 1;          
}[/pawn]

I hope you say me thank you....

5
Snippet Showroom / Easy Spree System
« on: May 02, 2013, 08:31:24 pm »
[pawn]new INFO[256];[/pawn]


[pawn]public OnPlayerDeath(playerid, killerid, reason)
{
   if ( killerid == INVALID_PLAYER_ID )
   {
      new string[ 128 ], reasonText[ 16 ];
      switch( reason )
      {
         case 43: reasonText = "drowned";
         case 255: reasonText = "suicide";
      }
      format( string, 128, "** %s is death reason [%s]", gPlayers[ playerid ], reasonText );
      print( string );
            new szMsg[256];
      format( szMsg, sizeof( szMsg ),"[%s] is death reason [%s]",gPlayers[ playerid ], reasonText );
      SendClientMessageToAll(AMARILLO, szMsg );// CHANGE FOR YOUR COLOUR
      if ( GetPlayerMoney(playerid) > 199 ) MenosDinero(playerid,200);//change for you decplayerhandcash
      QuitaSpree(playerid);
}
    if (ObtenerSpree(killerid) == 4)
{
MasDinero(killerid,1500);// change for you incplayerhandcash
GameTextForPlayer(killerid,"~a~SPREE 5 Kills!!");
}
    if (ObtenerSpree(killerid) == 9)
{
MasDinero(killerid,2000);// change for you incplayerhandcash
GameTextForPlayer(killerid,"~a~SPREE 10 Kills!!");
}
    if (ObtenerSpree(killerid) == 14)
{
MasDinero(killerid,2500);// change for you incplayerhandcash
GameTextForPlayer(killerid,"~a~SPREE 15 Kills!!");
}
    if (ObtenerSpree(killerid) == 19)
{
MasDinero(killerid,3500);// change for you incplayerhandcash
GameTextForPlayer(killerid,"~a~SPREE 20 Kills!!");
}
    if (ObtenerSpree(killerid) == 24)
{
MasDinero(killerid,4500);// change for you incplayerhandcash
GameTextForPlayer(killerid,"~a~SPREE 25 Kills!!");
}
    MasDinero(killerid,300);// change for you incplayerhandcash
    SetPlayerHealth(killerid,100.0);
    SetWantedLevel(killerid,6);
    DarSpree(killerid,1);
    QuitaSpree(playerid);
    if ( GetPlayerMoney(playerid) > 199 ) MenosDinero(playerid,200); //change for you decplayerhandcash

    return 1;
}[/pawn]


Publics
[pawn]//==============================================================================
public ObtenerSpree(playerid)
{
    format(INFO,256, REGISTROS, gPlayers[playerid]);//change for you name of registers folders
   new spree; spree = dini_Int(INFO,"Spree");
   return spree;
}
public DarSpree( playerid, Amount )
{
   format( file, sizeof( file ), REGISTROS, gPlayers[ playerid ] );//change for you name of registers folders
   new asesinados; asesinados = dini_Int( file, "Spree" );
   dini_IntSet( file, "Spree", asesinados +Amount);
}
//==============================================================================

public QuitaSpree(playerid)
{
    format(INFO,256, REGISTROS, gPlayers[playerid]);//change for you name of registers folders
   dini_Unset(INFO,"Spree");
}
//==============================================================================[/pawn]


6
mIRC/pawn Scripting / stupid question...is possible?
« on: April 18, 2013, 01:51:48 am »
i have this stupid question...
is possible.make a command for use the command of console
/settimerate


or
/setweather
or another question

is possible activate the /settimerate in ongamemodeinit????

i think not is possible...


but... still have a question


SORRY FOR MY BAD ENGLISH,
BUT YOU NOT TALK SPANISH  ;D

7
ShowRoom (pawn) / [Update]My new server [GM from 0]
« on: April 16, 2013, 05:53:55 pm »
Hello all....

Now i release my new gm from 0
But this gm contain my Register System (not gups)
vehicles added 148
note: If you want property system (send me pm)

Availables commands

For register and login


/c register [password]
/c login [password]

Server Cmds
!wep, !hp, !heal, !goto, !deposit, !withdraw, !script

Car commands

!buycar, !sellcar, !eject, !gotov, !lockcar, !unlockcar

Admins Cmds

/c setmon,  /c cash,  /c ban,  /c  unban, /c kick /c drown, /c setlevel, /c heal, /c setcar,  /c get


Server commands is 100 % in english
Folders is 100 % in spanish (sorry but is more work traslate all)


i hope you say thank you.....


Updated Server

New Commands

!pack - !weppack - !fix  !givecash

Admin Commands

/c ann  /c ann2  /c say /c resetmon



New weapon packs

Now you choose your weapon packs for spawn

have 4 weapons pack

Weapon pack 1 - Stubby - M4 - ingrams - Python
Weapon pack 2 - Python - Stubby - Ruger - Molotov
Weapon Pack 3 - M60 - SPAZ - MP5 - Colt
Weapon Pack 4 - Stubby - Python - Molotov - Ruger - M60

if you choose you weapon pack you spawned always whit the same guns


If you use !disarm

You need choose again your weapons


CAR NUMBER 182 "CABBIE" SPAWNED IN THE SEA //FIXED changed "car id" 182 = speeder

If you like this update,  Comment or is the last version.....







https://mega.co.nz/#!38hG2LyZ!WvCkWTVRzHaOo7lZh_9eg0PaZR9RqAuyzFureMoBF8w

Server Maked by BlackWarrior (aledark24) in based a Server falcon downloading of http://vicecitymultiplayer.com/





8
Snippet Showroom / NOW!! You can't rob the players in the server, like cops and robers!
« on: March 18, 2013, 03:21:39 pm »
[pawn]new Wallet[MAX_PLAYERS];[/pawn]

 "Gups or Fc version"
 [pawn]              else if(strcmp(cmd,"rob",true) == 0) {
{
     tmp = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp );
      if(Wallet[plr] == 1) {

        SendClientMessage(playerid,0xAA3333AA,"You not cant rob the same player again!");
}
       if ( !strlen( tmp ) ) SendClientMessage( playerid, 0xFFFF00AA, "Write: /c rob [Nick/ID]" );
       else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, 0xAA3333AA, "Error: Unknown Player" );
   else{
   if(Wallet[plr] == 0) {
    new Float:XR, Float:YR, Float:ZR;
   GetPlayerPos(playerid,XR,YR,ZR);
   if(PlayerToPoint(3.0,plr,XR,YR,ZR)) {
       format( szMsg, sizeof( szMsg ), "%s steal the wallet of %s", gPlayers[playerid],gPlayers[plr]);
        SendClientMessageToAll( 0xFFFF00AA, szMsg );
        IncPlayerHandCash(playerid,200);
        DecPlayerHandCash(plr,200);
        Wallet[plr] = 1;
       SetPlayerMarker(playerid,15);
       }
      else SendClientMessage(playerid,0xAA3333AA,"Need to be closer for rob");
      }
  }
}

      return 1;
}[/pawn]

[pawn]public OnPlayerDeath(playerid, killerid, reason, bodypart)
{

Wallet[playerid] = 0;[/pawn]

[pawn]public OnPlayerDisconnect(playerid, reason)
{

Wallet[playerid] = 0;[/pawn]

All scripts version

[pawn]               else if(strcmp(cmd,"rob",true) == 0) {
{
     tmp = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp );
      if(Wallet[plr] == 1) {

        SendClientMessage(playerid,0xAA3333AA,"You not cant rob the same player again!");
}
       if ( !strlen( tmp ) ) SendClientMessage( playerid, 0xFFFF00AA, "Write: /c rob [Nick/ID]" );
   else{
   if(Wallet[plr] == 0) {
    new Float:XR, Float:YR, Float:ZR;
   GetPlayerPos(playerid,XR,YR,ZR);
   if(PlayerToPoint(3.0,plr,XR,YR,ZR)){
   if ( GetPlayerMoney( plr ) > 199 ) {
       format( szMsg, sizeof( szMsg ), "%s steal the wallet of %s", gPlayers[playerid],gPlayers[plr]);
        SendClientMessageToAll( 0xFFFF00AA, szMsg );
       format( szMsg, sizeof( szMsg ),"You steal $ 200 of the player %s",gPlayers[plr]);
        SendClientMessage(playerid, 0xFFFF00AA, szMsg );
        SetPlayerMoney(plr,GetPlayerMoney(plr) - 200);
        SetPlayerMoney(playerid,GetPlayerMoney(playerid) + 200);
        Wallet[plr] = 1;
        }
        if ( GetPlayerMoney( plr ) < 199 ){
      SendClientMessage(playerid,0xFFFF00AA,"This player not have money to rob");
       SetPlayerMarker(playerid,15);
       Wallet[plr] = 0;
       }
       }
      else SendClientMessage(playerid,0xAA3333AA,"Need to be closer for rob");
      }
  }
}

      return 1;
}[/pawn]

9
Snippet Showroom / buywep system in all Ammu-Nation
« on: March 17, 2013, 07:49:17 pm »
[pawn]      else if ( strcmp( cmd, "buywep", true ) == 0 || strcmp( cmd, "comprararma", true ) == 0 )
   {
         tmp = strtok( cmdtext, idx );
         if ( !strlen( tmp ) ) SendClientMessage( playerid, 0xFFFF00AA, "Write: /c buywep [weapon name/ID]" );
         if ( !strlen( tmp ) ) SendClientMessage( playerid, 0xFFFF00AA, "Escribe: /c comprararma [nombreArma/ID]" );
       else if(PlayerToPoint(7, playerid,364.11175, 1059.95654, 19.19139) || PlayerToPoint(7, playerid,-63.83909, -1477.56042, 10.44908) || PlayerToPoint(7, playerid,-673.11517, 1204.90148, 11.10896)){
         new cash = GetPlayerMoney(playerid);
         new wep, String[128];
             if(cash >= 1000) {
            SetPlayerMoney(playerid,GetPlayerMoney(playerid) - 1000);
          wep = FindWepIDFromString( tmp );
         SetPlayerWeapon(playerid, wep, 1000);
           DecPlayerHandCash(playerid,1000);
            format( String, sizeof( String ), "Bought  weapon  || Compraste el arma: [%s]",NombreArmas(FindWepIDFromString(tmp)));
            SendClientMessage(playerid, 0xFFFF00AA, String );
          }
           if(cash < 999) {
           SendClientMessage(playerid,0xFFFF00AA,"Need $1000 to buy a weapon! || Necesitas $ 1000 para comprar un arma");
           }
         }
           else
            {
        SendClientMessage(playerid,0xFFFF00AA,"Need to be in Ammu-Nation For buy Weapons");
        SendClientMessage(playerid,0xFFFF00AA,"Necesitas estar en Ammu-Nation para comprar armas");
      }
      return 1;
   }[/pawn]

Publics

[pawn]public NombreArmas(wep)
{
   new w[256];
if (wep == 1) w = "Brass Knuckle";
if (wep == 2) w = "Screw Driver";
if (wep == 3) w = "Golf Club";
if (wep == 4) w = "Night Stick";
if (wep == 5) w = "Knife";
if (wep == 6) w = "Baseball Bat";
 if (wep == 7) w = "Hammer";
if (wep == 8) w = "Cleaver";
if (wep == 9) w = "Machete";
if (wep == 10) w = "Katana";
if (wep == 11) w = "Chainsaw";
if (wep == 12) w = "Grenade";
if (wep == 13) w = "Remote Grenade";
if (wep == 14) w = "TearGas";
if (wep == 15) w = "Molotov";
if (wep == 16) w = "Missile";
if (wep == 17) w = "Colt45";
if (wep == 18) w = "Python";
if (wep == 19) w = "Shotgun";
if (wep == 20) w = "Spaz";
if (wep == 21) w = "Stubby";
if (wep == 22) w = "Tec9";
if (wep == 23) w = "Uzi";
if (wep == 24) w = "Ingrams";
if (wep == 25) w = "MP5";
if (wep == 26) w = "M4";
if (wep == 27) w = "Ruger";
if (wep == 28) w = "Sniper Rifle";
if (wep == 29) w = "Laser Scope";
if (wep == 30) w = "Rocket Launcher";
if (wep == 31) w = "Flame Thrower";
if (wep == 32) w = "M60";
if (wep == 33) w = "Minigun";
   return w;
}[/pawn]

[pawn]//==============================================================================
public PlayerToPoint(Float:radi, playerid, Float:x, Float:y, Float:z)
{
    new Float:oldposx, Float:oldposy, Float:oldposz;
    new Float:tempposx, Float:tempposy, Float:tempposz;
    GetPlayerPos(playerid, oldposx, oldposy, oldposz);
    tempposx = (oldposx -x);
    tempposy = (oldposy -y);
    tempposz = (oldposz -z);
    if (((tempposx < radi) && (tempposx > -radi)) && ((tempposy < radi) && (tempposy > -radi)) && ((tempposz < radi) && (tempposz > -radi)))
    {
        return 1;
    }
    return 0;
}
//==============================================================================[/pawn]

Mensaje en español
Para quienes se creen scripter de la pagina llena de spam llamada "comunidadpro" Creada por Dilson peralta, y que se creen con el derecho de sacar cada comando de cada usuario de este foro... y postearla libremente diciendo que es su idea, en especial el usuario "tomijaja"
Pues no son mas que noobs que no entienden las funciones de un script y sepan que aunque se crean "pro" o "scripters" no son mas que pobres diablos que no pueden hacer nada por si solos....

10
Snippet Showroom / The real Vip System
« on: March 05, 2013, 07:54:03 am »
This commands work in all script whit register system only you need change the name of the folder in public getviplevel and setviplevel

[pawn]new MSN[256];[/pawn]


[pawn]//=========================Vip System for Vips players===========================================
public GetVipLevel(playerid)
{
    format(MSN,256, USERS_FILE, gPlayers[playerid]);
   new Vip; Vip = dini_Int(MSN,"Vip");
   return Vip;
}
public SetVipLevel(playerid,Vip)
{
    format(MSN,256, USERS_FILE, gPlayers[playerid]);
   dini_IntSet(MSN,"Vip",Vip);
}
//==============================================================================[/pawn]
[pawn]public VipLevel(Vip)
{
   new vip[256];
    if (Vip == 0) vip = "Not is a Vip";
    if (Vip == 1) vip = "Bronze Vip";
    if (Vip == 2) vip = "Silver Vip";
    if (Vip == 3) vip = "Gold Vip";
    else if (Vip >= 4) vip = "Premium Vip";
   return vip;
}[/pawn]

Need create a new value in configuration, commands, example setvip=10

 [pawn]          else if (strcmp(cmd, "setvip", true) == 0)
     {
     new level[256];
      tmp = strtok(cmdtext, idx), plr = FindPlayerIDFromString(tmp), level = strtok(cmdtext, idx);
  if ( !IsAuthorized( playerid, cmd ) ) SendClientMessage( playerid, 0xF0182DFF, "Not Have Acces to use this command" );
      if (!strlen(tmp)) SendClientMessage(playerid, 0xFFFF00AA,"[System]: /c SetVip [Name] [1/2/3/4]" );
      else {
          if (plr == INACTIVE_PLAYER_ID) SendClientMessage(playerid, 0xF0182DFF,"[Error] - Unknown Player.");
           else if (!IsNumeric(level)) SendClientMessage(playerid, 0xFFFF00AA,"[Error] -Invalid Vip Level.");
           else {
                       format( szMsg, sizeof( szMsg ), "Admin %s give vip level to: %s, of: [%s].",gPlayers[playerid],gPlayers[plr],VipLevel(strval(level)));
            SendClientMessageToAll( 0xFFFF00AA, szMsg);
                SetVipLevel(plr,strval(level));
              }
      }
      return 1;
    }[/pawn]

In OnplayerSpawn put this

[pawn]   format( szMsg, sizeof( szMsg ), " [%s] Is spawned Vip Level: [%s].",gPlayers[playerid],VipLevel(GetVipLevel(playerid)));
   SendClientMessageToAll(0xFFFF00AA, szMsg );[/pawn]

And one idea to make a vip commands

  [pawn]      else if (strcmp(cmd, "jail", true) == 0) {
new razon[256];
        tmp = strtok( cmdtext, idx ), razon = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp );
      if ( !IsLoggedIn( playerid ) ) SendClientMessage(playerid, 0xF0182DFF, "Login in you account" );
        else if ( !strlen(razon) ) SendClientMessage(playerid, 0xF0182DFF, "Write: /c jail [Nick/ID] [Reason]" );
         else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage(playerid, 0xF0182DFF, "Error: Jugador desconocido" );
        else
         {
            if(GetVipLevel(playerid)>= 1)
      {

         format( szMsg, sizeof( szMsg ), "[Vip %s] send to jail:[ %s ] Reason:[ %s ]", gPlayers[ playerid ], gPlayers[ plr ], cmdtext[ strlen( tmp ) +8 ] );
         SendClientMessageToAll(  0xF0182DFF, szMsg );
       SetPlayerPos(plr,393.5389,-505.2466,9.3956,0,0);
       TogglePlayerControllable( plr, 0 );
         ToggleWidescreenForPlayer(plr,1);
         ToggleGreenScanlinesForPlayer(plr,1);
         
       }
       else SendClientMessage(playerid,ROJO,"Not is a vip");
      }
      return 1;
   }[/pawn]

This is a real, nice and simple commands whit not errors

Take my idea, but give me thanks first

11
ShowRoom (pawn) / My DeathMatch from 0, now in english!
« on: February 28, 2013, 10:31:24 pm »
Hello again,
on this occasion I come to my server bring death-match,
But this time in English, by the way ... Sorry for my bad English ...

Contain:

System properties:
! buyprop
! sellprop
! shareprop
! goprop


Car System:

! gotov
! buycar
! sellcar
! openv
! closev
! repair (only in the Pay N Spray)

Contains Anti-Nickname

If the player enters the server using strange symbols
be kicked from the server ...


Contains anti armor and life
If the hack used ugador life and be kicked exceeds 100
If you use hack armor and be kicked exceeds 99 ..

Contains bank system
! deposit
! withdraw

Includes registration system gups but modified to not believe a single account with the same name and set up ..

/ c register
/ c login
/ c exit

Contains Admin Commands
/ c goto
/ c setmon
/ c RESETMON
/ c ban
/ c unban
/ c Waterlevel
/ c speed
/ c money
/ c gravity
/ c get
/ c healall
/ c say
/ c
Contains skin buying and saving

/ c buyskin
/ c skin
(purchased in Store North Point Mall Gash)


Contains over 100 skins to be chosen to play

Add in console when player enters and exits a vehicle
When given the spawn
When disconnected
when he dies
When you register
When logs ....



Well I hope you like my server as I translate some work cost ....

Note:
PUBLICS FOLDERS AND REMAINED IN SPANISH
Just change language commands ....


Thank does not cost much, and I look forward to continue creating gamemodes and commands ....




http://www.putlocker.com/file/6BF6F9EF349E58EF

or download in the new MEGAUPLOAD

https://mega.co.nz/#!Pt4UkRYa!MhsYOTWoo_sPJvGpnWEuFyYtzBBPrDQMNhPI_KSIorE

12
ShowRoom (pawn) / save you pos for spawn!!
« on: February 15, 2013, 12:06:00 am »
Hello again, today i teach you how make the command for spawn in one location always.. if you "save you position"
|Video|
http://www.youtube.com/watch?v=l957Ac0kBP0&feature=youtu.be

[pawn]new Float:CoordX[MAX_PLAYERS];
new Float:CoordY[MAX_PLAYERS];
new Float:CoordZ[MAX_PLAYERS];[/pawn]

In the command "REGISTER" COPY THIS DINI_SET

      [pawn]   dini_Set( file, "pX", "-695.528503" );
         dini_Set( file, "pY", "706.554931" );
         dini_Set( file, "pZ", "12.116538" );[/pawn]


IN ONPLAYERTEXT

   [pawn]          else if ( strcmp( cmd, "!spawn", true ) == 0 )
   {
         tmp = strtok( cmdtext, idx );
         new Dinero = GetPlayerMoney(playerid);
      if ( !IsLoggedIn( playerid ) ) SendClientMessage( playerid, 0xF0182DFF, "Login first." );
         else
       {
      if(Dinero >= 1500) {
    format(file, sizeof(file), USERS_FILE, gPlayers[playerid]);
    GetPlayerPos(playerid, CoordX[playerid], CoordY[playerid], CoordZ[playerid]);
   dini_FloatSet(file, "pY", CoordY[playerid]);
    dini_FloatSet(file, "pZ", CoordZ[playerid]);
     dini_FloatSet(file, "pX", CoordX[playerid]);
    SendClientMessage(playerid,0xFFFF00AA,"You are saved you position to spawn");
           DecPlayerHandCash(playerid,1500);
          }
           if(Dinero < 1499) {
           SendClientMessage(playerid,0xFFFF00AA,"Need more money to save you position, need $ 1500");
           }
}
       return 1;
   }[/pawn]

in ONPLAYERSPAWN

[pawn]SetPlayerPos(playerid, dini_Float(file, "pX"), dini_Float(file, "pY"), dini_Float(file, "pZ"),0,0);
SendClientMessage(playerid,0xFFFF00AA,"You have send to you last position saved");[/pawn]



If you need thank me, send me a pm

13
Snippet Showroom / Change ban system of yours gups!working 100 %
« on: February 11, 2013, 10:57:44 pm »
Hi all... i know "gups contain many bugs, one example "register,givecash,deposit not show you real deposit,lockcars,ban system.... So now i fixed the ban system... only follow the steps xD

[pawn]public OnPlayerConnect(playerid)
{

InfoBanned(playerid);[/pawn]





[pawn]public OnPlayerCommandText(playerid, cmdtext[ ])
{
else if (strcmp(cmd, "ban", true) == 0) {
new razon[256], plr;
      tmp = strtok(cmdtext, idx), plr = FindPlayerIDFromString(tmp), razon = strtok(cmdtext, idx);
 if ( !IsAuthorized( playerid, cmd ) ) SendClientMessage( playerid, 0xF0182DFF, "Not have acces to this command" );
 else if (!strlen(razon)) SendClientMessage(playerid, 0xFFFF00AA,"[Error] - Write: /c ban <id/name> <reason>.");
   else if (plr == INACTIVE_PLAYER_ID)SendClientMessage(playerid, 0xF0182DFF,"[Error] - unknown player.");
      else {
              BaneoIP(plr,"Admin",gPlayers[playerid],cmdtext[strval(razon)+strlen(tmp)+4]);
       }
      return 1;
    }

    else if (strcmp(cmd, "unban", true) == 0) {
    new razon[256];
      tmp = strtok(cmdtext, idx), razon = strtok(cmdtext, idx);
      if ( !IsAuthorized( playerid, cmd ) ) SendClientMessage( playerid, 0xF0182DFF, "Not have acces to this command" );
 else if ( !strlen(tmp)) SendClientMessage(playerid, 0xFFFF00AA,"[Error] - Write: /c unban <Full name>.");
      else if (!IfPlayerBanned(tmp)) SendClientMessage(playerid, 0xFFFF00AA,"[Error] - not is in the banned list");
      else {
              DesbaneoIP(tmp,gPlayers[playerid],cmdtext[strval(razon)+strlen(tmp)+6]);
      }
      return 1;
    }
   
[/pawn]   
   
  [pawn] 
//==============================================================================
public InfoBanned(playerid)
{
   new IP[256],BAN,String[256];
    GetPlayerIp(playerid,IP,256);
    BAN = dini_Int("/Banned/BannedList.ini",IP);
    if(BAN == 1){
    format( String, sizeof( String ), "Auto-Kick: player  %s - Reason:[IP Banned of server].",gPlayers[playerid]);
SendClientMessageToAll(0xFFFF00AA, String );

      Kick(playerid);
       }
}
//==============================================================================
public IfPlayerBanned(player[ ])
{
   new ispb[256];
   ispb = dini_Get("/Banned/PlayerBanned.ini",player);
   return (strcmp(ispb, "0", true) == 0) ? false : true;
}
//==============================================================================
public BaneoIP(playerid,type[ ],admin[ ],reason[ ])
{
   new IP[256],inf[256],String[256];
    GetPlayerIp(playerid,IP,256);
    format(inf,256,"1 %s %s %s",gPlayers[playerid],admin,reason);
    dini_Set("/Banned/BannedList.ini",IP,inf);
    dini_Set("/Banned/PlayerBanned.ini",gPlayers[playerid],IP);
format( String, sizeof( String )," %s %s is banned player: %s, ID: %d, Reason:[%s ].",type,admin,gPlayers[playerid],playerid,reason);
SendClientMessageToAll(0xFFFF00AA, String );
   Kick(playerid);
}
//==============================================================================
[/pawn]
public DesbaneoIP(player[ ],admin[ ],reason[ ])
{
   new IP[256],param[2][128],String[256];
   IP = dini_Get("/Banned/PlayerBanned.ini",player);
    split(dini_Get("/Banned/BannedList.ini",IP) , param  , '  ' );
    format( String, sizeof( String ), "Admin %s Remove ban player: %s, Reason:[%s ].",admin,param[1],reason);
SendClientMessageToAll(0xFFFF00AA, String );
    dini_Unset("/Banned/BannedList.ini",IP);
    dini_Unset("/Banned/PlayerBanned.ini",player);
    return 1;
}
//==============================================================================
SORRY public desbaneo ip showme wrong the command whit pawno code, so i put only whit normal words xD but... copy all!

Download the banned folder
http://www.mediafire.com/?0yg0zwpxa55mb8j

You need delete the commands "ban and banip"
and of onplayerconnect
need delete
line "ipbans" to return
}

Put the banned folder inside of scriptfiles


VIDEO!

http://www.youtube.com/watch?v=DFTWivr1qXc&feature=youtu.be
SORRY my bad english but... thank me... some times....


14
ShowRoom (pawn) / Vehicle System
« on: January 24, 2013, 06:23:21 pm »
[pawn]//      NOT FORGET DOWNLOAD THE FOLDER OF VEHICLES AND PUT IN YOU FOLDER SCRIPTFILES
//      SYSTEM TESTED IN SCRIPT FROM 0 (FALCON), AND IN GUPS "DELETED THE SYSTEM OF CAR IN GUPS AND PUT THIS"


 /*if you have the public assigned only copy the text inside*/
//==============================================================================
public OnPlayerEnterVehicle(playerid,vehicleid,ispassenger)
{
              new id, Float:hp;
               id = GetPlayerVehicleID( playerid );
               GetVehicleHealth( GetPlayerVehicleID( playerid ), hp );
               hp = ( hp / 1000.00 ) * 1000;
                new string[256];
            format( string, sizeof( string ), "ID:[ %d ] Health:[ %.0f% ] Owner:[ %s ] Price:[ $%d ]", id, hp, VehicleInfo[ id ][ Propietario ], VehicleInfo[ id ][ Precio ] );
            SendClientMessage( playerid, COLOR_GREEN, string );
            if(InfoAutoCerrado(playerid,vehicleid)) return 0;
   return 1;
}
//==============================================================================

/* IN public OnGameModeInit PUT THIS*/
CargarAutos();
//==============================================================================

                 /*Put this in public OnPlayerText*/

             else if (strcmp(cmd, "!close", true) == 0) {
      tmp = strtok(cmdtext, idx);
       if ( !IsLoggedIn( playerid ) ) SendClientMessage( playerid, COLOR_RED, "Logueate primero." );
       if (!strlen(tmp)) Mensaje(playerid, GREEN,"[Sistema] - USAGE: !cerrar <ID> .");
              else if (!SiExiste(strval(tmp))) Mensaje(playerid, GREEN,"[Error] -This vehicle not exist.");
              else if ( !IsVehiclePropietario( strval( tmp ), playerid ) ) Mensaje( playerid, COLOR_GREEN, "Error: Este vehiculo no te pertenece." );
           else {
                            AutoCerrado(playerid,strval(tmp));
        }
      return 1;
   }
                else if (strcmp(cmd, "!open", true) == 0) {
      tmp = strtok(cmdtext, idx);
       if ( !IsLoggedIn( playerid ) ) SendClientMessage( playerid, COLOR_RED, "Logueate en tu cuenta." );
       if (!strlen(tmp)) Mensaje(playerid, GREEN,"[Sistema] - USAGE: !open <ID>.");
              else if (!SiExiste(strval(tmp))) Mensaje(playerid, GREEN,"[Error] - this vehicle not exist.");
              else if ( !IsVehiclePropietario( strval( tmp ), playerid ) ) Mensaje( playerid, COLOR_GREEN, "Error: Este vehiculo no te pertenece." );
           else {
                            AutoAbierto(playerid,strval(tmp));
                           }
      return 1;
   }
               else if ( strcmp( cmd, "!buycar", true ) == 0 )
   {
         tmp = strtok( cmdtext, idx );
      if ( !IsLoggedIn( playerid ) ) SendClientMessage( playerid, ROJO, "Please log-in to your account." );
      else if ( !strlen( tmp ) ) Mensaje( playerid, AMARILLO, "USAGE: !open [VehicleID]" );
      else if ( !SiEstaEnVenta( strval( tmp ) ) ) Mensaje( playerid, ROJO, "Error: That vehicle is not for sale." );
      else
      {
          new cost = GetCostoAuto( strval( tmp ) );
          if ( GetPlayerHandCash( gPlayers[ playerid ] ) < cost )
         {
            SendClientMessage( playerid, COLOR_GREEN, "Error: Not have money to buy a car!" );
             return 1;
         }
         format( file, sizeof( file ), "/Autos/propietario.ini", "propietario" );
         dini_Set( file, tmp, gPlayers[ playerid ] );

         new propietario[256]; propietario = gPlayers[ playerid ];
         VehicleInfo[ strval( tmp ) ][ Propietario ] = propietario;

         DecPlayerHandCash( playerid, cost );

         format( szMsg, sizeof( szMsg ), "Vehicle bought for:[ $%d ]", cost );
         SendClientMessage( playerid, COLOR_GREEN, szMsg );
      }
      return 1;
   }
   else if ( strcmp( cmd, "!sellcar", true ) == 0 )
   {
         tmp = strtok( cmdtext, idx );
      if ( !IsLoggedIn( playerid ) ) Mensaje( playerid, COLOR_RED, "Please log-in to your account." );
      else if ( !strlen( tmp ) ) Mensaje( playerid, COLOR_GREEN, "USAGE: !sellcar [VehicleID]" );
      else if ( !IsVehiclePropietario( strval( tmp ), playerid ) ) SendClientMessage( playerid, COLOR_GREEN, "Error: That vehicle is not yours." );
      else
      {
          new cost = GetCostoAuto( strval( tmp ) ), npropietario[256]; npropietario = "Automotora Sunshine Ltda.";
         format( file, sizeof( file ), "/Autos/propietario.ini", "propietario" );
         dini_Set( file, tmp, "Automotora Sunshine Ltda." );
         VehicleInfo[ strval( tmp ) ][Propietario] = npropietario;

         IncPlayerHandCash( playerid, cost );

         format( szMsg, sizeof( szMsg ), "Vehicle sold for:[ $%d ]", cost );
         SendClientMessage( playerid, COLOR_GREEN, szMsg );
      }
      return 1;
   }
                  else if ( strcmp( cmd, "!car", true ) == 0 )
   {
      tmp = strtok( cmdtext, idx );
      new plr = FindPlayerIDFromString( tmp );
      if ( !strlen( tmp ) )
      {
           if ( IsPlayerInAnyVehicle( playerid ) )
         {
               new id, Float:hp;
               id = GetPlayerVehicleID( playerid );
               GetVehicleHealth( GetPlayerVehicleID( playerid ), hp );
               hp = ( hp / 1000.00 ) * 1000;

            format( szMsg, sizeof( szMsg ), "ID:[ %d ] Health:[ %.0f% ] Propietario:[ %s ] Precio:[ $%d ]", id, hp, VehicleInfo[ id ][ Propietario ], VehicleInfo[ id ][ Precio ] );
            SendClientMessage( playerid, COLOR_GREEN, szMsg );
           }
         else SendClientMessage( playerid, COLOR_GREEN, "You are currently on foot or passenger." );
      }
      else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, ROJO, "Error: Unknown player" );
      else if ( IsPlayerInAnyVehicle( plr ) )
      {
         new id, Float:hp;
         id = GetPlayerVehicleID( plr );
         GetVehicleHealth( GetPlayerVehicleID( plr ), hp );
         hp = ( hp / 1000.00 ) * 1000;

         format( szMsg, sizeof( szMsg ), "ID:[ %d ] Health:[ %.0f% ] Owner:[ %s ]  Price:[ $%d ]", id, hp, VehicleInfo[ id ][ Propietario ], VehicleInfo[ id ][ Precio ] );
         SendClientMessage( playerid, COLOR_GREEN, szMsg );
        }
      else
      {
         format( szMsg, sizeof( szMsg ), "%s is currently on foot.", gPlayers[ plr ] );
         SendClientMessage( playerid, COLOR_GREEN, szMsg );
      }
      return 1;
      }
                                 else if ( strcmp( cmd, "!gotov", true ) == 0 )
   {
         tmp = strtok( cmdtext, idx );
      if ( !IsLoggedIn( playerid ) ) Mensaje( playerid, COLOR_RED, "Login first." );
      else if ( !strlen( tmp ) ) Mensaje( playerid, COLOR_YELLOW, "write: !gotov [VehicleID]" );
      else if ( !IsVehiclePropietario( strval( tmp ), playerid ) ) Mensaje( playerid, COLOR_RED, "Error: Not is you vehicle." );
      else
      {
       PutDirectlyInVehicle(playerid, strval( tmp ) );
       Mensaje(playerid,COLOR_RED,"You are travel inside of you vehicle");
      }
      return 1;
   }
//==========================================================================================
                     /* Add this publics */
public InfoAutoCerrado(playerid,vehicleid)
{
     if (strcmp(GetAutoCerrado(vehicleid), "on", true) == 0) {
              Mensaje(playerid, GREEN,"This vehicle is closed whit keys.");
              RemovePlayerFromVehicle(playerid);
              SetVehicleToRespawn(vehicleid);
              }
   return 1;
}
//==============================================================================
public AutoCerrado(playerid,vehicleid)
{
         Mensaje(playerid, GREEN,"The vehicle now is closed.");
        SetAutoCerrado(vehicleid,"on");
}
//==============================================================================
public AutoAbierto(playerid,vehicleid)
{
Mensaje(playerid, GREEN,"The vehicle now is open.");
        SetAutoCerrado(vehicleid,"off");
        }
//==============================================================================
public GetAutoCerrado(vehicleid)
{
   new lock[256]; lock = dini_Get("/Autos/cerrado.ini",IntToStr(vehicleid));
   return lock;
}
//==============================================================================
public SetAutoCerrado(vehicleid,lock[])
{
   dini_Set("/Autos/cerrado.ini",IntToStr(vehicleid),lock);
}
//==============================================================================
public GetVehiclePropietario( vehicleid )
{
   return VehicleInfo[ vehicleid ][ Propietario ];
}
//==============================================================================
public GetCostoAuto( vehicleid )
{
   return VehicleInfo[ vehicleid ][ Precio ];
}
//==============================================================================
public SiEstaEnVenta( vehid )
{
   return ( strcmp( VehicleInfo[ vehid ][ Propietario ], "Automotora Sunshine Ltda.", true ) == 0 ) ? true : false;
}
//==============================================================================
public IsVehiclePropietario( vehid, plr )
{
   return ( strcmp( VehicleInfo[ vehid ][ Propietario ], gPlayers[ plr ], true ) == 0 ) ? true : false;
}
//==============================================================================
public SiExiste( vehid )
{
   return ( vehid > ServerInfo[ 0 ][ MaxVehicles ] ) ? false : true;
}
//==============================================================================
public CargarAutos()
{
   new XU, i;
   if ( !dini_Exists( "/Autos/autos.ini" ) ) return -1;
   new data[ 7 ][ 256 ];
   for ( XU = 1; XU <= 250; XU++ )
   {
      new pos[ 256 ], fm[ 6 ];
      format( fm, sizeof( fm ), "%d", XU );
      pos = dini_Get( "/Autos/autos.ini", fm );
      if ( strlen( pos ) )
      {
         i++;
         split( pos, data, ' ' );
         AddStaticVehicle( strval( data[ 0 ] ), floatstr( data[ 1 ] ), floatstr( data[ 2 ] ), floatstr( data[ 3 ] ), floatstr( data[ 4 ] ), strval( data[ 5 ] ), strval( data[ 6 ] ) );

         new nombre[32], propietario[256], precio;
         nombre = "";

         VehicleInfo[ i ][ Id ] = i;
         VehicleInfo[ i ][ Nombre ] = nombre;

         format( file, sizeof( file ), "/Autos/propietario.ini", "propietario" );
         propietario = dini_Get( file, IntToStr( i ) );
         VehicleInfo[ i ][ Propietario ] = propietario;

         format( file, sizeof( file ), "/Autos/precio.ini", "propietario" );
         precio = dini_Int( file, IntToStr( i ) );
         VehicleInfo[ i ][ Precio ] = precio;
      }
   }
   ServerInfo[ 0 ][ MaxVehicles ] = i;
   printf( " >> Cars added to server (%d)", i );
   return asp;
}

public Mensaje(playerid, color, text[])
   {
   new Msn[256];
   format(Msn, 256, "Private Message >> %s", text);
   SendClientMessage(playerid, color, Msn);
   return 1;
   }

//==============================================================================
//==============================================================================

                         /*added and define this*/
                         
new VehicleInfo[ 200 ][ vInfo ];
new ServerInfo[ 1 ][ sInfo ] ;
new asp = 0;


#define AUTOSPROPIETARIO_FILE  "/Autos/propietario.ini"
#define ROJO         0xAA3333AA
#define AMARILLO      0xFFFF00AA

 enum vInfo
{
   Id,
   Nombre[32],
   Propietario[256],
   Precio
}


// DO YOU LIKE MY SYSTEM AND COMMANDS?? COMMENT NOW!!
[/pawn]
Download and put this in you folder scriptfiles
http://depositfiles.com/files/5xwdt1s3w















PM TO SUPPORT

15
Snippet Showroom / [Warchief] Buy And Save Skin (by me)
« on: January 05, 2013, 09:09:59 pm »
[pawn]               else if (strcmp(cmd, "buyskin", true) == 0) {
        tmp = strtok(cmdtext, idx);
        new Dinero = GetPlayerMoney(playerid);
         if (!strlen(tmp)) Mensaje(playerid, NARANJA,"[System] - CORRECT USE: /c buyskin <ID>.");
         else if(!NeedPlayerInArea(playerid,407.6586,424.0244,1037.5781,1040.8357)) Mensaje(playerid, NARANJA,"[Error] - Only purchase GASH Store in North Point Mall");
       else {
              if (!IsNumeric(tmp)) Mensaje(playerid, ROJO,"[Error] -
Number of invalid skin");
              else if (strval(tmp) >=  107) Mensaje(playerid, ROJO,"[Error] - You can only buy up to 106.");
              else {
                     if(Dinero >= 1000) {
                   Mensaje(playerid, AMARILLO,"You bought a skin for use always use / c skin.");
                   Mensaje(playerid, AMARILLO,"You can only buy up to 106 skin.");
               SetPlayerSkin(playerid,strval(tmp));
                   DecPlayerHandCash(playerid,500);
                   SetPlayerRopaComprada(playerid,strval(tmp));
                   }
                   }
                              if(Dinero < 999) {
           SendClientMessage(playerid,AMARILLO,"The skin cost $ 1,000 can only buy up to 106 skin");
        }
   }
        return 1;
   }
              else if (strcmp(cmd, "skin", true) == 0) {
        tmp = strtok(cmdtext, idx);
       if ( !IsLoggedIn( playerid ) ) Mensaje( playerid, ROJO, "Login first" );
         if(GetPlayerRopa(playerid))
   {
   SetPlayerSkin(playerid,GetPlayerRopa(playerid));
        }
        return 1;
   }[/pawn]

Need define this public

[pawn]new MSN[256];[/pawn]
[pawn]//======================Guardado de ropa========================================
public GetPlayerRopa(playerid)
{
    format(MSN,256, REGISTROS_FILE, gPlayers[playerid]);//change to you register folder name
   new ropa; ropa = dini_Int(MSN,"skin");
   return ropa;
}
public SetPlayerRopaComprada(playerid,ropa)
{
    format(MSN,256, REGISTROS_FILE, gPlayers[playerid]);//change to you register folder name
   dini_IntSet(MSN,"skin",ropa);
}
//==============================================================================
public Mensaje(playerid, color, text [ ])
   {
   new Msn[256];
   format(Msn, 256, "Private Message >> %s", text);
   SendClientMessage(playerid, color, Msn);
   return 1;
   }

//==============================================================================
stock NeedPlayerInArea(playerid,Float:MinX,Float:MaxX,Float:MinY,Float:MaxY)
{
      new Float:x,Float:y,Float:z;
       GetPlayerPos(playerid, x, y, z);
       if(x >= MinX && x <= MaxX && y >= MinY && y <= MaxY) return 1;
       else return 0;
      return 1;
}
//==============================================================================[/pawn]

Pages: [1] 2