API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 6th, 2017
260
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
HTML 17.53 KB | None | 0 0
raw download clone embed print report
  1. //===== Athena Script =======================================
  2. //= Donation NPC
  3. //===== By ==================================================
  4. //= Josh
  5. //===== Version =============================================
  6. //= 1.0  - First release. Probably contains bugs/security
  7. //=    risks.
  8. //= 1.1  - Added a check for whether the account exists when
  9. //=    adding a donator. Need to improve ordering when
  10. //=    viewing all donations.
  11. //= 1.2  - Modified for public use. Added checkweight feature.
  12. //= 2.0  - Many changes, especially ones I had always wanted
  13. //=    to add to this script. Includes reading items from
  14. //=    a separate SQL table and more database manipulation
  15. //=    options for GMs.
  16. //= 2.1  - Made few changes including the add/remove items
  17. //=    feature.
  18. //= 3.0  - All strings inputted by a user and user/char names
  19. //=    in SQL queries are now escaped. Each item has a
  20. //=    price rather than a quantity. This script can work
  21. //=    with decimals.
  22. //= 3.1  - Added quotes to some queries, fixed a variable and
  23. //=    removed a comment.
  24. //= 3.2  - Fixed a problem where eAthena would crash if a
  25. //=    query returned NULL.
  26. //= 3.3  - Optimized query speeds by combining a few select
  27. //=    queries into one. Requires Trunk 7975.
  28. //= 3.4  - Added MySQL version check. If version < 5.0.8, all
  29. //=    queries with CAST are omitted. Use 5.0.8 and up
  30. //=    when possible. SQL errors may consequent if GM's
  31. //=    input is incorrect. Added logging of claims.
  32. //=    "log_npc" in log_athena.conf must be enabled. Logs
  33. //=    will appear in the "npclog" table. Claim menu now
  34. //=    only shows items that can be afforded.
  35. //= 3.5  - Minor change to table.
  36. //= 3.6  - Removed name column in donate_item_db. Added
  37. //=    support for item_db2 table.
  38. //= 3.7  - Added Zeny support. $rate must be set for it to be
  39. //=    used. Removed truncate() in a query since eAthena
  40. //=    automatically truncates floats to ints.
  41. //= 3.8  - Fixed problem with menus and null values.
  42. //= 3.9  - Explicit reset of @aid.
  43. //= 3.10 - Applied previous fix to other variables and forced
  44. //=    dialogue box closure every time database is
  45. //=    modified.
  46. //= 3.11 - Explicit reset of another variable. Fixed typo
  47. //=  - with $rate. Added logmes for GM operations.
  48. //===== Compatible With =====================================
  49. //= eAthena SQL - any version with the new query_sql command
  50. //=       (Trunk 7975 and up).
  51. //= MySQL - 5.0.8 and up highly recommended but not required.
  52. //===== Description =========================================
  53. //= A script that lets a player claim an item for donating.
  54. //= Allows a GM to input each donation.
  55. //===== Comments ============================================
  56. //= This script uses SQL tables to store variables for the
  57. //= amount donated by users and the items claimable.
  58. //===== Installation ========================================
  59. //= You must import donate.sql and donate_item_db.sql (and
  60. //= item_db.sql and item_db2.sql, which comes with eAthena)
  61. //= before using this script.
  62. //===========================================================
  63. //= Thanks to Vich for helping me with the SQL syntax.
  64. //= Thanks to Lance for helping me with the the arrays and
  65. //= for implementing query_sql.
  66. //= Thanks to Skotlex for implementing escape_sql.
  67. //= Thanks to Toms for implementing the new multi-column
  68. //= query_sql command.
  69. //===========================================================
  71. // Zu callende Shops
  72. -   shop    headgears   -1,512:-1
  73. -   shop    weapons -1,512:-1
  74. -   shop    cards   -1,512:-1
  76. // Script beginn
  77. rachel,137,146,5    script  Donation Girl   714,{
  79. if (getgmlevel() >= 80) goto L_GM;
  80.  
  81. set @npcname$,"[^2B4F81Donation Girl^000000]";
  82.  
  83. L_START:
  84. mes @npcname$;
  85. mes "Hello! I'm the Donation Girl!";
  86. mes "If you have made a donation,";
  87. mes "you are entitled to a reward!";
  88. next;
  89. menu "More info",-,"Make a claim",L_CHECK,"Statistics",L_STATS;
  90. L_INFO:
  91. mes @npcname$;
  92. mes "Each month, a lot of money is paid to keep this server running.";
  93. next;
  94. mes @npcname$;
  95. mes "You can support us by donating any amount of money.";
  96. next;
  97. mes @npcname$;
  98. mes "To show our appreciation, we will gladly give you a reward.";
  99. next;
  100. menu "Continue",L_START,"Cancel",-;
  101.  
  102. L_CHECK:
  103. query_sql "SELECT `amount`,`claimed` FROM `donate` WHERE `account_id` = "+getcharid(3), @amount$, @claimed$;
  104. query_sql "SELECT "+@amount$+" - "+@claimed$, @value$;
  105. query_sql "SELECT '"+@value$+"' > 0", @enough;
  106. if(!@enough) {
  107.     mes "[Donation Girl]";
  108.     mes "Sorry, you do not have enough to make a claim.";
  109.     mes "If you have donated but have not made a claim,";
  110.     mes "Please give us time to process your donation.";
  111.     close;
  112.     }
  113.  
  114. L_CLAIM:
  115. mes "[Donation Girl]";
  116. mes "Thankyou for donating!";
  117. mes "You have $"+@value$+" worth of credit!";
  118. mes "What would you like to claim?";
  119. next;
  120. menu "Headgears",L_headgears,"Weapons",L_weapons,"Cards",L_cards,"Zeny",L_ZENY;
  121.  
  122. L_headgears:
  123.     close2;
  124.     callshop "headgears",1;
  125.     npcshopattach "headgears";
  126.     end;
  127.  
  128.  
  129.  
  130. query_sql "SELECT "+@value$+" / "+@price$, @max;
  131.  
  132. mes "[Donation Girl]";
  133. mes getitemname(@name[@m])+"s cost $"+@price$+" each.";
  134. mes "How many "+getitemname(@name[@m])+"s would you like to claim?";
  135. mes "Maximum: "+@max+".";
  136. input @quantity;
  137. mes "[Donation Girl]";
  138. if(@quantity>@max) {
  139.     mes "Sorry, but you do not have enough to claim "+@quantity+" "+getitemname(@name[@m])+"s.";
  140.     next;
  141.     goto L_CLAIM;
  142.     }
  143. if(!@quantity) {
  144.     mes "You can't have 0 as an amount!";
  145.     next;
  146.     goto L_CLAIM;
  147.     }
  148. if(!checkweight(@name[@m],@quantity)) {
  149.     mes "I'm sorry, but you cannot carry "+@quantity+" "+getitemname(@name[@m])+"s.";
  150.     next;
  151.     goto L_CLAIM;
  152.     }
  153. query_sql "SELECT "+@quantity+" * "+@price$, @total$;
  154. mes "Are you sure you want to claim "+@quantity+" "+getitemname(@name[@m])+"s for $"+@total$+"?";
  155. next;
  156. menu "No",L_CLAIM,"Yes",-;
  157. query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total$+" WHERE `account_id` = "+getcharid(3);
  158. logmes "Claimed "+@quantity+" "+getitemname(@name[@m])+"s";
  159. getitem @name[@m],@quantity;
  160. mes "[Donation Girl]";
  161. mes "Thankyou for donating! We hope you enjoy your gift!";
  162. close;
  163.  
  164. L_ZENY:
  165. mes "[Donation Girl]";
  166. if(!$rate) {
  167.     mes "Sorry, we currently do not allow claiming Zeny.";
  168.     mes "Please go back and claim an item instead.";
  169.     next;
  170.     goto L_CLAIM;
  171.     }
  172. query_sql "SELECT "+@value$+" * "+$rate, @maxzeny;
  173. mes "Very well. You can claim as much as "+@maxzeny+"Z.";
  174. mes "How much Zeny would you like to claim?";
  175. input @zeny;
  176. mes "[Donation Girl]";
  177. if(@zeny>@maxzeny) {
  178.     mes "Sorry, but you do not have enough to claim "+@zeny+"Z.";
  179.     next;
  180.     goto L_CLAIM;
  181.     }
  182. if(!@zeny) {
  183.     mes "You can't have 0 as an amount!";
  184.     next;
  185.     goto L_CLAIM;
  186.     }
  187. set @total, @zeny * $rate;
  188. mes "Are you sure you want to claim "+@zeny+"Z for $"+@total+"?";
  189. next;
  190. menu "No",L_CLAIM,"Yes",-;
  191. query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total+" WHERE `account_id` = "+getcharid(3);
  192. logmes "Claimed "+@zeny+" zenies";
  193. set Zeny, Zeny + @zeny;
  194. mes "[Donation Girl]";
  195. mes "Thankyou for donating! We hope you enjoy your gift!";
  196. close;
  197.  
  198. L_STATS:
  199. mes "[Donation Girl]";
  200. query_sql "SELECT IFNULL((SELECT SUM(amount) FROM `donate`),0)", @total$;
  201. mes "Our fund is at a total of $"+@total$;
  202. next;
  203. menu "More info",L_INFO,"Make a claim",L_CHECK,"Statistics",L_STATS;
  204.  
  205. L_GM:
  206. mes "[GM Menu]";
  207. mes "Hello GM!";
  208. mes "What would you like to do?";
  209. next;
  210. query_sql "SHOW VARIABLES LIKE 'version'", @version, @valule$;
  211. query_sql "SELECT '"+@valule$+"' >= '5.0.8'", @version;
  212. menu "Add/Remove Donation",L_GM2,"Add/Remove Items",L_ITEM,"(Re)Set Exchange Rate",L_RATE,"Test Script",L_START;
  213.  
  214. L_GM2:
  215. menu "Add a donation",L_DONATE,"Remove a donation",L_REMOVE,"View all donations",L_VIEWALL,"Return to main menu",L_GM;
  216.  
  217. L_ITEM:
  218. menu "Add an item",L_NEWITEM,"Remove an item",L_DELITEM,"View all items",L_ALLITEMS,"Return to main menu",L_GM;
  219.  
  220. L_NEWITEM:
  221. mes "[GM Menu]";
  222. mes "Please enter the item name:";
  223. input @itemname$;
  224. set @iid, 0;
  225. query_sql "SELECT `id` FROM `item_db` WHERE `name_english` = '"+escape_sql(@itemname$)+"' || `name_japanese` = '"+escape_sql(@itemname$)+"' UNION SELECT `id` FROM `item_db2` WHERE `name_english` = '"+escape_sql(@itemname$)+"' || `name_japanese` = '"+escape_sql(@itemname$)+"'", @iid;
  226. if(!@iid) goto L_INONE;
  227. query_sql "SELECT 1 FROM `donate_item_db` WHERE `id` = "+@iid, @check;
  228. mes "[GM Menu]";
  229. mes "Please enter the cost of each "+@itemname$+":";
  230. input @cost$;
  231. if(@version) query_sql "SELECT CAST('"+escape_sql(@cost$)+"' AS DECIMAL)", @cost$;
  232. query_sql "SELECT '"+escape_sql(@cost$)+"' > 0", @valid;
  233. if(!@valid) goto L_ZERO;
  234. mes "[GM Menu]";
  235. mes "You have specified that donators can claim "+@itemname$+"s for $"+@cost$+" each.";
  236. mes "Would you like to continue?";
  237. next;
  238. menu "No",L_ITEM,"Yes",-;
  239. mes "[GM Menu]";
  240. if(!@check){
  241.     query_sql "INSERT INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')";
  242.     logmes "Added "+@itemname$+"s to list of claimable items";
  243.     mes "Item added successfully!";
  244.     } else {
  245.     mes "Item "+@itemname$+" already exists in the database.";
  246.     mes "Would you like to replace it?";
  247.     next;
  248.     menu "No",L_ITEM,"Yes",-;
  249.     query_sql "REPLACE INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')";
  250.     logmes "Changed the price of "+@itemname$+"s";
  251.     mes "[GM Menu]";
  252.     mes "Item replaced successfully!";
  253.     }
  254. close;
  255.  
  256. L_INONE:
  257. mes "[GM Menu]";
  258. mes "Item "+@itemname$+" does not exist.";
  259. next;
  260. goto L_ITEM;
  261.  
  262. L_DELITEM:
  263. mes "[GM Menu]";
  264. mes "Please enter the item name:";
  265. input @itemname$;
  266. set @iid, 0;
  267. query_sql "SELECT `donate_item_db`.`id` FROM `donate_item_db` LEFT JOIN `item_db` ON `donate_item_db`.`id` = `item_db`.`id` LEFT JOIN `item_db2` ON `donate_item_db`.`id` = `item_db2`.`id` WHERE `item_db`.`name_english` = '"+escape_sql(@itemname$)+"' || `item_db`.`name_japanese` = '"+escape_sql(@itemname$)+"' || `item_db2`.`name_english` = '"+escape_sql(@itemname$)+"' || `item_db2`.`name_japanese` = '"+escape_sql(@itemname$)+"'", @iid;
  268. if(!@iid) goto L_INONE;
  269. next;
  270. mes "[GM Menu]";
  271. mes "You have specified to delete "+@itemname$+" from the database.";
  272. mes "Would you like to continue?";
  273. next;
  274. menu "No",L_ITEM,"Yes",-;
  275. query_sql "DELETE FROM `donate_item_db` WHERE `id` = "+@iid;
  276. logmes "Deleted "+@itemname$+"s from list of claimable items";
  277. mes "[GM Menu]";
  278. mes "Item deleted successfully!";
  279. close;
  280.  
  281. L_ALLITEMS:
  282. mes "[GM Menu]";
  283. query_sql "SELECT `id`,`price` FROM `donate_item_db` ORDER BY `id`", @items, @itemamount$;
  284. for(set @i, 0; @i < getarraysize(@items); set @i, @i + 1){
  285.         mes getitemname(@items[@i])+" - $"+@itemamount$[@i];
  286.     }
  287. next;
  288. goto L_GM;
  289.  
  290. L_DONATE:
  291. mes "[GM Menu]";
  292. mes "Please enter the donator's username:";
  293. input @donator$;
  294. set @aid, 0;
  295. query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid;
  296. if(!@aid) goto L_NONE;
  297. set @donated$, "";
  298. query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$;
  299. query_sql "SELECT '"+@donated$+"' > 0", @donated;
  300. switch(@donated) {
  301.     case 0:
  302.         mes @donator$+" has not donated before.";
  303.         break;
  304.     case 1:
  305.         mes @donator$+" has donated $"+@donated$+".";
  306.         break;
  307.     }
  308. next;
  309. mes "[GM Menu]";
  310. mes "Please enter the amount donated by "+@donator$;
  311. input @donating$;
  312. if(@version) query_sql "SELECT CAST('"+escape_sql(@donating$)+"' AS DECIMAL)", @donating$;
  313. query_sql "SELECT '"+escape_sql(@donating$)+"' > 0", @valid;
  314. if(!@valid) goto L_ZERO;
  315. mes "[GM Menu]";
  316. mes "You have specified that "+@donator$+" has donated $"+@donating$+".";
  317. mes "Would you like to continue?";
  318. next;
  319. menu "No",L_GM,"Yes",-;
  320. switch(@donated) {
  321.     case 0:
  322.         query_sql "INSERT INTO `donate` VALUES ("+@aid+", '"+@donating$+"', 0)";
  323.         break;
  324.     case 1:
  325.         query_sql "UPDATE `donate` SET `amount` = `amount` + "+@donating$+" WHERE `account_id` = "+@aid;
  326.         break;
  327.     }
  328. logmes "Credited "+@donator$+" with $"+@donating$;
  329. query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @newdonated$;
  330. mes "[GM Menu]";
  331. mes "Donation added successfully!";
  332. mes @donator$+" has donated a total of $"+@newdonated$;
  333. close;
  334.  
  335. L_ZERO:
  336. mes "[GM Menu]";
  337. mes "You can't have 0 as an amount!";
  338. next;
  339. goto L_GM;
  340.  
  341. L_NONE:
  342. mes "[GM Menu]";
  343. mes "Account name "+@donator$+" does not exist.";
  344. next;
  345. goto L_GM;
  346.  
  347. L_REMOVE:
  348. mes "[GM Menu]";
  349. mes "Please enter the donator's username:";
  350. input @donator$;
  351. set @aid, 0;
  352. query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid;
  353. if(!@aid) goto L_NONE;
  354. query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$;
  355. query_sql "SELECT '"+@donated$+"' > 0", @donated;
  356. mes "[GM Menu]";
  357. if(!@donated) {
  358.     query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid;
  359.     logmes "Deleted "+@donator$+" from donation database";
  360.     mes @donator$+" is not a donator and has been deleted from the donation database.";
  361.     } else {
  362.     mes @donator$+" has donated $"+@donated$+".";
  363.     next;
  364.     switch(select("Deduct an amount from "+@donator$,"Remove "+@donator$+" from the donation database")){
  365.         mes "[GM Menu]";
  366.         case 1:
  367.             mes "Please enter the amount "+@donator$+" is to be deducted by:";
  368.             input @deduct$;
  369.             if(@version) query_sql "SELECT CAST('"+escape_sql(@deduct$)+"' AS DECIMAL)", @deduct$;
  370.             query_sql "SELECT '"+escape_sql(@deduct$)+"' > 0", @valid;
  371.             if(!@valid) goto L_ZERO;
  372.             mes "[GM Menu]";
  373.             mes "You have specified that "+@donator$+" is to be deducted by $"+@deduct$+".";
  374.             mes "Would you like to continue?";
  375.             next;
  376.             menu "No",L_GM,"Yes",-;
  377.             query_sql "UPDATE `donate` SET `amount` = `amount` - "+@deduct$+" WHERE `account_id` = "+@aid;
  378.             query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @afterdeduct$;
  379.             logmes "Deducted "+@deduct$+" from "+@donator$;
  380.             mes "[GM Menu]";
  381.             mes "Donation deducted successfully!";
  382.             mes @donator$+" has donated a total of $"+@afterdeduct$;
  383.             break;
  384.         case 2:
  385.             mes "You have specified to remove "+@donator$+" from the donation database.";
  386.             mes "Would you like to continue?";
  387.             next;
  388.             menu "No",L_GM,"Yes",-;
  389.             query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid;
  390.             logmes "Deleted "+@donator$+" from donation database";
  391.             mes "[GM Menu]";
  392.             mes "Donator deleted successfully!";
  393.             break;
  394.         }
  395.     }
  396. close;
  397.  
  398. L_VIEWALL:
  399. mes "[GM Menu]";
  400. query_sql "SELECT `account_id`,`amount` FROM `donate` ORDER BY `amount` DESC", @donatoraid, @donatedamount$;
  401. for(set @i, 0; @i < getarraysize(@donatoraid); set @i, @i + 1){
  402.     query_sql "SELECT `userid` FROM `login` WHERE `account_id` = "+@donatoraid[@i], @donateruserid$;
  403.     for(set @j, 0; @j < getarraysize(@donateruserid$); set @j, @j + 1){
  404.         mes @donateruserid$[@j]+" - "+@donatedamount$[@i];
  405.     }
  406. }
  407. next;
  408. goto L_GM;
  409.  
  410. L_RATE:
  411. mes "[GM Menu]";
  412. if($rate) mes "$1 is currently worth "+$rate+"Z.";
  413. mes "How much Zeny is $1 worth?";
  414. input $rate;
  415. mes "[GM Menu]";
  416. mes "The value of $1 successfully changed to "+$rate+"Z.";
  417. next;
  418. goto L_GM;
  419.  
  420.  
  421. OnInit:
  422. query_sql "SELECT `id` FROM `donate_headgear_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name;
  423. query_sql "SELECT `price` FROM `donate_headgear_db` WHERE `id` = "+@name[@m], @price$;
  424.     for(set @i, 1; @i < getarraysize(@name); set @i, @i + 1){
  425.         npcshopadditem "headgears",@name[@i],$price$[@i+1];
  426.         npcshopdelitem "headgears",512; // Löscht das unwichtige random item
  427.         end;
  428.     }
  429.    
  430. query_sql "SELECT `id` FROM `donate_headgear_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name_weapon;
  431. query_sql "SELECT `price` FROM `donate_headgear_db` WHERE `id` = "+@name[@m], @price_weapon$;
  432.     for(set @i, 1; @i < getarraysize(@name); set @i, @i + 1){
  433.         npcshopadditem "weapons",@name[@i],$price$[@i+1];
  434.         npcshopdelitem "weapons",512; // Löscht das unwichtige random item
  435.         end;
  436.     }
  437.    
  438. query_sql "SELECT `id` FROM `donate_card_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name_card;
  439. query_sql "SELECT `price` FROM `donate_card_db` WHERE `id` = "+@name[@m], @price_card$;
  440.     for(set @i, 1; @i < getarraysize(@name); set @i, @i + 1){
  441.         npcshopadditem "cards",@name[@i],$price$[@i+1];
  442.         npcshopdelitem "cards",512; // Löscht das unwichtige random item
  443.         end;
  444.     }
  445. }
  446.  
  447. function    script  prices_headgears    {
  448. query_sql "SELECT `id` FROM `donate_headgear_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name;
  449. query_sql "SELECT `price` FROM `donate_headgear_db` WHERE `id` = "+@name[@m], @price$;
  450.        for(set @i,0; @i < getarraysize($price); set @i,@i+1)
  451.        {
  452.                if($price[@i] == getarg(0))
  453.                        break; // beendet die Schleife mit dem momentanen Wert von @i
  454.        }
  455.        return @i+1; // gibt @i (= index der item ID) + 1 (macht den index des Preises zur dazugehörigen Item ID) zurück
  456.  
  457. }
  458.  
  459. function    script  prices_waepons  {
  460. query_sql "SELECT `id` FROM `donate_weapon_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name;
  461. query_sql "SELECT `price` FROM `donate_weapon_db` WHERE `id` = "+@name[@m], @price$;
  462.        for(set @i,0; @i < getarraysize($price); set @i,@i+1)
  463.        {
  464.                if($price[@i] == getarg(0))
  465.                        break; // beendet die Schleife mit dem momentanen Wert von @i
  466.        }
  467.        return @i+1; // gibt @i (= index der item ID) + 1 (macht den index des Preises zur dazugehörigen Item ID) zurück
  468.  
  469. }
  470.  
  471. function    script  prices_cards    {
  472. query_sql "SELECT `id` FROM `donate_card_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name;
  473. query_sql "SELECT `price` FROM `donate_card_db` WHERE `id` = "+@name[@m], @price$;
  474.        for(set @i,0; @i < getarraysize($price); set @i,@i+1)
  475.        {
  476.                if($price[@i] == getarg(0))
  477.                        break; // beendet die Schleife mit dem momentanen Wert von @i
  478.        }
  479.        return @i+1; // gibt @i (= index der item ID) + 1 (macht den index des Preises zur dazugehörigen Item ID) zurück
  480.  
  481. }
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!