Sagratha reacts to happiness value and hat attack (not functional otherwise)

1 files changed, 31 insertions, 0 deletions

diff --git a/npc/014-5-1/sagratha.txt b/npc/014-5-1/sagratha.txt
index 11b1e5e5a..704beeb6f 100644
--- a/npc/014-5-1/sagratha.txt
+++ b/npc/014-5-1/sagratha.txt
@@ -50,9 +50,40 @@ function	script	SaggyMobCount	{
 }
 
 014-5-1,33,37,0	script	Sagratha	NPC_SAGRATHA,{
+    if (array_find(.SaggyHats, getequipid(EQI_HEAD_TOP)) >= 0)
+        goto L_HatAttack;
+    if (SAGRATHA_SCORE < 0)
+        goto L_Unhappy;
+
     goodbye; end;
 
+L_HatAttack:
+    mesn;
+    mesc l("@@ seems to be trembling with disgust as she stares at your headgear.", .name$);
+    mes l("\"Do you think that is funny?\" she snarls.");
+    next;
+    mesn;
+    mesq l("You have no idea what that poor creature felt!");
+    next;
+    mesn;
+    mesc l("She snaps her fingers.");
+    mesq l("Let me show you...");
+    specialeffect 312, SELF, getcharid(3);
+    heal -300, 0;
+    close;
+
+L_Unhappy:
+    mesn;
+    mesc l("@@ glares at you in anger.", .name$);
+    mesq l("I wonder if you can still sleep after killing those innocent forest creatures!");
+    next;
+    mesn;
+    mesq l("I am sure that they will come back to haunt you in your dreams!");
+    close;
+
 OnInit:
+    setarray .SaggyHats, FluffyHat, MoubooHat, AlphaMoubooHat;
+
     .distance=5;
     npcsit;
     end;