Move to a subdirectory

8 files changed, 612 insertions, 0 deletions

diff --git a/world/map/npc/008-1/_import.txt b/world/map/npc/008-1/_import.txt
new file mode 100644
index 00000000..f517bb23
--- /dev/null
+++ b/world/map/npc/008-1/_import.txt
@@ -0,0 +1,10 @@
+// Map 008-1: Hurnscald outskirts
+// This file is generated automatically. All manually changes will be removed when running the Converter.
+map: 008-1.gat
+npc: npc/008-1/_mobs.txt
+npc: npc/008-1/_warps.txt
+npc: npc/008-1/andra.txt
+npc: npc/008-1/diryn.txt
+npc: npc/008-1/dock.txt
+npc: npc/008-1/george.txt
+npc: npc/008-1/hinnak.txt
diff --git a/world/map/npc/008-1/_mobs.txt b/world/map/npc/008-1/_mobs.txt
new file mode 100644
index 00000000..a4d8c3cf
--- /dev/null
+++ b/world/map/npc/008-1/_mobs.txt
@@ -0,0 +1,62 @@
+// This file is generated automatically. All manually changes will be removed when running the Converter.
+// Hurnscald outskirts mobs
+
+008-1.gat,0,0,0,0	monster	PinkFlower	1014,10,20,0,Mob008-1::On1014
+008-1.gat,0,0,0,0	monster	Pinkie	1018,18,20,0,Mob008-1::On1018
+008-1.gat,0,0,0,0	monster	SpikyMushroom	1019,18,20,0,Mob008-1::On1019
+008-1.gat,0,0,0,0	monster	Snail	1041,5,30,0,Mob008-1::On1041
+008-1.gat,0,0,0,0	monster	Mauve	1029,2,270000,180000,Mob008-1::On1029
+008-1.gat,0,0,0,0	monster	SilkWorm	1035,2,60000,30000,Mob008-1::On1035
+008-1.gat,0,0,0,0	monster	Clover	1037,2,0,1000,Mob008-1::On1037
+008-1.gat,0,0,0,0	monster	Squirrel	1038,10,30,20,Mob008-1::On1038
+008-1.gat,0,0,0,0	monster	Butterfly	1055,10,30,20,Mob008-1::On1055
+
+
+008-1.gat,0,0,0	script	Mob008-1	-1,{
+On1014:
+	set @mobID, 1014;
+	callfunc "MobPoints";
+	break;
+
+On1018:
+	set @mobID, 1018;
+	callfunc "MobPoints";
+	break;
+
+On1019:
+	set @mobID, 1019;
+	callfunc "MobPoints";
+	break;
+
+On1029:
+	set @mobID, 1029;
+	callfunc "MobPoints";
+	break;
+
+On1035:
+	set @mobID, 1035;
+	callfunc "MobPoints";
+	break;
+
+On1037:
+	set @mobID, 1037;
+	callfunc "MobPoints";
+	break;
+
+On1038:
+	set @mobID, 1038;
+	callfunc "MobPoints";
+	break;
+
+On1041:
+	set @mobID, 1041;
+	callfunc "MobPoints";
+	break;
+
+On1055:
+	set @mobID, 1055;
+	callfunc "MobPoints";
+	break;
+
+	end;
+}
diff --git a/world/map/npc/008-1/_warps.txt b/world/map/npc/008-1/_warps.txt
new file mode 100644
index 00000000..8cc5b652
--- /dev/null
+++ b/world/map/npc/008-1/_warps.txt
@@ -0,0 +1,11 @@
+// This file is generated automatically. All manually changes will be removed when running the Converter.
+// Hurnscald outskirts warps
+
+008-1.gat,54,61	warp	HurnscaldWestGate	-1,1,009-1.gat,26,36
+008-1.gat,79,80	warp	HurnscaldSouthGate	2,-1,009-1.gat,48,54
+008-1.gat,127,61	warp	HurnscaldEastGate	-1,0,009-1.gat,96,35
+008-1.gat,79,49	warp	HurnscaldNorthGate	2,-1,009-1.gat,48,24
+008-1.gat,24,62	warp	ToWoodland	-1,2,011-1.gat,122,61
+008-1.gat,79,17	warp	ToWoodlandMines	2,-1,018-1.gat,79,97
+008-1.gat,79,102	warp	ToWoodland	2,-1,007-1.gat,68,23
+008-1.gat,132,101	warp	ToWoodland	1,-1,007-1.gat,122,23
diff --git a/world/map/npc/008-1/andra.txt b/world/map/npc/008-1/andra.txt
new file mode 100644
index 00000000..8e80d3c5
--- /dev/null
+++ b/world/map/npc/008-1/andra.txt
@@ -0,0 +1,151 @@
+// Andra asks for your help to keep the soil fertile. The best way to do it is planting, so she asks for water and seeds. When she plants the seeds, some plants are spawned.
+
+008-1.gat,36,26,0	script	Andra	201,{
+    set @water_amount, 1;
+    set @seeds_amount, 4;
+    if ($@andra_status == 1) goto L_Planting;
+    if (baselevel < 30) goto L_TooYoung;
+    if (FLAGS & FLAG_ANDRA_HELPED) goto L_Return;
+    mes "[Andra]";
+    mes "\"Hello, my name is Andra. You see those nice trees? I planted every single one of them! I'm very proud of my work!\"";
+    next;
+    menu
+        "Nice! I imagine you planted them a long time ago, right?", -,
+        "Sorry, but I'm not interested in plants and trees.", L_DislikePlants;
+    mes "[Andra]";
+    mes "\"That is the fun part... It took only some months... and look how healthy and beautiful they are!\"";
+    next;
+    menu
+        "How is that possible?", -;
+    mes "[Andra]";
+    mes "\"A few years ago, a nice woman from Tulimshar did something amazing to the land around here... I guess her name was Eomie. I have no idea what she did, but since she worked on this land, everything you plant here will grow really fast!\"";
+    next;
+    mes "\"But I am very worried about something she told me when she left... She warned me that this place needs constant care. If one small spot is not cultivated for a long time, it will become less and less fertile.\"";
+    next;
+    mes "And she also told me that this soil is so fertile because it has a lot of nutrients not only on this side, but everywhere. So it is certain that all soil in this place will become weaker if we let a lot of unfertilized spots...\"";
+    next;
+    menu
+        "That sounds bad! But you just need to keep planting, right?", -;
+    mes "[Andra]";
+    mes "\"Exactly! But it is a big place. And I don't have too much money to buy seeds. If only I could find someone who could help me... ah... I know you are probably busy, but since you are here, would you like to help me in this noble task?\"";
+    menu
+        "Of course! What can I do to help you?", -,
+        "Not right now, I'm really busy.", L_Busy;
+    mes "[Andra]";
+    mes "\"Yay! I knew you would help me! I just need seeds and water... I think " + @seeds_amount + " Grass Seeds and " + @water_amount + " Bottle(s) of Water should be enough to grow some plants on the place. If you give the items, you can let the rest with me.\"";
+    next;
+    menu
+        "I don't have it right now, but I will come back later.", L_Close,
+        "Here are the seeds and the water.", -;
+    if (countitem("BottleOfWater") < @water_amount || countitem("GrassSeed") < @seeds_amount) goto L_NotEnough;
+    if ($@spawned_plants >= $@MAX_GLOBAL_PLANTS) goto L_Gather;
+    mes "[Andra]";
+    mes "\"Great! Thank you for you help. If you have more items and want to help again, feel free to talk to me. We just have to be careful to not oversoak the soil with water.. but you don't need to worry, I will know when it is the right time to stop planting.";
+    next;
+    delitem "BottleOfWater", @water_amount;	
+    delitem "GrassSeed", @seeds_amount;	
+    set FLAGS, FLAGS | FLAG_ANDRA_HELPED;
+    mes "Andra pours some water in a lot of different places and then throws some seeds to the sky. The wind carries some of them really far from her.";
+    close2;
+
+L_PreSummon:
+    set $@andra_status, 1;
+    set $@farmer$, strcharinfo(0);
+    startnpctimer;
+    end;
+
+OnTimer1000:
+    set $@plant_id, rand(1029,1032);
+    areamonster "008-1.gat",44,18,135,46,"plant",$@plant_id,$@PLANTS_PER_SEED, "Andra::OnPlantDeath";
+    attachrid(getcharid(3,$@farmer$));
+    message strcharinfo(0), "Andra: I think some plants will grow almost instantly! Just Watch...";
+    set $@spawned_plants, $@spawned_plants + $@PLANTS_PER_SEED;
+    end;
+
+OnTimer3000:
+    set $@plant_id, rand(1029,1032);
+    areamonster "008-1.gat",44,18,135,46,"plant",$@plant_id,$@PLANTS_PER_SEED, "Andra::OnPlantDeath";
+    set $@spawned_plants, $@spawned_plants + $@PLANTS_PER_SEED;
+    end;
+
+OnTimer5000:
+    set $@plant_id, rand(1029,1032);
+    areamonster "008-1.gat",44,18,135,46,"plant",$@plant_id,$@PLANTS_PER_SEED, "Andra::OnPlantDeath";
+    set $@spawned_plants, $@spawned_plants + $@PLANTS_PER_SEED;
+    end;
+
+OnTimer7000:
+    set $@plant_id, rand(1029,1032);
+    areamonster "008-1.gat",44,18,135,46,"plant",$@plant_id,$@PLANTS_PER_SEED, "Andra::OnPlantDeath";
+    attachrid(getcharid(3,$@farmer$));
+    message strcharinfo(0), "Andra: Good... Just take a walk and you will be able to see how your seeds turned into some nice looking plants.";
+    set $@spawned_plants, $@spawned_plants + $@PLANTS_PER_SEED;
+    set $@andra_status, 0;
+    set $@farmer$, "";
+    setnpctimer 0;
+    stopnpctimer;
+    end;
+
+L_Return:
+    mes "[Andra]";
+    mes "\"Hi " + strcharinfo(0) + ", good to see you! You came back to help me again?\"";
+    next;
+    menu
+        "Yes, and I already have the seeds and the water.", -,
+        "No, I just wanted to say hello.", L_Bye;
+    if ($@spawned_plants >= $@MAX_GLOBAL_PLANTS) goto L_Gather;
+    if (countitem("BottleOfWater") < @water_amount || countitem("GrassSeed") < @seeds_amount) goto L_NotEnough;
+    delitem "BottleOfWater", @water_amount;	
+    delitem "GrassSeed", @seeds_amount;
+    mes "Andra pours some water in a lot of different places and then throws the seeds to the sky. The wind carries some of them really far from her.";
+    close2;
+    goto L_PreSummon;
+
+OnPlantDeath:
+    set $@spawned_plants, $@spawned_plants - 1;
+    end;
+
+L_NotEnough:
+    mes "[Andra]";
+    mes "\"Sorry, but you don't have the items I need... Please, come back when you have them.\"";
+    close;
+
+L_Gather:
+    mes "[Andra]";
+    mes "\"Look at all those plants! I think we shoudn't plant more seeds until someone gather those herbs...\"";
+    close;
+
+L_Bye:
+    mes "[Andra]";
+    mes "\"Oh, you are a nice person... Thanks!\"";
+    close;
+
+L_Busy:
+    mes "[Andra]";
+    mes "\"Ok, I understand. Come back if have some free time!\"";
+    close;
+
+L_DislikePlants:
+    mes "[Andra]";
+    mes "\"Really? How can someone dislike plants and trees? What a strange thing...\"";
+    close;
+
+L_Planting:
+    mes "[Andra]";
+    mes "\"Sorry, I can't talk right now. I am planting some seeds " + $@farmer$ + " gave me.\"";
+    close;
+
+L_Close:
+    close;
+
+L_TooYoung:
+    mes "[Andra]";
+    mes "\"I'm sorry, I can't talk right now. I am really busy with those trees! If you feel like talking, maybe you should come back later.\"";
+    close;
+
+OnInit:
+    set $@PLANTS_PER_SEED, 3;
+    set $@MAX_GLOBAL_PLANTS, 100; // You can plant only if the amount of plants currently in the map is < than this value.
+    initnpctimer;
+    stopnpctimer;
+}
diff --git a/world/map/npc/008-1/diryn.txt b/world/map/npc/008-1/diryn.txt
new file mode 100644
index 00000000..c5ab21a4
--- /dev/null
+++ b/world/map/npc/008-1/diryn.txt
@@ -0,0 +1,84 @@
+//This is a teleportation (warp) NPC.  Its purpose is to offer expensive, fast trips throughout the world.
+
+008-1.gat,81,82,0	script	Diryn the Traveler	103,{
+	mes "[Diryn]";
+    	mes "\"Greetings.  I am Diryn the Traveler, Assistant Councilor of Tulimshar and teleporter extraordinaire.  Tulimshar is expanding our influence throughout the world, so I was sent here to aid all who are willing and able to take on the threats to our interests.\"";
+	next;
+	mes "\"The monsters of the world have grown out of control, harming people, trade and travel.  Needless to say, Tulimshar is not happy with this problem.  Our solution: Rally those powerful enough to combat the monster threat and send them to hot spots to challenge the monster threat head on.  However, teleportation to these areas is not only extremely dangerous, but also highly expensive.   Do you think you got what it takes?\"";
+	menu
+		"I sure do!", L_Diryn_Yes,
+		"No thank you", L_Diryn_No;
+	close;
+
+L_Diryn_Yes:
+	mes "[Diryn]";
+	mes "\"Excellent.  I can send you to many places, but again, the fees are large. Where shall I send you?\"";
+	menu
+		"Druid Tree (1500 GP)", L_Diryn_Druid_Tree,
+		"Graveyard (1500 GP)", L_Diryn_Graveyard,
+		"Magic House (1000 GP)", L_Diryn_Magic_House,
+		"Terranite Cave (1500 GP)", L_Diryn_Terranite,
+		"Tulimshar Town Square (1000 GP)", L_Diryn_Tulimshar,
+		"Nivalis (1000 GP)", L_Diryn_Nivalis,
+		"Not Interested", L_Diryn_No;
+	close;
+
+L_Diryn_Druid_Tree:
+	if (zeny < 1500) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1500;
+	warp "005-1.gat",73,36;
+	close;
+
+L_Diryn_Graveyard:
+	if (zeny < 1500) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1500;
+    	warp "027-1.gat",70,85;
+    	close;
+
+L_Diryn_Magic_House:
+	if (zeny < 1000) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1000;
+	warp "013-1.gat",45,92;
+	close;
+
+L_Diryn_Terranite:
+	if (zeny < 1500) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1500;
+	warp "012-3.gat",445,65;
+	close;
+
+L_Diryn_Tulimshar:
+	if (zeny < 1000) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1000;
+	warp "001-1.gat",44,70;
+	close;
+
+L_Diryn_Nivalis:
+	if (zeny < 1000) goto L_NoMoney;
+	mes "[Diryn]";
+	mes "\"Be fearless!\"";
+	set zeny, zeny-1000;
+	warp "020-1.gat",71,100;
+	close;
+
+L_Diryn_No:
+	mes "[Diryn]";
+	mes "\"Perhaps some day you will have the courage to help us.  Enjoy your stay here in Hurnscald.\"";
+	close;
+
+L_NoMoney:
+	mes "[Diryn]";
+	mes "\"Sorry, you don't have enough.  Maybe next time.\"";
+	close;
+
+}
diff --git a/world/map/npc/008-1/dock.txt b/world/map/npc/008-1/dock.txt
new file mode 100644
index 00000000..46aa5a92
--- /dev/null
+++ b/world/map/npc/008-1/dock.txt
@@ -0,0 +1,6 @@
+// The ferry dock
+
+008-1.gat,140,64,0	script	#hurnscalddock	127,2,1,{
+	set @loc, DOCK_hurnscald;
+	callfunc "Ferry";
+}
diff --git a/world/map/npc/008-1/george.txt b/world/map/npc/008-1/george.txt
new file mode 100644
index 00000000..429fdbca
--- /dev/null
+++ b/world/map/npc/008-1/george.txt
@@ -0,0 +1,25 @@
+//
+
+008-1.gat,136,36,0	script	George	138,{
+	if (getequipid(equip_head) == 617) goto L_Pirate;
+	if (getequipid(equip_head) == 622) goto L_Bandana;
+	if (getequipid(equip_head) == 621) goto L_EyePatch;
+	mes "[George the Pirate]";
+	mes "\"Arrrrh! 'Tis some kind of treasure map!\"";
+	close;
+
+L_Pirate:
+	mes "[George the Pirate]";
+	mes "\"Arrrrh! Ye be wearing a pirate's hat!\"";
+	close;
+
+L_Bandana:
+	mes "[George the Pirate]";
+	mes "\"Arrrrh! Ye remind me of my old first mate!\"";
+	close;
+
+L_EyePatch:
+	mes "[George the Pirate]";
+	mes "\"Arrrrh! Looks like ye lost an eye there!\"";
+	close;
+}
diff --git a/world/map/npc/008-1/hinnak.txt b/world/map/npc/008-1/hinnak.txt
new file mode 100644
index 00000000..4d17310c
--- /dev/null
+++ b/world/map/npc/008-1/hinnak.txt
@@ -0,0 +1,263 @@
+//#################################################################################
+//#                                                                               #
+//# this script file contains the npc scripts for the quest to obtain a scythe.   #
+//#                                                                               #
+//# Needed: 10 Pink Antenna                                                       #
+//#                                                                               #
+//# Reward: Scythe                                                                #
+//#                                                                               #
+//#################################################################################
+
+//Farmer
+
+008-1.gat,101,30,0	script	Hinnak	142, {
+	if (Inspector == 10) goto L_NohMask;
+
+L_No_NohMask:
+	if (QUEST_Scythe_state == 1) goto L_Exchange;
+	if (QUEST_Scythe_state == 2) goto L_ThanksAgain;
+	if (getequipid(equip_head) == 751) goto L_Intro_Hat;
+	
+	mes "[Farmer Hinnak]";
+	mes "\"Argh! I hate them! I @#$% hate them! I @#$% hate these @#$% pinkies!\"";
+	next;
+
+	menu
+		"You need some anger control therapy.", -,
+		"Why do you hate them?", L_Reason;
+	close;
+
+L_Intro_Hat:
+	mes "The farmer lunges at you with a farming implement.";
+	next;
+	heal -50, 0;
+	
+	menu
+		"I'm out of here.", -,
+		"Whoa, what are you doing?", L_Intro_Hat_Explain;
+	close;
+
+L_Intro_Hat_Explain:
+	mes "[Farmer Hinnak]";
+	mes "\"Sorry, you look like a pinkie. They've been destroying my fields, and I guess I got a bit worked up.\"";
+	next;
+	goto L_Help;
+
+L_Reason:
+	mes "[Farmer Hinnak]";
+	mes "\"These @#$% beasts are jumping around in my fields destroying all my harvest.";
+	mes "But they are too fast. I can't catch them.\"";
+	next;
+
+	menu
+		"Want me to help you?", L_Help,
+		"Well, life ain't fair.", -;
+	close;
+
+L_Help:
+	mes "[Farmer Hinnak]";
+	mes "\"Yes, you look quite fast. Maybe you can catch some of them. That will pay them a lesson.";
+	mes "Slay some of them and bring me 10 of their antennae.\"";
+	set QUEST_Scythe_state, 1;
+	next;
+
+	menu
+		"Sure, I'm on my way", -,
+		"How much is this worth to you?", L_Reward;
+	close;
+
+L_Reward:
+	mes "[Farmer Hinnak]";
+	mes "\"Well, I can't offer you much. But I got an old scythe laying around. Maybe you can use it as a weapon.\"";
+	close;
+
+L_Exchange:
+	if (getequipid(equip_head) != 751) goto L_Exchange_Start;
+	mes "The farmer glares at your hat.";
+	next;
+
+L_Exchange_Start:
+	mes "[Farmer Hinnak]";
+	mes "\"Have you got the 10 antennae?\"";
+	next;
+
+	menu
+		"Not yet, but I am working on it.", -,
+		"Sure, here they are!", L_Exchange_Exchange;
+	close;
+
+L_Exchange_Exchange:
+	if (countitem("PinkAntenna") < 10) goto L_Exchange_Notenough;
+	getinventorylist;
+	if (@inventorylist_count == 100 && countitem("PinkAntenna") > 10) goto L_Exchange_TooMany;
+	delitem "PinkAntenna", 10;
+	getitem "Scythe", 1;
+	set QUEST_Scythe_state, 2;
+	mes "[Farmer Hinnak]";
+	mes "\"Thank you very much. I've got something for you. My old scythe. Maybe you can use it as a weapon. It is a bit cumbersome but its strikes are deadly.\"";
+	close;
+
+L_Exchange_Notenough:
+	mes "[Farmer Hinnak]";
+	mes "\"It doesn't look like you do.\"";
+	close;
+
+L_Exchange_TooMany:
+	mes "[Farmer Hinnak]";
+	mes "\"Looks like you don't have room for this. Come back later to receive your reward. Hold on to the antennea until then.\"";
+	close;
+
+L_ThanksAgain:
+	if (getequipid(equip_head) == 751) goto L_ThanksHat;
+	mes "[Farmer Hinnak]";
+	mes "\"Good to see you again, and thanks again for helping me with the pinkies!\"";
+	next;
+	goto L_ThanksMenu;
+
+L_ThanksHat:
+	mes "[Farmer Hinnak]";
+	mes "\"That better be a trophy on your head.\"";
+	menu
+		"It is.", -;
+	
+	mes "[Farmer Hinnak]";
+	mes "\"Good then. Thanks for your help with the pinkies.\"";
+
+L_ThanksMenu:
+        menu
+		"Sure, any time!", -,
+		"Anything else you want me to do?", -,
+                "You're welcome.  Bye!", L_Bye;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Actually, it's been a long day.  If it's no trouble, could you get me a beer?\"";
+        next;
+
+        menu
+		"Here you are.", L_GiveBeer,
+                "Sure, I'll go get one.  Bye!", L_Bye,
+                "You shouldn't drink while working!", -;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Well, I'm done for the day, and I'm quite old enough to decide when I can have a beer, thank you!\"";
+        next;
+
+        menu
+		"Sorry... here you are.", L_GiveBeer,
+                "I don't have any.", L_NoBeer;
+
+L_GiveBeer:
+        if (countitem("Beer") < 1) goto L_NoBeer;
+        delitem "Beer", 1;
+	mes "[Farmer Hinnak]";
+        mes "Hinnak takes a sip.";
+        mes "\"Aaah!  Nothing like a well-deserved beer after a long day of tending the crops!\"";
+        mes "\"Thanks, that was very kind of you!\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "He takes another sip.";
+        mes "\"Thanks!  You know, I had the strangest thing happen to me.  I had this patch of ground that was really clumpy; lots of clay, you see.\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Right over there.\"";
+        mes "He points to a stretch of soft, raked ground.";
+        mes "\"Looks much better now, doesn't it?  But how I got there is kind-a scary...\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"I'd been trying to break it up for a while, but that kind of work is a pain.  So my wife said that I should go and see the witch, just in case she knows something.\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"And sure enough I ask the witch, and she has a look at it.  'Nothing I can do', she says, 'but I can ask a friend'.\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"So the next day another witch shows up.  Gorgeous woman, but when she looked at me, the scares went scuttling down my spine....\"";
+        mes "\"First thing she asked was if I'm a farmer.  Said her friend had told her that I needed help.\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"I show her what the problem is, and she tells me to go inside and wait.\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Hinnak drains his beer in one long sip, then hesitates.";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"So I go inside.  I'm barely in when it starts raining outside, pouring cats and mouboos!\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Not so weird, perhaps, except that it was been bright and sunny just a second before!  So I rush out, my wife telling me to leave the witch alone, and I see her standing there in the middle of the rain...\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"None of the raindrops touched her, as if they was afraid!\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"Then she yells out some gobbledygook word, and out of the ground there comes a swarm of maggots, crawling and digging and climbing over each other's backs...\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"And then she turns to me!  Seeing her stare, for a moment there I think that she'll turn me into a pinkie, for sure...\"";
+        next;
+
+	mes "[Farmer Hinnak]";
+        mes "\"But all she says is, 'if you'd stayed inside, you wouldn't be wet now'.\"";
+        next;
+
+        menu
+		"Hahaha!", L_Sagatha_hahaha,
+                "Whoah, scary...", L_Sagatha_scary,
+                "What was that gobbledygook word?", L_Sagatha_word,
+                "I better go now.", -;
+	goto L_Bye;
+
+L_Sagatha_hahaha:
+	mes "[Farmer Hinnak]";
+        mes "\"Yeah, funny now...  But you should've seen that stare!  Ah, well, never mind.\"";
+        close;
+
+L_Sagatha_scary:
+	mes "[Farmer Hinnak]";
+        mes "\"Yeah, you could say that...\"";
+        mes "He stares into his empty beer jug, as if wishing it weren't empty yet.";
+        close;
+
+L_Sagatha_word:
+	mes "[Farmer Hinnak]";
+        mes "\"Oh, I can't be sure... but something like '" + getspellinvocation("summon-maggots") + "', I think.\"";
+        close;
+
+L_NoBeer:
+	mes "[Farmer Hinnak]";
+        mes "\"Ah... no beer?  Oh well.\"";
+        close;
+
+L_Bye:
+	mes "[Farmer Hinnak]";
+        mes "\"Bye!\"";
+        close;
+
+L_NohMask:
+	menu
+		"Did you see anyone in a mask come by here at night?", L_NohMask_Mask,
+		"Did you see anyone with a large satchel come by here at night?", L_NohMask_Satchel,
+		"Hello", L_No_NohMask;
+	close;
+
+L_NohMask_Mask:
+	mes "[Farmer Hinnak]";
+	mes "\"No. It tends to be too dark to see a mask.\"";
+	close;
+
+L_NohMask_Satchel:
+	mes "[Farmer Hinnak]";
+	mes "\"Yes, I saw someone with a large sack on their back go to the mining camp.\"";
+	close;
+}