Salut ma poate ajuta cineva sa imi editeze acest script vreau sa il fac ca jucatori sa il cumpere cu coins cand jucatorul da /buyvip sa il cumpere direct cu coins nu gratis ca dupa abuzeaza de comenzile bonus.
Liniile de cod / sursa / script-ul:
[pawn]//--------------------------------------------------------------------------
//BuyVIP
//--------------------------------------------------------------------------
if (dialogid == 777)
{
if(response == 1)
{
new string[610];
//------------------------------------------------------------------
strcat(string, "{FA4205}• {04FB21}VIP Level 1 {FA4205}»{06FBFB} 100-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 2 {FA4205}»{06FBFB} 200-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 3 {FA4205}»{06FBFB} 300-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 4 {FA4205}»{06FBFB} 400-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 5 {FA4205}»{06FBFB} 500-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 6 {FA4205}»{06FBFB} 600-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 7 {FA4205}»{06FBFB} 700-Coinsn");
strcat(string, "{FA4205}• {04FB21}VIP Level 8 {FA4205}»{06FBFB} 800-Coinsn");
//------------------------------------------------------------------
ShowPlayerDialog(playerid, 777+1, DIALOG_STYLE_LIST, "{FF0000}» {D1D1D1}Buyvip", string, "Buy","Close");
}
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
if(dialogid == 777+1)
{
//----------------------------------------------------------------------
new userid, BuyLog[128];
userid = BUD::GetNameUID(PlayerName2(playerid));
//----------------------------------------------------------------------
if(response)
{
if(listitem == 0)
{
AccInfo[playerid][pVip] = 1;
BUD::SetIntEntry(userid, "Vip", 1);
format(BuyLog, 128, "%s a cumparat VIP Level 1", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 1);
}
if(listitem == 1)
{
AccInfo[playerid][pVip] = 2;
BUD::SetIntEntry(userid, "Vip", 2);
format(BuyLog, 128, "%s a cumparat VIP Level 2", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 2);
}
if(listitem == 2)
{
AccInfo[playerid][pVip] = 3;
BUD::SetIntEntry(userid, "Vip", 3);
format(BuyLog, 128, "%s a cumparat VIP Level 3", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 3);
}
if(listitem == 3)
{
AccInfo[playerid][pVip] = 4;
BUD::SetIntEntry(userid, "Vip", 4);
format(BuyLog, 128, "%s a cumparat VIP Level 4", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 4);
}
if(listitem == 4)
{
AccInfo[playerid][pVip] = 5;
BUD::SetIntEntry(userid, "Vip", 5);
format(BuyLog, 128, "%s a cumparat VIP Level 5", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 5);
}
if(listitem == 5) //Gratis !
{
if(AccInfo[playerid][Coins] >= 0 && AccInfo[playerid][hours] >= 0)
{
AccInfo[playerid][pVip] = 6;
AccInfo[playerid][Coins] -= 3000;
BUD::SetIntEntry(userid, "Vip", 6);
format(BuyLog, 128, "%s a cumparat VIP Level 6", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 6);
}
else return SendClientMessage(playerid, red, "ERROR: You don't have enough Hours/Coins!");
}
if(listitem == 6) //Gratis!
{
if(AccInfo[playerid][Coins] >= 0 && AccInfo[playerid][hours] >= 0)
{
AccInfo[playerid][pVip] = 7;
AccInfo[playerid][Coins] -= 5000;
BUD::SetIntEntry(userid, "Vip", 7);
format(BuyLog, 128, "%s a cumparat VIP Level 7", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 7);
}
else return SendClientMessage(playerid, red, "ERROR: You don't have enough Hours/Coins!");
}
if(listitem == 7) //Gratis!
{
if(AccInfo[playerid][Coins] >= 0 && AccInfo[playerid][hours] >= 0)
{
AccInfo[playerid][pVip] = 8;
AccInfo[playerid][Coins] -= 9000;
BUD::SetIntEntry(userid, "Vip", 8);
format(BuyLog, 128, "%s a cumparat VIP Level 8", PlayerName2(playerid));
SaveIn("BuyVipLog", BuyLog);
ShowBuyVipInfo(playerid, 8);
}
else return SendClientMessage(playerid, red, "ERROR: You don't have enough Hours/Coins!");
}[/pawn]
Imagini / Video (optional): Nu Aţi încercat să rezolvaţi singur?: da dar nu am stiut cum si am stricat intreg scriptul.
