[Prašymas] Pardavimai

[Tomukssss]

Ar čia esą tokių gerų žmonių..? Kurie galėtu pateikti ZCMD pavizdį pardavimui betkokio dalyko su įvedimais.. Turiu omenį, kad reikalautų įvesti vardą, kainą, kiekį.. Aš nesuprantu, bet man su dviem įvedimais teišeina, trečias buginasi, ir šiaip visa komanda buginasi kai darašau trečiąjį.. Bet nesinori daryt , kad daiktus tiesiog duotų..

[Tautvis !]

Rodyk  tokią komandą kokią reikia perrašyti.

[Tomukssss]

CMD:pzole(playerid, params[])

{

new player[MAX_PLAYER_NAME],kaina,kiek,zaidejoID;

if(sscanf(params,"s[24]id",player,kiek,kaina)) return SendClientMessage(playerid,Melyna,"Parduoti žolę - /pzole [Vardas_Pavardė] [kiek] [kaina]");

zaidejoID = GetPlayeridMid( player );

if(GetPlayerScore(playerid) < 2500) return SendClientMessage(playerid,-1,"{ff0000}Žolę pardavinėti galite tik nuo 2.500XP");

if(playerDB[playerid][zole] < 0) return SendClientMessage(playerid,-1,"{ff0000}Neturite žolės pardavimui..");

new

   name[MAX_PLAYER_NAME],

   name2[MAX_PLAYER_NAME],

   msg[256]

;

GetPlayerName(playerid, name, sizeof(name));

GetPlayerName(zaidejoID, name2, sizeof(name2));

SetPVarInt(zaidejoID, "SiuloNark", playerid);

SetPVarInt(zaidejoID, "SiuloNarkKaina", kaina);

SetPVarInt(zaidejoID, "SiuloKiek", kiek);

format(msg, sizeof(msg), "Pasiūlėte žaidėjui %s pirkti %s gramų žolės už %s litų", name2, kiek, kaina);

SendClientMessage(playerid, -1, msg);

format(msg, sizeof(msg), "Žaidėjas %s siūlo jums pirkti %s gramų žolės už %s litų, ar norite pirkti?", name, kiek, kaina);

ShowPlayerDialog(zaidejoID, 984, DIALOG_STYLE_MSGBOX, "Nark. pirkimas", msg, "Taip", "Ne");

return 1;

}

if(dialogid == 984)

{

if(!response)

{

DeletePVar(playerid, "SiuloNark");

DeletePVar(playerid, "SiuloNarkKaina");

DeletePVar(playerid, "SiuloKiek");

}

if(response)

{

   new money = GetPVarInt(playerid, "SiuloNarkKaina");

   new zaidejoID = GetPVarInt(playerid, "SiuloNark");

   new kiek = GetPVarInt(playerid, "SiuloKiek");

   if(GetPlayerMoneyA(playerid)<money) return SendClientMessage(playerid, -1,"{ff0000}Jums neužtenka pinigų");

   if(zaidejoID == INVALID_PLAYER_ID) return SendClientMessage(playerid, -1,"{ff0000}Žaidėjas iš kurio norėjote pirkti narkotikus - atsijungė");

new msg[150];

GivePlayerMoneyA(playerid, money);

GivePlayerMoneyA(zaidejoID, -money);

playerDB[playerid][zole]+=kiek;

playerDB[zaidejoID][zole]-=kiek;

format(msg, sizeof(msg), "Nusipirkote %s gramų žolės už %i litų", kiek, money);

SendClientMessage(playerid, Melyna, msg);

format(msg, sizeof(msg), "Pardavėte %s gramų žolės už %i litų", kiek, money);

SendClientMessage(zaidejoID, Melyna, msg);

DeletePVar(playerid, "SiuloNark");

DeletePVar(playerid, "SiuloNarkKaina");

DeletePVar(playerid, "SiuloKiek");

}

return 1;

}

[BlueKat]

1. Nenaudok PVar's http://forum.sa-mp.com/showthread.php?t=268499

2. Kas tiksliai tau neišeina? Ta prasme nenuperka ar išvis nieko nerodo?

[Tomukssss]

Visų pirma - žolės turėjau 0 gramų, o mėginau parduoti 10 gramų.

 

O štai kas man gavosi..

 

 

Tas pats vyksta kai ir turiu žolės.

 

Kas blogai? - kažkodėl nerodo skaičių, nei kiek siūlai nei už kokią kainą, kai parduodi iš oro rašo kainą, bet kiek gramų parduodi nerašo. Pinigų - nenuskaičiuoja, testuota su dviem asmenim. Prieš tai dar bent jau žolę nuskaitinėdavo, t.y kai sscanf'e buvo "zd" raidelės, vietoj "sid".. Keista man šita komanda.. :s

[BlueKat]

Pabandyk šį kodą:

CMD:pzole(playerid, params[])
{
new player[MAX_PLAYER_NAME],kaina,kiek,zaidejoID;
if(sscanf(params,"s[24]id",player,kiek,kaina)) return SendClientMessage(playerid,Melyna,"Parduoti žolę - /pzole [Vardas_Pavardė] [kiek] [kaina]");
zaidejoID = GetPlayeridMid( player );
if(GetPlayerScore(playerid) < 2500) return SendClientMessage(playerid,-1,"{ff0000}Žolę pardavinėti galite tik nuo 2.500XP");
if(playerDB[playerid][zole] < 0) return SendClientMessage(playerid,-1,"{ff0000}Neturite žolės pardavimui..");
new
   name[MAX_PLAYER_NAME],
   name2[MAX_PLAYER_NAME],
   msg[256]
;
GetPlayerName(playerid, name, sizeof(name));
GetPlayerName(zaidejoID, name2, sizeof(name2));
SetPVarInt(zaidejoID, "SiuloNark", playerid);
SetPVarInt(zaidejoID, "SiuloNarkKaina", kaina);
SetPVarInt(zaidejoID, "SiuloKiek", kiek);
format(msg, sizeof(msg), "Pasiūlėte žaidėjui %s pirkti %i gramų žolės už %i litų", name2, kiek, kaina);
SendClientMessage(playerid, -1, msg);
format(msg, sizeof(msg), "Žaidėjas %s siūlo jums pirkti %i gramų žolės už %i litų, ar norite pirkti?", name, kiek, kaina);
ShowPlayerDialog(zaidejoID, 984, DIALOG_STYLE_MSGBOX, "Nark. pirkimas", msg, "Taip", "Ne");
return 1;
}

[Tomukssss]

 

Pabandyk šį kodą:

CMD:pzole(playerid, params[])
{
new player[MAX_PLAYER_NAME],kaina,kiek,zaidejoID;
if(sscanf(params,"s[24]id",player,kiek,kaina)) return SendClientMessage(playerid,Melyna,"Parduoti žolę - /pzole [Vardas_Pavardė] [kiek] [kaina]");
zaidejoID = GetPlayeridMid( player );
if(GetPlayerScore(playerid) < 2500) return SendClientMessage(playerid,-1,"{ff0000}Žolę pardavinėti galite tik nuo 2.500XP");
if(playerDB[playerid][zole] < 0) return SendClientMessage(playerid,-1,"{ff0000}Neturite žolės pardavimui..");
new
   name[MAX_PLAYER_NAME],
   name2[MAX_PLAYER_NAME],
   msg[256]
;
GetPlayerName(playerid, name, sizeof(name));
GetPlayerName(zaidejoID, name2, sizeof(name2));
SetPVarInt(zaidejoID, "SiuloNark", playerid);
SetPVarInt(zaidejoID, "SiuloNarkKaina", kaina);
SetPVarInt(zaidejoID, "SiuloKiek", kiek);
format(msg, sizeof(msg), "Pasiūlėte žaidėjui %s pirkti %i gramų žolės už %i litų", name2, kiek, kaina);
SendClientMessage(playerid, -1, msg);
format(msg, sizeof(msg), "Žaidėjas %s siūlo jums pirkti %i gramų žolės už %i litų, ar norite pirkti?", name, kiek, kaina);
ShowPlayerDialog(zaidejoID, 984, DIALOG_STYLE_MSGBOX, "Nark. pirkimas", msg, "Taip", "Ne");
return 1;
}

Na taip, tos "i" raidelės prie šitų pataisė rašymą (siūlymo ir panašiai), tačiau pati komanda ir toliau nusišneka. Aš galiu turėdamas 0 gramų žolės parduoti 10 gramų žolės... Tačiau nei gramai užsidės nei pinigus nuskaičiuos/uždės.. 

[BlueKat]

Žėk, pataisyk šią eilutę:

if(playerDB[playerid][zole] < 1) return SendClientMessage(playerid,-1,"{ff0000}Neturite žolės pardavimui..");

Čia komandoj.