Begin on Arthur's dialogs

1 files changed, 67 insertions, 7 deletions

diff --git a/npc/042-0/arthur.txt b/npc/042-0/arthur.txt
index fefdf434b..e3451e51d 100644
--- a/npc/042-0/arthur.txt
+++ b/npc/042-0/arthur.txt
@@ -15,24 +15,76 @@
     goto L_Prologue;
 
 L_Prologue:
+    mesn l("King Arthur the Micksha");
+    mes l("Hello Adventurer.");
+    next;
+    mesn l("King Arthur the Micksha");
+    mes l("So good you are here. We have a huge problem.");
+    next;
+    npctalk l("JAIL THEM!!");
+    mesn l("King Arthur the Corrupted");
+    mes col(l("JAIL THEM!!"), 9)+l(" -- No, wait!");
+    next;
+    select
+        l("What is going on here?"),
+        l("Your problems are not mine. By the way, you really should consider taking a shower."),
+        l("You are weird, I have to go, sorry.");
+    mes "";
+    switch (@menu) {
+        case 1:
+            goto L_Quest;
+        case 2:
+            if (any(true, true, true, true, false))
+                goto L_Smash;
+            else
+                goto L_Annoyed;
+        case 3:
+            if (!any(true, true, true, true, false))
+                goto L_Smash;
+            else
+                goto L_Annoyed;
+    }
+    close;
+
+L_Quest:
+    goto L_Annoyed; // TODO
+    close;
+
+
+//////////////////////////////////////////////////////////////////////////
+// King manages to control himself
+L_Annoyed:
     npctalk l("Don't bore me.");
+    closeclientdialog;
+    close;
+
+// King loses his coolness.
+L_Smash:
+    npctalk l("MEEEEEERLIN!!! SMASH THEM!!");
+    maptimer(getmap(), 300, instance_npcname(.name$)+"::OnPreSmash");
+    closeclientdialog;
+    close;
+
+OnPreSmash:
+    specialeffect FX_CUPID, AREA, getcharid(3);
+    addtimer(380, instance_npcname(.name$)+"::OnPreSmash");
+    end;
+
+OnSmash:
+    percentheal -100, -100;
     end;
 
+//////////////////////////////////////////////////////////////////////////
 L_Progress:
     // TODO: Victory
-    // TODO: Cooldown | if ($KAMELOT_COOLDOWN[.@g] = gettimeparam(GETTIME_WEEKDAY))
+    // TODO: Cooldown | if ($KAMELOT_COOLDOWN[.@g] == gettimeparam(GETTIME_WEEKDAY))
     npctalk l("What are you still doing here?! GO!!");
     mes l("Read tutorial again?");
     next;
     if (askyesno() == ASK_YES) goto L_Tutorial;
     close;
 
-L_Refusal:
-    mesc l("This man is THE LEGENDARY KING ARTHUR!");
-    mes "";
-    mesc l("I better leave talking to him to the guild Vice Leaders and Master.");
-    close;
-
+//////////////////////////////////////////////////////////////////////////
 L_Tutorial:
     // Update variable
     if ($KAMELOT_COOLDOWN[.@g] != gettimeparam(GETTIME_WEEKDAY))
@@ -64,6 +116,14 @@ L_Tutorial:
     if ($KAMELOT_QUEST[.@g] & 1) goto L_Progress;
     goto L_Prologue;
 
+
+//////////////////////////////////////////////////////////////////////////
+L_Refusal:
+    mesc l("This man is THE LEGENDARY KING ARTHUR!");
+    mes "";
+    mesc l("I better leave talking to him to the guild Vice Leaders and Master.");
+    close;
+
 OnInit:
     .distance=4;
     .sex=G_MALE;