parduoti ginklą script'ukas

[newyorkas]

daug kas iš žalių scripterių prašė šito scripto, bet ankščiau buvau pasikėlęs ir nieko nedalinau. žinau, kad jis nėr toks ici bici kietas, bet vistiek, atlieka savo.

 

naudojimas paprastas, parašai komandą /pg vardas_pavardė kulkų kiekis ir kaina.

pasiūlius žaidėjui pirkti, jis turės 30 sekundes sutikti.

daug nerašysiu, turbūt esat jau matę kaip jis veikia.

 

 

aišku, visas kakas (nepamenu kaip kas vadinasi, didelis soriux) jums reiks pasikeisti.

 

už lygiavimą taip pat atsiprašau, nebuvau tas kuris mėgo lygiuot.

smegenai pas mane buvo apkrauti, mąsčiau kaip jį surašyt ilgai, tai atsidėkokit nors žaliu reputacijos mygtuku.

 

Pardavimo komanda:

 

CMD:pg(playerid, params[])
{
	if(playerDB[playerid][darbas]!=9) return 0;
	new player[MAX_PLAYER_NAME],kaina,kiek,zaidejoID,ginklas;
	ginklas = GetPlayerWeapon(playerid);
	if(sscanf(params,"s[24]id",player,kiek,kaina)) return SendClientMessage(playerid,Raudona,"Parduoti laikomą ginklą - /pg [Vardas_Pavardė] [kulkų kiekis] [kaina]");
	zaidejoID = GetPlayeridMid( player );
	if(GetPlayerWeapon(playerid) == 0) return SendClientMessage(playerid,-1,"{ff0000}Pasirinkite ginklą!");
	new
	   name[MAX_PLAYER_NAME],
	   name2[MAX_PLAYER_NAME],
	   msg[256],
	   msg2[256];

	new gunname[64];
	new weap = GetPlayerWeapon( playerid );
	if(weap == 5) gunname = "Beisbolo lazdą";
	else if(weap == 8) gunname = "Kataną";
	else if(weap == 22) gunname = "Desert Eagle";
	else if(weap == 25) gunname = "Shotgun";
	else if(weap == 30) gunname = "AK-47";
	else if(weap == 34) gunname = "Sniper Rifle";

	GetPlayerName(playerid, name, sizeof(name));
	GetPlayerName(zaidejoID, name2, sizeof(name2));
	SetPVarInt(zaidejoID, "SiuloGinklus", playerid);
	SetPVarInt(zaidejoID, "SiuloGunKaina", kaina);
	SetPVarInt(zaidejoID, "SiuloKiek", kiek);
	SetPVarInt(zaidejoID, "Koks_gun", ginklas);
	SetPVarInt(zaidejoID, "Ginklo_ID", weap);
	SetPVarInt(zaidejoID, "ginklai", 1);
	format(msg, sizeof(msg), "Pasiūlėte žaidėjui %s pirkti %s %d kulkų už %dLT", name2, gunname, kiek, kaina);
	SendClientMessage(playerid, Zalia, msg);
	//pirkimas
	format(msg, sizeof(msg), "Ginklų prekeivis %s jums siūlo %s %i kulkų už %iLT", name, gunname, kiek, kaina);
	SendClientMessage(zaidejoID, Zalia, msg);
	format(msg, sizeof(msg), "Jeigu norite nusipirkti rašykite /perku. Turite 30sec", name, gunname, kiek, kaina);
	SetTimer("pirkimotimeris", 30000, true);
	SendClientMessage(zaidejoID, Zalia, msg);
	//
	format(msg2, sizeof(msg2), "Pasiūliau žaidėjui %s pirkti %s %d kulkų už %i", name2, gunname, kiek, kaina);
	SendMessageToGP(Geltona,msg2);
	return 1;
}

 

 

Sutikimo komanda:

 

CMD:perku(playerid,params[])
{
if(GetPVarInt(playerid, "ginklai") == 1)
{
new money = GetPVarInt(playerid, "SiuloGunKaina");
new zaidejoID = GetPVarInt(playerid, "SiuloGinklus");
new kiek = GetPVarInt(playerid, "SiuloKiek");
new ginklas = GetPVarInt(playerid, "Koks_gun");
new ginklo_id = GetPVarInt(playerid, "Ginklo_ID");

if(GetPlayerMoney(playerid)<money) return SendClientMessage(playerid, -1,"{ff0000}Jums neužtenka pinigų");
if(zaidejoID == INVALID_PLAYER_ID) return SendClientMessage(playerid, -1,"{ff0000}Prekeivis atsijungė, kvieskite prekeivį iš naujo!");
new msg[150];

//ginklų idai
new gunname[64];
if(ginklo_id == 5) gunname = "Beisbolo lazdą";
else if(ginklo_id == 8) gunname = "Kataną";
else if(ginklo_id == 22) gunname = "Desert Eagle";
else if(ginklo_id == 25) gunname = "Shotgun";
else if(ginklo_id == 30) gunname = "AK-47";
else if(ginklo_id == 34) gunname = "Sniper Rifle";

GivePlayerMoney(playerid, money);
GivePlayerMoney(zaidejoID, -money);
GivePlayerWeapon(playerid, ginklas, -kiek);
GivePlayerWeapon(zaidejoID, ginklas, kiek);
format(msg, sizeof(msg), "Nusipirkote %s %d kulkų už %i", gunname, kiek, money);
SendClientMessage(playerid, Melyna, msg);
format(msg, sizeof(msg), "Ginklas %s %i sėkmingai parduotas už %i", gunname, kiek, money);
SendClientMessage(zaidejoID, Melyna, msg);
format(msg, sizeof(msg), "Sėkmingai pardaviau %s %i sėkmingai parduotas už %i", gunname, kiek, money);
SendMessageToGP(0x80808000,msg);
DeletePVar(playerid, "SiuloGinklus");
DeletePVar(playerid, "SiuloGunKaina");
DeletePVar(playerid, "SiuloKiek");
DeletePVar(playerid, "Koks_gun");
DeletePVar(playerid, "ginklai");
DeletePVar(playerid, "Ginklo_ID");
}
return 1;
}

 

 

scriptų turiu daug, jeigu kas norės pridėkit į skypę: reloudas
išdalinsiu - negaila.

[bencius]

Šaunuolis, kad daliniesi

[Riccardo]

Siūlyčiau sscanf vietoj "s[24]..."  naudot  "u..."

Naudojant "u" galima įrašyti tiek žaidėjo id tiek nick bei nereikės naduoti GetPlayerMid.

 

Kitas dalykas. Perkant ginklus, pinigus atims ne iš pirkėjo, o iš pardavėjo, bet čia manau apsižiūrėjai ir tiek.

GivePlayerMoney(playerid, money); // Turi būti -money
GivePlayerMoney(zaidejoID, -money); // o čia tiesiog money

//zaidejoID - pardavėjas
//playerid - pirkėjas

 

[dzeronimo]

14 minutes prieš, L'M parašė:

Siūlyčiau sscanf vietoj "s[24]..."  naudot  "u..."

Naudojant "u" galima įrašyti tiek žaidėjo id tiek nick bei nereikės naduoti GetPlayerMid.

 

Kitas dalykas. Perkant ginklus, pinigus atims ne iš pirkėjo, o iš pardavėjo, bet čia manau apsižiūrėjai ir tiek.

GivePlayerMoney(playerid, money); // Turi būti -money
GivePlayerMoney(zaidejoID, -money); // o čia tiesiog money

//zaidejoID - pardavėjas
//playerid - pirkėjas

 

 

GivePlayerWeapon(playerid, ginklas, -kiek);
GivePlayerWeapon(zaidejoID, ginklas, kiek);

  cia irgy taspats , sumaisyta