Add Crastur to Bandit Caves and Script Crastur Silkpants Quest Part

1 files changed, 215 insertions, 0 deletions

diff --git a/world/map/npc/011-6/crastur.txt b/world/map/npc/011-6/crastur.txt
new file mode 100644
index 00000000..8e0e19d3
--- /dev/null
+++ b/world/map/npc/011-6/crastur.txt
@@ -0,0 +1,215 @@
+011-6.gat,172,250,0|script|Crastur the Ugly|410,
+{
+    set @spants_state, ((QUEST_WG_state & NIBBLE_2_MASK) >> NIBBLE_2_SHIFT);
+    set @spants_chest, ((QUEST_WG_state & 4096 ) >> 12);
+    if @spants_state < 3 goto L_Regular;
+    if @spants_state == 3 goto L_Ask;
+    if (@spants_state == 4 || @spants_state == 5) goto L_Ask_Again;
+    goto L_Main;
+
+
+L_Ask:
+    mes "[Crastur]";
+    mes "";
+    mes "\"Well, well, well\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Just look who arrived here\"";
+    emotion EMOTE_EVIL;
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"If this isn't the person that cleared my way to success\"";
+    menu
+        "\"Who? Me?\"", L_Unsure,
+        "\"Yes I killed the Bandit Lord, but not to make room for more scumbags\"", L_Insult,
+        "\"I heard you know a lot\"", L_Ask_Cont,
+        "\"Ugh, no. I have to leave now. Bye.\"", L_Close;
+
+L_Ask_Again:
+    mes "[Crastur]";
+    mes "";
+    mes "\"Hello again\"";
+    mes "\"Did you do your part of the deal yet?\"";
+    menu
+        "\"No, I wanted to know if you can tell me anything about me\"", L_Personal,
+        "\"Probably not, what was that again?\"", L_Pirate_Proof,
+        "\"Yes, check this Bandana I brought.\"", L_Bandana,
+        "\"No Idea, Bye.\"", L_Close;
+
+L_Ask_Cont:
+    mes "[Crastur]";
+    mes "";
+    mes "\"Yes I do, for a price.\"";
+    menu
+        "Explain Hetchels story", L_Jibber,
+        "Interesting", L_Main;
+
+L_Jibber:
+    mes "You begin to tell Crastur about Hetchel and her Problems";
+    next;
+    mes "Crastur interrupts you";
+    mes "[Crastur]";
+    mes "";
+    mes "\"I do not care about petty problems, get to the point!\"";
+    set @spants_state, 4;
+    callsub S_Update_Spants;
+    menu
+        "\"Hetchel needs the Plans for Cotton Trousers Stolen from Lora Tay\"", L_Jibber_Cont,
+        "\"Don't talk to me like that\" (Leave)", L_Close;
+
+L_Jibber_Cont:
+    mes "[Crastur]";
+    mes "";
+    mes "\"this can be done quickly\"";
+    next;
+    mes "Crastur pauses and checks his papers";
+    mes "\"...\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"The issue here is\"";
+    mes "\"you have literally nothing that is of any value to me\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Although... Since you claim to be a hero and everything...\"";
+    mes "\"I do have a problem with those pirates in Tulimshar. They are ruining my Business\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Bring me proof that you killed all of the pirates!\"";
+    next;
+    menu
+        "\"I have it right here\"", L_Bandana,
+        "\"What kind of proof?\"", L_Pirate_Proof;
+
+
+L_Pirate_Proof:
+    mes "[Crastur]";
+    mes "";
+    mes "\"It is for sure the Pirates give their souls for the rescue of their booty.\"";
+    mes "\"Bring me something unique from their treasure and I will give you those plans in return.\"";
+    set @spants_state, 5;
+    callsub S_Update_Spants;
+    menu
+        "\"I have it with me.\"", L_Bandana,
+        "\"I will try my best.\"", L_Close;
+
+L_Bandana:
+    getinventorylist;
+    if (countitem("Bandana") < 1) goto L_No_Item;
+    if (@spants_chest_open == 0) goto L_Wrong_Item;
+    mes "Crasturs gazes at the bandana in your hand. He scratches his right arm, then he nods";
+    mes "[Crastur]";
+    mes "";
+    mes "\"I am a man of honour, I always pay my debt\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Here, I couldnt get the original Sheet but this copy should do well enough\"";
+    next;
+    mes "\"Crastur hands you a page ripped out of his Almanach that has dotted lines in green and red Ink all over it";
+    next;
+    mes "You put the plans into a hidden pocket";
+    set @spants_state, 6;
+    callsub S_Update_Spants;
+    goto L_Close;
+
+L_No_Item:
+    mes "[Crastur]";
+    mes "";
+    mes "\"What Bandana are we talking about? - Next time you come to me, bring your stuff.\"";
+    goto L_Close;
+
+L_Wrong_Item:
+    mes "Crastur takes a look at the bandana.";
+    next;
+     mes "[Crastur]";
+    mes "THIS IS NOT FROM THE PIRATES FROM HURNSCALD, it is a cheap scam.";
+    emotion EMOTE_PERTURBED;
+    mes "As far as you can tell through his mask he seems very mad";
+    goto L_Insult;
+
+L_Regular:
+    mes "[Crastur]";
+    mes "";
+    mes "\"Well, well, well\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Just look who arrived here\"";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"If this isn't the person that cleared my way to success\"";
+    menu
+        "\"Who? Me?\"", L_Unsure,
+        "\"Yes I killed the Bandit Lord, but not to make room for more scumbags\"", L_Insult,
+        "\"Ugh, no. I have to leave now. Bye.\"", L_Close;
+
+L_Insult:
+    mes "Die " + strcharinfo(0) + "!";
+    heal -10000, 0;
+    emotion EMOTE_VICIOUS;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Oh I am so sorry, my Dagger must have slipped\"";
+    goto L_Close;
+
+L_Unsure:
+    mes "[Crastur]";
+    mes "";
+    mes "\"Yes I hid in a corner while you killed my former master\"";
+    mes "\"When he left I claimed command over Argaeses Rats, Caves and Dungeons.\"";
+    mes "\"Do not underestimate me, I do know a lot more than you might guess\"";
+    goto L_Main;
+
+L_Main:
+    menu
+        "\"What things do you know about me?\"", L_Personal,
+        "\"Do you know anything about the Robberies in Hurnscald?\"", L_Hurnscald,
+        "\"Bye\"", L_Close;
+
+L_Personal:
+    mes "";
+    mes "Crastur digs in a pile of old paper";
+    next;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Ah. Here it is:\"";
+    mes "\"Today you have accomplished tasks that are worth " + DailyQuestPoints + " Hours in the Northern Mines\"";
+    next;
+    if BOSSPOINTS < 1000 goto L_Worm;
+    emotion EMOTE_DEAD;
+    mes "[Crastur]";
+    mes "";
+    mes "\"Also you seem to be quite a hero, it appears you have a record in the Almanach\"";
+    mes "Crastur turns a giant book upside down";
+    mes "\"According to this you have gained " + BOSSPOINTS / 1000 + "thousand Points in the eternal charts already.\"";
+    mes "Crastur shudders";
+    goto L_Close;
+
+L_Worm:
+    emotion EMOTE_SUSPICIOUS;
+    mes "[Crastur]";
+    mes "\"Other than that you have not done anything notable for the mana world.\"";
+    goto L_Close;
+
+L_Hurnscald:
+    emotion EMOTE_FACEPALM;
+    mes "Crastur makes a barking sound that probably was meant as a laugh.";
+    mes "[Crastur]";
+    mes "";
+    mes "\"I am sorry but it is not in my best interest to talk about my business with you.\"";
+    goto L_Close;
+
+S_Update_Spants:
+    set QUEST_WG_state, (QUEST_WG_state & ~(NIBBLE_2_MASK) | (@spants_state << NIBBLE_2_SHIFT));
+    return;
+
+L_Close:
+    set @spants_state, 0;
+    close;
+}