summaryrefslogtreecommitdiff
path: root/npc/custom
diff options
context:
space:
mode:
Diffstat (limited to 'npc/custom')
-rw-r--r--npc/custom/2-2shop.txt16
-rw-r--r--npc/custom/Lance/FR_HallOfFame.txt (renamed from npc/custom/Lance/FR_HallOfFame.c)21
-rw-r--r--npc/custom/Lance/FR_MailSystem.txt (renamed from npc/custom/Lance/FR_MailSystem.c)43
-rw-r--r--npc/custom/Lance/FR_WeatherController.c403
-rw-r--r--npc/custom/Lance/FR_WeatherController.txt415
-rw-r--r--npc/custom/MVP_arena/amvp_func.txt79
-rw-r--r--npc/custom/MVP_arena/arena_mvp.txt93
-rw-r--r--npc/custom/WoE_Setter.txt19
-rw-r--r--npc/custom/airplane.txt501
-rw-r--r--npc/custom/ayothaya.txt724
-rw-r--r--npc/custom/banks/bank.txt3
-rw-r--r--npc/custom/banks/kafra_bank.txt4
-rw-r--r--npc/custom/blackjack.txt380
-rw-r--r--npc/custom/breeder.txt78
-rw-r--r--npc/custom/card_remover.txt192
-rw-r--r--npc/custom/dye.txt301
-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
-rw-r--r--npc/custom/events/2006_dogs_year.txt9
-rw-r--r--npc/custom/events/draculax.txt5
-rw-r--r--npc/custom/events/hallow06.txt5
-rw-r--r--npc/custom/events/hyegun_event.txt24
-rw-r--r--npc/custom/events/kings_items.txt2
-rw-r--r--npc/custom/events/p_track/p_track_core.txt9
-rw-r--r--npc/custom/events/p_track/p_track_warpers.txt93
-rw-r--r--npc/custom/events/uneasy_cemetery.txt5
-rw-r--r--npc/custom/events/valentinesdayexp.txt3
-rw-r--r--npc/custom/events/xmas_rings_event.txt3
-rw-r--r--npc/custom/floating_rates.txt25
-rw-r--r--npc/custom/healers/heal.txt22
-rw-r--r--npc/custom/healers/heal_payment.txt104
-rw-r--r--npc/custom/jobs/jobmaster.txt299
-rw-r--r--npc/custom/jobs/reset.txt79
-rw-r--r--npc/custom/lottery.txt673
-rw-r--r--npc/custom/market.txt22
-rw-r--r--npc/custom/marriage.txt34
-rw-r--r--npc/custom/morroc_raceway.txt281
-rw-r--r--npc/custom/mvm.txt1052
-rw-r--r--npc/custom/penal_servitude.txt15
-rw-r--r--npc/custom/platinum_skills.txt37
-rw-r--r--npc/custom/quests/bandit_beard.txt2
-rw-r--r--npc/custom/quests/berzebub.txt105
-rw-r--r--npc/custom/quests/bongunsword.txt6
-rw-r--r--npc/custom/quests/bookofthedevil.txt13
-rw-r--r--npc/custom/quests/dead_branch.txt3
-rw-r--r--npc/custom/quests/elvenear.txt4
-rw-r--r--npc/custom/quests/event_6_new_hats.txt25
-rw-r--r--npc/custom/quests/fashion.txt6
-rw-r--r--npc/custom/quests/ironcane.txt4
-rw-r--r--npc/custom/quests/kaho_balmung.txt18
-rw-r--r--npc/custom/quests/kahohorn.txt96
-rw-r--r--npc/custom/quests/kiel_quest.txt4
-rw-r--r--npc/custom/quests/lvl99_quest.txt3
-rw-r--r--npc/custom/quests/magicalhatquest.txt4
-rw-r--r--npc/custom/quests/may_hats.txt302
-rw-r--r--npc/custom/quests/sphinx_mask.txt104
-rw-r--r--npc/custom/quests/sunglasses.txt10
-rw-r--r--npc/custom/quests/tha_statues.txt20
-rw-r--r--npc/custom/quests/thq/THQS_ChatingNPC.txt24
-rw-r--r--npc/custom/quests/thq/THQS_GuildNPC.txt25
-rw-r--r--npc/custom/quests/thq/THQS_QuestNPC.txt22
-rw-r--r--npc/custom/quests/thq/THQS_Quests.txt22
-rw-r--r--npc/custom/quests/thq/THQS_TTShop.txt27
-rw-r--r--npc/custom/quests/umbalian_language.txt13
-rw-r--r--npc/custom/quests/valhallen.txt2
-rw-r--r--npc/custom/rpsroulette.txt8
-rw-r--r--npc/custom/shifty_assassin.txt300
-rw-r--r--npc/custom/sign_your_items.txt158
-rw-r--r--npc/custom/stock_market.txt794
-rw-r--r--npc/custom/wandering_poets.txt712
-rw-r--r--npc/custom/warper.txt275
80 files changed, 5258 insertions, 5403 deletions
diff --git a/npc/custom/2-2shop.txt b/npc/custom/2-2shop.txt
index 905a1a826..c6880d2d6 100644
--- a/npc/custom/2-2shop.txt
+++ b/npc/custom/2-2shop.txt
@@ -1 +1,15 @@
-prontera,155,211,5 shop 2-2 Class Shop 86,1950:-1,1952:-1,1954:-1,1956:-1,1958:-1,1960:-1,1801:-1,1803:-1,1805:-1,1811:-1,1809:-1,1901:-1,1903:-1,1905:-1,1909:-1,1911:-1,1907:-1,1550:-1,1551:-1,1552:-1,1553:-1,1554:-1,1555:-1,1556:-1,1557:-1,1558:-1,2341:-1,2343:-1 \ No newline at end of file
+//===== RAthena Script =======================================
+//= 2-2 Class Shop
+//===== By: ==================================================
+//= DracoRPG
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= RAthena SVN
+//===== Description: =========================================
+//= Sells items useful for 2-2 Classes
+//===== Additional Comments: =================================
+//=
+//============================================================
+
+prontera,155,211,5 shop 2-2 Class Shop 86,1950:-1,1952:-1,1954:-1,1956:-1,1958:-1,1960:-1,1801:-1,1803:-1,1805:-1,1811:-1,1809:-1,1901:-1,1903:-1,1905:-1,1909:-1,1911:-1,1907:-1,1550:-1,1551:-1,1552:-1,1553:-1,1554:-1,1555:-1,1556:-1,1557:-1,1558:-1,2341:-1,2343:-1
diff --git a/npc/custom/Lance/FR_HallOfFame.c b/npc/custom/Lance/FR_HallOfFame.txt
index 18f8361dc..1c8b2c79f 100644
--- a/npc/custom/Lance/FR_HallOfFame.c
+++ b/npc/custom/Lance/FR_HallOfFame.txt
@@ -1,14 +1,12 @@
-//===== eAthena Script ======================================
+//===== rAthena Script =======================================
//= Hall of Fame
-//===========================================================
-//===== By ==================================================
-//= [Lance]
-//= Idea from emilylee78
-//===== Version =============================================
+//===== By: ==================================================
+//= Lance (idea from emilylee78)
+//===== Current Version: =====================================
//= 2.4 FINAL
-//===== Compatible With =====================================
-//= eAthena SVN and Freya SVN
-//===== Description =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= A Hall of Fame framework. Will update the list on every
//= login and logout in a safe manner.
//=
@@ -17,7 +15,7 @@
//= 0 - Display the current rankings.
//= 1 - Display last week's rankings.
//= Note : Remember to put a close; after calling it.
-//===== Comments ============================================
+//===== Additional Comments: =================================
//= 1.0 - Initial beta release [Lance]
//= 1.1 - Fixed typos. Optimized a teeny bit. [Lance]
//= 1.2 - Bug fixes. [Lance]
@@ -32,7 +30,7 @@
//= 2.2 - Minor updates and added Jury [Lance]
//= 2.3 - Utilizing eAthena's new scripting engine [Lance]
//= 2.4 - Minor bug fix with event script label (bugport:722) [Samura22]
-//===========================================================
+//============================================================
prontera,0,0,0 script OnPCLoginEvent -1,{
OnPCLoginEvent:
@@ -298,5 +296,4 @@ L_QUIT:
mes "[Jury]";
mes "Have a nice day then.";
close;
-
}
diff --git a/npc/custom/Lance/FR_MailSystem.c b/npc/custom/Lance/FR_MailSystem.txt
index 26f9d90b1..e6b931167 100644
--- a/npc/custom/Lance/FR_MailSystem.c
+++ b/npc/custom/Lance/FR_MailSystem.txt
@@ -1,35 +1,17 @@
-//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
-//( (c)2005 RagMods Modification Team presents )
-//( ______ __ __ )
-//( /\ _ \/\ \__/\ \ v 1.00.00 )
-//( __\ \ \_\ \ \ ,_\ \ \___ __ ___ __ )
-//( /'__`\ \ __ \ \ \/\ \ _ `\ /'__`\/' _ `\ /'__`\ )
-//( /\ __/\ \ \/\ \ \ \_\ \ \ \ \/\ __//\ \/\ \/\ \_\.\_ )
-//( \ \____\\ \_\ \_\ \__\\ \_\ \_\ \____\ \_\ \_\ \__/.\_\ )
-//( \/____/ \/_/\/_/\/__/ \/_/\/_/\/____/\/_/\/_/\/__/\/_/ )
-//( )
-//( -- [s] [c] [r] [i] [p] [t] [s] -- )
-//( _ _ _ _ _ _ _ _ _ _ _ _ _ )
-//( / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ )
-//( ( e | n | g | l | i | s | h ) ( A | t | h | e | n | a ) )
-//( \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ )
-//( )
-//( Advanced Fusion Maps (c) 2003-2005 The Fusion Project )
-//(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
-//===== eAthena Script ======================================
-//= Mail System (using built in mail function)
-//===========================================================
-//===== By ==================================================
-//= [Lance]
-//===== Version =============================================
+//===== rAthena Script =======================================
+//= Custom Mail System
+//===== By: ==================================================
+//= Lance
+//===== Current Version: =====================================
//= 1.0
-//===== Compatible With =====================================
-//= Any flavours of Athena SQL
-//===== Description =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN; prior to new Mail System
+//===== Description: =========================================
//= Allows players to send and receive mails without GM lvl.
-//===== Comments ============================================
+//===== Additional Comments: =================================
//= 1.0 - Initial release [Lance]
-//===========================================================
+//============================================================
+
prontera,143,171,3 script Messenger 738,1,1,{
mes "[Messenger Deviruchi]";
mes "Hiya! I'm the fastest messenger in Rune Midgard!";
@@ -106,7 +88,6 @@ DELMAIL:
atcommand strcharinfo(0) + ":@deletemail " + @msgnum;
mes "[Messenger Deviruchi]";
mes "All done!";
-
emotion e_no1;
menu "Delete another mail", DELMAIL, "Back", MENUSYS;
close;
@@ -115,4 +96,4 @@ OnTouch:
npctalk "Relax.. I'm no bad guy..";
emotion e_heh;
end;
-} \ No newline at end of file
+}
diff --git a/npc/custom/Lance/FR_WeatherController.c b/npc/custom/Lance/FR_WeatherController.c
deleted file mode 100644
index 506f6d41f..000000000
--- a/npc/custom/Lance/FR_WeatherController.c
+++ /dev/null
@@ -1,403 +0,0 @@
-- script dayNight -1,{
- end;
-
-OnInit:
- if(gettime(3) > 7 && gettime(3) < 19) {
- goto L_Day;
- } else {
- goto L_Night;
- }
-
-L_Day:
- day;
- callfunc "RcloudFlag";
- end;
-
-L_Night:
- night;
- callfunc "cloudFlag";
- end;
-
-OnClock1900:
- goto L_Night;
-
-OnClock0700:
- goto L_Day;
-}
-
-function script cloudFlag {
-setmapflag "alb2trea",mf_clouds;
-setmapflag "alberta",mf_clouds;
-setmapflag "aldebaran",mf_clouds;
-setmapflag "gef_fild00",mf_clouds;
-setmapflag "gef_fild01",mf_clouds;
-setmapflag "gef_fild02",mf_clouds;
-setmapflag "gef_fild03",mf_clouds;
-setmapflag "gef_fild04",mf_clouds;
-setmapflag "gef_fild05",mf_clouds;
-setmapflag "gef_fild06",mf_clouds;
-setmapflag "gef_fild07",mf_clouds;
-setmapflag "gef_fild08",mf_clouds;
-setmapflag "gef_fild09",mf_clouds;
-setmapflag "gef_fild10",mf_clouds;
-setmapflag "gef_fild11",mf_clouds;
-setmapflag "geffen",mf_clouds;
-setmapflag "gl_church",mf_clouds;
-setmapflag "gl_chyard",mf_clouds;
-setmapflag "gl_knt01",mf_clouds;
-setmapflag "gl_knt02",mf_clouds;
-setmapflag "gl_step",mf_clouds;
-setmapflag "glast_01",mf_clouds;
-//setmapflag "hunter_1-1",mf_clouds;
-//setmapflag "hunter_2-1",mf_clouds;
-//setmapflag "hunter_3-1",mf_clouds;
-setmapflag "izlude",mf_clouds;
-setmapflag "job_thief1",mf_clouds;
-//setmapflag "knight_1-1",mf_clouds;
-//setmapflag "knight_2-1",mf_clouds;
-//setmapflag "knight_3-1",mf_clouds;
-setmapflag "mjolnir_01",mf_clouds;
-setmapflag "mjolnir_02",mf_clouds;
-setmapflag "mjolnir_03",mf_clouds;
-setmapflag "mjolnir_04",mf_clouds;
-setmapflag "mjolnir_05",mf_clouds;
-setmapflag "mjolnir_06",mf_clouds;
-setmapflag "mjolnir_07",mf_clouds;
-setmapflag "mjolnir_08",mf_clouds;
-setmapflag "mjolnir_09",mf_clouds;
-setmapflag "mjolnir_10",mf_clouds;
-setmapflag "mjolnir_11",mf_clouds;
-setmapflag "mjolnir_12",mf_clouds;
-setmapflag "moc_fild01",mf_clouds;
-setmapflag "moc_fild02",mf_clouds;
-setmapflag "moc_fild03",mf_clouds;
-setmapflag "moc_fild04",mf_clouds;
-setmapflag "moc_fild05",mf_clouds;
-setmapflag "moc_fild06",mf_clouds;
-setmapflag "moc_fild07",mf_clouds;
-setmapflag "moc_fild08",mf_clouds;
-setmapflag "moc_fild09",mf_clouds;
-setmapflag "moc_fild10",mf_clouds;
-setmapflag "moc_fild11",mf_clouds;
-setmapflag "moc_fild12",mf_clouds;
-setmapflag "moc_fild13",mf_clouds;
-setmapflag "moc_fild14",mf_clouds;
-setmapflag "moc_fild15",mf_clouds;
-setmapflag "moc_fild16",mf_clouds;
-setmapflag "moc_fild17",mf_clouds;
-setmapflag "moc_fild18",mf_clouds;
-setmapflag "moc_fild19",mf_clouds;
-setmapflag "moc_pryd01",mf_clouds;
-setmapflag "moc_pryd02",mf_clouds;
-setmapflag "moc_pryd03",mf_clouds;
-setmapflag "moc_pryd04",mf_clouds;
-setmapflag "moc_pryd05",mf_clouds;
-setmapflag "moc_pryd06",mf_clouds;
-setmapflag "moc_prydb1",mf_clouds;
-setmapflag "moc_ruins",mf_clouds;
-setmapflag "morocc",mf_clouds;
-//setmapflag "new_1-1",mf_clouds;
-//setmapflag "new_1-2",mf_clouds;
-//setmapflag "new_1-3",mf_clouds;
-//setmapflag "new_1-4",mf_clouds;
-setmapflag "pay_arche",mf_clouds;
-setmapflag "pay_fild01",mf_clouds;
-setmapflag "pay_fild02",mf_clouds;
-setmapflag "pay_fild03",mf_clouds;
-setmapflag "pay_fild04",mf_clouds;
-setmapflag "pay_fild05",mf_clouds;
-setmapflag "pay_fild06",mf_clouds;
-setmapflag "pay_fild07",mf_clouds;
-setmapflag "pay_fild08",mf_clouds;
-setmapflag "pay_fild09",mf_clouds;
-setmapflag "pay_fild10",mf_clouds;
-setmapflag "pay_fild11",mf_clouds;
-//setmapflag "priest_1-1",mf_clouds;
-//setmapflag "priest_2-1",mf_clouds;
-//setmapflag "priest_3-1",mf_clouds;
-setmapflag "prontera",mf_clouds;
-setmapflag "prt_are01",mf_clouds;
-setmapflag "prt_fild00",mf_clouds;
-setmapflag "prt_fild01",mf_clouds;
-setmapflag "prt_fild02",mf_clouds;
-setmapflag "prt_fild03",mf_clouds;
-setmapflag "prt_fild04",mf_clouds;
-setmapflag "prt_fild05",mf_clouds;
-setmapflag "prt_fild06",mf_clouds;
-setmapflag "prt_fild07",mf_clouds;
-setmapflag "prt_fild08",mf_clouds;
-setmapflag "prt_fild09",mf_clouds;
-setmapflag "prt_fild10",mf_clouds;
-setmapflag "prt_fild11",mf_clouds;
-setmapflag "prt_maze01",mf_clouds;
-setmapflag "prt_maze02",mf_clouds;
-setmapflag "prt_maze03",mf_clouds;
-setmapflag "prt_monk",mf_clouds;
-setmapflag "cmd_fild01",mf_clouds;
-setmapflag "cmd_fild02",mf_clouds;
-setmapflag "cmd_fild03",mf_clouds;
-setmapflag "cmd_fild04",mf_clouds;
-setmapflag "cmd_fild05",mf_clouds;
-setmapflag "cmd_fild06",mf_clouds;
-setmapflag "cmd_fild07",mf_clouds;
-setmapflag "cmd_fild08",mf_clouds;
-setmapflag "cmd_fild09",mf_clouds;
-setmapflag "cmd_in01",mf_clouds;
-setmapflag "cmd_in02",mf_clouds;
-setmapflag "gef_fild12",mf_clouds;
-setmapflag "gef_fild13",mf_clouds;
-setmapflag "gef_fild14",mf_clouds;
-setmapflag "alde_gld",mf_clouds;
-setmapflag "pay_gld",mf_clouds;
-setmapflag "prt_gld",mf_clouds;
-setmapflag "alde_alche",mf_clouds;
-setmapflag "yuno",mf_clouds;
-setmapflag "yuno_fild01",mf_clouds;
-setmapflag "yuno_fild02",mf_clouds;
-setmapflag "yuno_fild03",mf_clouds;
-setmapflag "yuno_fild04",mf_clouds;
-setmapflag "ama_fild01",mf_clouds;
-setmapflag "ama_test",mf_clouds;
-setmapflag "amatsu",mf_clouds;
-setmapflag "gon_fild01",mf_clouds;
-setmapflag "gon_test",mf_clouds;
-setmapflag "gonryun",mf_clouds;
-setmapflag "umbala",mf_clouds;
-setmapflag "um_fild01",mf_clouds;
-setmapflag "um_fild02",mf_clouds;
-setmapflag "um_fild03",mf_clouds;
-setmapflag "um_fild04",mf_clouds;
-setmapflag "niflheim",mf_clouds;
-setmapflag "nif_fild01",mf_clouds;
-setmapflag "nif_fild02",mf_clouds;
-setmapflag "nif_in",mf_clouds;
-setmapflag "yggdrasil01",mf_clouds;
-setmapflag "valkyrie",mf_clouds;
-setmapflag "lou_fild01",mf_clouds;
-setmapflag "louyang",mf_clouds;
-setmapflag "nguild_gef",mf_clouds;
-setmapflag "nguild_prt",mf_clouds;
-setmapflag "nguild_pay",mf_clouds;
-setmapflag "nguild_alde",mf_clouds;
-setmapflag "jawaii",mf_clouds;
-setmapflag "jawaii_in",mf_clouds;
-setmapflag "gefenia01",mf_clouds;
-setmapflag "gefenia02",mf_clouds;
-setmapflag "gefenia03",mf_clouds;
-setmapflag "gefenia04",mf_clouds;
-setmapflag "payon",mf_clouds;
-setmapflag "ayothaya",mf_clouds;
-setmapflag "ayo_in01",mf_clouds;
-setmapflag "ayo_in02",mf_clouds;
-setmapflag "ayo_fild01",mf_clouds;
-setmapflag "ayo_fild02",mf_clouds;
-setmapflag "que_god01",mf_clouds;
-setmapflag "que_god02",mf_clouds;
-setmapflag "yuno_fild05",mf_clouds;
-setmapflag "yuno_fild07",mf_clouds;
-setmapflag "yuno_fild08",mf_clouds;
-setmapflag "yuno_fild09",mf_clouds;
-setmapflag "yuno_fild11",mf_clouds;
-setmapflag "yuno_fild12",mf_clouds;
-setmapflag "alde_tt02",mf_clouds;
-setmapflag "einbech",mf_clouds;
-setmapflag "einbroch",mf_clouds;
-setmapflag "ein_fild06",mf_clouds;
-setmapflag "ein_fild07",mf_clouds;
-setmapflag "ein_fild08",mf_clouds;
-setmapflag "ein_fild09",mf_clouds;
-setmapflag "ein_fild10",mf_clouds;
-setmapflag "que_sign01",mf_clouds;
-setmapflag "ein_fild03",mf_clouds;
-setmapflag "ein_fild04",mf_clouds;
-setmapflag "lhz_fild02",mf_clouds;
-setmapflag "lhz_fild03",mf_clouds;
-return;
-}
-
-function script RcloudFlag {
-removemapflag "alb2trea",mf_clouds;
-removemapflag "alberta",mf_clouds;
-removemapflag "aldebaran",mf_clouds;
-removemapflag "gef_fild00",mf_clouds;
-removemapflag "gef_fild01",mf_clouds;
-removemapflag "gef_fild02",mf_clouds;
-removemapflag "gef_fild03",mf_clouds;
-removemapflag "gef_fild04",mf_clouds;
-removemapflag "gef_fild05",mf_clouds;
-removemapflag "gef_fild06",mf_clouds;
-removemapflag "gef_fild07",mf_clouds;
-removemapflag "gef_fild08",mf_clouds;
-removemapflag "gef_fild09",mf_clouds;
-removemapflag "gef_fild10",mf_clouds;
-removemapflag "gef_fild11",mf_clouds;
-removemapflag "geffen",mf_clouds;
-removemapflag "gl_church",mf_clouds;
-removemapflag "gl_chyard",mf_clouds;
-removemapflag "gl_knt01",mf_clouds;
-removemapflag "gl_knt02",mf_clouds;
-removemapflag "gl_step",mf_clouds;
-removemapflag "glast_01",mf_clouds;
-removemapflag "hunter_1-1",mf_clouds;
-removemapflag "hunter_2-1",mf_clouds;
-removemapflag "hunter_3-1",mf_clouds;
-removemapflag "izlude",mf_clouds;
-removemapflag "mjolnir_01",mf_clouds;
-removemapflag "mjolnir_02",mf_clouds;
-removemapflag "mjolnir_03",mf_clouds;
-removemapflag "mjolnir_04",mf_clouds;
-removemapflag "mjolnir_05",mf_clouds;
-removemapflag "mjolnir_06",mf_clouds;
-removemapflag "mjolnir_07",mf_clouds;
-removemapflag "mjolnir_08",mf_clouds;
-removemapflag "mjolnir_09",mf_clouds;
-removemapflag "mjolnir_10",mf_clouds;
-removemapflag "mjolnir_11",mf_clouds;
-removemapflag "mjolnir_12",mf_clouds;
-removemapflag "moc_fild01",mf_clouds;
-removemapflag "moc_fild02",mf_clouds;
-removemapflag "moc_fild03",mf_clouds;
-removemapflag "moc_fild04",mf_clouds;
-removemapflag "moc_fild05",mf_clouds;
-removemapflag "moc_fild06",mf_clouds;
-removemapflag "moc_fild07",mf_clouds;
-removemapflag "moc_fild08",mf_clouds;
-removemapflag "moc_fild09",mf_clouds;
-removemapflag "moc_fild10",mf_clouds;
-removemapflag "moc_fild11",mf_clouds;
-removemapflag "moc_fild12",mf_clouds;
-removemapflag "moc_fild13",mf_clouds;
-removemapflag "moc_fild14",mf_clouds;
-removemapflag "moc_fild15",mf_clouds;
-removemapflag "moc_fild16",mf_clouds;
-removemapflag "moc_fild17",mf_clouds;
-removemapflag "moc_fild18",mf_clouds;
-removemapflag "moc_fild19",mf_clouds;
-removemapflag "moc_pryd01",mf_clouds;
-removemapflag "moc_pryd02",mf_clouds;
-removemapflag "moc_pryd03",mf_clouds;
-removemapflag "moc_pryd04",mf_clouds;
-removemapflag "moc_pryd05",mf_clouds;
-removemapflag "moc_pryd06",mf_clouds;
-removemapflag "moc_prydb1",mf_clouds;
-removemapflag "moc_ruins",mf_clouds;
-removemapflag "morocc",mf_clouds;
-removemapflag "new_1-1",mf_clouds;
-removemapflag "new_1-2",mf_clouds;
-removemapflag "new_1-3",mf_clouds;
-removemapflag "new_1-4",mf_clouds;
-removemapflag "pay_arche",mf_clouds;
-removemapflag "pay_fild01",mf_clouds;
-removemapflag "pay_fild02",mf_clouds;
-removemapflag "pay_fild03",mf_clouds;
-removemapflag "pay_fild04",mf_clouds;
-removemapflag "pay_fild05",mf_clouds;
-removemapflag "pay_fild06",mf_clouds;
-removemapflag "pay_fild07",mf_clouds;
-removemapflag "pay_fild08",mf_clouds;
-removemapflag "pay_fild09",mf_clouds;
-removemapflag "pay_fild10",mf_clouds;
-removemapflag "pay_fild11",mf_clouds;
-removemapflag "priest_1-1",mf_clouds;
-removemapflag "priest_2-1",mf_clouds;
-removemapflag "priest_3-1",mf_clouds;
-removemapflag "prontera",mf_clouds;
-removemapflag "prt_are01",mf_clouds;
-removemapflag "prt_fild00",mf_clouds;
-removemapflag "prt_fild01",mf_clouds;
-removemapflag "prt_fild02",mf_clouds;
-removemapflag "prt_fild03",mf_clouds;
-removemapflag "prt_fild04",mf_clouds;
-removemapflag "prt_fild05",mf_clouds;
-removemapflag "prt_fild06",mf_clouds;
-removemapflag "prt_fild07",mf_clouds;
-removemapflag "prt_fild08",mf_clouds;
-removemapflag "prt_fild09",mf_clouds;
-removemapflag "prt_fild10",mf_clouds;
-removemapflag "prt_fild11",mf_clouds;
-removemapflag "prt_maze01",mf_clouds;
-removemapflag "prt_maze02",mf_clouds;
-removemapflag "prt_maze03",mf_clouds;
-removemapflag "prt_monk",mf_clouds;
-removemapflag "cmd_fild01",mf_clouds;
-removemapflag "cmd_fild02",mf_clouds;
-removemapflag "cmd_fild03",mf_clouds;
-removemapflag "cmd_fild04",mf_clouds;
-removemapflag "cmd_fild05",mf_clouds;
-removemapflag "cmd_fild06",mf_clouds;
-removemapflag "cmd_fild07",mf_clouds;
-removemapflag "cmd_fild08",mf_clouds;
-removemapflag "cmd_fild09",mf_clouds;
-removemapflag "gef_fild12",mf_clouds;
-removemapflag "gef_fild13",mf_clouds;
-removemapflag "gef_fild14",mf_clouds;
-removemapflag "alde_gld",mf_clouds;
-removemapflag "pay_gld",mf_clouds;
-removemapflag "prt_gld",mf_clouds;
-removemapflag "alde_alche",mf_clouds;
-removemapflag "yuno",mf_clouds;
-removemapflag "yuno_fild01",mf_clouds;
-removemapflag "yuno_fild02",mf_clouds;
-removemapflag "yuno_fild03",mf_clouds;
-removemapflag "yuno_fild04",mf_clouds;
-removemapflag "ama_fild01",mf_clouds;
-removemapflag "ama_test",mf_clouds;
-removemapflag "amatsu",mf_clouds;
-removemapflag "gon_fild01",mf_clouds;
-removemapflag "gon_in",mf_clouds;
-removemapflag "gon_test",mf_clouds;
-removemapflag "gonryun",mf_clouds;
-removemapflag "umbala",mf_clouds;
-removemapflag "um_fild01",mf_clouds;
-removemapflag "um_fild02",mf_clouds;
-removemapflag "um_fild03",mf_clouds;
-removemapflag "um_fild04",mf_clouds;
-removemapflag "niflheim",mf_clouds;
-removemapflag "nif_fild01",mf_clouds;
-removemapflag "nif_fild02",mf_clouds;
-removemapflag "nif_in",mf_clouds;
-removemapflag "yggdrasil01",mf_clouds;
-removemapflag "valkyrie",mf_clouds;
-removemapflag "lou_fild01",mf_clouds;
-removemapflag "louyang",mf_clouds;
-removemapflag "nguild_gef",mf_clouds;
-removemapflag "nguild_prt",mf_clouds;
-removemapflag "nguild_pay",mf_clouds;
-removemapflag "nguild_alde",mf_clouds;
-removemapflag "jawaii",mf_clouds;
-removemapflag "jawaii_in",mf_clouds;
-removemapflag "gefenia01",mf_clouds;
-removemapflag "gefenia02",mf_clouds;
-removemapflag "gefenia03",mf_clouds;
-removemapflag "gefenia04",mf_clouds;
-removemapflag "payon",mf_clouds;
-removemapflag "ayothaya",mf_clouds;
-removemapflag "ayo_in01",mf_clouds;
-removemapflag "ayo_in02",mf_clouds;
-removemapflag "ayo_fild01",mf_clouds;
-removemapflag "ayo_fild02",mf_clouds;
-removemapflag "que_god01",mf_clouds;
-removemapflag "que_god02",mf_clouds;
-removemapflag "yuno_fild05",mf_clouds;
-removemapflag "yuno_fild07",mf_clouds;
-removemapflag "yuno_fild08",mf_clouds;
-removemapflag "yuno_fild09",mf_clouds;
-removemapflag "yuno_fild11",mf_clouds;
-removemapflag "yuno_fild12",mf_clouds;
-removemapflag "alde_tt02",mf_clouds;
-removemapflag "einbech",mf_clouds;
-removemapflag "einbroch",mf_clouds;
-removemapflag "ein_fild06",mf_clouds;
-removemapflag "ein_fild07",mf_clouds;
-removemapflag "ein_fild08",mf_clouds;
-removemapflag "ein_fild09",mf_clouds;
-removemapflag "ein_fild10",mf_clouds;
-removemapflag "que_sign01",mf_clouds;
-removemapflag "ein_fild03",mf_clouds;
-removemapflag "ein_fild04",mf_clouds;
-removemapflag "lhz_fild02",mf_clouds;
-removemapflag "lhz_fild03",mf_clouds;
-return;
-}
-
-
diff --git a/npc/custom/Lance/FR_WeatherController.txt b/npc/custom/Lance/FR_WeatherController.txt
new file mode 100644
index 000000000..b71a3062b
--- /dev/null
+++ b/npc/custom/Lance/FR_WeatherController.txt
@@ -0,0 +1,415 @@
+//===== rAthena Script =======================================
+//= Weather Controller
+//===== By: ==================================================
+//= Lance
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= controls the weather
+//===== Additional Comments: =================================
+//=
+//============================================================
+
+- script dayNight -1,{
+ end;
+
+OnInit:
+ if(gettime(3) > 7 && gettime(3) < 19) {
+ goto L_Day;
+ } else {
+ goto L_Night;
+ }
+
+L_Day:
+ day;
+ callfunc "RcloudFlag";
+ end;
+
+L_Night:
+ night;
+ callfunc "cloudFlag";
+ end;
+
+OnClock1900:
+ goto L_Night;
+
+OnClock0700:
+ goto L_Day;
+}
+
+function script cloudFlag {
+ setmapflag "alb2trea",mf_clouds;
+ setmapflag "alberta",mf_clouds;
+ setmapflag "aldebaran",mf_clouds;
+ setmapflag "gef_fild00",mf_clouds;
+ setmapflag "gef_fild01",mf_clouds;
+ setmapflag "gef_fild02",mf_clouds;
+ setmapflag "gef_fild03",mf_clouds;
+ setmapflag "gef_fild04",mf_clouds;
+ setmapflag "gef_fild05",mf_clouds;
+ setmapflag "gef_fild06",mf_clouds;
+ setmapflag "gef_fild07",mf_clouds;
+ setmapflag "gef_fild08",mf_clouds;
+ setmapflag "gef_fild09",mf_clouds;
+ setmapflag "gef_fild10",mf_clouds;
+ setmapflag "gef_fild11",mf_clouds;
+ setmapflag "geffen",mf_clouds;
+ setmapflag "gl_church",mf_clouds;
+ setmapflag "gl_chyard",mf_clouds;
+ setmapflag "gl_knt01",mf_clouds;
+ setmapflag "gl_knt02",mf_clouds;
+ setmapflag "gl_step",mf_clouds;
+ setmapflag "glast_01",mf_clouds;
+ //setmapflag "hunter_1-1",mf_clouds;
+ //setmapflag "hunter_2-1",mf_clouds;
+ //setmapflag "hunter_3-1",mf_clouds;
+ setmapflag "izlude",mf_clouds;
+ setmapflag "job_thief1",mf_clouds;
+ //setmapflag "knight_1-1",mf_clouds;
+ //setmapflag "knight_2-1",mf_clouds;
+ //setmapflag "knight_3-1",mf_clouds;
+ setmapflag "mjolnir_01",mf_clouds;
+ setmapflag "mjolnir_02",mf_clouds;
+ setmapflag "mjolnir_03",mf_clouds;
+ setmapflag "mjolnir_04",mf_clouds;
+ setmapflag "mjolnir_05",mf_clouds;
+ setmapflag "mjolnir_06",mf_clouds;
+ setmapflag "mjolnir_07",mf_clouds;
+ setmapflag "mjolnir_08",mf_clouds;
+ setmapflag "mjolnir_09",mf_clouds;
+ setmapflag "mjolnir_10",mf_clouds;
+ setmapflag "mjolnir_11",mf_clouds;
+ setmapflag "mjolnir_12",mf_clouds;
+ setmapflag "moc_fild01",mf_clouds;
+ setmapflag "moc_fild02",mf_clouds;
+ setmapflag "moc_fild03",mf_clouds;
+ setmapflag "moc_fild04",mf_clouds;
+ setmapflag "moc_fild05",mf_clouds;
+ setmapflag "moc_fild06",mf_clouds;
+ setmapflag "moc_fild07",mf_clouds;
+ setmapflag "moc_fild08",mf_clouds;
+ setmapflag "moc_fild09",mf_clouds;
+ setmapflag "moc_fild10",mf_clouds;
+ setmapflag "moc_fild11",mf_clouds;
+ setmapflag "moc_fild12",mf_clouds;
+ setmapflag "moc_fild13",mf_clouds;
+ setmapflag "moc_fild14",mf_clouds;
+ setmapflag "moc_fild15",mf_clouds;
+ setmapflag "moc_fild16",mf_clouds;
+ setmapflag "moc_fild17",mf_clouds;
+ setmapflag "moc_fild18",mf_clouds;
+ setmapflag "moc_fild19",mf_clouds;
+ setmapflag "moc_pryd01",mf_clouds;
+ setmapflag "moc_pryd02",mf_clouds;
+ setmapflag "moc_pryd03",mf_clouds;
+ setmapflag "moc_pryd04",mf_clouds;
+ setmapflag "moc_pryd05",mf_clouds;
+ setmapflag "moc_pryd06",mf_clouds;
+ setmapflag "moc_prydb1",mf_clouds;
+ setmapflag "moc_ruins",mf_clouds;
+ setmapflag "morocc",mf_clouds;
+ //setmapflag "new_1-1",mf_clouds;
+ //setmapflag "new_1-2",mf_clouds;
+ //setmapflag "new_1-3",mf_clouds;
+ //setmapflag "new_1-4",mf_clouds;
+ setmapflag "pay_arche",mf_clouds;
+ setmapflag "pay_fild01",mf_clouds;
+ setmapflag "pay_fild02",mf_clouds;
+ setmapflag "pay_fild03",mf_clouds;
+ setmapflag "pay_fild04",mf_clouds;
+ setmapflag "pay_fild05",mf_clouds;
+ setmapflag "pay_fild06",mf_clouds;
+ setmapflag "pay_fild07",mf_clouds;
+ setmapflag "pay_fild08",mf_clouds;
+ setmapflag "pay_fild09",mf_clouds;
+ setmapflag "pay_fild10",mf_clouds;
+ setmapflag "pay_fild11",mf_clouds;
+ //setmapflag "priest_1-1",mf_clouds;
+ //setmapflag "priest_2-1",mf_clouds;
+ //setmapflag "priest_3-1",mf_clouds;
+ setmapflag "prontera",mf_clouds;
+ setmapflag "prt_are01",mf_clouds;
+ setmapflag "prt_fild00",mf_clouds;
+ setmapflag "prt_fild01",mf_clouds;
+ setmapflag "prt_fild02",mf_clouds;
+ setmapflag "prt_fild03",mf_clouds;
+ setmapflag "prt_fild04",mf_clouds;
+ setmapflag "prt_fild05",mf_clouds;
+ setmapflag "prt_fild06",mf_clouds;
+ setmapflag "prt_fild07",mf_clouds;
+ setmapflag "prt_fild08",mf_clouds;
+ setmapflag "prt_fild09",mf_clouds;
+ setmapflag "prt_fild10",mf_clouds;
+ setmapflag "prt_fild11",mf_clouds;
+ setmapflag "prt_maze01",mf_clouds;
+ setmapflag "prt_maze02",mf_clouds;
+ setmapflag "prt_maze03",mf_clouds;
+ setmapflag "prt_monk",mf_clouds;
+ setmapflag "cmd_fild01",mf_clouds;
+ setmapflag "cmd_fild02",mf_clouds;
+ setmapflag "cmd_fild03",mf_clouds;
+ setmapflag "cmd_fild04",mf_clouds;
+ setmapflag "cmd_fild05",mf_clouds;
+ setmapflag "cmd_fild06",mf_clouds;
+ setmapflag "cmd_fild07",mf_clouds;
+ setmapflag "cmd_fild08",mf_clouds;
+ setmapflag "cmd_fild09",mf_clouds;
+ setmapflag "cmd_in01",mf_clouds;
+ setmapflag "cmd_in02",mf_clouds;
+ setmapflag "gef_fild12",mf_clouds;
+ setmapflag "gef_fild13",mf_clouds;
+ setmapflag "gef_fild14",mf_clouds;
+ setmapflag "alde_gld",mf_clouds;
+ setmapflag "pay_gld",mf_clouds;
+ setmapflag "prt_gld",mf_clouds;
+ setmapflag "alde_alche",mf_clouds;
+ setmapflag "yuno",mf_clouds;
+ setmapflag "yuno_fild01",mf_clouds;
+ setmapflag "yuno_fild02",mf_clouds;
+ setmapflag "yuno_fild03",mf_clouds;
+ setmapflag "yuno_fild04",mf_clouds;
+ setmapflag "ama_fild01",mf_clouds;
+ setmapflag "ama_test",mf_clouds;
+ setmapflag "amatsu",mf_clouds;
+ setmapflag "gon_fild01",mf_clouds;
+ setmapflag "gon_test",mf_clouds;
+ setmapflag "gonryun",mf_clouds;
+ setmapflag "umbala",mf_clouds;
+ setmapflag "um_fild01",mf_clouds;
+ setmapflag "um_fild02",mf_clouds;
+ setmapflag "um_fild03",mf_clouds;
+ setmapflag "um_fild04",mf_clouds;
+ setmapflag "niflheim",mf_clouds;
+ setmapflag "nif_fild01",mf_clouds;
+ setmapflag "nif_fild02",mf_clouds;
+ setmapflag "nif_in",mf_clouds;
+ setmapflag "yggdrasil01",mf_clouds;
+ setmapflag "valkyrie",mf_clouds;
+ setmapflag "lou_fild01",mf_clouds;
+ setmapflag "louyang",mf_clouds;
+ setmapflag "nguild_gef",mf_clouds;
+ setmapflag "nguild_prt",mf_clouds;
+ setmapflag "nguild_pay",mf_clouds;
+ setmapflag "nguild_alde",mf_clouds;
+ setmapflag "jawaii",mf_clouds;
+ setmapflag "jawaii_in",mf_clouds;
+ setmapflag "gefenia01",mf_clouds;
+ setmapflag "gefenia02",mf_clouds;
+ setmapflag "gefenia03",mf_clouds;
+ setmapflag "gefenia04",mf_clouds;
+ setmapflag "payon",mf_clouds;
+ setmapflag "ayothaya",mf_clouds;
+ setmapflag "ayo_in01",mf_clouds;
+ setmapflag "ayo_in02",mf_clouds;
+ setmapflag "ayo_fild01",mf_clouds;
+ setmapflag "ayo_fild02",mf_clouds;
+ setmapflag "que_god01",mf_clouds;
+ setmapflag "que_god02",mf_clouds;
+ setmapflag "yuno_fild05",mf_clouds;
+ setmapflag "yuno_fild07",mf_clouds;
+ setmapflag "yuno_fild08",mf_clouds;
+ setmapflag "yuno_fild09",mf_clouds;
+ setmapflag "yuno_fild11",mf_clouds;
+ setmapflag "yuno_fild12",mf_clouds;
+ setmapflag "alde_tt02",mf_clouds;
+ setmapflag "einbech",mf_clouds;
+ setmapflag "einbroch",mf_clouds;
+ setmapflag "ein_fild06",mf_clouds;
+ setmapflag "ein_fild07",mf_clouds;
+ setmapflag "ein_fild08",mf_clouds;
+ setmapflag "ein_fild09",mf_clouds;
+ setmapflag "ein_fild10",mf_clouds;
+ setmapflag "que_sign01",mf_clouds;
+ setmapflag "ein_fild03",mf_clouds;
+ setmapflag "ein_fild04",mf_clouds;
+ setmapflag "lhz_fild02",mf_clouds;
+ setmapflag "lhz_fild03",mf_clouds;
+ return;
+}
+
+function script RcloudFlag {
+ removemapflag "alb2trea",mf_clouds;
+ removemapflag "alberta",mf_clouds;
+ removemapflag "aldebaran",mf_clouds;
+ removemapflag "gef_fild00",mf_clouds;
+ removemapflag "gef_fild01",mf_clouds;
+ removemapflag "gef_fild02",mf_clouds;
+ removemapflag "gef_fild03",mf_clouds;
+ removemapflag "gef_fild04",mf_clouds;
+ removemapflag "gef_fild05",mf_clouds;
+ removemapflag "gef_fild06",mf_clouds;
+ removemapflag "gef_fild07",mf_clouds;
+ removemapflag "gef_fild08",mf_clouds;
+ removemapflag "gef_fild09",mf_clouds;
+ removemapflag "gef_fild10",mf_clouds;
+ removemapflag "gef_fild11",mf_clouds;
+ removemapflag "geffen",mf_clouds;
+ removemapflag "gl_church",mf_clouds;
+ removemapflag "gl_chyard",mf_clouds;
+ removemapflag "gl_knt01",mf_clouds;
+ removemapflag "gl_knt02",mf_clouds;
+ removemapflag "gl_step",mf_clouds;
+ removemapflag "glast_01",mf_clouds;
+ removemapflag "hunter_1-1",mf_clouds;
+ removemapflag "hunter_2-1",mf_clouds;
+ removemapflag "hunter_3-1",mf_clouds;
+ removemapflag "izlude",mf_clouds;
+ removemapflag "mjolnir_01",mf_clouds;
+ removemapflag "mjolnir_02",mf_clouds;
+ removemapflag "mjolnir_03",mf_clouds;
+ removemapflag "mjolnir_04",mf_clouds;
+ removemapflag "mjolnir_05",mf_clouds;
+ removemapflag "mjolnir_06",mf_clouds;
+ removemapflag "mjolnir_07",mf_clouds;
+ removemapflag "mjolnir_08",mf_clouds;
+ removemapflag "mjolnir_09",mf_clouds;
+ removemapflag "mjolnir_10",mf_clouds;
+ removemapflag "mjolnir_11",mf_clouds;
+ removemapflag "mjolnir_12",mf_clouds;
+ removemapflag "moc_fild01",mf_clouds;
+ removemapflag "moc_fild02",mf_clouds;
+ removemapflag "moc_fild03",mf_clouds;
+ removemapflag "moc_fild04",mf_clouds;
+ removemapflag "moc_fild05",mf_clouds;
+ removemapflag "moc_fild06",mf_clouds;
+ removemapflag "moc_fild07",mf_clouds;
+ removemapflag "moc_fild08",mf_clouds;
+ removemapflag "moc_fild09",mf_clouds;
+ removemapflag "moc_fild10",mf_clouds;
+ removemapflag "moc_fild11",mf_clouds;
+ removemapflag "moc_fild12",mf_clouds;
+ removemapflag "moc_fild13",mf_clouds;
+ removemapflag "moc_fild14",mf_clouds;
+ removemapflag "moc_fild15",mf_clouds;
+ removemapflag "moc_fild16",mf_clouds;
+ removemapflag "moc_fild17",mf_clouds;
+ removemapflag "moc_fild18",mf_clouds;
+ removemapflag "moc_fild19",mf_clouds;
+ removemapflag "moc_pryd01",mf_clouds;
+ removemapflag "moc_pryd02",mf_clouds;
+ removemapflag "moc_pryd03",mf_clouds;
+ removemapflag "moc_pryd04",mf_clouds;
+ removemapflag "moc_pryd05",mf_clouds;
+ removemapflag "moc_pryd06",mf_clouds;
+ removemapflag "moc_prydb1",mf_clouds;
+ removemapflag "moc_ruins",mf_clouds;
+ removemapflag "morocc",mf_clouds;
+ removemapflag "new_1-1",mf_clouds;
+ removemapflag "new_1-2",mf_clouds;
+ removemapflag "new_1-3",mf_clouds;
+ removemapflag "new_1-4",mf_clouds;
+ removemapflag "pay_arche",mf_clouds;
+ removemapflag "pay_fild01",mf_clouds;
+ removemapflag "pay_fild02",mf_clouds;
+ removemapflag "pay_fild03",mf_clouds;
+ removemapflag "pay_fild04",mf_clouds;
+ removemapflag "pay_fild05",mf_clouds;
+ removemapflag "pay_fild06",mf_clouds;
+ removemapflag "pay_fild07",mf_clouds;
+ removemapflag "pay_fild08",mf_clouds;
+ removemapflag "pay_fild09",mf_clouds;
+ removemapflag "pay_fild10",mf_clouds;
+ removemapflag "pay_fild11",mf_clouds;
+ removemapflag "priest_1-1",mf_clouds;
+ removemapflag "priest_2-1",mf_clouds;
+ removemapflag "priest_3-1",mf_clouds;
+ removemapflag "prontera",mf_clouds;
+ removemapflag "prt_are01",mf_clouds;
+ removemapflag "prt_fild00",mf_clouds;
+ removemapflag "prt_fild01",mf_clouds;
+ removemapflag "prt_fild02",mf_clouds;
+ removemapflag "prt_fild03",mf_clouds;
+ removemapflag "prt_fild04",mf_clouds;
+ removemapflag "prt_fild05",mf_clouds;
+ removemapflag "prt_fild06",mf_clouds;
+ removemapflag "prt_fild07",mf_clouds;
+ removemapflag "prt_fild08",mf_clouds;
+ removemapflag "prt_fild09",mf_clouds;
+ removemapflag "prt_fild10",mf_clouds;
+ removemapflag "prt_fild11",mf_clouds;
+ removemapflag "prt_maze01",mf_clouds;
+ removemapflag "prt_maze02",mf_clouds;
+ removemapflag "prt_maze03",mf_clouds;
+ removemapflag "prt_monk",mf_clouds;
+ removemapflag "cmd_fild01",mf_clouds;
+ removemapflag "cmd_fild02",mf_clouds;
+ removemapflag "cmd_fild03",mf_clouds;
+ removemapflag "cmd_fild04",mf_clouds;
+ removemapflag "cmd_fild05",mf_clouds;
+ removemapflag "cmd_fild06",mf_clouds;
+ removemapflag "cmd_fild07",mf_clouds;
+ removemapflag "cmd_fild08",mf_clouds;
+ removemapflag "cmd_fild09",mf_clouds;
+ removemapflag "gef_fild12",mf_clouds;
+ removemapflag "gef_fild13",mf_clouds;
+ removemapflag "gef_fild14",mf_clouds;
+ removemapflag "alde_gld",mf_clouds;
+ removemapflag "pay_gld",mf_clouds;
+ removemapflag "prt_gld",mf_clouds;
+ removemapflag "alde_alche",mf_clouds;
+ removemapflag "yuno",mf_clouds;
+ removemapflag "yuno_fild01",mf_clouds;
+ removemapflag "yuno_fild02",mf_clouds;
+ removemapflag "yuno_fild03",mf_clouds;
+ removemapflag "yuno_fild04",mf_clouds;
+ removemapflag "ama_fild01",mf_clouds;
+ removemapflag "ama_test",mf_clouds;
+ removemapflag "amatsu",mf_clouds;
+ removemapflag "gon_fild01",mf_clouds;
+ removemapflag "gon_in",mf_clouds;
+ removemapflag "gon_test",mf_clouds;
+ removemapflag "gonryun",mf_clouds;
+ removemapflag "umbala",mf_clouds;
+ removemapflag "um_fild01",mf_clouds;
+ removemapflag "um_fild02",mf_clouds;
+ removemapflag "um_fild03",mf_clouds;
+ removemapflag "um_fild04",mf_clouds;
+ removemapflag "niflheim",mf_clouds;
+ removemapflag "nif_fild01",mf_clouds;
+ removemapflag "nif_fild02",mf_clouds;
+ removemapflag "nif_in",mf_clouds;
+ removemapflag "yggdrasil01",mf_clouds;
+ removemapflag "valkyrie",mf_clouds;
+ removemapflag "lou_fild01",mf_clouds;
+ removemapflag "louyang",mf_clouds;
+ removemapflag "nguild_gef",mf_clouds;
+ removemapflag "nguild_prt",mf_clouds;
+ removemapflag "nguild_pay",mf_clouds;
+ removemapflag "nguild_alde",mf_clouds;
+ removemapflag "jawaii",mf_clouds;
+ removemapflag "jawaii_in",mf_clouds;
+ removemapflag "gefenia01",mf_clouds;
+ removemapflag "gefenia02",mf_clouds;
+ removemapflag "gefenia03",mf_clouds;
+ removemapflag "gefenia04",mf_clouds;
+ removemapflag "payon",mf_clouds;
+ removemapflag "ayothaya",mf_clouds;
+ removemapflag "ayo_in01",mf_clouds;
+ removemapflag "ayo_in02",mf_clouds;
+ removemapflag "ayo_fild01",mf_clouds;
+ removemapflag "ayo_fild02",mf_clouds;
+ removemapflag "que_god01",mf_clouds;
+ removemapflag "que_god02",mf_clouds;
+ removemapflag "yuno_fild05",mf_clouds;
+ removemapflag "yuno_fild07",mf_clouds;
+ removemapflag "yuno_fild08",mf_clouds;
+ removemapflag "yuno_fild09",mf_clouds;
+ removemapflag "yuno_fild11",mf_clouds;
+ removemapflag "yuno_fild12",mf_clouds;
+ removemapflag "alde_tt02",mf_clouds;
+ removemapflag "einbech",mf_clouds;
+ removemapflag "einbroch",mf_clouds;
+ removemapflag "ein_fild06",mf_clouds;
+ removemapflag "ein_fild07",mf_clouds;
+ removemapflag "ein_fild08",mf_clouds;
+ removemapflag "ein_fild09",mf_clouds;
+ removemapflag "ein_fild10",mf_clouds;
+ removemapflag "que_sign01",mf_clouds;
+ removemapflag "ein_fild03",mf_clouds;
+ removemapflag "ein_fild04",mf_clouds;
+ removemapflag "lhz_fild02",mf_clouds;
+ removemapflag "lhz_fild03",mf_clouds;
+ return;
+}
diff --git a/npc/custom/MVP_arena/amvp_func.txt b/npc/custom/MVP_arena/amvp_func.txt
index 02e45e45a..0e49803d6 100644
--- a/npc/custom/MVP_arena/amvp_func.txt
+++ b/npc/custom/MVP_arena/amvp_func.txt
@@ -1,69 +1,62 @@
-// ---- MVP ARENA!!!!!! By Darkchild with 16 diff MVP's inside
-// -- Optimised The MVP arena!!!! By massdriller
-// - NPC in prontera
-
-// --- Optimising Functions
+//===== rAthena Script =======================================
+//= MVP Arena functions
+//===== By: ==================================================
+//= Darkchild
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= 16 diff MVP's inside
+//===== Additional Comments: =================================
+//= 1.0 first version of script
+//= 1.1 Optimised The MVP arena [massdriller]
+//============================================================
function script Ramvp_1 {
-
mes "[ ^0065DFAlpha MVP^000000 ]";
- mes "Here you go!";
- return;
+ mes "Here you go!";
+ return;
}
function script Ramvp_2 {
-
mes "[ ^0065DFBeta MVP^000000 ]";
- mes "Here you go!";
- return;
+ mes "Here you go!";
+ return;
}
function script Ramvp_3 {
-
mes "[ ^0065DFTheta MVP^000000 ]";
- mes "Here you go!";
- return;
-
+ mes "Here you go!";
+ return;
}
-
function script Ramvp_4 {
-
mes "[ ^0065DFEpsilon MVP^000000 ]";
- mes "Here you go!";
- return;
-
+ mes "Here you go!";
+ return;
}
function script Ramvp_M {
-
mes "How do you need help?.";
menu "Harder Monsters",L_Next,"Heal Please",L_Heal,"Leave",L_Leave;
-
- L_Next:
- return;
-
- L_Heal:
- percentheal 100,100;
- close;
-
- L_Leave:
- warp "prontera",156,179;
- close;
-
+L_Next:
+ return;
+L_Heal:
+ percentheal 100,100;
+ close;
+L_Leave:
+ warp "prontera",156,179;
+ close;
}
function script Ramvp_M2 {
-
mes "How do you need help?.";
menu "Heal Please",L_Heal,"Leave",L_Leave;
-
- L_Heal:
- percentheal 100,100;
- close;
-
- L_Leave:
- warp "prontera",156,179;
- close;
-
+L_Heal:
+ percentheal 100,100;
+ close;
+L_Leave:
+ warp "prontera",156,179;
+ close;
}
diff --git a/npc/custom/MVP_arena/arena_mvp.txt b/npc/custom/MVP_arena/arena_mvp.txt
index 4f77e3387..adc8b7b29 100644
--- a/npc/custom/MVP_arena/arena_mvp.txt
+++ b/npc/custom/MVP_arena/arena_mvp.txt
@@ -1,26 +1,35 @@
-// ---- MVP ARENA!!!!!! By Darkchild with 16 diff MVP's inside
-// -- Optimised The MVP arena!!!! By massdriller
-// - NPC in prontera
-// - Removed Duplicates [Silent]
+//===== rAthena Script =======================================
+//= MVP Arena
+//===== By: ==================================================
+//= Darkchild
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= 16 diff MVP's inside
+//===== Additional Comments: =================================
+//= 1.0 first version of script
+//= 1.1 Optimised The MVP arena [massdriller]
+//= 1.2 - NPC in prontera [Silent]
+//= - Removed Duplicates
+//============================================================
prontera,154,197,3 script MVP Warper 768,{
-
mes "[ ^0065DFMVP Warper^000000 ]";
mes "Would you like to go to the MVP Arena ?...";
if (select("Yes!","No thanks.") == 2)
- close;
+ close;
close2;
warp "quiz_00",50,24;
end;
}
-
// --- Inside the Arena
-// --- NPC's That explains thigns
+// --- NPC's That explains things
quiz_00,49,31,4 script MVP Arena Guide 778,{
-
switch(select("Intro","I want to go back","Heal me please","Cancel"))
{
case 1:
@@ -37,19 +46,19 @@ quiz_00,49,31,4 script MVP Arena Guide 778,{
next;
mes "Good luck, Live long and Prosper!.";
close;
- break;
+ break;
case 2:
close2;
warp "prontera",156,179;
end;
- break;
+ break;
case 3:
percentheal 100,100;
close;
- break;
+ break;
case 4:
close;
- break;
+ break;
}
close;
}
@@ -59,7 +68,7 @@ quiz_00,56,31,4 script Alpha MVP 770,{
mes "[ ^0065DFAlpha MVP^000000 ]";
mes "I am the first Keeper, are you ready?.";
if (select("Yes!","Urrr No.") == 2)
- close;
+ close;
mes "[ ^0065DFAlpha MVP^000000 ]";
mes "Which Arena you want to go to??";
@@ -82,43 +91,36 @@ Larena1:
callfunc "Ramvp_1";
warp "pvp_n_1-2",102,102;
close;
-
Larena2:
if (getmapusers("pvp_n_2-2") > 49) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_2-2",102,102;
close;
-
Larena3:
if (getmapusers("pvp_n_3-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_3-2",102,102;
close;
-
Larena4:
if (getmapusers("pvp_n_4-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_4-2",102,102;
close;
-
Larena5:
if (getmapusers("pvp_n_5-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_5-2",102,102;
close;
-
Larena6:
if (getmapusers("pvp_n_6-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_6-2",102,102;
close;
-
Larena7:
if (getmapusers("pvp_n_7-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
warp "pvp_n_7-2",102,102;
close;
-
Larena8:
if (getmapusers("pvp_n_8-2") > 14) goto Lsorry;
callfunc "Ramvp_1";
@@ -160,43 +162,36 @@ Larena1:
callfunc "Ramvp_2";
warp "pvp_n_1-3",102,102;
close;
-
Larena2:
if (getmapusers("pvp_n_2-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_2-3",102,102;
close;
-
Larena3:
if (getmapusers("pvp_n_3-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_3-3",102,102;
close;
-
Larena4:
if (getmapusers("pvp_n_4-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_4-3",102,102;
close;
-
Larena5:
if (getmapusers("pvp_n_5-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_5-3",102,102;
close;
-
Larena6:
if (getmapusers("pvp_n_6-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_6-3",102,102;
close;
-
Larena7:
if (getmapusers("pvp_n_7-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
warp "pvp_n_7-3",102,102;
close;
-
Larena8:
if (getmapusers("pvp_n_8-3") > 14) goto Lsorry;
callfunc "Ramvp_2";
@@ -238,44 +233,37 @@ Larena1:
callfunc "Ramvp_3";
warp "pvp_n_1-4",102,102;
close;
-
Larena2:
if (getmapusers("pvp_n_2-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
warp "pvp_n_2-4",102,102;
close;
-
Larena3:
if (getmapusers("pvp_n_3-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
warp "pvp_n_3-4",102,102;
close;
-
Larena4:
if (getmapusers("pvp_n_4-4") > 14) goto Lsorry;
mes "[ ^0065DFTheta MVP^000000 ]";
mes "Here you go!";
warp "pvp_n_4-4",102,102;
close;
-
Larena5:
if (getmapusers("pvp_n_5-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
warp "pvp_n_5-4",102,102;
close;
-
Larena6:
if (getmapusers("pvp_n_6-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
warp "pvp_n_6-4",102,102;
close;
-
Larena7:
if (getmapusers("pvp_n_7-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
warp "pvp_n_7-4",102,102;
close;
-
Larena8:
if (getmapusers("pvp_n_8-4") > 14) goto Lsorry;
callfunc "Ramvp_3";
@@ -317,43 +305,36 @@ Larena1:
callfunc "Ramvp_4";
warp "pvp_n_1-5",102,102;
close;
-
Larena2:
if (getmapusers("pvp_n_2-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_2-5",102,102;
close;
-
Larena3:
if (getmapusers("pvp_n_3-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_3-5",102,102;
close;
-
Larena4:
if (getmapusers("pvp_n_4-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_4-5",102,102;
close;
-
Larena5:
if (getmapusers("pvp_n_5-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_5-5",102,102;
close;
-
Larena6:
if (getmapusers("pvp_n_6-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_6-5",102,102;
close;
-
Larena7:
if (getmapusers("pvp_n_7-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
warp "pvp_n_7-5",102,102;
close;
-
Larena8:
if (getmapusers("pvp_n_8-5") > 14) goto Lsorry;
callfunc "Ramvp_4";
@@ -372,7 +353,6 @@ Lsorry:
pvp_n_1-2,100,100,4 script MVP-Protector#01 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_2-2",102,102;
close;
@@ -382,7 +362,6 @@ L_Next:
pvp_n_2-2,100,100,4 script MVP-Protector#02 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_3-2",102,102;
close;
@@ -392,7 +371,6 @@ L_Next:
pvp_n_3-2,100,100,4 script MVP-Protector#03 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_4-2",102,102;
close;
@@ -402,7 +380,6 @@ L_Next:
pvp_n_4-2,100,100,4 script MVP-Protector#04 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_5-2",102,102;
close;
@@ -412,7 +389,6 @@ L_Next:
pvp_n_5-2,100,100,4 script MVP-Protector#05 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_6-2",102,102;
close;
@@ -422,7 +398,6 @@ L_Next:
pvp_n_6-2,100,100,4 script MVP-Protector#06 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_7-2",102,102;
close;
@@ -432,7 +407,6 @@ L_Next:
pvp_n_7-2,100,100,4 script MVP-Protector#07 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_8-2",102,102;
close;
@@ -447,7 +421,6 @@ pvp_n_8-2,100,100,4 script MVP-Protector#08 727,{
pvp_n_1-3,100,100,4 script MVP-Protector#09 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_2-3",102,102;
close;
@@ -456,7 +429,6 @@ L_Next:
pvp_n_2-3,100,100,4 script MVP-Protector#10 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_3-3",102,102;
close;
@@ -465,7 +437,6 @@ L_Next:
pvp_n_3-3,100,100,4 script MVP-Protector#11 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_4-3",102,102;
close;
@@ -474,7 +445,6 @@ L_Next:
pvp_n_4-3,100,100,4 script MVP-Protector#12 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_5-3",102,102;
close;
@@ -483,7 +453,6 @@ L_Next:
pvp_n_5-3,100,100,4 script MVP-Protector#13 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_6-3",102,102;
close;
@@ -492,7 +461,6 @@ L_Next:
pvp_n_6-3,100,100,4 script MVP-Protector#14 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_7-3",102,102;
close;
@@ -501,7 +469,6 @@ L_Next:
pvp_n_7-3,100,100,4 script MVP-Protector#15 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_8-3",102,102;
close;
@@ -516,7 +483,6 @@ pvp_n_8-3,100,100,4 script MVP-Protector#16 727,{
pvp_n_1-4,100,100,4 script MVP-Protector#17 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_2-4",102,102;
close;
@@ -526,7 +492,6 @@ L_Next:
pvp_n_2-4,100,100,4 script MVP-Protector#18 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_3-4",102,102;
close;
@@ -535,7 +500,6 @@ L_Next:
pvp_n_3-4,100,100,4 script MVP-Protector#19 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_4-4",102,102;
close;
@@ -544,7 +508,6 @@ L_Next:
pvp_n_4-4,100,100,4 script MVP-Protector#20 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_5-4",102,102;
close;
@@ -553,7 +516,6 @@ L_Next:
pvp_n_5-4,100,100,4 script MVP-Protector#21 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_6-4",102,102;
close;
@@ -562,7 +524,6 @@ L_Next:
pvp_n_6-4,100,100,4 script MVP-Protector#22 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_7-4",102,102;
close;
@@ -571,7 +532,6 @@ L_Next:
pvp_n_7-4,100,100,4 script MVP-Protector#23 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_8-4",102,102;
close;
@@ -586,7 +546,6 @@ pvp_n_8-4,100,100,4 script MVP-Protector#24 727,{
pvp_n_1-5,100,100,4 script MVP-Protector#25 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_2-5",102,102;
close;
@@ -596,7 +555,6 @@ L_Next:
pvp_n_2-5,100,100,4 script MVP-Protector#26 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_3-5",102,102;
close;
@@ -605,7 +563,6 @@ L_Next:
pvp_n_3-5,100,100,4 script MVP-Protector#27 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_4-5",102,102;
close;
@@ -614,7 +571,6 @@ L_Next:
pvp_n_4-5,100,100,4 script MVP-Protector#28 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_5-5",102,102;
close;
@@ -623,7 +579,6 @@ L_Next:
pvp_n_5-5,100,100,4 script MVP-Protector#29 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_6-5",102,102;
close;
@@ -632,7 +587,6 @@ L_Next:
pvp_n_6-5,100,100,4 script MVP-Protector#30 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_7-5",102,102;
close;
@@ -641,7 +595,6 @@ L_Next:
pvp_n_7-5,100,100,4 script MVP-Protector#31 727,{
mes "[ ^0065DFMVP-Protector^000000 ]";
callfunc "Ramvp_M";
-
L_Next:
warp "pvp_n_8-5",102,102;
close;
diff --git a/npc/custom/WoE_Setter.txt b/npc/custom/WoE_Setter.txt
index 61d5665eb..9e5dc05c1 100644
--- a/npc/custom/WoE_Setter.txt
+++ b/npc/custom/WoE_Setter.txt
@@ -1,14 +1,14 @@
-//===== rAthena Script =======================================
+//===== rAthena Script =======================================
//= War of Emperium - Time Setter
-//===== By: ==================================================
+//===== By: ==================================================
//= Fredzilla
-//===== Current Version: =====================================
-//= 1.5a
-//===== Compatible With: =====================================
-//= rAthena 1.0 Final TXT
-//===== Description: =========================================
+//===== Current Version: =====================================
+//= 1.5
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Lets a GM set WoE times from inside the game
-//===== Additional Comments: =================================
+//===== Additional Comments: =================================
//= Loops used = 4 (I like loops ^_^)
//= Only GM's of lvl 99 can use it
//= If anyone else tries to use it they will just get a list of WoE times
@@ -23,7 +23,8 @@
//= Not even the normal WoE script can do this (by dafault)
//= Removed the need for disabling the normal agit_event
//= 1.5a Applied Playtester's fix. [Vicious]
-//============================================================
+//============================================================
+
prontera,162,194,5 script WoE Setter 806,{
mes "[Woe Setter]";
if(getgmlevel()<99) goto L_NotGM;
diff --git a/npc/custom/airplane.txt b/npc/custom/airplane.txt
index 5bc5d419c..2469b6a24 100644
--- a/npc/custom/airplane.txt
+++ b/npc/custom/airplane.txt
@@ -1,12 +1,11 @@
//===== rAthena Script =======================================
//= elRO Airship
//===== By: ==================================================
-//= Edited And removed irrelevent comments by rAthena Dev Team
-//= Draike\Bluto\Hephaestus
+//= Draike, Bluto, Hephaestus
//===== Current Version: =====================================
//= 2.2a
//===== Compatible With: =====================================
-//= rAthena SVN 02/05/2005 +
+//= rAthena SVN
//===== Description: =========================================
//= It's the elRO airship. XD
//===== Additional Comments: =================================
@@ -14,225 +13,226 @@
//= If you have "airplane,103,72,0 warp airs02a 1,1,airplane,102,200" as a warp, remove it. Where it's supposed to go, I have no clue.
//= 2.1 Removed Duplicates [Silent]
//= 2.2 Added missing next;'s [Evera]
-//============================================================
-payon,153,43,5 script itinsetter -1,{
+//============================================================
-//This is just OnInit stuff to set the hourly intinerary.
+payon,153,43,5 script itinsetter -1,{
+ //This is just OnInit stuff to set the hourly intinerary.
OnInit:
-deletearray $locationsname$[0],500;
-deletearray $locationsmap$[0],500;
-deletearray $locationsx[0],500;
-deletearray $locationsy[0],500;
-deletearray $alreadygoneto[0],500;
-setarray $locationsname$[0],"Airport";
-setarray $locationsname$[1],"Prontera";
-setarray $locationsname$[2],"Payon";
-setarray $locationsname$[3],"Aldebaran";
-setarray $locationsname$[4],"Alberta";
-setarray $locationsname$[5],"Geffen";
-setarray $locationsname$[6],"Morocc";
-setarray $locationsname$[7],"Glast Heim";
-setarray $locationsname$[8],"Umbala";
-setarray $locationsname$[9],"Comodo";
-setarray $locationsname$[10],"Amatsu";
-setarray $locationsname$[11],"Niflheim";
-setarray $locationsname$[12],"Lutie";
-setarray $locationsname$[13],"Louyang";
-setarray $locationsname$[14],"Gonryun";
-setarray $locationsname$[15],"Yuno";
-setarray $locationsname$[16],"Ant Hell";
-setarray $locationsname$[17],"Jawaii";
-setarray $locationsname$[18],"Orc Village";
-setarray $locationsname$[19],"Mjolnir Coal Mines";
-setarray $locationsname$[20],"Gefenia Ruins";
-setarray $locationsname$[21],"Ayothaya";
-setarray $locationsname$[22],"Lighthalzen";
-setarray $locationsname$[23],"Juperos";
-setarray $locationsmap$[0],"airport";
-setarray $locationsmap$[1],"prt_fild08";
-setarray $locationsmap$[2],"pay_fild08";
-setarray $locationsmap$[3],"mjolnir_12";
-setarray $locationsmap$[4],"pay_fild03";
-setarray $locationsmap$[5],"gef_fild00";
-setarray $locationsmap$[6],"moc_fild10";
-setarray $locationsmap$[7],"glast_01";
-setarray $locationsmap$[8],"umbala";
-setarray $locationsmap$[9],"comodo";
-setarray $locationsmap$[10],"amatsu";
-setarray $locationsmap$[11],"niflheim";
-setarray $locationsmap$[12],"xmas";
-setarray $locationsmap$[13],"louyang";
-setarray $locationsmap$[14],"gonryun";
-setarray $locationsmap$[15],"yuno";
-setarray $locationsmap$[16],"moc_fild04";
-setarray $locationsmap$[17],"jawaii";
-setarray $locationsmap$[18],"gef_fild10";
-setarray $locationsmap$[19],"mjolnir_02";
-setarray $locationsmap$[20],"gefenia01";
-setarray $locationsmap$[21],"ayothaya";
-setarray $locationsmap$[22],"lighthalzen";
-setarray $locationsmap$[23],"jupe_gate";
-setarray $locationsx[0],148;
-setarray $locationsx[1],206;
-setarray $locationsx[2],159;
-setarray $locationsx[3],62;
-setarray $locationsx[4],194;
-setarray $locationsx[5],50;
-setarray $locationsx[6],163;
-setarray $locationsx[7],196;
-setarray $locationsx[8],187;
-setarray $locationsx[9],203;
-setarray $locationsx[10],115;
-setarray $locationsx[11],132;
-setarray $locationsx[12],232;
-setarray $locationsx[13],36;
-setarray $locationsx[14],82;
-setarray $locationsx[15],58;
-setarray $locationsx[16],209;
-setarray $locationsx[17],248;
-setarray $locationsx[18],158;
-setarray $locationsx[19],76;
-setarray $locationsx[20],98;
-setarray $locationsx[21],183;
-setarray $locationsx[22],99;
-setarray $locationsx[23],46;
-setarray $locationsy[0],45;
-setarray $locationsy[1],280;
-setarray $locationsy[2],92;
-setarray $locationsy[3],381;
-setarray $locationsy[4],182;
-setarray $locationsy[5],365;
-setarray $locationsy[6],172;
-setarray $locationsy[7],327;
-setarray $locationsy[8],98;
-setarray $locationsy[9],76;
-setarray $locationsy[10],79;
-setarray $locationsy[11],241;
-setarray $locationsy[12],308;
-setarray $locationsy[13],279;
-setarray $locationsy[14],96;
-setarray $locationsy[15],194;
-setarray $locationsy[16],326;
-setarray $locationsy[17],175;
-setarray $locationsy[18],95;
-setarray $locationsy[19],363;
-setarray $locationsy[20],21;
-setarray $locationsy[21],104;
-setarray $locationsy[22],240;
-setarray $locationsy[23],19;
-goto resetgoneto;
-end;
+ deletearray $locationsname$[0],500;
+ deletearray $locationsmap$[0],500;
+ deletearray $locationsx[0],500;
+ deletearray $locationsy[0],500;
+ deletearray $alreadygoneto[0],500;
+ setarray $locationsname$[0],"Airport";
+ setarray $locationsname$[1],"Prontera";
+ setarray $locationsname$[2],"Payon";
+ setarray $locationsname$[3],"Aldebaran";
+ setarray $locationsname$[4],"Alberta";
+ setarray $locationsname$[5],"Geffen";
+ setarray $locationsname$[6],"Morocc";
+ setarray $locationsname$[7],"Glast Heim";
+ setarray $locationsname$[8],"Umbala";
+ setarray $locationsname$[9],"Comodo";
+ setarray $locationsname$[10],"Amatsu";
+ setarray $locationsname$[11],"Niflheim";
+ setarray $locationsname$[12],"Lutie";
+ setarray $locationsname$[13],"Louyang";
+ setarray $locationsname$[14],"Gonryun";
+ setarray $locationsname$[15],"Yuno";
+ setarray $locationsname$[16],"Ant Hell";
+ setarray $locationsname$[17],"Jawaii";
+ setarray $locationsname$[18],"Orc Village";
+ setarray $locationsname$[19],"Mjolnir Coal Mines";
+ setarray $locationsname$[20],"Gefenia Ruins";
+ setarray $locationsname$[21],"Ayothaya";
+ setarray $locationsname$[22],"Lighthalzen";
+ setarray $locationsname$[23],"Juperos";
+ setarray $locationsmap$[0],"airport";
+ setarray $locationsmap$[1],"prt_fild08";
+ setarray $locationsmap$[2],"pay_fild08";
+ setarray $locationsmap$[3],"mjolnir_12";
+ setarray $locationsmap$[4],"pay_fild03";
+ setarray $locationsmap$[5],"gef_fild00";
+ setarray $locationsmap$[6],"moc_fild10";
+ setarray $locationsmap$[7],"glast_01";
+ setarray $locationsmap$[8],"umbala";
+ setarray $locationsmap$[9],"comodo";
+ setarray $locationsmap$[10],"amatsu";
+ setarray $locationsmap$[11],"niflheim";
+ setarray $locationsmap$[12],"xmas";
+ setarray $locationsmap$[13],"louyang";
+ setarray $locationsmap$[14],"gonryun";
+ setarray $locationsmap$[15],"yuno";
+ setarray $locationsmap$[16],"moc_fild04";
+ setarray $locationsmap$[17],"jawaii";
+ setarray $locationsmap$[18],"gef_fild10";
+ setarray $locationsmap$[19],"mjolnir_02";
+ setarray $locationsmap$[20],"gefenia01";
+ setarray $locationsmap$[21],"ayothaya";
+ setarray $locationsmap$[22],"lighthalzen";
+ setarray $locationsmap$[23],"jupe_gate";
+ setarray $locationsx[0],148;
+ setarray $locationsx[1],206;
+ setarray $locationsx[2],159;
+ setarray $locationsx[3],62;
+ setarray $locationsx[4],194;
+ setarray $locationsx[5],50;
+ setarray $locationsx[6],163;
+ setarray $locationsx[7],196;
+ setarray $locationsx[8],187;
+ setarray $locationsx[9],203;
+ setarray $locationsx[10],115;
+ setarray $locationsx[11],132;
+ setarray $locationsx[12],232;
+ setarray $locationsx[13],36;
+ setarray $locationsx[14],82;
+ setarray $locationsx[15],58;
+ setarray $locationsx[16],209;
+ setarray $locationsx[17],248;
+ setarray $locationsx[18],158;
+ setarray $locationsx[19],76;
+ setarray $locationsx[20],98;
+ setarray $locationsx[21],183;
+ setarray $locationsx[22],99;
+ setarray $locationsx[23],46;
+ setarray $locationsy[0],45;
+ setarray $locationsy[1],280;
+ setarray $locationsy[2],92;
+ setarray $locationsy[3],381;
+ setarray $locationsy[4],182;
+ setarray $locationsy[5],365;
+ setarray $locationsy[6],172;
+ setarray $locationsy[7],327;
+ setarray $locationsy[8],98;
+ setarray $locationsy[9],76;
+ setarray $locationsy[10],79;
+ setarray $locationsy[11],241;
+ setarray $locationsy[12],308;
+ setarray $locationsy[13],279;
+ setarray $locationsy[14],96;
+ setarray $locationsy[15],194;
+ setarray $locationsy[16],326;
+ setarray $locationsy[17],175;
+ setarray $locationsy[18],95;
+ setarray $locationsy[19],363;
+ setarray $locationsy[20],21;
+ setarray $locationsy[21],104;
+ setarray $locationsy[22],240;
+ setarray $locationsy[23],19;
+ goto resetgoneto;
+ end;
setrandomitin:
-set $@settervariable,$@settervariable + 1;
-setarray $locationn[$@settervariable],rand(0,getarraysize($locationsname$) - 1);
-if($alreadygoneto[$locationn[$@settervariable]]==1)set $@settervariable,$@settervariable - 1;
-if($alreadygoneto[$locationn[$@settervariable]]==1)goto setrandomitin;
-setarray $alreadygoneto[$locationn[$@settervariable]], 1;
-if($@settervariable<12)goto setrandomitin;
-end;
+ set $@settervariable,$@settervariable + 1;
+ setarray $locationn[$@settervariable],rand(0,getarraysize($locationsname$) - 1);
+ if($alreadygoneto[$locationn[$@settervariable]]==1)set $@settervariable,$@settervariable - 1;
+ if($alreadygoneto[$locationn[$@settervariable]]==1)goto setrandomitin;
+ setarray $alreadygoneto[$locationn[$@settervariable]], 1;
+ if($@settervariable<12)goto setrandomitin;
+ end;
resetgoneto:
-deletearray $alreadygoneto[0], 500;
-set $@currenttime, 0;
-goto setrandomitin;
+ deletearray $alreadygoneto[0], 500;
+ set $@currenttime, 0;
+ goto setrandomitin;
OnMinute00:
-set $@currenttime, 1;
-callfunc "F_Itinreset",12,1,2;
+ set $@currenttime, 1;
+ callfunc "F_Itinreset",12,1,2;
OnMinute03:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute05:
-set $@currenttime, 2;
-callfunc "F_Itinreset",1,2,3;
+ set $@currenttime, 2;
+ callfunc "F_Itinreset",1,2,3;
OnMinute08:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute10:
-set $@currenttime, 3;
-callfunc "F_Itinreset",2,3,4;
+ set $@currenttime, 3;
+ callfunc "F_Itinreset",2,3,4;
OnMinute13:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute15:
-set $@currenttime, 4;
-callfunc "F_Itinreset",3,4,5;
+ set $@currenttime, 4;
+ callfunc "F_Itinreset",3,4,5;
OnMinute18:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute20:
-set $@currenttime, 5;
-callfunc "F_Itinreset",4,5,6;
+ set $@currenttime, 5;
+ callfunc "F_Itinreset",4,5,6;
OnMinute23:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute25:
-set $@currenttime, 6;
-callfunc "F_Itinreset",5,6,7;
+ set $@currenttime, 6;
+ callfunc "F_Itinreset",5,6,7;
OnMinute28:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute30:
-set $@currenttime, 7;
-callfunc "F_Itinreset",6,7,8;
+ set $@currenttime, 7;
+ callfunc "F_Itinreset",6,7,8;
OnMinute33:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute35:
-set $@currenttime, 8;
-callfunc "F_Itinreset",7,8,9;
+ set $@currenttime, 8;
+ callfunc "F_Itinreset",7,8,9;
OnMinute38:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute40:
-set $@currenttime, 9;
-callfunc "F_Itinreset",8,9,10;
+ set $@currenttime, 9;
+ callfunc "F_Itinreset",8,9,10;
OnMinute43:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute45:
-set $@currenttime, 10;
-callfunc "F_Itinreset",9,10,11;
+ set $@currenttime, 10;
+ callfunc "F_Itinreset",9,10,11;
OnMinute48:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute50:
-set $@currenttime, 11;
-callfunc "F_Itinreset",10,11,12;
+ set $@currenttime, 11;
+ callfunc "F_Itinreset",10,11,12;
OnMinute53:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
OnMinute55:
-set $@currenttime, 12;
-callfunc "F_Itinreset",11,12,1;
+ set $@currenttime, 12;
+ callfunc "F_Itinreset",11,12,1;
OnMinute58:
-set $destination,250;
-end;
+ set $destination,250;
+ end;
}
+
function script F_Porter {
if($destination==getarg(0))goto Board;
if($destination!=getarg(0))goto Notime;
@@ -262,85 +262,87 @@ Notime:
end;
Itin:
-mes "^FF0000[Porter]^000000";
-callfunc "F_Itin";
+ mes "^FF0000[Porter]^000000";
+ callfunc "F_Itin";
}
+
airport,153,43,5 script Airport Porter 774,{
-callfunc "F_Porter",0;
+ callfunc "F_Porter",0;
}
prt_fild08,206,279,5 script Porter#01 774,{
-callfunc "F_Porter",1;
+ callfunc "F_Porter",1;
}
gef_fild00,50,364,5 script Porter#02 774,{
-callfunc "F_Porter",5;
+ callfunc "F_Porter",5;
}
moc_fild10,163,173,5 script Porter#03 774,{
-callfunc "F_Porter",6;
+ callfunc "F_Porter",6;
}
mjolnir_12,61,380,5 script Porter#04 774,{
-callfunc "F_Porter",3;
+ callfunc "F_Porter",3;
}
pay_fild08,159,91,5 script Porter#05 774,{
-callfunc "F_Porter",2;
+ callfunc "F_Porter",2;
}
pay_fild03,194,181,5 script Porter#06 774,{
-callfunc "F_Porter",4;
+ callfunc "F_Porter",4;
}
glast_01,196,326,1 script Porter#07 774,{
-callfunc "F_Porter",7;
+ callfunc "F_Porter",7;
}
umbala,188,98,3 script Porter#08 774,{
-callfunc "F_Porter",8;
+ callfunc "F_Porter",8;
}
comodo,203,75,8 script Porter#09 774,{
-callfunc "F_Porter",9;
+ callfunc "F_Porter",9;
}
amatsu,115,78,8 script Porter#10 774,{
-callfunc "F_Porter",10;
+ callfunc "F_Porter",10;
}
niflheim,132,242,5 script Porter#11 774,{
-callfunc "F_Porter",11;
+ callfunc "F_Porter",11;
}
xmas,232,309,5 script Porter#12 774,{
-callfunc "F_Porter",12;
+ callfunc "F_Porter",12;
}
louyang,35,279,8 script Porter#13 774,{
-callfunc "F_Porter",13;
+ callfunc "F_Porter",13;
}
gonryun,82,95,7 script Porter#14 774,{
-callfunc "F_Porter",14;
+ callfunc "F_Porter",14;
}
yuno,58,195,4 script Porter#15 774,{
-callfunc "F_Porter",15;
+ callfunc "F_Porter",15;
}
moc_fild04,210,326,2 script Porter#16 774,{
-callfunc "F_Porter",16;
+ callfunc "F_Porter",16;
}
jawaii,247,174,7 script Porter#17 774,{
-callfunc "F_Porter",17;
+ callfunc "F_Porter",17;
}
gef_fild10,159,95,2 script Porter#18 774,{
-callfunc "F_Porter",18;
+ callfunc "F_Porter",18;
}
mjolnir_02,76,364,5 script Porter#19 774,{
-callfunc "F_Porter",19;
+ callfunc "F_Porter",19;
}
gefenia01,97,22,6 script Porter#20 774,{
-callfunc "F_Porter",20;
+ callfunc "F_Porter",20;
}
ayothaya,182,105,5 script Porter#21 774,{
-callfunc "F_Porter",21;
+ callfunc "F_Porter",21;
}
lighthalzen,99,241,4 script Porter#22 774,{
-callfunc "F_Porter",22;
+ callfunc "F_Porter",22;
}
jupe_gate,46,18,7 script Porter#23 774,{
-callfunc "F_Porter",23;
+ callfunc "F_Porter",23;
}
airport,141,43,5 script Itinerary Schedule 837,{
-mes "^FF0000[Itinerary]^000000";
-callfunc "F_Itin";
+ mes "^FF0000[Itinerary]^000000";
+ callfunc "F_Itin";
}
+
airplane,102,68,5 script Docker 852,{
if($destination == 250) goto Nowhere;
mes "^FF0000[Airplane Attendant]^000000";
@@ -372,68 +374,69 @@ Nowhere:
mes "We're currently in air. Please wait until the pilot has announced that we have safely landed.";
close;
}
+
function script F_Itin {
-//This is the itinerary's function. It should work well enough.
-if($@currenttime==0)mes "Try again later. A recent server reboot or rehash has messed the itinerary up for a bit.";
-if($@currenttime==0)close;
-if($@currenttime==0)end;
-set @tempo, 0;
-set @tempo, $@currenttime - 1;
-goto seta;
-close;
+ //This is the itinerary's function. It should work well enough.
+ if($@currenttime==0)mes "Try again later. A recent server reboot or rehash has messed the itinerary up for a bit.";
+ if($@currenttime==0)close;
+ if($@currenttime==0)end;
+ set @tempo, 0;
+ set @tempo, $@currenttime - 1;
+ goto seta;
+ close;
seta:
-set @tempo, @tempo + 1;
-set @time, gettime(3);
-set @minutes, 5 * @tempo - 5;
-set @minutess, 5 * @tempo - 2;
-if(@minutes<10)set @minutes$, "0" + @minutes;
-if(@minutes>9)set @minutes$, @minutes;
-if(@minutess<10)set @minutess$, "0" + @minutess;
-if(@minutess>9)set @minutess$, @minutess;
-if(@time<12)set @time$,@time;
-if(@time==12)set @time$,12;
-if(@time>12)set @time$,@time - 12;
-if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$ + ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@tempo<12)goto seta;
-set @tempo, 0;
-goto setb;
+ set @tempo, @tempo + 1;
+ set @time, gettime(3);
+ set @minutes, 5 * @tempo - 5;
+ set @minutess, 5 * @tempo - 2;
+ if(@minutes<10)set @minutes$, "0" + @minutes;
+ if(@minutes>9)set @minutes$, @minutes;
+ if(@minutess<10)set @minutess$, "0" + @minutess;
+ if(@minutess>9)set @minutess$, @minutess;
+ if(@time<12)set @time$,@time;
+ if(@time==12)set @time$,12;
+ if(@time>12)set @time$,@time - 12;
+ if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$ + ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@tempo<12)goto seta;
+ set @tempo, 0;
+ goto setb;
setb:
-if($@currenttime - 1==@tempo)goto setc;
-set @tempo, @tempo + 1;
-set @time, gettime(3) + 1;
-set @minutes, 5 * @tempo - 5;
-set @minutess, 5 * @tempo - 2;
-if(@minutes<10)set @minutes$, "0" + @minutes;
-if(@minutes>9)set @minutes$, @minutes;
-if(@minutess<10)set @minutess$, "0" + @minutess;
-if(@minutess>9)set @minutess$, @minutess;
-if(@time<12)set @time$,@time;
-if(@time==12)set @time$,12;
-if(@time>12)set @time$,@time - 12;
-if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
-goto setb;
+ if($@currenttime - 1==@tempo)goto setc;
+ set @tempo, @tempo + 1;
+ set @time, gettime(3) + 1;
+ set @minutes, 5 * @tempo - 5;
+ set @minutess, 5 * @tempo - 2;
+ if(@minutes<10)set @minutes$, "0" + @minutes;
+ if(@minutes>9)set @minutes$, @minutes;
+ if(@minutess<10)set @minutess$, "0" + @minutess;
+ if(@minutess>9)set @minutess$, @minutess;
+ if(@time<12)set @time$,@time;
+ if(@time==12)set @time$,12;
+ if(@time>12)set @time$,@time - 12;
+ if(@time<12)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. - "+"^FF0000"+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time==12)mes @time$+":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time>12 && time<24)mes @time$ +":"+ @minutes$ + " P.M. - "+@time$+ ":"+ @minutess$ + " P.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ if(@time==24)mes @time$+":"+ @minutes$ + " A.M. - "+@time$+ ":"+ @minutess$ + " A.M. -"+"^FF0000 "+$locationsname$[$locationn[@tempo]]+"^000000";
+ goto setb;
setc:
-close;
-end;
+ close;
+ end;
}
-function script F_Itinreset {
-setarray $alreadygoneto[$locationn[getarg(0)]], 0;
-goto sest;
+function script F_Itinreset {
+ setarray $alreadygoneto[$locationn[getarg(0)]], 0;
+ goto sest;
sest:
-setarray $locationn[getarg(0)],rand(0,getarraysize($locationsname$) - 1);
-if($alreadygoneto[$locationn[getarg(0)]]==1)goto sest;
-setarray $alreadygoneto[$locationn[getarg(0)]], 1;
-set $destination,$locationn[$@currenttime];
-announce "Pilot: The plane has arrived at "+$locationsname$[$locationn[getarg(1)]]+". Departure to "+ $locationsname$[$locationn[getarg(2)]] + " is in 3 minutes.",16;
-end;
+ setarray $locationn[getarg(0)],rand(0,getarraysize($locationsname$) - 1);
+ if($alreadygoneto[$locationn[getarg(0)]]==1)goto sest;
+ setarray $alreadygoneto[$locationn[getarg(0)]], 1;
+ set $destination,$locationn[$@currenttime];
+ announce "Pilot: The plane has arrived at "+$locationsname$[$locationn[getarg(1)]]+". Departure to "+ $locationsname$[$locationn[getarg(2)]] + " is in 3 minutes.",16;
+ end;
}
diff --git a/npc/custom/ayothaya.txt b/npc/custom/ayothaya.txt
deleted file mode 100644
index 2432bc970..000000000
--- a/npc/custom/ayothaya.txt
+++ /dev/null
@@ -1,724 +0,0 @@
-//===== rAthena Script =======================================
-//= Wandering poet NPC
-//===== By: ==================================================
-//= by MouseJstr
-//===== Current Version: =====================================
-//= 0.2a
-//===== Compatible With: =====================================
-//= rAthena 1.0 Final +
-//===== Description: =========================================
-
-ayothaya,58,134,5 script Louise Gluck 763,{
- mes "[Louise Gluck]";
- mes "What is the next line? ";
- close;
-
- OnTimer5000:
- npcwalkto 65,129;
- npctalk "Twas brillig, and the slithy toves Did gyre and gimble in the wabe:";
- end;
-
- OnTimer10000:
- npcwalkto 71,131;
- npctalk "All mimsy were the bogoroves, And the mome raths outgrabe.";
- end;
-
- OnTimer15000:
- npcwalkto 75,127;
- npctalk "Beware the Jabberwock, my son! The jaws that bite, theh claws that catch!";
- end;
-
- OnTimer20000:
- npcwalkto 80,122;
- npctalk "Beware the Jubjub bird and shun The frumious Bandersnatch!";
- end;
-
- OnTimer25000:
- npcwalkto 82,118;
- npctalk "He took his vorpal sword in hand: Long time the manxome foe he sought-";
- end;
-
- OnTimer30000:
- npcwalkto 93,115;
- npctalk "So rested he by the Tumtum tree, And stood a while in thought.";
- end;
-
- OnTimer35000:
- npcwalkto 94,112;
- npctalk "And, as in uffish thought he stood, The Jabberwock, with eyes of flame,";
- end;
-
- OnTimer40000:
- npcwalkto 88,124;
- npctalk "Came whiffling through the tulgey wood, And burbled as it came!";
- end;
-
- OnTimer45000:
- npcwalkto 81,129;
- npctalk "One, two! One, two! And through and through The vorpal blade went snicker-snack!";
- end;
-
- OnTimer50000:
- npcwalkto 76,139;
- npctalk "He left it dead, and with its head He went galumphing back.";
- end;
-
- OnTimer55000:
- npcwalkto 67,138;
- npctalk "And hast though slain the Jabberwock? Come to my arms beamish boy!";
- end;
-
- OnTimer60000:
- npcwalkto 59,144;
- npctalk "O frabjous day! Callooh! Callay! He chortled in his joy.";
- end;
-
- OnTimer65000:
- npcwalkto 55,124;
- npctalk "Twas brillig, and the slithy toves Did gyre and gimble in the wabe:";
- end;
-
- OnTimer70000:
- npcwalkto 58,134;
- npctalk "All mimsy were the bogoroves, And the mome raths outgrabe.";
- setnpctimer 0;
- end;
-
- OnInit:
- npcspeed 150;
- initnpctimer;
- end;
-}
-
-
-ayothaya,212,276,0 script Romeo 50,{
- mes "[Romeo]";
- mes "What is the next line? ";
- close;
- OnTimer0:
- npctalk "He jests at scars that never felt a wound.";
- end;
- OnTimer6000:
- npctalk "But, soft! what light through yonder window breaks?";
- end;
- OnTimer8000:
- npctalk "It is the east, and Juliet is the sun.";
- end;
- OnTimer10000:
- npctalk "Arise, fair sun, and kill the envious moon,";
- end;
- OnTimer12000:
- npctalk "Who is already sick and pale with grief,";
- end;
- OnTimer14000:
- npctalk "That thou her maid art far more fair than she:";
- end;
- OnTimer16000:
- npctalk "Be not her maid, since she is envious;";
- end;
- OnTimer18000:
- npctalk "Her vestal livery is but sick and green";
- end;
- OnTimer20000:
- npctalk "And none but fools do wear it; cast it off.";
- end;
- OnTimer22000:
- npctalk "It is my lady, O, it is my love!";
- end;
- OnTimer24000:
- npctalk "O, that she knew she were!";
- end;
- OnTimer26000:
- npctalk "She speaks yet she says nothing: what of that?";
- end;
- OnTimer28000:
- npctalk "Her eye discourses; I will answer it.";
- end;
- OnTimer30000:
- npctalk "I am too bold, tis not to me she speaks:";
- end;
- OnTimer32000:
- npctalk "Two of the fairest stars in all the heaven,";
- end;
- OnTimer34000:
- npctalk "Having some business, do entreat her eyes";
- end;
- OnTimer36000:
- npctalk "To twinkle in their spheres till they return.";
- end;
- OnTimer38000:
- npctalk "What if her eyes were there, they in her head?";
- end;
- OnTimer40000:
- npctalk "The brightness of her cheek would shame those stars,";
- end;
- OnTimer42000:
- npctalk "As daylight doth a lamp; her eyes in heaven";
- end;
- OnTimer44000:
- npctalk "Would through the airy region stream so bright";
- end;
- OnTimer46000:
- npctalk "That birds would sing and think it were not night.";
- end;
- OnTimer48000:
- npctalk "See, how she leans her cheek upon her hand!";
- end;
- OnTimer50000:
- npctalk "O, that I were a glove upon that hand,";
- end;
- OnTimer52000:
- npctalk "That I might touch that cheek!";
- end;
- OnTimer56000:
- npctalk "She speaks:";
- end;
- OnTimer58000:
- npctalk "O, speak again, bright angel! for thou art";
- end;
- OnTimer60000:
- npctalk "As glorious to this night, being oer my head";
- end;
- OnTimer62000:
- npctalk "As is a winged messenger of heaven";
- end;
- OnTimer64000:
- npctalk "Unto the white-upturned wondering eyes";
- end;
- OnTimer66000:
- npctalk "Of mortals that fall back to gaze on him";
- end;
- OnTimer68000:
- npctalk "When he bestrides the lazy-pacing clouds";
- end;
- OnTimer70000:
- npctalk "And sails upon the bosom of the air.";
- end;
- OnTimer80000:
- npctalk "Shall I hear more, or shall I speak at this?";
- end;
- OnTimer106000:
- npctalk "I take thee at thy word:";
- end;
- OnTimer108000:
- npctalk "Call me but love, and Ill be new baptized;";
- end;
- OnTimer110000:
- npctalk "Henceforth I never will be Romeo.";
- end;
- OnTimer116000:
- npctalk "By a name";
- end;
- OnTimer118000:
- npctalk "I know not how to tell thee who I am:";
- end;
- OnTimer120000:
- npctalk "My name, dear saint, is hateful to myself,";
- end;
- OnTimer122000:
- npctalk "Because it is an enemy to thee;";
- end;
- OnTimer124000:
- npctalk "Had I it written, I would tear the word.";
- end;
- OnTimer132000:
- npctalk "Neither, fair saint, if either thee dislike.";
- end;
- OnTimer142000:
- npctalk "With loves light wings did I oer-perch these walls;";
- end;
- OnTimer144000:
- npctalk "For stony limits cannot hold love out,";
- end;
- OnTimer146000:
- npctalk "And what love can do that dares love attempt;";
- end;
- OnTimer148000:
- npctalk "Therefore thy kinsmen are no let to me.";
- end;
- OnTimer152000:
- npctalk "Alack, there lies more peril in thine eye";
- end;
- OnTimer154000:
- npctalk "Than twenty of their swords: look thou but sweet,";
- end;
- OnTimer156000:
- npctalk "And I am proof against their enmity.";
- end;
- OnTimer160000:
- npctalk "I have nights cloak to hide me from their sight;";
- end;
- OnTimer162000:
- npctalk "And but thou love me, let them find me here:";
- end;
- OnTimer164000:
- npctalk "My life were better ended by their hate,";
- end;
- OnTimer166000:
- npctalk "Than death prorogued, wanting of thy love.";
- end;
- OnTimer170000:
- npctalk "By love, who first did prompt me to inquire;";
- end;
- OnTimer172000:
- npctalk "He lent me counsel and I lent him eyes.";
- end;
- OnTimer174000:
- npctalk "I am no pilot; yet, wert thou as far";
- end;
- OnTimer176000:
- npctalk "As that vast shore washd with the farthest sea,";
- end;
- OnTimer178000:
- npctalk "I would adventure for such merchandise.";
- end;
- OnTimer224000:
- npctalk "Lady, by yonder blessed moon I swear";
- end;
- OnTimer226000:
- npctalk "That tips with silver all these fruit-tree tops--";
- end;
- OnTimer234000:
- npctalk "What shall I swear by?";
- end;
- OnTimer244000:
- npctalk "If my hearts dear love--";
- end;
- OnTimer264000:
- npctalk "O, wilt thou leave me so unsatisfied?";
- end;
- OnTimer268000:
- npctalk "The exchange of thy loves faithful vow for mine.";
- end;
- OnTimer274000:
- npctalk "Wouldst thou withdraw it? for what purpose, love?";
- end;
- OnTimer294000:
- npctalk "O blessed, blessed night! I am afeard.";
- end;
- OnTimer296000:
- npctalk "Being in night, all this is but a dream,";
- end;
- OnTimer298000:
- npctalk "Too flattering-sweet to be substantial.";
- end;
- OnTimer330000:
- npctalk "So thrive my soul--";
- end;
- OnTimer334000:
- npctalk "A thousand times the worse, to want thy light.";
- end;
- OnTimer336000:
- npctalk "Love goes toward love, as schoolboys from";
- end;
- OnTimer338000:
- npctalk "their books,";
- end;
- OnTimer340000:
- npctalk "But love from love, toward school with heavy looks.";
- end;
- OnTimer356000:
- npctalk "It is my soul that calls upon my name:";
- end;
- OnTimer358000:
- npctalk "How silver-sweet sound lovers tongues by night,";
- end;
- OnTimer360000:
- npctalk "Like softest music to attending ears!";
- end;
- OnTimer364000:
- npctalk "My dear?";
- end;
- OnTimer370000:
- npctalk "At the hour of nine.";
- end;
- OnTimer376000:
- npctalk "Let me stand here till thou remember it.";
- end;
- OnTimer382000:
- npctalk "And Ill still stay, to have thee still forget,";
- end;
- OnTimer384000:
- npctalk "Forgetting any other home but this.";
- end;
- OnTimer398000:
- npctalk "I would I were thy bird.";
- end;
- OnTimer410000:
- npctalk "Sleep dwell upon thine eyes, peace in thy breast!";
- end;
- OnTimer412000:
- npctalk "Would I were sleep and peace, so sweet to rest!";
- end;
- OnTimer414000:
- npctalk "Hence will I to my ghostly fathers cell,";
- end;
- OnTimer416000:
- npctalk "His help to crave, and my dear hap to tell.";
- end;
- OnTimer538000:
- setnpctimer 0;
- end;
- OnInit:
- npcspeed 150;
- initnpctimer;
- end;
-}
-
-ayothaya,214,279,3 script Juliet 53,{
- mes "[Juliet]";
- mes "What is the next line? ";
- close;
- OnTimer54000:
- npctalk "Ay me!";
- end;
- OnTimer72000:
- npctalk "O Romeo, Romeo! wherefore art thou Romeo?";
- end;
- OnTimer74000:
- npctalk "Deny thy father and refuse thy name;";
- end;
- OnTimer76000:
- npctalk "Or, if thou wilt not, be but sworn my love,";
- end;
- OnTimer78000:
- npctalk "And Ill no longer be a Capulet.";
- end;
- OnTimer82000:
- npctalk "Tis but thy name that is my enemy;";
- end;
- OnTimer84000:
- npctalk "Thou art thyself, though not a Montague.";
- end;
- OnTimer86000:
- npctalk "Whats Montague? it is nor hand, nor foot,";
- end;
- OnTimer88000:
- npctalk "Nor arm, nor face, nor any other part";
- end;
- OnTimer90000:
- npctalk "Belonging to a man. O, be some other name!";
- end;
- OnTimer92000:
- npctalk "Whats in a name? that which we call a rose";
- end;
- OnTimer94000:
- npctalk "By any other name would smell as sweet;";
- end;
- OnTimer96000:
- npctalk "So Romeo would, were he not Romeo calld,";
- end;
- OnTimer98000:
- npctalk "Retain that dear perfection which he owes";
- end;
- OnTimer100000:
- npctalk "Without that title. Romeo, doff thy name,";
- end;
- OnTimer102000:
- npctalk "And for that name which is no part of thee";
- end;
- OnTimer104000:
- npctalk "Take all myself.";
- end;
- OnTimer112000:
- npctalk "What man art thou that thus bescreend in night";
- end;
- OnTimer114000:
- npctalk "So stumblest on my counsel?";
- end;
- OnTimer126000:
- npctalk "My ears have not yet drunk a hundred words";
- end;
- OnTimer128000:
- npctalk "Of that tongues utterance, yet I know the sound:";
- end;
- OnTimer130000:
- npctalk "Art thou not Romeo and a Montague?";
- end;
- OnTimer134000:
- npctalk "How camest thou hither, tell me, and wherefore?";
- end;
- OnTimer136000:
- npctalk "The orchard walls are high and hard to climb,";
- end;
- OnTimer138000:
- npctalk "And the place death, considering who thou art,";
- end;
- OnTimer140000:
- npctalk "If any of my kinsmen find thee here.";
- end;
- OnTimer150000:
- npctalk "If they do see thee, they will murder thee.";
- end;
- OnTimer158000:
- npctalk "I would not for the world they saw thee here.";
- end;
- OnTimer168000:
- npctalk "By whose direction foundst thou out this place?";
- end;
- OnTimer180000:
- npctalk "Thou knowst the mask of night is on my face,";
- end;
- OnTimer182000:
- npctalk "Else would a maiden blush bepaint my cheek";
- end;
- OnTimer184000:
- npctalk "For that which thou hast heard me speak to-night";
- end;
- OnTimer186000:
- npctalk "Fain would I dwell on form, fain, fain deny";
- end;
- OnTimer188000:
- npctalk "What I have spoke: but farewell compliment!";
- end;
- OnTimer190000:
- npctalk "Dost thou love me? I know thou wilt say Ay,";
- end;
- OnTimer192000:
- npctalk "And I will take thy word: yet if thou swearst,";
- end;
- OnTimer194000:
- npctalk "Thou mayst prove false; at lovers perjuries";
- end;
- OnTimer196000:
- npctalk "Then say, Jove laughs. O gentle Romeo,";
- end;
- OnTimer198000:
- npctalk "If thou dost love, pronounce it faithfully:";
- end;
- OnTimer200000:
- npctalk "Or if thou thinkst I am too quickly won,";
- end;
- OnTimer202000:
- npctalk "Ill frown and be perverse an say thee nay,";
- end;
- OnTimer204000:
- npctalk "So thou wilt woo; but else, not for the world.";
- end;
- OnTimer206000:
- npctalk "In truth, fair Montague, I am too fond,";
- end;
- OnTimer208000:
- npctalk "And therefore thou mayst think my havior light:";
- end;
- OnTimer210000:
- npctalk "But trust me, gentleman, Ill prove more true";
- end;
- OnTimer212000:
- npctalk "Than those that have more cunning to be strange.";
- end;
- OnTimer214000:
- npctalk "I should have been more strange, I must confess,";
- end;
- OnTimer216000:
- npctalk "But that thou overheardst, ere I was ware,";
- end;
- OnTimer218000:
- npctalk "My true loves passion: therefore pardon me,";
- end;
- OnTimer220000:
- npctalk "And not impute this yielding to light love,";
- end;
- OnTimer222000:
- npctalk "Which the dark night hath so discovered.";
- end;
- OnTimer228000:
- npctalk "O, swear not by the moon, the inconstant moon,";
- end;
- OnTimer230000:
- npctalk "That monthly changes in her circled orb,";
- end;
- OnTimer232000:
- npctalk "Lest that thy love prove likewise variable.";
- end;
- OnTimer236000:
- npctalk "Do not swear at all;";
- end;
- OnTimer238000:
- npctalk "Or, if thou wilt, swear by thy gracious self,";
- end;
- OnTimer240000:
- npctalk "Which is the god of my idolatry,";
- end;
- OnTimer242000:
- npctalk "And Ill believe thee.";
- end;
- OnTimer246000:
- npctalk "Well, do not swear: although I joy in thee,";
- end;
- OnTimer248000:
- npctalk "I have no joy of this contract to-night:";
- end;
- OnTimer250000:
- npctalk "It is too rash, too unadvised, too sudden;";
- end;
- OnTimer252000:
- npctalk "Too like the lightning, which doth cease to be";
- end;
- OnTimer254000:
- npctalk "Ere one can say It lightens. Sweet, good night!";
- end;
- OnTimer256000:
- npctalk "This bud of love, by summers ripening breath,";
- end;
- OnTimer258000:
- npctalk "May prove a beauteous flower when next we meet.";
- end;
- OnTimer260000:
- npctalk "Good night, good night! as sweet repose and rest";
- end;
- OnTimer262000:
- npctalk "Come to thy heart as that within my breast!";
- end;
- OnTimer266000:
- npctalk "What satisfaction canst thou have to-night?";
- end;
- OnTimer270000:
- npctalk "I gave thee mine before thou didst request it:";
- end;
- OnTimer272000:
- npctalk "And yet I would it were to give again.";
- end;
- OnTimer276000:
- npctalk "But to be frank, and give it thee again.";
- end;
- OnTimer278000:
- npctalk "And yet I wish but for the thing I have:";
- end;
- OnTimer280000:
- npctalk "My bounty is as boundless as the sea,";
- end;
- OnTimer282000:
- npctalk "My love as deep; the more I give to thee,";
- end;
- OnTimer284000:
- npctalk "The more I have, for both are infinite.";
- end;
- OnTimer288000:
- npctalk "I hear some noise within; dear love, adieu!";
- end;
- OnTimer290000:
- npctalk "Anon, good nurse! Sweet Montague, be true.";
- end;
- OnTimer292000:
- npctalk "Stay but a little, I will come again.";
- end;
- OnTimer302000:
- npctalk "Three words, dear Romeo, and good night indeed.";
- end;
- OnTimer304000:
- npctalk "If that thy bent of love be honourable,";
- end;
- OnTimer306000:
- npctalk "Thy purpose marriage, send me word to-morrow,";
- end;
- OnTimer308000:
- npctalk "By one that Ill procure to come to thee,";
- end;
- OnTimer310000:
- npctalk "Where and what time thou wilt perform the rite;";
- end;
- OnTimer312000:
- npctalk "And all my fortunes at thy foot Ill lay";
- end;
- OnTimer314000:
- npctalk "And follow thee my lord throughout the world.";
- end;
- OnTimer318000:
- npctalk "I come, anon.--But if thou meanst not well,";
- end;
- OnTimer320000:
- npctalk "I do beseech thee--";
- end;
- OnTimer324000:
- npctalk "By and by, I come:--";
- end;
- OnTimer326000:
- npctalk "To cease thy suit, and leave me to my grief:";
- end;
- OnTimer328000:
- npctalk "To-morrow will I send.";
- end;
- OnTimer332000:
- npctalk "A thousand times good night!";
- end;
- OnTimer344000:
- npctalk "Hist! Romeo, hist! O, for a falconers voice,";
- end;
- OnTimer346000:
- npctalk "To lure this tassel-gentle back again!";
- end;
- OnTimer348000:
- npctalk "Bondage is hoarse, and may not speak aloud;";
- end;
- OnTimer350000:
- npctalk "Else would I tear the cave where Echo lies,";
- end;
- OnTimer352000:
- npctalk "And make her airy tongue more hoarse than mine,";
- end;
- OnTimer354000:
- npctalk "With repetition of my Romeos name.";
- end;
- OnTimer362000:
- npctalk "Romeo!";
- end;
- OnTimer366000:
- npctalk "At what oclock to-morrow";
- end;
- OnTimer368000:
- npctalk "Shall I send to thee?";
- end;
- OnTimer372000:
- npctalk "I will not fail: tis twenty years till then.";
- end;
- OnTimer374000:
- npctalk "I have forgot why I did call thee back.";
- end;
- OnTimer378000:
- npctalk "I shall forget, to have thee still stand there,";
- end;
- OnTimer380000:
- npctalk "Remembering how I love thy company.";
- end;
- OnTimer386000:
- npctalk "Tis almost morning; I would have thee gone:";
- end;
- OnTimer388000:
- npctalk "And yet no further than a wantons bird;";
- end;
- OnTimer390000:
- npctalk "Who lets it hop a little from her hand,";
- end;
- OnTimer392000:
- npctalk "Like a poor prisoner in his twisted gyves,";
- end;
- OnTimer394000:
- npctalk "And with a silk thread plucks it back again,";
- end;
- OnTimer396000:
- npctalk "So loving-jealous of his liberty.";
- end;
- OnTimer400000:
- npctalk "Sweet, so would I:";
- end;
- OnTimer402000:
- npctalk "Yet I should kill thee with much cherishing.";
- end;
- OnTimer404000:
- npctalk "Good night, good night! parting is such";
- end;
- OnTimer406000:
- npctalk "sweet sorrow,";
- end;
- OnTimer408000:
- npctalk "That I shall say good night till it be morrow.";
- end;
- OnTimer538000:
- setnpctimer 0;
- end;
- OnInit:
- npcspeed 150;
- initnpctimer;
- end;
-}
diff --git a/npc/custom/banks/bank.txt b/npc/custom/banks/bank.txt
index 71763543c..00a33b67f 100644
--- a/npc/custom/banks/bank.txt
+++ b/npc/custom/banks/bank.txt
@@ -13,6 +13,7 @@
//= the script. To use it simply change the first set command
//= to set the cost variable to whatever you want the fee to be.
//============================================================
+
prontera,132,217,5 script Banker 109,{
set @cost,500;
mes "[Banker]";
@@ -123,4 +124,4 @@ Lcancel:
mes "[Banker]";
mes "Very well... come again soon.";
close;
-}
+} \ No newline at end of file
diff --git a/npc/custom/banks/kafra_bank.txt b/npc/custom/banks/kafra_bank.txt
index 3cf851287..734c129d5 100644
--- a/npc/custom/banks/kafra_bank.txt
+++ b/npc/custom/banks/kafra_bank.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= The 2nd Bank of Prontera ( with daily 0.01% income! )
+//= The 2nd Bank of Prontera (with daily 0.01% income!)
//===== By: ==================================================
//= Lupus (1.0)
//===== Current Version: =====================================
//= 1.2a
//===== Compatible With: =====================================
-//= rAthena 1.x
+//= rAthena SVN
//===== Description: =========================================
//= A bank which has an interest %
//===== Additional Comments: =================================
diff --git a/npc/custom/blackjack.txt b/npc/custom/blackjack.txt
index c3d5b8d8f..951af3f68 100644
--- a/npc/custom/blackjack.txt
+++ b/npc/custom/blackjack.txt
@@ -1,131 +1,129 @@
-//===== rAthena Script =======================================
+//===== rAthena Script =======================================
//= Black Jack
-//===== By: ==================================================
+//===== By: ==================================================
//= kobra_k88
-//===== Current Version: =====================================
+//===== Current Version: =====================================
//= 1.0
-//===== Compatible With: =====================================
-//=
-//===== Description: =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Black Jack card game. Gameplay based off standard casino
//= black jack rules. Dealer must have at least 17 to stay and will
//= automatically stay at 17 and up. Player must have at least
//= 13 to stay. Aces counted as 11 or 1. Option to "Double Down".
//= Currently does not allow for "insurance", or "splitting"
//= of pairs.
-//===== Additional Comments: =================================
-//=
-//============================================================
-
+//===== Additional Comments: =================================
+//=
+//============================================================
cmd_in02,188,89,1 script Black Jack Dealer 57,{
-
mes "[Dealer]";
mes "Hello there! Would you like to play a game of Black Jack?";
- M_Menu:
+M_Menu:
next;
menu "What are the rules?",M_0, "I want to play.",L_Play, "No thanks.",M_End;
- M_0:
- mes "[Dealer]";
- mes "What would you like to know?";
- sM_Menu0:
- next;
- menu "The basics.",sM_0a, "Winning and loosing.",sM_0b, "'Double Down'.",sM_0c,
- "Ace value.",sM_0d, "Nothing.",M_Menu;
+M_0:
+ mes "[Dealer]";
+ mes "What would you like to know?";
+sM_Menu0:
+ next;
+ menu "The basics.",sM_0a, "Winning and loosing.",sM_0b, "'Double Down'.",sM_0c,
+ "Ace value.",sM_0d, "Nothing.",M_Menu;
- sM_0a:
- mes "[Dealer]";
- mes "Black Jack is a card game in which the goal is to get 21, or as";
- mes "close to 21 points as possible, without going over 21.";
- next;
- mes "[Dealer]";
- mes "Before the game starts, the player must make a bet. Once the bet";
- mes "has been made, both the dealer and the player are dealt 2 cards";
- mes "each. Depending on what cards you have, you can choose to ^5533FF'stay'^000000,";
- mes "or you can choose to ^5533FF'pull'^000000.";
- next;
- mes "[Dealer]";
- mes "When you choose to 'stay', you are telling the dealer that you don't";
- mes "need anymore cards. This allows the dealer to pull if he/she";
- mes "wants to. In order to stay, you must have ^FF3355at least 13 points^000000. The";
- mes "dealer can only stay when he/she has^FF3355 17 points or more^000000.";
- next;
- mes "[Dealer]";
- mes "When you choose to 'pull', you are telling the dealer that you want";
- mes "another card. By pulling more cards you can increase your point";
- mes "total. As long has you have ^FF3355less than 21^000000 points you can pull a";
- mes "card from the deck.";
- goto sM_Menu0;
- sM_0b:
- mes "[Dealer]";
- mes "There are 3 ways to win and loose at Black Jack.";
- next;
- mes "[Dealer]";
- mes "1.) At the end of a Black Jack round, if you have more points";
- mes "than the dealer you will win the round. Conversely if you have";
- mes "less points than the dealer you will loose.";
- next;
- mes "[Dealer]";
- mes "2.) If you pull a card that makes your point total go over 21 you";
- mes "will automatically loose the round. This is called a ^5533FF'bust'^000000. If";
- mes "the dealer busts then you will win the round.";
- next;
- mes "[Dealer]";
- mes "3.) If you have a point total of 21 with the first 2 cards, you";
- mes "will automatically win the round. This is called a ^5533FF'Black Jack'^000000";
- mes "and happens when you get an 'Ace' and a '10 valued' card. If the";
- mes "dealer gets a Black Jack he/she will automatically win the round.";
- next;
- mes "[Dealer]";
- mes "4.) Besides winning and loosing, you can tie with the dealer. If";
- mes "both you and the dealer have the same point total at the end of a";
- mes "round, this will result in a tie with no winner and no loss or gain";
- mes "in money.";
- next;
- mes "[Dealer]";
- mes "This is called a ^5533FF'push'^000000 with the dealer. This also";
- mes "applies to both you and the dealer having Black Jack at the same";
- mes "time.";
- goto sM_Menu0;
- sM_0c:
- mes "[Dealer]";
- mes "The 'Double Down' option allows you to double your current bet,";
- mes "but with the drawback that you will only be able to pull one";
- mes "additional card. This option is only available at the beggining of";
- mes "each round.";
- next;
- mes "[Dealer]";
- mes "An example of when doubling down is useful, is when";
- mes "your first 2 cards give you a point total of 11. You have a good";
- mes "chance of getting 21 or 20 with the next card that you draw. This";
- mes "would be a good hand to double down on.";
- goto sM_Menu0;
- sM_0d:
- mes "[Dealer]";
- mes "The 'Ace' card is a unique card in the game of Black Jack because";
- mes "it can have 2 values. An Ace can be counted as either 11 points,";
- mes "or just 1 point. For example if you had an Ace and a 4, that would";
- mes "give you either 15 or 5 points.";
- next;
- mes "[Dealer]";
- mes "If you decided to stay, the Ace would automatically be counted as";
- mes "11 points to give you 15 points total.";
- next;
- mes "[Dealer]";
- mes "If you had decided to pull and received a 9, the ace would";
- mes "automatically be counted as 1 point to give you a total of 14";
- mes "points. If the Ace was counted as 11 points, you would have a";
- mes "point total over 21 and would have lost.";
- next;
- mes "[Dealer]";
- mes "It is because of the flexibilty you have with the 'Ace' that makes";
- mes "it the most powerfull card in the game.";
- goto sM_Menu0;
- M_End:
- mes "[Dealer]";
- mes "Feel free to come back anytime";
- close;
+sM_0a:
+ mes "[Dealer]";
+ mes "Black Jack is a card game in which the goal is to get 21, or as";
+ mes "close to 21 points as possible, without going over 21.";
+ next;
+ mes "[Dealer]";
+ mes "Before the game starts, the player must make a bet. Once the bet";
+ mes "has been made, both the dealer and the player are dealt 2 cards";
+ mes "each. Depending on what cards you have, you can choose to ^5533FF'stay'^000000,";
+ mes "or you can choose to ^5533FF'pull'^000000.";
+ next;
+ mes "[Dealer]";
+ mes "When you choose to 'stay', you are telling the dealer that you don't";
+ mes "need anymore cards. This allows the dealer to pull if he/she";
+ mes "wants to. In order to stay, you must have ^FF3355at least 13 points^000000. The";
+ mes "dealer can only stay when he/she has^FF3355 17 points or more^000000.";
+ next;
+ mes "[Dealer]";
+ mes "When you choose to 'pull', you are telling the dealer that you want";
+ mes "another card. By pulling more cards you can increase your point";
+ mes "total. As long has you have ^FF3355less than 21^000000 points you can pull a";
+ mes "card from the deck.";
+ goto sM_Menu0;
+sM_0b:
+ mes "[Dealer]";
+ mes "There are 3 ways to win and loose at Black Jack.";
+ next;
+ mes "[Dealer]";
+ mes "1.) At the end of a Black Jack round, if you have more points";
+ mes "than the dealer you will win the round. Conversely if you have";
+ mes "less points than the dealer you will loose.";
+ next;
+ mes "[Dealer]";
+ mes "2.) If you pull a card that makes your point total go over 21 you";
+ mes "will automatically loose the round. This is called a ^5533FF'bust'^000000. If";
+ mes "the dealer busts then you will win the round.";
+ next;
+ mes "[Dealer]";
+ mes "3.) If you have a point total of 21 with the first 2 cards, you";
+ mes "will automatically win the round. This is called a ^5533FF'Black Jack'^000000";
+ mes "and happens when you get an 'Ace' and a '10 valued' card. If the";
+ mes "dealer gets a Black Jack he/she will automatically win the round.";
+ next;
+ mes "[Dealer]";
+ mes "4.) Besides winning and loosing, you can tie with the dealer. If";
+ mes "both you and the dealer have the same point total at the end of a";
+ mes "round, this will result in a tie with no winner and no loss or gain";
+ mes "in money.";
+ next;
+ mes "[Dealer]";
+ mes "This is called a ^5533FF'push'^000000 with the dealer. This also";
+ mes "applies to both you and the dealer having Black Jack at the same";
+ mes "time.";
+ goto sM_Menu0;
+sM_0c:
+ mes "[Dealer]";
+ mes "The 'Double Down' option allows you to double your current bet,";
+ mes "but with the drawback that you will only be able to pull one";
+ mes "additional card. This option is only available at the beggining of";
+ mes "each round.";
+ next;
+ mes "[Dealer]";
+ mes "An example of when doubling down is useful, is when";
+ mes "your first 2 cards give you a point total of 11. You have a good";
+ mes "chance of getting 21 or 20 with the next card that you draw. This";
+ mes "would be a good hand to double down on.";
+ goto sM_Menu0;
+sM_0d:
+ mes "[Dealer]";
+ mes "The 'Ace' card is a unique card in the game of Black Jack because";
+ mes "it can have 2 values. An Ace can be counted as either 11 points,";
+ mes "or just 1 point. For example if you had an Ace and a 4, that would";
+ mes "give you either 15 or 5 points.";
+ next;
+ mes "[Dealer]";
+ mes "If you decided to stay, the Ace would automatically be counted as";
+ mes "11 points to give you 15 points total.";
+ next;
+ mes "[Dealer]";
+ mes "If you had decided to pull and received a 9, the ace would";
+ mes "automatically be counted as 1 point to give you a total of 14";
+ mes "points. If the Ace was counted as 11 points, you would have a";
+ mes "point total over 21 and would have lost.";
+ next;
+ mes "[Dealer]";
+ mes "It is because of the flexibilty you have with the 'Ace' that makes";
+ mes "it the most powerfull card in the game.";
+ goto sM_Menu0;
+M_End:
+ mes "[Dealer]";
+ mes "Feel free to come back anytime";
+ close;
//================
L_Play:
@@ -134,29 +132,29 @@ L_Play:
next;
menu "2z",M_1a, "10z",M_1b, "20z",M_1c, "100z",M_1d, "Too rich for my blood....",M_End;
- M_1a:
- if(Zeny < 2) goto sL_NotEnuf;
- set @bet, 2;
- goto L_Cont0;
- M_1b:
- if(Zeny < 10) goto sL_NotEnuf;
- set @bet, 10;
- goto L_Cont0;
- M_1c:
- if(Zeny < 20) goto sL_NotEnuf;
- set @bet, 20;
- goto L_Cont0;
- M_1d:
- if(Zeny < 100) goto sL_NotEnuf;
- set @bet, 100;
- goto L_Cont0;
+M_1a:
+ if(Zeny < 2) goto sL_NotEnuf;
+ set @bet, 2;
+ goto L_Cont0;
+M_1b:
+ if(Zeny < 10) goto sL_NotEnuf;
+ set @bet, 10;
+ goto L_Cont0;
+M_1c:
+ if(Zeny < 20) goto sL_NotEnuf;
+ set @bet, 20;
+ goto L_Cont0;
+M_1d:
+ if(Zeny < 100) goto sL_NotEnuf;
+ set @bet, 100;
+ goto L_Cont0;
- sL_NotEnuf:
- mes "[Dealer]";
- mes "I'm sorry but you don't have enough zeny to make that bet.";
- close;
+sL_NotEnuf:
+ mes "[Dealer]";
+ mes "I'm sorry but you don't have enough zeny to make that bet.";
+ close;
- L_Cont0:
+L_Cont0:
mes "(the cards are being dealt)";
next;
deletearray $@card[0],13;
@@ -197,35 +195,35 @@ L_Start:
if(@numP==2 && @dealerTurn==0) menu "Hit me(pull)",M_Hit, "Stay",M_Stay, "Double Down",M_Double;
if(@dealerTurn == 0) menu "Hit me(pull)",M_Hit, "Stay",M_Stay;
- M_Stay:
- mes "[Dealer]";
- if(@playTot < 13) goto sL_PlayToLow;
- if(@dealTot > 16) mes "The Dealer stays.";
- if(@dealTot > 16 || @numD == 5) goto L_Check;
- mes "The Dealer is going to pull";
- next;
- callsub sF_GetCards, @numD, @dealCard[@numD], @dealCard$[@numD], @dAce;
- set @dealerTurn, 1;
- goto L_Start;
+M_Stay:
+ mes "[Dealer]";
+ if(@playTot < 13) goto sL_PlayToLow;
+ if(@dealTot > 16) mes "The Dealer stays.";
+ if(@dealTot > 16 || @numD == 5) goto L_Check;
+ mes "The Dealer is going to pull";
+ next;
+ callsub sF_GetCards, @numD, @dealCard[@numD], @dealCard$[@numD], @dAce;
+ set @dealerTurn, 1;
+ goto L_Start;
- sL_PlayToLow:
- mes "I'm sorry but you do not have a high enough total to stay. You must pull.";
- next;
- goto M_Hit;
+sL_PlayToLow:
+ mes "I'm sorry but you do not have a high enough total to stay. You must pull.";
+ next;
+ goto M_Hit;
- M_Hit:
- if(@numP == 5) goto M_Stay;
- callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
- goto L_Start;
- M_Double:
- mes "[Dealer]";
- mes "Player has chosen to Double Down. You're current bet will be";
- mes "doubled, and you will only be able to pull 1 extra card.";
- next;
- set @dealerTurn, 1;
- set @bet, @bet*2;
- callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
- goto L_Start;
+M_Hit:
+ if(@numP == 5) goto M_Stay;
+ callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
+ goto L_Start;
+M_Double:
+ mes "[Dealer]";
+ mes "Player has chosen to Double Down. You're current bet will be";
+ mes "doubled, and you will only be able to pull 1 extra card.";
+ next;
+ set @dealerTurn, 1;
+ set @bet, @bet*2;
+ callsub sF_GetCards, @numP, @playCard[@numP], @playCard$[@numP], @pAce;
+ goto L_Start;
//=============
L_Check:
@@ -233,27 +231,27 @@ L_Check:
if(@playTot < @dealTot) goto sL_Lose;
if(@playTot == @dealTot) goto sL_Push;
- sL_Win:
- mes "[Dealer]";
- mes "Congratulations, you've won!";
- next;
- set Zeny, Zeny + @bet;
- goto L_Play;
- sL_Lose:
- mes "[Dealer]";
- mes "I'm sorry but you've lost.";
- set Zeny, Zeny - @bet;
- next;
- goto L_Play;
- sL_Push:
- mes "[Dealer]";
- mes "Its a push. You tied with the Dealer.";
- next;
- goto L_Play;
+sL_Win:
+ mes "[Dealer]";
+ mes "Congratulations, you've won!";
+ next;
+ set Zeny, Zeny + @bet;
+ goto L_Play;
+sL_Lose:
+ mes "[Dealer]";
+ mes "I'm sorry but you've lost.";
+ set Zeny, Zeny - @bet;
+ next;
+ goto L_Play;
+sL_Push:
+ mes "[Dealer]";
+ mes "Its a push. You tied with the Dealer.";
+ next;
+ goto L_Play;
//==================================
-// Sub function for dealing/pulling the cards
+ // Sub function for dealing/pulling the cards
sF_GetCards:
set @rnd, rand(1,13);
if($@card[@rnd] == 4) goto sF_GetCards;
@@ -272,28 +270,28 @@ sF_GetCards:
return;
//==================================
-// Sub function for getting the total score for each hand
+ // Sub function for getting the total score for each hand
sF_GetTot:
set @i, 0;
set @dealTot, 0;
set @playTot, 0;
- GetDealTot:
- set @dealTot, @dealTot + @dealCard[@i];
- set @i, @i + 1;
- if(@i < @numD) goto GetDealTot;
- if(@dAce == 1 && @dealTot > 21) set @dealTot, @dealTot - 10;
- set @i, 0;
- GetPlayTot:
- set @playTot, @playTot + @playCard[@i];
- set @i, @i + 1;
- if(@i < @numP) goto GetPlayTot;
- if(@pAce == 1 && @playTot > 21) set @pAce, 2;
- if(@pAce > 0 && @playTot > 21) set @playTot, @playTot - 10;
+GetDealTot:
+ set @dealTot, @dealTot + @dealCard[@i];
+ set @i, @i + 1;
+ if(@i < @numD) goto GetDealTot;
+ if(@dAce == 1 && @dealTot > 21) set @dealTot, @dealTot - 10;
+ set @i, 0;
+GetPlayTot:
+ set @playTot, @playTot + @playCard[@i];
+ set @i, @i + 1;
+ if(@i < @numP) goto GetPlayTot;
+ if(@pAce == 1 && @playTot > 21) set @pAce, 2;
+ if(@pAce > 0 && @playTot > 21) set @playTot, @playTot - 10;
return;
//=======================================
-// Sub function for displaying the Cards
+ // Sub function for displaying the Cards
sF_D2cards:
mes " .-----. .-----. ";
mes " | "+@dealCard$[0]+" | | "+@dealCard$[1]+" | ";
diff --git a/npc/custom/breeder.txt b/npc/custom/breeder.txt
index cec5fc522..580042b45 100644
--- a/npc/custom/breeder.txt
+++ b/npc/custom/breeder.txt
@@ -1,53 +1,53 @@
-//===== rAthena Script =======================================
-//= Custom Free Breeder aka Universal Renter (not reccomended)
-//===== By: ==================================================
-//= rAthena Team
-//===== Current Version: =====================================
+//===== rAthena Script =======================================
+//= Universal Rental NPC
+//===== By: ==================================================
+//= rAthena Dev Team
+//===== Current Version: =====================================
//= 1.3a
-//===== Compatible With: =====================================
-//= rAthena 1.0 Final +
-//===== Description: =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= A Free PecoPeco and Falcon Breeder
-//===== Additional Comments: =================================
+//===== Additional Comments: =================================
//= 1.1 FIXED checkriding/cart/falcon funcs [Lupus]
//= 1.2 Added Rebirth/Advanced Class support [Mass Zero]
//= 1.3 Simplified the checks of job [Silentdragon]
//= 1.3a Fixed a Typo Error. [Samuray22]
-// -Thanks to ~AnnieRuru~.
+//= Thanks to ~AnnieRuru~.
//= 1.4 Optimized Script. No need for 50 million Labels. [Spre]
-//============================================================
-
+//============================================================
+
prontera,124,201,1 script Universal Rental Npc 726,{
mes "[Universal Rental Npc]";
mes "Hi, here you can rent Carts, Falcons or Pecopecos.";
next;
switch(select("Cart:Falcon:Peco")) {
- case 1:
- if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0 && getskilllv("MC_PUSHCART")>0) {
- setcart;
- close;
- }else{
- mes "[Universal Rental Npc]";
- mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
- close;
- }
- case 2:
- if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0 && getskilllv("HT_FALCON")>0) {
- setfalcon;
- close;
- }else{
- mes "[Universal Rental Npc]";
- mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
- close;
- }
- case 3:
- if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0 && getskilllv("KN_RIDING")>0) {
- setriding;
- close;
- }else{
- mes "[Universal Rental Npc]";
- mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
- close;
- }
+ case 1:
+ if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0 && getskilllv("MC_PUSHCART")>0) {
+ setcart;
+ close;
+ } else {
+ mes "[Universal Rental Npc]";
+ mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
+ close;
+ }
+ case 2:
+ if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0 && getskilllv("HT_FALCON")>0) {
+ setfalcon;
+ close;
+ } else {
+ mes "[Universal Rental Npc]";
+ mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
+ close;
+ }
+ case 3:
+ if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0 && getskilllv("KN_RIDING")>0) {
+ setriding;
+ close;
+ } else {
+ mes "[Universal Rental Npc]";
+ mes "Sorry " + strcharinfo(0) + ", Please make sure you are the required job and have the required skill.";
+ close;
+ }
}
}
diff --git a/npc/custom/card_remover.txt b/npc/custom/card_remover.txt
index c336c0cda..e0b40272d 100644
--- a/npc/custom/card_remover.txt
+++ b/npc/custom/card_remover.txt
@@ -1,99 +1,99 @@
-//===== rAthena Script =======================================
+//===== rAthena Script =======================================
//= Card Removal NPC
-//===== By: ==================================================
+//===== By: ==================================================
//= TyrNemesis^
-//===== Current Version: =====================================
+//===== Current Version: =====================================
//= 1.2
-//===== Compatible With: =====================================
+//===== Compatible With: =====================================
//= rAthena SVN
-//===== Description: =========================================
+//===== Description: =========================================
//= Removes cards from equipped items.
-//===== Additional Comments: =================================
+//===== Additional Comments: =================================
//= 1.0 First version. [TyrNemesis^]
//= 1.2 Optimized and fixed getequipname menu. [Kisuka]
-//============================================================
+//============================================================
prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{
mes "[Wise Old Woman]";
mes "Good day, young one. I have the power to remove cards that you have compounded onto your equipment. Does this idea please you?";
next;
switch(select("Yes, it does.:What do you charge?:No thanks.")) {
- case 1:
- mes "[Wise Old Woman]";
- mes "Very well. Which item shall I examine for you?";
- next;
+ case 1:
+ mes "[Wise Old Woman]";
+ mes "Very well. Which item shall I examine for you?";
+ next;
- setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
- set .@menu$,"";
- for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
- {
- if( getequipisequiped(.@i) )
- set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
+ setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
+ set .@menu$,"";
+ for( set .@i,1; .@i <= 10; set .@i,.@i+1 )
+ {
+ if( getequipisequiped(.@i) )
+ set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
- set .@menu$, .@menu$ + ":";
- }
- set .@part,select(.@menu$);
- if(!getequipisequiped(.@part)) {
- mes "[Wise Old Woman]";
- mes "Young one... Your not wearing anything there that I can remove cards from.";
- close;
- }
- if(getequipcardcnt(.@part) == 0) {
- mes "[Wise Old Woman]";
- mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
- close;
- }
- set .@cardcount,getequipcardcnt(.@part);
-
- if (!checkweight(1202,(.@cardcount+1))) {
- mes "^3355FFJust a minute!";
- mes "I can't offer any of my";
- mes "services to you because";
- mes "you're carrying too much";
- mes "stuff. Put your extra items in";
- mes "Kafra Storage and come again~";
- close;
- }
+ set .@menu$, .@menu$ + ":";
+ }
+ set .@part,select(.@menu$);
+ if(!getequipisequiped(.@part)) {
mes "[Wise Old Woman]";
- mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(.@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
- next;
- if(select("Very well. Do it.:Nevermind.") == 2) {
- mes "[Wise Old Woman]";
- mes "Very well. Return at once if you seek my services.";
- close;
- }
- if((zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) {
- mes "[Wise Old Woman]";
- mes "You do not have all the items I require to work my magic, child. Come again when you do.";
- close;
- }
+ mes "Young one... Your not wearing anything there that I can remove cards from.";
+ close;
+ }
+ if(getequipcardcnt(.@part) == 0) {
mes "[Wise Old Woman]";
- mes "Before I begin, I must warn you--I may fail. If I do, I may destroy the cards, the item, or both. I do not give refunds. That being said, which is more important to you: The cards, or the item?";
- next;
- switch(select("I changed my mind about this.:The item.:The cards.")) {
- case 1:
- mes "[Wise Old Woman]";
- mes "Very well. Return at once if you seek my services.";
- close;
- case 2:
- set .@failtype,1;
- break;
- case 3:
- set .@failtype,2;
- }
+ mes "Young one... There are no cards compounded on this item. I can do nothing with it, I'm afraid.";
+ close;
+ }
+ set .@cardcount,getequipcardcnt(.@part);
+
+ if (!checkweight(1202,(.@cardcount+1))) {
+ mes "^3355FFJust a minute!";
+ mes "I can't offer any of my";
+ mes "services to you because";
+ mes "you're carrying too much";
+ mes "stuff. Put your extra items in";
+ mes "Kafra Storage and come again~";
+ close;
+ }
+ mes "[Wise Old Woman]";
+ mes "This item has " + .@cardcount + " cards compounded on it. To perform my magic, I will need " + (200000+(.@cardcount * 25000)) + " zeny, a ^0000FFStar Crumb^000000, and a ^0000FFYellow Gemstone^000000.";
+ next;
+ if(select("Very well. Do it.:Nevermind.") == 2) {
+ mes "[Wise Old Woman]";
+ mes "Very well. Return at once if you seek my services.";
+ close;
+ }
+ if((zeny < (200000+(.@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) {
mes "[Wise Old Woman]";
- mes "Very well. I shall begin.";
- set zeny,zeny - (200000+(.@cardcount * 25000));
- delitem 1000,1;
- delitem 715,1;
-
- // Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
- // First value = Total failure chance (item and cards destroyed)
- // Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
- // Third value = Harmless failure chance (all that's lost is your investment)
+ mes "You do not have all the items I require to work my magic, child. Come again when you do.";
+ close;
+ }
+ mes "[Wise Old Woman]";
+ mes "Before I begin, I must warn you--I may fail. If I do, I may destroy the cards, the item, or both. I do not give refunds. That being said, which is more important to you: The cards, or the item?";
+ next;
+ switch(select("I changed my mind about this.:The item.:The cards.")) {
+ case 1:
+ mes "[Wise Old Woman]";
+ mes "Very well. Return at once if you seek my services.";
+ close;
+ case 2:
+ set .@failtype,1;
+ break;
+ case 3:
+ set .@failtype,2;
+ }
+ mes "[Wise Old Woman]";
+ mes "Very well. I shall begin.";
+ set zeny,zeny - (200000+(.@cardcount * 25000));
+ delitem 1000,1;
+ delitem 715,1;
+
+ // Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
+ // First value = Total failure chance (item and cards destroyed)
+ // Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
+ // Third value = Harmless failure chance (all that's lost is your investment)
- set .@failchance,rand(100);
- /*
+ set .@failchance,rand(100);
+ /*
if(.@failchance < 2) {
next;
failedremovecards .@part,0;
@@ -105,7 +105,7 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{
if(.@failchance < 8) {
if (.@failtype == 1) {
next;
- failedremovecards .@part,1;
+ failedremovecards .@part,1;
mes "[Wise Old Woman]";
mes "While I have managed to remove the cards from the item, they were destroyed in the process. The item, however, is okay.";
close;
@@ -116,30 +116,30 @@ prt_in,28,73,4 script Wise Old Woman#eAcustom 78,{
failedremovecards .@part,2;
mes "[Wise Old Woman]";
mes "Most unfortunate. I succeeded at removing the cards, but the item itself was destroyed in the process.";
- close;
+ close;
}
}
*/
- if(.@failchance < 10) {
- next;
- failedremovecards .@part,3;
- mes "[Wise Old Woman]";
- mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
- close;
- }
+ if(.@failchance < 10) {
next;
- successremovecards .@part;
+ failedremovecards .@part,3;
mes "[Wise Old Woman]";
- mes "The process was a success. Here are your cards and your item. Farewell.";
- close;
- case 2:
- mes "[Wise Old Woman]";
- mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic.";
- close;
- case 3:
- mes "[Wise Old Woman]";
- mes "Very well. Return at once if you seek my services.";
+ mes "I have failed to remove the cards. Luckily, however, both the item and the cards are still okay.";
close;
+ }
+ next;
+ successremovecards .@part;
+ mes "[Wise Old Woman]";
+ mes "The process was a success. Here are your cards and your item. Farewell.";
+ close;
+ case 2:
+ mes "[Wise Old Woman]";
+ mes "I charge a flat fee of 200000 zeny, plus 25000 zeny for each card I remove from the item. In addition, I need a star crumb and a yellow gemstone to work my magic.";
+ close;
+ case 3:
+ mes "[Wise Old Woman]";
+ mes "Very well. Return at once if you seek my services.";
+ close;
}
}
diff --git a/npc/custom/dye.txt b/npc/custom/dye.txt
index 33571ba19..19fd2250b 100644
--- a/npc/custom/dye.txt
+++ b/npc/custom/dye.txt
@@ -1,27 +1,24 @@
-//===== rAthena Script =======================================
-//= Stylist Script
-//===== By: ==================================================
-//= rAthena Dev team
-//= Revised by Nekosume [pyRO v3.0]
-//===== Current Version: =====================================
+//===== rAthena Script =======================================
+//= Stylist
+//===== By: ==================================================
+//= Nekosume
+//===== Current Version: =====================================
//= 4.2
-//===== Compatible With: =====================================
-//= Any rAthena Version
-//===== Description: =========================================
-//= Revised dye NPC
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= Changes your hair style, hair color, and cloth color.
//===== Additional Comments: =================================
-//= v4.2 - Renamed to avoid conflict [Paradox924X]
-//= v4.1 - New hairstyles added [Mass Zero]
-//= v4.0 - Refined and Combined [Darkchild]
-//= v3.0 - Added the 'Browse' options
-//= v2.5 - Added more hair colors
-//= v2.0 - Changed palette and hair style select
-//= v1.5 - Revised script / different dialog
-//= v1.0 - Split into two NPCs
-//============================================================
+//= 1.0 - Split into two NPCs
+//= 1.5 - Revised script / different dialog
+//= 2.0 - Changed palette and hair style select
+//= 2.5 - Added more hair colors
+//= 3.0 - Added the 'Browse' options
+//= 4.0 - Refined and Combined [Darkchild]
+//= 4.1 - New hairstyles added [Mass Zero]
+//= 4.2 - Renamed to avoid conflict [Paradox924X]
+//============================================================
-
-//Stylist------------------------------------------------------------------------------------------------------------
prontera,170,180,1 script Stylist#custom_stylist 122,{
mes "[^FF8000Stylist^000000]";
mes "I'm the greatest stylist in all of Rune-Midgard~~!";
@@ -30,147 +27,147 @@ prontera,170,180,1 script Stylist#custom_stylist 122,{
next;
menu "Hair style",Lstyle,"Hair color",Lcolor,"Cloth Color",Lcloth,"Nothing",LCancel;
- Lstyle:
- mes "[^FF8000Stylist^000000]";
- mes "Do you want to browse through the choices, or do you know what you want?";
- next;
- menu "Browse",Lbrowsesty,"I know what I want",Lwantsty;
+Lstyle:
+ mes "[^FF8000Stylist^000000]";
+ mes "Do you want to browse through the choices, or do you know what you want?";
+ next;
+ menu "Browse",Lbrowsesty,"I know what I want",Lwantsty;
- Lwantsty:
- mes "[^FF8000Stylist^000000]";
- mes "Great! Now just pick a style and I'll get started!";
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Please pick a style number ^0000FFbetween 0 and 23^000000.";
- mes "Number 0, by the way, is the default style for your character.";
- next;
- input @sty;
- if (@sty>23) close;
- if (@sty<0) close;
- setlook 1,@sty;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Is this good, or do you want a different style?";
- next;
- menu "This is good",-,"Different style, please",Lwantsty;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "You look great~! Come back again, okay?";
- close;
+Lwantsty:
+ mes "[^FF8000Stylist^000000]";
+ mes "Great! Now just pick a style and I'll get started!";
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Please pick a style number ^0000FFbetween 0 and 23^000000.";
+ mes "Number 0, by the way, is the default style for your character.";
+ next;
+ input @sty;
+ if (@sty>23) close;
+ if (@sty<0) close;
+ setlook 1,@sty;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Is this good, or do you want a different style?";
+ next;
+ menu "This is good",-,"Different style, please",Lwantsty;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "You look great~! Come back again, okay?";
+ close;
- Lbrowsesty:
- set @look, -1;
- mes "[^FF8000Stylist^000000]";
- mes "Okay, here we go~! Just stop me when you see something you like, okay?";
- next;
+Lbrowsesty:
+ set @look, -1;
+ mes "[^FF8000Stylist^000000]";
+ mes "Okay, here we go~! Just stop me when you see something you like, okay?";
+ next;
- Lbrowserep:
- set @look,@look+1;
- setlook 1,@look;
- mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
- if(@look == 23) menu "Back To The Begin",Lbrowsesty,"I like this one",Lstop;
- if(@look != 23) menu "Keep going",Lbrowserep,"I like this one",Lstop;
-
- Lcolor:
- mes "[^FF8000Stylist^000000]";
- mes "Do you want to browse through the choices, or do you know what you want?";
- next;
- menu "Browse",Lbrowsecolor,"I know what I want",Lwantcolor;
+Lbrowserep:
+ set @look,@look+1;
+ setlook 1,@look;
+ mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
+ if(@look == 23) menu "Back To The Begin",Lbrowsesty,"I like this one",Lstop;
+ if(@look != 23) menu "Keep going",Lbrowserep,"I like this one",Lstop;
+
+Lcolor:
+ mes "[^FF8000Stylist^000000]";
+ mes "Do you want to browse through the choices, or do you know what you want?";
+ next;
+ menu "Browse",Lbrowsecolor,"I know what I want",Lwantcolor;
- Lwantcolor:
- mes "[^FF8000Stylist^000000]";
- mes "Just pick a color and we can get started.";
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Please pick a style number ^0000FFbetween 0 and 20^000000.";
- mes "Number 0, by the way, is the default color for your character.";
- next;
- mes "[^FF8000Stylist^000000]";
- mes "0 is default...";
- mes "1 is blonde...";
- mes "2 is lavender...";
- mes "3 is brown...";
- mes "4 is green...";
- mes "5 is blue...";
- mes "6 is white...";
- mes "7 is black...";
- mes "8 is red...";
- mes "and 9-20 are new colors.";
- input @color;
- if (@color>20) close;
- if (@color<0) close;
- setlook 6,@color;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Is this good, or do you want a different color?";
- next;
- menu "This is good",-,"Different color, please",Lwantcolor;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "You look great~! Come back again, okay?";
- close;
+Lwantcolor:
+ mes "[^FF8000Stylist^000000]";
+ mes "Just pick a color and we can get started.";
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Please pick a style number ^0000FFbetween 0 and 20^000000.";
+ mes "Number 0, by the way, is the default color for your character.";
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "0 is default...";
+ mes "1 is blonde...";
+ mes "2 is lavender...";
+ mes "3 is brown...";
+ mes "4 is green...";
+ mes "5 is blue...";
+ mes "6 is white...";
+ mes "7 is black...";
+ mes "8 is red...";
+ mes "and 9-20 are new colors.";
+ input @color;
+ if (@color>20) close;
+ if (@color<0) close;
+ setlook 6,@color;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Is this good, or do you want a different color?";
+ next;
+ menu "This is good",-,"Different color, please",Lwantcolor;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "You look great~! Come back again, okay?";
+ close;
- Lbrowsecolor:
- set @look, -1;
- mes "[^FF8000Stylist^000000]";
- mes "Okay, here we go~! Just stop me when you see something you like, okay?";
- next;
+Lbrowsecolor:
+ set @look, -1;
+ mes "[^FF8000Stylist^000000]";
+ mes "Okay, here we go~! Just stop me when you see something you like, okay?";
+ next;
- Lbrowsecolorrep:
- set @look,@look+1;
- setlook 6,@look;
- mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
- if(@look == 20) menu "Back To The Begin",Lbrowsecolor,"I like this one",Lstop;
- if(@look != 20) menu "Keep going",Lbrowsecolorrep,"I like this one",Lstop;
+Lbrowsecolorrep:
+ set @look,@look+1;
+ setlook 6,@look;
+ mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
+ if(@look == 20) menu "Back To The Begin",Lbrowsecolor,"I like this one",Lstop;
+ if(@look != 20) menu "Keep going",Lbrowsecolorrep,"I like this one",Lstop;
- Lstop:
- mes "[^FF8000Stylist^000000]";
- mes "You look great~! I love it~! ^_^";
- close;
+Lstop:
+ mes "[^FF8000Stylist^000000]";
+ mes "You look great~! I love it~! ^_^";
+ close;
- LCancel:
- mes "[^FF8000Stylist^000000]";
- mes "Well come again.";
- close;
+LCancel:
+ mes "[^FF8000Stylist^000000]";
+ mes "Well come again.";
+ close;
- Lcloth:
- mes "[^FF8000Stylist^000000]";
- mes "Do you want to browse through the choices, or do you know what you want?";
- next;
- menu "Browse",Lbrowsecloth,"I know what I want",Lwantcloth;
+Lcloth:
+ mes "[^FF8000Stylist^000000]";
+ mes "Do you want to browse through the choices, or do you know what you want?";
+ next;
+ menu "Browse",Lbrowsecloth,"I know what I want",Lwantcloth;
- Lwantcloth:
- mes "[^FF8000Stylist^000000]";
- mes "Great! Now just pick a pallete and I'll get started!";
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Please pick a style number ^0000FFbetween 0 and 77^000000.";
- mes "Number 0, by the way, is the default style for your character.";
- next;
- input @pal;
- if (@pal>77) close;
- if (@pal<0) close;
- setlook 7,@pal;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "Is this good, or do you want a different pallet";
- next;
- menu "This is good",-,"Different pallet, please",Lwantcloth;
- next;
- mes "[^FF8000Stylist^000000]";
- mes "You look great~! Come back again, okay?";
- close;
+Lwantcloth:
+ mes "[^FF8000Stylist^000000]";
+ mes "Great! Now just pick a pallete and I'll get started!";
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Please pick a style number ^0000FFbetween 0 and 77^000000.";
+ mes "Number 0, by the way, is the default style for your character.";
+ next;
+ input @pal;
+ if (@pal>77) close;
+ if (@pal<0) close;
+ setlook 7,@pal;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "Is this good, or do you want a different pallet";
+ next;
+ menu "This is good",-,"Different pallet, please",Lwantcloth;
+ next;
+ mes "[^FF8000Stylist^000000]";
+ mes "You look great~! Come back again, okay?";
+ close;
- Lbrowsecloth:
- set @look, -1;
- mes "[^FF8000Stylist^000000]";
- mes "Okay, here we go~! Just stop me when you see something you like, okay?";
- next;
+Lbrowsecloth:
+ set @look, -1;
+ mes "[^FF8000Stylist^000000]";
+ mes "Okay, here we go~! Just stop me when you see something you like, okay?";
+ next;
- Lbrowseclothrep:
- set @look,@look+1;
- setlook 7,@look;
- mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
- if(@look == 77) menu "Back To The Begin",Lbrowsecloth,"I like this one",Lstop;
- if(@look != 77) menu "Keep going",Lbrowseclothrep,"I like this one",Lstop;
+Lbrowseclothrep:
+ set @look,@look+1;
+ setlook 7,@look;
+ mes "This is Pallete Number^FF9009 "+@look+" ^000000!";
+ if(@look == 77) menu "Back To The Begin",Lbrowsecloth,"I like this one",Lstop;
+ if(@look != 77) menu "Keep going",Lbrowseclothrep,"I like this one",Lstop;
}
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
+}
diff --git a/npc/custom/events/2006_dogs_year.txt b/npc/custom/events/2006_dogs_year.txt
index d9df6e373..494fbb3bc 100644
--- a/npc/custom/events/2006_dogs_year.txt
+++ b/npc/custom/events/2006_dogs_year.txt
@@ -5,18 +5,17 @@
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= rAthena Version; 5xxx+ (with 'disguise' command)
+//= rAthena SVN; 5000+ (with 'disguise' command)
//===== Description: =========================================
//= Custom event: For 28-29 January
//===== Additional Comments: =================================
//= 1.0 Tested, fully working.[Lupus]
-//= Add some national info in English if you can.
-//= (Mine was in Russian, and it's damn hard to translate 8)
+//= Add some national info in English if you can.
+//= (Mine was in Russian, and it's damn hard to translate 8)
//= 1.1 Commented out monster spawn as it is a custom mob and [L0ne_W0lf]
-// not in the mob database.
+//= not in the mob database.
//============================================================
-
prontera,149,167,6 script Maria 81,{
mes "[Maria]";
//month
diff --git a/npc/custom/events/draculax.txt b/npc/custom/events/draculax.txt
index 1abd4e21d..13eb8fc8f 100644
--- a/npc/custom/events/draculax.txt
+++ b/npc/custom/events/draculax.txt
@@ -1,16 +1,15 @@
//===== rAthena Script =======================================
-//= Dracula X Script
+//= Dracula X
//===== By: ==================================================
//= valaris (1.0)
//===== Current Version: =====================================
//= 1.0a
//===== Compatible With: =====================================
-//= rAthena RC4+
+//= rAthena SVN
//===== Description: =========================================
//= Custom Dracula X Event
//============================================================
-
mag_dun02,72,182,1 script Dracula's Coffin::Dracula_Init -1,{
OnInit:
diff --git a/npc/custom/events/hallow06.txt b/npc/custom/events/hallow06.txt
index 9485abdc6..57c4ebdf6 100644
--- a/npc/custom/events/hallow06.txt
+++ b/npc/custom/events/hallow06.txt
@@ -5,15 +5,14 @@
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= Latest Svn
+//= rAthena SVN
//===== Description: =========================================
//= Halloween Event Script
//===== Additional Comments: =================================
-//= Version 1.1 - Added trick to script
+//= 1.1 - Added trick to script
//= 1.2 fixed bugs, optimized. Now uses 1 var instead of 3 [Lupus]
//============================================================
-
prontera,151,190,5 script Hallows' Eve Event 807,{
mes "[Hallows' Eve Event]";
if(Class == Job_Novice){
diff --git a/npc/custom/events/hyegun_event.txt b/npc/custom/events/hyegun_event.txt
index 2a96dc57f..084df8eca 100644
--- a/npc/custom/events/hyegun_event.txt
+++ b/npc/custom/events/hyegun_event.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
-//= Any Athena Version I think
+//= rAthena SVN
//===== Description: =========================================
//= Event similar to iRO's Christmas event when searching for Antonios.
//===== Additional Comments: =================================
@@ -20,13 +20,13 @@ in_sphinx1,0,0,0,0 monster Hyegun 1512,3,180000,30000,0
//Munak Quest
pay_dun01,53,269,6 script Munak 1026,{
-if(event_hyegun==3) goto Lfinished;
-mes "[^FF0000Munak^000000]";
-mes "Hello, kinda strange talking to a Munak huh?";
-mes "I'm a friendly Munak that wants to tell you something.";
-menu "Listen to her story",Lok,"Leave",Lno;
+ if(event_hyegun==3) goto Lfinished;
+ mes "[^FF0000Munak^000000]";
+ mes "Hello, kinda strange talking to a Munak huh?";
+ mes "I'm a friendly Munak that wants to tell you something.";
+ menu "Listen to her story",Lok,"Leave",Lno;
- Lok:
+Lok:
mes "[^FF0000Munak^000000]";
mes "Well see our father ^666600HyeGun^000000 has been terrible to us Munaks.";
mes "We would like you to get revenge for what he has done to us.";
@@ -37,7 +37,7 @@ menu "Listen to her story",Lok,"Leave",Lno;
mes "Remember, you may only do this quest ^FF00003 times.";
menu "Info about HyeGun",Lhyeinfo,"Give her the items",Litem,"Leave",Lno;
- Lhyeinfo:
+Lhyeinfo:
mes "[^FF0000Munak^000000]";
mes "- HyeGun looks like us but he's a tanish color type with long hair.";
mes "- He's been last seen in the first level of the 4 most popular dungeons.";
@@ -45,7 +45,7 @@ menu "Listen to her story",Lok,"Leave",Lno;
mes "Anything else?";
menu "Info about HyeGun",Lhyeinfo,"Give her the items",Litem,"Leave",Lno;
- Litem:
+Litem:
mes "[^FF0000Munak^000000]";
mes "Ahh so you've completed the task so soon?";
mes "Good job";
@@ -59,17 +59,17 @@ menu "Listen to her story",Lok,"Leave",Lno;
set event_hyegun,event_hyegun+1;
close;
- Lfinished:
+Lfinished:
mes "[^FF0000Munak^000000]";
mes "I'm sorry, you've already completed my task 3 times.";
close;
- Lno:
+Lno:
mes "[^FF0000Munak^000000]";
mes "Okay then, when you feel brave enough, come on back.";
close;
- Lnoitem:
+Lnoitem:
mes "[^FF0000Munak^000000]";
mes "Hey, you don't have the Yggdrasil Dew.";
mes "Come back when you've gotten 3 of them.";
diff --git a/npc/custom/events/kings_items.txt b/npc/custom/events/kings_items.txt
index 1aed6bb1a..a706e037c 100644
--- a/npc/custom/events/kings_items.txt
+++ b/npc/custom/events/kings_items.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
-//= rAthena Version
+//= rAthena SVN
//===== Description: =========================================
//= Grand Circlet Quest combined with Excalibur Quest.
//= Converted to rAthena format from Fusion.
diff --git a/npc/custom/events/p_track/p_track_core.txt b/npc/custom/events/p_track/p_track_core.txt
index 7edea017d..9b483fbf6 100644
--- a/npc/custom/events/p_track/p_track_core.txt
+++ b/npc/custom/events/p_track/p_track_core.txt
@@ -3,20 +3,21 @@
//===== By: ==================================================
//= erKURITA
//===== Current Version: =====================================
-//= 0.0000000000000002
+//= 1.2
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= NPCs that has nothing to do with the race itself, but
//= has important functions on the race itself.
//===== Additional Comments: =================================
-//= 0.0000000000000002 Removed Duplicates [Silent]
+//= 1.2 Removed Duplicates [Silent]
//============================================================
+
p_track01,41,57,5 script Lady#track1::P_track 845,{
end;
}
-p_track01,67,34,6 script Erudite::P_Spectator1 107,{
+p_track01,67,34,6 script Erudite::P_Spectator1 107,{
end;
}
diff --git a/npc/custom/events/p_track/p_track_warpers.txt b/npc/custom/events/p_track/p_track_warpers.txt
index 83cbfc938..e3942cbe6 100644
--- a/npc/custom/events/p_track/p_track_warpers.txt
+++ b/npc/custom/events/p_track/p_track_warpers.txt
@@ -3,71 +3,70 @@
//===== By: ==================================================
//= erKURITA
//===== Current Version: =====================================
-//= 0.0000000000000002
+//= 1.2
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= NPC's for the City of Hugel.
//===== Additional Comments: =================================
-//= 0.0000000000000002 Removed Duplicates [Silent]
+//= 1.2 Removed Duplicates [Silent]
//============================================================
-//| Warp-in npcs
+
+// Warp-in npcs
hugel,58,72,5 script Yan#track1 86,{
-//callfunc "P_TrackEnt",npcname,map name;
-callfunc "P_TrackEnt","[Yan]","p_track01";
-end;
+ //callfunc "P_TrackEnt",npcname,map name;
+ callfunc "P_TrackEnt","[Yan]","p_track01";
+ end;
}
hugel,62,68,1 script Yalmire#track1 86,{
-//callfunc "P_TrackEnt",npcname,map name;
-callfunc "P_TrackEnt","[Yalmire]","p_track02";
-end;
+ //callfunc "P_TrackEnt",npcname,map name;
+ callfunc "P_TrackEnt","[Yalmire]","p_track02";
+ end;
}
-//| Warp-out npcs
-
+// Warp-out npcs
p_track01,76,36,2 script Yan#track2 86,{
-end;
+ end;
}
p_track02,76,36,2 script Yalmire#track2 86,{
-end;
+ end;
}
function script P_TrackEnt {
-
-mes getarg(0);
-mes "Hi "+strcharinfo(0)+", Welcome to the Poring Track!";
-menu "Information",-,"I want to try it",L_Try,"Not today thanks",L_End;
- next;
- mes getarg(0);
- mes "Bla blah, so fun";
- close;
- L_Try:
- next;
- mes getarg(0);
- mes "Ok, the entrance fee is 500z, would you like to go in?";
- menu "Yes Please",-,"No Thanks",L_End2;
- if (Zeny < 500) {
- next;
- mes getarg(0);
- mes "Sorry but you ain't got 500z, you can't enter";
- close;
- } else
- next;
- mes getarg(0);
- mes "Here we go!";
- close2;
- set Zeny,Zeny-500;
- warp getarg(1),75,41;
- end;
- L_End2:
- next;
- mes getarg(0);
- mes "Oh well, you miss it";
- close;
- L_End:
+ mes getarg(0);
+ mes "Hi "+strcharinfo(0)+", Welcome to the Poring Track!";
+ menu "Information",-,"I want to try it",L_Try,"Not today thanks",L_End;
+ next;
+ mes getarg(0);
+ mes "Bla blah, so fun";
+ close;
+L_Try:
+ next;
+ mes getarg(0);
+ mes "Ok, the entrance fee is 500z, would you like to go in?";
+ menu "Yes Please",-,"No Thanks",L_End2;
+ if (Zeny < 500) {
next;
mes getarg(0);
- mes "Ok, see you later!";
+ mes "Sorry but you ain't got 500z, you can't enter";
close;
+ } else
+ next;
+ mes getarg(0);
+ mes "Here we go!";
+ close2;
+ set Zeny,Zeny-500;
+ warp getarg(1),75,41;
+ end;
+L_End2:
+ next;
+ mes getarg(0);
+ mes "Oh well, you miss it";
+ close;
+L_End:
+ next;
+ mes getarg(0);
+ mes "Ok, see you later!";
+ close;
}
diff --git a/npc/custom/events/uneasy_cemetery.txt b/npc/custom/events/uneasy_cemetery.txt
index 570f88004..60d569483 100644
--- a/npc/custom/events/uneasy_cemetery.txt
+++ b/npc/custom/events/uneasy_cemetery.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= Uneasy Prontera Cemetery Quest (original script!)
+//= Uneasy Prontera Cemetery Quest
//===== By: ==================================================
//= Lupus
//===== Current Version: =====================================
//= 1.2a (Tested and fully working!)
//===== Compatible With: =====================================
-//= rAthena Version 1.0
+//= rAthena SVN
//===== Description: =========================================
//= A periodical quest of the Uneasy Cemetery (Kill undead / Prevent their appearance)
//= Every day, at the midnight Prontera receive a wave of Undeads.
@@ -19,7 +19,6 @@
//= 1.2a Changed item names to item IDs. [Samuray22]
//============================================================
-
prontera,3,3,3 script Uneasy_Check -1,{
end;
diff --git a/npc/custom/events/valentinesdayexp.txt b/npc/custom/events/valentinesdayexp.txt
index 1b4436934..edc2bacec 100644
--- a/npc/custom/events/valentinesdayexp.txt
+++ b/npc/custom/events/valentinesdayexp.txt
@@ -5,11 +5,10 @@
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= Any Athena Version 45xx+
+//= rAthena SVN; 4500+
//===== Description: =========================================
// Close to other official stValentine event (added white chocolate)
// Custom: Handmade choco gives some EXP bonuses to married people
-//
//===== Additional Comments: =================================
//= WARNING!! To use this event, dicable original valentinesday.txt
//= You can use this event from 12 till 16 February 8) [Lupus]
diff --git a/npc/custom/events/xmas_rings_event.txt b/npc/custom/events/xmas_rings_event.txt
index b65f77cc2..1a52fd43a 100644
--- a/npc/custom/events/xmas_rings_event.txt
+++ b/npc/custom/events/xmas_rings_event.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= rAthena Version; 4880+ (with 'setItemScript' command)
+//= rAthena SVN; 4880+ (with 'setItemScript' command)
//===== Description: =========================================
//= Custom event: Karachun (from 8 Dec till 8 Jan), X-Mas, HNY
//===== Additional Comments: =================================
@@ -14,7 +14,6 @@
//= 1.2 Fixed double quotes not being escaped [brianluau]
//============================================================
-
prontera,156,174,4 script Snower 713,{
mes "[Snower]";
if(Q_XMSRINGS==2){
diff --git a/npc/custom/floating_rates.txt b/npc/custom/floating_rates.txt
index 26ab4a432..daa11878e 100644
--- a/npc/custom/floating_rates.txt
+++ b/npc/custom/floating_rates.txt
@@ -1,25 +1,22 @@
-//===== rAthena Script ======================================================================
+//===== rAthena Script =======================================
//= Floating Server Rates
-//===== Original By =========================================================================
+//===== By: ==================================================
//= Lupus
-//===== Current Version: ====================================================================
+//===== Current Version: =====================================
//= 1.0
-//===== Compatible With: ====================================================================
-//= Any rAthena, that has 'setbattleflag' function
-//===== Description: ========================================================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= It's a simply example of setbattleflag
//= This script will change your server rates from 1x to 1.5x every 6 hours
//= Note: It doesn't affect Card granted drops, MVP & Treasure Chests drops ^_-
-//= It also doesn't affect CARD drops, because they are just 0.01%
-//===== Comments and Credits ================================================================
+//= It also doesn't affect CARD drops, because they are just 0.01%
+//===== Additional Comments: =================================
//= You can make incredible scripts with 'setbattleflag'!
-//===========================================================================================
+//============================================================
-
-prontera,3,4,5 script FloatingRates -1,{
- end;
+- script FloatingRates -1,{
OnInit:
-
//add any other HOURS
OnHour00:
OnHour06:
@@ -40,7 +37,7 @@ OnHour18:
setbattleflag("item_rate_equip",$@drate);
//we don't change card drops rate, because these values won't change them anyway
atcommand "@reloadmobdb";
-
+
announce "Current Rune-Midgard rates are: 1."+($@brate-100)+"x 1."+($@jrate-100)+"x 1."+($@drate-100)+"x",bc_all,0xFF6060;
end;
}
diff --git a/npc/custom/healers/heal.txt b/npc/custom/healers/heal.txt
index 94d2f4f3b..09f14cb60 100644
--- a/npc/custom/healers/heal.txt
+++ b/npc/custom/healers/heal.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= Heal Npc
+//= Healer
//===== By: ==================================================
-//= Lotsa People (1.x)
+//= lots of people
//===== Current Version: =====================================
//= 3.1
//===== Compatible With: =====================================
-//= rAthena 0.1+;
+//= rAthena SVN
//===== Description: =========================================
//= Healer NPC Which Heals For Free
//===== Additional Comments: =================================
@@ -16,20 +16,22 @@
//============================================================
- script Healer#h1-1::Healer 742,{
+ callfunc "F_ClearGarbage",0;
+
mes "[Healer]";
mes "I have amazing healing powers!!";
mes "You look like a person who needs them";
mes "Want some?";
next;
- if (select("Heal:No thanks") == 2) {
+ if (select("Heal:No thanks") == 1) {
+ percentheal 100,100;
mes "[Healer]";
- mes "Allright, come back if you need a heal.";
- close;
+ mes "Wonderfull, You are now healed!.";
+ mes "Have fun adventuring!!";
+ } else {
+ mes "[Healer]";
+ mes "Alright, come back if you need a heal.";
}
- percentheal 100,100;
- mes "[Healer]";
- mes "Wonderfull, You are now healed!.";
- mes "Have fun adventuring!!";
close;
}
diff --git a/npc/custom/healers/heal_payment.txt b/npc/custom/healers/heal_payment.txt
index da1cd87db..0cc30e6f6 100644
--- a/npc/custom/healers/heal_payment.txt
+++ b/npc/custom/healers/heal_payment.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= Healer Script (/w payments)
+//= Healer (/w payments)
//===== By: ==================================================
//= Yor & abunch of other people
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
-//= Any Athena Version
+//= rAthena SVN
//===== Description: =========================================
//= NPC heals/regenerates people against zenys
//===== Additional Comments: =================================
@@ -24,69 +24,69 @@
set @tempSp, ((MaxSp-Sp) * BaseLevel) / 5;
if (@tempHp > 0) goto WOUNDED;
if (@tempSpReal > 0) goto ONLY_REGENERATION;
-
+
mes "[Healer]";
mes "Oh?";
mes "You do not look like a person in pain.";
close;
- WOUNDED:
- if (@tempSp > 0) goto WITH_REGENERATION;
- mes "[Healer]";
- mes "Oh dear, you look really hurt,";
- mes "I can cure you for: "+@tempHp+" z)";
- mes "Do you want me to cure you?";
- next;
- menu "Healings ("+@tempHp+"z)",HEALINGS,"No, thanks",CANCEL;
+WOUNDED:
+ if (@tempSp > 0) goto WITH_REGENERATION;
+ mes "[Healer]";
+ mes "Oh dear, you look really hurt,";
+ mes "I can cure you for: "+@tempHp+" z)";
+ mes "Do you want me to cure you?";
+ next;
+ menu "Healings ("+@tempHp+"z)",HEALINGS,"No, thanks",CANCEL;
- WITH_REGENERATION:
- mes "[Healer]";
- mes "Do you want only your HP to be healed? ("+@tempHp+" z)";
- mes "Do you want only your SP to be healed? ("+@tempSp+" z)?";
- mes "Or Would you like both? ("+(@tempHp+@tempSp)+" z)";
- next;
- menu "Only HP ("+@tempHp+"z)",HEALINGS,"Only SP ("+@tempSp+"z)",REGENERATION,"Both HP & SP ("+(@tempHp+@tempSp)+"z)",HEALINGS_AND_REGEN,"Nothing, thanks",CANCEL;
+WITH_REGENERATION:
+ mes "[Healer]";
+ mes "Do you want only your HP to be healed? ("+@tempHp+" z)";
+ mes "Do you want only your SP to be healed? ("+@tempSp+" z)?";
+ mes "Or Would you like both? ("+(@tempHp+@tempSp)+" z)";
+ next;
+ menu "Only HP ("+@tempHp+"z)",HEALINGS,"Only SP ("+@tempSp+"z)",REGENERATION,"Both HP & SP ("+(@tempHp+@tempSp)+"z)",HEALINGS_AND_REGEN,"Nothing, thanks",CANCEL;
- ONLY_REGENERATION:
- mes "[Healer]";
- mes "So, you only want your SP to heal? ("+@tempSp+" z)";
- mes "I need to make a living...";
- next;
- menu "Regeneration ("+@tempSp+"z)",REGENERATION,"No, thanks",CANCEL;
+ONLY_REGENERATION:
+ mes "[Healer]";
+ mes "So, you only want your SP to heal? ("+@tempSp+" z)";
+ mes "I need to make a living...";
+ next;
+ menu "Regeneration ("+@tempSp+"z)",REGENERATION,"No, thanks",CANCEL;
- HEALINGS:
- if (Zeny < @tempHp) goto NO_ZENYS;
- set Zeny, Zeny-@tempHp;
- heal @tempHp,0;
- goto FIN;
+HEALINGS:
+ if (Zeny < @tempHp) goto NO_ZENYS;
+ set Zeny, Zeny-@tempHp;
+ heal @tempHp,0;
+ goto FIN;
- REGENERATION:
- if (Zeny < @tempSp) goto NO_ZENYS;
- set Zeny, Zeny-@tempSp;
- heal 0,@tempSpReal;
- goto FIN;
+REGENERATION:
+ if (Zeny < @tempSp) goto NO_ZENYS;
+ set Zeny, Zeny-@tempSp;
+ heal 0,@tempSpReal;
+ goto FIN;
- HEALINGS_AND_REGEN:
- if (Zeny < (@tempHp+@tempSp)) goto NO_ZENYS;
- set Zeny, Zeny-(@tempHp+@tempSp);
- heal @tempHp,@tempSpReal;
- goto FIN;
+HEALINGS_AND_REGEN:
+ if (Zeny < (@tempHp+@tempSp)) goto NO_ZENYS;
+ set Zeny, Zeny-(@tempHp+@tempSp);
+ heal @tempHp,@tempSpReal;
+ goto FIN;
- NO_ZENYS:
- mes "[Healer]";
- mes "Oh dear, you don't look like you have enough zeny.";
- mes "Sorry, i can't help you.";
- close;
+NO_ZENYS:
+ mes "[Healer]";
+ mes "Oh dear, you don't look like you have enough zeny.";
+ mes "Sorry, i can't help you.";
+ close;
- FIN:
- mes "[Healer]";
- mes "You are Completely Healed.";
- close;
+FIN:
+ mes "[Healer]";
+ mes "You are Completely Healed.";
+ close;
- CANCEL:
- mes "[Healer]";
- mes "Allright. Please come again if you need anything.";
- close;
+CANCEL:
+ mes "[Healer]";
+ mes "Allright. Please come again if you need anything.";
+ close;
}
diff --git a/npc/custom/jobs/jobmaster.txt b/npc/custom/jobs/jobmaster.txt
index cfd7b83a1..15c384547 100644
--- a/npc/custom/jobs/jobmaster.txt
+++ b/npc/custom/jobs/jobmaster.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= rAthena Jobchanger AKA Job Master
+//= Job Master
//===== By: ==================================================
//= rAthena Dev Team [Ori:LunatikBunnie] [Cur:Lance]
//===== Current Version: =====================================
//= 1.5a
//===== Compatible With: =====================================
-//= rAthena SVN Trunk 6674
+//= rAthena SVN; 6674+
//===== Description: =========================================
//= Changes your job without asking too much
//= For other info, please contact me at Lunatikbunnie@gmail.com
@@ -17,6 +17,7 @@
//= 1.5 Rewrite everything from scratch. [Lance]
//= 1.5a fixed Baby -> Super Baby change. Switched to JobName() [Lupus]
//============================================================
+
prontera,153,193,6 script Job Master 123,{
mes "^ff0000[Job Master]^000000";
if(Upper == 1 && Class >= Job_Lord_Knight) goto L_noReq;
@@ -27,165 +28,165 @@ prontera,153,193,6 script Job Master 123,{
}
if(JobLevel < 10) goto L_LvError;
switch(Class){
- case Job_Novice_High:
- case Job_Baby:
- case Job_Novice:
- skill 142,1,0;
- skill 143,1,0;
- mes "Welcome, please select the job you wish to change into";
- if(lastJob != 0 && Class == Job_Novice_High){
- switch(lastJob){
- case Job_Knight:
- case Job_Crusader:
- set @target_job, Job_Swordman_High;
- break;
- case Job_Monk:
- case Job_Priest:
- set @target_job, Job_Acolyte_High;
- break;
- case Job_Alchemist:
- case Job_Blacksmith:
- set @target_job, Job_Merchant_High;
- break;
- case Job_Rogue:
- case Job_Assassin:
- set @target_job, Job_Thief_High;
- break;
- case Job_Wizard:
- case Job_Sage:
- set @target_job, Job_Mage_High;
- break;
- case Job_Hunter:
- case Job_Bard:
- case Job_Dancer:
- set @target_job, Job_Archer_High;
- break;
- }
+ case Job_Novice_High:
+ case Job_Baby:
+ case Job_Novice:
+ skill 142,1,0;
+ skill 143,1,0;
+ mes "Welcome, please select the job you wish to change into";
+ if(lastJob != 0 && Class == Job_Novice_High){
+ switch(lastJob){
+ case Job_Knight:
+ case Job_Crusader:
+ set @target_job, Job_Swordman_High;
+ break;
+ case Job_Monk:
+ case Job_Priest:
+ set @target_job, Job_Acolyte_High;
+ break;
+ case Job_Alchemist:
+ case Job_Blacksmith:
+ set @target_job, Job_Merchant_High;
+ break;
+ case Job_Rogue:
+ case Job_Assassin:
+ set @target_job, Job_Thief_High;
+ break;
+ case Job_Wizard:
+ case Job_Sage:
+ set @target_job, Job_Mage_High;
+ break;
+ case Job_Hunter:
+ case Job_Bard:
+ case Job_Dancer:
+ set @target_job, Job_Archer_High;
+ break;
+ }
+ } else {
+ switch(select("Swordsman","Mage","Archer","Acolyte","Merchant","Thief",
+ "Super Novice","Taekwon","Gunslinger","Ninja")){
+ case 7:
+ if(Class == Job_Novice_High) goto L_noReq;
+ if($@JC_SupNovM > BaseLevel) goto L_BvError;
+ if(Upper == 2)
+ set @target_job, Job_Super_Baby;
+ else
+ set @target_job, Job_SuperNovice;
+ break;
+ case 8:
+ if(Class == Job_Novice_High) goto L_noReq;
+ if(Upper == 2) goto L_noReq;
+ set @target_job, Job_Taekwon;
+ break;
+ case 9:
+ case 10:
+ if(Class == Job_Novice_High || Upper == 2) goto L_noReq;
+ set @target_job, @menu + 15;
+ break;
+ default:
+ set @target_job, @menu;
+ if(Class == Job_Novice_High) set @target_job, @target_job + 4001;
+ break;
+ }
+ }
+ mes "Are you sure you want to change to " + JobName(@target_job) + "?";
+ if(select("No","Yes") == 2){
+ callfunc "Job_Change", @target_job;
+ if(@target_job == Job_Gunslinger || @target_job == Job_Ninja || @target_job == Job_Taekwon) {
+ callfunc "F_ClearJobVar";
} else {
- switch(select("Swordsman","Mage","Archer","Acolyte","Merchant","Thief",
- "Super Novice","Taekwon","Gunslinger","Ninja")){
- case 7:
- if(Class == Job_Novice_High) goto L_noReq;
- if($@JC_SupNovM > BaseLevel) goto L_BvError;
- if(Upper == 2)
- set @target_job, Job_Super_Baby;
- else
- set @target_job, Job_SuperNovice;
- break;
- case 8:
- if(Class == Job_Novice_High) goto L_noReq;
- if(Upper == 2) goto L_noReq;
- set @target_job, Job_Taekwon;
- break;
- case 9:
- case 10:
- if(Class == Job_Novice_High || Upper == 2) goto L_noReq;
- set @target_job, @menu + 15;
- break;
- default:
- set @target_job, @menu;
- if(Class == Job_Novice_High) set @target_job, @target_job + 4001;
- break;
- }
+ if($@JC_Plat) goto L_GivePlat;
+ }
+ }
+ close;
+ break;
+ default:
+ if(JobLevel < $@JC_MinimumJB) goto L_LvError;
+ deletearray @job_opt, getarraysize(@job_opt);
+ if(Class < Job_Knight || Class == Job_Taekwon || (Class > Job_Baby && Class < Job_Baby_Knight) || (Class > Job_Novice_High && Class < Job_Lord_Knight)){
+ if(lastJob != 0){
+ set @target_job, lastJob + 4001;
+ } else {
+ switch(Class){
+ case Job_Swordman_High:
+ case Job_Baby_Swordman:
+ case Job_Swordman:
+ set @job_opt[0], Job_Knight;
+ set @job_opt[1], Job_Crusader;
+ break;
+ case Job_Mage_High:
+ case Job_Baby_Mage:
+ case Job_Mage:
+ set @job_opt[0], Job_Wizard;
+ set @job_opt[1], Job_Sage;
+ break;
+ case Job_Archer_High:
+ case Job_Baby_Archer:
+ case Job_Archer:
+ set @job_opt[0], Job_Hunter;
+ if(Sex == 0)
+ set @job_opt[1], Job_Dancer;
+ else
+ set @job_opt[1], Job_Bard;
+ break;
+ case Job_Acolyte_High:
+ case Job_Baby_Acolyte:
+ case Job_Acolyte:
+ set @job_opt[0], Job_Priest;
+ set @job_opt[1], Job_Monk;
+ break;
+ case Job_Merchant_High:
+ case Job_Baby_Merchant:
+ case Job_Merchant:
+ set @job_opt[0], Job_Blacksmith;
+ set @job_opt[1], Job_Alchemist;
+ break;
+ case Job_Thief_High:
+ case Job_Baby_Thief:
+ case Job_Thief:
+ set @job_opt[0], Job_Assassin;
+ set @job_opt[1], Job_Rogue;
+ break;
+ default:
+ set @job_opt[0], Job_Star_Gladiator;
+ set @job_opt[1], Job_Soul_Linker;
+ break;
+ }
+ mes "Welcome, please select the job you wish to change into";
+ set @target_job, @job_opt[select(JobName(@job_opt[0]), JobName(@job_opt[1]))-1];
+ if(Class > Job_Novice_High && Class < Job_Lord_Knight) set @target_job, @target_job + 4001;
}
mes "Are you sure you want to change to " + JobName(@target_job) + "?";
- if(select("No","Yes") == 2){
+ if(select("No","Yes")==2){
callfunc "Job_Change", @target_job;
- if(@target_job == Job_Gunslinger || @target_job == Job_Ninja || @target_job == Job_Taekwon) {
+ if(@target_job == Job_Star_Gladiator || @target_job == Job_Soul_Linker) {
callfunc "F_ClearJobVar";
} else {
if($@JC_Plat) goto L_GivePlat;
}
}
close;
- break;
- default:
- if(JobLevel < $@JC_MinimumJB) goto L_LvError;
- deletearray @job_opt, getarraysize(@job_opt);
- if(Class < Job_Knight || Class == Job_Taekwon || (Class > Job_Baby && Class < Job_Baby_Knight) || (Class > Job_Novice_High && Class < Job_Lord_Knight)){
- if(lastJob != 0){
- set @target_job, lastJob + 4001;
+ }
+ if(checkfalcon() || checkcart() || checkriding()) goto L_remove;
+ if((Class >=Job_Knight) && (Class <=Job_Crusader2)){
+ mes "Do you want to reborn?";
+ if(select("Yes","No")==1){
+ if(BaseLevel < 99 || JobLevel < 50) goto L_cantCh;
+ set lastJob, Class;
+ if(Class == Job_Knight2){
+ set lastJob, Job_Knight;
} else {
- switch(Class){
- case Job_Swordman_High:
- case Job_Baby_Swordman:
- case Job_Swordman:
- set @job_opt[0], Job_Knight;
- set @job_opt[1], Job_Crusader;
- break;
- case Job_Mage_High:
- case Job_Baby_Mage:
- case Job_Mage:
- set @job_opt[0], Job_Wizard;
- set @job_opt[1], Job_Sage;
- break;
- case Job_Archer_High:
- case Job_Baby_Archer:
- case Job_Archer:
- set @job_opt[0], Job_Hunter;
- if(Sex == 0)
- set @job_opt[1], Job_Dancer;
- else
- set @job_opt[1], Job_Bard;
- break;
- case Job_Acolyte_High:
- case Job_Baby_Acolyte:
- case Job_Acolyte:
- set @job_opt[0], Job_Priest;
- set @job_opt[1], Job_Monk;
- break;
- case Job_Merchant_High:
- case Job_Baby_Merchant:
- case Job_Merchant:
- set @job_opt[0], Job_Blacksmith;
- set @job_opt[1], Job_Alchemist;
- break;
- case Job_Thief_High:
- case Job_Baby_Thief:
- case Job_Thief:
- set @job_opt[0], Job_Assassin;
- set @job_opt[1], Job_Rogue;
- break;
- default:
- set @job_opt[0], Job_Star_Gladiator;
- set @job_opt[1], Job_Soul_Linker;
- break;
- }
- mes "Welcome, please select the job you wish to change into";
- set @target_job, @job_opt[select(JobName(@job_opt[0]), JobName(@job_opt[1]))-1];
- if(Class > Job_Novice_High && Class < Job_Lord_Knight) set @target_job, @target_job + 4001;
- }
- mes "Are you sure you want to change to " + JobName(@target_job) + "?";
- if(select("No","Yes")==2){
- callfunc "Job_Change", @target_job;
- if(@target_job == Job_Star_Gladiator || @target_job == Job_Soul_Linker) {
- callfunc "F_ClearJobVar";
- } else {
- if($@JC_Plat) goto L_GivePlat;
+ if(Class == Job_Crusader2){
+ set lastJob, Job_Crusader;
}
}
- close;
- }
- if(checkfalcon() || checkcart() || checkriding()) goto L_remove;
- if((Class >=Job_Knight) && (Class <=Job_Crusader2)){
- mes "Do you want to reborn?";
- if(select("Yes","No")==1){
- if(BaseLevel < 99 || JobLevel < 50) goto L_cantCh;
- set lastJob, Class;
- if(Class == Job_Knight2){
- set lastJob, Job_Knight;
- } else {
- if(Class == Job_Crusader2){
- set lastJob, Job_Crusader;
- }
- }
- jobchange Job_Novice_High;
- resetlvl(1);
- skill 142,1,0;
- skill 143,1,0;
- }
- close;
+ jobchange Job_Novice_High;
+ resetlvl(1);
+ skill 142,1,0;
+ skill 143,1,0;
}
+ close;
+ }
}
mes "I'm sorry, there are no further classes for your job.";
close;
@@ -239,22 +240,18 @@ L_cantCh:
mes "I'm sorry, you do not meet the requirements to change";
mes "Please come again soon!";
close;
-
L_LvError:
mes "I'm sorry, you do not seem to have enough Job Levels";
mes "Please come again soon!";
close;
-
L_BvError:
mes "I'm sorry, you do not seem to have enough Base Levels";
mes "Please come again soon!";
close;
-
L_noReq:
mes "I'm sorry, you do not meet the requirements to change";
mes "Please come again soon!";
close;
-
L_remove:
mes "Please remove your cart,falcon or peco";
mes "Please come again soon!";
diff --git a/npc/custom/jobs/reset.txt b/npc/custom/jobs/reset.txt
index 8592fc730..ab4be4353 100644
--- a/npc/custom/jobs/reset.txt
+++ b/npc/custom/jobs/reset.txt
@@ -1,17 +1,18 @@
//===== rAthena Script =======================================
-//= Reset NPC for Athena by Script & DB Team
-//===== By: ==================================================
-//= rAthena Team
-//===== Current Version: =====================================
+//= Reset NPC
+//===== By: ==================================================
+//= rAthena Dev Team
+//===== Current Version: =====================================
//= 1.1
-//===== Compatible With: =====================================
-//= Any rAthena Version
-//===== Description: =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Resets skills, stats, or both.
-//===== Additional Comments: =================================
+//===== Additional Comments: =================================
//= 1.0 First Version
//= 1.1 Optimized for the greater good. [Kisuka]
-//============================================================
+//============================================================
+
prontera,150,193,4 script Reset Girl 124,{
mes "[Reset Girl]";
mes "I am a Reset Girl.";
@@ -21,38 +22,38 @@ prontera,150,193,4 script Reset Girl 124,{
mes "Please select the service you want:";
next;
switch(select("^FF3355Reset Skills:Reset Stats:Reset Both^000000:Quit")) {
- case 1:
- mes "[Reset Girl]";
- if (Zeny < 5000) {
- mes "Sorry, you don't have enough Zeny.";
- close;
- }
- mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
- set Zeny,zeny-5000;
- ResetSkill;
+ case 1:
+ mes "[Reset Girl]";
+ if (Zeny < 5000) {
+ mes "Sorry, you don't have enough Zeny.";
close;
- case 2:
- mes "[Reset Girl]";
- if (Zeny < 5000) {
- mes "Sorry, you don't have enough Zeny.";
- close;
- }
- mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
- set Zeny,zeny-5000;
- ResetStatus;
+ }
+ mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
+ set Zeny,zeny-5000;
+ ResetSkill;
+ close;
+ case 2:
+ mes "[Reset Girl]";
+ if (Zeny < 5000) {
+ mes "Sorry, you don't have enough Zeny.";
close;
- case 3:
- mes "[Reset Girl]";
- if (Zeny < 9000) {
- mes "Sorry, you don't have enough Zeny.";
- close;
- }
- mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
- set Zeny,zeny-9000;
- ResetSkill;
- ResetStatus;
- close;
- case 4:
+ }
+ mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
+ set Zeny,zeny-5000;
+ ResetStatus;
+ close;
+ case 3:
+ mes "[Reset Girl]";
+ if (Zeny < 9000) {
+ mes "Sorry, you don't have enough Zeny.";
close;
+ }
+ mes "Alright, here we go now.. Remember, changes won't take effect until you log back on!";
+ set Zeny,zeny-9000;
+ ResetSkill;
+ ResetStatus;
+ close;
+ case 4:
+ close;
}
}
diff --git a/npc/custom/lottery.txt b/npc/custom/lottery.txt
index 1165e0abb..7cc9a53f1 100644
--- a/npc/custom/lottery.txt
+++ b/npc/custom/lottery.txt
@@ -1,13 +1,13 @@
//===== rAthena Script =======================================
-//= Lottery Script
+//= Lottery
//===== By: ==================================================
-//= acky - god@acky.com
+//= acky
//===== Current Version: =====================================
//= 1.2.1a
//===== Compatible With: =====================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: =========================================
-//= Daily lottery draw.
+//= Daily lottery draw
//===== Additional Comments: =================================
//= Numbers drawn daily (Time is configured line 29)
//= *Added GM-Riggability
@@ -17,441 +17,438 @@
//= 1.2.1a fix due to new script engine
//============================================================
-prontera,1,1,1 script lotterygenerator 111,{
+- script lotterygenerator -1,{
OnInit:
-set $L_TicketPrice,4750; // TICKET COST
-set $L_Prize_Money,5000000; // JACKPOT AMOUNT
-set $L_Prize_Money_Small,1000000; // SECONDARY PRIZE
-if ($LID == 0) goto L_GenID;
-end;
+ set $L_TicketPrice,4750; // TICKET COST
+ set $L_Prize_Money,5000000; // JACKPOT AMOUNT
+ set $L_Prize_Money_Small,1000000; // SECONDARY PRIZE
+ if ($LID == 0) goto L_GenID;
+ end;
-//Modify for own time
+ //Modify for own time
OnClock2045:
-// CHECKS IF LOTTERY IS RIGGED
-if ($L_Rigged == 1) goto L_Rigged_Draw;
-// GENERATES RANDOM NUMBERS 1-40
+ // CHECKS IF LOTTERY IS RIGGED
+ if ($L_Rigged == 1) goto L_Rigged_Draw;
+ // GENERATES RANDOM NUMBERS 1-40
Pick1:
-set $LW1,rand (1,40);
+ set $LW1,rand (1,40);
Pick2:
-set $LW2,rand (1,40);
-if ($LW2 == $LW1) goto Pick2;
+ set $LW2,rand (1,40);
+ if ($LW2 == $LW1) goto Pick2;
Pick3:
-set $LW3,rand (1,40);
-if ($LW3 == $LW2) goto Pick3;
-if ($LW3 == $LW1) goto Pick3;
+ set $LW3,rand (1,40);
+ if ($LW3 == $LW2) goto Pick3;
+ if ($LW3 == $LW1) goto Pick3;
Pick4:
-set $LW4,rand (1,40);
-if ($LW4 == $LW2) goto Pick4;
-if ($LW4 == $LW1) goto Pick4;
-if ($LW4 == $LW3) goto Pick4;
+ set $LW4,rand (1,40);
+ if ($LW4 == $LW2) goto Pick4;
+ if ($LW4 == $LW1) goto Pick4;
+ if ($LW4 == $LW3) goto Pick4;
Pick5:
-set $LW5,rand (1,40);
-if ($LW5 == $LW1) goto Pick5;
-if ($LW5 == $LW2) goto Pick5;
-if ($LW5 == $LW3) goto Pick5;
-if ($LW5 == $LW4) goto Pick5;
+ set $LW5,rand (1,40);
+ if ($LW5 == $LW1) goto Pick5;
+ if ($LW5 == $LW2) goto Pick5;
+ if ($LW5 == $LW3) goto Pick5;
+ if ($LW5 == $LW4) goto Pick5;
Pick6:
-set $LW6,rand (1,40);
-if ($LW6 == $LW1) goto Pick6;
-if ($LW6 == $LW2) goto Pick6;
-if ($LW6 == $LW3) goto Pick6;
-if ($LW6 == $LW4) goto Pick6;
-if ($LW6 == $LW5) goto Pick6;
-
-// BROADCASTS DRAW
+ set $LW6,rand (1,40);
+ if ($LW6 == $LW1) goto Pick6;
+ if ($LW6 == $LW2) goto Pick6;
+ if ($LW6 == $LW3) goto Pick6;
+ if ($LW6 == $LW4) goto Pick6;
+ if ($LW6 == $LW5) goto Pick6;
+
+ // BROADCASTS DRAW
L_Broadcast:
-Announce "Lottery: Welcome to tonight's lotto draw!",8;
-Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
-Announce "Congratulations to the winners of tonight!",8;
+ Announce "Lottery: Welcome to tonight's lotto draw!",8;
+ Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
+ Announce "Congratulations to the winners of tonight!",8;
-// GENERATES DRAW ID CODE
+ // GENERATES DRAW ID CODE
L_GenID:
-set $LID2,$LID;
-// SETS TOMORROW'S ID NUMBER
-set $LID,rand (100000,999999);
-end;
+ set $LID2,$LID;
+ // SETS TOMORROW'S ID NUMBER
+ set $LID,rand (100000,999999);
+ end;
-// SETS DRAW TO RIGGED NUMBERS
+ // SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
-set $LW1,$LR1;
-set $LW2,$LR2;
-set $LW3,$LR3;
-set $LW4,$LR4;
-set $LW5,$LR5;
-set $LW6,$LR6;
-set $L_Rigged,0;
-goto L_Broadcast;
+ set $LW1,$LR1;
+ set $LW2,$LR2;
+ set $LW3,$LR3;
+ set $LW4,$LR4;
+ set $LW5,$LR5;
+ set $LW6,$LR6;
+ set $L_Rigged,0;
+ goto L_Broadcast;
}
-// BEGIN LOTTERY SCRIPT
-- script lottery 76,{
+prontera,141,182,5 script Lottery 76,{
L_Begin:
-mes "[Lottery]";
-mes "Winning Lotto Numbers ("+$LID2+"):";
-mes "^0000FF[" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]^000000";
-if ($LID > 99999) mes "Your Ticket ("+#LID+"):";
-if ($LID > 99999) mes "^FF0000[" + #LW1 + "] [" + #LW2 + "] [" + #LW3 + "] [" + #LW4 + "] [" + #LW5 + "] [" + #LW6 + "]^000000";
-mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";
-next;
-if (getgmlevel() > 90) goto L_GM;
-menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"Cancel",L_Cancel;
+ mes "[Lottery]";
+ mes "Winning Lotto Numbers ("+$LID2+"):";
+ mes "^0000FF[" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]^000000";
+ if ($LID > 99999) mes "Your Ticket ("+#LID+"):";
+ if ($LID > 99999) mes "^FF0000[" + #LW1 + "] [" + #LW2 + "] [" + #LW3 + "] [" + #LW4 + "] [" + #LW5 + "] [" + #LW6 + "]^000000";
+ mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";
+ next;
+ if (getgmlevel() > 90) goto L_GM;
+ menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"Cancel",L_Cancel;
// PURCHASE TICKET
L_Buy:
-if (#LID == $LID && #L1 != 0) goto L_DoubleTicket;
-mes "[Lottery]";
-mes "Tickets cost ^0000FF" + $L_TicketPrice + "z^000000.";
-mes "The Jackpot is ^FF0000" + $L_Prize_Money + "z^000000.";
-next;
-menu "Buy Ticket",-,"Cancel",L_Cancel;
-if (zeny < $L_TicketPrice) goto L_NoZeny;
-set zeny,zeny-$L_TicketPrice;
-mes "[Lottery]";
-mes "Would you like your numbers hand picked or computer generated?";
-next;
-menu "Computer Generated",L_ComputerGen,"Hand Picked",L_HandPick,"Renew Ticket",L_Renew;
+ if (#LID == $LID && #L1 != 0) goto L_DoubleTicket;
+ mes "[Lottery]";
+ mes "Tickets cost ^0000FF" + $L_TicketPrice + "z^000000.";
+ mes "The Jackpot is ^FF0000" + $L_Prize_Money + "z^000000.";
+ next;
+ menu "Buy Ticket",-,"Cancel",L_Cancel;
+ if (zeny < $L_TicketPrice) goto L_NoZeny;
+ set zeny,zeny-$L_TicketPrice;
+ mes "[Lottery]";
+ mes "Would you like your numbers hand picked or computer generated?";
+ next;
+ menu "Computer Generated",L_ComputerGen,"Hand Picked",L_HandPick,"Renew Ticket",L_Renew;
// RENEW LAST TICKET
L_Renew:
-if ($LID < 99999) goto L_Invalid;
-set #LID,$LID;
-goto L_Confirm2;
+ if ($LID < 99999) goto L_Invalid;
+ set #LID,$LID;
+ goto L_Confirm2;
L_ComputerGen:
// SELECTS RANDOM NUMBERS
-set @L1,0;
-set @L2,0;
-set @L3,0;
-set @L4,0;
-set @L5,0;
-set @L6,0;
+ set @L1,0;
+ set @L2,0;
+ set @L3,0;
+ set @L4,0;
+ set @L5,0;
+ set @L6,0;
Pick1:
-set @L1,rand (1,40);
+ set @L1,rand (1,40);
Pick2:
-set @L2,rand (1,40);
-if (@L2 == @L1) goto Pick2;
+ set @L2,rand (1,40);
+ if (@L2 == @L1) goto Pick2;
Pick3:
-set @L3,rand (1,40);
-if (@L3 == @L2) goto Pick3;
-if (@L3 == @L1) goto Pick3;
+ set @L3,rand (1,40);
+ if (@L3 == @L2) goto Pick3;
+ if (@L3 == @L1) goto Pick3;
Pick4:
-set @L4,rand (1,40);
-if (@L4 == @L2) goto Pick4;
-if (@L4 == @L1) goto Pick4;
-if (@L4 == @L3) goto Pick4;
+ set @L4,rand (1,40);
+ if (@L4 == @L2) goto Pick4;
+ if (@L4 == @L1) goto Pick4;
+ if (@L4 == @L3) goto Pick4;
Pick5:
-set @L5,rand (1,40);
-if (@L5 == @L1) goto Pick5;
-if (@L5 == @L2) goto Pick5;
-if (@L5 == @L3) goto Pick5;
-if (@L5 == @L4) goto Pick5;
+ set @L5,rand (1,40);
+ if (@L5 == @L1) goto Pick5;
+ if (@L5 == @L2) goto Pick5;
+ if (@L5 == @L3) goto Pick5;
+ if (@L5 == @L4) goto Pick5;
Pick6:
-set @L6,rand (1,40);
-if (@L6 == @L1) goto Pick6;
-if (@L6 == @L2) goto Pick6;
-if (@L6 == @L3) goto Pick6;
-if (@L6 == @L4) goto Pick6;
-if (@L6 == @L5) goto Pick6;
-mes "[Lottery]";
-mes "The computer has selected the following numbers:";
-mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
-next;
-menu "Confirm",L_Confirm,"Re-Generate",L_ComputerGen;
+ set @L6,rand (1,40);
+ if (@L6 == @L1) goto Pick6;
+ if (@L6 == @L2) goto Pick6;
+ if (@L6 == @L3) goto Pick6;
+ if (@L6 == @L4) goto Pick6;
+ if (@L6 == @L5) goto Pick6;
+ mes "[Lottery]";
+ mes "The computer has selected the following numbers:";
+ mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
+ next;
+ menu "Confirm",L_Confirm,"Re-Generate",L_ComputerGen;
// HAND PICK LOTTERY NUMBERS
L_HandPick:
-mes "[Lottery]";
-mes "Please pick your numbers (1-40):";
-set @L1,0;
-set @L2,0;
-set @L3,0;
-set @L4,0;
-set @L5,0;
-set @L6,0;
+ mes "[Lottery]";
+ mes "Please pick your numbers (1-40):";
+ set @L1,0;
+ set @L2,0;
+ set @L3,0;
+ set @L4,0;
+ set @L5,0;
+ set @L6,0;
Input1:
-input @L1;
-if (@L1 < 1 || @L1 > 40) goto Input1;
-mes @L1;
+ input @L1;
+ if (@L1 < 1 || @L1 > 40) goto Input1;
+ mes @L1;
Input2:
-input @L2;
-if (@L2 < 1 || @L2 > 40) goto Input2;
-if (@L2 == @L1) goto Input2;
-mes @L2;
+ input @L2;
+ if (@L2 < 1 || @L2 > 40) goto Input2;
+ if (@L2 == @L1) goto Input2;
+ mes @L2;
Input3:
-input @L3;
-if (@L3 < 1 || @L3 > 40) goto Input3;
-if (@L3 == @L1) goto Input3;
-if (@L3 == @L2) goto Input3;
-mes @L3;
+ input @L3;
+ if (@L3 < 1 || @L3 > 40) goto Input3;
+ if (@L3 == @L1) goto Input3;
+ if (@L3 == @L2) goto Input3;
+ mes @L3;
Input4:
-input @L4;
-if (@L4 < 1 || @L4 > 40) goto Input4;
-if (@L4 == @L1) goto Input4;
-if (@L4 == @L2) goto Input4;
-if (@L4 == @L3) goto Input4;
-mes @L4;
+ input @L4;
+ if (@L4 < 1 || @L4 > 40) goto Input4;
+ if (@L4 == @L1) goto Input4;
+ if (@L4 == @L2) goto Input4;
+ if (@L4 == @L3) goto Input4;
+ mes @L4;
Input5:
-input @L5;
-if (@L5 < 1 || @L5 > 40) goto Input5;
-if (@L5 == @L1) goto Input5;
-if (@L5 == @L2) goto Input5;
-if (@L5 == @L3) goto Input5;
-if (@L5 == @L4) goto Input5;
-mes @L5;
+ input @L5;
+ if (@L5 < 1 || @L5 > 40) goto Input5;
+ if (@L5 == @L1) goto Input5;
+ if (@L5 == @L2) goto Input5;
+ if (@L5 == @L3) goto Input5;
+ if (@L5 == @L4) goto Input5;
+ mes @L5;
Input6:
-input @L6;
-if (@L6 < 1 || @L6 > 40) goto Input6;
-if (@L6 == @L1) goto Input6;
-if (@L6 == @L2) goto Input6;
-if (@L6 == @L3) goto Input6;
-if (@L6 == @L4) goto Input6;
-if (@L6 == @L5) goto Input6;
-mes @L6;
-next;
-mes "[Lottery]";
-mes "Your numbers are:";
-mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
-next;
-menu "Confirm",L_Confirm,"Re-Pick",L_HandPick;
+ input @L6;
+ if (@L6 < 1 || @L6 > 40) goto Input6;
+ if (@L6 == @L1) goto Input6;
+ if (@L6 == @L2) goto Input6;
+ if (@L6 == @L3) goto Input6;
+ if (@L6 == @L4) goto Input6;
+ if (@L6 == @L5) goto Input6;
+ mes @L6;
+ next;
+ mes "[Lottery]";
+ mes "Your numbers are:";
+ mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
+ next;
+ menu "Confirm",L_Confirm,"Re-Pick",L_HandPick;
L_Confirm:
-set #LW1,@L1;
-set #LW2,@L2;
-set #LW3,@L3;
-set #LW4,@L4;
-set #LW5,@L5;
-set #LW6,@L6;
-set #LID,$LID;
+ set #LW1,@L1;
+ set #LW2,@L2;
+ set #LW3,@L3;
+ set #LW4,@L4;
+ set #LW5,@L5;
+ set #LW6,@L6;
+ set #LID,$LID;
L_Confirm2:
-mes "[Lottery]";
-mes "The live broadcasted draw is at 9pm.";
-mes "You can claim your ticket between then and the next draw.";
-next;
-mes "[Lottery]";
-mes "Good luck!";
-close;
+ mes "[Lottery]";
+ mes "The live broadcasted draw is at 9pm.";
+ mes "You can claim your ticket between then and the next draw.";
+ next;
+ mes "[Lottery]";
+ mes "Good luck!";
+ close;
L_Claim:
-// CHECKS TICKET VALIDILITY
-if (#LID != $LID2) goto L_Invalid;
-// CHECKS HOW MANY NUMBERS MATCHED
-set @LPrize,0;
-if (#LW1 == $LW1) set @LPrize,@LPrize+1;
-if (#LW1 == $LW2) set @LPrize,@LPrize+1;
-if (#LW1 == $LW3) set @LPrize,@LPrize+1;
-if (#LW1 == $LW4) set @LPrize,@LPrize+1;
-if (#LW1 == $LW5) set @LPrize,@LPrize+1;
-if (#LW1 == $LW6) set @LPrize,@LPrize+1;
-if (#LW2 == $LW1) set @LPrize,@LPrize+1;
-if (#LW2 == $LW2) set @LPrize,@LPrize+1;
-if (#LW2 == $LW3) set @LPrize,@LPrize+1;
-if (#LW2 == $LW4) set @LPrize,@LPrize+1;
-if (#LW2 == $LW5) set @LPrize,@LPrize+1;
-if (#LW2 == $LW6) set @LPrize,@LPrize+1;
-if (#LW3 == $LW1) set @LPrize,@LPrize+1;
-if (#LW3 == $LW2) set @LPrize,@LPrize+1;
-if (#LW3 == $LW3) set @LPrize,@LPrize+1;
-if (#LW3 == $LW4) set @LPrize,@LPrize+1;
-if (#LW3 == $LW5) set @LPrize,@LPrize+1;
-if (#LW3 == $LW6) set @LPrize,@LPrize+1;
-if (#LW4 == $LW1) set @LPrize,@LPrize+1;
-if (#LW4 == $LW2) set @LPrize,@LPrize+1;
-if (#LW4 == $LW3) set @LPrize,@LPrize+1;
-if (#LW4 == $LW4) set @LPrize,@LPrize+1;
-if (#LW4 == $LW5) set @LPrize,@LPrize+1;
-if (#LW4 == $LW6) set @LPrize,@LPrize+1;
-if (#LW5 == $LW1) set @LPrize,@LPrize+1;
-if (#LW5 == $LW2) set @LPrize,@LPrize+1;
-if (#LW5 == $LW3) set @LPrize,@LPrize+1;
-if (#LW5 == $LW4) set @LPrize,@LPrize+1;
-if (#LW5 == $LW5) set @LPrize,@LPrize+1;
-if (#LW5 == $LW6) set @LPrize,@LPrize+1;
-if (#LW6 == $LW1) set @LPrize,@LPrize+1;
-if (#LW6 == $LW2) set @LPrize,@LPrize+1;
-if (#LW6 == $LW3) set @LPrize,@LPrize+1;
-if (#LW6 == $LW4) set @LPrize,@LPrize+1;
-if (#LW6 == $LW5) set @LPrize,@LPrize+1;
-if (#LW6 == $LW6) set @LPrize,@LPrize+1;
-
-if (@LPrize == 6) goto LWinBig;
-if (@LPrize > 3 && @LPrize < 6) goto LWinSmall;
+ // CHECKS TICKET VALIDILITY
+ if (#LID != $LID2) goto L_Invalid;
+ // CHECKS HOW MANY NUMBERS MATCHED
+ set @LPrize,0;
+ if (#LW1 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW1 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW1 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW1 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW1 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW1 == $LW6) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW2 == $LW6) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW3 == $LW6) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW4 == $LW6) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW5 == $LW6) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW1) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW2) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW3) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW4) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW5) set @LPrize,@LPrize+1;
+ if (#LW6 == $LW6) set @LPrize,@LPrize+1;
+
+ if (@LPrize == 6) goto LWinBig;
+ if (@LPrize > 3 && @LPrize < 6) goto LWinSmall;
// NO WINNER
-mes "[Lottery]";
-mes "Bad luck, it appears you do not hold a winning ticket.";
-next;
-mes "[Lottery]";
-mes "Better luck next time!.";
-close;
+ mes "[Lottery]";
+ mes "Bad luck, it appears you do not hold a winning ticket.";
+ next;
+ mes "[Lottery]";
+ mes "Better luck next time!.";
+ close;
// MATCHED ALL SIX
LWinBig:
-mes "[Lottery]";
-mes "You have matched all six numbers!";
-mes "Jackpot!";
-mes "You've won ^0000FF" + $L_Prize_Money + "z^000000.";
-set zeny,zeny+$L_Prize_Money;
-Announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + $L_Prize_Money + "z!",8;
-set #LID,0;
-close;
+ mes "[Lottery]";
+ mes "You have matched all six numbers!";
+ mes "Jackpot!";
+ mes "You've won ^0000FF" + $L_Prize_Money + "z^000000.";
+ set zeny,zeny+$L_Prize_Money;
+ Announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + $L_Prize_Money + "z!",8;
+ set #LID,0;
+ close;
// MATCHED AT LEAST 4
LWinSmall:
-mes "[Lottery]";
-mes "You have matched at least 4 numbers!";
-mes "You've won ^0000FF" + $L_Prize_Money_Small + "z^000000.";
-set zeny,zeny+$L_Prize_Money_Small;
-Announce "Lottery: " + strcharinfo(0) + " has won a prize of " + $L_Prize_Money_Small + "z!",8;
-set #LID,0;
-close;
+ mes "[Lottery]";
+ mes "You have matched at least 4 numbers!";
+ mes "You've won ^0000FF" + $L_Prize_Money_Small + "z^000000.";
+ set zeny,zeny+$L_Prize_Money_Small;
+ Announce "Lottery: " + strcharinfo(0) + " has won a prize of " + $L_Prize_Money_Small + "z!",8;
+ set #LID,0;
+ close;
// NO ZENY
L_NoZeny:
-mes "[Lottery]";
-mes "You can't afford a lottery ticket.";
-close;
+ mes "[Lottery]";
+ mes "You can't afford a lottery ticket.";
+ close;
// INVALID TICKET
L_Invalid:
-mes "[Lottery]";
-mes "I'm sorry but it appears that you have an invalid ticket.";
-close;
+ mes "[Lottery]";
+ mes "I'm sorry but it appears that you have an invalid ticket.";
+ close;
// DOUBLE TICKET
L_DoubleTicket:
-mes "[Lottery]";
-mes "It appears that you already have a ticket for today.";
-mes "You may only purchase one ticket per draw.";
-close;
+ mes "[Lottery]";
+ mes "It appears that you already have a ticket for today.";
+ mes "You may only purchase one ticket per draw.";
+ close;
L_Cancel:
-mes "[Lottery]";
-mes "Come back soon!";
-close;
+ mes "[Lottery]";
+ mes "Come back soon!";
+ close;
// GM MENU (Lets you manually do draws)
L_GM:
-menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Lottery",L_GM_Rig,"Cancel",L_Cancel;
+ menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Lottery",L_GM_Rig,"Cancel",L_Cancel;
-// CHECKS IF LOTTERY IS RIGGED
-if ($L_Rigged == 1) goto L_Rigged_Draw;
-// GENERATES RANDOM NUMBERS 1-40
+ // CHECKS IF LOTTERY IS RIGGED
+ if ($L_Rigged == 1) goto L_Rigged_Draw;
+ // GENERATES RANDOM NUMBERS 1-40
GMPick1:
-set $LW1,rand (1,40);
+ set $LW1,rand (1,40);
GMPick2:
-set $LW2,rand (1,40);
-if ($LW2 == $LW1) goto GMPick2;
+ set $LW2,rand (1,40);
+ if ($LW2 == $LW1) goto GMPick2;
GMPick3:
-set $LW3,rand (1,40);
-if ($LW3 == $LW2) goto GMPick3;
-if ($LW3 == $LW1) goto GMPick3;
+ set $LW3,rand (1,40);
+ if ($LW3 == $LW2) goto GMPick3;
+ if ($LW3 == $LW1) goto GMPick3;
GMPick4:
-set $LW4,rand (1,40);
-if ($LW4 == $LW2) goto GMPick4;
-if ($LW4 == $LW1) goto GMPick4;
-if ($LW4 == $LW3) goto GMPick4;
+ set $LW4,rand (1,40);
+ if ($LW4 == $LW2) goto GMPick4;
+ if ($LW4 == $LW1) goto GMPick4;
+ if ($LW4 == $LW3) goto GMPick4;
GMPick5:
-set $LW5,rand (1,40);
-if ($LW5 == $LW1) goto GMPick5;
-if ($LW5 == $LW2) goto GMPick5;
-if ($LW5 == $LW3) goto GMPick5;
-if ($LW5 == $LW4) goto GMPick5;
+ set $LW5,rand (1,40);
+ if ($LW5 == $LW1) goto GMPick5;
+ if ($LW5 == $LW2) goto GMPick5;
+ if ($LW5 == $LW3) goto GMPick5;
+ if ($LW5 == $LW4) goto GMPick5;
GMPick6:
-set $LW6,rand (1,40);
-if ($LW6 == $LW1) goto GMPick6;
-if ($LW6 == $LW2) goto GMPick6;
-if ($LW6 == $LW3) goto GMPick6;
-if ($LW6 == $LW4) goto GMPick6;
-if ($LW6 == $LW5) goto GMPick6;
+ set $LW6,rand (1,40);
+ if ($LW6 == $LW1) goto GMPick6;
+ if ($LW6 == $LW2) goto GMPick6;
+ if ($LW6 == $LW3) goto GMPick6;
+ if ($LW6 == $LW4) goto GMPick6;
+ if ($LW6 == $LW5) goto GMPick6;
// BROADCASTS DRAW
L_Broadcast:
-Announce "Lottery: Welcome to the special GM's lotto draw!",8;
-Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
-Announce "Congratulations to the winners!",8;
+ Announce "Lottery: Welcome to the special GM's lotto draw!",8;
+ Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
+ Announce "Congratulations to the winners!",8;
// GENERATES DRAW ID CODE
L_GenID:
-set $LID2,$LID;
-// SETS TOMORROW'S ID NUMBER
-set $LID,rand (100000,999999);
-close;
+ set $LID2,$LID;
+ // SETS TOMORROW'S ID NUMBER
+ set $LID,rand (100000,999999);
+ close;
// SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
-set $LW1,$LR1;
-set $LW2,$LR2;
-set $LW3,$LR3;
-set $LW4,$LR4;
-set $LW5,$LR5;
-set $LW6,$LR6;
-set $L_Rigged,0;
-goto L_Broadcast;
+ set $LW1,$LR1;
+ set $LW2,$LR2;
+ set $LW3,$LR3;
+ set $LW4,$LR4;
+ set $LW5,$LR5;
+ set $LW6,$LR6;
+ set $L_Rigged,0;
+ goto L_Broadcast;
// ALLOWS GM TO DO A RIGGED DRAW
L_GM_Rig:
-mes "[Lottery]";
-mes "Please pick your numbers (1-40):";
-set $LR1,0;
-set $LR2,0;
-set $LR3,0;
-set $LR4,0;
-set $LR5,0;
-set $LR6,0;
+ mes "[Lottery]";
+ mes "Please pick your numbers (1-40):";
+ set $LR1,0;
+ set $LR2,0;
+ set $LR3,0;
+ set $LR4,0;
+ set $LR5,0;
+ set $LR6,0;
GMInput1:
-Input $LR1;
-if ($LR1 < 1 || $LR1 > 40) goto GMInput1;
-mes $LR1;
+ Input $LR1;
+ if ($LR1 < 1 || $LR1 > 40) goto GMInput1;
+ mes $LR1;
GMInput2:
-Input $LR2;
-if ($LR2 < 1 || $LR2 > 40) goto GMInput2;
-if ($LR2 == $LR1) goto GMInput2;
-mes $LR2;
+ Input $LR2;
+ if ($LR2 < 1 || $LR2 > 40) goto GMInput2;
+ if ($LR2 == $LR1) goto GMInput2;
+ mes $LR2;
GMInput3:
-Input $LR3;
-if ($LR3 < 1 || $LR3 > 40) goto GMInput3;
-if ($LR3 == $LR1) goto GMInput3;
-if ($LR3 == $LR2) goto GMInput3;
-mes $LR3;
+ Input $LR3;
+ if ($LR3 < 1 || $LR3 > 40) goto GMInput3;
+ if ($LR3 == $LR1) goto GMInput3;
+ if ($LR3 == $LR2) goto GMInput3;
+ mes $LR3;
GMInput4:
-Input $LR4;
-if ($LR4 < 1 || $LR4 > 40) goto GMInput4;
-if ($LR4 == $LR1) goto GMInput4;
-if ($LR4 == $LR2) goto GMInput4;
-if ($LR4 == $LR3) goto GMInput4;
-mes $LR4;
+ Input $LR4;
+ if ($LR4 < 1 || $LR4 > 40) goto GMInput4;
+ if ($LR4 == $LR1) goto GMInput4;
+ if ($LR4 == $LR2) goto GMInput4;
+ if ($LR4 == $LR3) goto GMInput4;
+ mes $LR4;
GMInput5:
-Input $LR5;
-if ($LR5 < 1 || $LR5 > 40) goto GMInput5;
-if ($LR5 == $LR1) goto GMInput5;
-if ($LR5 == $LR2) goto GMInput5;
-if ($LR5 == $LR3) goto GMInput5;
-if ($LR5 == $LR4) goto GMInput5;
-mes $LR5;
+ Input $LR5;
+ if ($LR5 < 1 || $LR5 > 40) goto GMInput5;
+ if ($LR5 == $LR1) goto GMInput5;
+ if ($LR5 == $LR2) goto GMInput5;
+ if ($LR5 == $LR3) goto GMInput5;
+ if ($LR5 == $LR4) goto GMInput5;
+ mes $LR5;
GMInput6:
-Input $LR6;
-if ($LR6 < 1 || $LR6 > 40) goto GMInput6;
-if ($LR6 == $LR1) goto GMInput6;
-if ($LR6 == $LR2) goto GMInput6;
-if ($LR6 == $LR3) goto GMInput6;
-if ($LR6 == $LR4) goto GMInput6;
-if ($LR6 == $LR5) goto GMInput6;
-mes $LR6;
-next;
-mes "[Lottery]";
-mes "Lottery rigged for next draw.";
-set $L_Rigged,1;
-close;
+ Input $LR6;
+ if ($LR6 < 1 || $LR6 > 40) goto GMInput6;
+ if ($LR6 == $LR1) goto GMInput6;
+ if ($LR6 == $LR2) goto GMInput6;
+ if ($LR6 == $LR3) goto GMInput6;
+ if ($LR6 == $LR4) goto GMInput6;
+ if ($LR6 == $LR5) goto GMInput6;
+ mes $LR6;
+ next;
+ mes "[Lottery]";
+ mes "Lottery rigged for next draw.";
+ set $L_Rigged,1;
+ close;
}
-
-prontera,141,182,5 duplicate(lottery) Lottery 76
diff --git a/npc/custom/market.txt b/npc/custom/market.txt
index b6eb18532..d07eabac8 100644
--- a/npc/custom/market.txt
+++ b/npc/custom/market.txt
@@ -1,37 +1,35 @@
//===== rAthena Script =======================================
//= Market Place
-//===== By ===================================================
+//===== By: ==================================================
//= Lupus
-//===== Version ==============================================
+//===== Current Version: =====================================
//= 1.1
-//===== Compatible With ======================================
-//= rAthena 5760+
-//===== Description ==========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= This script should move vending crowds from Prontera
//= streets to a suitable market place. Save your traffic 8)
-//===== Comments =============================================
-//=1.0 unknown
-//=1.1 Optimized it, Removed labels. [Spre]
+//===== Additional Comments: =================================
+//= 1.1 Optimized it, Removed labels. [Spre]
//============================================================
-
prontera,144,174,3 script Market Place 722,{
mes"[Market Place]";
mes"Tristan III's order: ^FF0000Move all the private shops to a special Market Place^000000.";
next;
- if (select("Yes Please:No") == 2) {
+ if (select("Yes Please:No") == 2) {
close;
}
// I didn't see the need to check and show venders.... Since it didnt even work
warp "gon_test",27+rand(5),98;
end;
}
-
+
gon_test,73,103,0 script MarketExit 45,1,2,{
warp "prontera",155,177-rand(10);
end;
}
-
+
//disable vending in Prontera
prontera mapflag novending
prt_in mapflag novending
diff --git a/npc/custom/marriage.txt b/npc/custom/marriage.txt
index ed06b4abf..0ca3fb069 100644
--- a/npc/custom/marriage.txt
+++ b/npc/custom/marriage.txt
@@ -1,22 +1,18 @@
-//////////////////////////////////////////////////////////
-// Marriage Script //
-//////////////////////////////////////////////////////////
-//
-//=====rAthena Script====================================
-// Wedding Script
-//=====By================================================
-// AppleGirl and Evera(version 1.0)
-//=====Current Version===================================
-// 2.9
-//=====Compatible With:==================================
-// rAthena Version SVN-R8637 and up; RO Episode 6+
-//=====Description=======================================
-// Fully working wedding script for all kind of weddings
-//=====Additional Comments:==============================
-// Lesbian and Gay Weddings by ShadowLady (version 1.1)
-// Complete Rewrite by Skotlex (version 2.0->2.8)
-// 2.9 : Somewhat iRO-official NPC names [DracoRPG]
-//=======================================================
+//===== rAthena Script =======================================
+//= Wedding Script
+//===== By: ==================================================
+//= AppleGirl, Evera
+//===== Current Version: =====================================
+//= 2.9
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= Fully working wedding script for all kind of weddings
+//===== Additional Comments: =================================
+// 1.1 Lesbian and Gay Weddings [ShadowLady]
+// 2.0 Complete Rewrite [Skotlex]
+// 2.9 Somewhat iRO-official NPC names [DracoRPG]
+//============================================================
// Configuration Variables:
- script marriage_init -1,{
diff --git a/npc/custom/morroc_raceway.txt b/npc/custom/morroc_raceway.txt
index b81c7aca6..768084173 100644
--- a/npc/custom/morroc_raceway.txt
+++ b/npc/custom/morroc_raceway.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= Morroc Raceway Script
+//= Morroc Raceway
//===== By: ==================================================
-//= acky (god@acky.com)
+//= acky
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: =========================================
//= Lets players race around Morroc (pvp_y_1-5)
//===== Additional Comments: =================================
@@ -22,226 +22,217 @@
//Warps you into race way
morocc,166,105,6 script Race Girl#01 116,{
-mes "[Race Girl]";
-mes "Would you like to visit ^0000FFMorroc Raceway^000000?";
-next;
-menu "Yes",L_Warp,"No",-;
-mes "[Race Girl]";
-mes "Alright, talk to me again when you want to go.";
-close;
-
+ mes "[Race Girl]";
+ mes "Would you like to visit ^0000FFMorroc Raceway^000000?";
+ next;
+ menu "Yes",L_Warp,"No",-;
+ mes "[Race Girl]";
+ mes "Alright, talk to me again when you want to go.";
+ close;
L_Warp:
-warp "pvp_y_1-5",165,256;
-close;
+ warp "pvp_y_1-5",165,256;
+ close;
}
//Warps you out of raceway
pvp_y_1-5,169,265,5 script Race Girl#02 116,{
-mes "[Race Girl]";
-mes "Welcome to Morroc Raceway!";
-next;
-menu "Information",-,"Leave",L_Warp,"Cancel",L_Cancel;
-mes "[Race Girl]";
-mes "Someone must click on the Starter NPC to start the race.";
-next;
-mes "[Race Girl]";
-mes "Once the race is started, run around Morroc anti-clockwise.";
-next;
-mes "[Race Girl]";
-mes "You must reach all the checkpoints - No cheating!";
-close;
-
+ mes "[Race Girl]";
+ mes "Welcome to Morroc Raceway!";
+ next;
+ menu "Information",-,"Leave",L_Warp,"Cancel",L_Cancel;
+ mes "[Race Girl]";
+ mes "Someone must click on the Starter NPC to start the race.";
+ next;
+ mes "[Race Girl]";
+ mes "Once the race is started, run around Morroc anti-clockwise.";
+ next;
+ mes "[Race Girl]";
+ mes "You must reach all the checkpoints - No cheating!";
+ close;
L_Warp:
-warp "morocc",165,101;
-
+ warp "morocc",165,101;
L_Cancel:
-mes "[Race Girl]";
-mes "Come again soon!";
-close;
+ mes "[Race Girl]";
+ mes "Come again soon!";
+ close;
}
//Counts down and starts race
pvp_y_1-5,145,269,5 script Starter 733,{
-if ($@race != 0) goto L_Started;
-if ($@counting != 0) goto L_Started;
-if ($@racecount == 1) goto L_Started;
+ if ($@race != 0) goto L_Started;
+ if ($@counting != 0) goto L_Started;
+ if ($@racecount == 1) goto L_Started;
L_Menu:
-mes "[Race Starter]";
-mes "Please stay on the Eastern side of me.";
-menu "Start Race",L_Count,"Cancel",-;
-close;
-
- L_Count:
- set $@counting,1;
- mes "Counting down...";
- addtimer 1000, "Starter::OnCount1000";
- addtimer 2000, "Starter::OnCount2000";
- addtimer 3000, "Starter::OnCount3000";
- addtimer 4000, "Starter::OnCount4000";
- announce strcharinfo(0) + "Started a countdown",1;
- announce "Get ready to race!",1;
- close;
-
-
- OnCount1000:
- announce "[3]",1;
- end;
-
- OnCount2000:
- announce "[2]",1;
- end;
-
- OnCount3000:
- announce "[1]",1;
- end;
-
- OnCount4000:
- emotion 27;
- specialeffect EF_CHIMTO;
- announce "[GO!]",1;
- set $@race,1;
- set $@position,0;
- set $@counting,0;
- set $@raceid,rand(100000,999999);
- end;
-
+ mes "[Race Starter]";
+ mes "Please stay on the Eastern side of me.";
+ menu "Start Race",L_Count,"Cancel",-;
+ close;
+L_Count:
+ set $@counting,1;
+ mes "Counting down...";
+ addtimer 1000, "Starter::OnCount1000";
+ addtimer 2000, "Starter::OnCount2000";
+ addtimer 3000, "Starter::OnCount3000";
+ addtimer 4000, "Starter::OnCount4000";
+ announce strcharinfo(0) + "Started a countdown",1;
+ announce "Get ready to race!",1;
+ close;
+
+OnCount1000:
+ announce "[3]",1;
+ end;
+OnCount2000:
+ announce "[2]",1;
+ end;
+OnCount3000:
+ announce "[1]",1;
+ end;
+OnCount4000:
+ emotion 27;
+ specialeffect EF_CHIMTO;
+ announce "[GO!]",1;
+ set $@race,1;
+ set $@position,0;
+ set $@counting,0;
+ set $@raceid,rand(100000,999999);
+ end;
L_Started:
-if ((getmapusers("pvp_y_1-5") < 3) && ($@position > 0)) goto L_Menu;
-if ($@position > 2) goto L_Menu;
-mes "[Starter]";
-mes "Race in progress";
-close;
+ if ((getmapusers("pvp_y_1-5") < 3) && ($@position > 0)) goto L_Menu;
+ if ($@position > 2) goto L_Menu;
+ mes "[Starter]";
+ mes "Race in progress";
+ close;
OnInit:
-set $@race,0;
-set $@position,0;
-set $@racecount,0;
-end;
+ set $@race,0;
+ set $@position,0;
+ set $@racecount,0;
+ end;
}
//Checkpoint 1
pvp_y_1-5,144,262,5 script Check Point 1 111,0,5,{
-end;
+ end;
OnTouch:
-if (@raceid != $@raceid) goto L_Started;
-if (@race == 6) goto L_Finished;
-if ($@race == 1) goto L_Started;
-mes "The race has not started, please move back.";
-close;
+ if (@raceid != $@raceid) goto L_Started;
+ if (@race == 6) goto L_Finished;
+ if ($@race == 1) goto L_Started;
+ mes "The race has not started, please move back.";
+ close;
L_Started:
-set @race,1;
-set @raceid,$@raceid;
-end;
+ set @race,1;
+ set @raceid,$@raceid;
+ end;
L_Finished:
-mes "You have already completed the race.";
-close;
+ mes "You have already completed the race.";
+ close;
}
//Checkpoint 2
pvp_y_1-5,73,247,5 script Check Point 2 111,6,6,{
-end;
+ end;
OnTouch:
-if (@race != 1) goto L_Miss;
-set @race,2;
-announce "[" + strcharinfo(0) +"] has reached Checkpoint [1]",1;
-end;
+ if (@race != 1) goto L_Miss;
+ set @race,2;
+ announce "[" + strcharinfo(0) +"] has reached Checkpoint [1]",1;
+ end;
L_Miss:
-mes "You have missed a Checkpoint. Please go back.";
-close;
+ mes "You have missed a Checkpoint. Please go back.";
+ close;
}
//Checkpoint 3
pvp_y_1-5,77,44,5 script Check Point 3 111,6,6,{
-end;
+ end;
OnTouch:
-if (@race != 2) goto L_Miss;
-set @race,3;
-announce "[" + strcharinfo(0) +"] has reached Checkpoint [2]",1;
-end;
+ if (@race != 2) goto L_Miss;
+ set @race,3;
+ announce "[" + strcharinfo(0) +"] has reached Checkpoint [2]",1;
+ end;
L_Miss:
-mes "You have missed a Checkpoint. Please go back.";
-close;
+ mes "You have missed a Checkpoint. Please go back.";
+ close;
}
//Checkpoint 3
pvp_y_1-5,249,60,5 script Check Point 4 111,6,6,{
-end;
+ end;
OnTouch:
-if (@race != 3) goto L_Miss;
-set @race,4;
-announce "[" + strcharinfo(0) +"] has reached Checkpoint [3]",1;
-end;
+ if (@race != 3) goto L_Miss;
+ set @race,4;
+ announce "[" + strcharinfo(0) +"] has reached Checkpoint [3]",1;
+ end;
L_Miss:
-mes "You have missed a Checkpoint. Please go back.";
-close;
+ mes "You have missed a Checkpoint. Please go back.";
+ close;
}
//Checkpoint 4
pvp_y_1-5,255,256,5 script Check Point 5 111,6,6,{
-end;
+ end;
OnTouch:
-if (@race != 4) goto L_Miss;
-set @race,5;
-announce "[" + strcharinfo(0) +"] has reached Checkpoint [4]",1;
-end;
+ if (@race != 4) goto L_Miss;
+ set @race,5;
+ announce "[" + strcharinfo(0) +"] has reached Checkpoint [4]",1;
+ end;
L_Miss:
-mes "You have missed a Checkpoint. Please go back.";
-close;
+ mes "You have missed a Checkpoint. Please go back.";
+ close;
}
//Finish Line
pvp_y_1-5,174,244,5 script Finish Line 111,6,6,{
-end;
+ end;
OnTouch:
-if (@raceid != $@raceid) goto L_WrongRace;
-if (@race != 5) goto L_Miss;
-set @race,6;
-set $@position,$@position+1;
-announce "[" + strcharinfo(0) +"] has reached The Finish line! [Position: " + $@position + "]",1;
-end;
+ if (@raceid != $@raceid) goto L_WrongRace;
+ if (@race != 5) goto L_Miss;
+ set @race,6;
+ set $@position,$@position+1;
+ announce "[" + strcharinfo(0) +"] has reached The Finish line! [Position: " + $@position + "]",1;
+ end;
L_Miss:
-mes "You have missed a Checkpoint. Please go back.";
-close;
+ mes "You have missed a Checkpoint. Please go back.";
+ close;
L_WrongRace:
-mes "You are not in this race.";
-close;
+ mes "You are not in this race.";
+ close;
}
//Check Point Marker Flags
pvp_y_1-5,144,267,4 script Check Point 1#01 722,{
-end;
+ end;
}
pvp_y_1-5,144,257,4 script Check Point 1#02 722,{
-end;
+ end;
}
pvp_y_1-5,70,252,3 script Check Point 2#01 722,{
-end;
+ end;
}
pvp_y_1-5,77,243,3 script Check Point 2#02 722,{
-end;
+ end;
}
pvp_y_1-5,81,48,1 script Check Point 3#01 722,{
-end;
+ end;
}
pvp_y_1-5,72,40,1 script Check Point 3#02 722,{
-end;
+ end;
}
pvp_y_1-5,244,65,7 script Check Point 4#01 722,{
-end;
+ end;
}
pvp_y_1-5,252,57,7 script Check Point 4#02 722,{
-end;
+ end;
}
pvp_y_1-5,259,260,5 script Check Point 5#01 722,{
-end;
+ end;
}
pvp_y_1-5,251,252,5 script Check Point 5#02 722,{
-end;
+ end;
}
pvp_y_1-5,174,249,4 script Finish Line#01 722,{
-end;
+ end;
}
pvp_y_1-5,174,238,4 script Finish Line#02 722,{
-end;
+ end;
}
diff --git a/npc/custom/mvm.txt b/npc/custom/mvm.txt
index 42891324f..251759a7c 100644
--- a/npc/custom/mvm.txt
+++ b/npc/custom/mvm.txt
@@ -1,7 +1,7 @@
//===== rAthena Script =======================================
//= Monster vs Monster
//===== By: ==================================================
-//= acky - god@acky.com
+//= acky
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
@@ -21,542 +21,542 @@
//= 1.1.4 Fixed SummonPad syntax. [KarLaeda]
//= 1.1.5 Some cleanup & optimization [KarLaeda]
//= 1.2 Replaced effect numerics with constants. [Samuray22]
-//============================================================
+//============================================================
// Entrance //
prontera,158,193,6 script Monster Arena 702,{
-mes "[Monster Arena]";
-mes "Would you like to enter the Monster Arena?";
-mes "Currently ^FF0000" + getmapusers("gon_test") + "^000000 players";
-mes "^FF0000Note:^000000 Pecos, Falcons and Carts will be lost on entry.";
+ mes "[Monster Arena]";
+ mes "Would you like to enter the Monster Arena?";
+ mes "Currently ^FF0000" + getmapusers("gon_test") + "^000000 players";
+ mes "^FF0000Note:^000000 Pecos, Falcons and Carts will be lost on entry.";
L_Menu:
-next;
-menu "Enter",-,"Information",L_Info,"Cancel",L_Exit;
+ next;
+ menu "Enter",-,"Information",L_Info,"Cancel",L_Exit;
-set @marena,1;
-savepoint "gon_test",56,99;
-set @battle,0;
-warp "gon_test",57,99;
-close;
+ set @marena,1;
+ savepoint "gon_test",56,99;
+ set @battle,0;
+ warp "gon_test",57,99;
+ close;
L_Exit:
-mes "[Monster Arena]";
-mes "Come back any time.";
-close;
+ mes "[Monster Arena]";
+ mes "Come back any time.";
+ close;
L_Info:
-mes "[Monster Arena]";
-mes "You must purchase a pet from the Monster Tamer to start fighting.";
-next;
-mes "[Monster Arena]";
-mes "Then talk to the Usher and tell him you would like to compete.";
-next;
-mes "[Monster Arena]";
-mes "Talk to the referee to summon your monster.";
-mes "Once your monster has fought, you must talk to the Usher again and choose to spectate.";
-next;
-mes "[Monster Arena]";
-mes "Talk to the Monster Trainer, he will ask you to heal your pet.";
-next;
-mes "[Monster Arena]";
-mes "To do this, click the Nurse repearedly until it says your pet is healed.";
-next;
-mes "[Monster Arena]";
-mes "The more monsters you kill, the more exp you get and the quicker you can upgrade.";
-next;
-mes "[Monster Arena]";
-mes "The stronger your monster is, the longer it will take to summon again.";
-
-goto L_Menu;
+ mes "[Monster Arena]";
+ mes "You must purchase a pet from the Monster Tamer to start fighting.";
+ next;
+ mes "[Monster Arena]";
+ mes "Then talk to the Usher and tell him you would like to compete.";
+ next;
+ mes "[Monster Arena]";
+ mes "Talk to the referee to summon your monster.";
+ mes "Once your monster has fought, you must talk to the Usher again and choose to spectate.";
+ next;
+ mes "[Monster Arena]";
+ mes "Talk to the Monster Trainer, he will ask you to heal your pet.";
+ next;
+ mes "[Monster Arena]";
+ mes "To do this, click the Nurse repearedly until it says your pet is healed.";
+ next;
+ mes "[Monster Arena]";
+ mes "The more monsters you kill, the more exp you get and the quicker you can upgrade.";
+ next;
+ mes "[Monster Arena]";
+ mes "The stronger your monster is, the longer it will take to summon again.";
+
+ goto L_Menu;
}
// Monster Summon Function //
function script monstersummon {
-// 1. ---Change to Add Monsters--- //
-if (#monster == 10) summon strcharinfo(0) + "'s Poring",1002, "OnPoringKilled";
-if (#monster == 20) summon strcharinfo(0) + "'s Fabre",1007, "OnFaberKilled";
-if (#monster == 30) summon strcharinfo(0) + "'s Lunatic",1063, "OnLunaticKilled";
-if (#monster == 31) summon strcharinfo(0) + "'s Drops",1113, "OnDropsKilled";
-if (#monster == 32) summon strcharinfo(0) + "'s Picky",1049, "OnPickyKilled";
-if (#monster == 40) summon strcharinfo(0) + "'s ChonChon",1011, "OnChonChonKilled";
-if (#monster == 41) summon strcharinfo(0) + "'s Super Picky",1050, "OnSPickyKilled";
-if (#monster == 42) summon strcharinfo(0) + "'s Willow",1010, "OnWillowKilled";
-if (#monster == 50) summon strcharinfo(0) + "'s Roda Frog",1012, "OnRodaKilled";
-if (#monster == 51) summon strcharinfo(0) + "'s Condor",1009, "OnCondorKilled";
-if (#monster == 60) summon strcharinfo(0) + "'s Thief Bug Larva",1051, "OnThiefKilled";
-if (#monster == 70) summon strcharinfo(0) + "'s Savage Babe",1167, "OnSavageKilled";
-if (#monster == 80) summon strcharinfo(0) + "'s Familiar",1005, "OnFamiliarKilled";
-if (#monster == 81) summon strcharinfo(0) + "'s Hornet",1004, "OnHornetKilled";
-if (#monster == 90) summon strcharinfo(0) + "'s Desert Wolf Puppy",1107, "OnPuppyKilled";
-if (#monster == 91) summon strcharinfo(0) + "'s Spore",1014, "OnSporeKilled";
-if (#monster == 92) summon strcharinfo(0) + "'s Rocker",1052, "OnRockerKilled";
-if (#monster == 100) summon strcharinfo(0) + "'s Skeleton",1076, "OnSkeletonKilled";
-if (#monster == 101) summon strcharinfo(0) + "'s Plankton",1161, "OnPlanktonKilled";
-if (#monster == 102) summon strcharinfo(0) + "'s Antonio",1247, "OnAntonioKilled";
-if (#monster == 103) summon strcharinfo(0) + "'s Thief Bug Female",1053, "OnThiefFemaleKilled";
-close;
+ // 1. ---Change to Add Monsters--- //
+ if (#monster == 10) summon strcharinfo(0) + "'s Poring",1002, "OnPoringKilled";
+ if (#monster == 20) summon strcharinfo(0) + "'s Fabre",1007, "OnFaberKilled";
+ if (#monster == 30) summon strcharinfo(0) + "'s Lunatic",1063, "OnLunaticKilled";
+ if (#monster == 31) summon strcharinfo(0) + "'s Drops",1113, "OnDropsKilled";
+ if (#monster == 32) summon strcharinfo(0) + "'s Picky",1049, "OnPickyKilled";
+ if (#monster == 40) summon strcharinfo(0) + "'s ChonChon",1011, "OnChonChonKilled";
+ if (#monster == 41) summon strcharinfo(0) + "'s Super Picky",1050, "OnSPickyKilled";
+ if (#monster == 42) summon strcharinfo(0) + "'s Willow",1010, "OnWillowKilled";
+ if (#monster == 50) summon strcharinfo(0) + "'s Roda Frog",1012, "OnRodaKilled";
+ if (#monster == 51) summon strcharinfo(0) + "'s Condor",1009, "OnCondorKilled";
+ if (#monster == 60) summon strcharinfo(0) + "'s Thief Bug Larva",1051, "OnThiefKilled";
+ if (#monster == 70) summon strcharinfo(0) + "'s Savage Babe",1167, "OnSavageKilled";
+ if (#monster == 80) summon strcharinfo(0) + "'s Familiar",1005, "OnFamiliarKilled";
+ if (#monster == 81) summon strcharinfo(0) + "'s Hornet",1004, "OnHornetKilled";
+ if (#monster == 90) summon strcharinfo(0) + "'s Desert Wolf Puppy",1107, "OnPuppyKilled";
+ if (#monster == 91) summon strcharinfo(0) + "'s Spore",1014, "OnSporeKilled";
+ if (#monster == 92) summon strcharinfo(0) + "'s Rocker",1052, "OnRockerKilled";
+ if (#monster == 100) summon strcharinfo(0) + "'s Skeleton",1076, "OnSkeletonKilled";
+ if (#monster == 101) summon strcharinfo(0) + "'s Plankton",1161, "OnPlanktonKilled";
+ if (#monster == 102) summon strcharinfo(0) + "'s Antonio",1247, "OnAntonioKilled";
+ if (#monster == 103) summon strcharinfo(0) + "'s Thief Bug Female",1053, "OnThiefFemaleKilled";
+ close;
}
// Referee //
- script monsterreferee 61,{
-if (@fighting == 1) end;
-if (@battle == 1) goto L_Start;
-end;
+ if (@fighting == 1) end;
+ if (@battle == 1) goto L_Start;
+ end;
L_Start:
-mes "[Referee]";
-mes "Your monster is:";
-
-// 2. ---Change to Add Monsters--- //
-if (#monster == 10) mes "Poring";
-if (#monster == 20) mes "Faber";
-if (#monster == 30) mes "Lunatic";
-if (#monster == 31) mes "Drops";
-if (#monster == 32) mes "Picky";
-if (#monster == 40) mes "ChonChon";
-if (#monster == 41) mes "Super Picky";
-if (#monster == 42) mes "Willow";
-if (#monster == 50) mes "Roda Frog";
-if (#monster == 51) mes "Condor";
-if (#monster == 60) mes "Thief Bug Larva";
-if (#monster == 70) mes "Savage Babe";
-if (#monster == 80) mes "Familiar";
-if (#monster == 81) mes "Hornet";
-if (#monster == 90) mes "Desert Wolf Puppy";
-if (#monster == 91) mes "Spore";
-if (#monster == 92) mes "Rocker";
-if (#monster == 100) mes "Skeleton";
-if (#monster == 101) mes "Plankton";
-if (#monster == 102) mes "Antonio";
-if (#monster == 103) mes "Thief Bug Female";
-
-mes "Would you like to fight?";
-next;
-menu "Fight",-,"Cancel",L_Exit;
-
-set @fighting,1;
-set #heal,1;
-set @special,rand (100); // Chance of special summon
-if (@special == 1) goto Special1;
-if (@special == 2) goto Special2;
-if (@special == 3) goto Special3;
-if (@special == 4) goto Special4;
-if (@special == 5) goto Special5;
-
-callfunc "monstersummon";
-close;
-
-// Special Summons //
+ mes "[Referee]";
+ mes "Your monster is:";
+
+ // 2. ---Change to Add Monsters--- //
+ if (#monster == 10) mes "Poring";
+ if (#monster == 20) mes "Faber";
+ if (#monster == 30) mes "Lunatic";
+ if (#monster == 31) mes "Drops";
+ if (#monster == 32) mes "Picky";
+ if (#monster == 40) mes "ChonChon";
+ if (#monster == 41) mes "Super Picky";
+ if (#monster == 42) mes "Willow";
+ if (#monster == 50) mes "Roda Frog";
+ if (#monster == 51) mes "Condor";
+ if (#monster == 60) mes "Thief Bug Larva";
+ if (#monster == 70) mes "Savage Babe";
+ if (#monster == 80) mes "Familiar";
+ if (#monster == 81) mes "Hornet";
+ if (#monster == 90) mes "Desert Wolf Puppy";
+ if (#monster == 91) mes "Spore";
+ if (#monster == 92) mes "Rocker";
+ if (#monster == 100) mes "Skeleton";
+ if (#monster == 101) mes "Plankton";
+ if (#monster == 102) mes "Antonio";
+ if (#monster == 103) mes "Thief Bug Female";
+
+ mes "Would you like to fight?";
+ next;
+ menu "Fight",-,"Cancel",L_Exit;
+
+ set @fighting,1;
+ set #heal,1;
+ set @special,rand (100); // Chance of special summon
+ if (@special == 1) goto Special1;
+ if (@special == 2) goto Special2;
+ if (@special == 3) goto Special3;
+ if (@special == 4) goto Special4;
+ if (@special == 5) goto Special5;
+
+ callfunc "monstersummon";
+ close;
+
+ // Special Summons //
Special1:
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
-close;
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ summon strcharinfo(0) + "'s Assault Team",1002, "OnPoringKilled";
+ close;
Special2:
-summon strcharinfo(0) + "'s Mastering",1090, "OnSpecialKilled";
-close;
+ summon strcharinfo(0) + "'s Mastering",1090, "OnSpecialKilled";
+ close;
Special3:
-summon strcharinfo(0) + "'s Eclipse",1093, "OnSpecialKilled";
-close;
+ summon strcharinfo(0) + "'s Eclipse",1093, "OnSpecialKilled";
+ close;
Special4:
-summon strcharinfo(0) + "'s Dragon Fly",1091, "OnSpecialKilled";
-close;
+ summon strcharinfo(0) + "'s Dragon Fly",1091, "OnSpecialKilled";
+ close;
Special5:
-summon strcharinfo(0) + "'s Toad",1089, "OnSpecialKilled";
-close;
+ summon strcharinfo(0) + "'s Toad",1089, "OnSpecialKilled";
+ close;
L_Exit:
-mes "[Referee]";
-mes "Alright";
-close;
+ mes "[Referee]";
+ mes "Alright";
+ close;
}
gon_test,56,91,6 duplicate(monsterreferee) Referee#01 61
// Usher //
gon_test,58,94,6 script Usher 86,{
-set @marena,1;
-mes "[Usher]";
-mes "What would you like to do?";
-next;
-menu "^0000FFSpectate",L_Spec,"^FF0000Compete^000000",-,"Return to Town",L_Exit,"Cancel",L_Cancel;
+ set @marena,1;
+ mes "[Usher]";
+ mes "What would you like to do?";
+ next;
+ menu "^0000FFSpectate",L_Spec,"^FF0000Compete^000000",-,"Return to Town",L_Exit,"Cancel",L_Cancel;
-if (#monster == 0) goto L_NoMon;
-if (#heal == 1) goto L_Heal;
+ if (#monster == 0) goto L_NoMon;
+ if (#heal == 1) goto L_Heal;
-if (#monster < 40) goto L_Low;
-if (#monster > 30 && #monster < 80) goto L_Med;
-if (#monster > 70) goto L_High;
+ if (#monster < 40) goto L_Low;
+ if (#monster > 30 && #monster < 80) goto L_Med;
+ if (#monster > 70) goto L_High;
L_Low:
-menu "Level 1-3",L_1to3,"^FF0000All Levels",L_High;
-close;
+ menu "Level 1-3",L_1to3,"^FF0000All Levels",L_High;
+ close;
L_Med:
-menu "Level 4-7",L_4to6,"^FF0000All Levels",L_High;
-close;
+ menu "Level 4-7",L_4to6,"^FF0000All Levels",L_High;
+ close;
L_High:
-close2;
-savepoint "gon_test",56,99;
-set @battle,1;
-atcommand strcharinfo(0) + "@option 64 0 64";
-warp "gon_test",72,87;
-end;
+ close2;
+ savepoint "gon_test",56,99;
+ set @battle,1;
+ atcommand strcharinfo(0) + "@option 64 0 64";
+ warp "gon_test",72,87;
+ end;
L_4to6:
-close2;
-savepoint "gon_test",56,99;
-set @battle,1;
-atcommand strcharinfo(0) + "@option 64 0 64";
-warp "gon_test",57,86;
-end;
+ close2;
+ savepoint "gon_test",56,99;
+ set @battle,1;
+ atcommand strcharinfo(0) + "@option 64 0 64";
+ warp "gon_test",57,86;
+ end;
L_1to3:
-close2;
-savepoint "gon_test",56,99;
-set @battle,1;
-atcommand strcharinfo(0) + "@option 64 0 64";
-warp "gon_test",43,87;
-end;
+ close2;
+ savepoint "gon_test",56,99;
+ set @battle,1;
+ atcommand strcharinfo(0) + "@option 64 0 64";
+ warp "gon_test",43,87;
+ end;
L_Exit:
-close2;
-savepoint "prontera",149,186;
-set @battle,0;
-atcommand strcharinfo(0) + "@option 0 0 0";
-warp "prontera",149,186;
-end;
+ close2;
+ savepoint "prontera",149,186;
+ set @battle,0;
+ atcommand strcharinfo(0) + "@option 0 0 0";
+ warp "prontera",149,186;
+ end;
L_Spec:
-close2;
-savepoint "gon_test",56,99;
-set @battle,0;
-atcommand strcharinfo(0) + "@option 0 0 0";
-warp "gon_test",57,99;
-end;
+ close2;
+ savepoint "gon_test",56,99;
+ set @battle,0;
+ atcommand strcharinfo(0) + "@option 0 0 0";
+ warp "gon_test",57,99;
+ end;
L_NoMon:
-mes "[Usher]";
-mes "You haven't got a monster, you can only spectate.";
-close;
+ mes "[Usher]";
+ mes "You haven't got a monster, you can only spectate.";
+ close;
L_Heal:
-mes "[Usher]";
-mes "You have to heal your monster before you can fight again.";
-close;
+ mes "[Usher]";
+ mes "You have to heal your monster before you can fight again.";
+ close;
L_Cancel:
-close;
+ close;
}
// Monster Trainer //
gon_test,52,103,6 script Monster Trainer 87,{
-mes "[Monster Trainer]";
-if (#monster != 0) goto L_Mon;
-
-mes "Welcome to the monster arena, would you like to start training?";
-next;
-menu "Yes",-,"No",L_Exit;
-
-mes "[Monster Trainer]";
-mes "New trainers may only start with Porings.";
-mes "They cost 1000z, Would you like to buy one?";
-next;
-menu "Yes",-,"No",L_Exit;
-
-if (zeny < 1000) goto L_NoZeny;
-set zeny,zeny-1000;
-set #monster,10;
-mes "[Monster Trainer]";
-mes "Congratulations!";
-mes "When your Poring earns enough experience, talk to me to upgrade.";
-close;
+ mes "[Monster Trainer]";
+ if (#monster != 0) goto L_Mon;
+
+ mes "Welcome to the monster arena, would you like to start training?";
+ next;
+ menu "Yes",-,"No",L_Exit;
+
+ mes "[Monster Trainer]";
+ mes "New trainers may only start with Porings.";
+ mes "They cost 1000z, Would you like to buy one?";
+ next;
+ menu "Yes",-,"No",L_Exit;
+
+ if (zeny < 1000) goto L_NoZeny;
+ set zeny,zeny-1000;
+ set #monster,10;
+ mes "[Monster Trainer]";
+ mes "Congratulations!";
+ mes "When your Poring earns enough experience, talk to me to upgrade.";
+ close;
L_Mon:
-mes "Welcome back, " + strcharinfo(0) + ".";
-mes "Your monster has " + #monpoints + " exp points.";
-next;
-if (@fighting == 1) goto L_Heal;
-menu "Upgrade Monster",L_Upgrade,"Sell Experience",L_Sell,"^FF0000Abandon Monster^000000",L_Abandon,"Cancel",L_Exit;
+ mes "Welcome back, " + strcharinfo(0) + ".";
+ mes "Your monster has " + #monpoints + " exp points.";
+ next;
+ if (@fighting == 1) goto L_Heal;
+ menu "Upgrade Monster",L_Upgrade,"Sell Experience",L_Sell,"^FF0000Abandon Monster^000000",L_Abandon,"Cancel",L_Exit;
L_Abandon:
-mes "[Monster Trainer]";
-mes "Are you sure you want to abandon your monster?";
-next;
-menu "Yes",-,"No",L_Exit;
-set #monster,0;
-set #monpoints,0;
-mes "[Monster Trainer]";
-mes "Monster released into the wild.";
-close;
+ mes "[Monster Trainer]";
+ mes "Are you sure you want to abandon your monster?";
+ next;
+ menu "Yes",-,"No",L_Exit;
+ set #monster,0;
+ set #monpoints,0;
+ mes "[Monster Trainer]";
+ mes "Monster released into the wild.";
+ close;
L_Sell:
-mes "[Monster Trainer]";
-mes "You can sell your monster's experience for 100z each.";
-next;
-menu "Sell",-,"Cancel",L_Exit;
-mes "[Monster Trainer]";
-mes "You have: ^FF0000" + #monpoints + "^000000 experience points";
-mes "How many would you like to sell?";
-next;
-input @sellexp;
-if (@sellexp > #monpoints) goto L_NoExp;
-set #monpoints,#monpoints-@sellexp;
-set @sellearn,100*@sellexp; // Price of exp
-set zeny,zeny+@sellearn;
-mes "[Monster Trainer]";
-mes "You earned ^0000FF" + @sellearn + "^000000z.";
-close;
+ mes "[Monster Trainer]";
+ mes "You can sell your monster's experience for 100z each.";
+ next;
+ menu "Sell",-,"Cancel",L_Exit;
+ mes "[Monster Trainer]";
+ mes "You have: ^FF0000" + #monpoints + "^000000 experience points";
+ mes "How many would you like to sell?";
+ next;
+ input @sellexp;
+ if (@sellexp > #monpoints) goto L_NoExp;
+ set #monpoints,#monpoints-@sellexp;
+ set @sellearn,100*@sellexp; // Price of exp
+ set zeny,zeny+@sellearn;
+ mes "[Monster Trainer]";
+ mes "You earned ^0000FF" + @sellearn + "^000000z.";
+ close;
L_NoExp:
-mes "[Monster Trainer]";
-mes "You do not have enough experience.";
-next;
-goto L_Exit;
+ mes "[Monster Trainer]";
+ mes "You do not have enough experience.";
+ next;
+ goto L_Exit;
-// Monster Upgrades //
+ // Monster Upgrades //
L_Upgrade:
-mes "[Monster Trainer]";
-// 3. ---Change to Add Monsters - May not be required--- //
-if (#monster > 1 && #monster < 20) mes "You need 10 exp points to upgrade your monster.";
-if (#monster > 19 && #monster < 30) mes "You need 20 exp points to upgrade your monster.";
-if (#monster > 29 && #monster < 40) mes "You need 40 exp points to upgrade your monster.";
-if (#monster > 39 && #monster < 50) mes "You need 80 exp points to upgrade your monster.";
-if (#monster > 49 && #monster < 60) mes "You need 160 exp points to upgrade your monster.";
-if (#monster > 59 && #monster < 70) mes "You need 320 exp points to upgrade your monster.";
-if (#monster > 69 && #monster < 80) mes "You need 640 exp points to upgrade your monster.";
-if (#monster > 79 && #monster < 90) mes "You need 1280 exp points to upgrade your monster.";
-if (#monster > 89 && #monster < 100) mes "You need 2560 exp points to upgrade your monster.";
-next;
-menu "Continue",-,"Cancel",L_Exit;
-mes "[Monster Trainer]";
-
-// 4. ---Change to Add Monsters - May not be required--- //
-if (#monster > 1 && #monster < 20 && #monpoints > 9) goto L_Up1;
-if (#monster > 19 && #monster < 30 && #monpoints > 19) goto L_Up2;
-if (#monster > 29 && #monster < 40 && #monpoints > 39) goto L_Up3;
-if (#monster > 39 && #monster < 50 && #monpoints > 79) goto L_Up4;
-if (#monster > 49 && #monster < 60 && #monpoints > 159) goto L_Up5;
-if (#monster > 59 && #monster < 70 && #monpoints > 319) goto L_Up6;
-if (#monster > 69 && #monster < 80 && #monpoints > 639) goto L_Up7;
-if (#monster > 79 && #monster < 90 && #monpoints > 1279) goto L_Up8;
-if (#monster > 89 && #monster < 100 && #monpoints > 2559) goto L_Up9;
-
-mes "Unable to upgrade.";
-close;
-
-// 5. ---Change to Add Monsters--- //
- L_Up1:
+ mes "[Monster Trainer]";
+ // 3. ---Change to Add Monsters - May not be required--- //
+ if (#monster > 1 && #monster < 20) mes "You need 10 exp points to upgrade your monster.";
+ if (#monster > 19 && #monster < 30) mes "You need 20 exp points to upgrade your monster.";
+ if (#monster > 29 && #monster < 40) mes "You need 40 exp points to upgrade your monster.";
+ if (#monster > 39 && #monster < 50) mes "You need 80 exp points to upgrade your monster.";
+ if (#monster > 49 && #monster < 60) mes "You need 160 exp points to upgrade your monster.";
+ if (#monster > 59 && #monster < 70) mes "You need 320 exp points to upgrade your monster.";
+ if (#monster > 69 && #monster < 80) mes "You need 640 exp points to upgrade your monster.";
+ if (#monster > 79 && #monster < 90) mes "You need 1280 exp points to upgrade your monster.";
+ if (#monster > 89 && #monster < 100) mes "You need 2560 exp points to upgrade your monster.";
+ next;
+ menu "Continue",-,"Cancel",L_Exit;
+ mes "[Monster Trainer]";
+
+ // 4. ---Change to Add Monsters - May not be required--- //
+ if (#monster > 1 && #monster < 20 && #monpoints > 9) goto L_Up1;
+ if (#monster > 19 && #monster < 30 && #monpoints > 19) goto L_Up2;
+ if (#monster > 29 && #monster < 40 && #monpoints > 39) goto L_Up3;
+ if (#monster > 39 && #monster < 50 && #monpoints > 79) goto L_Up4;
+ if (#monster > 49 && #monster < 60 && #monpoints > 159) goto L_Up5;
+ if (#monster > 59 && #monster < 70 && #monpoints > 319) goto L_Up6;
+ if (#monster > 69 && #monster < 80 && #monpoints > 639) goto L_Up7;
+ if (#monster > 79 && #monster < 90 && #monpoints > 1279) goto L_Up8;
+ if (#monster > 89 && #monster < 100 && #monpoints > 2559) goto L_Up9;
+
+ mes "Unable to upgrade.";
+ close;
+
+ // 5. ---Change to Add Monsters--- //
+L_Up1:
set #monster,20;
set #monpoints,#monpoints-10;
mes "Upgraded to Fabre!";
close;
- L_Up2:
+L_Up2:
mes "Which monster would you like to upgrade to?";
next;
menu "Lunatic",U_Lunatic,"Drops",U_Drops,"Picky",U_Picky;
- U_Drops:
- set #monster,31;
- set #monpoints,#monpoints-20;
- mes "[Monster Trainer]";
- mes "Upgraded to Drops!";
- close;
-
- U_Picky:
- set #monster,32;
- set #monpoints,#monpoints-20;
- mes "[Monster Trainer]";
- mes "Upgraded to Picky!";
- close;
-
- U_Lunatic:
- set #monster,30;
- set #monpoints,#monpoints-20;
- mes "[Monster Trainer]";
- mes "Upgraded to Lunatic!";
- close;
-
- L_Up3:
+U_Drops:
+ set #monster,31;
+ set #monpoints,#monpoints-20;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Drops!";
+ close;
+
+U_Picky:
+ set #monster,32;
+ set #monpoints,#monpoints-20;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Picky!";
+ close;
+
+U_Lunatic:
+ set #monster,30;
+ set #monpoints,#monpoints-20;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Lunatic!";
+ close;
+
+L_Up3:
mes "Which monster would you like to upgrade to?";
next;
menu "ChonChon",U_ChonChon,"Super Picky",U_SPicky,"Willow",U_Willow;
- U_ChonChon:
- set #monster,40;
- set #monpoints,#monpoints-40;
- mes "[Monster Trainer]";
- mes "Upgraded to ChonChon!";
- close;
-
- U_SPicky:
- set #monster,41;
- set #monpoints,#monpoints-40;
- mes "[Monster Trainer]";
- mes "Upgraded to Super Picky!";
- close;
-
- U_Willow:
- set #monster,42;
- set #monpoints,#monpoints-40;
- mes "[Monster Trainer]";
- mes "Upgraded to Willow!";
- close;
-
- L_Up4:
+U_ChonChon:
+ set #monster,40;
+ set #monpoints,#monpoints-40;
+ mes "[Monster Trainer]";
+ mes "Upgraded to ChonChon!";
+ close;
+
+U_SPicky:
+ set #monster,41;
+ set #monpoints,#monpoints-40;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Super Picky!";
+ close;
+
+U_Willow:
+ set #monster,42;
+ set #monpoints,#monpoints-40;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Willow!";
+ close;
+
+L_Up4:
mes "Which monster would you like to upgrade to?";
next;
menu "Condor",U_Condor,"Roda Frog",U_Roda;
- U_Condor:
- set #monster,51;
- set #monpoints,#monpoints-80;
- mes "[Monster Trainer]";
- mes "Upgraded to Condor!";
- close;
-
- U_Roda:
- set #monster,50;
- set #monpoints,#monpoints-80;
- mes "[Monster Trainer]";
- mes "Upgraded to Roda Frog!";
- close;
-
- L_Up5:
+U_Condor:
+ set #monster,51;
+ set #monpoints,#monpoints-80;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Condor!";
+ close;
+
+U_Roda:
+ set #monster,50;
+ set #monpoints,#monpoints-80;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Roda Frog!";
+ close;
+
+L_Up5:
set #monster,60;
set #monpoints,#monpoints-160;
mes "Upgraded to Thief Bug Larva!";
close;
- L_Up6:
+L_Up6:
set #monster,70;
set #monpoints,#monpoints-320;
mes "Upgraded to Savage Babe!";
close;
- L_Up7:
+L_Up7:
mes "Which monster would you like to upgrade to?";
next;
menu "Familiar",U_Familiar,"Hornet",U_Hornet;
- U_Hornet:
- set #monster,81;
- set #monpoints,#monpoints-640;
- mes "[Monster Trainer]";
- mes "Upgraded to Hornet!";
- close;
+U_Hornet:
+ set #monster,81;
+ set #monpoints,#monpoints-640;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Hornet!";
+ close;
- U_Familiar:
- set #monster,80;
- set #monpoints,#monpoints-640;
- mes "[Monster Trainer]";
- mes "Upgraded to Familiar!";
- close;
+U_Familiar:
+ set #monster,80;
+ set #monpoints,#monpoints-640;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Familiar!";
+ close;
- L_Up8:
+L_Up8:
mes "[Monster Trainer]";
mes "Which monster would you like to upgrade to?";
next;
menu "Desert Wolf Puppy",U_Puppy,"Spore",U_Spore,"Rocker",U_Rocker;
- U_Spore:
- set #monster,91;
- set #monpoints,#monpoints-1280;
- mes "[Monster Trainer]";
- mes "Upgraded to Spore!";
- close;
-
- U_Rocker:
- set #monster,92;
- set #monpoints,#monpoints-1280;
- mes "[Monster Trainer]";
- mes "Upgraded to Rocker!";
- close;
-
- U_Puppy:
- set #monster,90;
- set #monpoints,#monpoints-1280;
- mes "[Monster Trainer]";
- mes "Upgraded to Desert Wolf Puppy!";
- close;
-
- L_Up9:
+U_Spore:
+ set #monster,91;
+ set #monpoints,#monpoints-1280;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Spore!";
+ close;
+
+U_Rocker:
+ set #monster,92;
+ set #monpoints,#monpoints-1280;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Rocker!";
+ close;
+
+U_Puppy:
+ set #monster,90;
+ set #monpoints,#monpoints-1280;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Desert Wolf Puppy!";
+ close;
+
+L_Up9:
mes "Which monster would you like to upgrade to?";
next;
menu "Skeleton",U_Skeleton,"Antonio",U_Antonio,"Plankton",U_Plankton,"Thief Bug Female",U_ThiefFemale;
- U_Plankton:
- set #monster,101;
- set #monpoints,#monpoints-2560;
- mes "[Monster Trainer]";
- mes "Upgraded to Plankton!";
- close;
-
- U_Antonio:
- set #monster,102;
- set #monpoints,#monpoints-2560;
- mes "[Monster Trainer]";
- mes "Upgraded to Antonio!";
- close;
-
- U_ThiefFemale:
- set #monster,103;
- set #monpoints,#monpoints-2560;
- mes "[Monster Trainer]";
- mes "Upgraded to Thief Bug Female!";
- close;
-
- U_Skeleton:
- set #monster,100;
- set #monpoints,#monpoints-2560;
- mes "[Monster Trainer]";
- mes "Upgraded to Skeleton!";
- close;
+U_Plankton:
+ set #monster,101;
+ set #monpoints,#monpoints-2560;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Plankton!";
+ close;
+
+U_Antonio:
+ set #monster,102;
+ set #monpoints,#monpoints-2560;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Antonio!";
+ close;
+
+U_ThiefFemale:
+ set #monster,103;
+ set #monpoints,#monpoints-2560;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Thief Bug Female!";
+ close;
+
+U_Skeleton:
+ set #monster,100;
+ set #monpoints,#monpoints-2560;
+ mes "[Monster Trainer]";
+ mes "Upgraded to Skeleton!";
+ close;
L_NoZeny:
-mes "[Monster Trainer]";
-mes "You don't have enough zeny!";
-close;
+ mes "[Monster Trainer]";
+ mes "You don't have enough zeny!";
+ close;
L_Exit:
-mes "[Monster Trainer]";
-mes "Goodbye.";
-close;
+ mes "[Monster Trainer]";
+ mes "Goodbye.";
+ close;
L_Heal:
-mes "[Monster Trainer]";
-mes "Your monster needs to heal.";
-mes "It will heal faster if you click the nurse faster.";
-set #heal,1;
-close;
+ mes "[Monster Trainer]";
+ mes "Your monster needs to heal.";
+ mes "It will heal faster if you click the nurse faster.";
+ set #heal,1;
+ close;
}
// Kill Trigger //
@@ -716,9 +716,9 @@ gon_test,56,91,6 script OnSpecialKilled -1,{
}
function script duelkill {
-if (strcharinfo(0) == $@duelist1$ || strcharinfo(0) == $@duelist2$) goto L_Heal;
-end;
- L_Heal:
+ if (strcharinfo(0) == $@duelist1$ || strcharinfo(0) == $@duelist2$) goto L_Heal;
+ end;
+L_Heal:
announce strcharinfo(0) + " won the Duel",1;
set @fighting,0;
set #heal,0;
@@ -727,38 +727,38 @@ end;
}
function script illegalkill {
-announce "Illegal Kill by " + strcharinfo(0) + " Detected",1;
-percentheal -100,-100;
-end;
+ announce "Illegal Kill by " + strcharinfo(0) + " Detected",1;
+ percentheal -100,-100;
+ end;
}
// Healer //
gon_test,55,103,6 script Nurse 90,{
-if (@battle == 1 || #heal == 0) goto L_NoHeal;
-if (#heal == 1 && @healing < 100) goto L_Heal; //Total healing required
-set @fighting,0;
-set #heal,0;
-set @healing,0;
-specialeffect2 EF_VALLENTINE2;
-announce "Your monster has healed.",19;
-end;
-
- L_Heal:
+ if (@battle == 1 || #heal == 0) goto L_NoHeal;
+ if (#heal == 1 && @healing < 100) goto L_Heal; //Total healing required
+ set @fighting,0;
+ set #heal,0;
+ set @healing,0;
+ specialeffect2 EF_VALLENTINE2;
+ announce "Your monster has healed.",19;
+ end;
+
+L_Heal:
set @healrate,140 / #monster; //Rate of heal per click
set @healing,@healing + @healrate;
end;
- L_NoHeal:
+L_NoHeal:
announce "Your monster does not need healing yet.",19;
end;
}
// Warps players //
gon_test,57,86,5 script Summon Pad 1::SummonPad 111,2,2,{
-end;
+ end;
OnTouch:
-set @marena,1;
-warp "gon_test",57,99;
+ set @marena,1;
+ warp "gon_test",57,99;
}
gon_test,43,87,5 duplicate(SummonPad) Summon Pad 2 111,2,2
gon_test,72,87,5 duplicate(SummonPad) Summon Pad 3 111,2,2
@@ -767,98 +767,98 @@ gon_test,72,87,5 duplicate(SummonPad) Summon Pad 3 111,2,2
// Skill Disabler //
gon_test,57,99,5 script Skill Disable 111,3,3,{
-atcommand strcharinfo(0) + "@skilloff";
-disablenpc "Skill Disable";
-end;
+ atcommand strcharinfo(0) + "@skilloff";
+ disablenpc "Skill Disable";
+ end;
}
// Duel Arena //
gon_test,58,103,5 script Duel Master#01 92,{
-if ($@duelist1$ == "") set @duel,0;
-if ($@monster1 == "") set @duel,0;
-set @marena,1;
-if (#monster == 0) goto L_NoMon;
-mes "[Duel Master]";
-if ($@duel == 1) goto L_Waiting;
-if ($@duel == 2) goto L_Dueling;
-
-mes "There are currently no players dueling.";
-next;
-menu "Join",-,"Spectate",L_Spec,"Cancel",L_Exit;
-
-// Player 1 Enters Duel Area //
-if (#heal == 1) goto L_NeedHeal;
-if ($@duel == 1) goto L_Duel2;
-set $@duel,1;
-if (#monster > 1 && #monster < 20) set $@monster1,1;
-if (#monster > 19 && #monster < 30) set $@monster1,2;
-if (#monster > 29 && #monster < 40) set $@monster1,3;
-if (#monster > 39 && #monster < 50) set $@monster1,4;
-if (#monster > 49 && #monster < 60) set $@monster1,5;
-if (#monster > 59 && #monster < 70) set $@monster1,6;
-if (#monster > 69 && #monster < 80) set $@monster1,7;
-if (#monster > 79 && #monster < 90) set $@monster1,8;
-if (#monster > 89 && #monster < 100) set $@monster1,9;
-if (#monster > 99 && #monster < 110) set $@monster1,10;
-set $@duelist1$,strcharinfo(0);
-set @battle,1;
-announce strcharinfo(0) + " [Monster Level: " + $@monster1 + "] is waiting for a duel",1;
-atcommand strcharinfo(0) + "@option 64 0 64";
-warp "gon_test",49,5;
-close;
+ if ($@duelist1$ == "") set @duel,0;
+ if ($@monster1 == "") set @duel,0;
+ set @marena,1;
+ if (#monster == 0) goto L_NoMon;
+ mes "[Duel Master]";
+ if ($@duel == 1) goto L_Waiting;
+ if ($@duel == 2) goto L_Dueling;
+
+ mes "There are currently no players dueling.";
+ next;
+ menu "Join",-,"Spectate",L_Spec,"Cancel",L_Exit;
+
+ // Player 1 Enters Duel Area //
+ if (#heal == 1) goto L_NeedHeal;
+ if ($@duel == 1) goto L_Duel2;
+ set $@duel,1;
+ if (#monster > 1 && #monster < 20) set $@monster1,1;
+ if (#monster > 19 && #monster < 30) set $@monster1,2;
+ if (#monster > 29 && #monster < 40) set $@monster1,3;
+ if (#monster > 39 && #monster < 50) set $@monster1,4;
+ if (#monster > 49 && #monster < 60) set $@monster1,5;
+ if (#monster > 59 && #monster < 70) set $@monster1,6;
+ if (#monster > 69 && #monster < 80) set $@monster1,7;
+ if (#monster > 79 && #monster < 90) set $@monster1,8;
+ if (#monster > 89 && #monster < 100) set $@monster1,9;
+ if (#monster > 99 && #monster < 110) set $@monster1,10;
+ set $@duelist1$,strcharinfo(0);
+ set @battle,1;
+ announce strcharinfo(0) + " [Monster Level: " + $@monster1 + "] is waiting for a duel",1;
+ atcommand strcharinfo(0) + "@option 64 0 64";
+ warp "gon_test",49,5;
+ close;
L_Waiting:
-mes "^0000FF " + $@duelist1$ + "^000000 [Monster Level: ^FF0000" + $@monster1 + "^000000]";
-mes "Is waiting for an opponent";
-next;
-menu "Join",-,"Spectate",L_Spec,"Cancel",L_Exit;
+ mes "^0000FF " + $@duelist1$ + "^000000 [Monster Level: ^FF0000" + $@monster1 + "^000000]";
+ mes "Is waiting for an opponent";
+ next;
+ menu "Join",-,"Spectate",L_Spec,"Cancel",L_Exit;
-// Player 2 Enters Duel Area //
-if (#heal == 1) goto L_NeedHeal;
+ // Player 2 Enters Duel Area //
+ if (#heal == 1) goto L_NeedHeal;
L_Duel2:
-if ($@duel == 2) goto L_Spec;
-set $@duel,2;
-if (#monster > 1 && #monster < 20) set $@monster2,1;
-if (#monster > 19 && #monster < 30) set $@monster2,2;
-if (#monster > 29 && #monster < 40) set $@monster2,3;
-if (#monster > 39 && #monster < 50) set $@monster2,4;
-if (#monster > 49 && #monster < 60) set $@monster2,5;
-if (#monster > 59 && #monster < 70) set $@monster2,6;
-if (#monster > 69 && #monster < 80) set $@monster2,7;
-if (#monster > 79 && #monster < 90) set $@monster2,8;
-if (#monster > 89 && #monster < 100) set $@monster2,9;
-if (#monster > 99 && #monster < 110) set $@monster2,10;
-set $@duelist2$,strcharinfo(0);
-set @battle,1;
-announce strcharinfo(0) + " [Monster Level: " + $@monster2 + "] has joined the duel",1;
-atcommand strcharinfo(0) + "@option 64 0 64";
-warp "gon_test",49,5;
-close;
-
- L_Dueling:
+ if ($@duel == 2) goto L_Spec;
+ set $@duel,2;
+ if (#monster > 1 && #monster < 20) set $@monster2,1;
+ if (#monster > 19 && #monster < 30) set $@monster2,2;
+ if (#monster > 29 && #monster < 40) set $@monster2,3;
+ if (#monster > 39 && #monster < 50) set $@monster2,4;
+ if (#monster > 49 && #monster < 60) set $@monster2,5;
+ if (#monster > 59 && #monster < 70) set $@monster2,6;
+ if (#monster > 69 && #monster < 80) set $@monster2,7;
+ if (#monster > 79 && #monster < 90) set $@monster2,8;
+ if (#monster > 89 && #monster < 100) set $@monster2,9;
+ if (#monster > 99 && #monster < 110) set $@monster2,10;
+ set $@duelist2$,strcharinfo(0);
+ set @battle,1;
+ announce strcharinfo(0) + " [Monster Level: " + $@monster2 + "] has joined the duel",1;
+ atcommand strcharinfo(0) + "@option 64 0 64";
+ warp "gon_test",49,5;
+ close;
+
+L_Dueling:
mes "^0000FF" + $@duelist1$ + "^000000 [Monster Level: ^0000FF" + $@monster1 + "^000000]";
mes " VS.";
mes "^FF0000" + $@duelist2$ + "^000000 [Monster Level: ^FF0000" + $@monster2 + "^000000]";
next;
menu "Spectate",L_Spec,"Cancel",L_Exit;
- L_Spec:
+L_Spec:
set @battle,0;
atcommand strcharinfo(0) + "@option 64 0 64";
warp "gon_test",49,5;
close;
- L_Exit:
+L_Exit:
mes "[Duel Master]";
mes "Goodbye.";
close;
- L_NoMon:
+L_NoMon:
mes "[Duel Master]";
mes "You haven't got a monster, you can't participate.";
close;
- L_NeedHeal:
+L_NeedHeal:
mes "[Duel Master]";
mes "You need to heal before you can join.";
close;
@@ -866,35 +866,35 @@ close;
// Duel Exit //
gon_test,42,8,5 script Duel Master#02 92,{
-mes "[Duel Master]";
-mes "Would you like to return?";
-menu "Yes",L_Leave,"No",-;
-mes "Alright";
-close;
+ mes "[Duel Master]";
+ mes "Would you like to return?";
+ menu "Yes",L_Leave,"No",-;
+ mes "Alright";
+ close;
- L_Leave:
+L_Leave:
if ($@duelist1$ == strcharinfo(0)) goto L_Leave1;
if ($@duelist2$ == strcharinfo(0)) goto L_Leave2;
- L_Leave3:
- atcommand strcharinfo(0) + "@option 0 0 0";
- set @battle,0;
- warp "gon_test",57,99;
- close;
-
- L_Leave1:
- set $@duelist1$,$@duelist2$;
- set $@monster1,$@monster2;
- set $@duel,$@duel-1;
- announce strcharinfo(0) + " stopped dueling",1;
- goto L_Leave3;
-
- L_Leave2:
- set $@duelist2$,"";
- set $@monster2,0;
- set $@duel,$@duel-1;
- announce strcharinfo(0) + " stopped dueling",1;
- goto L_Leave3;
+L_Leave3:
+ atcommand strcharinfo(0) + "@option 0 0 0";
+ set @battle,0;
+ warp "gon_test",57,99;
+ close;
+
+L_Leave1:
+ set $@duelist1$,$@duelist2$;
+ set $@monster1,$@monster2;
+ set $@duel,$@duel-1;
+ announce strcharinfo(0) + " stopped dueling",1;
+ goto L_Leave3;
+
+L_Leave2:
+ set $@duelist2$,"";
+ set $@monster2,0;
+ set $@duel,$@duel-1;
+ announce strcharinfo(0) + " stopped dueling",1;
+ goto L_Leave3;
}
gon_test,49,5,5 duplicate(SummonPad) Summon Pad 4 111,2,2
diff --git a/npc/custom/penal_servitude.txt b/npc/custom/penal_servitude.txt
index 725e32ddc..bfbd39c63 100644
--- a/npc/custom/penal_servitude.txt
+++ b/npc/custom/penal_servitude.txt
@@ -1,15 +1,15 @@
//===== rAthena Script =======================================
-//= Penal Servitude Script
-//===== By ===================================================
+//= Penal Servitude
+//===== By: ==================================================
//= Lupus
-//===== Version ==============================================
+//===== Current Version: =====================================
//= 1.2
-//===== Compatible With ======================================
-//= rAthena Final (SVN)
-//===== Description ==========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= A simple Penal Servitude Script.
//= It could cheer up your prisoners a bit.
-//===== Comments =============================================
+//===== Additional Comments: =================================
// This script uses CHEQUES of the 2nd KAFRA_BANK.TXT
// var PRISON - it counts number of your imprisonments.
// 1.1 English translation
@@ -80,7 +80,6 @@ L_RELEASE:
close;
M_Q1:
-//�E��E1
mes "[Saddeus]";
mes "Our stocks are short of toadstools. Remember your morning's skilly? What about some work at our sponsored mushroom farm?";
next;
diff --git a/npc/custom/platinum_skills.txt b/npc/custom/platinum_skills.txt
index dcaf25162..2a30e00f1 100644
--- a/npc/custom/platinum_skills.txt
+++ b/npc/custom/platinum_skills.txt
@@ -1,23 +1,24 @@
-//===== rAthena Script ======================================================================
-//= Platinum Skills NPC
-//===== By: =================================================================================
-//= Keichii and edited by DarkChild
-//===== Current Version: ====================================================================
+//===== rAthena Script =======================================
+//= Platinum Skills
+//===== By: ==================================================
+//= Keichii, DarkChild
+//===== Current Version: =====================================
//= 2.7
-//===== Compatible With: ====================================================================
-//= Any rAthena Version
-//===== Description: ========================================================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Single NPC that assigns quests skills for all classes
-//===== Additional Comments: ================================================================
-//=2.0 Added advanced classes by ShadowLady.
-//=2.1 Added baby clases by Midas
-//=2.2 Simplified Job Checks [Silentdragon]
-//=2.3 Thehell? Cleaned up script removed the nastiness. Also added rebirth skills. [Spre]
-//=2.4 Added Advanced skills. [Spre]
-//=2.5 Added dialog for if the user is none of the listed jobs. [Kisuka]
-//=2.6 Fixed 2nd advanced classes not being able to get their advanced skills. [Ancyker]
-//=2.7 Rewrote to give all correct skills to all proper classes. [Paradox924X]
-//===========================================================================================
+//===== Additional Comments: =================================
+//= 2.0 Added advanced classes by ShadowLady.
+//= 2.1 Added baby clases by Midas
+//= 2.2 Simplified Job Checks [Silentdragon]
+//= 2.3 Thehell? Cleaned up script removed the nastiness. Also added rebirth skills. [Spre]
+//= 2.4 Added Advanced skills. [Spre]
+//= 2.5 Added dialog for if the user is none of the listed jobs. [Kisuka]
+//= 2.6 Fixed 2nd advanced classes not being able to get their advanced skills. [Ancyker]
+//= 2.7 Rewrote to give all correct skills to all proper classes. [Paradox924X]
+//============================================================
+
prontera,128,200,6 script Platinum Skill NPC 94,{
mes "[Platinum Skill NPC]";
mes "I can give you the special skills available to your job.";
diff --git a/npc/custom/quests/bandit_beard.txt b/npc/custom/quests/bandit_beard.txt
index a4e3bab27..0fba60f2f 100644
--- a/npc/custom/quests/bandit_beard.txt
+++ b/npc/custom/quests/bandit_beard.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
-//= rAthena 0.5.2 +
+//= rAthena SVN
//===== Description: =========================================
//= A harmless quest for a simply item w/o any bonuses "Bandit Beard"
//===== Additional Comments: =================================
diff --git a/npc/custom/quests/berzebub.txt b/npc/custom/quests/berzebub.txt
index 04d31d05c..6fbb60960 100644
--- a/npc/custom/quests/berzebub.txt
+++ b/npc/custom/quests/berzebub.txt
@@ -1,16 +1,17 @@
//===== rAthena Script =======================================
-//= Berzebub Card Quest Script
+//= Berzebub Card Quest
//===== By: ==================================================
//= jabs
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= Any rAthena Version; RO Episode XX
+//= rAthena SVN
//===== Description: =========================================
//= Quest to get the Berzebub Card
//===== Additional Comments: =================================
//= 1.1 Fixed ingredients. Was too exploitable [Lupus]
//============================================================
+
prontera,165,178,8 script Old Woman 103,{
mes "[Old Woman]";
if(BerzQuest == 1) goto L_Already;
@@ -18,57 +19,55 @@ prontera,165,178,8 script Old Woman 103,{
next;
menu "Keep talking",-, "Leave", M_Leave;
- mes "[Old Woman]";
- mes "I have never seen an item like this before. I am told it can be placed inside am accessory that has a slot avaiable in it.";
- next;
- mes "[Old Woman]";
- mes "If you're interested in this item, tell me and I'll tell you what you need for me to make you one of your own. I can only give one of these to each player, so once you finish this quest once, you may not do it again.";
- next;
- menu "Tell me more about it",-, "Nah, I don't care about it", M_Leave;
-
- mes "[Old Woman]";
- mes "I believe the item is called a ^FF0000Berzebub Card^000000. It can make any spell caster cast spells really fast!";
- next;
- mes "[Old Woman]";
- mes "I need all of the following items:";
- mes "^0080FF25^000000 Emperiums";
- mes "^0080FF100^000000 Witched Starsands";
- mes "^0080FF200^000000 Needles of Alarm";
- mes "^0080FF10^000000 Worn Out Scrolls";
- mes "^0080FF2^000000 Biblies";
- mes "^0080FF1^000000 Wand of the Occult";
- mes "^0080FF20^000000 Opals";
- next;
- menu "I have all that!",-, "I'll get those ASAP", M_Leave;
-
- mes "[Old Woman]";
- mes "Anyone can say they have the items, but do they really have them? Let's take a look here...";
- next;
- mes "[Old Woman]";
- if(countitem(714) < 25 || countitem(1061) < 100 || countitem(1095) < 200 || countitem(618) < 10 || countitem(1551) < 2 || countitem(1614) < 1 || countitem(727) < 20) goto L_noItems;
- delitem 714, 25;
- delitem 1061, 100;
- delitem 1095, 200;
- delitem 618, 10;
- delitem 1551, 2;
- delitem 1614, 1;
- delitem 727, 20;
- getitem 4145, 1;
- set BerzQuest, 1;
- mes "Well congratulations! You have all the items. Here is your ^FF0000Berzebub Card^000000, just as I promised.";
- emotion e_grat;
- close;
+ mes "[Old Woman]";
+ mes "I have never seen an item like this before. I am told it can be placed inside am accessory that has a slot avaiable in it.";
+ next;
+ mes "[Old Woman]";
+ mes "If you're interested in this item, tell me and I'll tell you what you need for me to make you one of your own. I can only give one of these to each player, so once you finish this quest once, you may not do it again.";
+ next;
+ menu "Tell me more about it",-, "Nah, I don't care about it", M_Leave;
- M_Leave:
- mes "[Old Woman]";
- mes "Such a great item I have right here...";
- close;
-
- L_noItems:
- mes "I knew you were lying! Get out of here and get those items you sorry excuse for a rock star.";
- close;
+ mes "[Old Woman]";
+ mes "I believe the item is called a ^FF0000Berzebub Card^000000. It can make any spell caster cast spells really fast!";
+ next;
+ mes "[Old Woman]";
+ mes "I need all of the following items:";
+ mes "^0080FF25^000000 Emperiums";
+ mes "^0080FF100^000000 Witched Starsands";
+ mes "^0080FF200^000000 Needles of Alarm";
+ mes "^0080FF10^000000 Worn Out Scrolls";
+ mes "^0080FF2^000000 Biblies";
+ mes "^0080FF1^000000 Wand of the Occult";
+ mes "^0080FF20^000000 Opals";
+ next;
+ menu "I have all that!",-, "I'll get those ASAP", M_Leave;
- L_Already:
- mes "Hey I remember you! I already told you that you may only complete this quest once.";
- close;
+ mes "[Old Woman]";
+ mes "Anyone can say they have the items, but do they really have them? Let's take a look here...";
+ next;
+ mes "[Old Woman]";
+ if(countitem(714) < 25 || countitem(1061) < 100 || countitem(1095) < 200 || countitem(618) < 10 || countitem(1551) < 2 || countitem(1614) < 1 || countitem(727) < 20) goto L_noItems;
+ delitem 714, 25;
+ delitem 1061, 100;
+ delitem 1095, 200;
+ delitem 618, 10;
+ delitem 1551, 2;
+ delitem 1614, 1;
+ delitem 727, 20;
+ getitem 4145, 1;
+ set BerzQuest, 1;
+ mes "Well congratulations! You have all the items. Here is your ^FF0000Berzebub Card^000000, just as I promised.";
+ emotion e_grat;
+ close;
+
+M_Leave:
+ mes "[Old Woman]";
+ mes "Such a great item I have right here...";
+ close;
+L_noItems:
+ mes "I knew you were lying! Get out of here and get those items you sorry excuse for a rock star.";
+ close;
+L_Already:
+ mes "Hey I remember you! I already told you that you may only complete this quest once.";
+ close;
}
diff --git a/npc/custom/quests/bongunsword.txt b/npc/custom/quests/bongunsword.txt
index a7bc05dc5..2ca68fd90 100644
--- a/npc/custom/quests/bongunsword.txt
+++ b/npc/custom/quests/bongunsword.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= Quest itms:Sword o'Chinese Exorcist,No Recipient,Her Heart
//===== Additional Comments: =================================
@@ -14,7 +14,6 @@
//= 1.2 Added another missing next; [Evera]
//============================================================
-
comodo,135,227,5 script Sherri 93,{
mes "[Sherri]";
mes " ";
@@ -107,14 +106,12 @@ ExCreate:
mes " ";
mes "Here is lover's lost letter as promised! Again - Thank you!";
close;
-
L_NoItem:
mes "[Evan]";
mes "Waahhhh, stop playing with my feelings!";
mes " ";
mes "Go away!";
close;
-
ExEnd:
mes "[Evan]";
mes "*sighs*";
@@ -148,7 +145,6 @@ L_NoItem:
mes "[Old Smith]";
mes "Hmm, you seem to be missing something... probably that 'Oridecon'.";
close;
-
L_NoItemS:
ExEnd:
mes "[Old Smith]";
diff --git a/npc/custom/quests/bookofthedevil.txt b/npc/custom/quests/bookofthedevil.txt
index 165c1a3db..5933e71d0 100644
--- a/npc/custom/quests/bookofthedevil.txt
+++ b/npc/custom/quests/bookofthedevil.txt
@@ -1,22 +1,19 @@
//===== rAthena Script =======================================
-//= Baphomet Jr. taming item quest.
+//= Quest for Book of Devil (Baphomet Jr. taming item)
//===== By: ==================================================
//= rAthena Dev Team
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
-//= Book of Devil (MISC_QUEST | 256)
+//= Book of Devil (MISC_QUEST | 256)
//===== Additional Comments: =================================
//= 1.0 ????
//= 1.1 Optimized Book of Devil quest. used bit-wise var. [Lupus]
//= 1.2 Fixed name collision with 'Little Boy' in cities/lutie.txt [Ai4rei]
-//============================================================
+//============================================================
-//=============================================================
-//Quest for Book of Devil
-//=============================================================
niflheim,184,199,5 script Little Girl#02 793,{
mes "[Sairin]";
if(MISC_QUEST & 256){
@@ -85,7 +82,7 @@ L_PART2:
mes "I am a little slow, and its very important that she knows.";
next;
menu "Yes",L_DONE, "No",-;
- close;
+ close;
}
mes "[Marius]";
mes "Sairin... where are you?";
diff --git a/npc/custom/quests/dead_branch.txt b/npc/custom/quests/dead_branch.txt
index 891b061d2..505da6c0a 100644
--- a/npc/custom/quests/dead_branch.txt
+++ b/npc/custom/quests/dead_branch.txt
@@ -5,13 +5,12 @@
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= rAthena 0.5.2 +
+//= rAthena SVN
//===== Description: =========================================
// Simple item trade-in quest, a person can get a Dead Branch
// by simply providing the items: Log x3 (7201), Wooden Heart x1 (7189),
// Trunk x5 (1019), and Wooden Gnarl x1 (7222).
//===== Additional Comments: =================================
-//= Fully working.
//= 1.1 Optimized, added Bloody Branch with 0.01% chance [Lupus]
//============================================================
diff --git a/npc/custom/quests/elvenear.txt b/npc/custom/quests/elvenear.txt
index 188e9cf3d..c547bf524 100644
--- a/npc/custom/quests/elvenear.txt
+++ b/npc/custom/quests/elvenear.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
//= Daily Job Quest For Elven Ears
//===== By: ==================================================
-//= Someone
+//= someone
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= Elven Ears (require 75+ Base Level)
//===== Additional Comments: =================================
diff --git a/npc/custom/quests/event_6_new_hats.txt b/npc/custom/quests/event_6_new_hats.txt
index 17503c470..56edaed19 100644
--- a/npc/custom/quests/event_6_new_hats.txt
+++ b/npc/custom/quests/event_6_new_hats.txt
@@ -5,10 +5,10 @@
//===== Current Version: =====================================
//= 1.4b
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= 4 brothers give you quests to get 6 new hats (missing
-//= from official quests)
+//= from official quests)
//= Use this custom quest instead of event_32_new_hats.txt
//= -Bongun Hat
//= -Poring Hat, Sphinx Hat
@@ -24,7 +24,6 @@
//= 1.4 Fixed exploits. 1.4a fixed wrong item ID [Lupus]
//============================================================
-
prt_in,130,66,5 script Zac 704,{
mes "[Zac]";
mes "I am the oldest and strongest of the 4 brothers that makes all the newer hats. You will need to bring me the correct items for each hat, so I can make them.";
@@ -33,7 +32,7 @@ prt_in,130,66,5 script Zac 704,{
mes "I provide 1 hat and my brothers provides the other 5.";
next;
menu "Join",L1,"Information",L2,"Cancel",L3;
-L1:
+L1:
mes "[Zac]";
mes "What hat do you want me to make?";
next;
@@ -70,7 +69,7 @@ L_ITEM_3c:
mes "[Zac]";
mes "Oh, dear. You need 1 Munak Hat...";
close;
-L2:
+L2:
mes "[Zac]";
mes "Which hat materials do you wish to know?";
next;
@@ -93,7 +92,7 @@ prt_in,162,131,5 script Blac 732,{
mes "I provide 1 hat and my brothers provides the other 5.";
next;
menu "Join",L1,"Information",L2,"Cancel",L3;
-L1:
+L1:
mes "[Blac]";
mes "What hat do you want me to make?";
next;
@@ -124,7 +123,7 @@ L_ITEM_2:
mes "[Blac]";
mes "Oh, dear. You need 10 Steels...";
close;
-L2:
+L2:
mes "[Blac]";
mes "Which hat materials do you wish to know?";
next;
@@ -147,7 +146,7 @@ prt_in,53,56,5 script Jac 107,{
mes "I provide 2 hats and my brothers provides the other 4.";
next;
menu "Join",L1,"Information",L2,"Cancel",L3;
-L1:
+L1:
mes "[Jac]";
mes "What hat do you want me to make?";
next;
@@ -203,8 +202,8 @@ L_ITEM_1g:
L_ITEM_2g:
mes "[Jac]";
mes "Oh, dear. You need 200 Bear Footskins...";
- close;
-L2:
+ close;
+L2:
mes "[Jac]";
mes "Which hat materials do you wish to know?";
next;
@@ -216,7 +215,7 @@ L2_19:
L2_24:
mes "[Jac]";
mes "You need 10 Steels and 200 Bear Footskins for Panda Hat.";
- close;
+ close;
L3:
mes "[Jac]";
mes "Stop by some other time with the right materials, so I can make the hats for you.";
@@ -231,7 +230,7 @@ prt_in,45,113,5 script Pac 705,{
mes "I provide 2 hats and my brothers provides the other 4.";
next;
menu "Join",L1,"Information",L2,"Cancel",L3;
-L1:
+L1:
mes "[Pac]";
mes "What hat do you want me to make?";
next;
@@ -306,7 +305,7 @@ L_ITEM_5d:
mes "[Pac]";
mes "Oh, dear. You need 2 Gold Bar's...";
close;
-L2:
+L2:
mes "[Pac]";
mes "Which hat materials do you wish to know?";
next;
diff --git a/npc/custom/quests/fashion.txt b/npc/custom/quests/fashion.txt
index 82920c804..5027bf8e8 100644
--- a/npc/custom/quests/fashion.txt
+++ b/npc/custom/quests/fashion.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
//= Quest for Fashion Glasses (Daily Job Quest)
//===== By: ==================================================
-//= 1.1 None
+//=
//===== Current Version: =====================================
-//= Any
+//= 1.1
//===== Compatible With: =====================================
-//= rAthena
+//= rAthena SVN
//===== Description: =========================================
//= Quest for Fashion Glasses
//===== Additional Comments: =================================
diff --git a/npc/custom/quests/ironcane.txt b/npc/custom/quests/ironcane.txt
index e0520765f..9ae299fab 100644
--- a/npc/custom/quests/ironcane.txt
+++ b/npc/custom/quests/ironcane.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
-//= Quest For Iron Cain
+//= Iron Cain Quest
//===== By: ==================================================
//= eA Dev Team
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= Iron Cain (lower part of a full helmet)
//===== Additional Comments: =================================
diff --git a/npc/custom/quests/kaho_balmung.txt b/npc/custom/quests/kaho_balmung.txt
index edeabc847..11ef0442a 100644
--- a/npc/custom/quests/kaho_balmung.txt
+++ b/npc/custom/quests/kaho_balmung.txt
@@ -1,6 +1,16 @@
-// $Id: kaho_balmung.txt,v 1.1.1.1 2004/09/10 17:26:46 MagicalTux Exp $
-//-------------------- 'Balmung & Lord Kaho's Horns' Quest --------------------
-// Warning! Don't use this quest 8)
+//===== rAthena Script =======================================
+//= Balmung & Lord Kaho's Horns Quest
+//===== By: ==================================================
+//= MagicalTux
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= Warning! Don't use this quest 8)
+//============================================================
prontera,158,356,4 script Royal Messenger 105,{
mes "[Royal Messenger]";
@@ -73,4 +83,4 @@ NoItems:
mes "Sorry you don't have all the items or zeny I need.";
mes "Come back when you have them all";
close;
-} \ No newline at end of file
+}
diff --git a/npc/custom/quests/kahohorn.txt b/npc/custom/quests/kahohorn.txt
index 4cd7b503c..7b3d7b50b 100644
--- a/npc/custom/quests/kahohorn.txt
+++ b/npc/custom/quests/kahohorn.txt
@@ -1,4 +1,16 @@
-//This quest is custom. Don't use it.
+//===== rAthena Script =======================================
+//= Lord Kaho's Horns Quest
+//===== By: ==================================================
+//=
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= This quest is custom. Don't use it.
+//============================================================
geffen,115,107,5 script Lord Kaho's Servant 61,{
mes "[Lord Kaho's Servant]";
@@ -39,46 +51,46 @@ geffen,115,107,5 script Lord Kaho's Servant 61,{
next;
menu "Sure am!",-,"These requirements are unfathomable!",LUnfathomable;
- mes "[Lord Kaho's Servant]";
- if(countitem(754) < 1 || countitem(753) < 1 || countitem(752) < 1 || countitem(751) < 1 || countitem(750) < 1
- || countitem(743) < 1 || countitem(742) < 1 || countitem(741) < 1 || countitem(2613) < 1
- || countitem(5053) < 1 || countitem(7020) < 1 || countitem(7036) < 1 || countitem(2268) < 1
- || countitem(734) < 1 || countitem(923) < 1 || countitem(968) < 1 || countitem(7005) < 1
- || countitem(714) < 3 || Zeny < 5000000) goto LNotEnough;
- delitem 754,1;
- delitem 753,1;
- delitem 752,1;
- delitem 751,1;
- delitem 750,1;
- delitem 743,1;
- delitem 742,1;
- delitem 741,1;
- delitem 2613,1;
- delitem 5053,1;
- delitem 7020,1;
- delitem 7036,1;
- delitem 2268,1;
- delitem 734,1;
- delitem 923,1;
- delitem 968,1;
- delitem 7005,1;
- delitem 714,3;
- set Zeny,Zeny-5000000;
- mes "Wow! You are brave indeed!";
- getitem 5013,1;
- mes ". . . . .";
- mes "Enjoy being God of Rune Midgard!";
- close;
+ mes "[Lord Kaho's Servant]";
+ if(countitem(754) < 1 || countitem(753) < 1 || countitem(752) < 1 || countitem(751) < 1 || countitem(750) < 1
+ || countitem(743) < 1 || countitem(742) < 1 || countitem(741) < 1 || countitem(2613) < 1
+ || countitem(5053) < 1 || countitem(7020) < 1 || countitem(7036) < 1 || countitem(2268) < 1
+ || countitem(734) < 1 || countitem(923) < 1 || countitem(968) < 1 || countitem(7005) < 1
+ || countitem(714) < 3 || Zeny < 5000000) goto LNotEnough;
+ delitem 754,1;
+ delitem 753,1;
+ delitem 752,1;
+ delitem 751,1;
+ delitem 750,1;
+ delitem 743,1;
+ delitem 742,1;
+ delitem 741,1;
+ delitem 2613,1;
+ delitem 5053,1;
+ delitem 7020,1;
+ delitem 7036,1;
+ delitem 2268,1;
+ delitem 734,1;
+ delitem 923,1;
+ delitem 968,1;
+ delitem 7005,1;
+ delitem 714,3;
+ set Zeny,Zeny-5000000;
+ mes "Wow! You are brave indeed!";
+ getitem 5013,1;
+ mes ". . . . .";
+ mes "Enjoy being God of Rune Midgard!";
+ close;
- LNotEnough:
- mes ". . . . .";
- mes ". . .I'm sorry .. You don't have enough money and items ..";
- mes "I can't afford to make this if you don't bring all materials needed. Please understand this is to benefit heroes such as yourself!";
- close;
+LNotEnough:
+ mes ". . . . .";
+ mes ". . .I'm sorry .. You don't have enough money and items ..";
+ mes "I can't afford to make this if you don't bring all materials needed. Please understand this is to benefit heroes such as yourself!";
+ close;
- LUnfathomable:
- mes ". . . . .";
- mes "What I had to go through was more unfathomable..";
- mes "If you succeed in getting these items, you will have incredible strength!";
- close;
-} \ No newline at end of file
+LUnfathomable:
+ mes ". . . . .";
+ mes "What I had to go through was more unfathomable..";
+ mes "If you succeed in getting these items, you will have incredible strength!";
+ close;
+}
diff --git a/npc/custom/quests/kiel_quest.txt b/npc/custom/quests/kiel_quest.txt
index a672fd45b..d9a496a84 100644
--- a/npc/custom/quests/kiel_quest.txt
+++ b/npc/custom/quests/kiel_quest.txt
@@ -5,9 +5,9 @@
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
-//= I't custom 8) But you have to pay every time u enter
+//= I't custom 8) But you have to pay every time you enter
//===== Additional Comments: =================================
//=
//============================================================
diff --git a/npc/custom/quests/lvl99_quest.txt b/npc/custom/quests/lvl99_quest.txt
index 214580971..7cee1a481 100644
--- a/npc/custom/quests/lvl99_quest.txt
+++ b/npc/custom/quests/lvl99_quest.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: =========================================
//= It makes players stay longer at 99th level and get a
//= Jewel Case as a reward
@@ -13,7 +13,6 @@
//=
//============================================================
-
lighthalzen,108,229,2 script La Fenn 766,{
mes "[La Fenn]";
if(BaseLevel<99) {
diff --git a/npc/custom/quests/magicalhatquest.txt b/npc/custom/quests/magicalhatquest.txt
index 6191cf903..145ea0f27 100644
--- a/npc/custom/quests/magicalhatquest.txt
+++ b/npc/custom/quests/magicalhatquest.txt
@@ -5,12 +5,12 @@
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= rAthena
+//= rAthena SVN
//===== Description: =========================================
//= Wizard Hat quest. Harmless, doesn't screw game balance.
//===== Additional Comments: =================================
//= 1.1 Reversed ingreadients and the quest result due to
-//= treasue boxes drops fix [Lupus]
+//= treasue boxes drops fix [Lupus]
//============================================================
geffen,126,107,5 script Wizard Hat Dude 51,{
diff --git a/npc/custom/quests/may_hats.txt b/npc/custom/quests/may_hats.txt
index dc28a185f..10319ae6a 100644
--- a/npc/custom/quests/may_hats.txt
+++ b/npc/custom/quests/may_hats.txt
@@ -1,12 +1,12 @@
//===== rAthena Script =======================================
//= Quests: Bird Nest, Lion Mask, Skeleton Manteau,
-//= Fashion Hip Sack & Sales Banner
+//= Fashion Hip Sack & Sales Banner
//===== By: ==================================================
//= Lupus
//===== Current Version: =====================================
//= 1.01
//===== Compatible With: =====================================
-//= rAthena 1.0
+//= rAthena SVN
//===== Description: =========================================
//= Custom quest for some RO mobile game bonus items
//===== Additional Comments: =================================
@@ -15,166 +15,166 @@
//============================================================
gonryun,187,140,4 script Yakima 850,{
- mes "[Yakima]";
- mes callfunc("F_Hi");
- mes "I can make some items for you.";
- mes "They are quite rare novadays...";
- specialeffect 417;
- next;
- menu "Bird Nest",-,"Lion Mask",M_2,"Skeleton Manteau",M_3,"Fashion Hip Sack",M_4,"Sales Banner",M_5,"Leave",M_EXIT;
+ mes "[Yakima]";
+ mes callfunc("F_Hi");
+ mes "I can make some items for you.";
+ mes "They are quite rare novadays...";
+ specialeffect 417;
+ next;
+ menu "Bird Nest",-,"Lion Mask",M_2,"Skeleton Manteau",M_3,"Fashion Hip Sack",M_4,"Sales Banner",M_5,"Leave",M_EXIT;
- mes "[Yakima]";
- mes "Oh.. it's an excellent item for any beast hunter.";
- emotion e_rock;
- next;
- mes "[Yakima]";
- mes "For the hat I'll need:";
- mes "1 Sombrero,";
- mes "920 Feathers of Birds and";
- mes "310 Bills of Birds.";
- next;
- mes "[Yakima]";
- mes "Do you have all the items?";
- next;
- menu "Yeah.",-,"Nay.",M_EXIT;
-
- if(countitem(5067) < 1 || countitem(916) < 920 || countitem(925) < 310) GOTO L_NOITEM;//Items: Sombrero, Feather_of_Birds, Bill_of_Birds,
- delitem 5067,1;//Items: Sombrero,
- delitem 916,920;//Items: Feather_of_Birds,
- delitem 925,310;//Items: Bill_of_Birds,
- getitem 5129,1;//Items: Bird_Nest,
- mes "[Yakima]";
- mes "Thank you very very much!";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes "Oh.. it's an excellent item for any beast hunter.";
+ emotion e_rock;
+ next;
+ mes "[Yakima]";
+ mes "For the hat I'll need:";
+ mes "1 Sombrero,";
+ mes "920 Feathers of Birds and";
+ mes "310 Bills of Birds.";
+ next;
+ mes "[Yakima]";
+ mes "Do you have all the items?";
+ next;
+ menu "Yeah.",-,"Nay.",M_EXIT;
+
+ if(countitem(5067) < 1 || countitem(916) < 920 || countitem(925) < 310) GOTO L_NOITEM;//Items: Sombrero, Feather_of_Birds, Bill_of_Birds,
+ delitem 5067,1;//Items: Sombrero,
+ delitem 916,920;//Items: Feather_of_Birds,
+ delitem 925,310;//Items: Bill_of_Birds,
+ getitem 5129,1;//Items: Bird_Nest,
+ mes "[Yakima]";
+ mes "Thank you very very much!";
+ mes callfunc("F_Bye");
+ close;
M_2:
- mes "[Yakima]";
- mes "Bingo! Many people are afraid of lions... to the muteness...";
- emotion e_slur;
- next;
- mes "[Yakima]";
- mes "For the hat I'll need:";
- mes "1 Tiger Mask,";
- mes "10 Tiger's Footskins,";
- mes "30 Tiger Skins and";
- mes "300 Tiger Panties.";
- next;
- mes "[Yakima]";
- mes "Do you have all the items?";
- next;
- menu "Yeah.",-,"Nay.",M_EXIT;
-
- if(countitem(5098) < 1 || countitem(1030) < 10 || countitem(1029) < 30 || countitem(7267) < 300) GOTO L_NOITEM;//Items: Tiger_Mask, Tiger_Skin, Tiger's_Footskin, Tiger_Panty,
- delitem 5098,1;//Items: Tiger_Mask,
- delitem 1030,10;//Items: Tiger's_Footskin,
- delitem 1029,30;//Items: Tiger_Skin,
- delitem 7267,300;//Items: Tiger_Panty,
- getitem 5130,1;//Items: Lion_Mask,
- mes "[Yakima]";
- mes "Thank you very very much!";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes "Bingo! Many people are afraid of lions... to the muteness...";
+ emotion e_slur;
+ next;
+ mes "[Yakima]";
+ mes "For the hat I'll need:";
+ mes "1 Tiger Mask,";
+ mes "10 Tiger's Footskins,";
+ mes "30 Tiger Skins and";
+ mes "300 Tiger Panties.";
+ next;
+ mes "[Yakima]";
+ mes "Do you have all the items?";
+ next;
+ menu "Yeah.",-,"Nay.",M_EXIT;
+
+ if(countitem(5098) < 1 || countitem(1030) < 10 || countitem(1029) < 30 || countitem(7267) < 300) GOTO L_NOITEM;//Items: Tiger_Mask, Tiger_Skin, Tiger's_Footskin, Tiger_Panty,
+ delitem 5098,1;//Items: Tiger_Mask,
+ delitem 1030,10;//Items: Tiger's_Footskin,
+ delitem 1029,30;//Items: Tiger_Skin,
+ delitem 7267,300;//Items: Tiger_Panty,
+ getitem 5130,1;//Items: Lion_Mask,
+ mes "[Yakima]";
+ mes "Thank you very very much!";
+ mes callfunc("F_Bye");
+ close;
M_3:
- mes "[Yakima]";
- mes "I wish I sold this filthy manteau faster...";
- mes "Guess it isn't so plain as it looks... Hmm.";
- emotion e_wah;
- next;
- mes "[Yakima]";
- mes "I'm giving it almost for free:";
- mes "10 Old Manteaus,";
- mes "3 Skull Rings,";
- mes "2 Manteau[1] and";
- mes "1 Ragamuffin Manteau.";
- next;
- mes "[Yakima]";
- mes "Do you have all the items?";
- next;
- menu "Yeah.",-,"Nay.",M_EXIT;
-
- if(countitem(2508) < 1 || countitem(2506) < 2 || countitem(2609) < 3 || countitem(7207) < 10) GOTO L_NOITEM;//Items: Ragamuffin_Manteau, Manteau_, Skull_Ring, Old_Manteau,
- delitem 2508,1;//Items: Ragamuffin_Manteau,
- delitem 2506,2;//Items: Manteau_,
- delitem 2609,3;//Items: Skull_Ring,
- delitem 7207,10;//Items: Old_Manteau,
- getitem 2511,1;//Items: Skeleton_Manteau,
- mes "[Yakima]";
- mes "Thank you very very much!";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes "I wish I sold this filthy manteau faster...";
+ mes "Guess it isn't so plain as it looks... Hmm.";
+ emotion e_wah;
+ next;
+ mes "[Yakima]";
+ mes "I'm giving it almost for free:";
+ mes "10 Old Manteaus,";
+ mes "3 Skull Rings,";
+ mes "2 Manteau[1] and";
+ mes "1 Ragamuffin Manteau.";
+ next;
+ mes "[Yakima]";
+ mes "Do you have all the items?";
+ next;
+ menu "Yeah.",-,"Nay.",M_EXIT;
+
+ if(countitem(2508) < 1 || countitem(2506) < 2 || countitem(2609) < 3 || countitem(7207) < 10) GOTO L_NOITEM;//Items: Ragamuffin_Manteau, Manteau_, Skull_Ring, Old_Manteau,
+ delitem 2508,1;//Items: Ragamuffin_Manteau,
+ delitem 2506,2;//Items: Manteau_,
+ delitem 2609,3;//Items: Skull_Ring,
+ delitem 7207,10;//Items: Old_Manteau,
+ getitem 2511,1;//Items: Skeleton_Manteau,
+ mes "[Yakima]";
+ mes "Thank you very very much!";
+ mes callfunc("F_Bye");
+ close;
M_4:
- mes "[Yakima]";
- mes "It's a fresh style! Ancessory and a bag all in one! You'd get +2 STR... It's different from that sabby nest!";
- mes "It fits to Merchant classonly.";
- emotion e_heh;
- next;
- mes "[Yakima]";
- mes "Now my stock is full of those bags... So I'll make it from 3 flower things and a rough piece of clothes:";
- mes "3 Romantic Flowers,";
- mes "3 Fancy Flowers,";
- mes "2 Flower Rings and";
- mes "3 Pirate Bandanas.";
- next;
- mes "[Yakima]";
- mes "Do you have all the items?";
- next;
- menu "Yeah.",-,"Nay.",M_EXIT;
-
- if(countitem(2269) < 3 || countitem(2207) < 3 || countitem(2612) < 2 || countitem(2287)<3 ) GOTO L_NOITEM;//Items: Romantic_Flower, Fancy_Flower, Flower_Ring,
- delitem 2269,3;//Items: Romantic_Flower,
- delitem 2207,3;//Items: Fancy_Flower,
- delitem 2612,2;//Items: Flower_Ring,
- delitem 2287,3;//Items: Pirate_Bandana
- getitem 2641,1;//Items: Fashion_Hip_Sack,
- mes "[Yakima]";
- mes "Thank you very very much!";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes "It's a fresh style! Ancessory and a bag all in one! You'd get +2 STR... It's different from that sabby nest!";
+ mes "It fits to Merchant classonly.";
+ emotion e_heh;
+ next;
+ mes "[Yakima]";
+ mes "Now my stock is full of those bags... So I'll make it from 3 flower things and a rough piece of clothes:";
+ mes "3 Romantic Flowers,";
+ mes "3 Fancy Flowers,";
+ mes "2 Flower Rings and";
+ mes "3 Pirate Bandanas.";
+ next;
+ mes "[Yakima]";
+ mes "Do you have all the items?";
+ next;
+ menu "Yeah.",-,"Nay.",M_EXIT;
+
+ if(countitem(2269) < 3 || countitem(2207) < 3 || countitem(2612) < 2 || countitem(2287)<3 ) GOTO L_NOITEM;//Items: Romantic_Flower, Fancy_Flower, Flower_Ring,
+ delitem 2269,3;//Items: Romantic_Flower,
+ delitem 2207,3;//Items: Fancy_Flower,
+ delitem 2612,2;//Items: Flower_Ring,
+ delitem 2287,3;//Items: Pirate_Bandana
+ getitem 2641,1;//Items: Fashion_Hip_Sack,
+ mes "[Yakima]";
+ mes "Thank you very very much!";
+ mes callfunc("F_Bye");
+ close;
M_5:
- mes "[Yakima]";
- mes "Well, well, well... this sign fits any class from a certain level!";
- mes "Your foes'd be dazzled!";
- emotion e_no1;
- next;
- mes "[Yakima]";
- mes "Well... we construct it from some common items:";
- mes "1 Scarlet Dyestuffs,";
- mes "1 Orange Dyestuffs,";
- mes "2 Stop Posts,";
- mes "3 Clown Noses,";
- mes "180 Fig Leaves and";
- mes "20 Solid Peaches.";
- next;
- mes "[Yakima]";
- mes "Do you have all the items?";
- next;
- menu "Yeah.",-,"Nay.",M_EXIT;
-
- if(countitem(975) < 1 || countitem(980) < 1 || countitem(2272) < 2 || countitem(2262) < 3 || countitem(7298) < 180 || countitem(7164) < 20) GOTO L_NOITEM;//Items: Scarlet_Dyestuff, Orange_Dyestuff, Stop_Post, Clown_Nose, Fig_Leaf, Solid_Peach,
- delitem 975,1;//Items: Scarlet_Dyestuff,
- delitem 980,1;//Items: Orange_Dyestuff,
- delitem 2272,2;//Items: Stop_Post,
- delitem 2262,3;//Items: Clown_Nose,
- delitem 7298,180;//Items: Fig_Leaf,
- delitem 7164,20;//Items: Solid_Peach,
- getitem 5100,1;//Items: Sales_Banner,
- mes "[Yakima]";
- mes "Thank you very very much!";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes "Well, well, well... this sign fits any class from a certain level!";
+ mes "Your foes'd be dazzled!";
+ emotion e_no1;
+ next;
+ mes "[Yakima]";
+ mes "Well... we construct it from some common items:";
+ mes "1 Scarlet Dyestuffs,";
+ mes "1 Orange Dyestuffs,";
+ mes "2 Stop Posts,";
+ mes "3 Clown Noses,";
+ mes "180 Fig Leaves and";
+ mes "20 Solid Peaches.";
+ next;
+ mes "[Yakima]";
+ mes "Do you have all the items?";
+ next;
+ menu "Yeah.",-,"Nay.",M_EXIT;
+
+ if(countitem(975) < 1 || countitem(980) < 1 || countitem(2272) < 2 || countitem(2262) < 3 || countitem(7298) < 180 || countitem(7164) < 20) GOTO L_NOITEM;//Items: Scarlet_Dyestuff, Orange_Dyestuff, Stop_Post, Clown_Nose, Fig_Leaf, Solid_Peach,
+ delitem 975,1;//Items: Scarlet_Dyestuff,
+ delitem 980,1;//Items: Orange_Dyestuff,
+ delitem 2272,2;//Items: Stop_Post,
+ delitem 2262,3;//Items: Clown_Nose,
+ delitem 7298,180;//Items: Fig_Leaf,
+ delitem 7164,20;//Items: Solid_Peach,
+ getitem 5100,1;//Items: Sales_Banner,
+ mes "[Yakima]";
+ mes "Thank you very very much!";
+ mes callfunc("F_Bye");
+ close;
L_NOITEM:
- mes "[Yakima]";
- mes "You are lack of items. Please, get all the items.";
- emotion e_sry;
- close;
+ mes "[Yakima]";
+ mes "You are lack of items. Please, get all the items.";
+ emotion e_sry;
+ close;
M_EXIT:
- mes "[Yakima]";
- mes callfunc("F_Bye");
- close;
+ mes "[Yakima]";
+ mes callfunc("F_Bye");
+ close;
}
diff --git a/npc/custom/quests/sphinx_mask.txt b/npc/custom/quests/sphinx_mask.txt
index 059e69408..8c1a42072 100644
--- a/npc/custom/quests/sphinx_mask.txt
+++ b/npc/custom/quests/sphinx_mask.txt
@@ -1,19 +1,17 @@
//===== rAthena Script =======================================
//= Sphinx Mask Quest (custom)
//===== By: ==================================================
-//= sabernet09 & rAthena Team
+//= sabernet09
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= rAthena 7.15 +
+//= rAthena SVN
//===== Description: =========================================
//= this quest is related to Umbalian Chief
//= 1.1 Removed it from official Umbala quests [Lupus]
//= 1.2 Added a missing variable (sphmask_q) [erKURITA]
//============================================================
-
-//===========================================================================
morocc,140,156,5 script Turban Thief 58,{
if(event_umbala < 2) goto AWAY;
if(sphmask_q) goto NoBus;
@@ -25,56 +23,56 @@ morocc,140,156,5 script Turban Thief 58,{
next;
menu "Pay 1,000,000z",-,"No deal",NoGo;
- if(Zeny < 1000000) goto NotEnough;
- set Zeny,Zeny-1000000;
- mes "[Turban Thief]";
- mes "O ho ho, its a deal then!";
- getitem 7114,1;//Items: Sphinx Mask,
- set sphmask_q,1;
- close;
+ if(Zeny < 1000000) goto NotEnough;
+ set Zeny,Zeny-1000000;
+ mes "[Turban Thief]";
+ mes "O ho ho, its a deal then!";
+ getitem 7114,1;//Items: Sphinx Mask,
+ set sphmask_q,1;
+ close;
- NoGo:
- mes "[Turban Thief]";
- mes "Ahh a business man are you no? Fine, how about...";
- next;
- menu "Pay 750,000",-,"Nope lower",NoGoB;
+NoGo:
+ mes "[Turban Thief]";
+ mes "Ahh a business man are you no? Fine, how about...";
+ next;
+ menu "Pay 750,000",-,"Nope lower",NoGoB;
- if(Zeny < 750000) goto NotEnough;
- set Zeny,Zeny-750000;
- mes "[Turban Thief]";
- mes "It is a done deal, no refunds!";
- getitem 7114,1;//Items: Sphinx Mask,
- set sphmask_q,1;
- close;
- NoGoB:
- mes "[Turban Thief]";
- mes "Hmmm... you drive a hard bargain, ok... my final offer...";
- next;
- menu "Pay 500,000",-,"It can go lower than that.",NoGoC;
+ if(Zeny < 750000) goto NotEnough;
+ set Zeny,Zeny-750000;
+ mes "[Turban Thief]";
+ mes "It is a done deal, no refunds!";
+ getitem 7114,1;//Items: Sphinx Mask,
+ set sphmask_q,1;
+ close;
+NoGoB:
+ mes "[Turban Thief]";
+ mes "Hmmm... you drive a hard bargain, ok... my final offer...";
+ next;
+ menu "Pay 500,000",-,"It can go lower than that.",NoGoC;
- if(Zeny < 500000) goto NotEnough;
- set Zeny,Zeny-500000;
- mes "[Turban Thief]";
- mes "Alright, here you go then...";
- getitem 7114,1;//Items: Sphinx Mask,
- set sphmask_q,1;
- close;
- NoGoC:
- next;
- mes "[Turban Thief]";
- mes "Ack! Forgez it! I can do bettaz en elsez where!";
- set sphmask_q,1;
- close;
- NoBus:
- mes "[Turban Thief]";
- mes "You have no more business with me, go away!";
- close;
- AWAY:
- mes "[Turban Thief]";
- mes "What do you wan te withz me? Be gone!";
- close;
- NotEnough:
- mes "[Turban Thief]";
- mes "Are youz playin wit me? You don't have ze money!";
- close;
+ if(Zeny < 500000) goto NotEnough;
+ set Zeny,Zeny-500000;
+ mes "[Turban Thief]";
+ mes "Alright, here you go then...";
+ getitem 7114,1;//Items: Sphinx Mask,
+ set sphmask_q,1;
+ close;
+NoGoC:
+ next;
+ mes "[Turban Thief]";
+ mes "Ack! Forgez it! I can do bettaz en elsez where!";
+ set sphmask_q,1;
+ close;
+NoBus:
+ mes "[Turban Thief]";
+ mes "You have no more business with me, go away!";
+ close;
+AWAY:
+ mes "[Turban Thief]";
+ mes "What do you wan te withz me? Be gone!";
+ close;
+NotEnough:
+ mes "[Turban Thief]";
+ mes "Are youz playin wit me? You don't have ze money!";
+ close;
}
diff --git a/npc/custom/quests/sunglasses.txt b/npc/custom/quests/sunglasses.txt
index 5b0f5cf49..5f554ea23 100644
--- a/npc/custom/quests/sunglasses.txt
+++ b/npc/custom/quests/sunglasses.txt
@@ -1,23 +1,23 @@
//===== rAthena Script =======================================
//= Quest For Slotted Sunglasses
//===== By: ==================================================
-//= Aegis - amichan
+//= amichan
//===== Current Version: =====================================
//= 1.7
//===== Compatible With: =====================================
-//= Any rAthena Version;
+//= rAthena SVN
//===== Description: =========================================
//= Quest to get Slotted Sunglasses
//===== Additional Comments: =================================
+//= quest will reset it self after 1 pair of Slotted Sunglasses is made.
+//=
//= 1.0 by Aegis 1.1 by aichan 1.2 by x[tsk] 1.3 by Darkchild
//= 1.5 Fixed Exploit [Lupus]
//= 1.6 Fixed Exploit [KarLaeda]
//= 1.7 Relocated 'Maseph' to moc_fild07. [Kisuka]
//============================================================
-// quest will reset it self after 1 pair of Slotted Sunglasses is made.
// 1st part of the quest
-
alberta,88,193,5 script Sunglasses Trader 73,{
if(SG_QUEST1 == 1) goto L_SG_Q1_Done;
mes "[Sunglasses Trader]";
@@ -45,7 +45,6 @@ L_SG_1:
mes "and ^000088100000z^000000.";
next;
menu "Alright, here.",L_SG_1_Check,"That's too much!",-;
-
mes "[Sunglasses Trader]";
mes "Suit Yourself.";
close;
@@ -90,7 +89,6 @@ L_SG_No:
}
// 2nd part of the quest
-
moc_fild07,334,186,5 script Maseph 702,{
if(SG_QUEST1 == 1) goto L_SG_2;
mes "[Maseph]";
diff --git a/npc/custom/quests/tha_statues.txt b/npc/custom/quests/tha_statues.txt
index 47e4237c1..fb52d7ed4 100644
--- a/npc/custom/quests/tha_statues.txt
+++ b/npc/custom/quests/tha_statues.txt
@@ -1,23 +1,21 @@
//===== rAthena Script =======================================
//= Custom Thanatos Tower Quest
//===== By: ==================================================
-//= Bibilol & Moryagorn
+//= Bibilol, Moryagorn
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
-//= Any rAthena Version;
+//= rAthena SVN
//===== Description: =========================================
//= Custom Thanatos Tower Quest
//===== Additional Comments: =================================
//= 1.1 Fixed wrong NPC names in their dialogues, added
-//= Justin84's gems check in Sox NPC [Lupus]
+//= Justin84's gems check in Sox NPC [Lupus]
//============================================================
-
//Statue (NPC)(U: UP, D: DOWN, R: RIGHT, L: LEFT) :
// Explain Npc
tha_t08,69,106,4 script Statue 111,{
-
mes "You can read on the back of the statue:";
mes "'By the spirit of olds, the walls are closed";
mes "Upper floors or foreign taboo";
@@ -33,22 +31,19 @@ tha_t08,69,106,4 script Statue 111,{
//Script:
tha_t09,17,158,4 script Thalos 111,{
-
if(TSQ_CHK == 1) goto done;
mes "[Thalos]";
mes "You must find the 2nd Statue now.";
set TSQ_CHK,1;
close;
-
done:
mes "[Thalos]";
mes "Go search the 2nd Statue!";
close;
-
+
}
tha_t09,84,99,4 script Mediane 111,{
-
if(TSQ_CHK != 1) goto nook;
mes "[Mediane]";
mes "Okay, i am warping you to the next floor now.";
@@ -69,7 +64,6 @@ nook:
//Script:
tha_t10,130,159,4 script Melkor 111,{
-
if(TSQ_CHK == 1) goto done;
mes "[Melkor]";
mes "You must find the other Spirits now.";
@@ -83,7 +77,6 @@ done:
}
tha_t10,160,98,4 script Zebrus 111,{
-
if(TSQ_CHK != 1) goto nook;
mes "[Zebrus]";
mes "Keep on this way, There is one Spirit left";
@@ -98,7 +91,6 @@ nook:
}
tha_t10,99,97,4 script Veriaelle 111,{
-
if(TSQ_CHK != 2) goto nook;
mes "[Veriaelle]";
mes "Okay, i am warping you to the next floor.";
@@ -150,7 +142,7 @@ nook:
}
tha_t11,16,16,4 script Mihane 111,{
- if(TSQ_CHK != 2) goto nook;
+ if(TSQ_CHK != 2) goto nook;
mes "[Mihane]";
mes "Keep on this way, Only 1 Left.";
set TSQ_CHK,3;
@@ -214,7 +206,7 @@ nook:
close;
}
-tha_t12,96,57,4 script Hox 111,{
+tha_t12,96,57,4 script Hox 111,{
if(TSQ_CHK != 2 ) goto nook;
mes "[Hox]";
mes "You are on the good way, 2 Spirits remaining !";
diff --git a/npc/custom/quests/thq/THQS_ChatingNPC.txt b/npc/custom/quests/thq/THQS_ChatingNPC.txt
index 4fc4ad796..55971e51f 100644
--- a/npc/custom/quests/thq/THQS_ChatingNPC.txt
+++ b/npc/custom/quests/thq/THQS_ChatingNPC.txt
@@ -1,26 +1,18 @@
//===== rAthena Script =======================================
-//= Treasure Hunter Script
-//===== Converted By =========================================
+//= Treasure Hunter Quests
+//===== By: ==================================================
//= Fredzilla
-//= Original
-//////////////////////////////////////////////////////////////
-// Treasure Hunter Quests //
-// By: Ezekial //
-// for the use on nRO run by Newbe5 //
-// revised By Warlock //
-//////////////////////////////////////////////////////////////
-//===== Version ==============================================
-//= 1.0 - Straight conversion of Aegis NPC file
-//===== Compatible With ======================================
-//= rAthena 1.0
-//===== Description ==========================================
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Start for Treasure hunter quests
-//===== Comments =============================================
+//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//============================================================
-
//Entrance Flags
yuno,48,101,6 script Notice 722,{
mes "^FF0000[ Treasure Hunter Guild House ]^000000";
diff --git a/npc/custom/quests/thq/THQS_GuildNPC.txt b/npc/custom/quests/thq/THQS_GuildNPC.txt
index 69216e89d..b5bbf5d28 100644
--- a/npc/custom/quests/thq/THQS_GuildNPC.txt
+++ b/npc/custom/quests/thq/THQS_GuildNPC.txt
@@ -1,26 +1,18 @@
//===== rAthena Script =======================================
-//= Treasure Hunter Script
-//===== Converted By =========================================
+//= Treasure Hunter Quests
+//===== By: ==================================================
//= Fredzilla
-//= Original
-//////////////////////////////////////////////////////////////
-// Treasure Hunter Quests //
-// By: Ezekial //
-// for the use on nRO run by Newbe5 //
-// revised By Warlock //
-//////////////////////////////////////////////////////////////
-//===== Version ==============================================
-//= 1.0 - Straight conversion of Aegis NPC file
-//===== Compatible With ======================================
-//= rAthena 1.0
-//===== Description ==========================================
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Start for Treasure hunter quests
-//===== Comments =============================================
+//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//============================================================
-
yuno_in01,124,164,6 script Guild Leader 108,{
mes "[Keegan]";
mes "What brings you here? Have something to say?";
@@ -91,5 +83,4 @@ N_NVM:
mes "[Keegan]";
mes "Alright come back when you have the free time to spare.";
close;
-
}
diff --git a/npc/custom/quests/thq/THQS_QuestNPC.txt b/npc/custom/quests/thq/THQS_QuestNPC.txt
index da184e10e..6a3b33699 100644
--- a/npc/custom/quests/thq/THQS_QuestNPC.txt
+++ b/npc/custom/quests/thq/THQS_QuestNPC.txt
@@ -1,21 +1,14 @@
//===== rAthena Script =======================================
-//= Treasure Hunter Script
-//===== Converted By =========================================
+//= Treasure Hunter Quests
+//===== By: ==================================================
//= Fredzilla
-//= Original
-//////////////////////////////////////////////////////////////
-// Treasure Hunter Quests //
-// By: Ezekial //
-// for the use on nRO run by Newbe5 //
-// revised By Warlock //
-//////////////////////////////////////////////////////////////
-//===== Version ==============================================
+//===== Current Version: =====================================
//= 1.4
-//===== Compatible With ======================================
-//= rAthena 1.0
-//===== Description ==========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Start for Treasure hunter quests
-//===== Comments =============================================
+//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//= 1.0 - Straight conversionof Aegis NPC file
@@ -25,7 +18,6 @@
//= 1.4 Fixed typos. (bugreport:2607) [Kisuka]
//============================================================
-
yuno_in01,112,151,6 script Quest Manager 62,{
mes "[Guy]";
mes "Welcome to the Treasure Hunters Guild "+strcharinfo(0)+".";
diff --git a/npc/custom/quests/thq/THQS_Quests.txt b/npc/custom/quests/thq/THQS_Quests.txt
index a53d8a4b0..132c5bf33 100644
--- a/npc/custom/quests/thq/THQS_Quests.txt
+++ b/npc/custom/quests/thq/THQS_Quests.txt
@@ -1,21 +1,14 @@
//===== rAthena Script =======================================
-//= Treasure Hunter Script
-//===== Converted By =========================================
+//= Treasure Hunter Quests
+//===== By: ==================================================
//= Fredzilla
-//= Original
-//////////////////////////////////////////////////////////////
-// Treasure Hunter Quests //
-// By: Ezekial //
-// for the use on nRO run by Newbe5 //
-// revised By Warlock //
-//////////////////////////////////////////////////////////////
-//===== Version ==============================================
+//===== Current Version: =====================================
//= 1.5
-//===== Compatible With ======================================
-//= rAthena 1.0
-//===== Description ==========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Start for Treasure hunter quests
-//===== Comments =============================================
+//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
//= 1.0 - Straight conversionof Aegis NPC file
@@ -25,7 +18,6 @@
//= 1.5 Fixed name collision with 'Little Girl' in cities/lutie.txt [Ai4rei]
//============================================================
-
///////Job list 1///////
//1-1
mjolnir_09,187,189,6 script Old Man 107,{
diff --git a/npc/custom/quests/thq/THQS_TTShop.txt b/npc/custom/quests/thq/THQS_TTShop.txt
index 5bb80a597..7752a0960 100644
--- a/npc/custom/quests/thq/THQS_TTShop.txt
+++ b/npc/custom/quests/thq/THQS_TTShop.txt
@@ -1,26 +1,19 @@
//===== rAthena Script =======================================
-//= Treasure Hunter Script
-//===== Converted By =========================================
+//= Treasure Hunter Quests
+//===== By: ==================================================
//= Fredzilla
-//= Original
-//////////////////////////////////////////////////////////////
-// Treasure Hunter Quests //
-// By: Ezekial //
-// for the use on nRO run by Newbe5 //
-// revised By Warlock //
-//////////////////////////////////////////////////////////////
-//===== Version ==============================================
+//===== Current Version: =====================================
//= 1.1
-//===== Compatible With ======================================
-//= rAthena 1.0
-//===== Description ==========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Start for Treasure hunter quests
-//===== Comments =============================================
+//===== Additional Comments: =================================
//= Event_THQS - Used to check if you have already registered
//= #Treasure_Token - used to keep track of tokens
-//= v1.0 - Straight conversion of Aegis NPC file
-//= v1.1 - balanced some prices, fixed 1 missing label
-//= removed Executioner&Mysteltain swords [Lupus]
+//= 1.0 - Straight conversion of Aegis NPC file
+//= 1.1 - balanced some prices, fixed 1 missing label
+//= removed Executioner&Mysteltain swords [Lupus]
//============================================================
prt_in,159,172,0 warp thqwrp 3,3,yuno_in01,123,155
diff --git a/npc/custom/quests/umbalian_language.txt b/npc/custom/quests/umbalian_language.txt
index c3d0fed51..674ea6e03 100644
--- a/npc/custom/quests/umbalian_language.txt
+++ b/npc/custom/quests/umbalian_language.txt
@@ -1,20 +1,15 @@
//===== rAthena Script =======================================
//= Custom Umbalian Language Quest
//===== By: ==================================================
-//= sabernet09 & rAthena Team
+//= sabernet09
//===== Current Version: =====================================
-//= 1.0
+//= 1.1
//===== Compatible With: =====================================
-//= rAthena 7.15 +
+//= rAthena SVN
//===== Description: =========================================
-//= 1.0 Removed it from offical Umbala Quests [Lupus]
+//= 1.1 Removed it from offical Umbala Quests [Lupus]
//============================================================
-
-//======================================================================================//
-// Custom Umbala Language Quest
-//======================================================================================//
-
prontera,145,290,5 script Mason 742,{
mes "[Mason]";
if(umb_lang==0) goto L_NOT_GOT_QUEST;
diff --git a/npc/custom/quests/valhallen.txt b/npc/custom/quests/valhallen.txt
index fbe79cd40..e976640cc 100644
--- a/npc/custom/quests/valhallen.txt
+++ b/npc/custom/quests/valhallen.txt
@@ -5,7 +5,7 @@
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
-//= rAthena 7.15 +
+//= rAthena SVN
//===== Description: =========================================
//= All-in-one: Mjollnir,Sleipnir,Brisingammen,Gleipnir,Megingjard
//===== Additional Comments: =================================
diff --git a/npc/custom/rpsroulette.txt b/npc/custom/rpsroulette.txt
index 75e31e972..8e3d04a3e 100644
--- a/npc/custom/rpsroulette.txt
+++ b/npc/custom/rpsroulette.txt
@@ -1,15 +1,15 @@
//===== rAthena Script =======================================
-//= Rock Scissors Roulette Script
+//= Rock Scissors Roulette
//===== By: ==================================================
-//= acky (1.1)
+//= acky
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: =========================================
//= Plays a hybrid Russian Roulette Rock Scissors Paper game.
//===== Additional Comments: =================================
-//= Prizes customisable, Added emotions.
+//= Prizes customizable, Added emotions.
//= 1.2 Fixes by Blackthunder and me [Poki#3]
//============================================================
diff --git a/npc/custom/shifty_assassin.txt b/npc/custom/shifty_assassin.txt
index 0f8e32e4c..8f4bbe4cf 100644
--- a/npc/custom/shifty_assassin.txt
+++ b/npc/custom/shifty_assassin.txt
@@ -1,7 +1,7 @@
//===== rAthena Script =======================================
//= Shifty Assassin
//===== By: ==================================================
-//= acky - god@acky.com
+//= acky
//===== Current Version: =====================================
//= 1.1.2
//===== Compatible With: =====================================
@@ -14,196 +14,186 @@
//============================================================
morocc,148,86,5 script Shifty Assassin 725,{
-set $ninja_price,250000;
+ set $ninja_price,250000;
-// STARTS THE MENU //
+ // STARTS THE MENU //
M_Start:
-mes "[Shifty Assassin]";
-mes "What do you want?";
-next;
-if (getgmlevel() > 90) goto M_GM;
-menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Cancel",M_Exit;
+ mes "[Shifty Assassin]";
+ mes "What do you want?";
+ next;
+ if (getgmlevel() > 90) goto M_GM;
+ menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Cancel",M_Exit;
M_GM:
-menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Add Ninjas",M_Add,"Cancel",M_Exit;
+ menu "Buy Ninjas",M_Buy,"Assassinate somebody",M_Kill,"Check your Ninjas",M_Check,"Add Ninjas",M_Add,"Cancel",M_Exit;
-// GM MENU TO ADD NINJAS //
+ // GM MENU TO ADD NINJAS //
M_Add:
-mes "[Shifty Assassin]";
-mes "How many ninjas do you want to make available?";
-next;
-set @add,0;
-input @add;
-set $ninja_avail,$ninja_avail+@add;
-mes @add + " ninjas added.";
-close;
-
-// BUY NINJAS //
+ mes "[Shifty Assassin]";
+ mes "How many ninjas do you want to make available?";
+ next;
+ set @add,0;
+ input @add;
+ set $ninja_avail,$ninja_avail+@add;
+ mes @add + " ninjas added.";
+ close;
+
+ // BUY NINJAS //
M_Buy:
-mes "[Shifty Assassin]";
-mes "How many ninjas do you want buy?";
-mes "There are ^0000FF" + $ninja_avail + "^000000 ninjas available.";
-mes "They cost ^0000FF" + $ninja_price + " zeny ^000000each.";
-
-set @buy,0;
-input @buy;
-next;
-if ($ninja_avail < 1) goto NoNinjas;
-if ($ninja_avail < @buy) goto NotEnoughNinjas;
-set @price,@buy*$ninja_price;
-if (zeny < @price ) goto NoZeny;
-
-mes "[Shifty Assassin]";
-mes "That will cost you ^0000FF" + @price + " zeny^000000.";
-next;
-menu "Continue",-,"Cancel",M_Exit;
-
-set zeny,zeny-@price;
-set #ninjas,#ninjas+@buy;
-set $ninja_avail,$ninja_avail-@buy;
-
-mes "[Shifty Assassin]";
-mes "Thank you.";
-close;
-
-// ASSASSINATE SOMEBODY //
+ mes "[Shifty Assassin]";
+ mes "How many ninjas do you want buy?";
+ mes "There are ^0000FF" + $ninja_avail + "^000000 ninjas available.";
+ mes "They cost ^0000FF" + $ninja_price + " zeny ^000000each.";
+
+ set @buy,0;
+ input @buy;
+ next;
+ if ($ninja_avail < 1) goto NoNinjas;
+ if ($ninja_avail < @buy) goto NotEnoughNinjas;
+ set @price,@buy*$ninja_price;
+ if (zeny < @price ) goto NoZeny;
+
+ mes "[Shifty Assassin]";
+ mes "That will cost you ^0000FF" + @price + " zeny^000000.";
+ next;
+ menu "Continue",-,"Cancel",M_Exit;
+
+ set zeny,zeny-@price;
+ set #ninjas,#ninjas+@buy;
+ set $ninja_avail,$ninja_avail-@buy;
+
+ mes "[Shifty Assassin]";
+ mes "Thank you.";
+ close;
+
+ // ASSASSINATE SOMEBODY //
M_Kill:
-if (agitcheck()) goto M_Busy;
-mes "[Shifty Assassin]";
-mes "Enter the name of the target.";
-mes "^FF0000Type the name exactly, otherwise I won't be able to find the victim.^000000";
-next;
-menu "Continue",-,"Cancel",M_Exit;
-set @name$,"0";
-input @name$;
-next;
-mes "[Shifty Assassin]";
-mes "Active Ninjas: "+#ninjas;
-mes "Resting Ninjas: "+#ninjasr;
-mes "How many do you want to send?";
-set @number,0;
-input @number;
-if (@number < 1) goto NoNinjasSent;
-if (@number > #ninjas) goto NotEnoughNinjas1;
-if (@number > 10) goto TooManyNinjas;
-set @chance,rand (1,12);
-set #ninjas,#ninjas-@number;
-set #ninjas,#ninjas+#ninjasr;
-set #ninjasr,0;
-if (@number < @chance) goto M_Failure;
-
-// SUCCESSFUL ATTACK //
-mes "Sending ninjas now.";
-next;
-mes "[Shifty Assassin]";
-set @ninjasurvived,rand (1,@number);
-set #ninjasr,@number-@ninjasurvived;
-mes "Your attack succeeded but only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";
-
-atcommand strcharinfo(0) + "@kill "+@name$;
-announce @name$+" has been assassinated by " + strcharinfo(0) +"'s Ninjas.",8;
-close;
-
-// FAILED ATTACK //
+ if (agitcheck()) goto M_Busy;
+ mes "[Shifty Assassin]";
+ mes "Enter the name of the target.";
+ mes "^FF0000Type the name exactly, otherwise I won't be able to find the victim.^000000";
+ next;
+ menu "Continue",-,"Cancel",M_Exit;
+ set @name$,"0";
+ input @name$;
+ next;
+ mes "[Shifty Assassin]";
+ mes "Active Ninjas: "+#ninjas;
+ mes "Resting Ninjas: "+#ninjasr;
+ mes "How many do you want to send?";
+ set @number,0;
+ input @number;
+ if (@number < 1) goto NoNinjasSent;
+ if (@number > #ninjas) goto NotEnoughNinjas1;
+ if (@number > 10) goto TooManyNinjas;
+ set @chance,rand (1,12);
+ set #ninjas,#ninjas-@number;
+ set #ninjas,#ninjas+#ninjasr;
+ set #ninjasr,0;
+ if (@number < @chance) goto M_Failure;
+
+ // SUCCESSFUL ATTACK //
+ mes "Sending ninjas now.";
+ next;
+ mes "[Shifty Assassin]";
+ set @ninjasurvived,rand (1,@number);
+ set #ninjasr,@number-@ninjasurvived;
+ mes "Your attack succeeded but only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";
+
+ atcommand strcharinfo(0) + "@kill "+@name$;
+ announce @name$+" has been assassinated by " + strcharinfo(0) +"'s Ninjas.",8;
+ close;
+
+ // FAILED ATTACK //
M_Failure:
-mes "Sending ninjas now.";
-next;
-mes "[Shifty Assassin]";
-set @ninjasurvived,rand (1,@number);
-set #ninjasr,@number-@ninjasurvived;
-mes "Your attack failed and only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";
+ mes "Sending ninjas now.";
+ next;
+ mes "[Shifty Assassin]";
+ set @ninjasurvived,rand (1,@number);
+ set #ninjasr,@number-@ninjasurvived;
+ mes "Your attack failed and only ^FF0000" + #ninjasr + "^000000 Ninjas survived.";
-announce @name$+" has survived " + strcharinfo(0) +"'s Ninja attack.",8;
-close;
+ announce @name$+" has survived " + strcharinfo(0) +"'s Ninja attack.",8;
+ close;
-// NINJAS BUSY FOR WOE //
+ // NINJAS BUSY FOR WOE //
M_Busy:
-mes "[Shifty Assassin]";
-mes "Sorry, all my ninjas are busy doing War of Emperium.";
-close;
+ mes "[Shifty Assassin]";
+ mes "Sorry, all my ninjas are busy doing War of Emperium.";
+ close;
-// CHECK YOUR NINJAS //
+ // CHECK YOUR NINJAS //
M_Check:
-mes "[Shifty Assassin]";
-mes "You have:";
-mes "^FF0000" + #ninjas + "^000000 Active Ninjas.";
-mes "^0000FF" + #ninjasr + "^000000 Resting Ninjas.";
-next;
-goto M_Start;
+ mes "[Shifty Assassin]";
+ mes "You have:";
+ mes "^FF0000" + #ninjas + "^000000 Active Ninjas.";
+ mes "^0000FF" + #ninjasr + "^000000 Resting Ninjas.";
+ next;
+ goto M_Start;
-// LIMIT //
+ // LIMIT //
NoNinjasSent:
-mes "[Shifty Assassin]";
-mes "You can't kill anyone without ninjas.";
-next;
-goto M_Start;
+ mes "[Shifty Assassin]";
+ mes "You can't kill anyone without ninjas.";
+ next;
+ goto M_Start;
TooManyNinjas:
-mes "[Shifty Assassin]";
-mes "You can only send 10 ninjas max.";
-next;
-goto M_Start;
+ mes "[Shifty Assassin]";
+ mes "You can only send 10 ninjas max.";
+ next;
+ goto M_Start;
NoZeny:
-mes "[Shifty Assassin]";
-mes "You do not have enough zeny.";
-close;
+ mes "[Shifty Assassin]";
+ mes "You do not have enough zeny.";
+ close;
NotEnoughNinjas:
-mes "[Shifty Assassin]";
-mes "There aren't that many ninjas to buy.";
-next;
-goto M_Start;
+ mes "[Shifty Assassin]";
+ mes "There aren't that many ninjas to buy.";
+ next;
+ goto M_Start;
NoNinjas:
-mes "[Shifty Assassin]";
-mes "There are no ninjas left to buy.";
-close;
+ mes "[Shifty Assassin]";
+ mes "There are no ninjas left to buy.";
+ close;
NotEnoughNinjas1:
-mes "[Shifty Assassin]";
-mes "You do not have that many ninjas.";
-next;
-goto M_Start;
+ mes "[Shifty Assassin]";
+ mes "You do not have that many ninjas.";
+ next;
+ goto M_Start;
M_Exit:
-mes "[Shifty Assassin]";
-mes "Goodbye.";
-close;
+ mes "[Shifty Assassin]";
+ mes "Goodbye.";
+ close;
// TIMER DELAY NINJA ADDER //
-
OnClock0600:
-set $ninja_avail,$ninja_avail+2;
-end;
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnClock1200:
-set $ninja_avail,$ninja_avail+2;
-end;
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnClock1500:
-set $ninja_avail,$ninja_avail+2;
-end;
-
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnClock1800:
-set $ninja_avail,$ninja_avail+3;
-end;
-
+ set $ninja_avail,$ninja_avail+3;
+ end;
OnClock1900:
-set $ninja_avail,$ninja_avail+2;
-end;
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnClock2000:
-set $ninja_avail,$ninja_avail+2;
-end;
-
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnClock0000:
-set $ninja_avail,$ninja_avail+2;
-end;
-
+ set $ninja_avail,$ninja_avail+2;
+ end;
OnInit:
-set $ninja_avail,$ninja_avail+1;
-end;
+ set $ninja_avail,$ninja_avail+1;
+ end;
}
diff --git a/npc/custom/sign_your_items.txt b/npc/custom/sign_your_items.txt
index bac8207ea..769e62866 100644
--- a/npc/custom/sign_your_items.txt
+++ b/npc/custom/sign_your_items.txt
@@ -1,16 +1,16 @@
-//===== rAthena Script =======================================
-//= * Sign Your Items *
-//===== By: ==================================================
+//===== rAthena Script =======================================
+//= Sign Your Items
+//===== By: ==================================================
//= Lupus
-//===== Current Version: =====================================
+//===== Current Version: =====================================
//= 1.0
-//===== Compatible With: =====================================
-//= rAthena 1
-//===== Description: =========================================
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
//= Write you name on your rare equipment or weapon ^_-
//= Original X-Mas mini-quest(could be used as a permanent one)
-//===== Additional Comments: =================================
-//= 1.0 First release
+//===== Additional Comments: =================================
+//=
//============================================================
prt_in,24,61,7 script Perchik 47,{
@@ -52,85 +52,85 @@ M_DO:
M_MENU:
next;
menu getequipname(1),M_PART1,getequipname(9),M_PART9,getequipname(10),M_PART10,getequipname(2),M_PART2,getequipname(4),M_PART4,
- getequipname(3),M_PART3,getequipname(5),M_PART5,getequipname(6),M_PART6,getequipname(7),M_PART7,getequipname(8),M_PART8;
+ getequipname(3),M_PART3,getequipname(5),M_PART5,getequipname(6),M_PART6,getequipname(7),M_PART7,getequipname(8),M_PART8;
//Head Gear
- M_PART1:
- set @part,1;
- if (getequipisequiped(1)) goto L_CHECK1;
- mes "[Perchik]";
- mes "A bald head under a cheap wig... There's nothing worthy to sign.";
- emotion 6;
- goto M_MENU;
- M_PART9:
- set @part,9;
- if (getequipisequiped(9)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Glasses... I can't see any glasses...";
- emotion 20;
- goto M_MENU;
- M_PART10:
- set @part,10;
- if (getequipisequiped(10)) goto L_CHECK1;
- mes "[Perchik]";
- mes "I don't see any mask here.";
- emotion 20;
- goto M_MENU;
+M_PART1:
+ set @part,1;
+ if (getequipisequiped(1)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "A bald head under a cheap wig... There's nothing worthy to sign.";
+ emotion 6;
+ goto M_MENU;
+M_PART9:
+ set @part,9;
+ if (getequipisequiped(9)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Glasses... I can't see any glasses...";
+ emotion 20;
+ goto M_MENU;
+M_PART10:
+ set @part,10;
+ if (getequipisequiped(10)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "I don't see any mask here.";
+ emotion 20;
+ goto M_MENU;
//Armor
- M_PART2:
- set @part,2;
- if (getequipisequiped(2)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Your belly...? Yes, it's rather fat.";
- emotion 6;
- goto M_MENU;
+M_PART2:
+ set @part,2;
+ if (getequipisequiped(2)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Your belly...? Yes, it's rather fat.";
+ emotion 6;
+ goto M_MENU;
//Left Hand
- M_PART3:
- set @part,3;
- if (getequipisequiped(3)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Sign your left hand? I'm not a celebrity, you know...";
- emotion 4;
- goto M_MENU;
+M_PART3:
+ set @part,3;
+ if (getequipisequiped(3)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Sign your left hand? I'm not a celebrity, you know...";
+ emotion 4;
+ goto M_MENU;
//Right Hand
- M_PART4:
- set @part,4;
- if (getequipisequiped(4)) goto L_CHECK1;
- mes "[Perchik]";
- mes "It isn't an armor... It's a mud!!! Wash your hands more often.";
- emotion 4;
- goto M_MENU;
+M_PART4:
+ set @part,4;
+ if (getequipisequiped(4)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "It isn't an armor... It's a mud!!! Wash your hands more often.";
+ emotion 4;
+ goto M_MENU;
//Garment
- M_PART5:
- set @part,5;
- if (getequipisequiped(5)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Look... It's empty...";
- goto M_MENU;
+M_PART5:
+ set @part,5;
+ if (getequipisequiped(5)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Look... It's empty...";
+ goto M_MENU;
//Foot Gear
- M_PART6:
- set @part,6;
- if (getequipisequiped(6)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Aw!! I don't like stinky feet.";
- emotion 16;
- goto M_MENU;
+M_PART6:
+ set @part,6;
+ if (getequipisequiped(6)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Aw!! I don't like stinky feet.";
+ emotion 16;
+ goto M_MENU;
//Accessory1
- M_PART7:
- set @part,7;
- if (getequipisequiped(7)) goto L_CHECK1;
- mes "[Perchik]";
- mes "Yep... a pocket with a huge hole...";
- emotion 20;
- goto M_MENU;
+M_PART7:
+ set @part,7;
+ if (getequipisequiped(7)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "Yep... a pocket with a huge hole...";
+ emotion 20;
+ goto M_MENU;
//Accessory2
- M_PART8:
- set @part,8;
- if (getequipisequiped(8)) goto L_CHECK1;
- mes "[Perchik]";
- mes "I see your fat belly...";
- emotion 20;
- goto M_MENU;
+M_PART8:
+ set @part,8;
+ if (getequipisequiped(8)) goto L_CHECK1;
+ mes "[Perchik]";
+ mes "I see your fat belly...";
+ emotion 20;
+ goto M_MENU;
L_CHECK1:
set @ref,0;
diff --git a/npc/custom/stock_market.txt b/npc/custom/stock_market.txt
index 23fdfe23f..6f90bcaef 100644
--- a/npc/custom/stock_market.txt
+++ b/npc/custom/stock_market.txt
@@ -1,11 +1,11 @@
//===== rAthena Script =======================================
//= Stock Market Game
//===== By: ==================================================
-//= acky (acky@bigpond.net.au)
+//= acky
//===== Current Version: =====================================
//= 1.3.1
//===== Compatible With: =====================================
-//= Any rAthena Version
+//= rAthena SVN
//===== Description: =========================================
//= NPC for a stock market game.
//===== Additional Comments: =================================
@@ -14,252 +14,252 @@
//= Low prices likely to rise, High prices likely to drop
//= Small fix by Galeon
//= Lupus: This script lets players make 40,000,000z a day
-//= so use it on your own risk
+//= so use it on your own risk
//============================================================
-prontera,140,181,5 script sharenames -1,{
-end;
+- script sharenames -1,{
+ end;
OnInit:
-// Sets the names of the shares //
-set $S1N$,"JIN";
-set $S2N$,"VNG";
-set $S3N$,"SHA";
-set $S4N$,"RGC";
-set $S5N$,"PSC";
-set $S6N$,"GNG";
-set $S7N$,"XRO";
-set $S8N$,"GRM";
-set $S9N$,"DOP";
-set $S10N$,"POR";
-
-// Transaction fee //
-set $S_Trans,1500;
-
-// Min & Max buyable //
-set $S_BuyMin,1;
-set $S_BuyMax,1000000;
-end;
-
-// Average Price (Your start prices) //
-set $S_Avg,100;
-
-// Set times of fluctuation //
+ // Sets the names of the shares //
+ set $S1N$,"JIN";
+ set $S2N$,"VNG";
+ set $S3N$,"SHA";
+ set $S4N$,"RGC";
+ set $S5N$,"PSC";
+ set $S6N$,"GNG";
+ set $S7N$,"XRO";
+ set $S8N$,"GRM";
+ set $S9N$,"DOP";
+ set $S10N$,"POR";
+
+ // Transaction fee //
+ set $S_Trans,1500;
+
+ // Min & Max buyable //
+ set $S_BuyMin,1;
+ set $S_BuyMax,1000000;
+ end;
+
+ // Average Price (Your start prices) //
+ set $S_Avg,100;
+
+ // Set times of fluctuation //
OnClock1100:
-set $S_LastUpd$,"12:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"12:00";
+ goto S_Fluc;
+ end;
OnClock0000:
-set $S_LastUpd$,"00:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"00:00";
+ goto S_Fluc;
+ end;
OnClock0600:
-set $S_LastUpd$,"06:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"06:00";
+ goto S_Fluc;
+ end;
OnClock1800:
-set $S_LastUpd$,"18:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"18:00";
+ goto S_Fluc;
+ end;
OnClock2100:
-set $S_LastUpd$,"21:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"21:00";
+ goto S_Fluc;
+ end;
OnClock0900:
-set $S_LastUpd$,"09:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"09:00";
+ goto S_Fluc;
+ end;
OnClock1500:
-set $S_LastUpd$,"15:00";
-goto S_Fluc;
-end;
+ set $S_LastUpd$,"15:00";
+ goto S_Fluc;
+ end;
S_Fluc:
-set $fluc,rand (-6,6);
-set $S1B,$S1;
-set $S1,$S1+$fluc;
-if ($S1 < 25) set $S1,$S1+3;
-if ($S1 < 50) set $S1,$S1+2;
-if ($S1 > 150) set $S1,$S1-2;
-if ($S1 > 175) set $S1,$S1-3;
-if ($S1 < 1) set $S1,1;
-
-set $fluc,rand (-6,6);
-set $S2B,$S2;
-set $S2,$S2+$fluc;
-if ($S2 < 25) set $S2,$S2+3;
-if ($S2 < 50) set $S2,$S2+2;
-if ($S2 > 150) set $S2,$S2-2;
-if ($S2 > 175) set $S2,$S2-3;
-if ($S2 < 1) set $S2,1;
-
-set $fluc,rand (-6,6);
-set $S3B,$S3;
-set $S3,$S3+$fluc;
-if ($S3 < 25) set $S3,$S3+3;
-if ($S3 < 50) set $S3,$S3+2;
-if ($S3 > 150) set $S3,$S3-2;
-if ($S3 > 175) set $S3,$S3-3;
-if ($S3 < 1) set $S3,1;
-
-set $fluc,rand (-6,6);
-set $S4B,$S4;
-set $S4,$S4+$fluc;
-if ($S4 < 25) set $S4,$S4+3;
-if ($S4 < 50) set $S4,$S4+2;
-if ($S4 > 150) set $S4,$S4-2;
-if ($S4 > 175) set $S4,$S4-3;
-if ($S4 < 1) set $S4,1;
-
-set $fluc,rand (-6,6);
-set $S5B,$S5;
-set $S5,$S5+$fluc;
-if ($S5 < 25) set $S5,$S5+3;
-if ($S5 < 50) set $S5,$S5+2;
-if ($S5 > 150) set $S5,$S5-2;
-if ($S5 > 175) set $S5,$S5-3;
-if ($S5 < 1) set $S5,1;
-
-set $fluc,rand (-6,6);
-set $S6B,$S6;
-set $S6,$S6+$fluc;
-if ($S6 < 25) set $S6,$S6+3;
-if ($S6 < 50) set $S6,$S6+2;
-if ($S6 > 150) set $S6,$S6-2;
-if ($S6 > 175) set $S6,$S6-3;
-if ($S6 < 1) set $S6,1;
-
-set $fluc,rand (-6,6);
-set $S7B,$S7;
-set $S7,$S7+$fluc;
-if ($S7 < 25) set $S7,$S7+3;
-if ($S7 < 50) set $S7,$S7+2;
-if ($S7 > 150) set $S7,$S7-2;
-if ($S7 > 175) set $S7,$S7-3;
-if ($S7 < 1) set $S7,1;
-
-set $fluc,rand (-6,6);
-set $S8B,$S8;
-set $S8,$S8+$fluc;
-if ($S8 < 25) set $S8,$S8+3;
-if ($S8 < 50) set $S8,$S8+2;
-if ($S8 > 150) set $S8,$S8-2;
-if ($S8 > 175) set $S8,$S8-3;
-if ($S8 < 1) set $S8,1;
-
-set $fluc,rand (-6,6);
-set $S9B,$S9;
-set $S9,$S9+$fluc;
-if ($S9 < 25) set $S9,$S9+3;
-if ($S9 < 50) set $S9,$S9+2;
-if ($S9 > 150) set $S9,$S9-2;
-if ($S9 > 175) set $S9,$S9-3;
-if ($S9 < 1) set $S9,1;
-
-set $fluc,rand (-6,6);
-set $S10B,$S10;
-set $S10,$S10+$fluc;
-if ($S10 < 25) set $S10,$S10+3;
-if ($S10 < 50) set $S10,$S10+2;
-if ($S10 > 150) set $S10,$S10-2;
-if ($S10 > 175) set $S10,$S10-3;
-if ($S10 < 1) set $S10,1;
-end;
+ set $fluc,rand (-6,6);
+ set $S1B,$S1;
+ set $S1,$S1+$fluc;
+ if ($S1 < 25) set $S1,$S1+3;
+ if ($S1 < 50) set $S1,$S1+2;
+ if ($S1 > 150) set $S1,$S1-2;
+ if ($S1 > 175) set $S1,$S1-3;
+ if ($S1 < 1) set $S1,1;
+
+ set $fluc,rand (-6,6);
+ set $S2B,$S2;
+ set $S2,$S2+$fluc;
+ if ($S2 < 25) set $S2,$S2+3;
+ if ($S2 < 50) set $S2,$S2+2;
+ if ($S2 > 150) set $S2,$S2-2;
+ if ($S2 > 175) set $S2,$S2-3;
+ if ($S2 < 1) set $S2,1;
+
+ set $fluc,rand (-6,6);
+ set $S3B,$S3;
+ set $S3,$S3+$fluc;
+ if ($S3 < 25) set $S3,$S3+3;
+ if ($S3 < 50) set $S3,$S3+2;
+ if ($S3 > 150) set $S3,$S3-2;
+ if ($S3 > 175) set $S3,$S3-3;
+ if ($S3 < 1) set $S3,1;
+
+ set $fluc,rand (-6,6);
+ set $S4B,$S4;
+ set $S4,$S4+$fluc;
+ if ($S4 < 25) set $S4,$S4+3;
+ if ($S4 < 50) set $S4,$S4+2;
+ if ($S4 > 150) set $S4,$S4-2;
+ if ($S4 > 175) set $S4,$S4-3;
+ if ($S4 < 1) set $S4,1;
+
+ set $fluc,rand (-6,6);
+ set $S5B,$S5;
+ set $S5,$S5+$fluc;
+ if ($S5 < 25) set $S5,$S5+3;
+ if ($S5 < 50) set $S5,$S5+2;
+ if ($S5 > 150) set $S5,$S5-2;
+ if ($S5 > 175) set $S5,$S5-3;
+ if ($S5 < 1) set $S5,1;
+
+ set $fluc,rand (-6,6);
+ set $S6B,$S6;
+ set $S6,$S6+$fluc;
+ if ($S6 < 25) set $S6,$S6+3;
+ if ($S6 < 50) set $S6,$S6+2;
+ if ($S6 > 150) set $S6,$S6-2;
+ if ($S6 > 175) set $S6,$S6-3;
+ if ($S6 < 1) set $S6,1;
+
+ set $fluc,rand (-6,6);
+ set $S7B,$S7;
+ set $S7,$S7+$fluc;
+ if ($S7 < 25) set $S7,$S7+3;
+ if ($S7 < 50) set $S7,$S7+2;
+ if ($S7 > 150) set $S7,$S7-2;
+ if ($S7 > 175) set $S7,$S7-3;
+ if ($S7 < 1) set $S7,1;
+
+ set $fluc,rand (-6,6);
+ set $S8B,$S8;
+ set $S8,$S8+$fluc;
+ if ($S8 < 25) set $S8,$S8+3;
+ if ($S8 < 50) set $S8,$S8+2;
+ if ($S8 > 150) set $S8,$S8-2;
+ if ($S8 > 175) set $S8,$S8-3;
+ if ($S8 < 1) set $S8,1;
+
+ set $fluc,rand (-6,6);
+ set $S9B,$S9;
+ set $S9,$S9+$fluc;
+ if ($S9 < 25) set $S9,$S9+3;
+ if ($S9 < 50) set $S9,$S9+2;
+ if ($S9 > 150) set $S9,$S9-2;
+ if ($S9 > 175) set $S9,$S9-3;
+ if ($S9 < 1) set $S9,1;
+
+ set $fluc,rand (-6,6);
+ set $S10B,$S10;
+ set $S10,$S10+$fluc;
+ if ($S10 < 25) set $S10,$S10+3;
+ if ($S10 < 50) set $S10,$S10+2;
+ if ($S10 > 150) set $S10,$S10-2;
+ if ($S10 > 175) set $S10,$S10-3;
+ if ($S10 < 1) set $S10,1;
+ end;
}
-- script Stock Market::stockmarket 109,{
-// Ensures no trading when default prices have not been set //
-set @stotal,$S1+$S2+$S3+$S4+$S5+$S6+$S7+$S8+$S9+$S10;
-if (@stotal > 0) goto S_Start;
-mes "[Stock Market]";
-mes "Trading is currently closed.";
-if (getgmlevel() > 90) goto GM_Open;
-close;
+prontera,140,181,5 script Stock Market::stockmarket 109,{
+ // Ensures no trading when default prices have not been set //
+ set @stotal,$S1+$S2+$S3+$S4+$S5+$S6+$S7+$S8+$S9+$S10;
+ if (@stotal > 0) goto S_Start;
+ mes "[Stock Market]";
+ mes "Trading is currently closed.";
+ if (getgmlevel() > 90) goto GM_Open;
+ close;
-// Begining of interface //
+ // Begining of interface //
S_Start:
-mes "[Stock Market]";
-mes "Last fluctuation: " + $S_LastUpd$;
-
-// Loss/Gain in price //
-set @S1Update,$S1-$S1B;
-set @S2Update,$S2-$S2B;
-set @S3Update,$S3-$S3B;
-set @S4Update,$S4-$S4B;
-set @S5Update,$S5-$S5B;
-set @S6Update,$S6-$S6B;
-set @S7Update,$S7-$S7B;
-set @S8Update,$S8-$S8B;
-set @S9Update,$S9-$S9B;
-set @S10Update,$S10-$S10B;
-
-// Makes Loss/Gain Red/Green //
-if (@S1Update < 0) set @S1Update$,"^FF0000"+@S1Update+"^000000";
-if (@S1Update > 0) set @S1Update$,"^00FF00+"+@S1Update+"^000000";
-if (@S1Update == 0) set @S1Update$,@S1Update;
-
-if (@S2Update < 0) set @S2Update$,"^FF0000"+@S2Update+"^000000";
-if (@S2Update > 0) set @S2Update$,"^00FF00+"+@S2Update+"^000000";
-if (@S2Update == 0) set @S2Update$,@S2Update;
-
-if (@S3Update < 0) set @S3Update$,"^FF0000"+@S3Update+"^000000";
-if (@S3Update > 0) set @S3Update$,"^00FF00+"+@S3Update+"^000000";
-if (@S3Update == 0) set @S3Update$,@S3Update;
-
-if (@S4Update < 0) set @S4Update$,"^FF0000"+@S4Update+"^000000";
-if (@S4Update > 0) set @S4Update$,"^00FF00+"+@S4Update+"^000000";
-if (@S4Update == 0) set @S4Update$,@S4Update;
-
-if (@S5Update < 0) set @S5Update$,"^FF0000"+@S5Update+"^000000";
-if (@S5Update > 0) set @S5Update$,"^00FF00+"+@S5Update+"^000000";
-if (@S5Update == 0) set @S5Update$,@S5Update;
-
-if (@S6Update < 0) set @S6Update$,"^FF0000"+@S6Update+"^000000";
-if (@S6Update > 0) set @S6Update$,"^00FF00+"+@S6Update+"^000000";
-if (@S6Update == 0) set @S6Update$,@S6Update;
-
-if (@S7Update < 0) set @S7Update$,"^FF0000"+@S7Update+"^000000";
-if (@S7Update > 0) set @S7Update$,"^00FF00+"+@S7Update+"^000000";
-if (@S7Update == 0) set @S7Update$,@S7Update;
-
-if (@S8Update < 0) set @S8Update$,"^FF0000"+@S8Update+"^000000";
-if (@S8Update > 0) set @S8Update$,"^00FF00+"+@S8Update+"^000000";
-if (@S8Update == 0) set @S8Update$,@S8Update;
-
-if (@S9Update < 0) set @S9Update$,"^FF0000"+@S9Update+"^000000";
-if (@S9Update > 0) set @S9Update$,"^00FF00+"+@S9Update+"^000000";
-if (@S9Update == 0) set @S9Update$,@S9Update;
-
-if (@S10Update < 0) set @S10Update$,"^FF0000"+@S10Update+"^000000";
-if (@S10Update > 0) set @S10Update$,"^00FF00+"+@S10Update+"^000000";
-if (@S10Update == 0) set @S10Update$,@S10Update;
-
-// Displays shares & prices //
-mes "^21698F"+$S1N$+"^000000" + " " + $S1 + "z (" + @S1Update$ + ")";
-mes "^21698F"+$S2N$+"^000000" + " " + $S2 + "z (" + @S2Update$ + ")";
-mes "^21698F"+$S3N$+"^000000" + " " + $S3 + "z (" + @S3Update$ + ")";
-mes "^21698F"+$S4N$+"^000000" + " " + $S4 + "z (" + @S4Update$ + ")";
-mes "^21698F"+$S5N$+"^000000" + " " + $S5 + "z (" + @S5Update$ + ")";
-mes "^21698F"+$S6N$+"^000000" + " " + $S6 + "z (" + @S6Update$ + ")";
-mes "^21698F"+$S7N$+"^000000" + " " + $S7 + "z (" + @S7Update$ + ")";
-mes "^21698F"+$S8N$+"^000000" + " " + $S8 + "z (" + @S8Update$ + ")";
-mes "^21698F"+$S9N$+"^000000" + " " + $S9 + "z (" + @S9Update$ + ")";
-mes "^21698F"+$S10N$+"^000000" + " " + $S10 + "z (" + @S10Update$ + ")";
-next;
-
-// GM Menu link //
-if (getgmlevel() > 90) goto GM_subMenu;
-menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"Cancel",S_Quit;
+ mes "[Stock Market]";
+ mes "Last fluctuation: " + $S_LastUpd$;
+
+ // Loss/Gain in price //
+ set @S1Update,$S1-$S1B;
+ set @S2Update,$S2-$S2B;
+ set @S3Update,$S3-$S3B;
+ set @S4Update,$S4-$S4B;
+ set @S5Update,$S5-$S5B;
+ set @S6Update,$S6-$S6B;
+ set @S7Update,$S7-$S7B;
+ set @S8Update,$S8-$S8B;
+ set @S9Update,$S9-$S9B;
+ set @S10Update,$S10-$S10B;
+
+ // Makes Loss/Gain Red/Green //
+ if (@S1Update < 0) set @S1Update$,"^FF0000"+@S1Update+"^000000";
+ if (@S1Update > 0) set @S1Update$,"^00FF00+"+@S1Update+"^000000";
+ if (@S1Update == 0) set @S1Update$,@S1Update;
+
+ if (@S2Update < 0) set @S2Update$,"^FF0000"+@S2Update+"^000000";
+ if (@S2Update > 0) set @S2Update$,"^00FF00+"+@S2Update+"^000000";
+ if (@S2Update == 0) set @S2Update$,@S2Update;
+
+ if (@S3Update < 0) set @S3Update$,"^FF0000"+@S3Update+"^000000";
+ if (@S3Update > 0) set @S3Update$,"^00FF00+"+@S3Update+"^000000";
+ if (@S3Update == 0) set @S3Update$,@S3Update;
+
+ if (@S4Update < 0) set @S4Update$,"^FF0000"+@S4Update+"^000000";
+ if (@S4Update > 0) set @S4Update$,"^00FF00+"+@S4Update+"^000000";
+ if (@S4Update == 0) set @S4Update$,@S4Update;
+
+ if (@S5Update < 0) set @S5Update$,"^FF0000"+@S5Update+"^000000";
+ if (@S5Update > 0) set @S5Update$,"^00FF00+"+@S5Update+"^000000";
+ if (@S5Update == 0) set @S5Update$,@S5Update;
+
+ if (@S6Update < 0) set @S6Update$,"^FF0000"+@S6Update+"^000000";
+ if (@S6Update > 0) set @S6Update$,"^00FF00+"+@S6Update+"^000000";
+ if (@S6Update == 0) set @S6Update$,@S6Update;
+
+ if (@S7Update < 0) set @S7Update$,"^FF0000"+@S7Update+"^000000";
+ if (@S7Update > 0) set @S7Update$,"^00FF00+"+@S7Update+"^000000";
+ if (@S7Update == 0) set @S7Update$,@S7Update;
+
+ if (@S8Update < 0) set @S8Update$,"^FF0000"+@S8Update+"^000000";
+ if (@S8Update > 0) set @S8Update$,"^00FF00+"+@S8Update+"^000000";
+ if (@S8Update == 0) set @S8Update$,@S8Update;
+
+ if (@S9Update < 0) set @S9Update$,"^FF0000"+@S9Update+"^000000";
+ if (@S9Update > 0) set @S9Update$,"^00FF00+"+@S9Update+"^000000";
+ if (@S9Update == 0) set @S9Update$,@S9Update;
+
+ if (@S10Update < 0) set @S10Update$,"^FF0000"+@S10Update+"^000000";
+ if (@S10Update > 0) set @S10Update$,"^00FF00+"+@S10Update+"^000000";
+ if (@S10Update == 0) set @S10Update$,@S10Update;
+
+ // Displays shares & prices //
+ mes "^21698F"+$S1N$+"^000000" + " " + $S1 + "z (" + @S1Update$ + ")";
+ mes "^21698F"+$S2N$+"^000000" + " " + $S2 + "z (" + @S2Update$ + ")";
+ mes "^21698F"+$S3N$+"^000000" + " " + $S3 + "z (" + @S3Update$ + ")";
+ mes "^21698F"+$S4N$+"^000000" + " " + $S4 + "z (" + @S4Update$ + ")";
+ mes "^21698F"+$S5N$+"^000000" + " " + $S5 + "z (" + @S5Update$ + ")";
+ mes "^21698F"+$S6N$+"^000000" + " " + $S6 + "z (" + @S6Update$ + ")";
+ mes "^21698F"+$S7N$+"^000000" + " " + $S7 + "z (" + @S7Update$ + ")";
+ mes "^21698F"+$S8N$+"^000000" + " " + $S8 + "z (" + @S8Update$ + ")";
+ mes "^21698F"+$S9N$+"^000000" + " " + $S9 + "z (" + @S9Update$ + ")";
+ mes "^21698F"+$S10N$+"^000000" + " " + $S10 + "z (" + @S10Update$ + ")";
+ next;
+
+ // GM Menu link //
+ if (getgmlevel() > 90) goto GM_subMenu;
+ menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"Cancel",S_Quit;
GM_subMenu:
-menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"GM Menu",GM_Menu,"Cancel",S_Quit;
+ menu "Portfolio",S_Port,"Buy Shares",S_Buy,"Sell Shares",S_Sell,"GM Menu",GM_Menu,"Cancel",S_Quit;
-// Selling Shares //
+ // Selling Shares //
S_Sell:
mes "[Stock Market]";
mes "Enter the name of the share you wish to sell.";
@@ -282,7 +282,7 @@ S_Sell:
if (zeny < $S_Trans) goto S_NoZeny;
set zeny,zeny-$S_Trans;
- SELLS1:
+SELLS1:
if (@sellname$ != $S1N$) goto SELLS2;
if (@sellamount > #S1) goto S_SellTooHigh;
set @price,@sellamount*$S1;
@@ -294,7 +294,7 @@ S_Sell:
next;
goto S_Start;
- SELLS2:
+SELLS2:
if (@sellname$ != $S2N$) goto SELLS3;
if (@sellamount > #S2) goto S_SellTooHigh;
set @price,@sellamount*$S2;
@@ -306,7 +306,7 @@ S_Sell:
next;
goto S_Start;
- SELLS3:
+SELLS3:
if (@sellname$ != $S3N$) goto SELLS4;
if (@sellamount > #S3) goto S_SellTooHigh;
set @price,@sellamount*$S3;
@@ -318,7 +318,7 @@ S_Sell:
next;
goto S_Start;
- SELLS4:
+SELLS4:
if (@sellname$ != $S4N$) goto SELLS5;
if (@sellamount > #S4) goto S_SellTooHigh;
set @price,@sellamount*$S4;
@@ -330,7 +330,7 @@ S_Sell:
next;
goto S_Start;
- SELLS5:
+SELLS5:
if (@sellname$ != $S5N$) goto SELLS6;
if (@sellamount > #S5) goto S_SellTooHigh;
set @price,@sellamount*$S5;
@@ -342,7 +342,7 @@ S_Sell:
next;
goto S_Start;
- SELLS6:
+SELLS6:
if (@sellname$ != $S6N$) goto SELLS7;
if (@sellamount > #S6) goto S_SellTooHigh;
set @price,@sellamount*$S6;
@@ -354,7 +354,7 @@ S_Sell:
next;
goto S_Start;
- SELLS7:
+SELLS7:
if (@sellname$ != $S7N$) goto SELLS8;
if (@sellamount > #S7) goto S_SellTooHigh;
set @price,@sellamount*$S7;
@@ -366,7 +366,7 @@ S_Sell:
next;
goto S_Start;
- SELLS8:
+SELLS8:
if (@sellname$ != $S8N$) goto SELLS9;
if (@sellamount > #S8) goto S_SellTooHigh;
set @price,@sellamount*$S8;
@@ -378,7 +378,7 @@ S_Sell:
next;
goto S_Start;
- SELLS9:
+SELLS9:
if (@sellname$ != $S9N$) goto SELLS10;
if (@sellamount > #S9) goto S_SellTooHigh;
set @price,@sellamount*$S9;
@@ -390,7 +390,7 @@ S_Sell:
next;
goto S_Start;
- SELLS10:
+SELLS10:
if (@sellname$ != $S10N$) goto SELLS11;
if (@sellamount > #S10) goto S_SellTooHigh;
set @price,@sellamount*$S10;
@@ -402,22 +402,22 @@ S_Sell:
next;
goto S_Start;
- SELLS11:
+SELLS11:
mes "^FF0000Invalid Share Name.^000000";
next;
goto S_Start;
- S_SellTooHigh:
+S_SellTooHigh:
mes "^FF0000You don't have that many shares.^000000";
next;
goto S_Start;
- S_SellInv:
+S_SellInv:
mes "^FF0000Invalid integer.^000000";
next;
goto S_Start;
-// Buying Shares //
+ // Buying Shares //
S_Buy:
mes "[Stock Market]";
mes "Available shares:";
@@ -449,7 +449,7 @@ S_Buy:
// Purchases the shares //
- PURS1:
+PURS1:
if (@buyname$ != $S1N$) goto PURS2;
set @price,@buyamount*$S1;
if (zeny < @price) goto S_NoZeny;
@@ -461,7 +461,7 @@ S_Buy:
next;
goto S_Start;
- PURS2:
+PURS2:
if (@buyname$ != $S2N$) goto PURS3;
set @price,@buyamount*$S2;
if (zeny < @price) goto S_NoZeny;
@@ -472,7 +472,7 @@ S_Buy:
next;
goto S_Start;
- PURS3:
+PURS3:
if (@buyname$ != $S3N$) goto PURS4;
set @price,@buyamount*$S3;
if (zeny < @price) goto S_NoZeny;
@@ -483,7 +483,7 @@ S_Buy:
next;
goto S_Start;
- PURS4:
+PURS4:
if (@buyname$ != $S4N$) goto PURS5;
set @price,@buyamount*$S4;
if (zeny < @price) goto S_NoZeny;
@@ -494,7 +494,7 @@ S_Buy:
next;
goto S_Start;
- PURS5:
+PURS5:
if (@buyname$ != $S5N$) goto PURS6;
set @price,@buyamount*$S5;
if (zeny < @price) goto S_NoZeny;
@@ -505,7 +505,7 @@ S_Buy:
next;
goto S_Start;
- PURS6:
+PURS6:
if (@buyname$ != $S6N$) goto PURS7;
set @price,@buyamount*$S6;
if (zeny < @price) goto S_NoZeny;
@@ -516,7 +516,7 @@ S_Buy:
next;
goto S_Start;
- PURS7:
+PURS7:
if (@buyname$ != $S7N$) goto PURS8;
set @price,@buyamount*$S7;
if (zeny < @price) goto S_NoZeny;
@@ -527,7 +527,7 @@ S_Buy:
next;
goto S_Start;
- PURS8:
+PURS8:
if (@buyname$ != $S8N$) goto PURS9;
set @price,@buyamount*$S8;
if (zeny < @price) goto S_NoZeny;
@@ -538,7 +538,7 @@ S_Buy:
next;
goto S_Start;
- PURS9:
+PURS9:
if (@buyname$ != $S9N$) goto PURS10;
set @price,@buyamount*$S9;
if (zeny < @price) goto S_NoZeny;
@@ -549,7 +549,7 @@ S_Buy:
next;
goto S_Start;
- PURS10:
+PURS10:
if (@buyname$ != $S10N$) goto PURS11;
set @price,@buyamount*$S10;
if (zeny < @price) goto S_NoZeny;
@@ -560,234 +560,232 @@ S_Buy:
next;
goto S_Start;
- PURS11:
+PURS11:
goto S_InvName;
// Number too low //
- S_TooLow:
+S_TooLow:
mes "^FF0000Minimum of " + $S_BuyMin + " shares can be bought at a time.^000000";
next;
goto S_Start;
// Number too high //
- S_TooHigh:
+S_TooHigh:
mes "^FF0000Maximum number of " + $S_BuyMax + " shares can be bought at a time.^000000";
next;
goto S_Start;
- S_NoZeny:
+S_NoZeny:
mes "^FF0000You do not have enough zeny.^000000";
next;
goto S_Start;
// Sends user to start if name invalid //
- S_InvName:
+S_InvName:
mes "^FF0000Invalid share name.^000000";
next;
goto S_Start;
-// Displays your total amount //
+ // Displays your total amount //
S_Port:
-mes "[Stock Market]";
+ mes "[Stock Market]";
- ACCS1:
+ACCS1:
if (#S1 < 1) goto ACCS2;
set @S1,#S1*$S1;
mes $S1N$ + ": " + #S1 + " x " + $S1 + "z = " + @S1 + "z";
- ACCS2:
+ACCS2:
if (#S2 < 1) goto ACCS3;
set @S2,#S2*$S2;
mes $S2N$ + ": " + #S2 + " x " + $S2 + "z = " + @S2 + "z";
- ACCS3:
+ACCS3:
if (#S3 < 1) goto ACCS4;
set @S3,#S3*$S3;
mes $S3N$ + ": " + #S3 + " x " + $S3 + "z = " + @S3 + "z";
- ACCS4:
+ACCS4:
if (#S4 < 1) goto ACCS5;
set @S4,#S4*$S4;
mes $S4N$ + ": " + #S4 + " x " + $S4 + "z = " + @S4 + "z";
- ACCS5:
+ACCS5:
if (#S5 < 1) goto ACCS6;
set @S5,#S5*$S5;
mes $S5N$ + ": " + #S5 + " x " + $S5 + "z = " + @S5 + "z";
- ACCS6:
+ACCS6:
if (#S6 < 1) goto ACCS7;
set @S6,#S6*$S6;
mes $S6N$ + ": " + #S6 + " x " + $S6 + "z = " + @S6 + "z";
- ACCS7:
+ACCS7:
if (#S7 < 1) goto ACCS8;
set @S7,#S7*$S7;
mes $S7N$ + ": " + #S7 + " x " + $S7 + "z = " + @S7 + "z";
- ACCS8:
+ACCS8:
if (#S8 < 1) goto ACCS9;
set @S8,#S8*$S8;
mes $S8N$ + ": " + #S8 + " x " + $S8 + "z = " + @S8 + "z";
- ACCS9:
+ACCS9:
if (#S9 < 1) goto ACCS10;
set @S9,#S9*$S9;
mes $S9N$ + ": " + #S9 + " x " + $S9 + "z = " + @S9 + "z";
- ACCS10:
+ACCS10:
if (#S10 < 1) goto ACCS11;
set @S10,#S10*$S10;
mes $S10N$ + ": " + #S10 + " x " + $S10 + "z = " + @S10 + "z";
// Total //
- ACCS11:
+ACCS11:
set @total,@S1 + @S2 + @S3 + @S4 + @S5 + @S6 + @S7 + @S8 + @S9 + @S10;
mes "Total value: "+@total+"z";
next;
goto S_Start;
-// GM MENU //
+ // GM MENU //
GM_Menu:
-mes "[Stock Market]";
-mes "Master, do you require anything?";
-menu "Fluctuate Market",S_Fluc,"Reset Prices",GM_Open,"Nothing",S_Start;
+ mes "[Stock Market]";
+ mes "Master, do you require anything?";
+ menu "Fluctuate Market",S_Fluc,"Reset Prices",GM_Open,"Nothing",S_Start;
S_Fluc:
-set $fluc,rand (-6,6);
-set $S1B,$S1;
-set $S1,$S1+$fluc;
-if ($S1 < 25) set $S1,$S1+3;
-if ($S1 < 50) set $S1,$S1+2;
-if ($S1 > 150) set $S1,$S1-2;
-if ($S1 > 175) set $S1,$S1-3;
-if ($S1 < 1) set $S1,1;
-
-set $fluc,rand (-6,6);
-set $S2B,$S2;
-set $S2,$S2+$fluc;
-if ($S2 < 25) set $S2,$S2+3;
-if ($S2 < 50) set $S2,$S2+2;
-if ($S2 > 150) set $S2,$S2-2;
-if ($S2 > 175) set $S2,$S2-3;
-if ($S2 < 2) set $S2,1;
-
-set $fluc,rand (-6,6);
-set $S3B,$S3;
-set $S3,$S3+$fluc;
-if ($S3 < 25) set $S3,$S3+3;
-if ($S3 < 50) set $S3,$S3+2;
-if ($S3 > 150) set $S3,$S3-2;
-if ($S3 > 175) set $S3,$S3-3;
-if ($S3 < 1) set $S3,1;
-
-set $fluc,rand (-6,6);
-set $S4B,$S4;
-set $S4,$S4+$fluc;
-if ($S4 < 25) set $S4,$S4+3;
-if ($S4 < 50) set $S4,$S4+2;
-if ($S4 > 150) set $S4,$S4-2;
-if ($S4 > 175) set $S4,$S4-3;
-if ($S4 < 1) set $S4,1;
-
-set $fluc,rand (-6,6);
-set $S5B,$S5;
-set $S5,$S5+$fluc;
-if ($S5 < 25) set $S5,$S5+3;
-if ($S5 < 50) set $S5,$S5+2;
-if ($S5 > 150) set $S5,$S5-2;
-if ($S5 > 175) set $S5,$S5-3;
-if ($S5 < 1) set $S5,1;
-
-set $fluc,rand (-6,6);
-set $S6B,$S6;
-set $S6,$S6+$fluc;
-if ($S6 < 25) set $S6,$S6+3;
-if ($S6 < 50) set $S6,$S6+2;
-if ($S6 > 150) set $S6,$S6-2;
-if ($S6 > 175) set $S6,$S6-3;
-if ($S6 < 1) set $S6,1;
-
-set $fluc,rand (-6,6);
-set $S7B,$S7;
-set $S7,$S7+$fluc;
-if ($S7 < 25) set $S7,$S7+3;
-if ($S7 < 50) set $S7,$S7+2;
-if ($S7 > 150) set $S7,$S7-2;
-if ($S7 > 175) set $S7,$S7-3;
-if ($S7 < 1) set $S7,1;
-
-set $fluc,rand (-6,6);
-set $S8B,$S8;
-set $S8,$S8+$fluc;
-if ($S8 < 25) set $S8,$S8+3;
-if ($S8 < 50) set $S8,$S8+2;
-if ($S8 > 150) set $S8,$S8-2;
-if ($S8 > 175) set $S8,$S8-3;
-if ($S8 < 1) set $S8,1;
-
-set $fluc,rand (-6,6);
-set $S9B,$S9;
-set $S9,$S9+$fluc;
-if ($S9 < 25) set $S9,$S9+3;
-if ($S9 < 50) set $S9,$S9+2;
-if ($S9 > 150) set $S9,$S9-2;
-if ($S9 > 175) set $S9,$S9-3;
-if ($S9 < 1) set $S9,1;
-
-set $fluc,rand (-6,6);
-set $S10B,$S10;
-set $S10,$S10+$fluc;
-if ($S10 < 25) set $S10,$S10+3;
-if ($S10 < 50) set $S10,$S10+2;
-if ($S10 > 150) set $S10,$S10-2;
-if ($S10 > 175) set $S10,$S10-3;
-if ($S10 < 1) set $S10,1;
-
-set $S_LastUpd$,"GM Fluctuation";
-mes "Market fluctuated.";
-close;
+ set $fluc,rand (-6,6);
+ set $S1B,$S1;
+ set $S1,$S1+$fluc;
+ if ($S1 < 25) set $S1,$S1+3;
+ if ($S1 < 50) set $S1,$S1+2;
+ if ($S1 > 150) set $S1,$S1-2;
+ if ($S1 > 175) set $S1,$S1-3;
+ if ($S1 < 1) set $S1,1;
+
+ set $fluc,rand (-6,6);
+ set $S2B,$S2;
+ set $S2,$S2+$fluc;
+ if ($S2 < 25) set $S2,$S2+3;
+ if ($S2 < 50) set $S2,$S2+2;
+ if ($S2 > 150) set $S2,$S2-2;
+ if ($S2 > 175) set $S2,$S2-3;
+ if ($S2 < 2) set $S2,1;
+
+ set $fluc,rand (-6,6);
+ set $S3B,$S3;
+ set $S3,$S3+$fluc;
+ if ($S3 < 25) set $S3,$S3+3;
+ if ($S3 < 50) set $S3,$S3+2;
+ if ($S3 > 150) set $S3,$S3-2;
+ if ($S3 > 175) set $S3,$S3-3;
+ if ($S3 < 1) set $S3,1;
+
+ set $fluc,rand (-6,6);
+ set $S4B,$S4;
+ set $S4,$S4+$fluc;
+ if ($S4 < 25) set $S4,$S4+3;
+ if ($S4 < 50) set $S4,$S4+2;
+ if ($S4 > 150) set $S4,$S4-2;
+ if ($S4 > 175) set $S4,$S4-3;
+ if ($S4 < 1) set $S4,1;
+
+ set $fluc,rand (-6,6);
+ set $S5B,$S5;
+ set $S5,$S5+$fluc;
+ if ($S5 < 25) set $S5,$S5+3;
+ if ($S5 < 50) set $S5,$S5+2;
+ if ($S5 > 150) set $S5,$S5-2;
+ if ($S5 > 175) set $S5,$S5-3;
+ if ($S5 < 1) set $S5,1;
+
+ set $fluc,rand (-6,6);
+ set $S6B,$S6;
+ set $S6,$S6+$fluc;
+ if ($S6 < 25) set $S6,$S6+3;
+ if ($S6 < 50) set $S6,$S6+2;
+ if ($S6 > 150) set $S6,$S6-2;
+ if ($S6 > 175) set $S6,$S6-3;
+ if ($S6 < 1) set $S6,1;
+
+ set $fluc,rand (-6,6);
+ set $S7B,$S7;
+ set $S7,$S7+$fluc;
+ if ($S7 < 25) set $S7,$S7+3;
+ if ($S7 < 50) set $S7,$S7+2;
+ if ($S7 > 150) set $S7,$S7-2;
+ if ($S7 > 175) set $S7,$S7-3;
+ if ($S7 < 1) set $S7,1;
+
+ set $fluc,rand (-6,6);
+ set $S8B,$S8;
+ set $S8,$S8+$fluc;
+ if ($S8 < 25) set $S8,$S8+3;
+ if ($S8 < 50) set $S8,$S8+2;
+ if ($S8 > 150) set $S8,$S8-2;
+ if ($S8 > 175) set $S8,$S8-3;
+ if ($S8 < 1) set $S8,1;
+
+ set $fluc,rand (-6,6);
+ set $S9B,$S9;
+ set $S9,$S9+$fluc;
+ if ($S9 < 25) set $S9,$S9+3;
+ if ($S9 < 50) set $S9,$S9+2;
+ if ($S9 > 150) set $S9,$S9-2;
+ if ($S9 > 175) set $S9,$S9-3;
+ if ($S9 < 1) set $S9,1;
+
+ set $fluc,rand (-6,6);
+ set $S10B,$S10;
+ set $S10,$S10+$fluc;
+ if ($S10 < 25) set $S10,$S10+3;
+ if ($S10 < 50) set $S10,$S10+2;
+ if ($S10 > 150) set $S10,$S10-2;
+ if ($S10 > 175) set $S10,$S10-3;
+ if ($S10 < 1) set $S10,1;
+
+ set $S_LastUpd$,"GM Fluctuation";
+ mes "Market fluctuated.";
+ close;
GM_Open:
-menu "Set prices to...",GM_Set,"Cancel",-;
-mes "Farewell.";
-close;
+ menu "Set prices to...",GM_Set,"Cancel",-;
+ mes "Farewell.";
+ close;
GM_Set:
-mes "Are you sure you want to reset?";
-mes "^FF0000All share values will become the same.^000000";
-next;
-menu "Yes",-,"No",GM_Menu;
-set @gmset,0;
-input @gmset;
-set $S1,@gmset;
-set $S2,@gmset;
-set $S3,@gmset;
-set $S4,@gmset;
-set $S5,@gmset;
-set $S6,@gmset;
-set $S7,@gmset;
-set $S8,@gmset;
-set $S9,@gmset;
-set $S10,@gmset;
-set $S1B,@gmset;
-set $S2B,@gmset;
-set $S3B,@gmset;
-set $S4B,@gmset;
-set $S5B,@gmset;
-set $S6B,@gmset;
-set $S7B,@gmset;
-set $S8B,@gmset;
-set $S9B,@gmset;
-set $S10B,@gmset;
-mes "All prices changed to " + @gmset + "z.";
-close;
+ mes "Are you sure you want to reset?";
+ mes "^FF0000All share values will become the same.^000000";
+ next;
+ menu "Yes",-,"No",GM_Menu;
+ set @gmset,0;
+ input @gmset;
+ set $S1,@gmset;
+ set $S2,@gmset;
+ set $S3,@gmset;
+ set $S4,@gmset;
+ set $S5,@gmset;
+ set $S6,@gmset;
+ set $S7,@gmset;
+ set $S8,@gmset;
+ set $S9,@gmset;
+ set $S10,@gmset;
+ set $S1B,@gmset;
+ set $S2B,@gmset;
+ set $S3B,@gmset;
+ set $S4B,@gmset;
+ set $S5B,@gmset;
+ set $S6B,@gmset;
+ set $S7B,@gmset;
+ set $S8B,@gmset;
+ set $S9B,@gmset;
+ set $S10B,@gmset;
+ mes "All prices changed to " + @gmset + "z.";
+ close;
S_Quit:
-mes "[Stock Market]";
-mes "Goodbye.";
-close;
+ mes "[Stock Market]";
+ mes "Goodbye.";
+ close;
}
-
-prontera,140,181,5 duplicate(stockmarket) Stock Market 109
diff --git a/npc/custom/wandering_poets.txt b/npc/custom/wandering_poets.txt
new file mode 100644
index 000000000..2451c5e8b
--- /dev/null
+++ b/npc/custom/wandering_poets.txt
@@ -0,0 +1,712 @@
+//===== rAthena Script =======================================
+//= Wandering Poets
+//===== By: ==================================================
+//= MouseJstr
+//===== Current Version: =====================================
+//= 0.2a
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//=
+//============================================================
+
+ayothaya,58,134,5 script Louise Gluck 763,{
+ mes "[Louise Gluck]";
+ mes "What is the next line? ";
+ close;
+OnTimer5000:
+ npcwalkto 65,129;
+ npctalk "Twas brillig, and the slithy toves Did gyre and gimble in the wabe:";
+ end;
+OnTimer10000:
+ npcwalkto 71,131;
+ npctalk "All mimsy were the bogoroves, And the mome raths outgrabe.";
+ end;
+OnTimer15000:
+ npcwalkto 75,127;
+ npctalk "Beware the Jabberwock, my son! The jaws that bite, theh claws that catch!";
+ end;
+OnTimer20000:
+ npcwalkto 80,122;
+ npctalk "Beware the Jubjub bird and shun The frumious Bandersnatch!";
+ end;
+OnTimer25000:
+ npcwalkto 82,118;
+ npctalk "He took his vorpal sword in hand: Long time the manxome foe he sought-";
+ end;
+OnTimer30000:
+ npcwalkto 93,115;
+ npctalk "So rested he by the Tumtum tree, And stood a while in thought.";
+ end;
+OnTimer35000:
+ npcwalkto 94,112;
+ npctalk "And, as in uffish thought he stood, The Jabberwock, with eyes of flame,";
+ end;
+OnTimer40000:
+ npcwalkto 88,124;
+ npctalk "Came whiffling through the tulgey wood, And burbled as it came!";
+ end;
+OnTimer45000:
+ npcwalkto 81,129;
+ npctalk "One, two! One, two! And through and through The vorpal blade went snicker-snack!";
+ end;
+OnTimer50000:
+ npcwalkto 76,139;
+ npctalk "He left it dead, and with its head He went galumphing back.";
+ end;
+OnTimer55000:
+ npcwalkto 67,138;
+ npctalk "And hast though slain the Jabberwock? Come to my arms beamish boy!";
+ end;
+OnTimer60000:
+ npcwalkto 59,144;
+ npctalk "O frabjous day! Callooh! Callay! He chortled in his joy.";
+ end;
+OnTimer65000:
+ npcwalkto 55,124;
+ npctalk "Twas brillig, and the slithy toves Did gyre and gimble in the wabe:";
+ end;
+OnTimer70000:
+ npcwalkto 58,134;
+ npctalk "All mimsy were the bogoroves, And the mome raths outgrabe.";
+ setnpctimer 0;
+ end;
+OnInit:
+ npcspeed 150;
+ initnpctimer;
+ end;
+}
+
+ayothaya,212,276,0 script Romeo 50,{
+ mes "[Romeo]";
+ mes "What is the next line?";
+ close;
+OnTimer0:
+ npctalk "He jests at scars that never felt a wound.";
+ end;
+OnTimer6000:
+ npctalk "But, soft! what light through yonder window breaks?";
+ end;
+OnTimer8000:
+ npctalk "It is the east, and Juliet is the sun.";
+ end;
+OnTimer10000:
+ npctalk "Arise, fair sun, and kill the envious moon,";
+ end;
+OnTimer12000:
+ npctalk "Who is already sick and pale with grief,";
+ end;
+OnTimer14000:
+ npctalk "That thou her maid art far more fair than she:";
+ end;
+OnTimer16000:
+ npctalk "Be not her maid, since she is envious;";
+ end;
+OnTimer18000:
+ npctalk "Her vestal livery is but sick and green";
+ end;
+OnTimer20000:
+ npctalk "And none but fools do wear it; cast it off.";
+ end;
+OnTimer22000:
+ npctalk "It is my lady, O, it is my love!";
+ end;
+OnTimer24000:
+ npctalk "O, that she knew she were!";
+ end;
+OnTimer26000:
+ npctalk "She speaks yet she says nothing: what of that?";
+ end;
+OnTimer28000:
+ npctalk "Her eye discourses; I will answer it.";
+ end;
+OnTimer30000:
+ npctalk "I am too bold, tis not to me she speaks:";
+ end;
+OnTimer32000:
+ npctalk "Two of the fairest stars in all the heaven,";
+ end;
+OnTimer34000:
+ npctalk "Having some business, do entreat her eyes";
+ end;
+OnTimer36000:
+ npctalk "To twinkle in their spheres till they return.";
+ end;
+OnTimer38000:
+ npctalk "What if her eyes were there, they in her head?";
+ end;
+OnTimer40000:
+ npctalk "The brightness of her cheek would shame those stars,";
+ end;
+OnTimer42000:
+ npctalk "As daylight doth a lamp; her eyes in heaven";
+ end;
+OnTimer44000:
+ npctalk "Would through the airy region stream so bright";
+ end;
+OnTimer46000:
+ npctalk "That birds would sing and think it were not night.";
+ end;
+OnTimer48000:
+ npctalk "See, how she leans her cheek upon her hand!";
+ end;
+OnTimer50000:
+ npctalk "O, that I were a glove upon that hand,";
+ end;
+OnTimer52000:
+ npctalk "That I might touch that cheek!";
+ end;
+OnTimer56000:
+ npctalk "She speaks:";
+ end;
+OnTimer58000:
+ npctalk "O, speak again, bright angel! for thou art";
+ end;
+OnTimer60000:
+ npctalk "As glorious to this night, being oer my head";
+ end;
+OnTimer62000:
+ npctalk "As is a winged messenger of heaven";
+ end;
+OnTimer64000:
+ npctalk "Unto the white-upturned wondering eyes";
+ end;
+OnTimer66000:
+ npctalk "Of mortals that fall back to gaze on him";
+ end;
+OnTimer68000:
+ npctalk "When he bestrides the lazy-pacing clouds";
+ end;
+OnTimer70000:
+ npctalk "And sails upon the bosom of the air.";
+ end;
+OnTimer80000:
+ npctalk "Shall I hear more, or shall I speak at this?";
+ end;
+OnTimer106000:
+ npctalk "I take thee at thy word:";
+ end;
+OnTimer108000:
+ npctalk "Call me but love, and Ill be new baptized;";
+ end;
+OnTimer110000:
+ npctalk "Henceforth I never will be Romeo.";
+ end;
+OnTimer116000:
+ npctalk "By a name";
+ end;
+OnTimer118000:
+ npctalk "I know not how to tell thee who I am:";
+ end;
+OnTimer120000:
+ npctalk "My name, dear saint, is hateful to myself,";
+ end;
+OnTimer122000:
+ npctalk "Because it is an enemy to thee;";
+ end;
+OnTimer124000:
+ npctalk "Had I it written, I would tear the word.";
+ end;
+OnTimer132000:
+ npctalk "Neither, fair saint, if either thee dislike.";
+ end;
+OnTimer142000:
+ npctalk "With loves light wings did I oer-perch these walls;";
+ end;
+OnTimer144000:
+ npctalk "For stony limits cannot hold love out,";
+ end;
+OnTimer146000:
+ npctalk "And what love can do that dares love attempt;";
+ end;
+OnTimer148000:
+ npctalk "Therefore thy kinsmen are no let to me.";
+ end;
+OnTimer152000:
+ npctalk "Alack, there lies more peril in thine eye";
+ end;
+OnTimer154000:
+ npctalk "Than twenty of their swords: look thou but sweet,";
+ end;
+OnTimer156000:
+ npctalk "And I am proof against their enmity.";
+ end;
+OnTimer160000:
+ npctalk "I have nights cloak to hide me from their sight;";
+ end;
+OnTimer162000:
+ npctalk "And but thou love me, let them find me here:";
+ end;
+OnTimer164000:
+ npctalk "My life were better ended by their hate,";
+ end;
+OnTimer166000:
+ npctalk "Than death prorogued, wanting of thy love.";
+ end;
+OnTimer170000:
+ npctalk "By love, who first did prompt me to inquire;";
+ end;
+OnTimer172000:
+ npctalk "He lent me counsel and I lent him eyes.";
+ end;
+OnTimer174000:
+ npctalk "I am no pilot; yet, wert thou as far";
+ end;
+OnTimer176000:
+ npctalk "As that vast shore washd with the farthest sea,";
+ end;
+OnTimer178000:
+ npctalk "I would adventure for such merchandise.";
+ end;
+OnTimer224000:
+ npctalk "Lady, by yonder blessed moon I swear";
+ end;
+OnTimer226000:
+ npctalk "That tips with silver all these fruit-tree tops--";
+ end;
+OnTimer234000:
+ npctalk "What shall I swear by?";
+ end;
+OnTimer244000:
+ npctalk "If my hearts dear love--";
+ end;
+OnTimer264000:
+ npctalk "O, wilt thou leave me so unsatisfied?";
+ end;
+OnTimer268000:
+ npctalk "The exchange of thy loves faithful vow for mine.";
+ end;
+OnTimer274000:
+ npctalk "Wouldst thou withdraw it? for what purpose, love?";
+ end;
+OnTimer294000:
+ npctalk "O blessed, blessed night! I am afeard.";
+ end;
+OnTimer296000:
+ npctalk "Being in night, all this is but a dream,";
+ end;
+OnTimer298000:
+ npctalk "Too flattering-sweet to be substantial.";
+ end;
+OnTimer330000:
+ npctalk "So thrive my soul--";
+ end;
+OnTimer334000:
+ npctalk "A thousand times the worse, to want thy light.";
+ end;
+OnTimer336000:
+ npctalk "Love goes toward love, as schoolboys from";
+ end;
+OnTimer338000:
+ npctalk "their books,";
+ end;
+OnTimer340000:
+ npctalk "But love from love, toward school with heavy looks.";
+ end;
+OnTimer356000:
+ npctalk "It is my soul that calls upon my name:";
+ end;
+OnTimer358000:
+ npctalk "How silver-sweet sound lovers tongues by night,";
+ end;
+OnTimer360000:
+ npctalk "Like softest music to attending ears!";
+ end;
+OnTimer364000:
+ npctalk "My dear?";
+ end;
+OnTimer370000:
+ npctalk "At the hour of nine.";
+ end;
+OnTimer376000:
+ npctalk "Let me stand here till thou remember it.";
+ end;
+OnTimer382000:
+ npctalk "And Ill still stay, to have thee still forget,";
+ end;
+OnTimer384000:
+ npctalk "Forgetting any other home but this.";
+ end;
+OnTimer398000:
+ npctalk "I would I were thy bird.";
+ end;
+OnTimer410000:
+ npctalk "Sleep dwell upon thine eyes, peace in thy breast!";
+ end;
+OnTimer412000:
+ npctalk "Would I were sleep and peace, so sweet to rest!";
+ end;
+OnTimer414000:
+ npctalk "Hence will I to my ghostly fathers cell,";
+ end;
+OnTimer416000:
+ npctalk "His help to crave, and my dear hap to tell.";
+ end;
+OnTimer538000:
+ setnpctimer 0;
+ end;
+OnInit:
+ npcspeed 150;
+ initnpctimer;
+ end;
+}
+
+ayothaya,214,279,3 script Juliet 53,{
+ mes "[Juliet]";
+ mes "What is the next line? ";
+ close;
+OnTimer54000:
+ npctalk "Ay me!";
+ end;
+OnTimer72000:
+ npctalk "O Romeo, Romeo! wherefore art thou Romeo?";
+ end;
+OnTimer74000:
+ npctalk "Deny thy father and refuse thy name;";
+ end;
+OnTimer76000:
+ npctalk "Or, if thou wilt not, be but sworn my love,";
+ end;
+OnTimer78000:
+ npctalk "And Ill no longer be a Capulet.";
+ end;
+OnTimer82000:
+ npctalk "Tis but thy name that is my enemy;";
+ end;
+OnTimer84000:
+ npctalk "Thou art thyself, though not a Montague.";
+ end;
+OnTimer86000:
+ npctalk "Whats Montague? it is nor hand, nor foot,";
+ end;
+OnTimer88000:
+ npctalk "Nor arm, nor face, nor any other part";
+ end;
+OnTimer90000:
+ npctalk "Belonging to a man. O, be some other name!";
+ end;
+OnTimer92000:
+ npctalk "Whats in a name? that which we call a rose";
+ end;
+OnTimer94000:
+ npctalk "By any other name would smell as sweet;";
+ end;
+OnTimer96000:
+ npctalk "So Romeo would, were he not Romeo calld,";
+ end;
+OnTimer98000:
+ npctalk "Retain that dear perfection which he owes";
+ end;
+OnTimer100000:
+ npctalk "Without that title. Romeo, doff thy name,";
+ end;
+OnTimer102000:
+ npctalk "And for that name which is no part of thee";
+ end;
+OnTimer104000:
+ npctalk "Take all myself.";
+ end;
+OnTimer112000:
+ npctalk "What man art thou that thus bescreend in night";
+ end;
+OnTimer114000:
+ npctalk "So stumblest on my counsel?";
+ end;
+OnTimer126000:
+ npctalk "My ears have not yet drunk a hundred words";
+ end;
+OnTimer128000:
+ npctalk "Of that tongues utterance, yet I know the sound:";
+ end;
+OnTimer130000:
+ npctalk "Art thou not Romeo and a Montague?";
+ end;
+OnTimer134000:
+ npctalk "How camest thou hither, tell me, and wherefore?";
+ end;
+OnTimer136000:
+ npctalk "The orchard walls are high and hard to climb,";
+ end;
+OnTimer138000:
+ npctalk "And the place death, considering who thou art,";
+ end;
+OnTimer140000:
+ npctalk "If any of my kinsmen find thee here.";
+ end;
+OnTimer150000:
+ npctalk "If they do see thee, they will murder thee.";
+ end;
+OnTimer158000:
+ npctalk "I would not for the world they saw thee here.";
+ end;
+OnTimer168000:
+ npctalk "By whose direction foundst thou out this place?";
+ end;
+OnTimer180000:
+ npctalk "Thou knowst the mask of night is on my face,";
+ end;
+OnTimer182000:
+ npctalk "Else would a maiden blush bepaint my cheek";
+ end;
+OnTimer184000:
+ npctalk "For that which thou hast heard me speak to-night";
+ end;
+OnTimer186000:
+ npctalk "Fain would I dwell on form, fain, fain deny";
+ end;
+OnTimer188000:
+ npctalk "What I have spoke: but farewell compliment!";
+ end;
+OnTimer190000:
+ npctalk "Dost thou love me? I know thou wilt say Ay,";
+ end;
+OnTimer192000:
+ npctalk "And I will take thy word: yet if thou swearst,";
+ end;
+OnTimer194000:
+ npctalk "Thou mayst prove false; at lovers perjuries";
+ end;
+OnTimer196000:
+ npctalk "Then say, Jove laughs. O gentle Romeo,";
+ end;
+OnTimer198000:
+ npctalk "If thou dost love, pronounce it faithfully:";
+ end;
+OnTimer200000:
+ npctalk "Or if thou thinkst I am too quickly won,";
+ end;
+OnTimer202000:
+ npctalk "Ill frown and be perverse an say thee nay,";
+ end;
+OnTimer204000:
+ npctalk "So thou wilt woo; but else, not for the world.";
+ end;
+OnTimer206000:
+ npctalk "In truth, fair Montague, I am too fond,";
+ end;
+OnTimer208000:
+ npctalk "And therefore thou mayst think my havior light:";
+ end;
+OnTimer210000:
+ npctalk "But trust me, gentleman, Ill prove more true";
+ end;
+OnTimer212000:
+ npctalk "Than those that have more cunning to be strange.";
+ end;
+OnTimer214000:
+ npctalk "I should have been more strange, I must confess,";
+ end;
+OnTimer216000:
+ npctalk "But that thou overheardst, ere I was ware,";
+ end;
+OnTimer218000:
+ npctalk "My true loves passion: therefore pardon me,";
+ end;
+OnTimer220000:
+ npctalk "And not impute this yielding to light love,";
+ end;
+OnTimer222000:
+ npctalk "Which the dark night hath so discovered.";
+ end;
+OnTimer228000:
+ npctalk "O, swear not by the moon, the inconstant moon,";
+ end;
+OnTimer230000:
+ npctalk "That monthly changes in her circled orb,";
+ end;
+OnTimer232000:
+ npctalk "Lest that thy love prove likewise variable.";
+ end;
+OnTimer236000:
+ npctalk "Do not swear at all;";
+ end;
+OnTimer238000:
+ npctalk "Or, if thou wilt, swear by thy gracious self,";
+ end;
+OnTimer240000:
+ npctalk "Which is the god of my idolatry,";
+ end;
+OnTimer242000:
+ npctalk "And Ill believe thee.";
+ end;
+OnTimer246000:
+ npctalk "Well, do not swear: although I joy in thee,";
+ end;
+OnTimer248000:
+ npctalk "I have no joy of this contract to-night:";
+ end;
+OnTimer250000:
+ npctalk "It is too rash, too unadvised, too sudden;";
+ end;
+OnTimer252000:
+ npctalk "Too like the lightning, which doth cease to be";
+ end;
+OnTimer254000:
+ npctalk "Ere one can say It lightens. Sweet, good night!";
+ end;
+OnTimer256000:
+ npctalk "This bud of love, by summers ripening breath,";
+ end;
+OnTimer258000:
+ npctalk "May prove a beauteous flower when next we meet.";
+ end;
+OnTimer260000:
+ npctalk "Good night, good night! as sweet repose and rest";
+ end;
+OnTimer262000:
+ npctalk "Come to thy heart as that within my breast!";
+ end;
+OnTimer266000:
+ npctalk "What satisfaction canst thou have to-night?";
+ end;
+OnTimer270000:
+ npctalk "I gave thee mine before thou didst request it:";
+ end;
+OnTimer272000:
+ npctalk "And yet I would it were to give again.";
+ end;
+OnTimer276000:
+ npctalk "But to be frank, and give it thee again.";
+ end;
+OnTimer278000:
+ npctalk "And yet I wish but for the thing I have:";
+ end;
+OnTimer280000:
+ npctalk "My bounty is as boundless as the sea,";
+ end;
+OnTimer282000:
+ npctalk "My love as deep; the more I give to thee,";
+ end;
+OnTimer284000:
+ npctalk "The more I have, for both are infinite.";
+ end;
+OnTimer288000:
+ npctalk "I hear some noise within; dear love, adieu!";
+ end;
+OnTimer290000:
+ npctalk "Anon, good nurse! Sweet Montague, be true.";
+ end;
+OnTimer292000:
+ npctalk "Stay but a little, I will come again.";
+ end;
+OnTimer302000:
+ npctalk "Three words, dear Romeo, and good night indeed.";
+ end;
+OnTimer304000:
+ npctalk "If that thy bent of love be honourable,";
+ end;
+OnTimer306000:
+ npctalk "Thy purpose marriage, send me word to-morrow,";
+ end;
+OnTimer308000:
+ npctalk "By one that Ill procure to come to thee,";
+ end;
+OnTimer310000:
+ npctalk "Where and what time thou wilt perform the rite;";
+ end;
+OnTimer312000:
+ npctalk "And all my fortunes at thy foot Ill lay";
+ end;
+OnTimer314000:
+ npctalk "And follow thee my lord throughout the world.";
+ end;
+OnTimer318000:
+ npctalk "I come, anon.--But if thou meanst not well,";
+ end;
+OnTimer320000:
+ npctalk "I do beseech thee--";
+ end;
+OnTimer324000:
+ npctalk "By and by, I come:--";
+ end;
+OnTimer326000:
+ npctalk "To cease thy suit, and leave me to my grief:";
+ end;
+OnTimer328000:
+ npctalk "To-morrow will I send.";
+ end;
+OnTimer332000:
+ npctalk "A thousand times good night!";
+ end;
+OnTimer344000:
+ npctalk "Hist! Romeo, hist! O, for a falconers voice,";
+ end;
+OnTimer346000:
+ npctalk "To lure this tassel-gentle back again!";
+ end;
+OnTimer348000:
+ npctalk "Bondage is hoarse, and may not speak aloud;";
+ end;
+OnTimer350000:
+ npctalk "Else would I tear the cave where Echo lies,";
+ end;
+OnTimer352000:
+ npctalk "And make her airy tongue more hoarse than mine,";
+ end;
+OnTimer354000:
+ npctalk "With repetition of my Romeos name.";
+ end;
+OnTimer362000:
+ npctalk "Romeo!";
+ end;
+OnTimer366000:
+ npctalk "At what oclock to-morrow";
+ end;
+OnTimer368000:
+ npctalk "Shall I send to thee?";
+ end;
+OnTimer372000:
+ npctalk "I will not fail: tis twenty years till then.";
+ end;
+OnTimer374000:
+ npctalk "I have forgot why I did call thee back.";
+ end;
+OnTimer378000:
+ npctalk "I shall forget, to have thee still stand there,";
+ end;
+OnTimer380000:
+ npctalk "Remembering how I love thy company.";
+ end;
+OnTimer386000:
+ npctalk "Tis almost morning; I would have thee gone:";
+ end;
+OnTimer388000:
+ npctalk "And yet no further than a wantons bird;";
+ end;
+OnTimer390000:
+ npctalk "Who lets it hop a little from her hand,";
+ end;
+OnTimer392000:
+ npctalk "Like a poor prisoner in his twisted gyves,";
+ end;
+OnTimer394000:
+ npctalk "And with a silk thread plucks it back again,";
+ end;
+OnTimer396000:
+ npctalk "So loving-jealous of his liberty.";
+ end;
+OnTimer400000:
+ npctalk "Sweet, so would I:";
+ end;
+OnTimer402000:
+ npctalk "Yet I should kill thee with much cherishing.";
+ end;
+OnTimer404000:
+ npctalk "Good night, good night! parting is such";
+ end;
+OnTimer406000:
+ npctalk "sweet sorrow,";
+ end;
+OnTimer408000:
+ npctalk "That I shall say good night till it be morrow.";
+ end;
+OnTimer538000:
+ setnpctimer 0;
+ end;
+OnInit:
+ npcspeed 150;
+ initnpctimer;
+ end;
+}
diff --git a/npc/custom/warper.txt b/npc/custom/warper.txt
index a8bca48b2..dfce62188 100644
--- a/npc/custom/warper.txt
+++ b/npc/custom/warper.txt
@@ -1,19 +1,19 @@
//===== rAthena Script =======================================
-//= Warper Script
+//= Warper
//===== By: ==================================================
//= Darkchild
//===== Current Version: =====================================
//= 2.1
//===== Compatible With: =====================================
-//= Any rAthena Version;
+//= rAthena SVN
//===== Description: =========================================
//= Generic warper...
//===== Additional Comments: =================================
//= 1.0 by Darkchild
//= 1.1 by jabs
//= 1.2 by Lupus (placement fixed in Amatsu)
-//= 1.3 fixed Louyang label typo, added warp and WARPRA into
-//= Nifleheim. Also sorted all names in alphabet order [Lupus]
+//= 1.3 fixed Louyang label typo, added warp and WARPRA into
+//= Nifleheim. Also sorted all names in alphabet order. [Lupus]
//= 1.4 fixed morroc warp npc overlaying kafra [Aria]
//= 1.4a Added Ayothaya and Einbroch to list, and town Warpra's [Fredzilla]
//= 1.4b fixed Izlude warp npc overlaying BBS [Justin84]
@@ -26,13 +26,12 @@
//= 2.0 Fixed warp for AntHell and Yuno. [Kisuka]
//= 2.1 Moved AntHell warp agent to the new anthell entrance. [brianluau]
//============================================================
-//============================================================
//= To allow selecting the Level of the Dungeon you want to
//= Warp to set the @lvlselect variable to 1 (Not implemented yet!)
//============================================================
- script Warp Agent#01::warpra 859,{
-// set @lvlselect,0;
+ // set @lvlselect,0;
callfunc "F_ClearGarbage"; //Clear outdated, unused variables
@@ -42,142 +41,142 @@
mes "Where do you want to go?";
next;
switch(select("To a Town:To a Dungeon")) {
+ case 1:
+ mes "[Warp Agent]";
+ mes "Please select which town you would like to be teleported to.";
+ next;
+ switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno")) {
case 1:
- mes "[Warp Agent]";
- mes "Please select which town you would like to be teleported to.";
- next;
- switch(select("Alberta:Aldebaran:Amatsu:Ayothaya:Comodo:Einbroch:Einbech:Geffen:Gonryun:Hugel:Izlude:Lighthalzen:Louyang:Lutie:Morroc:Payon:Prontera:Umbala:Yuno")) {
- case 1:
- warp "alberta",27,236;
- break;
- case 2:
- warp "aldebaran",145,120;
- break;
- case 3:
- warp "amatsu",197,86;
- break;
- case 4:
- warp "ayothaya",149,118;
- break;
- case 5:
- warp "comodo",188,161;
- break;
- case 6:
- warp "einbroch",64,200;
- break;
- case 7:
- warp "einbech",70,95;
- break;
- case 8:
- warp "geffen",119,66;
- break;
- case 9:
- warp "gonryun",150,130;
- break;
- case 10:
- warp "hugel",96,145;
- break;
- case 11:
- warp "izlude",128,111;
- break;
- case 12:
- warp "lighthalzen",158,92;
- break;
- case 13:
- warp "louyang",210,108;
- break;
- case 14:
- warp "xmas",150,133;
- break;
- case 15:
- warp "morocc",159,93;
- break;
- case 16:
- warp "payon",152,75;
- break;
- case 17:
- warp "prontera",156,187;
- break;
- case 18:
- warp "umbala",130,130;
- break;
- case 19:
- warp "yuno",160,168;
- break;
- }
+ warp "alberta",27,236;
break;
case 2:
- mes "[Warp Agent]";
- mes "Please select which dungeon you would like to be teleported to.";
- next;
- switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon")) {
- case 1:
- warp "hu_fild05",189,207;
- break;
- case 2:
- warp "ama_dun01",229,12;
- break;
- case 3:
- warp "moc_fild20",164,145;
- break;
- case 4:
- warp "ayo_fild02",280,149;
- break;
- case 5:
- warp "izlu2dun",106,88;
- break;
- case 6:
- warp "mjolnir_02",81,359;
- break;
- case 7:
- warp "prt_sewb1",126,248;
- break;
- case 8:
- warp "einbech",135,249;
- break;
- case 9:
- warp "glast_01",368,303;
- break;
- case 10:
- warp "gonryun",160,195;
- break;
- case 11:
- warp "yuno_fild07",218,176;
- break;
- case 12:
- warp "lighthalzen",158,285;
- break;
- case 13:
- warp "yuno_fild03",39,140;
- break;
- case 14:
- warp "niflheim",35,161;
- break;
- case 15:
- warp "odin_tem01",98,144;
- break;
- case 16:
- warp "gef_fild10",70,332;
- break;
- case 17:
- warp "pay_arche",43,132;
- break;
- case 18:
- warp "moc_ruins",62,162;
- break;
- case 19:
- warp "moc_fild19",107,100;
- break;
- case 20:
- warp "alb2trea",75,98;
- break;
- case 21:
- warp "tha_scene01",131,223;
- break;
- case 22:
- warp "tur_dun01",149,238;
- }
+ warp "aldebaran",145,120;
+ break;
+ case 3:
+ warp "amatsu",197,86;
+ break;
+ case 4:
+ warp "ayothaya",149,118;
+ break;
+ case 5:
+ warp "comodo",188,161;
+ break;
+ case 6:
+ warp "einbroch",64,200;
+ break;
+ case 7:
+ warp "einbech",70,95;
+ break;
+ case 8:
+ warp "geffen",119,66;
+ break;
+ case 9:
+ warp "gonryun",150,130;
+ break;
+ case 10:
+ warp "hugel",96,145;
+ break;
+ case 11:
+ warp "izlude",128,111;
+ break;
+ case 12:
+ warp "lighthalzen",158,92;
+ break;
+ case 13:
+ warp "louyang",210,108;
+ break;
+ case 14:
+ warp "xmas",150,133;
+ break;
+ case 15:
+ warp "morocc",159,93;
+ break;
+ case 16:
+ warp "payon",152,75;
+ break;
+ case 17:
+ warp "prontera",156,187;
+ break;
+ case 18:
+ warp "umbala",130,130;
+ break;
+ case 19:
+ warp "yuno",160,168;
+ break;
+ }
+ break;
+ case 2:
+ mes "[Warp Agent]";
+ mes "Please select which dungeon you would like to be teleported to.";
+ next;
+ switch(select("Abyss Lake:Amatsu Dungeon:Anthell:Ayothaya Dungeon:Bibilan Dungeon:Coal Mine (Dead Pit):Culvert:Einbech Dungeon:Glast Heim:Gonryun Dungeon:Juperos:Lighthalzen Bio Lab:Magma Dungeon:Niflheim:Odin Temple:Orc Dungeon:Payon Dungeon:Pyramids:Sphinx:Sunken Ship:Thanatos Tower:Turtle Dungeon")) {
+ case 1:
+ warp "hu_fild05",189,207;
+ break;
+ case 2:
+ warp "ama_dun01",229,12;
+ break;
+ case 3:
+ warp "moc_fild20",164,145;
+ break;
+ case 4:
+ warp "ayo_fild02",280,149;
+ break;
+ case 5:
+ warp "izlu2dun",106,88;
+ break;
+ case 6:
+ warp "mjolnir_02",81,359;
+ break;
+ case 7:
+ warp "prt_sewb1",126,248;
+ break;
+ case 8:
+ warp "einbech",135,249;
+ break;
+ case 9:
+ warp "glast_01",368,303;
+ break;
+ case 10:
+ warp "gonryun",160,195;
+ break;
+ case 11:
+ warp "yuno_fild07",218,176;
+ break;
+ case 12:
+ warp "lighthalzen",158,285;
+ break;
+ case 13:
+ warp "yuno_fild03",39,140;
+ break;
+ case 14:
+ warp "niflheim",35,161;
+ break;
+ case 15:
+ warp "odin_tem01",98,144;
+ break;
+ case 16:
+ warp "gef_fild10",70,332;
+ break;
+ case 17:
+ warp "pay_arche",43,132;
+ break;
+ case 18:
+ warp "moc_ruins",62,162;
+ break;
+ case 19:
+ warp "moc_fild19",107,100;
+ break;
+ case 20:
+ warp "alb2trea",75,98;
+ break;
+ case 21:
+ warp "tha_scene01",131,223;
break;
+ case 22:
+ warp "tur_dun01",149,238;
+ }
+ break;
}
end;
}