Nerf ticket drop rate. Begin Santa code

1 files changed, 80 insertions, 0 deletions

diff --git a/npc/081-1/dungeon.txt b/npc/081-1/dungeon.txt
index ea15a80d..a2df4d42 100644
--- a/npc/081-1/dungeon.txt
+++ b/npc/081-1/dungeon.txt
@@ -152,10 +152,90 @@ OnInit:
 
 
 081-1,56,63,0	script	Santa	NPC_SANTA,{
+    function report;
+    function gotogak;
+    function finished;
+    if (X21ED2_CLEAR()) finished();
+    if (X21GAK_GOTO()) gotogak();
+    if (X21ED1_CLEAR()) report();
     mesn;
     mesq l("Hohohoh!");
     close;
 
+function report {
+    select
+        l("I've found Alissa.");
+    mes "";
+    mesn;
+    mesq l("You WHAT?");
+    next;
+    select
+        l("I've found Alissa.");
+    mes "";
+    mesn;
+    mesq l("In name of the Ice, I didn't thought you would find Alissa herself! Hohoho!");
+    next;
+    mesn;
+    mesq l("Congratulations, I guess.");
+    next;
+    select
+        l("Where's Gak?");
+    mes "";
+    mesn;
+    mesq l("Uh? He went home, obviously.");
+    next;
+    mesn;
+    mes "\""+l("...Ah");
+    mes l("I guess that's inconvenient to you, isn't it? Hohoho!")+"\"";
+    next;
+    select
+        l("Where does he live?"),
+        l("Where's his house?");
+    mes "";
+    mesn;
+    mesq l("I have no idea, he haven't asked for a Christmas gift lately.");
+    next;
+    mesn;
+    mesq l("Maybe you can ask someone else? Hohoho!");
+    next;
+    // useless Santa...
+    select
+        l("Where did you last seen him?");
+    mes "";
+    mesn;
+    mesq l("Asphodel Moors. Not sure if there's any significance to him about that place, but well, maybe someone there knows.");
+    next;
+    mesn;
+    mesq l("I also think I saw Kytty around, from Valentine's Day. She may have seen something, who knows.");
+    X21GAK_DOGOTO();
+    close;
+}
+
+function gotogak {
+    mesn;
+    mesq l("Gak went home, but maybe someone else in Asphodel Moors has seen him. Or maybe Kytty.");
+    close;
+}
+
+function finished {
+    mesn;
+    mesq l("Have you been a very good kid this year?");
+    askyesno();
+    mes "";
+    mesn;
+    mes "\""+l("Well, whenever you explore that place, you may get some tickets.");
+    mes l("I'll exchange these for rares which were featured in other Christmas Events.");
+    mes l("An unique chance! Hohohoh!")+"\"";
+    next;
+    mesn;
+    mes "\""+l("But keep in mind, you can only get one of each.");
+    mes l("So, what'll it be?")+"\"";
+    next;
+    openshop;
+    closeclientdialog;
+    close;
+}
+
 OnInit:
     .distance=5;
     setarray .prizes, ElfNightcap, TopHat, ShroomHat, FunkyHat,