NTNGuyenthanh

system /muacredits

Aug 22nd, 2017
214
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.24 KB | None | 0 0
  1.  
  2. // code muacredits
  3. // by Nguyen Thanh
  4. // FB.com/vngta.org
  5. //credits:Cong Dong SAmp
  6.  
  7. /////////=====//////=====//=====//===
  8. //////////====/////=====///=====//===
  9. ///////////===////=====////===//=====
  10. ////////////=========//////===///====
  11. /////////////======////////===////===
  12.  
  13.  
  14. // add o tren cmd nao` cug dc
  15. CMD:muacredits(playerid, params[])
  16. {
  17. if(GetPVarInt(playerid, "PinConfirmed"))
  18. {
  19. ShowPlayerDialog(playerid, DIALOG_MUACOIN, DIALOG_STYLE_LIST, "Ban muon mua bao nhieu Credits?","10 Credits (30,000 Cash)\n50 Credits (150,000 Cash)\n100 Credits (200,000 Cash)\n250 Credits (550,000 Cash)\n500 Credits (1,500,000 Cash)\n1000 Credits (3,000,000 Cash)", "Ok", "Thoat");
  20. }
  21. else
  22. {
  23. PinLogin(playerid);
  24. }
  25. return 1;
  26. }
  27.  
  28.  
  29. //add o dau gm tim $define
  30. #define DIALOG_MUACOIN (5157)
  31. //muacredits OnDialogResponse
  32.  
  33. if(dialogid == DIALOG_MUACOIN)
  34. {
  35. new szMessage[128];
  36. if(response)
  37. {
  38. if(listitem == 0)
  39. {
  40. if (GetPlayerCash(playerid) >= 30000)
  41. {
  42. PlayerInfo[playerid][pCredits] += 10;
  43.  
  44. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  45. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  46. print(szMessage);
  47. GivePlayerCash(playerid, -30000);
  48. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong 10 Credits.");
  49. }
  50. else
  51. {
  52. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  53. }
  54. }
  55. if(listitem == 1)
  56. {
  57. if (GetPlayerCash(playerid) >= 150000)
  58. {
  59. PlayerInfo[playerid][pCredits] += 50;
  60.  
  61. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  62. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  63. print(szMessage);
  64. GivePlayerCash(playerid, -150000);
  65. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong 50 Credits.");
  66. }
  67. else
  68. {
  69. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  70. }
  71. }
  72. if(listitem == 2)
  73. {
  74. if (GetPlayerCash(playerid) >= 200000)
  75. {
  76. PlayerInfo[playerid][pCredits] += 100;
  77.  
  78. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  79. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  80. print(szMessage);
  81. GivePlayerCash(playerid, -200000);
  82. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong.");
  83. }
  84. else
  85. {
  86. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  87. }
  88. }
  89. if(listitem == 3)
  90. {
  91. if (GetPlayerCash(playerid) >= 550000)
  92. {
  93. PlayerInfo[playerid][pCredits] += 250;
  94.  
  95. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  96. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  97. print(szMessage);
  98. GivePlayerCash(playerid, -550000);
  99. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong 250 Credits.");
  100. }
  101. else
  102. {
  103. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  104. }
  105. }
  106. if(listitem == 4)
  107. {
  108. if (GetPlayerCash(playerid) >= 1500000)
  109. {
  110. PlayerInfo[playerid][pCredits] += 500;
  111.  
  112. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  113. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  114. print(szMessage);
  115. GivePlayerCash(playerid, -1500000);
  116. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong 500 Credits.");
  117. }
  118. else
  119. {
  120. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  121. }
  122. }
  123. if(listitem == 5)
  124. {
  125. if (GetPlayerCash(playerid) >= 3000000)
  126. {
  127. PlayerInfo[playerid][pCredits] += 1000;
  128.  
  129. format(szMessage, sizeof(szMessage), "UPDATE `accounts` SET `Credits`=%d WHERE `id` = %d", PlayerInfo[playerid][pCredits], PlayerInfo[playerid][pId]);
  130. mysql_function_query(MainPipeline, szMessage, false, "OnQueryFinish", "ii", SENDDATA_THREAD, PlayerInfo[playerid][pId]);
  131. print(szMessage);
  132. GivePlayerCash(playerid, -3000000);
  133. SendClientMessageEx(playerid, COLOR_YELLOW, "Ban da mua thanh cong.");
  134. }
  135. else
  136. {
  137. SendClientMessageEx(playerid, COLOR_GRAD4, "Ban khong co du tien de mua mat hang nay!");
  138. }
  139. }
  140. }
  141. }
Advertisement
Add Comment
Please, Sign In to add comment