Pre-planned level 0 spells all available (except for 'make sulphur' and 'detect magic')

2 files changed, 153 insertions, 7 deletions

diff --git a/npc/011-1_Woodland/alchemist.txt b/npc/011-1_Woodland/alchemist.txt
index 0c1e7663..8ce50f06 100644
--- a/npc/011-1_Woodland/alchemist.txt
+++ b/npc/011-1_Woodland/alchemist.txt
@@ -9,6 +9,7 @@
         set @Q_MASK, NIBBLE_3_MASK;
         set @Q_SHIFT, NIBBLE_3_SHIFT;
 
+        set @wants_sulphur, (QUEST_MAGIC & NIBBLE_6_MASK);
         set @Q_status, (QUEST_Forestbow_state & @Q_MASK) >> @Q_SHIFT;
         // End of Setzer quest/monster oil quest participation
 
@@ -23,6 +24,8 @@
 	set @MANAPOTION, 705;
 	set @ORE, 640;
 	set @MAGGOTSLIME, 505;
+        set @SULPHUR, 703;
+        set @IRONPOWDER, 704;
 
 	set @QUEST_CAN_GET_DYE_HERE, 2;
 	set @QUEST_HAS_SOLVED_DYE_PUZZLE, 3;
@@ -34,7 +37,8 @@
 	set @CHOICE_DYE, 3;
 	set @CHOICE_MONSTER_OIL, 4;
 	set @CHOICE_MANA_POTION, 5;
-	set @CHOICE_ABORT, 6;
+	set @CHOICE_SULPHUR_POWDER, 6;
+	set @CHOICE_ABORT, 7;
 
 	setarray @menuitems$, "", "", "", "", "", "";
 	set @c, 0;
@@ -81,13 +85,20 @@ L_skip_introducing:
 	set @c, @c + 1;
 
 	goto L_certain_condition;
-
 L_pre_dyeing:
+
 	set @menuitems$[@c], "Actually, can you make dye?";
 	set @menuID[@c], @CHOICE_DYEING_INTRO;
 	set @c, @c + 1;
-
 L_certain_condition:
+
+        if (!@wants_sulphur)
+		goto L_post_sulphur_option;
+	set @menuitems$[@c], "Can you make sulphur powder?";
+	set @menuID[@c], @CHOICE_SULPHUR;
+	set @c, @c + 1;
+L_post_sulphur_option;
+
         if (@Q_status == @SETZER_INITIAL)
 		goto L_main_menu;
 	set @menuitems$[@c], "Can you make monster oil?";
@@ -104,8 +115,9 @@ L_main_menu:
 		@menuitems$[1], -,
 		@menuitems$[2], -,
 		@menuitems$[3], -,
-		@menuitems$[4], -;
-		@menuitems$[5], -;
+		@menuitems$[4], -,
+		@menuitems$[5], -,
+		@menuitems$[6], -;
 
 	set @menu, @menu - 1;
 
@@ -116,8 +128,57 @@ L_main_menu:
 	if (@menuID[@menu] == @CHOICE_DYE) goto L_pick_colour;
 	if (@menuID[@menu] == @CHOICE_MONSTER_OIL) goto L_monster_oil;
 	if (@menuID[@menu] == @CHOICE_MANA_POTION) goto L_mana_potion;
+	if (@menuID[@menu] == @CHOICE_SULPHUR) goto L_sulphur;
 	if (@menuID[@menu] == @CHOICE_ABORT) goto L_abort;
 
+L_sulphur:
+	mes "[Rauk the Alchemist]";
+        mes "\"Oh, that is easy.  Bring me three piles of volcanic ash and three mauve leaves, and I will extract twelve piles of sulphur ash for you.\"";
+        next;
+        menu
+		"I will be back.", L_abort,
+		"No, I won't!", L_abort,
+		"Here you are!", -;
+
+	if (countitem(@ASH) < 3) goto L_sulphur_noash;
+	if (countitem(@MAUVE) < 3) goto L_sulphur_nomauve;
+	getinventorylist;
+	if (@inventorylist_count == 100
+            && countitem(@SULPHUR) == 0
+            && countitem(@ASH) > 3
+            && countitem(@MAUVE) > 3)
+		goto L_sulphur_nospace;
+
+        delitem @ASH, 3;
+        delitem @MAUVE, 3;
+        getitem @SULPHUR, 12;
+	mes "[Rauk the Alchemist]";
+        mes "You watch Rauk burn the mauve leaves in the midst of the ashes.  He then dissolves the result and pours it through a filter, finally heating up the residual liquid.";
+        next;
+	mes "[Rauk the Alchemist]";
+        mes "The water having evaporated, only some yellow powder is left over.  Rauk carefully pours it into your hand.";
+        mes "\"This should be precisely twelve half-ounces of sulphur powder.\"";
+        next;
+        close;
+
+L_sulphur_noash:
+	mes "[Rauk the Alchemist]";
+        mes "\"You don't seem to have all three piles of volcanic ash.\"";
+        next;
+        close;
+
+L_sulphur_nomauve:
+	mes "[Rauk the Alchemist]";
+        mes "\"You don't seem to have the three mauve leaves I asked for.\"";
+        next;
+        close;
+
+L_sulphur_nospace:
+	mes "[Rauk the Alchemist]";
+        mes "\"Oh dear.  You don't seem to be able to carry the sulphur powder.\"";
+        next;
+        close;
+
 L_mana_potion:
 	mes "[Rauk the Alchemist]";
         mes "\"Humh... I do believe that I have a recipe somewhere.  One moment...\"";
diff --git a/npc/011-1_Woodland/auldsbel.txt b/npc/011-1_Woodland/auldsbel.txt
index b632edf4..30124d79 100644
--- a/npc/011-1_Woodland/auldsbel.txt
+++ b/npc/011-1_Woodland/auldsbel.txt
@@ -24,9 +24,15 @@
         set @MOUNTAIN_SNAKE_TONGUE, 711;
         set @GRASS_SNAKE_TONGUE, 712;
         set @MAGGOT_SLIME, 505;
+	set @ASH, 701;
+        set @SULPHUR, 703;
+        set @IRONPOWDER, 704;
 
         set @Q_STATUS_INITIAL, 0;
         set @Q_STATUS_POSTINTRO, 1;
+        set @Q_STATUS_INITIATION, 2; // quest for being able to cast `create mouboo figurine'
+
+        set @Q_wants_sulphur, (QUEST_MAGIC & NIBBLE_6_MASK);
 
         set @Q_MASK, NIBBLE_0_MASK | NIBBLE_1_MASK;
         set @Q_SHIFT, NIBBLE_0_SHIFT;
@@ -129,7 +135,7 @@ L_intro_who_are_you:
         mes "[Robed Man]";
         mes "\"Oh, oh my...  of course you wouldn't know me, being from the countryside and all.\"";
         mes "He laughs.";
-        mes "\"Well, my young friend, I am none other than Auldsbel the Mostly Grayish, of the Council of Transmuters!\"";
+        mes "\"Well, my young friend, I am none other than Auldsbel the Graying, of the Council of Transmuters!\"";
         next;
 
         set @Q_main_status, @Q_STATUS_POSTINTRO;
@@ -160,7 +166,16 @@ L_main_menu:
         close;
 
 L_main_menu_magic:
-        menu "How does magic work?", L_about_magic,
+        if (@wants_sulphur)
+          menu "How does magic work?", L_about_magic,
+             "Can you teach me a spell?", L_learn_spell,
+             "Where are you from?", L_about_auldsbel,
+             "Do you need help with your experiments?", L_quest,
+             "What do you know about...", L_question,
+             "Can you make sulphur powder?", L_sulphur,
+             "Goodbye.", -;
+        if (!@wants_sulphur)
+          menu "How does magic work?", L_about_magic,
              "Can you teach me a spell?", L_learn_spell,
              "Where are you from?", L_about_auldsbel,
              "Do you need help with your experiments?", L_quest,
@@ -168,6 +183,54 @@ L_main_menu_magic:
              "Goodbye.", -;
         close;
 
+L_sulphur:
+        mes "[Auldsbel the Wizard]";
+        set @cost, 400 - (@component_quest * 30);
+        mes "\"Sulphur powder?  Ah, so we have picked up a little offensive magic, haven't we?  Good thinking, good thinking.  And yes, of course I can transmute volcanic ashes into sulphur powder at a ratio of 1:5, for a mere " + @cost + " GP.\"";
+        next;
+        menu
+		"No, thank you.", -,
+		"I will see what I can find.", -,
+		"Here you are.", L_sulphur_buy;
+        close;
+
+L_sulphur_buy:
+	if (zeny < @cost)
+		goto L_sulphur_nozeny;
+	if (countitem(@ASH) < 1)
+		goto L_sulphur_noash;
+	getinventorylist;
+	if (@inventorylist_count == 100
+            && countitem(@SULPHUR) > 1
+            && countitem(@ASH) == 0)
+		goto L_sulphur_noroom;
+
+        set zeny, zeny - @cost;
+        delitem @ASH, 1;
+        getitem @SULPHUR, 1;
+        mes "[Auldsbel the Wizard]";
+        next "\"I shall transmute it later.  Here, have five half-ounces from my own stock.\"";
+        next;
+        goto L_main_menu;
+
+L_sulphur_nozeny:
+        mes "[Auldsbel the Wizard]";
+        next "\"No GP, no service.\"";
+        next;
+        goto L_main_menu;
+
+L_sulphur_noash:
+        mes "[Auldsbel the Wizard]";
+        next "\"Without volcanic ash, I can't give you any sulphur powder.  Try hunting some fire goblins, or somesuch.\"";
+        next;
+        goto L_main_menu;
+
+L_sulphur_noroom:
+        mes "[Auldsbel the Wizard]";
+        next "\"Hmm, you really managed to squeeze something into every little place you had that we could have stored the powder in... you might want to return once you have resolved this matter.\"";
+        next;
+        close;
+
 L_about_magic:
         mes "[Auldsbel the Wizard]";
         mes "\"Magic is a universal force that comes from within; only few individuals have the power to channel and manipulate it.  Most magic users resort to spells-- prefabricated invocations-- to access and control their magical power.\"";
@@ -831,7 +894,29 @@ L_component_quest_missing:
         goto L_main_menu;
 
 L_learn_spell:
+        if (@Q_main_status == @Q_STATUS_INITIATION) goto LL_initiation;
+
+        mes "[Auldsbel the Wizard]";
+        mes "\"Wellll.... you do seem to have some magical abilities.  But do you possess the talent and diligence needed for a true wizard?\"";
+        mes "He raises an eyebrow at you, then grins.";
+        mes "\"Only one way to find out!  Let me teach you a first spell.\"";
+        next;
+        mes "[Auldsbel the Wizard]";
+        mes "\"This spell is a simple transmutation invocation.  All it takes is a clean wooden log.  Hold it in your hand, focus your powers, and say the magic invocation.\"";
+        next;
+        mes "[Auldsbel the Wizard]";
+        mes "\"You can turn the log into a wooden figurine by saying 'kular' followed by the last syllable of the name of the creature you want to shape it as.  And mind you, that syllable has to be from the Old-Tritan name...\"";
+        next;
+        mes "[Auldsbel the Wizard]";
+        mes "\"Oh, actually, make sure to write that down.  You should keep track of all spells and spell fragments, really.  I always keep a notebook handy, in fact.\"";
+        next;
+        set @Q_main_status, @Q_STATUS_INITIATION;
+        callsub S_update_var;        
+        goto L_main_menu;
+
+LL_initiation:
         mes "[Auldsbel the Wizard]";
+        mes "\"So, have you managed to transmute something?\"";
         next;
         goto L_main_menu;