Vampire Abduction Rework

Changed, separated, tested, and adjusted.

aranw/baf/c-abvp.baf → aranw/baf/c-abvamp.baf

@@ -1,4 +1,4 @@
-/* c-abvp.baf */
+/* c-abvamp.baf */
 IF
   True()
 THEN
@@ -27,4 +27,4 @@ THEN
     CreateCreatureObject("VAMPIM01",Myself,0,0,0)
     CreateCreatureObject("VAMPIM01",Myself,0,0,0)
     CreateCreatureObject("VAMPIM01",Myself,0,0,0)
-END
+END

aranw/baf/c-aranvampirecleanse.baf

@@ -3,7 +3,7 @@
 /*  Darious's script to restore the vamped body */
 /* This is Bodhi abduction stuff, extends cleanse.bcs */
 IF 
-  Contains("c-avbody",Myself) 
+  Contains("c-avbody",Myself)  // ~Aran's Body~
   Global("CleanseVampire","AR1401",0) 
 THEN RESPONSE #100 
   SetGlobal("CleanseVampire","AR1401",1) 
@@ -22,6 +22,6 @@ THEN RESPONSE #100
   Wait(1) 
   CreateVisualEffect("SPFLESHS",[2565.1677]) 
   Wait(1) 
-  MoveGlobal("AR1401","c-aran",[2565.1677]) 
+  MoveGlobal("AR1401","c-aran",[2565.1677])
   SetInterrupt(TRUE) 
 END

aranw/baf/c-arnvmp.baf

@@ -0,0 +1,27 @@
+/* Darious: This is Bodhi abduction stuff, vampire Aran's override script */
+
+IF
+	Global("C6BodhiFight","AR0809",1)
+  	Allegiance(Myself,NEUTRAL)
+THEN
+  	RESPONSE #100
+    	Enemy()
+END
+
+IF
+  	Die()
+THEN
+  	RESPONSE #100
+    	SetGlobal("c-aranvamped","GLOBAL",3)
+    	DropInventory()
+    	DestroySelf()
+END
+
+IF
+  	See([PC])
+  	Delay(12)
+  	Allegiance(Myself,ENEMY)
+THEN
+  	RESPONSE #100
+    	ReallyForceSpellDead([PC],VAMPIRE_DOMINATION)
+END

aranw/baf/c-vampai.baf

@@ -0,0 +1,29 @@
+/* vampire ai script for c-arnvmp.cre */
+IF
+	AttackedBy([GOODCUTOFF],DEFAULT)
+	Allegiance(Myself,NEUTRAL)
+THEN
+	RESPONSE #100
+		Enemy()
+END
+
+IF
+	See(NearestEnemyOf(Myself))
+THEN
+	RESPONSE #100
+		AttackReevaluate(NearestEnemyOf(Myself),30)
+END
+
+IF
+	AttackedBy([ANYONE],DEFAULT)
+THEN
+	RESPONSE #100
+		Attack(LastAttackerOf(Myself))
+END
+
+IF
+	True()
+THEN
+	RESPONSE #100
+		RandomWalk()
+END

aranw/baf/c-vampamb.baf

@@ -0,0 +1,33 @@
+/* From Darious: This is Bodhi abduction stuff, extends vampamb.bcs */
+IF
+  Global("CleanseVampire","AR1401",2)
+  Global("c-aranvamped","GLOBAL",3)
+  Name("c-aran",Myself)
+  AreaCheck("AR1401")
+THEN
+  RESPONSE #100
+    SetGlobal("c-aranvamped","GLOBAL",4)
+    DialogueInterrupt(TRUE)
+    ChangeAIScript("c-aran",OVERRIDE)
+END
+
+IF
+  Global("c-aranvamped","GLOBAL",1)
+  Global("RomanceVampire","GLOBAL",0)
+THEN
+  RESPONSE #100
+    SetGlobal("RomanceVampire","GLOBAL",1)
+    Continue()
+END
+
+IF
+  Global("c-aranvamped","GLOBAL",1)
+  Global("RomanceVampire","GLOBAL",1)
+  Global("RomanceVampireTeleport","GLOBAL",0)
+THEN
+  RESPONSE #100
+    SetGlobal("RomanceVampireTeleport","GLOBAL",1)
+    CreateVisualEffectObject("SPDIMNDR",Myself)
+    Wait(2)
+    DestroySelf()
+END

aranw/baf/c-vampar0809.baf

@@ -0,0 +1,8 @@
+/* This is Bodhi abduction stuff, extends ar0809.bcs */
+IF
+  Global("c-aranvamped","GLOBAL",1)
+THEN
+  RESPONSE #100
+    SetGlobal("c-aranvamped","GLOBAL",2)
+    CreateCreature("c-arnvmp",[1473.332],2)
+END

aranw/dialog/c-arandialog.d

@@ -717,7 +717,7 @@ CHAIN BODHIAMB a490
 == C-ARANJ ~[ARAN] Now, look what we be seein' here. A sentimental bloodsucker. There's naught you can do to <CHARNAME>. An' I done told you exactly what I think o' you.~
 == BODHIAMB ~[BODHI] But I wonder, does <CHARNAME> fear your loss? Follow me further and you will lose more than you can imagine. That is a promise, not a threat.~
 END
-IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("C-ABVMP")~ UNSOLVED_JOURNAL ~The Final Battle with Bodhi.
+IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("C-ABVAMP")~ UNSOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 Bodhi appeared in an ambush shortly before I reached her haven, warning me that she was aware of my pursuit and stealing Aran from my side. Before she vanished and unleashed more of her undead creations upon me, Bodhi warned that if I continue I will lose even more than I thought possible. I cannot give up on the Rhynn Lanthorn... but now the life and immortal soul of Aran is at stake, as well!~ EXIT
 
@@ -3690,7 +3690,7 @@ APPEND C-ARANP
 
 /* Plot Talks: Post-Joined File : Hey, an Un-Vampification! Almost as good as finding out you have a little sister-Slayer! */
 
-IF ~Global("c-aranvamped","GLOBAL",4)~ THEN BEGIN a479
+IF ~Global("c-aranvamped","GLOBAL",5)~ THEN BEGIN a479
   SAY ~[ARAN] Sune's Sweet Cheeks... I....~ [c-aws082]
   = ~[ARAN] <CHARNAME>? Bloody hells, it is good to see you. Filthy bloodsuckers had me right out o' my head. I can feel th' queen bitch be gone. Showed her how we do things downtown, eh? An' me, too.~
   /* Plot Talks: Post-Joined File : 1 - Happy to have you back, old boy. Cheerio, stiff upper lip, don't kiss in front of the children. */
@@ -3701,7 +3701,7 @@ Bodhi appeared in an ambush shortly before I reached her haven, warning me that
 EraseJournalEntry(%The Final Battle with Bodhi.
 
 Bodhi has turned Aran into a vampire!  Or... or very nearly.  The process may not have been completed in the short time Bodhi has had him.  Hopefully something can be done or I will have lost him.  Perhaps the elven war sage might know some way of restoration... or Elhan...%)
-SetGlobal("c-aranvamped","GLOBAL",5)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
+SetGlobal("c-aranvamped","GLOBAL",6)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 While I had feared for some time that Bodhi's final revenge on me would be to take away Aran forever, it seems that the information in the lorebook was right...  Amaunator's idol has restored Aran not only to life, but has removed the vampiric curse from him, as well. And more to the point, it appears his language is quite unaffected.~ + a480
   /* Plot Talks: Post-Joined File : 2 - OHMYGODILOVEYOUSOMUCHJUSTHOLDME! */
@@ -3712,7 +3712,7 @@ Bodhi appeared in an ambush shortly before I reached her haven, warning me that
 EraseJournalEntry(%The Final Battle with Bodhi.
 
 Bodhi has turned Aran into a vampire!  Or... or very nearly.  The process may not have been completed in the short time Bodhi has had him.  Hopefully something can be done or I will have lost him.  Perhaps the elven war sage might know some way of restoration... or Elhan...%)
-SetGlobal("c-aranvamped","GLOBAL",5)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
+SetGlobal("c-aranvamped","GLOBAL",6)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 While I had feared for some time that Bodhi's final revenge on me would be to take away Aran forever, it seems that the information in the lorebook was right...  Amaunator's idol has restored Aran not only to life, but has removed the vampiric curse from him, as well. And more to the point, it appears his language is quite unaffected.~ + a481
   /* Plot Talks: Post-Joined File : 3 - Yeah, whatever. You could have warned me you like Goth chicks with fangs. What did she do with you, anyways. */
@@ -3723,7 +3723,7 @@ Bodhi appeared in an ambush shortly before I reached her haven, warning me that
 EraseJournalEntry(%The Final Battle with Bodhi.
 
 Bodhi has turned Aran into a vampire!  Or... or very nearly.  The process may not have been completed in the short time Bodhi has had him.  Hopefully something can be done or I will have lost him.  Perhaps the elven war sage might know some way of restoration... or Elhan...%)
-SetGlobal("c-aranvamped","GLOBAL",5)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
+SetGlobal("c-aranvamped","GLOBAL",6)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 While I had feared for some time that Bodhi's final revenge on me would be to take away Aran forever, it seems that the information in the lorebook was right...  Amaunator's idol has restored Aran not only to life, but has removed the vampiric curse from him, as well. And more to the point, it appears his language is quite unaffected.~ + a482
   /* Plot Talks: Post-Joined File : 4 - Cool. Hey, while you were gone, me and <PLAYER2> decided to shack up and have lots of sex. Sorry about that. You can find the door, right?  */
@@ -3734,7 +3734,7 @@ Bodhi appeared in an ambush shortly before I reached her haven, warning me that
 EraseJournalEntry(%The Final Battle with Bodhi.
 
 Bodhi has turned Aran into a vampire!  Or... or very nearly.  The process may not have been completed in the short time Bodhi has had him.  Hopefully something can be done or I will have lost him.  Perhaps the elven war sage might know some way of restoration... or Elhan...%)
-SetGlobal("c-aranvamped","GLOBAL",5)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
+SetGlobal("c-aranvamped","GLOBAL",6)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 While I had feared for some time that Bodhi's final revenge on me would be to take away Aran forever, it seems that the information in the lorebook was right...  Amaunator's idol has restored Aran not only to life, but has removed the vampiric curse from him, as well. And more to the point, it appears his language is quite unaffected.~ + a483
   /* Plot Talks: Post-Joined File : 5 - I was serious about the whole toy thing. You crossed the line, and attacked me. But this whole saving thing is so I could look in your eyes before I kill you, and watch you die slowly. */
@@ -3745,13 +3745,13 @@ Bodhi appeared in an ambush shortly before I reached her haven, warning me that
 EraseJournalEntry(%The Final Battle with Bodhi.
 
 Bodhi has turned Aran into a vampire!  Or... or very nearly.  The process may not have been completed in the short time Bodhi has had him.  Hopefully something can be done or I will have lost him.  Perhaps the elven war sage might know some way of restoration... or Elhan...%)
-SetGlobal("c-aranvamped","GLOBAL",5)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
+SetGlobal("c-aranvamped","GLOBAL",6)~ SOLVED_JOURNAL ~The Final Battle with Bodhi.
 
 While I had feared for some time that Bodhi's final revenge on me would be to take away Aran forever, it seems that the information in the lorebook was right...  Amaunator's idol has restored Aran not only to life, but has removed the vampiric curse from him, as well. And more to the point, it appears his language is quite unaffected.~ + a484
 END
 
 /* Plot Talks: Post-Joined File : Standard "you tick me off too much to stick around" state */
-IF ~HappinessLT(Myself,-290) ~ THEN BEGIN a20
+IF ~HappinessLT(Myself,-290)~ THEN BEGIN a20
   SAY ~[ARAN] No contracts wi' you. I have had my fill o' killin' babies an' destroyin' worlds.~ [c-aws083]
   IF ~~ THEN JOURNAL ~Whitehand Withdraws
 

aranw/setup-aranw.tp2

@@ -2551,13 +2551,32 @@ COPY_EXISTING ~kpgate02.cre~	 ~override/c-taman.cre~	/*	 thug 3	- L10	male fight
 	SAY NAME1 ~Taman~
 	SAY NAME2 ~Taman~
 	WRITE_BYTE 0x2F 13 /* skin color (light pure silver) */
-	WRITE_BYTE 0x32 4	/* hair color (auburn) */
-	WRITE_ASCIIE 0x248 ~%DEST_RES%~ #8	/* give new override AI script */
-	WRITE_ASCII 0x268 ~WTASIGHT~ #8	/* give new default AI script */
+	WRITE_BYTE 0x32 4 /* hair color (auburn) */
+	WRITE_ASCIIE 0x248 ~%DEST_RES%~ #8 /* give new override AI script */
+	WRITE_ASCII 0x268 ~WTASIGHT~ #8 /* give new default AI script */
 	ADD_CRE_ITEM ~chan04~ #0 #0 #0 IDENTIFIED ARMOR
 	ADD_CRE_ITEM ~shld05~ #0 #0 #0 IDENTIFIED SHIELD
 	ADD_CRE_ITEM ~blun21~ #0 #0 #0 IDENTIFIED WEAPON1 EQUIP
 
+/* Vamp'd Aran's Body */ 
+COPY_EXISTING ~miscbm.itm~ ~override/c-avbody.itm~
+	SAY NAME1 ~Aran's Body~
+	SAY NAME2 ~Aran's Body~
+	SAY UNIDENTIFIED_DESC ~Aran's Body
+
+Aran was captured by Bodhi and infected with vampirism, forcing you to slay him. There may be some way to revive him, though you don't know what it would be.~
+/* Vamp'd Aran */
+COPY_EXISTING ~vampano.cre~ ~override/c-arnvmp.cre~ 
+	REMOVE_CRE_ITEM ~miscbm~
+	SAY NAME1 ~Aran~
+	SAY NAME2 ~Aran Whitehand~
+	WRITE_ASCII 0x34 ~c-aranws~ #8 /* small portrait */
+	WRITE_ASCIIE 0x248 ~%DEST_RES%~ #8	 /* override AI script */
+	WRITE_ASCII 0x268 ~c-vampai~ #8	 /*  default AI script */
+	WRITE_ASCIIE 0x2cc ~%DEST_RES%~ #8 /* dialogue */
+	WRITE_ASCIIE 0x280 ~%DEST_RES%~ #32 /* death variable */
+	ADD_CRE_ITEM ~c-avbody~ #0 #0 #0 IDENTIFIED QITEM1
+
 /* stores */
 
 COPY ~aranw/media/stores/c-awtav1.sto~ ~override~
@@ -2678,10 +2697,10 @@ COPY ~aranw/media/stores/c-awtav2.sto~ ~override~
 	END
 
 /* area creation */
-COPY ~aranw/areas/c-ar01.are~ ~override~
-COPY ~aranw/areas/c-ar01.tis~ ~override~
-COPY ~aranw/areas/c-ar01.mos~ ~override~
-COPY ~aranw/areas/c-ar01.wed~ ~override~
+COPY ~aranw/areas/c-ar01.are~ 	~override~
+COPY ~aranw/areas/c-ar01.tis~ 	~override~
+COPY ~aranw/areas/c-ar01.mos~ 	~override~
+COPY ~aranw/areas/c-ar01.wed~ 	~override~
 COPY ~aranw/areas/c-ar01ht.bmp~ ~override~
 COPY ~aranw/areas/c-ar01lm.bmp~ ~override~
 COPY ~aranw/areas/c-ar01sr.bmp~ ~override~
@@ -2735,10 +2754,10 @@ COPY_EXISTING ar0700.are override
 		fj_vertex_8	 = 3178 + (868 << 16)
 		fj_vertex_9	 = 3175 + (883 << 16)
 	STR_VAR
-		fj_structure_type	 = region
-		fj_name	= Trancar01
-		fj_destination_area = c-ar01
-		fj_destination_name = Trancar01
+		fj_structure_type	= region
+		fj_name			= Trancar01
+		fj_destination_area 	= c-ar01
+		fj_destination_name 	= Trancar01
 	END
 
 /* new area added */
@@ -2857,35 +2876,38 @@ COPY_EXISTING c-ar01.are override
 /* install scripts */
 
 PRINT ~Installing SoA scripts...~
-EXTEND_BOTTOM ~ar2102.bcs~ ~aranw\baf\c-aranunderdarkstart.baf~ // sets up filter indicating drow avatar and spelunking
-
-EXTEND_BOTTOM ~ar2500.bcs~ ~aranw\baf\c-aranunderdarkend.baf~	// shuts down underdark filter
-
-EXTEND_BOTTOM ~bodhiamb.bcs~ ~aranw\baf\c-aranvampire.baf~ // bodhi disappears with aran
-
-EXTEND_BOTTOM ~cleanse.bcs~ ~aranw\baf\c-aranvampirecleanse.baf~ // restoring aran
-
+/* underdark trigger */
+EXTEND_BOTTOM ~ar2102.bcs~ ~aranw\baf\c-aranunderdarkstart.baf~ /* sets up filter indicating drow avatar and spelunking */
+EXTEND_BOTTOM ~ar2500.bcs~ ~aranw\baf\c-aranunderdarkend.baf~	/* shuts down underdark filter */
+/* Vampire Scripty Stuff */
+EXTEND_BOTTOM ~vampamb.bcs~ ~aranw\baf\c-vampamb.baf~ /* create vampired-aran in area; c-arnvmp */
+EXTEND_BOTTOM ~bodhiamb.bcs~ ~aranw\baf\c-aranvampire.baf~ /* bodhi disappears with aran */
+EXTEND_BOTTOM ~ar0809.bcs~ ~aranw\baf\c-vampar0809.baf~ /* create vampired-aran in area; c-arnvmp */
+EXTEND_BOTTOM ~cleanse.bcs~ ~aranw\baf\c-aranvampirecleanse.baf~ /* restoring aran */
+COMPILE ~aranw/baf/c-abvamp.baf~ /* aran vampired cutscene */
+COMPILE ~aranw/baf/c-vampai.baf~ /* vampire ai script for c-arnvmp */
+COMPILE ~aranw/baf/c-arnvmp.baf~ /* vampire override script for c-arnvmp */
+/* Night Talks */
 EXTEND_TOP ~player1d.bcs~ ~aranw\baf\c-nighttalk.baf~ /* adds "goaded" dialog initiation for dreamscripts */
-
 EXTEND_TOP ~player1d.bcs~ ~aranw\baf\c-goaded.baf~ /* adds "goaded" dialog initiation for dreamscripts */
-
-COMPILE ~aranw/baf/c-abvp.baf~ // vampire script
-COMPILE ~aranw/baf/c-arand.baf~ // SoA dreamscript
-COMPILE ~aranw/baf/c-aranx.baf~ // out-of-party combat script
-COMPILE ~aranw/baf/c-restco.baf~ // rest cutscene for camping outside
-COMPILE ~aranw/baf/c-restin.baf~ // rest cutscene for inn
-COMPILE ~aranw/baf/c-restdg.baf~ // rest cutscene for dungeon
-COMPILE ~aranw/baf/c-restpp.baf~ // rest cutscene for pocket plane
-COMPILE ~aranw/baf/c-malcer.baf~ // override script for Malcer
-COMPILE ~aranw/baf/c-oskut.baf~ // override script for Oskut
-COMPILE ~aranw/baf/c-taman.baf~ // override script for Taman
-
-COMPILE EVALUATE_BUFFER ~aranw/baf/c-aran.baf~ // override script
-
-ACTION_IF FILE_EXISTS_IN_GAME ~ar6111.are~ THEN BEGIN // ToB dialog file
+/* Regular Scripts */
+COMPILE EVALUATE_BUFFER ~aranw/baf/c-aran.baf~ /* override script */
+COMPILE ~aranw/baf/c-arand.baf~ /* SoA dreamscript */
+COMPILE ~aranw/baf/c-aranx.baf~ /* out-of-party combat script */
+/* Rest-but-don't-trigger-player1D */
+COMPILE ~aranw/baf/c-restco.baf~ /* rest cutscene for camping outside */
+COMPILE ~aranw/baf/c-restin.baf~ /* rest cutscene for inn */
+COMPILE ~aranw/baf/c-restdg.baf~ /* rest cutscene for dungeon */
+COMPILE ~aranw/baf/c-restpp.baf~ /* rest cutscene for pocket plane */
+/* NPC Scripts */
+COMPILE ~aranw/baf/c-malcer.baf~ /* override script for Malcer */
+COMPILE ~aranw/baf/c-oskut.baf~ /* override script for Oskut */
+COMPILE ~aranw/baf/c-taman.baf~ /* override script for Taman */
+
+ACTION_IF FILE_EXISTS_IN_GAME ~ar6111.are~ THEN BEGIN /* ToB dialog file */
 	PRINT ~Installing ToB scripts...~
-	COMPILE ~aranw/baf/c-aranx.baf~ // default ToB unjoined temporary
 	COMPILE EVALUATE_BUFFER ~aranw/baf/c-arn25.baf~ // joined ToB script
+	COMPILE ~aranw/baf/c-aranx.baf~ // default ToB unjoined temporary
 	COMPILE ~aranw/baf/c-arn25d.baf~ // ToB dreamscript
 	COMPILE ~aranw/baf/c-act218.baf~ // cutscene: wraith summons
 	EXTEND_TOP ~cut218g.bcs~ ~aranw/baf/c-wraithend_cut218g.baf~ // get rid of wraith
@@ -3130,7 +3152,7 @@ BEGIN	~Aran Whitehand, default configuration (Soldier)~
 			WRITE_LONG 0x18 2500000 // current XP 2500000, ToB start
 			WRITE_ASCII 0x2cc ~C-ARN25A~ #8 /* dialogue */
 			WRITE_ASCII 0x280 ~C-ARAN~ #32 /* DV */
-			WRITE_ASCII 0x248 ~C-ARN25~ #8 /*	override script */
+			WRITE_ASCII 0x248 ~C-ARN25~ #8 /* override script */
 	END ELSE BEGIN
 		PRINT ~You do not appear to have ToB installed - skipping c-aran13.cre creation~
 	END
@@ -3148,7 +3170,7 @@ BEGIN	~Aran Whitehand, Mage Dual-Class stats configuration (Tinker)~
 			WRITE_LONG 0x18 2500000 // current XP 2500000, ToB start
 			WRITE_ASCII 0x2cc ~C-ARN25A~ #8 /* dialogue */
 			WRITE_ASCII 0x280 ~C-ARAN~ #32 /* DV */
-			WRITE_ASCII 0x248 ~C-ARN25~ #8 /*	override script */
+			WRITE_ASCII 0x248 ~C-ARN25~ #8 /* override script */
 	END ELSE BEGIN
 		PRINT ~You do not appear to have ToB installed - skipping c-aran13.cre creation~
 	END