Steal

[pamoka] Ginklu Banas

Recommended Posts

Sveiki, siendian pasiziurejau visus forumus, ir pamaciau idomu scripta. ginklu bana(negalesi daugiau pajimti ginklu.)

1.PUNKTAS

einame i ****/data/playerDB.txt

susirandame paskutini

bool:

mano paskutinis:

bool:pila,

po juo parasome:

bool:glic,

issaugom ir uzdarom

2.PUNKTAS

atsidarome savo gm mano bus: ****.pwn

susirandame:

public Clear(playerid)

po juo parasome:

playerDB[playerid][glic]=false;

poto susirandame:

public SavePlayerData(playerid,bool:simple)

po juo irasome:

if (dini_Int(file,"Glicenzija")) playerDB[playerid][glic] = true;

3.PUNKTAS

komandu kurimas

susirandam admin komanda /pzu ir po juo parasome:

if(!strcmp(cmdtext, "/gban", true,5))
  {
if(playerDB[playerid][admin] != true)
      if(cmdtext[6]==0){SendClientMessage(playerid,COLOR,"* Duoti ginklų baną /gban "); return 1;}
      new vardas[MAX_PLAYER_NAME];
      strmid(vardas,cmdtext[6],0,MAX_PLAYER_NAME);
      new id = GetPlayeridMid(vardas);
     if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, COLOR, "Tokio žaidėjo nėra"); return 1;}

       if(playerDB[id][glic])
      {
         SendClientMessage(playerid,COLOR,"* Žaidėjas jau turi baną.");
         return 1;
     }

       SendClientMessage(playerid,COLOR,"* Davėte Ginklų baną.");
       playerDB[id][glic]=true;
       SendClientMessage(id,COLOR,"* Gavote ginklų baną. Dėl unban tarkitės su administratoriumi.");
     return 1;
   }

ir po ja unban komanda.

     if(!strcmp(cmdtext, "/ungban", true,7))
  {
if(playerDB[playerid][admin] != true)
      if(cmdtext[4]==0){SendClientMessage(playerid,BLUE,"* Nuimti ginklų baną: /ungban [vardo_dalis]"); return 1;}
      new vardas[MAX_PLAYER_NAME];
      strmid(vardas,cmdtext[8],0,MAX_PLAYER_NAME);
      new id = GetPlayeridMid(vardas);
     if (id == INVALID_PLAYER_ID){ SendClientMessage(playerid, RED, "* Tokio žaidėjo nėra."); return 1;}
       if (id == playerid){ SendClientMessage(playerid, RED, "* Sau ginklų bano negali nuimti."); return 1;}


     new msg[128],police[MAX_PLAYER_NAME];
     GetPlayerName(playerid,police,sizeof(police));
     GetPlayerName(id,vardas,sizeof(vardas));

       playerDB[id][glic]=false;

     format(msg,sizeof(msg),"Jūs nuimėte %s ginklų baną.",vardas);
     SendClientMessage(playerid,GREEN,msg);

     format(msg,sizeof(msg),"%s nuėme jums ginklų baną.",police);
     SendClientMessage(id,RED,msg);
     if(playerDB[id][vedelogin]){SavePlayerData(id,false);}

        return 1;
   }

4.PUNKTAS

su komandom baigta. dabar padarom kad jai gavo gun ban dada negaletu tureti gun.

susirandame:

public OnPlayerUpdate(playerid)

po juo parasome:

new ginkls = GetPlayerWeapon(playerid);
if(ginkls ==1 || ginkls == 2 || ginkls == 3 || ginkls == 4 || ginkls == 5 || ginkls == 6 || ginkls == 7 || ginkls ==8 || ginkls == 9 || ginkls == 10 || ginkls == 11 || ginkls == 12 || ginkls == 13  || ginkls == 14 || ginkls == 15
|| ginkls == 16 || ginkls == 17 || ginkls == 18 || ginkls == 19 || ginkls == 20 || ginkls == 21 || ginkls == 22 || ginkls == 23 || ginkls == 24 || ginkls == 25 || ginkls == 26 || ginkls == 27 || ginkls == 29 || ginkls == 28 || ginkls == 30
|| ginkls == 31 || ginkls == 32 || ginkls == 33 || ginkls == 34 || ginkls == 35 || ginkls == 36 || ginkls == 37 || ginkls == 38 || ginkls == 39 || ginkls == 40 || ginkls == 41 || ginkls == 42 || ginkls == 43 || ginkls == 44 || ginkls == 45 || ginkls == 46
|| ginkls == 47 || ginkls == 48 || ginkls == 49 || ginkls ==50)
{
if(!playerDB[playerid][glic])
{
SendClientMessage(playerid, RED, "Jūs negalite turėti ginklų, nes gavote ginklų baną.");
SendClientMessage(playerid, RED, "Dėl unbano kreipkitės pas administratorių.");
ResetPlayerWeapons(playerid);
}
}

na ir viskas baigtas.

CREDITS

Kure: Britas

EDIT'ino: Steal

Dalintis šį pranešimą


Nuoroda iki šio pranešimo
Dalintis per kitą puslapį

Svečias
Ši tema yra užrakinta.

  • Å iame puslapyje narÅ¡o:   0 nariai

    Nėra registruotų narių peržiūrinčių šį forumą.

  • eneba
  • eneba
  • eneba



  • SuperGames programele
  • SuperGames programele