diff options
Diffstat (limited to 'npc/custom/eAAC_Scripts/DonationGirl/donate.txt')
| -rw-r--r-- | npc/custom/eAAC_Scripts/DonationGirl/donate.txt | 398 |
1 files changed, 224 insertions, 174 deletions
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt index 97e39519f..91368fb5f 100644 --- a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt +++ b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt @@ -1,51 +1,72 @@ -//===== eAthena Script ======================================= +//===== Athena Script ======================================= //= Donation NPC -//===== By =================================================== +//===== By ================================================== //= Josh -//===== Version ============================================== -//= 1.0 - First release. Probably contains bugs/security -//= risks -//= 1.1 - Added a check for whether the account exists when -//= adding a donator. Need to improve ordering when -//= viewing all donations. -//= 1.2 - Modified for public use. Added checkweight feature. -//= 2.0 - Many changes, especially ones I had always wanted -//= to add to this script. Includes reading items from -//= a separate SQL table and more database manipulation -//= options for GMs. -//= 2.1 - Made few changes including the add/remove items -//= feature. -//= 3.0 - All strings inputed by a user and user/char names -//= in SQL queries are now escaped. Each item has a -//= price rather than a quantity. This script can work -//= with decimals. -//= 3.1 - Added quotes to some queries, fixed a variable and -//= removed a comment. -//= 3.2 - Fixed a problem where eAthena would crash if a -//= query returned NULL. -//= 3.3 - Optimized query speeds by combining a few select -//= queries into one. Requires Trunk 7975 OR -//= Stable 8637. -//===== Compatible With ====================================== -//= eAthena - any version that contains the new query_sql -//= command (Stable 8637 OR Trunk 7975). -//===== Description ========================================== +//===== Version ============================================= +//= 1.0 - First release. Probably contains bugs/security +//= risks. +//= 1.1 - Added a check for whether the account exists when +//= adding a donator. Need to improve ordering when +//= viewing all donations. +//= 1.2 - Modified for public use. Added checkweight feature. +//= 2.0 - Many changes, especially ones I had always wanted +//= to add to this script. Includes reading items from +//= a separate SQL table and more database manipulation +//= options for GMs. +//= 2.1 - Made few changes including the add/remove items +//= feature. +//= 3.0 - All strings inputted by a user and user/char names +//= in SQL queries are now escaped. Each item has a +//= price rather than a quantity. This script can work +//= with decimals. +//= 3.1 - Added quotes to some queries, fixed a variable and +//= removed a comment. +//= 3.2 - Fixed a problem where eAthena would crash if a +//= query returned NULL. +//= 3.3 - Optimized query speeds by combining a few select +//= queries into one. Requires Trunk 7975. +//= 3.4 - Added MySQL version check. If version < 5.0.8, all +//= queries with CAST are omitted. Use 5.0.8 and up +//= when possible. SQL errors may consequent if GM's +//= input is incorrect. Added logging of claims. +//= "log_npc" in log_athena.conf must be enabled. Logs +//= will appear in the "npclog" table. Claim menu now +//= only shows items that can be afforded. +//= 3.5 - Minor change to table. +//= 3.6 - Removed name column in donate_item_db. Added +//= support for item_db2 table. +//= 3.7 - Added Zeny support. $rate must be set for it to be +//= used. Removed truncate() in a query since eAthena +//= automatically truncates floats to ints. +//= 3.8 - Fixed problem with menus and null values. +//= 3.9 - Explicit reset of @aid. +//= 3.10 - Applied previous fix to other variables and forced +//= dialogue box closure every time database is +//= modified. +//= 3.11 - Explicit reset of another variable. Fixed typo +//= - with $rate. Added logmes for GM operations. +//===== Compatible With ===================================== +//= eAthena SQL - any version with the new query_sql command +//= (Trunk 7975 and up). +//= MySQL - 5.0.8 and up highly recommended but not required. +//===== Description ========================================= //= A script that lets a player claim an item for donating. //= Allows a GM to input each donation. -//===== Comments ============================================= +//===== Comments ============================================ //= This script uses SQL tables to store variables for the //= amount donated by users and the items claimable. -//===== Installation ========================================= -//= You must execute donate.sql and donate_item_db.sql before -//= using this script. -//============================================================ +//===== Installation ======================================== +//= You must import donate.sql and donate_item_db.sql (and +//= item_db.sql and item_db2.sql, which comes with eAthena) +//= before using this script. +//=========================================================== //= Thanks to Vich for helping me with the SQL syntax. //= Thanks to Lance for helping me with the the arrays and //= for implementing query_sql. //= Thanks to Skotlex for implementing escape_sql. //= Thanks to Toms for implementing the new multi-column //= query_sql command. -//============================================================ +//=========================================================== prontera,145,179,5 script Donation Girl 714,{ @@ -69,79 +90,104 @@ mes "[Donation Girl]"; mes "To show our appreciation, we will gladly give you a reward."; next; menu "Continue",L_START,"Cancel",-; -close; L_CHECK: -query_sql "SELECT `amount`,`claimed` FROM `donate` WHERE `account_id` = "+getcharid(3)+"", @amount$, @claimed$; -query_sql "SELECT MIN(price) FROM `donate_item_db`", @min$; -query_sql "SELECT '"+@amount$+"' - '"+@claimed$+"'", @value$; -query_sql "SELECT '"+@value$+"' >= '"+@min$+"'", @enough; -if(@enough) goto L_CLAIM; -mes "[Donation Girl]"; -mes "Sorry, you do not have enough to make a claim."; -mes "If you have donated but have not made a claim,"; -mes "Please give us time to process your donation."; -close; +query_sql "SELECT `amount`,`claimed` FROM `donate` WHERE `account_id` = "+getcharid(3), @amount$, @claimed$; +query_sql "SELECT "+@amount$+" - "+@claimed$, @value$; +query_sql "SELECT '"+@value$+"' > 0", @enough; +if(!@enough) { + mes "[Donation Girl]"; + mes "Sorry, you do not have enough to make a claim."; + mes "If you have donated but have not made a claim,"; + mes "Please give us time to process your donation."; + close; + } L_CLAIM: mes "[Donation Girl]"; mes "Thankyou for donating!"; mes "You have $"+@value$+" worth of credit!"; -mes "Would you like to claim an item now?"; +mes "What would you like to claim?"; next; -menu "No",-,"Yes",L_YES; -mes "[Donation Girl]"; -mes "Ok! You are able to collect your item(s) any time!"; -close; +menu "Items",L_CLAIMITEM,"Zeny",L_ZENY; -L_YES: +L_CLAIMITEM: mes "[Donation Girl]"; mes "Very well. Which item would you like?"; next; -query_sql "SELECT `name` FROM `donate_item_db` ORDER BY `name` ASC",$@name$; -set $@menu$, $@name$[0]; - for(set $@i, 1; $@i < 127; set $@i, $@i + 1){ - set $@menu$, $@menu$ + ":" + $@name$[$@i]; +query_sql "SELECT `id` FROM `donate_item_db` WHERE `price` <= "+@value$+" ORDER BY `id`",@name; +set @menu$, getitemname(@name[0]); + for(set @i, 1; @i < getarraysize(@name); set @i, @i + 1){ + set @menu$, @menu$ + ":" + getitemname(@name[@i]); } -set @menu, (select($@menu$))-1; +set @m, select(@menu$)-1; -query_sql "SELECT `id`,`price` FROM `donate_item_db` WHERE `name` = '"+$@name$[@menu]+"'", @id, @price$; -query_sql "SELECT TRUNCATE("+@value$+" / "+@price$+",0)", @max; +query_sql "SELECT `price` FROM `donate_item_db` WHERE `id` = "+@name[@m], @price$; +query_sql "SELECT "+@value$+" / "+@price$, @max; mes "[Donation Girl]"; -mes ""+$@name$[@menu]+"s cost $"+@price$+" each."; -mes "How many "+$@name$[@menu]+"s would you like to claim?"; +mes getitemname(@name[@m])+"s cost $"+@price$+" each."; +mes "How many "+getitemname(@name[@m])+"s would you like to claim?"; mes "Maximum: "+@max+"."; input @quantity; - +mes "[Donation Girl]"; if(@quantity>@max) { - mes "[Donation Girl]"; - mes "Sorry, but you do not have enough to claim "+@quantity+" "+$@name$[@menu]+"s."; + mes "Sorry, but you do not have enough to claim "+@quantity+" "+getitemname(@name[@m])+"s."; next; goto L_CLAIM; } - if(!@quantity) { - mes "[Donation Girl]"; mes "You can't have 0 as an amount!"; next; goto L_CLAIM; } - -if (checkweight(@id,@quantity) == 0) { - mes "[Donation Girl]"; - mes "I'm sorry, but you cannot carry "+@quantity+" "+$@name$[@menu]+"s."; +if(!checkweight(@name[@m],@quantity)) { + mes "I'm sorry, but you cannot carry "+@quantity+" "+getitemname(@name[@m])+"s."; next; goto L_CLAIM; } +query_sql "SELECT "+@quantity+" * "+@price$, @total$; +mes "Are you sure you want to claim "+@quantity+" "+getitemname(@name[@m])+"s for $"+@total$+"?"; +next; +menu "No",L_CLAIM,"Yes",-; +query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total$+" WHERE `account_id` = "+getcharid(3); +logmes "Claimed "+@quantity+" "+getitemname(@name[@m])+"s"; +getitem @name[@m],@quantity; +mes "[Donation Girl]"; +mes "Thankyou for donating! We hope you enjoy your gift!"; +close; -query_sql "SELECT "+@quantity+" * "+@price$+"", @total$; -mes "Are you sure you want to claim "+@quantity+" "+$@name$[@menu]+"s for $"+@total$+"?"; +L_ZENY: +mes "[Donation Girl]"; +if(!$rate) { + mes "Sorry, we currently do not allow claiming Zeny."; + mes "Please go back and claim an item instead."; + next; + goto L_CLAIM; + } +query_sql "SELECT "+@value$+" * "+$rate, @maxzeny; +mes "Very well. You can claim as much as "+@maxzeny+"Z."; +mes "How much Zeny would you like to claim?"; +input @zeny; +mes "[Donation Girl]"; +if(@zeny>@maxzeny) { + mes "Sorry, but you do not have enough to claim "+@zeny+"Z."; + next; + goto L_CLAIM; + } +if(!@zeny) { + mes "You can't have 0 as an amount!"; + next; + goto L_CLAIM; + } +set @total, @zeny * $rate; +mes "Are you sure you want to claim "+@zeny+"Z for $"+@total+"?"; next; menu "No",L_CLAIM,"Yes",-; -query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total$+" WHERE `account_id` = '"+getcharid(3)+"'"; -getitem @id,@quantity; +query_sql "UPDATE `donate` SET `claimed` = `claimed` + "+@total+" WHERE `account_id` = "+getcharid(3); +logmes "Claimed "+@zeny+" zenies"; +set Zeny, Zeny + @zeny; mes "[Donation Girl]"; mes "Thankyou for donating! We hope you enjoy your gift!"; close; @@ -149,65 +195,59 @@ close; L_STATS: mes "[Donation Girl]"; query_sql "SELECT IFNULL((SELECT SUM(amount) FROM `donate`),0)", @total$; -mes "Our fund is at a total of $"+@total$+""; +mes "Our fund is at a total of $"+@total$; next; menu "More info",L_INFO,"Make a claim",L_CHECK,"Statistics",L_STATS; -close; L_GM: mes "[GM Menu]"; mes "Hello GM!"; mes "What would you like to do?"; next; -menu "Add/Remove Donation",L_GM2,"Add/Remove Items",L_ITEM,"Test Script",L_START; -close; +query_sql "SHOW VARIABLES LIKE 'version'", @version, @valule$; +query_sql "SELECT '"+@valule$+"' >= '5.0.8'", @version; +menu "Add/Remove Donation",L_GM2,"Add/Remove Items",L_ITEM,"(Re)Set Exchange Rate",L_RATE,"Test Script",L_START; L_GM2: -menu "Add a donation",L_DONATE,"Remove a donation",L_REMOVE,"View all donations",L_VIEWALL; -close; +menu "Add a donation",L_DONATE,"Remove a donation",L_REMOVE,"View all donations",L_VIEWALL,"Return to main menu",L_GM; L_ITEM: menu "Add an item",L_NEWITEM,"Remove an item",L_DELITEM,"View all items",L_ALLITEMS,"Return to main menu",L_GM; -close; - L_NEWITEM: mes "[GM Menu]"; mes "Please enter the item name:"; input @itemname$; -query_sql "SELECT `id` FROM `item_db` WHERE `name_english` = '"+escape_sql(@itemname$)+"'", @iid; -query_sql "SELECT `id` FROM `donate_item_db` WHERE `name` = '"+escape_sql(@itemname$)+"'", @check; -if(@iid==0) goto L_INONE; +set @iid, 0; +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; +if(!@iid) goto L_INONE; +query_sql "SELECT 1 FROM `donate_item_db` WHERE `id` = "+@iid, @check; mes "[GM Menu]"; mes "Please enter the cost of each "+@itemname$+":"; input @cost$; -query_sql "SELECT "+escape_sql(@cost$)+" = 0", @invalid; -if(@invalid) goto L_ZERO; -query_sql "SELECT CAST('"+escape_sql(@cost$)+"' AS DECIMAL)", @cost$; +if(@version) query_sql "SELECT CAST('"+escape_sql(@cost$)+"' AS DECIMAL)", @cost$; +query_sql "SELECT '"+escape_sql(@cost$)+"' > 0", @valid; +if(!@valid) goto L_ZERO; mes "[GM Menu]"; mes "You have specified that donators can claim "+@itemname$+"s for $"+@cost$+" each."; mes "Would you like to continue?"; next; menu "No",L_ITEM,"Yes",-; -if(@check!=0) goto L_REPLACE; -query_sql "INSERT INTO `donate_item_db` VALUES ('"+@iid+"', '"+escape_sql(@itemname$)+"', '"+@cost$+"')"; -mes "[GM Menu]"; -mes "Item added successfully!"; -next; -menu "Add annother item",L_NEWITEM,"Remove an item",L_DELITEM,"View all items",L_ALLITEMS; -close; - -L_REPLACE: -mes "[GM Menu]"; -mes "Item "+@itemname$+" already exists in the database."; -mes "Would you like to replace it?"; -next; -menu "No",L_ITEM,"Yes",-; -query_sql "REPLACE INTO `donate_item_db` VALUES ('"+@iid+"', '"+@itemname$+"', '"+@cost$+"')"; mes "[GM Menu]"; -mes "Item replaced successfully!"; -next; -menu "Add annother item",L_NEWITEM,"Remove an item",L_DELITEM,"View all items",L_ALLITEMS; +if(!@check){ + query_sql "INSERT INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')"; + logmes "Added "+@itemname$+"s to list of claimable items"; + mes "Item added successfully!"; + } else { + mes "Item "+@itemname$+" already exists in the database."; + mes "Would you like to replace it?"; + next; + menu "No",L_ITEM,"Yes",-; + query_sql "REPLACE INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')"; + logmes "Changed the price of "+@itemname$+"s"; + mes "[GM Menu]"; + mes "Item replaced successfully!"; + } close; L_INONE: @@ -220,26 +260,26 @@ L_DELITEM: mes "[GM Menu]"; mes "Please enter the item name:"; input @itemname$; -query_sql "SELECT `id` FROM `donate_item_db` WHERE `name` = '"+escape_sql(@itemname$)+"'", @iid; -if(@iid==0) goto L_INONE; +set @iid, 0; +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; +if(!@iid) goto L_INONE; next; mes "[GM Menu]"; mes "You have specified to delete "+@itemname$+" from the database."; mes "Would you like to continue?"; next; menu "No",L_ITEM,"Yes",-; -query_sql "DELETE FROM `donate_item_db` WHERE `id` = '"+@iid+"'"; +query_sql "DELETE FROM `donate_item_db` WHERE `id` = "+@iid; +logmes "Deleted "+@itemname$+"s from list of claimable items"; mes "[GM Menu]"; mes "Item deleted successfully!"; -next; -menu "Add an item",L_NEWITEM,"Remove another item",L_DELITEM,"View all items",L_ALLITEMS; close; L_ALLITEMS: mes "[GM Menu]"; -query_sql "SELECT `name`,`price` FROM `donate_item_db` ORDER BY `name` ASC", @items$, @itemamount$; -for(set @i, 0; @i < getarraysize(@items$); set @i, @i + 1){ - mes ""+@items$[@i]+" - $"+@itemamount$[@i]+""; +query_sql "SELECT `id`,`price` FROM `donate_item_db` ORDER BY `id`", @items, @itemamount$; +for(set @i, 0; @i < getarraysize(@items); set @i, @i + 1){ + mes getitemname(@items[@i])+" - $"+@itemamount$[@i]; } next; goto L_GM; @@ -248,25 +288,27 @@ L_DONATE: mes "[GM Menu]"; mes "Please enter the donator's username:"; input @donator$; +set @aid, 0; query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid; -if(@aid==0) goto L_NONE; -query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid+"", @donated$; +if(!@aid) goto L_NONE; +set @donated$, ""; +query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$; query_sql "SELECT '"+@donated$+"' > 0", @donated; switch(@donated) { case 0: - mes ""+@donator$+" has not donated before."; + mes @donator$+" has not donated before."; break; case 1: - mes ""+@donator$+" has donated $"+@donated$+"."; + mes @donator$+" has donated $"+@donated$+"."; break; } next; mes "[GM Menu]"; -mes "Please enter the amount donated by "+@donator$+""; +mes "Please enter the amount donated by "+@donator$; input @donating$; -query_sql "SELECT "+escape_sql(@donating$)+" = 0", @invalid; -if(@invalid) goto L_ZERO; -query_sql "SELECT CAST('"+escape_sql(@donating$)+"' AS DECIMAL)", @donating$; +if(@version) query_sql "SELECT CAST('"+escape_sql(@donating$)+"' AS DECIMAL)", @donating$; +query_sql "SELECT '"+escape_sql(@donating$)+"' > 0", @valid; +if(!@valid) goto L_ZERO; mes "[GM Menu]"; mes "You have specified that "+@donator$+" has donated $"+@donating$+"."; mes "Would you like to continue?"; @@ -274,18 +316,18 @@ next; menu "No",L_GM,"Yes",-; switch(@donated) { case 0: - query_sql "INSERT INTO `donate` VALUES ('"+@aid+"', '"+@donating$+"', '0')"; + query_sql "INSERT INTO `donate` VALUES ("+@aid+", '"+@donating$+"', 0)"; break; case 1: - query_sql "UPDATE `donate` SET `amount` = `amount` + "+@donating$+" WHERE `account_id` = '"+@aid+"'"; + query_sql "UPDATE `donate` SET `amount` = `amount` + "+@donating$+" WHERE `account_id` = "+@aid; break; } -query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid+"", @newdonated$; +logmes "Credited "+@donator$+" with $"+@donating$; +query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @newdonated$; mes "[GM Menu]"; mes "Donation added successfully!"; -mes ""+@donator$+" has donated a total of $"+@newdonated$+""; -next; -goto L_GM; +mes @donator$+" has donated a total of $"+@newdonated$; +close; L_ZERO: mes "[GM Menu]"; @@ -303,64 +345,72 @@ L_REMOVE: mes "[GM Menu]"; mes "Please enter the donator's username:"; input @donator$; +set @aid, 0; query_sql "SELECT `account_id` FROM `login` WHERE `userid` = '"+escape_sql(@donator$)+"'", @aid; -if(@aid==0) goto L_NONE; -query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid+"", @donated$; +if(!@aid) goto L_NONE; +query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$; query_sql "SELECT '"+@donated$+"' > 0", @donated; - -if(@donated==0) { - query_sql "DELETE FROM `donate` WHERE `account_id` = '"+@aid+"'"; - mes ""+@donator$+" is not a donator and has been deleted from the donation database."; - goto L_GM; +mes "[GM Menu]"; +if(!@donated) { + query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid; + logmes "Deleted "+@donator$+" from donation database"; + mes @donator$+" is not a donator and has been deleted from the donation database."; + } else { + mes @donator$+" has donated $"+@donated$+"."; + next; + switch(select("Deduct an amount from "+@donator$,"Remove "+@donator$+" from the donation database")){ + mes "[GM Menu]"; + case 1: + mes "Please enter the amount "+@donator$+" is to be deducted by:"; + input @deduct$; + if(@version) query_sql "SELECT CAST('"+escape_sql(@deduct$)+"' AS DECIMAL)", @deduct$; + query_sql "SELECT '"+escape_sql(@deduct$)+"' > 0", @valid; + if(!@valid) goto L_ZERO; + mes "[GM Menu]"; + mes "You have specified that "+@donator$+" is to be deducted by $"+@deduct$+"."; + mes "Would you like to continue?"; + next; + menu "No",L_GM,"Yes",-; + query_sql "UPDATE `donate` SET `amount` = `amount` - "+@deduct$+" WHERE `account_id` = "+@aid; + query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @afterdeduct$; + logmes "Deducted "+@deduct$+" from "+@donator$; + mes "[GM Menu]"; + mes "Donation deducted successfully!"; + mes @donator$+" has donated a total of $"+@afterdeduct$; + break; + case 2: + mes "You have specified to remove "+@donator$+" from the donation database."; + mes "Would you like to continue?"; + next; + menu "No",L_GM,"Yes",-; + query_sql "DELETE FROM `donate` WHERE `account_id` = "+@aid; + logmes "Deleted "+@donator$+" from donation database"; + mes "[GM Menu]"; + mes "Donator deleted successfully!"; + break; + } } - -mes ""+@donator$+" has donated $"+@donated$+"."; -next; -menu "Deduct an amount from "+@donator$+"",L_MINUS,"Remove "+@donator$+" from the donation database",L_DELETE; close; -L_MINUS: -mes "[GM Menu]"; -mes "Please enter the amount "+@donator$+" is to be deducted by:"; -input @deduct$; -query_sql "SELECT "+escape_sql(@deduct$)+" = 0", @invalid; -if(@invalid) goto L_ZERO; -query_sql "SELECT CAST('"+escape_sql(@deduct$)+"' AS DECIMAL)", @deduct$; -mes "[GM Menu]"; -mes "You have specified that "+@donator$+" is to be deducted by $"+@deduct$+"."; -mes "Would you like to continue?"; -next; -menu "No",L_GM,"Yes",-; -query_sql "UPDATE `donate` SET `amount` = `amount` - "+@deduct$+" WHERE `account_id` = '"+@aid+"'"; -query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid+"", @afterdeduct$; -mes "[GM Menu]"; -mes "Donation deducted successfully!"; -mes ""+@donator$+" has donated a total of $"+@afterdeduct$+""; -next; -goto L_GM; - -L_DELETE: -mes "[GM Menu]"; -mes "You have specified to remove "+@donator$+" from the donation database."; -mes "Would you like to continue?"; -next; -menu "No",L_GM,"Yes",-; -query_sql "DELETE FROM `donate` WHERE `account_id` = '"+@aid+"'"; -mes "[GM Menu]"; -mes "Donator deleted successfully!"; -next; -goto L_GM; - L_VIEWALL: mes "[GM Menu]"; query_sql "SELECT `account_id`,`amount` FROM `donate` ORDER BY `amount` DESC", @donatoraid, @donatedamount$; for(set @i, 0; @i < getarraysize(@donatoraid); set @i, @i + 1){ - query_sql "SELECT `userid` FROM `login` WHERE `account_id` = '"+@donatoraid[@i]+"'", @donateruserid$; + query_sql "SELECT `userid` FROM `login` WHERE `account_id` = "+@donatoraid[@i], @donateruserid$; for(set @j, 0; @j < getarraysize(@donateruserid$); set @j, @j + 1){ - mes ""+@donateruserid$[@j]+" - "+@donatedamount$[@i]+""; + mes @donateruserid$[@j]+" - "+@donatedamount$[@i]; } } next; goto L_GM; +L_RATE: +mes "[GM Menu]"; +if($rate) mes "$1 is currently worth "+$rate+"Z."; +mes "How much Zeny is $1 worth?"; +input $rate; +mes "[GM Menu]"; +mes "The value of $1 successfully changed to "+$rate+"Z."; +next; +goto L_GM; }
\ No newline at end of file |