1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
|
//===== rAthena Script =======================================
//= Donation NPC
//===== By: ==================================================
//= Josh
//===== Current Version: =====================================
//= 3.11 (changelog at end of file)
//===== Compatible With: =====================================
//= rAthena SVN; SQL only, revision 7975+
//===== Description: =========================================
//= A script that lets a player claim an item for donating.
//= Allows a GM to input each donation.
//===== Comments =============================================
//= This script uses SQL tables to store variables for the
//= amount donated by users and the items claimable.
//===== Installation =========================================
//= You must import donate.sql and donate_item_db.sql (and
//= item_db.sql and item_db2.sql, which comes with rAthena)
//= before using this script.
//============================================================
prontera,145,179,5 script Donation Girl 714,{
if (getgmlevel() >= 80) goto L_GM;
L_START:
mes "[Donation Girl]";
mes "Hello! I'm the Donation Girl!";
mes "If you have made a donation,";
mes "you are entitled to a reward!";
next;
menu "More info",-,"Make a claim",L_CHECK,"Statistics",L_STATS;
L_INFO:
mes "[Donation Girl]";
mes "Each month, a lot of money is paid to keep this server running.";
next;
mes "[Donation Girl]";
mes "You can support us by donating any amount of money.";
next;
mes "[Donation Girl]";
mes "To show our appreciation, we will gladly give you a reward.";
next;
menu "Continue",L_START,"Cancel",-;
L_CHECK:
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 "What would you like to claim?";
next;
menu "Items",L_CLAIMITEM,"Zeny",L_ZENY;
L_CLAIMITEM:
mes "[Donation Girl]";
mes "Very well. Which item would you like?";
next;
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 @m, select(@menu$)-1;
query_sql "SELECT `price` FROM `donate_item_db` WHERE `id` = "+@name[@m], @price$;
query_sql "SELECT "+@value$+" / "+@price$, @max;
mes "[Donation Girl]";
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 "Sorry, but you do not have enough to claim "+@quantity+" "+getitemname(@name[@m])+"s.";
next;
goto L_CLAIM;
}
if(!@quantity) {
mes "You can't have 0 as an amount!";
next;
goto L_CLAIM;
}
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;
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);
logmes "Claimed "+@zeny+" zenies";
set Zeny, Zeny + @zeny;
mes "[Donation Girl]";
mes "Thankyou for donating! We hope you enjoy your gift!";
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$;
next;
menu "More info",L_INFO,"Make a claim",L_CHECK,"Statistics",L_STATS;
L_GM:
mes "[GM Menu]";
mes "Hello GM!";
mes "What would you like to do?";
next;
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,"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;
L_NEWITEM:
mes "[GM Menu]";
mes "Please enter the item name:";
input @itemname$;
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$;
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",-;
mes "[GM Menu]";
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:
mes "[GM Menu]";
mes "Item "+@itemname$+" does not exist.";
next;
goto L_ITEM;
L_DELITEM:
mes "[GM Menu]";
mes "Please enter the item name:";
input @itemname$;
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;
logmes "Deleted "+@itemname$+"s from list of claimable items";
mes "[GM Menu]";
mes "Item deleted successfully!";
close;
L_ALLITEMS:
mes "[GM Menu]";
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;
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) 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.";
break;
case 1:
mes @donator$+" has donated $"+@donated$+".";
break;
}
next;
mes "[GM Menu]";
mes "Please enter the amount donated by "+@donator$;
input @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?";
next;
menu "No",L_GM,"Yes",-;
switch(@donated) {
case 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;
break;
}
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$;
close;
L_ZERO:
mes "[GM Menu]";
mes "You can't have 0 as an amount!";
next;
goto L_GM;
L_NONE:
mes "[GM Menu]";
mes "Account name "+@donator$+" does not exist.";
next;
goto L_GM;
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) goto L_NONE;
query_sql "SELECT `amount` FROM `donate` WHERE `account_id` = "+@aid, @donated$;
query_sql "SELECT '"+@donated$+"' > 0", @donated;
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;
}
}
close;
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$;
for(set @j, 0; @j < getarraysize(@donateruserid$); set @j, @j + 1){
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;
}
//===== Additional Comments: =================================
//= 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 rAthena 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 rAthena
//= 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.
//============================================================
//= 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.
//============================================================
|
