[SAMP] - /isdalinti komanda

[Admin_Chilleris]

Sveiki visi, kas turit normalia sutvarkyta - /isdalinti komanda.

Bandžiausi daryti man duoda pinigus bet nepilnai, o kaip kode nerandu problemos...

[ALFRED.]

Nelabai suprantu, iš kur tokioje komandoje gali atsirasti neatrandama klaida? Jei nori sulaukt pagalbos, pateik kodą.

[Admin_Chilleris]

13 minutes prieš, ALFRED. parašė:

Nelabai suprantu, iš kur tokioje komandoje gali atsirasti neatrandama klaida? Jei nori sulaukt pagalbos, pateik kodą.

https://pastebin.com/tBY4x59e Nedalina eurų... xd

[newyorkas]

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".

 

[Admin_Chilleris]

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".

 

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

[mariusqw]

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.