Peršokti į turinį
Admin_Bielka

[SAMP] - /isdalinti komanda

Recommended Posts




CMD:isdalinti(playerid,string[])
{
    new PArtiID[MAX_PLAYERS],PArti,Suma,Float: PPos[3],Isdalins,Stringas[128], Vardas[24];
    if(sscanf(string,"i",Suma)) return SendClientMessage(playerid, -1, "Komandos naudojimas: /išdalinti <<suma>>");
    if(GetPlayerMoney(playerid) < Suma) return SendClientMessage(playerid, -1, "Klaida: Jūs neturite tiek pinigų");
    GetPlayerPos(playerid, PPos[0], PPos[1], PPos[2]);
    for(new i; i <= MAX_PLAYERS; i++)
	{
        if(!IsPlayerInRangeOfPoint(i, 15, PPos[0], PPos[1], PPos[2])) continue;
        if(i == playerid) continue;
        PArtiID[PArti] = i;
        PArti++;
    }
    Isdalins = Suma / PArti;
    GivePlayerMoney(playerid,-Suma);
    format(Stringas, 128, "Išdalinote %i€ %i žaidėjams. Kiekvienam po %i€", Suma, PArti, Isdalins);
    SendClientMessage(playerid, -1, Stringas);
    GetPlayerName(playerid, Vardas, 24);
    format(Stringas, 128, "%i davė jums %i€", Vardas, Isdalins);
    for(new i; i <= PArti; i++)
    {
        GivePlayerMoney(PArtiID[i],Isdalins);
        SendClientMessage(PArtiID[i], -1, Stringas);
    }
    return 1;
}

 

Script'o autorius: 

 

numesk kodą ir pažiūrės visi kaip tau duoda tuos pinigus "nepilnai". :D

 

Dalintis šį pranešimą


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

3 minutes prieš, newyorkas parašė:
CMD:isdalinti(playerid,string[])
{
    new PArtiID[MAX_PLAYERS],PArti,Suma,Float: PPos[3],Isdalins,Stringas[128], Vardas[24];
    if(sscanf(string,"i",Suma)) return SendClientMessage(playerid, -1, "Komandos naudojimas: /išdalinti <<suma>>");
    if(GetPlayerMoney(playerid) < Suma) return SendClientMessage(playerid, -1, "Klaida: Jūs neturite tiek pinigų");
    GetPlayerPos(playerid, PPos[0], PPos[1], PPos[2]);
    for(new i; i <= MAX_PLAYERS; i++)
	{
        if(!IsPlayerInRangeOfPoint(i, 15, PPos[0], PPos[1], PPos[2])) continue;
        if(i == playerid) continue;
        PArtiID[PArti] = i;
        PArti++;
    }
    Isdalins = Suma / PArti;
    GivePlayerMoney(playerid,-Suma);
    format(Stringas, 128, "Išdalinote %i€ %i žaidėjams. Kiekvienam po %i€", Suma, PArti, Isdalins);
    SendClientMessage(playerid, -1, Stringas);
    GetPlayerName(playerid, Vardas, 24);
    format(Stringas, 128, "%i davė jums %i€", Vardas, Isdalins);
    for(new i; i <= PArti; i++)
    {
        GivePlayerMoney(PArtiID[i],Isdalins);
        SendClientMessage(PArtiID[i], -1, Stringas);
    }
    return 1;
}

 

Script'o autorius: 

 

numesk kodą ir pažiūrės visi kaip tau duoda tuos pinigus "nepilnai". :D

 

Taip aš išėmiau, nes nafik man daryti? :D Aj ne pala viskas okey, aš nepastebėjau jog pas mane ne "vardas" o getplayername, RAKINKIT TEMĄ.

Dalintis šį pranešimą


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

CMD:isdalinti(playerid, params[])
{
	if(GetPlayerScore(playerid) < 4000) return SendClientMessage(playerid, -1, "{ff0000}* Neturi 4.000 XP");
	
    new
		PArtiID[MAX_PLAYERS],
		PArti,
		Suma,
		Isdalins,
		Stringas[128],
		Float:playerposX,
		Float:playerposY,
		Float:playerposZ
	;
    
    if(sscanf(params, "i", Suma)) return UsageMessage(playerid, "* Komandos naudojimas: /isdalinti [suma]");
    if(GetPlayerMoneyA(playerid) < Suma) return ErrorMsg(playerid, "* Jūs neturite tiek pinigų.");
    if(Suma < 5000) return ErrorMsg(playerid, "* Suma negali būti mažesnė už 5.000€");
    
    GetPlayerPos(playerid, playerposX, playerposY, playerposZ);
    
    foreach(new i : Player)
	{
        if(i == playerid) continue;
        if(!IsPlayerInRangeOfPoint(i, 25.0, playerposX, playerposY, playerposZ)) continue;

		if(GetPlayerState(i) != PLAYER_STATE_SPECTATING)
		{
	        PArtiID[PArti] = i;
	        PArti++;
        }
    }
    if(PArti < 1) return ErrorMsg(playerid, "* Šalia žmonių nėra.");
    
    Isdalins = Suma / PArti;
    
    GivePlayerMoneyA(playerid, -Suma);
    
    format(Stringas, 128, "***Išdalinote {db881a}%s {33ccff}€", AddPoints(Isdalins));
    SendClientMessage(playerid, ZYDRA, Stringas);
    
    format(Stringas, 128, "***Gavote {db881a}%s {33ccff}€ iš {db881a}%s", AddPoints(Isdalins), Vardas(playerid));
    for(new i = 0; i < PArti; i++)
	{
		if(GetPlayerState(i) == PLAYER_STATE_ONFOOT)
		{
	        GivePlayerMoneyA(PArtiID[i], Isdalins);
	        SendClientMessage(PArtiID[i], ZYDRA, Stringas);
        }
    }
    
    return 1;
}

Šiek tiek apsaugota nuo buginimo komanda.

  • Teigiamai 2

Dalintis šį pranešimą


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

Svečias
Ši tema yra užrakinta.

  • Narių peržiūri šį forumą:   0 nariai

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


  • SuperGames programele
  • SuperGames programele


×