[Pamoka]/ispetivip

[Slayer_]

Sukuriau pamoka, su kuria SuperAdmin'as gales ispeti Vip'a. Vip'as surinkes 3ispejimus , neteks Vip'o privilegiju.Taigi pradekime.

1)Einame i ***\gamemodes\data\playerDB.txt.

Po enum'u susirandame:

adminlygis,
pradijas,
iradijas,
telefonas,
laikrodis,

Ir po jais prirasome:

vipispejimas

2)Kuriame komanda.

Einame i ***\Pawno\pawno , atsidarome savo gamemod'a. Spaudziame search(CTRL + F) ir irasome

if(!strcmp(cmdtext, "/skomandos", true))

.Ir po bet kuria is superadmin'o komanda rasome:

if(!strcmp(cmdtext, "/ispetivip",true,7))
        {
            if(!cmdtext[7])
            {
       SendClientMessage(playerid,BLUE,"* Ispėti vipą  /ispetivip [vardo dalis]");
       return 1;
      }
      new name[24],vardas[24];
      strmid(name,cmdtext[8],0,sizeof(name));
      new id = GetPlayeridMid(name);

      if(!playerDB[playerid][vip])
      {
       SendClientMessage(playerid,RED,"* Šis žaidėjas nėra VIP!");
       return 1;
      }

      if(id == INVALID_PLAYER_ID)
      {
       SendClientMessage(playerid,RED,"* Tokio zaidejo nera!");
       return 1;
      }

      GetPlayerName(id,name,sizeof(name));
      GetPlayerName(playerid,vardas,sizeof(vardas));

               playerDB[id][vipispejimas]+=1;
            new ispejimai = playerDB[id][vipispejimas];
      new msg[120],msgid[120],msgas[130];
      format(msg,sizeof(msg),"* Ispėjote %s Dabar jis turi %i ispejima(-us).",name,ispejimai);
      SendClientMessage(playerid,GREEN,msg);
      format(msgid,sizeof(msgid),"*  %s jus ispėjo. Dabar jus turite %i ispejima(-us).",vardas,ispejimai);
      SendClientMessage(id,RED,msgid);
     if(playerDB[id][ispejimas]==3)
     {
   playerDB[playerid][vip]=false;
   playerDB[id][ispejimas]=0;
      SendClientMessage(id,0xD9E916FF,"* Jus surinkote 3 ispejimus, todel jus praradote VIP teises.");
      format(msgas,sizeof(msgas),"* Zaidejas %s surinko 3 ispėjimus, todėl prarado VIP teises.",name);
      SendClientMessage(playerid,0xD9E916FF,msg);
      return 1;
     }
   }

3)Pritaikome krovima/saugojima.

Atsidarome paieska(CTRL+F) ir irasome:

public Clear(playerid)

Po:

playerDB[playerid][banke]=0;
playerDB[playerid][namuose]=0;
playerDB[playerid][textas]=0;
playerDB[playerid][ispejimas]=0;
playerDB[playerid][vipispejimas]=0;
playerDB[playerid][narkotikai]=0;
playerDB[playerid][specialybe]=0;

Irasome:

playerDB[playerid][vipispėjimas]=0;

Ir vel atsidarome paieska(CTRL+F) ir irasome:

public loadplayerdata

Po:

playerDB[playerid][mobsas] = dini_Int(file,"Mobsas");
playerDB[playerid][namuose] = dini_Int(file,"Money.Home");
playerDB[playerid][narkotikai] = dini_Int(file,"Drugs");
playerDB[playerid][draudimas] = dini_Int(file,"Insurance");
playerDB[playerid][lytis] = dini_Int(file,"Lytis");

Irasome:

playerDB[playerid][vipispėjimas] = dini_Int(file,"VIPIspėjimai");

Spaudziame seach(CTRL+F) ir irasome:

public saveplayerdata

Po:

dini_IntSet(file,"Money.Pocket",GetPlayerMoneyA(playerid));
dini_IntSet(file,"Money.Bank",playerDB[playerid][banke]);
dini_IntSet(file,"Money.Home",playerDB[playerid][namuose]);
dini_IntSet(file,"Biznis",playerDB[playerid][biznis]);

Prirasome:

dini_IntSet(file,"VIPIspejimai",playerDB[playerid][vipispejimas]);

4)Darome,kad superadmin'as galetu susirasti sia komanda gui lange.

Atsidarome paieska(CTRL+F) ir irasome:

"/skomandos"

Prie:

ShowPlayerDialog(playerid, 15987, DIALOG_STYLE_MSGBOX,"SuperKomandos", "*/sz\n*Atelevisus\n*DarbuID\n*PridetiXP || NuimtiXP\n*SkirtiDyriku\n*PriskirtiVipas || NuimtiVipas\n*SkirtiAdminu || NuimtiAdmina\n*SuperKick || Orai\n*Aban || Mikro\n*Weather || Say\n*Serv2011 || Ismoka\n*Reklama || Rekordas\n/keistilaika

Prirasome:

/ispetivip

Kodas kurtas ne mano, as ji editinau:istaisiau bug'us,pridejau nauja funkcija.

Padejau?Nepagailek +R3P