feat(trhow): The Real House Wives of Athkatla

Signed-off-by: dark0dave <dark0dave@mykolab.com>

Author: dark0dave

zdbae/baf/ar0700.baf

@@ -0,0 +1,27 @@
+IF
+  Global("ZDAuctionTrigger","GLOBAL",1)
+THEN
+RESPONSE #100
+  SetGlobal("ZDAuctionTrigger","GLOBAL",1)
+  // Actioneer
+  CreateCreature("ZDAUC",[1928.3425],N)
+  // Crowd
+  CreateCreature("NOBLE1",[1748.3319],S)
+  CreateCreature("NOBLE2",[1805.3313],S)
+  CreateCreature("NOBL4",[1874.3320],S)
+  CreateCreature("NOBL5",[1933.3324],S)
+  CreateCreature("NOBL6",[1976.3319],S)
+  CreateCreature("NOBLEW1",[2000. 3319],S)
+  CreateCreature("NOBLEW2",[2126.331],S)
+  Continue()
+END
+
+IF
+  Global("ZDAuctionTrigger","GLOBAL",3)
+THEN
+RESPONSE #100
+  SetGlobal("ZDAuctionTrigger","GLOBAL",4)
+  // Actioneer
+  ActionOverride("ZDAUC",DestroySelf())
+  Continue()
+END

zdbae/baf/zdbaes.baf

@@ -99,7 +99,28 @@ RESPONSE #100
     SetInterrupt(TRUE)
 END
 
-// Boots
+// Boots //
+
+// Timer
+IF
+    InParty("ZDBAE")
+    AreaCheck("AR0400")
+    Global("ZDCreateBootTimer","GLOBAL",0)
+THEN
+RESPONSE #100
+    SetGlobal("ZDCreateBootTimer","GLOBAL",1)
+    SetGlobalTimer("ZDBootTimer","AR0400", 3600)
+END
+
+// Trigger timer
+IF
+    GlobalTimerExpired("ZDBootTimer", "GLOBAL")
+    Global("ZDTriggerBoots","GLOBAL",0)
+THEN
+RESPONSE #100
+    SetGlobal("ZDTriggerBoots","GLOBAL",1)
+    StartDialogNoSet([PC])
+END
 
 /* baeloth has the luxurious lizardskin leapers */
 IF

zdbae/cutscenes/zbcutauc.baf

@@ -0,0 +1,11 @@
+IF
+  True()
+THEN
+  RESPONSE #100
+    CutSceneID(Player1)
+    ClearAllActions()
+    DisplayStringHead("Announcer","For those who value not only elegance but also refinement and sophistication, I present to you these magnificent ") /* ~~ */
+    EndCutSceneMode()
+    AddJournalEntry("You went to an auction with baeloth, who knew shopping could be so fun!",INFO) /* ~~ */
+    ActionOverride("ZDBAE",StartDialogueNoSet([PC]))
+END

zdbae/baf/zbcutrel.baf renamed to zdbae/cutscenes/zbcutrel.baf

@@ -1,5 +1,27 @@
 BEGIN ZDBAEJ
 
+/// Boots ///
+IF ~GLOBAL("ZDTriggerBoots","GLOBAL",1)~
+THEN zbbootbegin
+  SAY ~I've step in gahh, why do you surfacers keep track me through flies filth and feaces! I demand we stop and search for a new pair of boots!~
+  IF ~~
+    IF EDWIN
+      EDWIN: ~(Such simple simians. Can't watch were they are going. Still this might be an opportunity to purchase magical items and increase my power over this lot further.)~
+    IF EDWINA
+      EDWINA ~(Such simple simeons. Can't watch were they are going. But I can't deny, the simple pleasure of shopping. I feel strange, no matter.)~
+    BAELOTH ~You there Edwin is it? Do you happen to have any such divination into where such a dashing dapper Drow as myself could such acquire acute luxury galoshes?~
+    EDWIN ~(Must I indulge this menagerie at every step! The lack knowledge of the finer things in this world is insulting!) Why yes, of course I know of a place. But one such as yourself can not enter.~
+    BAELOTH ~Ahh, I ascertain your allusion. An appropriate allurement is appropriate.~
+    EDWIN ~(Gods save me from this Drow!) Whatever do you mean?!~
+    BAELOTH ~Well my suitably simple "simian", see through these thoughts, and think. What gift of gratuity, is granted to those who give the gift of glamour? All that glitters is gold?~
+    EDWIN ~(He uses my words against me?! I ought to blast him back down to his home!) ... I see what you mean. But for one such as yourself it will be expensive. You are not easy on the eyes.~
+    IF EDWINA
+      BAELOTH ~<WINKS> I see what you mean. However if I am with you I am sure it will be of little consequence!~
+      EDWINA ~(I I, ~
+    IF EDWIN
+      BAELOTH ~I see... ~
+END
+
 /* luxurious lizardskin leapers are equipped */
 IF ~Global("zdbaeleapers","GLOBAL",1)~
 THEN zdbaeleapers
@@ -28,7 +50,9 @@ THEN zdbaefurries
   IF ~~ THEN DO ~SetGlobal("zdbaefurries","GLOBAL",2)~ EXIT
 END
 
+// ------------------------
 // Temple District (AR0900)
+// ------------------------
 // Response: Listen to me, my brothers and sisters... heed my words. We have been chosen as the recipient of a most holy miracle, one that should neither be dismissed nor ignored!
 INTERJECT CSGAAL 0 ZDBAEGAAL0
   == ZDBAEJ IF ~InParty("ZDBAE") !StateCheck("ZDBAE", CD_STATE_NOTVALID)~ THEN

zdbae/dialog/zdbaej.d

@@ -196,20 +196,15 @@ COPY ~%MOD_FOLDER%/cre/zdbae.cre~ ~override/ZDBAE25.CRE~
 // Compile dialog
 COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/dialog~
 
-// Append tob banter with sod banter
-COPY ~%MOD_FOLDER%/dialog/zdbaeb.d~ ~weidu_external/%MOD_FOLDER%/compile/zdbaeb.d~
-  REPLACE_TEXTUALLY ~BEGIN ZDBAEB~ ~~
-  REPLACE_TEXTUALLY ~== ZDBAEB~ ~== ZDBAE25B~
-COPY ~%MOD_FOLDER%/dialog/zdbae25b.d~ ~weidu_external/%MOD_FOLDER%/compile/zdbae25b.d~
-  APPEND_FILE ~weidu_external/%MOD_FOLDER%/compile/zdbaeb.d~
-COMPILE EVALUATE_BUFFER ~weidu_external/%MOD_FOLDER%/compile/zdbae25b.d~
+// Compile cutscene
+COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/cutscene/zbcutrel.baf~
 
 // Scripts
 COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/baf/zdbaes.baf~
 COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/baf/zdbae25s.baf~
 COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/baf/zdbaed.baf~
 COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/baf/zdbae25d.baf~
-COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/baf/zbcutrel.baf~
+
 
 ACTION_IF FILE_EXISTS_IN_GAME ~baldur.bcs~ THEN BEGIN
 EXTEND_TOP ~baldur.bcs~ ~%MOD_FOLDER%/baf/rep.baf~
@@ -235,6 +230,7 @@ UNLESS ~zdbae~
 COPY ~%MOD_FOLDER%/epilogue/zdbae.2da~ ~override/zdbae01.2da~
 REPLACE ~99999~ @60
 
+
 // Spawn Baeloth in the Copper Cornet
 EXTEND_TOP ~AR0406.BCS~ ~%MOD_FOLDER%/baf/ar0406.baf~
   EVALUATE_BUFFER

zdbae/lib/core.tph

@@ -0,0 +1,16 @@
+/// Real Housewives of Athkatla ///
+
+// Create Auctioneer
+COPY_EXISTING ~ANN01.CRE~ ~ZDAUC.CRE~
+  SAY NAME1 ~Auctioneer~
+  SAY NAME2 ~Auctioneer~
+  WRITE_ASCII SCRIPT_OVERRIDE ~zdauc~ #8
+  WRITE_ASCII DEATHVAR ~zdauc~ #32
+  WRITE_ASCII DIALOG ~zdauc~ #8
+
+// Script to Start
+EXTEND_TOP ~AR0700.BCS~ ~%MOD_FOLDER%/baf/ar0700.baf~
+  EVALUATE_BUFFER
+
+// Compile cutscene
+COMPILE EVALUATE_BUFFER ~%MOD_FOLDER%/cutscene/zbcutauc.baf~

zdbae/lib/housewives.tph

@@ -1,7 +1,7 @@
 BACKUP ~weidu_external/backup/zdbae~
 AUTHOR ~dark0dave~
 README ~zdbae/readme.md~
-VERSION ~v0.11~
+VERSION ~v0.12~
 AUTO_EVAL_STRINGS
 
 AUTO_TRA ~zdbae/tra/%s~
@@ -19,3 +19,8 @@ INCLUDE ~zdbae/lib/core.tph~
 BEGIN ~crossmod~ DESIGNATED 1 LABEL ~crossmod~
 REQUIRE_COMPONENT ~zdbae.tp2~ "0" ~Requires main component~
 INCLUDE ~zdbae/lib/crossmod.tph~
+
+// The Real House Wives Of Athkatla
+BEGIN ~housewives~ DESIGNATED 2 LABEL ~housewives~
+REQUIRE_COMPONENT ~zdbae.tp2~ "0" ~Requires main component~
+INCLUDE ~zdbae/lib/housewives.tph~