API tools faq
paste
Guest User

Untitled

a guest
Jun 7th, 2010
260
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.38 KB | None | 0 0
raw download clone embed print report
  1. // Credits to iRemix for creating this filterscript
  2. // Credits to Kye for creating SA-MP
  3.  
  4. /* Includes */
  5. #include <a_samp>
  6.  
  7. /* Colours */
  8. #define COLOR_GREEN 0x004000FF
  9. #define COLOR_RED 0x0000FFFF
  10. #define COLOR_WHITE 0xFFFFFFFF
  11.  
  12. /* Dialog Define */
  13. #define DIALOG_WCATAGORY 1
  14. #define DIALOG_SUB 2
  15. #define DIALOG_ASS 3
  16. #define DIALOG_HAND 4
  17. #define DIALOG_LONG 5
  18. #define DIALOG_EXP 6
  19. #define DIALOG_MISC 7
  20.  
  21. /* Pragma */
  22. #pragma tabsize 0
  23.  
  24. /* DCMD Define */
  25. #define dcmd(%1,%2,%3) if (!strcmp((%3)[1], #%1, true, (%2)) && ((((%3)[(%2) + 1] == '\0') && (dcmd_%1(playerid, ""))) || (((%3)[(%2) + 1] == ' ') && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1
  26.  
  27. /* -/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/-/- */
  28.  
  29. public OnFilterScriptInit()
  30. {
  31. print("~ Log: eWeapon Shop");
  32. print("~ Log: Created by iRemix");
  33. print("~ Log: Loaded...");
  34. return 1;
  35. }
  36.  
  37. public OnFilterScriptExit()
  38. {
  39. print("~ Log: eWeapon Shop");
  40. print("~ Log: Created by iRemix");
  41. print("~ Log: Closed...");
  42. return 1;
  43. }
  44.  
  45. public OnPlayerSpawn(playerid)
  46. {
  47. SendClientMessage(playerid, COLOR_GREEN, "This server is using eWeapon Shop");
  48. return 1;
  49. }
  50.  
  51. public OnPlayerCommandText(playerid, cmdtext[])
  52. {
  53. dcmd(wshop, 5, cmdtext);
  54. return 0;
  55. }
  56.  
  57. dcmd_wshop(playerid, params[])
  58. {
  59. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  60. #pragma unused params
  61. return 1;
  62. }
  63.  
  64. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  65. {
  66. if (dialogid == DIALOG_WCATAGORY)
  67. {
  68. if (response)
  69. {
  70. if (listitem == 0)
  71. {
  72. ShowPlayerDialog(playerid, DIALOG_SUB, DIALOG_STYLE_LIST, "eWeapon Store | Submachine Guns", "MP5 - $2500\nTec9 - $1500\nMini Uzi - $1500", "Buy", "Back");
  73. }
  74. if (listitem == 1)
  75. {
  76. ShowPlayerDialog(playerid, DIALOG_ASS, DIALOG_STYLE_LIST, "eWeapon Store | Assualt Rifles", "M4 - $3500\nAK-47 - $3500", "Buy", "Back");
  77. }
  78. if (listitem == 2)
  79. {
  80. ShowPlayerDialog(playerid, DIALOG_HAND, DIALOG_STYLE_LIST, "eWeapon Store | Hand Guns", "Desert Eagle - $2500\n9mm - $1500\nSilenced 9mm - $2000", "Buy", "Back");
  81. }
  82. if (listitem == 3)
  83. {
  84. ShowPlayerDialog(playerid, DIALOG_LONG, DIALOG_STYLE_LIST, "eWeapon Store | Long Range", "Sniper Rifle - $3500\nCountry Rifle - $3000", "Buy", "Back");
  85. }
  86. if (listitem == 4)
  87. {
  88. ShowPlayerDialog(playerid, DIALOG_EXP, DIALOG_STYLE_LIST, "eWeapon Store | Explosives", "Frag Granade - $500\nTear Gas - $500\nMolitov Cocktail - $500\nRPG - $2000\nSatchel Charge - $1500\nHeat Seeking Rocket - $2000", "Buy", "Back");
  89. }
  90. if (listitem == 5)
  91. {
  92. ShowPlayerDialog(playerid, DIALOG_MISC, DIALOG_STYLE_LIST, "eWeapon Store | Miscellaneous", "Brass Knuckles - $500\nNite Stick - $500\nGolf Club - $500\nKnife - $500\nBaseball Bat - $500\nShovel - $500\nPool Cue - $500\nChain Saw - $500\nKatana - $500\nFlowers - $500\nCane - $500\nSpray Can - $500\nFire Extinguisher - $500", "Buy", "Back");
  93. }
  94. }
  95. }
  96.  
  97. if (dialogid == DIALOG_SUB)
  98. {
  99. if (response)
  100. {
  101. if (listitem == 0)
  102. {
  103. GivePlayerWeapon(playerid, 29, 500);
  104. GivePlayerMoney(playerid, -2500);
  105. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a MP5 for $2500.");
  106. }
  107. if (listitem == 1)
  108. {
  109. GivePlayerWeapon(playerid, 32, 500);
  110. GivePlayerMoney(playerid, -1500);
  111. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Tec9 for $1500.");
  112. }
  113. if (listitem == 2)
  114. {
  115. GivePlayerWeapon(playerid, 32, 500);
  116. GivePlayerMoney(playerid, -1500);
  117. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Mini Uzi for $1500.");
  118. }
  119. }
  120. else
  121. {
  122. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  123. }
  124.  
  125. }
  126.  
  127. if (dialogid == DIALOG_ASS)
  128. {
  129. if (response)
  130. {
  131. if (listitem == 0)
  132. {
  133. GivePlayerWeapon(playerid, 31, 500);
  134. GivePlayerMoney(playerid, -3500);
  135. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a M4 for $3500.");
  136. }
  137. if (listitem == 1)
  138. {
  139. GivePlayerWeapon(playerid, 30, 500);
  140. GivePlayerMoney(playerid, -3500);
  141. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a AK-47 for $3500.");
  142. }
  143. }
  144. else
  145. {
  146. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  147. }
  148. }
  149.  
  150. if (dialogid == DIALOG_HAND)
  151. {
  152. if (response)
  153. {
  154. if (listitem == 0)
  155. {
  156. GivePlayerWeapon(playerid, 24, 500);
  157. GivePlayerMoney(playerid, -2500);
  158. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Desert Eagle for $2500.");
  159. }
  160. if (listitem == 1)
  161. {
  162. GivePlayerWeapon(playerid, 22, 500);
  163. GivePlayerMoney(playerid, -1500);
  164. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a 9mm for $1500.");
  165. }
  166. if (listitem == 2)
  167. {
  168. GivePlayerWeapon(playerid, 23, 500);
  169. GivePlayerMoney(playerid, -2000);
  170. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Silenced 9mm for $2000.");
  171. }
  172. }
  173. else
  174. {
  175. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  176. }
  177. }
  178.  
  179. if (dialogid == DIALOG_LONG)
  180. {
  181. if (response)
  182. {
  183. if (listitem == 0)
  184. {
  185. GivePlayerWeapon(playerid, 34, 500);
  186. GivePlayerMoney(playerid, -3500);
  187. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Sniper Rifle for $3500.");
  188. }
  189. if (listitem == 1)
  190. {
  191. GivePlayerWeapon(playerid, 33, 500);
  192. GivePlayerMoney(playerid, -3000);
  193. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Country Rifle for $3000.");
  194. }
  195. }
  196. else
  197. {
  198. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  199. }
  200. }
  201.  
  202. if (dialogid == DIALOG_EXP)
  203. {
  204. if (response)
  205. {
  206. if (listitem == 0)
  207. {
  208. GivePlayerWeapon(playerid, 16, 10);
  209. GivePlayerMoney(playerid, -500);
  210. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Frag Granade for $500.");
  211. }
  212. if (listitem == 1)
  213. {
  214. GivePlayerWeapon(playerid, 17, 10);
  215. GivePlayerMoney(playerid, -500);
  216. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought Tear Gas for $500.");
  217. }
  218. if (listitem == 2)
  219. {
  220. GivePlayerWeapon(playerid, 18, 10);
  221. GivePlayerMoney(playerid, -500);
  222. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Molitov Cocktail for $500.");
  223. }
  224. if (listitem == 3)
  225. {
  226. GivePlayerWeapon(playerid, 35, 10);
  227. GivePlayerMoney(playerid, -2000);
  228. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a RPG for $2000.");
  229. }
  230. if (listitem == 4)
  231. {
  232. GivePlayerWeapon(playerid, 40, 1);
  233. GivePlayerWeapon(playerid, 39, 10);
  234. GivePlayerMoney(playerid, -1500);
  235. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought Satchel Charges for $1500.");
  236. }
  237. if (listitem == 4)
  238. {
  239. GivePlayerWeapon(playerid, 40, 1);
  240. GivePlayerMoney(playerid, -2000);
  241. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Heat Seeking Rocket Launcher for $2000.");
  242. }
  243. }
  244. else
  245. {
  246. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  247. }
  248. }
  249.  
  250. if (dialogid == DIALOG_MISC)
  251. {
  252. if (response)
  253. {
  254. if (listitem == 0)
  255. {
  256. GivePlayerWeapon(playerid, 1, 1);
  257. GivePlayerMoney(playerid, -500);
  258. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought Brass Knuckles for $500.");
  259. }
  260. if (listitem == 1)
  261. {
  262. GivePlayerWeapon(playerid, 3, 1);
  263. GivePlayerMoney(playerid, -500);
  264. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Nite Stick for $500.");
  265. }
  266. if (listitem == 2)
  267. {
  268. GivePlayerWeapon(playerid, 2, 1);
  269. GivePlayerMoney(playerid, -500);
  270. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Golf Club for $500.");
  271. }
  272. if (listitem == 3)
  273. {
  274. GivePlayerWeapon(playerid, 4, 1);
  275. GivePlayerMoney(playerid, -500);
  276. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Knife for $500.");
  277. }
  278. if (listitem == 4)
  279. {
  280. GivePlayerWeapon(playerid, 5, 1);
  281. GivePlayerMoney(playerid, -500);
  282. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought Baseball Bat for $500.");
  283. }
  284. if (listitem == 5)
  285. {
  286. GivePlayerWeapon(playerid, 6, 1);
  287. GivePlayerMoney(playerid, -500);
  288. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Shovel for $500.");
  289. }
  290. if (listitem == 6)
  291. {
  292. GivePlayerWeapon(playerid, 7, 1);
  293. GivePlayerMoney(playerid, -500);
  294. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Pool Cue for $500.");
  295. }
  296. if (listitem == 7)
  297. {
  298. GivePlayerWeapon(playerid, 9, 1);
  299. GivePlayerMoney(playerid, -500);
  300. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Chain Saw for $500.");
  301. }
  302. if (listitem == 8)
  303. {
  304. GivePlayerWeapon(playerid, 8, 1);
  305. GivePlayerMoney(playerid, -500);
  306. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Katana for $500.");
  307. }
  308. if (listitem == 9)
  309. {
  310. GivePlayerWeapon(playerid, 14, 1);
  311. GivePlayerMoney(playerid, -500);
  312. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought Flowers for $500.");
  313. }
  314. if (listitem == 10)
  315. {
  316. GivePlayerWeapon(playerid, 15, 1);
  317. GivePlayerMoney(playerid, -500);
  318. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Cane for $500.");
  319. }
  320. if (listitem == 11)
  321. {
  322. GivePlayerWeapon(playerid, 41, 200);
  323. GivePlayerMoney(playerid, -500);
  324. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Spray Can for $500.");
  325. }
  326. if (listitem == 12)
  327. {
  328. GivePlayerWeapon(playerid, 42, 200);
  329. GivePlayerMoney(playerid, -500);
  330. SendClientMessage(playerid, COLOR_GREEN, "You have succesfully brought a Fire Extinguisher for $500.");
  331. }
  332. }
  333. else
  334. {
  335. ShowPlayerDialog(playerid, DIALOG_WCATAGORY, DIALOG_STYLE_LIST, "eWeapon Store | Catagory's", "Submachine Guns\nAssualt Rifles\nHandguns\nLong Range\nExplosives\nMisc", "Select", "Close");
  336. }
  337. }
  338. return 1;
  339. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!