summaryrefslogtreecommitdiff
path: root/npc/custom/eAAC_Scripts
diff options
context:
space:
mode:
authorbrianluau <brianluau@54d463be-8e91-2dee-dedb-b68131a5f0ec>2011-12-25 06:54:26 +0000
committerbrianluau <brianluau@54d463be-8e91-2dee-dedb-b68131a5f0ec>2011-12-25 06:54:26 +0000
commit1d8592b23ce221f543fb9978c88620f70280c885 (patch)
tree66b363ecaa0da42195d2c9d1b8e5cd6fe8cc33a2 /npc/custom/eAAC_Scripts
parent0f82fd5bc403400dc9464a8f02298416b99b0bbc (diff)
downloadhercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.gz
hercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.bz2
hercules-1d8592b23ce221f543fb9978c88620f70280c885.tar.xz
hercules-1d8592b23ce221f543fb9978c88620f70280c885.zip
- Standardized script headers, starting with /npc/custom/
http://rathena.org/wiki/Script_header git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15262 54d463be-8e91-2dee-dedb-b68131a5f0ec
Diffstat (limited to 'npc/custom/eAAC_Scripts')
-rw-r--r--npc/custom/eAAC_Scripts/DonationGirl/donate.txt597
-rw-r--r--npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql8
-rw-r--r--npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql8
-rw-r--r--npc/custom/eAAC_Scripts/Kafra_Express_files.conf4
-rw-r--r--npc/custom/eAAC_Scripts/banker.txt92
-rw-r--r--npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt2
-rw-r--r--npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt1
-rw-r--r--npc/custom/eAAC_Scripts/messageboards.txt646
-rw-r--r--npc/custom/eAAC_Scripts/quest_warper.txt5
-rw-r--r--npc/custom/eAAC_Scripts/roll_a_dice.txt45
-rw-r--r--npc/custom/eAAC_Scripts/vendmachine.txt69
11 files changed, 740 insertions, 737 deletions
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
index dc7c0bb2a..f3d25c6d2 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
+++ b/npc/custom/eAAC_Scripts/DonationGirl/donate.txt
@@ -1,300 +1,250 @@
-//===== Athena Script =======================================
+//===== rAthena 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 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.
-//===== Compatible With =====================================
-//= rAthena 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 =========================================
+//===== 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 ============================================
+//===== Comments =============================================
//= This script uses SQL tables to store variables for the
//= amount donated by users and the items claimable.
-//===== Installation ========================================
+//===== 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.
-//===========================================================
-//= 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,{
-if (getgmlevel() >= 80) goto L_GM;
+ 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;
+ 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",-;
+ 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;
+ 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;
+ 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]);
+ 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;
+ set @m, select(@menu$)-1;
-query_sql "SELECT `price` FROM `donate_item_db` WHERE `id` = "+@name[@m], @price$;
-query_sql "SELECT "+@value$+" / "+@price$, @max;
+ 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;
+ 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(!@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;
+ 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+" "+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;
+ 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;
+ 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;
+ 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;
+ 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;
+ 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;
+ 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;
+ 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;
+ 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?";
+ 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",-;
- query_sql "REPLACE INTO `donate_item_db` VALUES ("+@iid+",'"+@cost$+"')";
- logmes "Changed the price of "+@itemname$+"s";
mes "[GM Menu]";
- mes "Item replaced successfully!";
+ 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;
+ close;
L_INONE:
-mes "[GM Menu]";
-mes "Item "+@itemname$+" does not exist.";
-next;
-goto L_ITEM;
+ 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;
+ 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 "[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;
+ 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) {
+ 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;
@@ -302,19 +252,19 @@ switch(@donated) {
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) {
+ 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;
@@ -322,44 +272,44 @@ switch(@donated) {
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;
+ 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;
+ 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;
+ 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.";
+ 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]";
+ 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$;
@@ -390,27 +340,76 @@ if(!@donated) {
break;
}
}
-close;
+ 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];
+ 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;
+ 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;
+ 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.
+//============================================================
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql
index 6838297bc..b820e2605 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql
+++ b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate.sql
@@ -1,6 +1,6 @@
CREATE TABLE `donate` (
- `account_id` int(11) unsigned NOT NULL,
- `amount` float(9,2) unsigned NOT NULL,
- `claimed` float(9,2) unsigned NOT NULL,
+ `account_id` INT(11) UNSIGNED NOT NULL,
+ `amount` FLOAT(9,2) UNSIGNED NOT NULL,
+ `claimed` FLOAT(9,2) UNSIGNED NOT NULL,
PRIMARY KEY (`account_id`)
-) TYPE=MyISAM; \ No newline at end of file
+) TYPE=MYISAM;
diff --git a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql
index 2b3caf104..54b4895b3 100644
--- a/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql
+++ b/npc/custom/eAAC_Scripts/DonationGirl/sql/donate_item_db.sql
@@ -1,8 +1,8 @@
CREATE TABLE `donate_item_db` (
- `id` smallint(5) unsigned NOT NULL default '0',
- `price` float(9,2) unsigned NOT NULL,
+ `id` SMALLINT(5) UNSIGNED NOT NULL DEFAULT '0',
+ `price` FLOAT(9,2) UNSIGNED NOT NULL,
PRIMARY KEY (`id`)
-) TYPE=MyISAM;
+) TYPE=MYISAM;
#(ID,Price);
REPLACE INTO `donate_item_db` VALUES (601,0.06); #Wing_Of_Fly
@@ -10,4 +10,4 @@ REPLACE INTO `donate_item_db` VALUES (602,0.33); #Wing_Of_Butterfly
REPLACE INTO `donate_item_db` VALUES (603,10); #Old_Blue_Box
REPLACE INTO `donate_item_db` VALUES (604,0.05); #Branch_Of_Dead_Tree
REPLACE INTO `donate_item_db` VALUES (605,2); #Anodyne
-REPLACE INTO `donate_item_db` VALUES (606,2); #Aloebera \ No newline at end of file
+REPLACE INTO `donate_item_db` VALUES (606,2); #Aloebera
diff --git a/npc/custom/eAAC_Scripts/Kafra_Express_files.conf b/npc/custom/eAAC_Scripts/Kafra_Express_files.conf
index 1364e7479..96c5823df 100644
--- a/npc/custom/eAAC_Scripts/Kafra_Express_files.conf
+++ b/npc/custom/eAAC_Scripts/Kafra_Express_files.conf
@@ -1,5 +1,5 @@
//|-----------------------------------------------------------------|
-//|- English Athena Approved Certified Script: Kafra Express Set -|
+//|- English Athena Approved Certified Script: Kafra Express Set -|
//|-----------------------------------------------------------------|
//|
//| The configuration file.
@@ -26,4 +26,4 @@ npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_town.txt
npc: npc/custom/eAAC_Scripts/kafraExpress/ke_warp_woe.txt
//| For more info referring this script, open the provided readme.txt in this folder.
-//| Copyright © 2004 - 2006 Skotlex. All Rights Reserved for him (this is almost a trademark =X) \ No newline at end of file
+//| Copyright © 2004 - 2006 Skotlex. All Rights Reserved for him (this is almost a trademark =X)
diff --git a/npc/custom/eAAC_Scripts/banker.txt b/npc/custom/eAAC_Scripts/banker.txt
index 5d46cd00b..f9111098f 100644
--- a/npc/custom/eAAC_Scripts/banker.txt
+++ b/npc/custom/eAAC_Scripts/banker.txt
@@ -1,40 +1,40 @@
//| ~~~~~~~~~~~ Information ~~~~~~~~~~~~~
-//| | This is a simple banking npc, |
-//| | instead of using those global |
-//| | variables :P |
-//| | |
-//| | It's fully customizable, you |
-//| | can exchange the coin ID used |
-//| | at will, it won't affect the |
-//| | script whatsoever =3 |
-//| | |
-//| | The prices can also be set, the |
-//| | way you like the most, as they |
-//| | won't affect the script either |
-//| | |
-//| | No db/client files modification |
-//| | needed, just "Plug&Play" ;P |
+//| | This is a simple banking npc, |
+//| | instead of using those global |
+//| | variables :P |
+//| | |
+//| | It's fully customizable, you |
+//| | can exchange the coin ID used |
+//| | at will, it won't affect the |
+//| | script whatsoever =3 |
+//| | |
+//| | The prices can also be set, the |
+//| | way you like the most, as they |
+//| | won't affect the script either |
+//| | |
+//| | No db/client files modification |
+//| | needed, just "Plug&Play" ;P |
//| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
+//|
//| Revision:
//| v.1.0: Released script. No problems or bugs found, at least :P
-//| It's your duty to find them now if there are.
-//| @minvalue must contain the coin price of the lowest coin value
-//| in order for the script to work correctly. By default it's set
-//| to the bronze coin
-
+//| It's your duty to find them now if there are.
+//| @minvalue must contain the coin price of the lowest coin value
+//| in order for the script to work correctly. By default it's set
+//| to the bronze coin
+//|
//| Revision:
//| v.2.0: Added a Mix option in the Zeny to Coin function,
-//| where it allows you to split your desired Zeny into
-//| the coins you wish to obtain, without having to go
-//| through the other functions to obtain them all. That way
-//| you can get them all at once ;3
+//| where it allows you to split your desired Zeny into
+//| the coins you wish to obtain, without having to go
+//| through the other functions to obtain them all. That way
+//| you can get them all at once ;3
+//|
+//| It also displays the total zeny being exchanged,
+//| the total coins obtained and the difference between
+//| the amount of zeny you've inputted and the sum of
+//| the coin's values.
//|
-//| It also displays the total zeny being exchanged,
-//| the total coins obtained and the difference between
-//| the amount of zeny you've inputted and the sum of
-//| the coin's values.
-
//| Revision:
//| v.2.5: Replaced all the coin names with a variable that has
//| getitemname(<coin_id), for more customization of the script.
@@ -49,33 +49,33 @@
//| Revision:
//| v.2.6: Added another Weight check to prevent coins from dropping
-//| to the ground because A) Too many coins (more than 30,000 ea)
-//| B) Your current weight + total coins weight were greater than
-//| your max weight, causing them to drop due to "over-weight".
-//| Thanks to Niktout for spotting it.
+//| to the ground because A) Too many coins (more than 30,000 ea)
+//| B) Your current weight + total coins weight were greater than
+//| your max weight, causing them to drop due to "over-weight".
+//| Thanks to Niktout for spotting it.
//| Revision:
//| v.2.7: Added a check to the Zeny -> Coin Mix label. It seems you
-//| can trade with negative zeny (meh...). This should prevent it.
-//| Thanks to Niktout.
+//| can trade with negative zeny (meh...). This should prevent it.
+//| Thanks to Niktout.
//| Revision:
//| v.2.8: Added a n00b check for the Zeny -> Coin function. Should
-//| prevent zeny overflow. Also added a variable cleaning section
-//| at the beginning of the Mix function, to prevent old values
-//| to be used as a payout.
+//| prevent zeny overflow. Also added a variable cleaning section
+//| at the beginning of the Mix function, to prevent old values
+//| to be used as a payout.
//| Revision:
//| v.2.8.1 Removed the 'conflicting' switch with variables as case options,
-//| and moved the color names to the function, so now it executes once.
-//| Did other optimizations and cleanups all around the code. Meh.
+//| and moved the color names to the function, so now it executes once.
+//| Did other optimizations and cleanups all around the code. Meh.
//| Upcomming possible updates:
//| v.3.0: Adding a refining system, so you can gather ore and the likes
-//| to make your own coins. They will have a failure chance
-//| of course. You will need, for now: 10 ores of the type of
-//| coin you wish, a mini furnace, an anvil depending on what
-//| You're crafting, and a hammer according to it.
+//| to make your own coins. They will have a failure chance
+//| of course. You will need, for now: 10 ores of the type of
+//| coin you wish, a mini furnace, an anvil depending on what
+//| You're crafting, and a hammer according to it.
//| Copyright © 2006-2007 erKURITA. All Rights Reserved
@@ -420,4 +420,4 @@ prontera,155,188,3 script Zacariath Madhat 872,{
OnInit:
setitemscript 671,"{}";
end;
-} \ No newline at end of file
+}
diff --git a/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt b/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt
index f75b01837..2f9555f1d 100644
--- a/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt
+++ b/npc/custom/eAAC_Scripts/kafraExpress/Changelog.txt
@@ -480,4 +480,4 @@
* Broadcast Module v1.7
- Expanded to include new PvP rooms
--- Too old to remember :P \ No newline at end of file
+-- Too old to remember :P
diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt
index 2f240b2df..d5a4093cb 100644
--- a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt
+++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt
@@ -177,4 +177,3 @@ function SF_calcInterest {
} //SF end
}
-
diff --git a/npc/custom/eAAC_Scripts/messageboards.txt b/npc/custom/eAAC_Scripts/messageboards.txt
index 7dae78cfc..c6c59edcb 100644
--- a/npc/custom/eAAC_Scripts/messageboards.txt
+++ b/npc/custom/eAAC_Scripts/messageboards.txt
@@ -1,421 +1,433 @@
+//===== rAthena Script =======================================
+//= Message Man
+//===== By: ==================================================
+//= Vicious
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= a message board where you can post and read messages
+//===== Additional Comments: =================================
+//=
+//============================================================
+
geffen,122,102,4 script Message Man 774,{
-mes "[Robert]";
-mes "Hello, I am here to serve you. Enjoy my service. ^_-";
-next;
-mes "[Robert]";
-mes "Please keep in mind, that all messages are wiped once every two days";
-mes "-Msg From Creator- In new version this will be set able, look forward to this! -End Msg From Creator-";
-next;
+ mes "[Robert]";
+ mes "Hello, I am here to serve you. Enjoy my service. ^_-";
+ next;
+ mes "[Robert]";
+ mes "Please keep in mind, that all messages are wiped once every two days";
+ mes "-Msg From Creator- In new version this will be set able, look forward to this! -End Msg From Creator-";
+ next;
L_Menu01:
-mes "[Robert]";
-mes "What would you like to do??";
-next;
-if((getgmlevel() >= 90)) menu "Public board",L_pubgmmenu,"Gm Board",L_gmmenu,"Close Public Board",L_clospub,"Open Public Board",L_openpub;
-if(($messagepubclose == 1)) goto L_pubclosed;
-menu "Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
+ mes "[Robert]";
+ mes "What would you like to do??";
+ next;
+ if((getgmlevel() >= 90)) menu "Public board",L_pubgmmenu,"Gm Board",L_gmmenu,"Close Public Board",L_clospub,"Open Public Board",L_openpub;
+ if(($messagepubclose == 1)) goto L_pubclosed;
+ menu "Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
L_pubgmmenu:
-if(($messagepubclose == 1)) goto L_pubclosed;
-menu "Re-set the rotation",L_setrot,"Reset Message",L_Clearmsgs,"Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
+ if(($messagepubclose == 1)) goto L_pubclosed;
+ menu "Re-set the rotation",L_setrot,"Reset Message",L_Clearmsgs,"Read messages!",L_readmsg,"Post a message!",L_Postmsg,"Leave",L_leave;
L_gmmenu:
-menu "Read messages!",L_gmboardread,"Post a Message!",L_gmboardpost,"Reset Messages",L_gmboardreset;
+ menu "Read messages!",L_gmboardread,"Post a Message!",L_gmboardpost,"Reset Messages",L_gmboardreset;
L_openpub:
-mes "[Robert]";
-mes "Are you sure?";
-menu "Yes",-,"No",L_openpubn;
-mes "[Robert]";
-mes "It is done.";
-close2;
-set $messagepubclose,0;
-end;
+ mes "[Robert]";
+ mes "Are you sure?";
+ menu "Yes",-,"No",L_openpubn;
+ mes "[Robert]";
+ mes "It is done.";
+ close2;
+ set $messagepubclose,0;
+ end;
L_openpubn:
-mes "[Robert]";
-mes "Very well it shall remain closed.";
-close;
+ mes "[Robert]";
+ mes "Very well it shall remain closed.";
+ close;
L_pubclosed:
-mes "[Robert]";
-mes "Im sorry. The public boards are currently Closed.";
-close;
+ mes "[Robert]";
+ mes "Im sorry. The public boards are currently Closed.";
+ close;
L_clospub:
-mes "[Robert]";
-mes "Are you sure?";
-next;
-menu "Yes.",-,"No",L_closepubn;
-mes "[Robert]";
-mes "Very well I will not allow anyone into the public board.";
-close2;
-set $messagepubclose,1;
-end;
+ mes "[Robert]";
+ mes "Are you sure?";
+ next;
+ menu "Yes.",-,"No",L_closepubn;
+ mes "[Robert]";
+ mes "Very well I will not allow anyone into the public board.";
+ close2;
+ set $messagepubclose,1;
+ end;
L_closepubn:
-mes "[Robert]";
-mes "Have a nice day";
-close;
+ mes "[Robert]";
+ mes "Have a nice day";
+ close;
L_gmboardreset:
-mes "[Robert]";
-mes "This will require atleast 2 GM's approval to reset the gm board.";
-mes "-Msg From Creator- This is bugged same gm can vote twice. Planned to revise in next version. -End Msg From Creator-";
-next;
-menu "Vote for reset.",L_gmboardresetvote,"Back to main.",L_Menu01,"Leave.",L_leave;
+ mes "[Robert]";
+ mes "This will require atleast 2 GM's approval to reset the gm board.";
+ mes "-Msg From Creator- This is bugged same gm can vote twice. Planned to revise in next version. -End Msg From Creator-";
+ next;
+ menu "Vote for reset.",L_gmboardresetvote,"Back to main.",L_Menu01,"Leave.",L_leave;
L_gmboardresetvote:
-callfunc "F_gmresetcheck";
-set @tempid,getcharid(0);
-set $gmboardresetvotenumb,$gmboardresetvotenumb+1;
-set $gmboardresetvoted[$gmboardresetvotenumb],1;
-set $gmboardresetvoteid[$gmboardresetvotenumb],@tempid;
-set @tempid,0;
-set $gmboardreset,$gmboardreset-1;
-mes "[Robert]";
-mes "Thank you.";
-next;
-if(($gmboardreset == 0)) goto L_gmresetdone;
-if(($gmboardreset >= 1)) goto L_gmresetnotdone;
-close;
+ callfunc "F_gmresetcheck";
+ set @tempid,getcharid(0);
+ set $gmboardresetvotenumb,$gmboardresetvotenumb+1;
+ set $gmboardresetvoted[$gmboardresetvotenumb],1;
+ set $gmboardresetvoteid[$gmboardresetvotenumb],@tempid;
+ set @tempid,0;
+ set $gmboardreset,$gmboardreset-1;
+ mes "[Robert]";
+ mes "Thank you.";
+ next;
+ if(($gmboardreset == 0)) goto L_gmresetdone;
+ if(($gmboardreset >= 1)) goto L_gmresetnotdone;
+ close;
L_gmresetdone:
-deletearray $gmmessageboardpost$[1],$gmmessageboardpostnumber;
-deletearray $gmmessageboardpostdate$[1],$gmmessageboardpostnumber;
-deletearray $gmmessageboardpostname$[1],$gmmessageboardpostnumber;
-deletearray $gmmessageboardeditdate$[1],$gmmessageboardpostnumber;
-deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
-deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
-deletearray $gmboardresetvoteid[1],$gmboardresetvotenumber;
-set $gmboardresetvotenumber,0;
-set $gmboardreset,2;
-mes "[Robert]";
-mes "The reset has been done.";
-close;
+ deletearray $gmmessageboardpost$[1],$gmmessageboardpostnumber;
+ deletearray $gmmessageboardpostdate$[1],$gmmessageboardpostnumber;
+ deletearray $gmmessageboardpostname$[1],$gmmessageboardpostnumber;
+ deletearray $gmmessageboardeditdate$[1],$gmmessageboardpostnumber;
+ deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
+ deletearray $gmboardresetvoted[1],$gmboardresetvotenumber;
+ deletearray $gmboardresetvoteid[1],$gmboardresetvotenumber;
+ set $gmboardresetvotenumber,0;
+ set $gmboardreset,2;
+ mes "[Robert]";
+ mes "The reset has been done.";
+ close;
L_gmresetnotdone:
-mes "[Robert]";
-mes "There needs to be "+$gmboardreset+" more gm(s) approval to do the reset.";
-close;
+ mes "[Robert]";
+ mes "There needs to be "+$gmboardreset+" more gm(s) approval to do the reset.";
+ close;
L_gmboardread:
-if(($gmmessageboardpostnumber == 0)) goto L_msgno;
-callfunc "F_gmmessage";
-end;
+ if(($gmmessageboardpostnumber == 0)) goto L_msgno;
+ callfunc "F_gmmessage";
+ end;
L_gmboardpost:
-if(($gmmessageboardpostnumber >= 127)) goto L_postmsgyestm;
-set @gmmessageboardpostername$,strcharinfo(0);
-set @gmmessageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
-set $gmmessageboardpostnumber,$gmmessageboardpostnumber+1;
-input @gmmsgboardmsgt$;
-set $gmmessageboardpost$[$gmmessageboardpostnumber],@gmmsgboardmsgt$;
-set $gmmessageboardpostdate$[$gmmessageboardpostnumber],@gmmessageboarddate$;
-set $gmmessageboardpostname$[$gmmessageboardpostnumber],@gmmessageboardpostername$;
-mes "[Robert]";
-mes "Here is what your message looks like";
-next;
-mes "Posted by: "+$gmmessageboardpostname$[$gmmessageboardpostnumber]+".";
-mes "On: "+$gmmessageboardpostdate$[$gmmessageboardpostnumber]+".";
-mes $gmmessageboardpost$[$gmmessageboardpostnumber];
-close;
+ if(($gmmessageboardpostnumber >= 127)) goto L_postmsgyestm;
+ set @gmmessageboardpostername$,strcharinfo(0);
+ set @gmmessageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
+ set $gmmessageboardpostnumber,$gmmessageboardpostnumber+1;
+ input @gmmsgboardmsgt$;
+ set $gmmessageboardpost$[$gmmessageboardpostnumber],@gmmsgboardmsgt$;
+ set $gmmessageboardpostdate$[$gmmessageboardpostnumber],@gmmessageboarddate$;
+ set $gmmessageboardpostname$[$gmmessageboardpostnumber],@gmmessageboardpostername$;
+ mes "[Robert]";
+ mes "Here is what your message looks like";
+ next;
+ mes "Posted by: "+$gmmessageboardpostname$[$gmmessageboardpostnumber]+".";
+ mes "On: "+$gmmessageboardpostdate$[$gmmessageboardpostnumber]+".";
+ mes $gmmessageboardpost$[$gmmessageboardpostnumber];
+ close;
L_setrot:
-set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
-if(($@determinedayrotation == 0)) set $rotation,0;
-if(($@determinedayrotation == 1)) set $rotation,1;
-if(($@determinedayrotation == 2)) set $rotation,0;
-if(($@determinedayrotation == 3)) set $rotation,1;
-if(($@determinedayrotation == 4)) set $rotation,0;
-if(($@determinedayrotation == 5)) set $rotation,1;
-if(($@determinedayrotation == 6)) set $rotation,0;
-mes "It is done.";
-close;
+ set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
+ if(($@determinedayrotation == 0)) set $rotation,0;
+ if(($@determinedayrotation == 1)) set $rotation,1;
+ if(($@determinedayrotation == 2)) set $rotation,0;
+ if(($@determinedayrotation == 3)) set $rotation,1;
+ if(($@determinedayrotation == 4)) set $rotation,0;
+ if(($@determinedayrotation == 5)) set $rotation,1;
+ if(($@determinedayrotation == 6)) set $rotation,0;
+ mes "It is done.";
+ close;
L_Clearmsgs:
-mes "[Robert]";
-mes "Are you sure?";
-next;
-menu "Yes",L_clearmsgsy,"No thanks.",L_Menu01;
+ mes "[Robert]";
+ mes "Are you sure?";
+ next;
+ menu "Yes",L_clearmsgsy,"No thanks.",L_Menu01;
L_clearmsgsy:
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $messageboardeditdate$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-mes "[Robert]";
-mes "It is done.";
-close;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $messageboardeditdate$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ mes "[Robert]";
+ mes "It is done.";
+ close;
L_leave:
-close;
+ close;
L_Postmsg:
-mes "[Robert]";
-mes "What do you want to say in your message?";
-next;
-set @msgboardmsgt$,0;
-input @msgboardmsgt$;
-mes "[Robert]";
-mes "are you sure this is the message you want?";
-mes @msgboardmsgt$;
-next;
-menu "Yes!",L_postmsgyes,"No let me re-do it!",L_Postmsg,"Ive changed my mind let me leave.",lleave;
+ mes "[Robert]";
+ mes "What do you want to say in your message?";
+ next;
+ set @msgboardmsgt$,0;
+ input @msgboardmsgt$;
+ mes "[Robert]";
+ mes "are you sure this is the message you want?";
+ mes @msgboardmsgt$;
+ next;
+ menu "Yes!",L_postmsgyes,"No let me re-do it!",L_Postmsg,"Ive changed my mind let me leave.",lleave;
L_postmsgyes:
-if(($messageboardpostnumber >= 127)) goto L_postmsgyestm;
-set @messageboardpostername$,strcharinfo(0);
-set @messageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
-set $messageboardpostnumber,$messageboardpostnumber+1;
-set @mymessage2,$messageboardpostnumber;
-set $mymessage[$messageboardpostnumber],5;
-set $messageboardpost$[$messageboardpostnumber],@msgboardmsgt$;
-set $messageboardpostdate$[$messageboardpostnumber],@messageboarddate$;
-set $messageboardpostname$[$messageboardpostnumber],@messageboardpostername$;
-mes "[Robert]";
-mes "here is what your message looks like";
-next;
-mes "Posted by: "+$messageboardpostname$[$messageboardpostnumber]+".";
-mes "On: "+$messageboardpostdate$[$messageboardpostnumber]+".";
-mes $messageboardpost$[$messageboardpostnumber];
-close;
+ if(($messageboardpostnumber >= 127)) goto L_postmsgyestm;
+ set @messageboardpostername$,strcharinfo(0);
+ set @messageboarddate$,gettimestr("%Y-%m/%d %H:%M:%S",21);
+ set $messageboardpostnumber,$messageboardpostnumber+1;
+ set @mymessage2,$messageboardpostnumber;
+ set $mymessage[$messageboardpostnumber],5;
+ set $messageboardpost$[$messageboardpostnumber],@msgboardmsgt$;
+ set $messageboardpostdate$[$messageboardpostnumber],@messageboarddate$;
+ set $messageboardpostname$[$messageboardpostnumber],@messageboardpostername$;
+ mes "[Robert]";
+ mes "here is what your message looks like";
+ next;
+ mes "Posted by: "+$messageboardpostname$[$messageboardpostnumber]+".";
+ mes "On: "+$messageboardpostdate$[$messageboardpostnumber]+".";
+ mes $messageboardpost$[$messageboardpostnumber];
+ close;
L_postmsgyestm:
-set @mesboardmsgt$,0;
-mes "[Robert]";
-mes "Im sorry your going to have to wait till more space opens up for messages, it should be in 1 or 2 days =)";
-close;
+ set @mesboardmsgt$,0;
+ mes "[Robert]";
+ mes "Im sorry your going to have to wait till more space opens up for messages, it should be in 1 or 2 days =)";
+ close;
lleave:
-deletearray $messageboardpost$[@tempview],@tempview;
-deletearray $messageboardpostname$[@tempview],@tempview;
-deletearray $messageboardpostdate$[@tempview],@tempview;
-deletearray $mymessage[@tempview],@tempview;
-set $messageboardpostnumber,$messageboardpostnumber-1;
-set @msgboardmsgt$,0;
-close;
+ deletearray $messageboardpost$[@tempview],@tempview;
+ deletearray $messageboardpostname$[@tempview],@tempview;
+ deletearray $messageboardpostdate$[@tempview],@tempview;
+ deletearray $mymessage[@tempview],@tempview;
+ set $messageboardpostnumber,$messageboardpostnumber-1;
+ set @msgboardmsgt$,0;
+ close;
L_readmsg:
-if(($messageboardpostnumber == 0)) goto L_msgno;
-callfunc "F_message";
-end;
+ if(($messageboardpostnumber == 0)) goto L_msgno;
+ callfunc "F_message";
+ end;
L_msgno:
-mes "[Robert]";
-mes "There are currently no messages.";
-close;
+ mes "[Robert]";
+ mes "There are currently no messages.";
+ close;
OnInit:
-set $gmboardreset,2;
-set $gmboardresetvotenumb,0;
-end;
+ set $gmboardreset,2;
+ set $gmboardresetvotenumb,0;
+ end;
OnInterIfInitOnce:
-set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
-if(($@determinedayrotation == 0)) set $rotation,0;
-if(($@determinedayrotation == 1)) set $rotation,1;
-if(($@determinedayrotation == 2)) set $rotation,0;
-if(($@determinedayrotation == 3)) set $rotation,1;
-if(($@determinedayrotation == 4)) set $rotation,0;
-if(($@determinedayrotation == 5)) set $rotation,1;
-if(($@determinedayrotation == 6)) set $rotation,0;
-end;
+ set $@determinedayrotation,gettime(4); //this determines the day rotation for clearing messages.
+ if(($@determinedayrotation == 0)) set $rotation,0;
+ if(($@determinedayrotation == 1)) set $rotation,1;
+ if(($@determinedayrotation == 2)) set $rotation,0;
+ if(($@determinedayrotation == 3)) set $rotation,1;
+ if(($@determinedayrotation == 4)) set $rotation,0;
+ if(($@determinedayrotation == 5)) set $rotation,1;
+ if(($@determinedayrotation == 6)) set $rotation,0;
+ end;
OnSun1200:
-if(($rotation == 1)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 1)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnSat1200:
-if(($rotation == 0)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 0)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnMon1200:
-if(($rotation == 1)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 1)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnTue1200:
-if(($rotation == 0)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 0)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnWed1200:
-if(($rotation == 1)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 1)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnThu1200:
-if(($rotation == 0)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[1],$messageboardpostnumber;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 0)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[1],$messageboardpostnumber;
+ set $messageboardpostnumber,0;
+ end;
OnFri1200:
-if(($rotation == 1)) end;
-deletearray $messageboardpost$[1],$messageboardpostnumber;
-deletearray $messageboardpostdate$[1],$messageboardpostnumber;
-deletearray $messageboardpostname$[1],$messageboardpostnumber;
-deletearray $mymessage[@tempview],@tempview;
-set $messageboardpostnumber,0;
-end;
+ if(($rotation == 1)) end;
+ deletearray $messageboardpost$[1],$messageboardpostnumber;
+ deletearray $messageboardpostdate$[1],$messageboardpostnumber;
+ deletearray $messageboardpostname$[1],$messageboardpostnumber;
+ deletearray $mymessage[@tempview],@tempview;
+ set $messageboardpostnumber,0;
+ end;
}
function script F_gmresetcheck {
-set @tempcheck,0;
+ set @tempcheck,0;
L_top:
-set @tempcheck,@tempcheck+1;
-if(($gmboardresetvoted[@tempview] == 1)) goto L_votecheck;
-if(($gmboardresetvoted[@tempview] == 0)) return;
-goto L_top;
-end;
-
+ set @tempcheck,@tempcheck+1;
+ if(($gmboardresetvoted[@tempview] == 1)) goto L_votecheck;
+ if(($gmboardresetvoted[@tempview] == 0)) return;
+ goto L_top;
+ end;
L_votecheck:
-set @tempcheckid,0;
-set @tempcheckid,getcharid(0);
-if(($gmboardresetvoteid[@tempview] != @tempcheckid)) goto L_top;
-if(($gmboardresetvoteid[@tempview] == @tempcheckid)) goto L_voted;
-end;
+ set @tempcheckid,0;
+ set @tempcheckid,getcharid(0);
+ if(($gmboardresetvoteid[@tempview] != @tempcheckid)) goto L_top;
+ if(($gmboardresetvoteid[@tempview] == @tempcheckid)) goto L_voted;
+ end;
}
function script F_gmmessage {
-set @tempview,0;
+ set @tempview,0;
L_top:
-set @tempview,@tempview+1;
-mes "Posted By: "+$gmmessageboardpostname$[@tempview]+".";
-mes "On: "+$gmmessageboardpostdate$[@tempview]+".";
-mes $gmmessageboardpost$[@tempview]+".";
-menu "Next Message",L_top2;
-
+ set @tempview,@tempview+1;
+ mes "Posted By: "+$gmmessageboardpostname$[@tempview]+".";
+ mes "On: "+$gmmessageboardpostdate$[@tempview]+".";
+ mes $gmmessageboardpost$[@tempview]+".";
+ menu "Next Message",L_top2;
L_top2:
-if(($gmmessageboardpostnumber > @tempview)) goto L_top;
-close;
+ if(($gmmessageboardpostnumber > @tempview)) goto L_top;
+ close;
}
function script F_message {
-set @tempview,0;
+ set @tempview,0;
L_top:
-set @tempview,@tempview+1;
-mes "Posted By: "+$messageboardpostname$[@tempview]+".";
-mes "On: "+$messageboardpostdate$[@tempview]+".";
-mes $messageboardpost$[@tempview]+".";
-next;
-if(($mymessage[@tempview] == 5) && (getgmlevel()>0)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy,"Delete This message",L_Del;
-if((getgmlevel()>0)) menu "Next Message",L_top2,"Delete This message",L_Del;
-if(($mymessage[@tempview] == 5)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy;
-menu "Next message",L_top2;
-close;
+ set @tempview,@tempview+1;
+ mes "Posted By: "+$messageboardpostname$[@tempview]+".";
+ mes "On: "+$messageboardpostdate$[@tempview]+".";
+ mes $messageboardpost$[@tempview]+".";
+ next;
+ if(($mymessage[@tempview] == 5) && (getgmlevel()>0)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy,"Delete This message",L_Del;
+ if((getgmlevel()>0)) menu "Next Message",L_top2,"Delete This message",L_Del;
+ if(($mymessage[@tempview] == 5)) menu "Next Message",L_top2,"Delete My Message",L_delmy,"Edit my message",L_editmy;
+ menu "Next message",L_top2;
+ close;
L_editmy:
-mes "Are you sure?";
-next;
-menu "Yes",L_editmyy,"No",L_editmyn;
+ mes "Are you sure?";
+ next;
+ menu "Yes",L_editmyy,"No",L_editmyn;
L_editmyy:
-mes "what do you want your new message to be?";
-next;
-mes "Current message!";
-mes $messageboardpost$[@tempview];
-set @tempeditmsg$,0;
-input @tempeditmsg$;
-next;
-mes "is this what you want?";
-mes @tempeditmsg$;
-next;
-menu "Yes!",L_editmyyy,"No.",L_editmyyn;
+ mes "what do you want your new message to be?";
+ next;
+ mes "Current message!";
+ mes $messageboardpost$[@tempview];
+ set @tempeditmsg$,0;
+ input @tempeditmsg$;
+ next;
+ mes "is this what you want?";
+ mes @tempeditmsg$;
+ next;
+ menu "Yes!",L_editmyyy,"No.",L_editmyyn;
L_editmyyy:
-deletearray $messageboardpost$[@tempview],@tempview;
-set $messageboardpost$[@tempview],@tempeditmsg$;
-mes "Here is what your new message looks like.";
-next;
-mes "Posted By: "+$messageboardpostname$[@tempview]+".";
-mes "On: "+$messageboardpostdate$[@tempview]+".";
-mes $messageboardpost$[@tempview]+".";
-close2;
-set @tempview,0;
-end;
+ deletearray $messageboardpost$[@tempview],@tempview;
+ set $messageboardpost$[@tempview],@tempeditmsg$;
+ mes "Here is what your new message looks like.";
+ next;
+ mes "Posted By: "+$messageboardpostname$[@tempview]+".";
+ mes "On: "+$messageboardpostdate$[@tempview]+".";
+ mes $messageboardpost$[@tempview]+".";
+ close2;
+ set @tempview,0;
+ end;
L_editmyn:
-Mes "So be it.";
-set @tempview,0;
-close;
+ Mes "So be it.";
+ set @tempview,0;
+ close;
L_editmyyn:
-mes "So be it!";
-set @tempeditmsg$,0;
-set @tempview,0;
-close;
+ mes "So be it!";
+ set @tempeditmsg$,0;
+ set @tempview,0;
+ close;
L_delmy:
-mes "Are you sure...?";
-next;
-menu "Yes",L_delmyy,"No thanks.",L_delmyn;
+ mes "Are you sure...?";
+ next;
+ menu "Yes",L_delmyy,"No thanks.",L_delmyn;
L_delmyy:
-deletearray $messageboardpost$[@tempview],@tempview;
-deletearray $messageboardpostname$[@tempview],@tempview;
-deletearray $messageboardpostdate$[@tempview],@tempview;
-deletearray $mymessage[@tempview],@tempview;
-deletearray $messageboardeditdate$[@tempview],@tempview;
-set $messageboardpostnumber,$messageboardpostnumber-1;
-set @tempview,0;
-mes "It is done.";
-close;
+ deletearray $messageboardpost$[@tempview],@tempview;
+ deletearray $messageboardpostname$[@tempview],@tempview;
+ deletearray $messageboardpostdate$[@tempview],@tempview;
+ deletearray $mymessage[@tempview],@tempview;
+ deletearray $messageboardeditdate$[@tempview],@tempview;
+ set $messageboardpostnumber,$messageboardpostnumber-1;
+ set @tempview,0;
+ mes "It is done.";
+ close;
L_delmyn:
-mes "Come back soon.";
-set @tempview,0;
-close;
+ mes "Come back soon.";
+ set @tempview,0;
+ close;
L_top2:
-if(($messageboardpostnumber > @tempview)) goto L_top;
-close;
+ if(($messageboardpostnumber > @tempview)) goto L_top;
+ close;
L_Del:
-mes "Are you sure?";
-next;
-menu "Yes",L_Dely,"No",L_Deln;
+ mes "Are you sure?";
+ next;
+ menu "Yes",L_Dely,"No",L_Deln;
L_Dely:
-deletearray $messageboardpost$[@tempview],@tempview;
-deletearray $messageboardpostname$[@tempview],@tempview;
-deletearray $messageboardpostdate$[@tempview],@tempview;
-deletearray $mymessage[@tempview],@tempview;
-deletearray $messageboardeditdate$[@tempview],@tempview;
-set $messageboardpostnumber,$messageboardpostnumber-1;
-mes "It is done.";
-set @tempview,0;
-close;
+ deletearray $messageboardpost$[@tempview],@tempview;
+ deletearray $messageboardpostname$[@tempview],@tempview;
+ deletearray $messageboardpostdate$[@tempview],@tempview;
+ deletearray $mymessage[@tempview],@tempview;
+ deletearray $messageboardeditdate$[@tempview],@tempview;
+ set $messageboardpostnumber,$messageboardpostnumber-1;
+ mes "It is done.";
+ set @tempview,0;
+ close;
L_Deln:
-mes "Come back soon!";
-set @tempview,0;
-close;
-} \ No newline at end of file
+ mes "Come back soon!";
+ set @tempview,0;
+ close;
+}
diff --git a/npc/custom/eAAC_Scripts/quest_warper.txt b/npc/custom/eAAC_Scripts/quest_warper.txt
index 427fff850..a9947ee3f 100644
--- a/npc/custom/eAAC_Scripts/quest_warper.txt
+++ b/npc/custom/eAAC_Scripts/quest_warper.txt
@@ -1,12 +1,11 @@
//===== rAthena Script ============================================
//= Quest Warper Script
//===== By: =======================================================
-//= Old Warper 2 by Darkchild - Remade with quest format by DZeroX
-//= Huge Rewrite by Neouni
+//= DZeroX, Darkchild, Neouni
//===== Current Version: ==========================================
//= 2.2
//===== Compatible With: ==========================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: ==============================================
//= Warper that works only after locations are unlocked
//===== Additional Comments: ======================================
diff --git a/npc/custom/eAAC_Scripts/roll_a_dice.txt b/npc/custom/eAAC_Scripts/roll_a_dice.txt
index 0f1fdf81b..4ba8fc827 100644
--- a/npc/custom/eAAC_Scripts/roll_a_dice.txt
+++ b/npc/custom/eAAC_Scripts/roll_a_dice.txt
@@ -1,23 +1,26 @@
-//==========================================================
-//Roll a Dice NPC
-//==========================================================
-//Made by birkiczd
-//==========================================================
-//This game lets you and the Dicer throw 3 dices.
-//Whoever get's a higher number (the player or dealer) wins.
-//==========================================================
-//Version:1.0 - made script public
-// 1.1 - fixed a few bugs,added dice emos =)
-// 1.2 - made variables for the amount of zenys for
-// each bet so it is easy for people to costumize
-// the script
-// 1.3 - added more emoticons,made an Info menu
-// option which contains explanations and rules,
-// added the amount of lost/won zeny on the end
-// of each game,added more colors
-// 1.4 - some small code optimization thanks to Myzter
-//==========================================================
-
+//===== rAthena Script =======================================
+//= Roll a Dice
+//===== By: ==================================================
+//= birkiczd
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= This game lets you and the Dicer throw 3 dices.
+//= Whoever get's a higher number (the player or dealer) wins.
+//===== Additional Comments: =================================
+// 1.0 - made script public
+// 1.1 - fixed a few bugs,added dice emos =)
+// 1.2 - made variables for the amount of zenys for
+// each bet so it is easy for people to costumize
+// the script
+// 1.3 - added more emoticons,made an Info menu
+// option which contains explanations and rules,
+// added the amount of lost/won zeny on the end
+// of each game,added more colors
+// 1.4 - some small code optimization thanks to Myzter
+//============================================================
cmd_in02,181,98,2 script Dicer 57,{
@@ -239,6 +242,4 @@ L_againa:
mes "Would you like to play again?";
next;
menu "Yes",L_play,"No",L_go;
-
-
}
diff --git a/npc/custom/eAAC_Scripts/vendmachine.txt b/npc/custom/eAAC_Scripts/vendmachine.txt
index bbd7602c6..17371ef9d 100644
--- a/npc/custom/eAAC_Scripts/vendmachine.txt
+++ b/npc/custom/eAAC_Scripts/vendmachine.txt
@@ -1,35 +1,33 @@
-//=====================================
-// Vending Machine Script
-// v2.4
-//=====================================
-// by Celestria
-//=====================================
-// Changelog:
-// 2.4 - Made optimizations according to suggestions made by erKURITA. Script is now significantly shorter.
-//
-// 2.3 - Added in "Slam" feature, as well as admin ability to turn machine on and off.
-// - Added admin menu. Allows GMs to put machines in/out of service, and to clear
-// all jammed items.
-//
-// 2.2 - Added in/Renamed some variables to allow a single machine to block on several
-// items simultaneously. This fix also allows the two-item drop to work with every
-// item the machine is jammed on.
-//
-// 2.1 - Fixed an error where if one machine jammed on a menu item (say 3 for example),
-// if another machine also jammed on the same menu item (3 in this case), the original
-// machine to jam would be unjammed.
-// - This fix only allows a machine to jam one item at a time. Will fix in the future.
-//
-// 2.0 - Completely redid the script using a call-function.
-// Now all replica scripts can simply be a copy of Vending Machine,
-// but with variables modified to suit it''s intended use.
-//
-// 1.1 - Fixed $jamplayer1 not being a string, thanks to Terces.
-// - Changed random number that intiates jam to 1, to allow for faster modification of jam rates.
-//
-// 1.0 - Creted a script for selling numerous items that would occasionally jam on players.
-// - Used numbered variables to allow for multiplacation of the script.
-//=====================================
+//===== rAthena Script =======================================
+//= Vending Machine
+//===== By: ==================================================
+//= Celestria
+//===== Current Version: =====================================
+//= 2.4
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= sells items to players; occasionally the machine will "jam" :P
+//===== Additional Comments: =================================
+//= 1.0 - Creted a script for selling numerous items that would occasionally jam on players.
+//= - Used numbered variables to allow for multiplacation of the script.
+//= 1.1 - Fixed $jamplayer1 not being a string, thanks to Terces.
+//= - Changed random number that intiates jam to 1, to allow for faster modification of jam rates.
+//= 2.0 - Completely redid the script using a call-function.
+//= Now all replica scripts can simply be a copy of Vending Machine,
+//= but with variables modified to suit it''s intended use.
+//= 2.1 - Fixed an error where if one machine jammed on a menu item (say 3 for example),
+//= if another machine also jammed on the same menu item (3 in this case), the original
+//= machine to jam would be unjammed.
+//= - This fix only allows a machine to jam one item at a time. Will fix in the future.
+//= 2.2 - Added in/Renamed some variables to allow a single machine to block on several
+//= items simultaneously. This fix also allows the two-item drop to work with every
+//= item the machine is jammed on.
+//= 2.3 - Added in "Slam" feature, as well as admin ability to turn machine on and off.
+//= - Added admin menu. Allows GMs to put machines in/out of service, and to clear
+//= all jammed items.
+//= 2.4 - Made optimizations according to suggestions made by erKURITA. Script is now significantly shorter.
+//============================================================
p_track01,45,58,4 script Vending Machine#1 910,{
@@ -70,10 +68,6 @@ p_track01,45,58,4 script Vending Machine#1 910,{
-
-
-
-
//===============================================================================================
// Functions
//
@@ -173,7 +167,6 @@ function script F_Vend2 {
goto B_Buy;
-
B_Cancel:
mes "On second thoughts, you decide not to buy anything.";
close;
@@ -247,4 +240,4 @@ R_Item:
close;}
mes "The machine shakes, but nothing happens";
close;
-} \ No newline at end of file
+}