Rolandas_L

/isdalinti R.Lightning

Apr 1st, 2016
590
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.02 KB | None | 0 0
  1. CMD:isdalinti(playerid,string[]){
  2.     new PArtiID[MAX_PLAYERS],PArti,Suma,Float: PPos[3],Isdalins,Stringas[128], Vardas[24];
  3.     if(sscanf(string,"i",Suma)) return SendClientMessage(playerid, -1, "Komandos naudojimas: /išdalinti <<suma>>");
  4.     if(GetPlayerMoney(playerid) < Suma) return SendClientMessage(playerid, -1, "Klaida: Jūs neturite tiek pinigų");
  5.     GetPlayerPos(playerid, PPos[0], PPos[1], PPos[2]);
  6.     for(new i; i <= MAX_PLAYERS; i++){
  7.         if(!IsPlayerInRangeOfPoint(i, 15, PPos[0], PPos[1], PPos[2])) continue;
  8.         if(i == playerid) continue;
  9.         PArtiID[PArti] = i;
  10.         PArti++;
  11.     }
  12.     Isdalins = Suma / PArti;
  13.     GivePlayerMoney(playerid,-Suma);
  14.     format(Stringas, 128, "Išdalinote %i€ %i žaidėjams. Kiekvienam po %i€", Suma, PArti, Isdalins);
  15.     SendClientMessage(playerid, -1, Stringas);
  16.     GetPlayerName(playerid, Vardas, 24);
  17.     format(Stringas, 128, "%i davė jums %i€", Vardas, Isdalins);
  18.     for(new i; i <= PArti; i++){
  19.         GivePlayerMoney(PArtiID[i],Isdalins);
  20.         SendClientMessage(PArtiID[i], -1, Stringas);
  21.     }
  22.     return 1;
  23. }
Add Comment
Please, Sign In to add comment