API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 30th, 2013
278
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.18 KB | None | 0 0
raw download clone embed print report
  1. #include < a_samp >
  2. #include < dini >
  3. #include < zcmd >
  4. #include < sscanf2 >
  5.  
  6. #define PlayerFile "Tokens/%s.ini"
  7. #define YELLOW 0xFFFF00FF
  8. #define RED 0xAA3333AA
  9. #define DIALOG_PCMDS 1234
  10. #define DIALOG_RCMDS 3456
  11.  
  12. enum PLAYER_TOKENS
  13. {
  14. MagicToken,
  15. GoldToken,
  16. SilverToken,
  17. BronzeToken
  18. }
  19.  
  20. new pInfo[MAX_PLAYERS][PLAYER_TOKENS];
  21. new gstring[256];
  22. new giveplayerid;
  23.  
  24.  
  25. public OnPlayerConnect(playerid)
  26. {
  27. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  28. if(!dini_Exists(file)) {
  29. dini_Create(file);
  30. dini_IntSet(file,"Magic_Tokens:", pInfo[playerid][MagicToken]);
  31. dini_IntSet(file,"Gold_Tokens:", pInfo[playerid][GoldToken]);
  32. dini_IntSet(file,"Silver_Tokens:", pInfo[playerid][SilverToken]);
  33. dini_IntSet(file,"Bronze_Tokens:", pInfo[playerid][BronzeToken]);
  34. }
  35. pInfo[playerid][MagicToken] = dini_Int(file,"Magic_Tokens:");
  36. pInfo[playerid][GoldToken] = dini_Int(file,"Gold_Tokens:");
  37. pInfo[playerid][SilverToken] = dini_Int(file,"Silver_Tokens:");
  38. pInfo[playerid][BronzeToken] = dini_Int(file,"Bronze_Tokens:");
  39. return 1;
  40. }
  41.  
  42. public OnPlayerDisconnect(playerid, reason)
  43. {
  44. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  45. dini_IntSet(file,"Magic_Tokens:", pInfo[playerid][MagicToken]);
  46. dini_IntSet(file,"Gold_Tokens:", pInfo[playerid][GoldToken]);
  47. dini_IntSet(file,"Silver_Tokens:", pInfo[playerid][SilverToken]);
  48. dini_IntSet(file,"Bronze_Tokens:", pInfo[playerid][BronzeToken]);
  49. return 1;
  50. }
  51.  
  52. CMD:usemt(playerid, o[])
  53. {
  54. GivePlayerMoney (playerid,100000);
  55. GivePlayerWeapon(playerid,27,1000);
  56. GivePlayerWeapon(playerid,32,1000);
  57. GivePlayerWeapon(playerid,24,1000);
  58. GivePlayerWeapon(playerid,31,1000);
  59. GivePlayerWeapon(playerid,34,1000);
  60. GivePlayerWeapon(playerid,16,1000);
  61. GivePlayerWeapon(playerid,9,1);
  62. SendClientMessage(playerid,YELLOW,"* You just use 1 of your magic token *");
  63. pInfo[playerid][MagicToken] -= 1;
  64. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  65. dini_IntSet(file,"Magic_Tokens", pInfo[playerid][MagicToken]);
  66. return 1;
  67. }
  68.  
  69. CMD:usegt(playerid, o[])
  70. {
  71. GivePlayerMoney (playerid,75000);
  72. GivePlayerWeapon(playerid,27,1000);
  73. GivePlayerWeapon(playerid,32,1000);
  74. GivePlayerWeapon(playerid,24,1000);
  75. GivePlayerWeapon(playerid,31,1000);
  76. GivePlayerWeapon(playerid,34,1000);
  77. GivePlayerWeapon(playerid,9,1);
  78. SendClientMessage(playerid,YELLOW,"* You just use 1 of your gold token *");
  79. pInfo[playerid][GoldToken] -= 1;
  80. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  81. dini_IntSet(file,"Gold_Tokens", pInfo[playerid][GoldToken]);
  82. return 1;
  83. }
  84.  
  85. CMD:usest(playerid, o[])
  86. {
  87. GivePlayerMoney (playerid,45000);
  88. GivePlayerMoney (playerid,75000);
  89. GivePlayerWeapon(playerid,27,1000);
  90. GivePlayerWeapon(playerid,32,1000);
  91. GivePlayerWeapon(playerid,24,1000);
  92. GivePlayerWeapon(playerid,31,1000);
  93. GivePlayerWeapon(playerid,9,1);
  94. SendClientMessage(playerid,YELLOW,"* You just use 1 of your silver token *");
  95. pInfo[playerid][SilverToken] -= 1;
  96. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  97. dini_IntSet(file,"Silver_Tokens", pInfo[playerid][SilverToken]);
  98. return 1;
  99. }
  100.  
  101. CMD:usebt(playerid, o[])
  102. {
  103. GivePlayerMoney (playerid,10000);
  104. GivePlayerMoney (playerid,75000);
  105. GivePlayerWeapon(playerid,27,1000);
  106. GivePlayerWeapon(playerid,24,1000);
  107. GivePlayerWeapon(playerid,31,1000);
  108. GivePlayerWeapon(playerid,9,1);
  109. SendClientMessage(playerid,YELLOW,"* You just use 1 of your bronze token *");
  110. pInfo[playerid][BronzeToken] -= 1;
  111. new file[100],Name[MAX_PLAYER_NAME],Ip[16]; GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  112. dini_IntSet(file,"Bronze_Tokens", pInfo[playerid][BronzeToken]);
  113. return 1;
  114. }
  115.  
  116. CMD:mytoken(playerid, o[])
  117. {
  118. new pName[MAX_PLAYER_NAME];
  119. GetPlayerName(playerid, pName, sizeof(pName));
  120. format(gstring, sizeof(gstring), "|Name: %s|Magic Token:%d|Gold Token:%d|Silver Token:%d|Bronze Token:%d|", pName, pInfo[playerid][MagicToken], pInfo[playerid][GoldToken], pInfo[playerid][SilverToken], pInfo[playerid][BronzeToken]);
  121. SendClientMessage(playerid, YELLOW, gstring);
  122. return 1;
  123. }
  124.  
  125. CMD:setgt(playerid, o[])
  126. {
  127. new targetid, ammount, receivername[MAX_PLAYER_NAME];
  128. if(sscanf(o,"ui", targetid, ammount)) return SendClientMessage(playerid, RED,"USAGE: /setgt [ID] [AMOUNT]");
  129. if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, RED, "ERROR: Your'nt Rcon Admin");
  130. new file[100],Name[MAX_PLAYER_NAME],Ip[16],name[MAX_PLAYER_NAME]; GetPlayerName(giveplayerid, name, sizeof(name));GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  131. format(gstring, sizeof(gstring),"* You have succesfully setted %s gold tokens to %d *", receivername, ammount);
  132. SendClientMessage(playerid, YELLOW, gstring);
  133. format(gstring, sizeof(gstring), "* Admin has setted your gold tokens to %d *", ammount);
  134. SendClientMessage(targetid, YELLOW, gstring);
  135. pInfo[giveplayerid][BronzeToken] = ammount;
  136. dini_IntSet(file,"Gold_Tokens", pInfo[giveplayerid][GoldToken]);
  137. return 1;
  138. }
  139.  
  140. CMD:setst(playerid, o[])
  141. {
  142. new targetid, ammount, receivername[MAX_PLAYER_NAME];
  143. if(sscanf(o,"ui", targetid, ammount)) return SendClientMessage(playerid, RED,"USAGE: /setst [ID] [AMOUNT]");
  144. if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, RED, "ERROR: Your'nt Rcon Admin");
  145. new file[100],Name[MAX_PLAYER_NAME],Ip[16],name[MAX_PLAYER_NAME]; GetPlayerName(giveplayerid, name, sizeof(name));GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  146. format(gstring, sizeof(gstring),"* You have succesfully setted %s silver tokens to %d *", receivername, ammount);
  147. SendClientMessage(playerid, YELLOW, gstring);
  148. format(gstring, sizeof(gstring), "* Admin has setted your silver tokens to %d *", ammount);
  149. SendClientMessage(targetid, YELLOW, gstring);
  150. pInfo[giveplayerid][SilverToken] = ammount;
  151. dini_IntSet(file,"Silver_Tokens", pInfo[giveplayerid][SilverToken]);
  152. return 1;
  153. }
  154. CMD:setmt(playerid, o[])
  155. {
  156. new targetid, ammount, receivername[MAX_PLAYER_NAME];
  157. if(sscanf(o,"ui", targetid, ammount)) return SendClientMessage(playerid, RED,"USAGE: /setmt [ID] [AMOUNT]");
  158. if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, RED, "ERROR: Your'nt Rcon Admin");
  159. new file[100],Name[MAX_PLAYER_NAME],Ip[16],name[MAX_PLAYER_NAME]; GetPlayerName(giveplayerid, name, sizeof(name));GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  160. format(gstring, sizeof(gstring),"* You have succesfully setted %s magic tokens to %d *", receivername, ammount);
  161. SendClientMessage(playerid, YELLOW, gstring);
  162. format(gstring, sizeof(gstring), "* Admin has setted your magic tokens to %d *", ammount);
  163. SendClientMessage(targetid, YELLOW, gstring);
  164. pInfo[giveplayerid][MagicToken] = ammount;
  165. dini_IntSet(file,"BMagic_Tokens", pInfo[giveplayerid][MagicToken]);
  166. return 1;
  167. }
  168.  
  169. CMD:setbt(playerid, o[])
  170. {
  171. new targetid, ammount, receivername[MAX_PLAYER_NAME];
  172. if(sscanf(o,"ui", targetid, ammount)) return SendClientMessage(playerid, RED,"USAGE: /setbt [ID] [AMOUNT]");
  173. if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, RED, "ERROR: Your'nt Rcon Admin");
  174. new file[100],Name[MAX_PLAYER_NAME],Ip[16],name[MAX_PLAYER_NAME]; GetPlayerName(giveplayerid, name, sizeof(name));GetPlayerName(playerid,Name,sizeof(Name)); GetPlayerIp(playerid,Ip,sizeof(Ip)); format(file,sizeof(file),PlayerFile,Name);
  175. format(gstring, sizeof(gstring),"* You have succesfully setted %s bronze tokens to %d *", receivername, ammount);
  176. SendClientMessage(playerid, YELLOW, gstring);
  177. format(gstring, sizeof(gstring), "* Admin has setted your bronze tokens to %d *", ammount);
  178. SendClientMessage(targetid, YELLOW, gstring);
  179. pInfo[giveplayerid][BronzeToken] = ammount;
  180. dini_IntSet(file,"Bronze_Tokens", pInfo[giveplayerid][BronzeToken]);
  181. return 1;
  182. }
  183.  
  184. CMD:pcmds(playerid, o[])
  185. {
  186. ShowPlayerDialog(playerid,DIALOG_PCMDS,DIALOG_STYLE_MSGBOX,"Player Commands","Player Commands:\n/mytoken\n/usemt\n/usegt\n/usest\n/usebt","OK","");
  187. return 1;
  188. }
  189.  
  190. CMD:rcmds(playerid, o[])
  191. {
  192. ShowPlayerDialog(playerid,DIALOG_RCMDS,DIALOG_STYLE_MSGBOX,"Rcon Commands","Rcon Commands:\nAll /pcmds commands\n/setmt [ID] [AMOUNT]\n/setgt [ID] [AMOUNT]\n/setst [ID] [AMOUNT]\n/setbt [ID] [AMOUNT]","OK","");
  193. return 1;
  194. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!