BEGIN VVVYNONA




//cannibal talk

IF ~Global("Player1CannibalVampireTalk","LOCALS",1)
Global("Player1CannibalVampire","GLOBAL",1)
GlobalGT("VynonaTalk","LOCALS",3)
~ cannibalTalkWas
  SAY ~<CHARNAME>, I told you about taboos of our world. You knew that feeding on another vampire is a absolute crime. And yet you did it.~
=
~I am, Vynona Rembrandt, as an representative of Night Council, judging you to death. The sentence is to be executed immediately.~
  IF ~~ THEN REPLY ~I will not go down without fight!~ GOTO cannibalTalkFight
  IF ~~ THEN REPLY ~I am guilty. Do your execution, Vynona.~ GOTO cannibalTalkGuilty
  IF ~Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~But we were good together, Vynona. You will forget our relations?~ GOTO cannibalTalkRelations
  IF ~Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~But I love you, Vynona.~ GOTO cannibalTalkLove
END


IF ~Global("Player1CannibalVampireTalk","LOCALS",1)
Global("Player1CannibalVampire","GLOBAL",1)
!GlobalGT("VynonaTalk","LOCALS",3)
~ cannibalTalkNotWas
  SAY ~<CHARNAME>, I didn't tell you yet about taboos of our world. But you must know that feeding on another vampire is a absolute crime.~
=
~I, Vynona Rembrandt, as an representative of Night Council, is judging you to death. The sentence is to be executed immediately.~
  IF ~~ THEN REPLY ~I will not go down without fight!~ GOTO cannibalTalkFight
  IF ~~ THEN REPLY ~I am guilty. Do your execution, Vynona.~ GOTO cannibalTalkGuilty
  IF ~Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~But we were feeling good together, Vynona. You will forget our relations?~ GOTO cannibalTalkRelations
  IF ~Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~But I love you, Vynona.~ DO ~SetGlobal("VynonaLoveConfession","LOCALS",1)~ GOTO cannibalTalkLove
END

IF ~~ cannibalTalkFight
SAY ~You are just an animal in disquise. Night Council was wrong about working with you.~
IF ~~ THEN DO ~LeaveParty()
Enemy()
ActionOverride("vvnami",LeaveParty())
ActionOverride("vvnami",Enemy())~   EXIT
END

IF ~~ cannibalTalkGuilty
SAY ~You will not resist, <CHARNAME>?~
IF ~GlobalGT("VynonaHappiness","LOCALS",500)~ THEN GOTO cannibalTalkRelations
IF ~!GlobalGT("VynonaHappiness","LOCALS",500)~ THEN GOTO cannibalTalkSentence
END

IF ~~ cannibalTalkSentence
SAY ~So be the law carried out!~
IF ~~ THEN DO ~ActionOverride(Player1,LeaveParty())
Kill(Player1)~ EXIT
END 

IF ~~ cannibalTalkRelations
SAY ~<CHARNAME>, it was good to be with you. I will miss your company.~
=
~Let's pretend you didn't do anything. I will keep it a secret from Night Council. But you must swear that you will never do this again. Because I really like you.~
IF ~~ THEN REPLY ~I swear I never will feed on our kind again.~ GOTO cannibalTalkPromised
IF ~~ THEN REPLY ~I will gain any power I can reach, and I will do this again.~ GOTO cannibalTalkFight
END

IF ~~ cannibalTalkPromised
SAY ~Don't forget your promise, <CHARNAME>.~
IF ~~ THEN DO ~~ EXIT
END


IF ~~ cannibalTalkLove
SAY ~You what? You love me?~
=
~I love you too, <CHARNAME>.~
=
~Let's pretend you didn't do anything. I will keep it a secret from Night Council. But you must swear that you will never do this again. Because I really like you.~
IF ~~ THEN REPLY ~I swear I never will feed on our kind again.~ GOTO cannibalTalkPromised
IF ~~ THEN REPLY ~I will gain any power I can reach, and I will do this again.~ GOTO cannibalTalkFight
END

///
IF ~Global("Player1CannibalVampireTalk","LOCALS",2)
GlobalGT("Player1CannibalVampire","GLOBAL",1)
~ cannibalTalkFinal
  SAY ~I am, Vynona Rembrandt, as an representative of Night Council, judging you to death for violating our laws and feeding on your kind. The sentence is to be executed immediately.~
IF ~~ THEN DO ~LeaveParty()
Enemy()
ActionOverride("vvnami",LeaveParty())
ActionOverride("vvnami",Enemy())~   EXIT
END


///

IF ~!NumTimesTalkedTo(0)
OR(5)
Race(Player1,LYCANTHROPE)
Race(Player1,GHOUL)
Race(Player1,ZOMBIE)
Race(Player1,VAMPYRE)
Race(Player1,DEMONIC)
~ leaveUnfitCharnameRace
  SAY ~I wasted my time on you. You cannot help our kind, <PRO_RACE>. Goodbye, <CHARNAME>, we will never meet again.~
  IF ~~ THEN DO ~LeaveParty()
EscapeArea()~  EXIT
END


IF ~Global("PhreyaTalk3","LOCALS",1)
	!InParty(Myself)
	!Global("VynonaRomance","LOCALS",2)
	Gender(Player1,FEMALE)
	See(Player1)~ THEN BEGIN PhreyaTalk3M
  SAY ~<CHARNAME>, it was a complete success! I managed to deliver data to Night Counsil. Receipt was not very complex. In a few hours I got a sample of it and drunk it. It tastes like some awful medicine and I didn't feel extasy when drunk it. But my powers were restored and hunger was subdued for about a day. It's from one small sample, can you imagine!~
  IF ~~ THEN GOTO PhreyaTalk32F
END  

IF ~Global("PhreyaTalk3","LOCALS",1)
	!InParty(Myself)
	!Global("VynonaRomance","LOCALS",2)
	Gender(Player1,FEMALE)
	See(Player1)~ THEN BEGIN PhreyaTalk3F
  SAY ~<CHARNAME>, it was a complete success! I managed to deliver data to Night Counsil. Receipt was not very complex. In a few hours I got a sample of it and drunk it. It tastes like some awful medicine and I didn't feel extasy when drunk it. But my powers were restored and hunger was subdued for about a day. It's from one small sample, can you imagine!~
  IF ~~ THEN GOTO PhreyaTalk32M
END  



IF ~Global("PhreyaTalk3","LOCALS",1)
	!InParty(Myself)
	Global("VynonaRomance","LOCALS",2)
	!Gender(Player1,FEMALE)
	See(Player1)~ THEN BEGIN PhreyaTalk3RM
  SAY ~My love, it was a complete success! I managed to deliver data to Night Counsil. Receipt was not very complex. In a few hours I got a sample of it and drunk it. It tastes like some awful medicine and I didn't feel extasy when drunk it. But my powers were restored and hunger was subdued for about a day. It's from one small sample, can you imagine!~
  IF ~~ THEN GOTO PhreyaTalk3R2M
END  

IF ~Global("PhreyaTalk3","LOCALS",1)
	!InParty(Myself)
	Global("VynonaRomance","LOCALS",2)
	Gender(Player1,FEMALE)
	See(Player1)~ THEN BEGIN PhreyaTalk3RF
  SAY ~My love, it was a complete success! I managed to deliver data to Night Counsil. Receipt was not very complex. In a few hours I got a sample of it and drunk it. It tastes like some awful medicine and I didn't feel extasy when drunk it. But my powers were restored and hunger was subdued for about a day. It's from one small sample, can you imagine!~
  IF ~~ THEN GOTO PhreyaTalk3R2F
END  

IF ~~ PhreyaTalk3R2F
   SAY ~I am so happy! Our world and life will begin to change night by night. I can't wait for these changes to happen! And I want you to be near me when we both will feel the changes.~
    ++ ~Return, honey, I need you.~ + notparty1f
 ++ ~Stay here, Vynona, I will return for you.~ + notparty2f
END
	
IF ~~ PhreyaTalk3R2M
   SAY ~I am so happy! Our world and life will begin to change night by night. I can't wait for these changes to happen! And I want you to be near me when we both will feel the changes.~
    ++ ~Return, honey, I need you.~ + notparty1m
 ++ ~Stay here, Vynona, I will return for you.~ + notparty2m
END	

IF ~~ PhreyaTalk32F
   SAY ~I am so happy! Our world and life will begin to change night by night. I can't wait for these changes to happen! So I returned to you to tell you these great news!~
    ++ ~Return to party, Vynona, I need you.~ + notparty1f
 ++ ~Stay here, Vynona, I will return for you.~ + notparty2f
END
	
IF ~~ PhreyaTalk32M
   SAY ~I am so happy! Our world and life will begin to change night by night. I can't wait for these changes to happen! So I returned to you to tell you these great news!~
    ++ ~Return to party, Vynona, I need you.~ + notparty1f
 ++ ~Stay here, Vynona, I will return for you.~ + notparty2f
END	

IF ~See(Player1)
Global("PhreyaTalk1","LOCALS",1)
!AreaCheck("OH7300")
InParty("OHHPHREY")~ THEN BEGIN PhreyaTalk1
  SAY ~Korkorran is an old ally of Night Counsil. Even if we had lost him, you must talk to Phreya. Perhaps we will learn something about his studies.~
  IF ~~ THEN DO ~SetGlobal("PhreyaTalk1","LOCALS",1)~ EXIT
END

IF ~See(Player1) 
Global("PhreyaTalk2","LOCALS",1)~ THEN BEGIN PhreyaTalk2
  SAY ~Do you imagine what we have in our hands now? It's a future of all vampire kind. Give me the scroll, <CHARNAME>, I will go to Night Counsil and give them this information.~
  ++ ~No, Vynona, vampires drink blood of living things. It's a way this is done by nature. We must have this pleasure, it's created for us!~ +phreyaReceiptNo
  ++ ~Take the scroll, Vynona. Finally our journey gave results.~ + phreyaReceiptYes
END

IF ~~ phreyaReceiptNo
  SAY ~Why you do this to me? Did I gave you immortality for no reason?~
  IF ~~ THEN DO ~SetGlobal("VynonaRomance","LOCALS",3)
  SetGlobal("PhreyaTalk2","LOCALS",2)
	IncrementGlobal("VynonaHappiness","LOCALS",-700)~ EXIT
END

IF ~~ phreyaReceiptYes
  SAY ~I will be back to Amkethran tavern in a few days. I think it's about six days from now.~
  IF ~Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~I will wait you here, my love!~ GOTO phreyaReceiptYesR
  IF ~!Global("VynonaRomance","LOCALS",2)~ THEN REPLY ~I will wait you here.~ GOTO phreyaReceiptYesNR  
END

IF ~~ phreyaReceiptYesR
  SAY ~Let's kiss before I will leave. Wait for me, my love, I surely will return!~
  IF ~~ THEN DO ~DestroyItem("VVHSCROL")
  SetGlobal("PhreyaTalk2","LOCALS",2)
  
   SetGlobal("VynonaSentBlood","GLOBAL",1)
    TakePartyItem("VVHSCROL") 
  DestroyItem("VVHSCROL")
  IncrementGlobal("VynonaHappiness","LOCALS",500)
  RealSetGlobalTimer("VynonaReturnsToSaradushTavern","GLOBAL",SIX_DAYS)
  LeaveParty()
  RunAwayFromNoInterrupt(Player1,40)
ActionOverride("vvvynona",MoveBetweenAreas("AR0601",[296.522],SE))
~ EXIT
END

IF ~~ phreyaReceiptYesNR
  SAY ~I hope you will wait for me. I want to see the final of this jorney.~
  IF ~~ THEN DO ~SetGlobal("PhreyaTalk2","LOCALS",2)
  TakePartyItem("VVHSCROL") 
  DestroyItem("VVHSCROL")
     SetGlobal("VynonaSentBlood","GLOBAL",1)
   IncrementGlobal("VynonaHappiness","LOCALS",500)
  RealSetGlobalTimer("VynonaReturnsToAmkethranTavern","GLOBAL",SIX_DAYS)
  LeaveParty()
  RunAwayFromNoInterrupt(Player1,40)
MoveBetweenAreas("AR0601",[296.522],SE)
~ EXIT
END

IF ~See(Player1)
	AreaCheck("BD7000")
	Global("SODTsolakTalk","LOCALS",1)~
THEN BEGIN vampireHunters
   SAY ~Stop, <CHARNAME>! I sence something terrible. There are a vampire hunters in this territory!~
   ++ ~How did you sensed them?~ + vampireHunters1
END

IF ~~ vampireHunters1
   SAY ~They always smell like several vampires. Their armor and weapons are in our blood! They must be hunting someone. We must help!~
   ++ ~We will not help, it's too dangerous!~ + vampireHunters2
   ++ ~Of cause we will help our people.~ + vampireHunters3
END

IF ~~ vampireHunters2
    SAY ~Are you a coward?~
	IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("SODTsolakTalk","LOCALS",2)~ EXIT
END

IF ~~ vampireHunters3
    SAY ~You are my hero!~
	IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",200)
SetGlobal("SODTsolakTalk","LOCALS",2)~ EXIT
END

IF ~AreaCheck("BG0123")
	Global("NamiMeeting","LOCALS",1)	
  InParty("vvnami")
  InParty(Myself)~ THEN BEGIN namiFound
   SAY ~Bingo! I talked to Nami. There is a Bhaal Temple here and Sarevok is in it. His minions have killed Nami's party. But Nami did steal needed relic from it. Our mission here is accomplished. We must kill Sarevok and return.~ 
   ++ ~Let's do this quick.~ +  namiFound2 
END  

IF ~~ namiFound2
  SAY ~Aye, now we have Nami, she has a strength of lioness. Sad, that she also has a mind of new born baby.~
IF ~~ THEN DO ~SetGlobal("NamiMeeting","LOCALS",2)

 ~ EXIT
  END

IF ~See(Player1)
    See("vvnami")
	AreaCheck("BG0123")
	Global("NamiMeeting","LOCALS",0)~
THEN BEGIN namiGreet
   SAY ~Here you are, my Nami. Come here, we have come to save you.~
   ++ ~Is she the one you wanted to search for? She looks like ghoul, not a vampire.~ + namiGreet1
END

IF ~~ namiGreet1
SAY ~She is surely a vampire. I made her. But I am a young vampiress, my powers are still not fully controllable by me. I made her half-vampire.~
 IF ~~ THEN GOTO namiGreet2
END

IF ~~ namiGreet2
SAY ~She was a rogue specialising on stealing gold from pirates and bandits. One pirate crew got her, she was raped, tortured and left to die. I saved her and converted her. But her brain was damaged by tortures and she is now more like ghoul. She can't speak and talks to me only mentally.~
 IF ~~ THEN GOTO namiGreet3
END

IF ~~ namiGreet3
SAY ~I still love her. She is the first person I've granted immortality. We must take her with us. I'll talk to her and will know, did she managed to get in temple and get a relic.~
 IF ~~ THEN DO ~SetGlobal("NamiMeeting","LOCALS",1)
 IncrementGlobal("VynonaHappiness","LOCALS",300)~ EXIT
END

IF ~See(Player1)
	AreaCheck("BG0123")
    Global("BG1MissionBriefing","LOCALS",2)~
THEN BEGIN briefingMission0123
   SAY ~We are finally here, in the underground town of Bhaal. We must search for Nami before going to fight Sarevok!~
IF ~~ THEN DO ~SetGlobal("BG1MissionBriefing","LOCALS",3)~ EXIT   
END

IF ~See(Player1)
    Global("BG1MissionBriefing","LOCALS",1)~
THEN BEGIN briefingMission1
   SAY ~I will now instruct you about our mission we must complete.~
   ++ ~I am all attention.~ +    briefingMission11 
END

IF ~~ briefingMission11
SAY ~We must get into Baldur's Gate. When we are in, we must search for an entrance into undergound city.~
++ ~Underground city?!~ + briefingMission12
END

IF ~~ briefingMission12
  SAY ~In the caves under Baldurs Gate there are a ruins of ancient underground city, that was built by bhaalists many centuries ago. Now it is a place only for undead. Like you and me. There is a Grand Temple Of Bhaal.~
  IF ~~ GOTO briefingMission13
END
	

IF ~~ briefingMission13
  SAY ~There is a Grand Temple Of Bhaal. I must retrieve some vampire relic from it. There was another group of vampires sent to retrieve it. I am worried about them - they didn't return.~
  ++ ~Someone you know?~ +  briefingMission14
END
		
		IF ~~ briefingMission14
  SAY ~There is a girl with awful character, Nami. I was the one that converted her. We must find her if she is alive, or her heart, if she is dead.~
  IF ~~ GOTO briefingMission15
END
	
		IF ~~ briefingMission15
  SAY ~There is a girl with awful character, Nami. I was the one that converted her. We must find her if she is alive, or her heart, if she is dead.~
  IF ~~ THEN DO ~SetGlobal("BG1MissionBriefing","LOCALS",2)~ EXIT
END
		
	//romantic talk 1
IF ~See(Player1)
	Global("VynonaRomanceTalkInit","LOCALS",1)
	!Global("VynonaRomance","LOCALS",3)
	//GlobalGT("VynonaHappiness","LOCALS",500)
	//GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",1)
	Gender(Player1,MALE)~ THEN BEGIN LoveTalkM1
SAY ~I was like a teacher and bodyguard to you. But I want to discuss more personal matters. Do you love anyone or have in mind?~
 ++ ~No I don't have anyone. Do you want to extend our relationship? I could be your only one. We are already closer than anyone else in this world. You have my blood.~ + loveTalk1M1
 ++ ~Yes, I have someone.~ + loveTalk1M2
 ++ ~It's not your business.~ + loveTalk1M3
END

IF ~~ loveTalk1M1
  SAY ~Yes, I want to extend our relationship. I want you to be my man. I want to spend our dayly times doing pleasuring things together. I am tired of loneliness.~
  ++ ~Than I'll be your man and protect you from now on.~ + loveTalk1M4
  ++ ~No, I'll decline your offer.~ + loveTalk1M3
END

IF ~~ loveTalk1M2
  SAY ~Forgive me, <CHARNAME>. I was swept away with my fantasies. You sure have a right to choose your beloved. I will return to our mission then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-200)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END


IF ~~ loveTalk1M3
  SAY ~Forgive me, <CHARNAME>. I was swept away with my fantasies.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-300)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk1M4
  SAY ~You will not regret!~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-300)
SetGlobal("VynonaRomance","LOCALS",2)~ EXIT
END

IF ~See(Player1)
Global("VynonaRomance","LOCALS",2)
	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",1)
OR(2)
	Gender(Player1,FEMALE)
Gender(Player1,BOTH)~ THEN BEGIN LoveTalkF1
SAY ~I was like a teacher and bodyguard to you. But I want to discuss more personal matters. Do you love anyone or have in mind?~
 ++ ~No I don't have anyone. Do you want to extend our relationship? I could be your partner and a friend in eternity. We are already closer than anyone else in this world. You have my blood.~ + loveTalk1F1
 ++ ~Yes, I have someone.~ + loveTalk1F2
 ++ ~It's not your business.~ + loveTalk1F3
END

IF ~~ loveTalk1F1
  SAY ~Yes, I want to extend our relationship. I have failed with men, maybe I will be more happier with you.~
  ++ ~Than I'll be by your side.~ + loveTalk1F4
  ++ ~No, I'll not go into this relations with you.~ + loveTalk1F3
END

IF ~~ loveTalk1F2
  SAY ~Forgive me, <CHARNAME>. I was swept away with my fantasies. You sure have a right to choose your beloved. I will return to our mission then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-200)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END


IF ~~ loveTalk1F3
  SAY ~Forgive me, <CHARNAME>. I was swept away with my fantasies.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-300)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk1F4
  SAY ~You will not regret!~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",300)
//incrementGlobal("VynonaRomanceTalk","LOCALS",1)
SetGlobal("VynonaRomance","LOCALS",2)~ EXIT
END


// romantic talk 2

IF ~See(Player1)
	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",2)
	Gender(Player1,FEMALE)
	~ THEN BEGIN LoveTalk2F2
SAY ~Do you prefer women? Or I just captured your heart, and in ordinary flow of live you'd get married on man and made children?~
IF ~~ THEN REPLY ~I always were this way.~ DO ~SetGlobal("Player1Homosexual","LOCALS",1)~ GOTO loveTalk2F1
 ++ ~No, I was dreaming about prince on white horse. You have changed my love drastically.~ + loveTalk2F2
 ++ ~I am bisexual, man or woman don't matter to me.~ + loveTalk2F3
 ++ ~We must stop such talks.~ + loveTalk1F3
END

IF ~See(Player1)
	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",2)

	Gender(Player1,BOTH)~ THEN BEGIN LoveTalk2B2
SAY ~Do you prefer women? Or men? I didn't known any hermaphrodite before.~
IF ~~ THEN REPLY ~I prefer women.~ DO ~SetGlobal("Player1Homosexual","LOCALS",1)~ GOTO loveTalk2F1
 ++ ~I preferred men, but you are an exception.~ + loveTalk2F2
 ++ ~I am bisexual, man or woman don't matter to me.~ + loveTalk2F3
 ++ ~We must stop such talks.~ + loveTalk1F3
END

IF ~~ loveTalk2F1
  SAY ~Then you could teach me how I must be with you. It's a new thing to me.~
  ++ ~Let's start right now. Undress.~ + loveTalk2F4
  ++ ~I will teach you these things.~ + loveTalk2F5
    ++ ~I was joking.~ + loveTalk1F3  
END

IF ~~ loveTalk2F2
  SAY ~If you think, that two women's sex is something wrong, you just say and we will cancel it.~
  ++ ~Let's start right now. Undress.~ + loveTalk2F4
  ++ ~There can't be anything wrong. I will teach you.~ + loveTalk2F5
  ++ ~Yes, we better cancel this affair at beginning.~ + loveTalk2F3
   ++ ~We must stop such talks.~ + loveTalk1M3

END

IF ~~ loveTalk2F3
  SAY ~You are a wanton, I suppose. I will try and maybe you will like to have sex with me.~
IF ~~ THEN DO ~//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
IncrementGlobal("VynonaHappiness","LOCALS",30)~ EXIT
END


IF ~~ loveTalk2F5
  SAY ~We will exchange roles and I will be a thankful student.~
IF ~~ THEN DO ~//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
IncrementGlobal("VynonaHappiness","LOCALS",50)~ EXIT
END

IF ~~ loveTalk2B2
  SAY ~If you think, that our sex is something wrong, you just say and we will cancel it.~
  ++ ~Let's start right now. Undress.~ + loveTalk2F4
  ++ ~There can't be anything wrong. I will teach you.~ + loveTalk2F5
  ++ ~Yes, we better cancel this affair at beginning.~ + loveTalk2F3
   ++ ~We must stop such talks.~ + loveTalk1M3

END

IF ~~ loveTalk2F4
  SAY ~I am not ready yet, <CHARNAME>.~
IF ~~ THEN DO ~
IncrementGlobal("Happiness","LOCALS",150)
 // IncrementGlobal("SexTimes","LOCALS",1)
//           AdvanceTime(TWO_HOURS)
//ChangeStat(Myself,FATIGUE,5,ADD)
//ChangeStat(Player1,FATIGUE,5,ADD)
//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
~ EXIT
END

IF ~See(Player1)
	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",2)
	Gender(Player1,MALE)~ THEN BEGIN LoveTalk2M2
SAY ~Do you prefer women? Or in ordinary flow of life you would find some male partner?~
 ++ ~Of cause I always was heterosexual!~ + loveTalk2M1
IF ~~ THEN REPLY ~No, I was dreaming about prince on white horse. You have changed my preferations drastically.~ DO ~SetGlobal("Player1Homosexual","LOCALS",1)~ GOTO loveTalk2M2
 ++ ~I am bisexual, man or woman don't matter to me.~ + loveTalk2M3
 ++ ~I am homo, and I will not have relations with you.~ + loveTalk1M3
END

IF ~~ loveTalk2M1
  SAY ~I am glad to hear this!~
  ++ ~Okay, let's start right now. Undress.~ + loveTalk2M4
  ++ ~I want only you.~ + loveTalk2M5
  ++ ~I was joking.~ + loveTalk1M3   
END

IF ~~ loveTalk2M2
  SAY ~If you think, that there is something wrong, you just say and we will cancel it.~
  ++ ~There can't be anything wrong.~ + loveTalk2M5
  ++ ~Yes, we better cancel this affair at beginning.~ + loveTalk2M3  
END

IF ~~ loveTalk2M3
  SAY ~You are a libertine, I suppose. I will try and maybe you will like me.~
IF ~~ THEN DO ~//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
IncrementGlobal("VynonaHappiness","LOCALS",30)
~ EXIT
END



IF ~~ loveTalk2M5
  SAY ~I hope you are not lying to me.~
IF ~~ THEN DO ~//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
IncrementGlobal("VynonaHappiness","LOCALS",70)~ EXIT
END

//IF ~~ loveTalk2M4
 // SAY ~Come closer!~
//IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",50)
//  IncrementGlobal("SexTimes","LOCALS",1)
//           AdvanceTime(EIGHT_HOURS)
//ChangeStat(Myself,FATIGUE,12,ADD)
//ChangeStat(Player1,FATIGUE,12,ADD)
//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)~ EXIT
//END

IF ~~ loveTalk2M4
  SAY ~I am not ready yet, <CHARNAME>.~
IF ~~ THEN DO ~
IncrementGlobal("Happiness","LOCALS",150)
 // IncrementGlobal("SexTimes","LOCALS",1)
//           AdvanceTime(TWO_HOURS)
//ChangeStat(Myself,FATIGUE,5,ADD)
//ChangeStat(Player1,FATIGUE,5,ADD)
//IncrementGlobal("VynonaRomanceTalk","LOCALS",1)
~ EXIT
END

//romantic talk 3

IF ~See(Player1)
	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",3)~ THEN BEGIN LoveTalk3
SAY ~Tell me, <CHARNAME>, what do you prefer in women?~
 ++ ~Intelligence.~ + loveTalk3_1
 ++ ~Breasts.~ + loveTalk3_2
 ++ ~Legs.~ + loveTalk3_4
 ++ ~Hips.~ + loveTalk3_3
 ++ ~Obedience.~ + loveTalk3_5
 ++ ~Indepedence.~ + loveTalk3_6
 ++ ~Shut up, Vynona, I don't want to talk with you about it.~ + loveTalk3_7
END


IF ~~ loveTalk3_7
SAY ~What do you hide from me, <CHARNAME>?~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END


IF ~~ loveTalk3_5
SAY ~I am not a very obedient person. If you will think, that I will change and become your shadow, you are mistaken.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END


IF ~~ loveTalk3_6
SAY ~Any vampire sooner or later learns how to be independant. Or dies.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",50)~ EXIT
END

IF ~~ loveTalk3_1
  SAY ~Am I intelligent enough for the likes of you?~
  ++ ~You are totally in my taste.~ + loveTalk3_2_1
  ++ ~I have met a more clever women.~ + loveTalk3_2_2
  ++ ~Intelligence is not about you.~ + loveTalk3_2_3
  ++ ~You are an evil stoopid bitch.~ + loveTalk3_2_4
END

IF ~~ loveTalk3_2_1
SAY ~I am glad to hear that, <CHARNAME>.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",150)~ EXIT
END

IF ~~ loveTalk3_2_2
SAY ~I am able to evaluate my assets realistically, <CHARNAME>. There is always someone better.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-100)~ EXIT
END

IF ~~ loveTalk3_2_3
SAY ~And that was insulting.~
=
~I bet that I have read more books that you are in your dusty Candlekeep.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-100)~ EXIT
END

IF ~~ loveTalk3_2_4
SAY ~At least you were honest.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-500)
SetGlobal("VynonaRomance","LOCALS",3)
~ EXIT
END


IF ~~ loveTalk3_2
  SAY ~And what about my breasts?~
=
~(With these words Vynona strips and shows you her breasts.)~
  ++ ~They are totally in my taste.~ + loveTalk3_2_8
  ++ ~I prefer absense of breasts.~ + loveTalk3_2_6
  ++ ~I prefer more compact breasts.~ + loveTalk3_2_6
  ++ ~I prefer bigger breasts.~ + loveTalk3_2_6
  ++ ~Two big pieces of dead meat.~ + loveTalk3_2_9
  ++ ~Vynona, stop doing it!~ + loveTalk3_2_7
END

IF ~~ loveTalk3_2_9
  SAY ~Scum!~
=
~(Vynona dresses back.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-1500)
SetGlobal("VynonaRomance","LOCALS",3)
~ EXIT
END

IF ~~ loveTalk3_3
  SAY ~And what about my hips?~
=
~(With these words Vynona strips and shows most part of her hips, so you see her white pants.)~
  ++ ~They are totally in my taste.~ + loveTalk3_2_8
  ++ ~I prefer man-like hips.~ + loveTalk3_2_6
  ++ ~I prefer more curvy hips.~ + loveTalk3_2_6
  ++ ~I see dead meat.~ + loveTalk3_2_9
  ++ ~Vynona, stop doing it!~ + loveTalk3_2_7
END

IF ~~ loveTalk3_4
  SAY ~And what about my legs?~
=
~(With these words Vynona strips and bends one of her long legs to the side.)~
  ++ ~They are totally in my taste.~ + loveTalk3_2_8
  ++ ~I prefer short legs.~ + loveTalk3_2_6
  ++ ~I prefer more long legs.~ + loveTalk3_2_6
  ++ ~I prefer fat legs.~ + loveTalk3_2_6
  ++ ~Dead ham on the bone.~ + loveTalk3_2_9
  ++ ~Vynona, stop doing it!~ + loveTalk3_2_7
END

IF ~~ loveTalk3_2_8
SAY ~I am glad to hear that, <CHARNAME>.~
=
~(Vynona dresses back.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",150)~ EXIT
END


IF ~~ loveTalk3_2_6
SAY ~That is the way I was born, <CHARNAME>. I will not excuse for this.~
=
~(Vynona dresses back.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END

IF ~~ loveTalk3_2_7
SAY ~I needed to know this.~
=
~(Vynona dresses back.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-20)~ EXIT
END


//romantic talk 4

IF ~See(Player1) 
	Global("VynonaRomanceTalkInit","LOCALS",1)
    Gender(Player1,MALE)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",4)~ THEN BEGIN LoveTalk4M
SAY ~<CHARNAME>, did you had sex with women, and how many times? I bet that in Candlekeep it's more common to be a homosexual.~
 ++ ~Why you ask it suddently?~ + loveTalk4_M
 ++ ~Yes, I was a homo and slept with monks.~ + loveTalk4_15
 ++ ~Shut up, Vynona, I don't want to talk with you about it.~ + loveTalk4_7
END


IF ~~ loveTalk4_15
SAY ~ I plan to show you, what you miss, rejecting sex with women.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",50)~ EXIT
END


IF ~See(Player1) 
    !Gender(Player1,MALE)
		Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",4)~ THEN BEGIN LoveTalk4F
SAY ~<CHARNAME>, did you had sex with women, and how many times? I bet that in Candlekeep there is hard to find another lesbian.~
 ++ ~Why you ask it suddently?~ + loveTalk4_F
 ++ ~Yes, I was a homo and slept with monks.~ + loveTalk4_21
 ++ ~Shut up, Vynona, I don't want to talk with you about it.~ + loveTalk4_7
END

IF ~~ loveTalk4_21
SAY ~But do you want to have sex with me?~
IF ~~ THEN REPLY ~Yes, I want.~ GOTO loveTalk4_15
IF ~~ THEN REPLY ~No, I prefer males.~ GOTO loveTalk4_8
END

IF ~~ loveTalk4_F
SAY ~You must understand, that I lived a long life, but there was only one man, and I must prepare in mind to begin a sexual life with another.~
=
~So I need to know, are you a skilled lesbian, or you just made it up.~
IF ~~ THEN REPLY ~I am a virgin.~ GOTO loveTalk4_9
IF ~~ THEN REPLY ~(LIE) I am a virgin.~ GOTO loveTalk4_10
IF ~~ THEN REPLY ~One woman.~ GOTO loveTalk4_11
IF ~~ THEN REPLY ~Two women.~ GOTO loveTalk4_12
IF ~~ THEN REPLY ~Three women.~ GOTO loveTalk4_13
IF ~~ THEN REPLY ~I lost a count.~ GOTO loveTalk4_14

IF ~~ THEN REPLY ~Shut up, Vynona, I don't want to talk with you about it.~ + loveTalk4_7
END

IF ~~ loveTalk4_M
SAY ~You must understand, that I lived a long life, but there was only one man, and I must prepare in mind to begin a sexual life with another.~
=
~So I need to know, do you have an experience and can you measure my skills and knowledge adequately?~
IF ~~ THEN REPLY ~I am a virgin.~ GOTO loveTalk4_9
IF ~~ THEN REPLY ~(Lie) I am a virgin.~ GOTO loveTalk4_10
IF ~~ THEN REPLY ~One woman.~ GOTO loveTalk4_16
IF ~~ THEN REPLY ~Two women.~ GOTO loveTalk4_17
IF ~~ THEN REPLY ~Three women.~ GOTO loveTalk4_18
IF ~~ THEN REPLY ~I lost a count.~ GOTO loveTalk4_14

IF ~~ THEN REPLY ~Shut up, Vynona, I don't want to talk with you about it.~ + loveTalk4_7
END

IF ~~ loveTalk4_11
SAY ~So I must prepare to compete with just one woman.~
=
~It doesn't sound impossible.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",150)~ EXIT
END

IF ~~ loveTalk4_12
SAY ~So I must prepare to compete with just two women.~
=
~It doesn't sound too impossible.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",100)~ EXIT
END

IF ~~ loveTalk4_13
SAY ~So I must prepare to compete with harem.~
=
~It almost impossible.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END

IF ~~ loveTalk4_16
SAY ~So I will be learning from your experience with one woman.~
=
~It doesn't sound impossible.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",150)~ EXIT
END

IF ~~ loveTalk4_17
SAY ~So I will be learning from your experience with two women.~
=
~It doesn't sound too impossible.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",100)~ EXIT
END

IF ~~ loveTalk4_18
SAY ~So I will be learning from your experience with three women.~
=
~I could not catch up to them.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END

IF ~~ loveTalk4_14
SAY ~So I must prepare that you will have sex with me and than forget me easily.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-150)~ EXIT
END

IF ~~ loveTalk4_10
SAY ~i don't believe you, <CHARNAME>.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-100)~ EXIT
END

IF ~~ loveTalk4_9
SAY ~Fantastic, <CHARNAME>. Please, for some time keep it that way for me.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",230)~ EXIT
END

IF ~~ loveTalk4_8
SAY ~I needed to know this.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-130)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk4_7
SAY ~I needed to know this.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-30)~ EXIT
END

//talk 5 
IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",5)~ THEN BEGIN LoveTalk5
SAY ~<CHARNAME>, I want to ask you how you expect our first sex to begin.~
IF ~~ THEN REPLY  ~Vynona, stop these stoopid questions. Just undress and show me, how long we can do it.~ + loveTalk5
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
 ++ ~Shut up, Vynona, There will be no sex between us.~ + loveTalk5_3
END

IF ~~ loveTalk5_3
SAY ~I will not beg you for sex, <CHARNAME>. Let's return to my mission then.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-230)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk5_2
SAY ~(Vynona opens her mouth and stands for a few seconds with stoopid expression on her face.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-170)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk5
SAY ~But I am not ready yet.~
IF ~~ THEN REPLY ~Nobody is ready for sex, Vynona. We will do it now, or never!~ GOTO loveTalk5_9
IF ~~ THEN REPLY ~Then we will wait.~ GOTO loveTalk5_12
END

IF ~~ loveTalk5_12
SAY ~Very good, <CHARNAME>, we will wait.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",150)~ EXIT
END


IF ~~ loveTalk5_9
SAY ~But I am really not ready, <CHARNAME>.~
IF ~~ THEN REPLY ~Vynona, this is getting lame. Sex is like a sport, you go and make it, not pickling and talking about.~ GOTO loveTalk5_6
IF ~~ THEN REPLY ~Then we will wait.~ GOTO loveTalk5_12
END


IF ~~ loveTalk5_6
SAY ~Excuse me, that I must set myself up to anything before doing it!~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",70)~ EXIT
END

//talk 6
IF ~See(Player1) 
	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaRomanceTalk","LOCALS",6)~ THEN BEGIN LoveTalk6
SAY ~(Vynona sits on her coffin and thinks about something.)~
=
~(This situation about preparing sex is like some high level occult ritual...)~
=
~(It is getting nowhere. Talks, only talks.)~

IF ~~ THEN REPLY  ~(Come close and kiss her neck.)~ GOTO loveTalk6_3
IF ~~ THEN REPLY  ~(Come close and grab her breast under her clothes.)~ GOTO loveTalk6_4
++ ~(Leave her alone.)~ + loveTalk6_2
 ++ ~Vynona, There will be no sex between us.~ + loveTalk6_1
END

IF ~~ loveTalk6_2
SAY ~(You silently walk away from Vynona.)~
IF ~~ THEN DO ~~ EXIT
END

IF ~~ loveTalk6_5
SAY ~(You silently walk away from Vynona.)~
IF ~~ THEN DO ~~ EXIT
END

IF ~~ loveTalk6_4
SAY ~What are you doing, <CHARNAME>?!~
=
~(Vynona's face begins to became red from pale. She cuts a wound on your arm with her claws and tries to stand up.)~
IF ~~ THEN REPLY ~(Pain will pass. Begin to undress her.)~ GOTO loveTalk6_7L
IF ~~ THEN REPLY ~Sorry, Vynona, I got carried away with lust.~ GOTO loveTalk6_7
IF ~~ THEN REPLY ~Ah, bitch, I'll kill you for that!~ GOTO  loveTalk6_6
END

IF ~~ loveTalk6_7
SAY ~So you lust me?~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",60)~ GOTO loveTalk6_9
END


IF ~~ loveTalk6_7L
SAY ~So you lust me this much?~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",120)~ GOTO loveTalk6_9
END

IF ~~ loveTalk6_9
SAY ~(Vynona stops resisting and helps you with her and your dress.)~
IF ~Gender(Player1,MALE)~ THEN GOTO loveTalk6_10M
IF ~Gender(Player1,FEMALE)~ THEN GOTO loveTalk6_10F
IF ~Gender(Player1,BOTH)~ THEN GOTO loveTalk6_10B
END

IF ~~ loveTalk6_10M
SAY ~(You feel that the blood of your victims begins to make your timber rise.)~
=
~(Soon it becomes like wood or even stone.)~
=
~(And then you are toppled on the ground by Vynona, and she saddles you.)~
=
~(And then a long ride begins, full of passion and extasy.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",240)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(FIVE_HOURS)
ChangeStat(Player1,FATIGUE,40,ADD)
ChangeStat(Myself,FATIGUE,45,ADD)
FadeFromColor([30.0],0)~ EXIT
END


IF ~~ loveTalk6_10F
SAY ~(You feel that the blood of your victims begins to make your nibbles and crotch swelling.)~
=
~(You sweep Vynona to the ground and begin your first try to make her feel good.)~
=
~(First steps are uncertain. But then you begin to feel yourself a professional, as Vynona begins to make first steps into lesbian sex.)~
=
~(And then a long sex begins, full of passion and extasy.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",130)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(FIVE_HOURS)
ChangeStat(Player1,FATIGUE,20,ADD)
ChangeStat(Myself,FATIGUE,25,ADD)
FadeFromColor([30.0],0)~ EXIT
END

IF ~~ loveTalk6_10B
SAY ~(You feel that the blood of your victims begins to make your timber rise and your nibbles and crotch swelling.)~
=
~(Soon your timber becomes like wood or even stone.)~
=
~(And then you are toppled on the ground by Vynona, and she saddles you.)~
=
~(And then a long ride begins, full of passion and extasy. When you exchange roles and poses.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",320)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(SIX_HOURS)
ChangeStat(Player1,FATIGUE,50,ADD)
ChangeStat(Myself,FATIGUE,55,ADD)
FadeFromColor([30.0],0)~ EXIT
END

IF ~~ loveTalk6_6
SAY ~(Vynona jumps away from you and hisses.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-220)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ loveTalk6_3
SAY ~Ah, It's you, <CHARNAME>. Want to suck my blood?~
IF ~~ THEN REPLY  ~(Start undressing her.)~ + loveTalk6_9
IF ~~ THEN REPLY  ~(Grab her breast with your hand.)~ + loveTalk6_4
IF ~~ THEN REPLY ~(Leave her alone.)~ GOTO loveTalk6_2
END

IF ~~ loveTalk6_1
SAY ~(Vynona opens her mouth and looks on you for a few seconds with stoopid expression on her face.)~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-170)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

//romantic talk 7

IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	!Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",6)
	Global("FirstReadyTime","LOCALS",0)~ THEN BEGIN LoveTalk7
SAY ~<CHARNAME>, I am ready for sex, get to my coffin.~
IF ~~ THEN REPLY  ~At last.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO loveTalk7_8
IF ~~ THEN REPLY ~I am not ready for sex, Vynona.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO  loveTalk7_2
IF ~~ THEN REPLY ~There will be no sex between us, Vynona. I have choosen another.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO  loveTalk5_2
IF ~~ THEN REPLY ~Shut up, Vynona, There will be no sex between us.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO loveTalk5_3
END

IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	!Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",6)
	Global("FirstReadyTime","LOCALS",1)~ THEN BEGIN LoveTalk7
SAY ~<CHARNAME>, are you ready to be with me? I am anxious.~
IF ~~ THEN REPLY  ~At last.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO loveTalk7_8
IF ~~ THEN REPLY ~I am not ready for sex, Vynona.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~  GOTO loveTalk7_2
IF ~~ THEN REPLY ~There will be no sex between us, Vynona. I choose another.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO  loveTalk5_2
IF ~~ THEN REPLY ~Shut up, Vynona, There will be no sex between us.~ DO ~SetGlobal("FirstReadyTime","LOCALS",1)~ GOTO loveTalk5_3
END

IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	Global("Player1HadSexWithVynona","LOCALS",1)
	!Global("ConstantSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
GlobalGT("VynonaRomanceTalk","LOCALS",6)
	//Global("VynonaRomanceTalk","LOCALS",7)
	~ THEN BEGIN LoveTalk7
SAY ~<CHARNAME>, what do you think about last time?~
IF ~Gender(Player1,MALE)~ THEN REPLY  ~Have been better.~ DO ~IncrementGlobal("Happiness","LOCALS",-100)~ GOTO loveTalk7_1
IF ~!Gender(Player1,MALE)~ THEN REPLY  ~Have been better.~ GOTO loveTalk7_9
IF ~~ THEN REPLY  ~It was greatest sex in my life.~ DO ~IncrementGlobal("Happiness","LOCALS",70)~ GOTO loveTalk7_3
//++ ~I am not ready for sex, Vynona.~ + loveTalk7_2
++ ~There will be no sex between us, Vynona. I choose another.~ + loveTalk5_2
 ++ ~Shut up, Vynona, There will be no sex between us.~ + loveTalk5_3
END

IF ~~ loveTalk7_1
SAY ~Have been better?! Have been better?!~
=
~You don't have an experience to compare!~
++ ~Calm down, Vynona. There is always a way to improving. Let's repeat it again.~ + loveTalk7_8
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
 ++ ~There will be no sex between us.~ + loveTalk5_3
END

IF ~~ loveTalk7_9
SAY ~I am trying to learn from you. I promise I will get better each time.~
++ ~Let's repeat it again.~ + loveTalk7_8
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
 ++ ~There will be no sex between us.~ + loveTalk5_3
END

IF ~~ loveTalk7_2
SAY ~Very good, <CHARNAME>, we will wait.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END

IF ~~ loveTalk7_3
SAY ~Yes, I know that I am the best.~
=
~Do you want to repeat?~
++ ~I want to check something new.~ + loveTalk7_5
++ ~Of cause.~ + loveTalk7_5
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
END


IF ~~ loveTalk7_5
SAY ~Than undress. We need to consolidate and improve our technics.~
IF ~~ THEN DO ~~ GOTO loveTalk7_8
END


IF ~~ loveTalk7_8
SAY ~(Vynona and you undress and soon get swallowed by  a whirlpool of lust.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",220)
  IncrementGlobal("VynonaSex","LOCALS",1)
  SetGlobal("ConstantSexWithVynona","LOCALS",1)
AdvanceTime(SIX_HOURS)
ChangeStat(Player1,FATIGUE,50,ADD)
ChangeStat(Myself,FATIGUE,55,ADD)
FadeFromColor([30.0],0)~ EXIT
END




IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)

	GlobalGT("Player1HadSexWithVynona","LOCALS",1)
RandomNumLT(90,50)
	GlobalGT("VynonaRomanceTalk","LOCALS",7)~ THEN BEGIN LoveTalkKilledFirst
SAY ~<CHARNAME>, how about our regular sex? My coffin is in your disposal.~
IF ~Gender(Player1,MALE)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultM
IF ~Gender(Player1,FEMALE)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultF
IF ~Gender(Player1,BOTH)
RandomNum(2,1)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultB1
IF ~Gender(Player1,BOTH)
RandomNum(2,2)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultB2
++ ~Not today, Vynona.~ + LoveTalkDefaultNo
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
 ++ ~We must end this, Vynona.~ + LoveTalkDefaultEnd
END

// first killed
IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",7)
	Global("TalkAboutFirstKilled","LOCALS",0)
	RandomNumLT(90,30)~ THEN BEGIN LoveTalkMurder
SAY ~<CHARNAME>, do you remember the first victim you killed to prolong your life?~
IF ~~ THEN REPLY  ~Yes, this face still stands before my eyes.~ DO ~SetGlobal("TalkAboutFirstKilled","LOCALS",1)~ GOTO loveTalkMurder1
IF ~~ THEN REPLY  ~Not a single memory.~ DO ~SetGlobal("TalkAboutFirstKilled","LOCALS",1)~ GOTO loveTalkMurder2
IF ~~ THEN REPLY ~Don't want to talk about this.~  EXIT
END

IF ~~ loveTalkMurder1
SAY ~Yes, it is the same for me.~
IF ~~ THEN DO ~~ GOTO loveTalkMurder2
END


IF ~~ loveTalkMurder2 
SAY ~Many years have passed, but I still remember his face, his terrified eyes.~
=
~I told myself that I must feed, and I managed to get through it. But my first victim is still in my memory.~
=
~Yes, it was necessary to kill him, I needed blood and my mercy would have get me exposed and hunted by people.~
=
~But I still remember my first time and killing him. He was an unknown merchant, that went away from main road to cut through forest.~
IF ~~ THEN REPLY ~Thanks to his death you are now here, Vynona. Ease your throughts.~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",50)~ GOTO loveTalkMurder3
IF ~~ THEN REPLY ~It was just a food, forget about this cretin.~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~  GOTO loveTalkMurder3
IF ~~ THEN REPLY ~You will burn in Abyss for this, Vynona, and I will burn next to you.~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",-50)~ GOTO loveTalkMurder5
END

IF ~~ loveTalkMurder3
SAY ~Maybe you are right, <CHARNAME>, I don't know...~
IF ~~ THEN REPLY ~(Calmingly kiss her.)~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",10)~ EXIT
IF ~!Gender(Player1,FEMALE)~ THEN REPLY ~(Undress her and take her.)~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",30)~ GOTO loveTalkMurder4
IF ~Gender(Player1,FEMALE)~ THEN REPLY ~(Undress her and pet her body.)~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",20)~ GOTO loveTalkMurder4
IF ~~ THEN REPLY ~(Do nothing.)~ EXIT
END

IF ~~ loveTalkMurder4
SAY ~(With your bodies tangling up Vynona forgets about her fears and gets drawn away by sensations.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",160)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(THREE_HOURS)
ChangeStat(Player1,FATIGUE,40,ADD)
ChangeStat(Myself,FATIGUE,35,ADD)
FadeFromColor([30.0],0)~ EXIT
END

IF ~~ loveTalkMurder5
SAY ~That's why we must find a way to restore Myrkul. This is our only hope to avoid such fate, <CHARNAME>.~
IF ~~ THEN DO ~~ EXIT
END


//killed
IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",7)
	Global("TalkAboutMassKilled","LOCALS",0)
	RandomNumLT(90,20)~ THEN BEGIN LoveTalkMassMurder
SAY ~<CHARNAME>, did you count, how many people you killed to stay alive?~
IF ~~ THEN REPLY  ~Yes, estimately.~ DO ~SetGlobal("TalkAboutMassKilled","LOCALS",1)~ GOTO loveTalkMassMurder1
IF ~~ THEN REPLY  ~Why I would count them?~ DO ~SetGlobal("TalkAboutMassKilled","LOCALS",1)~ GOTO loveTalkMassMurder2
IF ~~ THEN REPLY ~Don't want to talk about this.~  EXIT
END

IF ~~ loveTalkMassMurder1
SAY ~Do you think that our lives are worth these numbers?~
IF ~~ THEN REPLY ~My life costs any other.~ GOTO  loveTalkMassMurderYes
IF ~~ THEN REPLY ~Sometimes I think that my existence costs too much.~ GOTO loveTalkMassMurderNo1
IF ~~ THEN REPLY ~I think I don't deserve any of these deaths.~ GOTO loveTalkMassMurderNo1
IF ~~ THEN REPLY ~Don't want to talk about this.~  EXIT
END

IF ~~ loveTalkMassMurder2
SAY ~At least to show some respect to those, who made our lives prologued.~
=
~Do you think that our lives are worth these numbers?~
IF ~~ THEN REPLY ~My life costs any other.~ GOTO  loveTalkMassMurderYes
IF ~~ THEN REPLY ~Sometimes I think that my existence costs too much.~ GOTO loveTalkMassMurderNo1
IF ~~ THEN REPLY ~I think I don't deserve any of these deaths.~ GOTO loveTalkMassMurderNo1
IF ~~ THEN REPLY ~Don't want to talk about this.~  EXIT
END

IF ~~ loveTalkMassMurderYes
SAY ~I can't say same thing for mine...~
IF ~~ REPLY ~Hey, Vyvona, your life costs all these deaths, I need you.~ GOTO loveTalkMassMurderYes1
IF ~~ REPLY ~Then kill yourself, if you think, that your life is a mistake.~ GOTO loveTalkMassMurderYes2
IF ~~ REPLY ~Vynona, hang with it.~ GOTO loveTalkMassMurderYes3
END

IF ~~ loveTalkMassMurderYes1
SAY ~Thank you, <CHARNAME>, for your support.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",100)~ EXIT
END

IF ~~ loveTalkMassMurderYes2
SAY ~Maybe I will listen to your advice.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-300)~ EXIT
END


IF ~~ loveTalkMassMurderYes3
SAY ~I am still hanging, I wouldn't be with you today, if I'd consider myself a failure.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",50)~ EXIT
END

IF ~~ loveTalkMassMurderNo1
SAY ~Maybe we must just lay down and die from hunger? Negative plan awaits our souls.~
IF ~~ REPLY ~Hey, Vyvona, I need you by my side. Maybe we will manage to do something to lower a weight of our guilt.~ GOTO loveTalkMassMurderYes1
IF ~~ REPLY ~Now just restrain yourself from such throughts.~ GOTO loveTalkMassMurderYes2
IF ~~ REPLY ~We must hang with it, at least until all this mess with Bhaalspawn is over.~ GOTO loveTalkMassMurderYes4
END

IF ~~ loveTalkMassMurderYes4
SAY ~I will...~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",50)~ EXIT
END

// regular sex
IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",7)
	RandomNumLT(80,30)~ THEN BEGIN LoveTalkSeducing
SAY ~(Vynona is dressed up in new red gown and takes a pose near her coffin, gracefully putting one naked foot on its edge.)~
=
~(She obviously shows that you must join her.)~
IF ~~ THEN REPLY  ~Vynona, you are especially beautiful today!~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",20)~ GOTO LoveTalkSeducing1
IF ~~ THEN REPLY  ~Oh, what a leg!~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",5)~ GOTO LoveTalkSeducing1
IF ~~ THEN REPLY ~Vynona, what are you doing? Stop it.~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",-15)~ EXIT
END

IF ~~ LoveTalkSeducing1
SAY ~Oh, <CHARNAME>, go on.~
IF ~~ THEN REPLY ~Your eyes are a crimson sea of blood.~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",5)~  GOTO LoveTalkSeducing2
IF ~~ THEN REPLY ~Your ebony body is the best gift for me in all world.~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",15)~  GOTO LoveTalkSeducing2
IF ~~ THEN REPLY ~Don't distract my eyes by your dress, Vynona, show me all the beauty of immortality.~  DO ~IncrementGlobal("VynonaHappiness","LOCALS",10)~ GOTO LoveTalkSeducing2
IF ~~ THEN REPLY ~Vynona, what are you doing? Stop it.~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",-15)~ EXIT
END

IF ~~ LoveTalkSeducing2
SAY ~You are charming, <CHARNAME>. I almost feel myself alive.~
IF ~~ THEN REPLY ~(Embrace her and kiss her.)~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",10)~ EXIT
IF ~!Gender(Player1,FEMALE)~ THEN REPLY ~(Undress and lay with her.)~ DO ~IncrementGlobal("VynonaHappiness","LOCALS",30)~ GOTO LoveTalkSeducing3
IF ~~ THEN REPLY ~(Do nothing.)~ EXIT
END

IF ~~ LoveTalkSeducing3
SAY ~<CHARNAME>, oh, <CHARNAME>...~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",160)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(FOUR_HOURS)
ChangeStat(Player1,FATIGUE,60,ADD)
ChangeStat(Myself,FATIGUE,55,ADD)
FadeFromColor([30.0],0)~ EXIT
END

//regular default romantic talk
IF ~See(Player1) 
 	Global("VynonaRomanceTalkInit","LOCALS",1)
Global("VynonaRomance","LOCALS",2)
//	GlobalGT("VynonaHappiness","LOCALS",500)
	Global("Player1HadSexWithVynona","LOCALS",1)
//	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	GlobalGT("VynonaRomanceTalk","LOCALS",7)
	//RandomNumLT(70,30)
	~ THEN BEGIN LoveTalkDefault
SAY ~<CHARNAME>, how about our regular sex? My coffin is in your disposal.~
IF ~Gender(Player1,MALE)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultM
IF ~Gender(Player1,FEMALE)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultF
IF ~Gender(Player1,BOTH)
RandomNum(2,1)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultB1
IF ~Gender(Player1,BOTH)
RandomNum(2,2)~ THEN REPLY  ~Sure, Vynona.~ GOTO LoveTalkDefaultB2
++ ~Not today, Vynona.~ + LoveTalkDefaultNo
++ ~There will be no sex between us, Vynona. I have choosen another.~ + loveTalk5_2
 ++ ~We must end this, Vynona.~ + LoveTalkDefaultEnd
END

IF ~~ LoveTalkDefaultEnd
SAY ~(Vynona is shakened to the core.)~
=
~If you want so, <CHARNAME>~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-280)
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END



IF ~~ LoveTalkDefaultNo
SAY ~As you wish, <CHARNAME>.~
IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-50)~ EXIT
END


IF ~~ LoveTalkDefaultM
SAY ~(You both undress, Vynona lays down, and you enter her and begin slow movements.)~
=
~(This is good enough to forget about menaces of outer world for a while, and the blood of victims is put to good use.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",70)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(TWO_HOURS)
ChangeStat(Player1,FATIGUE,20,ADD)
ChangeStat(Myself,FATIGUE,15,ADD)
FadeFromColor([30.0],0)~ EXIT
END



IF ~~ LoveTalkDefaultF
SAY ~(You both undress, Vynona and you lay together and you begin your regular pettings.)~
=
~(This is good enough to forget about menaces of outer world for a while, as two women experience the feelings of their bodies.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",70)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(TWO_HOURS)
ChangeStat(Player1,FATIGUE,20,ADD)
ChangeStat(Myself,FATIGUE,15,ADD)
FadeFromColor([30.0],0)~ EXIT
END

IF ~~ LoveTalkDefaultB1
SAY ~(You both undress, you lay down, and Vynona gets on top of you and begins slow movements, at the same time petting your soft body.)~
=
~(This is good enough to forget about menaces of outer world for a while, as two lovers experience the feelings of their bodies.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",70)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(TWO_HOURS)
ChangeStat(Player1,FATIGUE,20,ADD)
ChangeStat(Myself,FATIGUE,25,ADD)
FadeFromColor([30.0],0)~ EXIT
END


IF ~~ LoveTalkDefaultB2
SAY ~(You both undress, Vynona lays down, and you enter her and begin slow movements, at the same time Vynona is petting your soft body)~
=
~(This is good enough to forget about menaces of outer world for a while, as two lovers experience the feelings of their bodies.)~
IF ~~ THEN DO ~FadeToColor([30.0],0)
  SetGlobal("Player1HadSex","GLOBAL",1)
  SetGlobal("Player1HadSexWithVynona","LOCALS",1)
  IncrementGlobal("Happiness","LOCALS",70)
  IncrementGlobal("VynonaSex","LOCALS",1)
AdvanceTime(TWO_HOURS)
ChangeStat(Player1,FATIGUE,20,ADD)
ChangeStat(Myself,FATIGUE,25,ADD)
FadeFromColor([30.0],0)~ EXIT
END

// talks teaching

//talk 1

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",0)
	!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk1
SAY ~I'll be teaching you from now to became an excellent vampire. You will learn the secrets of our kind and understand the world of darkness.~
 ++ ~Teach me, Vynona. I must learn to survive in this world.~ + VampireTalk1y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk1n
 ++ ~I don't need your lessons, skip them all!~ + VampireTalk1stop
END

IF ~~ VampireTalk1y1
SAY ~There are some weaknesses of our state. We cannot fully regenerate without coffins. This is related to Negative Plan link, that is created when one becomes a vampire. You wasn't buried in cemetery or in crypt, but you need this coffin I gave you to accumulate negative energy and convert it to your health.~
  IF ~~ THEN GOTO  VampireTalk1y2
END

IF ~~ VampireTalk1y2
SAY ~We can't swim in river and can't cross the river by boat. Water dissolves negative plan power lines that are giving us life force.~
IF ~~ THEN GOTO VampireTalk1y3
END

IF ~~ VampireTalk1y3
SAY ~Some of vampires can't enter a private home without invitation. But this is not related to us. My and now ours bloodline is free from this. It was not cursed by Powers of Faerun.~
IF ~~ THEN GOTO VampireTalk1y4
END


IF ~~ VampireTalk1y4
SAY ~If you will forget to put on the cloak I can provide and is exposed to sun during day, you will be dead in few seconds. Sun is our worst enemy. That is because our bodies restore itselves each second. Old parts are replaced by new each second, and our flesh don't have time to be accustomed for sun rays.~
IF ~~ THEN GOTO VampireTalk1y5
END


IF ~~ VampireTalk1y5
SAY ~I see, you are loosing line of lesson, so vampire advantages we will discuss other time.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END

IF ~~ VampireTalk1stop
SAY ~'The knowledge is a darkness, and not-knowing is light', someone said. Well, if you want, we will stop education.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","GLOBAL",3)~ EXIT
END

IF ~~ VampireTalk1n
SAY ~As you wish. I will repeat this next time.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END

// talk 2

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",1)
	!Global("VynonaTeaches","LOCALS",3)		
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk2
SAY ~Today we will talk about vampire advantages.~
 ++ ~Teach me, Vynona. I must learn to survive in this world.~ + VampireTalk1y2
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk2n
 ++ ~I don't need your lessons, skip them all!~ + VampireTalk2stop
END

IF ~~ VampireTalk2y1
SAY ~First advantage we have studied in previous lesson. Vampire regenerates. This is happened thanks to negative plane energies. But if vampire will not drink blood in about few days, negative plane powers will be weakened and vampire will become ill and weak, and will die from degeneration.~
  IF ~~ THEN GOTO  VampireTalk2y2
END

IF ~~ VampireTalk2y2
SAY ~So goes our second advantage - the claws and teeth. They hurt our victims and work as receivers for their life force essence. We need life force because life is neutral between positive and negative planes and serves and a shield, stopping our negative plane energies from depleting or leaving our bodies.~
IF ~~ THEN GOTO VampireTalk2y3
END

IF ~~ VampireTalk2y3
SAY ~Our third advantance is a feeding by blood. We don't need to eat or drink water or vine or Myrkul knows what else. Our body will only get dirtied by food. We don't need to go toilet, because we don't have wastes. Blood is replacing blood that dissolves to help our body regenerate and our hearts beat. You feel it when drink blood - after meal your speed fastens and your body begins to react quicker.~
IF ~~ THEN GOTO VampireTalk2y4
END


IF ~~ VampireTalk2y4
SAY ~And our forth advantage is an exceptional strength. When your body died during becoming a vampire, our instincts are mostly gone. With regenerating body our mind extends bounds of possible, so we have great strength. Of cause there is some loss of wisdom and intelligence, because we must feel constant hunger - blood dissolves and body needs more.~
IF ~~ THEN GOTO VampireTalk2y5
END


IF ~~ VampireTalk2y5
SAY ~Let's talk next time about you and why Night Counsil have contacted you and made you one of us.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END

IF ~~ VampireTalk2stop
SAY ~You have learned all about us in Candlekeep, no less. Then I will stop educating you.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk2n
SAY ~We will return to this topic next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END


// talk 3

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",2)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk3
SAY ~Do you know your heritage and who your father was?~
 ++ ~I don't know my father.~ + VampireTalk3y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk3n
 ++ ~I don't need your lessons, skip them all!~ + VampireTalk3stop
END

IF ~~ VampireTalk3y1
SAY ~So Gorion didn't told you this. You are son of God of Murder, the famous Bhaal.~
  ++ ~What?! I don't believe you!~ +  VampireTalk3y2
END

IF ~~ VampireTalk3y2
SAY ~Believe me or not, but this is what counsil said to me. You are a seed of your father and have his power inside you. So this talk goes to Times Of Troubles about twenty years ago, when gods became mortal and walked the earth.~
IF ~~ THEN GOTO VampireTalk3y3
END

IF ~~ VampireTalk3y3
SAY ~You of cause know about three dead gods. Bhaal, god of murder, was killed by Cyric, Bane was killed by this jerk Helm, and our sentinel and master Myrkul was killed by that slut Midnight. Balance was destroyed, there are three gods gone, who liked our kind and dealt with us.~
IF ~~ THEN GOTO VampireTalk3y4
END


IF ~~ VampireTalk3y4
SAY ~Than this poser Kelemvor, said 'new god of the dead', emerged and clerics started a genocide of undead. Myrkul have protected us and used us for his ascendance, he gave us good afterlife in the plane of Death. And this freak Kelemvor judged Myrkul choosen souls to pain and suffering, and took plane of Death from us and started hunting us.~
IF ~~ THEN GOTO VampireTalk3y5
END


IF ~~ VampireTalk3y5
SAY ~We need you as one of us to gain powers left by Bhaal and defeat Kelemvor and take the plane of death for us again.~
 ++ ~You want me to fight god?~ + VampireTalk3y6
END


IF ~~ VampireTalk3y6
SAY ~Not until you gain strength. Or until you maybe find a way to ressurect Myrkul, our beloved father.~
IF ~~ THEN GOTO VampireTalk3y7
END



IF ~~ VampireTalk3y7
SAY ~If you don't manage to gain anything, every small diversion is a success. If you'll kill enough clerics of enemy gods or at least some vampire hunters, all our kind will be grateful to you.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END



IF ~~ VampireTalk3stop
SAY ~You have learned all about us in Candlekeep, no less. Then I will stop educating you.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk3n
SAY ~We will return to this topic next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END

// talk 4

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",3)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk4
SAY ~We will talk about you and your famous father today.~
 ++ ~I still don't believe you. There must be some mistake.~ + VampireTalk4y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk4n
 ++ ~I don't need your lessons, skip them all!~ + VampireTalk4stop
END

IF ~~ VampireTalk4y1
SAY ~Did you know that Gorion was a Harper same as Elminster? These two monsters had given too many pain to our kind.~
  ++ ~Gorion was a harper?!~ +  VampireTalk4y2
END

IF ~~ VampireTalk4y2
SAY ~He somehow managed to steal you from bhaalists and hid you from a world. He even didn't tell you about your heritage. This is Harper's method of work. They lie and don't tell full truth. Let's return to Bhaal.~
IF ~~ THEN GOTO VampireTalk4y3
END

IF ~~ VampireTalk4y3
SAY ~When Bhaal became mortal at Time of Troubles, bhaalists prepared an emergency plan for him. Females from all Faerun gathered in his temples to make sex with him and to born him children. Bhaal surely worked hard and they all became pregnant. So when Bhaal was dead, you became his successors.~
IF ~~ THEN GOTO VampireTalk4y4
END


IF ~~ VampireTalk4y4
SAY ~Your mother surely was a bhaalist and freely given her body to Bhaal to give you birth. And Gorion had stealt you from your mother, no less. Night Counsil will help you to became powerful ally and to deal a great blow to hordes of light stealt you from mother.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END


IF ~~ VampireTalk4stop
SAY ~Then I will stop educating you.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk4n
SAY ~We will return to this topic next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END

// talk 5

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",4)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk5
SAY ~Today I will tell you about taboos.~
 ++ ~Taboos?~ + VampireTalk5y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk5n
 ++ ~I don't need your lessons, skip them all!~ + VampireTalk5stop
END

IF ~~ VampireTalk5y1
SAY ~Of cause, as in any other society, vampire world is functioning by rules and taboos.~
IF ~~ THEN GOTO VampireTalk5y2
END

IF ~~ VampireTalk5y2
SAY ~The main taboo is to feed on vampires. Yes, there are some vampires that are cannibals and feed on creatures of same kind. Imagine, that your immortality and a long life are taken from you by another vampire, who even didn't needed it to prolong his life. This is absolute taboo. If another vampire learns about cannibalistic one, we manage to gather extermination group and end the moron's life.~
++ ~But why they do this?~ + VampireTalk5y3
END

IF ~~ VampireTalk5y3
SAY ~If you drunk blood of another vampire and have eaten his heart, you'll become more powerful and strong for some time. But this thing lasts, and cannibal gets hunger for killing other vampires. We are not that big in numbers to allow feeding on us.~
IF ~~ THEN GOTO VampireTalk5y4
END


IF ~~ VampireTalk5y4
SAY ~On our journeys we could encouter another vampires. You must not kill them without reason. Only if they attack and don't listen to you. Killing of vampire is a highest crime for our kind. So you will be punished with death, if you just killed one without reason.~
IF ~~ THEN GOTO VampireTalk5y5
END

IF ~~ VampireTalk5y5
SAY ~There is also a rule about hunting grounds. If you settle a place, you must talk to local vampires and decide about boundaries or hunting quotes. Vampires who hunt on other territories for a few days without permission, are to be charged or even made slaves to owners of these territories. And we don't like predators who kill not to feed, but to just murder.~
IF ~~ THEN GOTO VampireTalk5y6
END

IF ~~ VampireTalk5y6
SAY ~If living creatures find out about vampires, we will be hunted or even killed at instant. So you must not reveal your nature to others. You can open to those, whom you will convert to our kind. Or to those whom you plan to murder just after speak. Remember, not only your life is at stake, but the lives of others who hunt near.~
IF ~~ THEN GOTO VampireTalk5y7
END

IF ~~ VampireTalk5y7
SAY ~So these are the things you must know about rules and taboos.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END

IF ~~ VampireTalk5stop
SAY ~It's sad you don't want to know about taboos of vampire world...~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk5n
SAY ~We will return to d next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END




// talk 6

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",5)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk6
SAY ~Today we will talk about sex and related things.~
 ++ ~Oh, that's really interesting!~ + VampireTalk6y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk6n
 ++ ~I don't need you lecturing me!~ + VampireTalk6stop
END

IF ~~ VampireTalk6y1
SAY ~Yes, I really like this side of our nature. Vampires can have sex for several hours. Imagine extasy longing for hours! If you will taste this, you will no longer be sad about becoming undead.~
++ ~Wow!~ + VampireTalk6y2
END

IF ~~ VampireTalk6y2
SAY ~But of cause you need blood for this. So first you must feed. Than you will know this beautiful thing. Bad side about it, that vampires can't have children. Our body regenerates and child embrion is considered alien by it and is dissolved.~
++ ~Do you want children, Vynona?~ + VampireTalk6y3
++ ~I've known it.~ + VampireTalk6y3
END

IF ~~ VampireTalk6y3
SAY ~Yes, I would like to have a children. But it is impossible. And sex is rare for vampires. We are too paranoid to let another vampire get close. So these things are rare.~
++ ~Have you someone of our kind, Vynona?~ + VampireTalk6y4
END


IF ~~ VampireTalk6y4
SAY ~My lover and a vampire than converted me was a boy named Guaran. He was killed by vampire hunters. Now I am along. But I had my revenge - Night Counsil arranged a squad and we destroyed all of hunters at their base.~
IF ~~ THEN GOTO VampireTalk6y5
END

IF ~~ VampireTalk6y5
SAY ~If two vampires get close, we even may get married. Clerics of Myrkul done the wedding rituals. But now there are just a few of them remain so wedding is problematic.~
++ ~Do you want to be married?~ + VampireTalk6y6
END

IF ~~ VampireTalk6y6
SAY ~Of cause. I didn't managed to get married with Guaran. But who knows what lies ahead? Vampires wedding is not a regular record in the book. It's an exchanging of blood so married could feel each other condition and location and come to help if this is needed.~
IF ~~ THEN DO ~IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END



IF ~~ VampireTalk6stop
SAY ~Then I will stop teaching you, <CHARNAME>.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk6n
SAY ~We will return to sex next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END




// talk 7

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",6)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk7
SAY ~Today we will talk some more about children.~
 ++ ~Children are surely your beloved theme, Vynona.~ + VampireTalk7y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk7n
 ++ ~Stop this nonsense, please!~ + VampireTalk7stop
END

IF ~~ VampireTalk7y1
SAY ~I wanted to say to you, then converting children to vampires are almost prohibited.~
++ ~Why?~ + VampireTalk7y2
END

IF ~~ VampireTalk7y2
SAY ~Just imagine new born baby. You made him a vampire. He doesn't have a tooth to eat, his mind is not formed yet, and he is totally helpless. How he will hunt and feed? How he can protect himself? Same goes to children under 16 years.~
IF ~~ THEN GOTO VampireTalk7y3
END

IF ~~ VampireTalk7y3
SAY ~Just imagine a vampire child, for example, at age of 12, but living eternally. She can not even defend against grown-up men and women. She can hunt only other children. She cannot survive on her own. She is a danger to our kind, because she is still innocent and can't hide, avoid hunters and live in the darkness.~
IF ~~ THEN GOTO VampireTalk7y4
END


IF ~~ VampireTalk7y4
SAY ~Such vampires can survive only by constant watch of elders. So Night Watch helps such children to find protection and punishes those who violated this rule.~
++ ~What are exceptions from this rule?~ + VampireTalk7y5
END

IF ~~ VampireTalk7y5
SAY ~If child is dying right here and there are beholders of this, than vampire is allowed to save such child by granting eternity and must take responsibility for her and watch over her.~ 
++ ~Did you watched some child, Vynona?~+ VampireTalk7y6
END

IF ~~ VampireTalk7y6
SAY ~No, I am young vampire.~
++ ~Young? How old are you?~ + VampireTalk7y7
END

IF ~~ VampireTalk7y7
SAY ~Don't ask a woman about her age. It's not polite!~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END

IF ~~ VampireTalk7stop
SAY ~It's sad you don't want to know about taboos of vampire world...~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk7n
SAY ~We will return to children next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END



// talk 8

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",7)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk8
SAY ~I will tell you about feeding today.~
 ++ ~It's a tasty talk, I hope. I just throught about drinking some blood...~ + VampireTalk8y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk8n
 ++ ~Stop this, please!~ + VampireTalk8stop
END

IF ~~ VampireTalk8y1
SAY ~Vampires feed on humans, dwarves, elves, fairy folk, half-orcs, orcs, goblins and many other races. On everything that have red blood. But don't you dare to drink a blood of demon or lycantrope.~
++ ~What will happen?~ + VampireTalk8y2
END

IF ~~ VampireTalk8y2
SAY ~Of cause you'll gonna die terrible death. Lycanthropy is a curse and with vampire blessing it provides lethal results. Demons are not of this plane, so they don't have true blood. You can drink a blood of tiefling and do not die, but not a demon's.~
IF ~~ THEN GOTO VampireTalk8y3
END

IF ~~ VampireTalk8y3
SAY ~You can feed on animals. But you'll have to hunt and kill them, and in large numbers. And there is a difficulty to hide from sun in wilderness. For example, you can kill and drink blood of large animal, such as cow or horse. It will provide you energy for a several days. But feeding on animals will not grant your power enough to fight vampire hunters.~
IF ~~ THEN GOTO VampireTalk8y4
END


IF ~~ VampireTalk8y4
SAY ~So throw out an idea to be a vampire and not kill people, but animals. If you kill some beggar or poor, guards will not even bother to investigate. But if you'll kill a knight's horse or a farmer's cow, that feeds them, be prepared to be hunted and killed mercilessly.~
++ ~There is no alternative?~ + VampireTalk8y5
END

IF ~~ VampireTalk8y5
SAY ~Night Counsil pays big money to some liches and scientists. We are hoping that they will find a way to prolong our lives without killings of reasonable beeings. But this is a fantastic today.~ 
++ ~Will you drink replacing liquid instead of living creature's blood?~+ VampireTalk8y6
END

IF ~~ VampireTalk8y6
SAY ~If that will work, just imagine a world, where vampires and other beeings live together and we must not hide. It will be a paradise on Faerun!~
IF ~~ THEN GOTO VampireTalk8y7
END

IF ~~ VampireTalk8y7
SAY ~And the last thing about blood. Virgin's blood is the best. So I enjoyed your when converted you.~
++ ~I wasn't a virgin than!~+ VampireTalk8y8
END

IF ~~ VampireTalk8y8
SAY ~I don't mistake in these things, you know. It is not a thing to be ashamed about. I've known a thousand years virgin in my life.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",60)
IncrementGlobal("VynonaTalk","LOCALS",1)~ EXIT
END

IF ~~ VampireTalk8stop
SAY ~It's sad you don't want to know about taboos of vampire world...~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-150)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk8n
SAY ~We will return to children next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END



// talk 9

IF ~See(Player1)
	GlobalTimerExpired("VynonaSpeaksTimer","GLOBAL")
	Global("VynonaTalk","LOCALS",8)
		!Global("VynonaTeaches","LOCALS",3)	
	Global("StartTalk","LOCALS",1)~ THEN BEGIN VampireTalk9
SAY ~This is our last lesson. You almost know anything about your new nature. We'll talk today about death. Your possible death.~
 ++ ~This talk makes me depressed.~ + VampireTalk9y1
 ++ ~Not this time, Vynona. I am busy.~ + VampireTalk9n
 ++ ~Stop this, I am scared. I don't whant to know about my death!~ + VampireTalk9stop
END

IF ~~ VampireTalk9y1
SAY ~When vampire is in process of converting, his soul binds tightly to canal of mystical energies. This canal is connected to human soul and body, holding them together at life. When you are killed, canal dissolves and your soul goes afterlife. Vampire has this canal tightly binded to his heart for humans and humanoids.~
++ ~You are talking about driving stakes to heart of vampire?~ + VampireTalk9y2
END

IF ~~ VampireTalk9y2
SAY ~Yes. Stakes destroy source of power, through which vampire's soul is controlling body. Body dies, and soul is gone to afterlife. But vampire heart remains. It still contains part of vampire soul. If you will find a source of negative energies and will have a lot of blood prepared, vampire's soul will return to his heart and body will regenerate around him. So vampire is a combination of heart and soul. All other parts are disposable.~
IF ~~ THEN GOTO VampireTalk9y3
END

IF ~~ VampireTalk9y3
SAY ~Vampires can be hurt and weakened by holy water. Holy water is a common water, that was gathered and holded at silver dishes. Same goes for silver weapons - they surely can kill a vampire. Silver stops regeneration of vampire flesh.~
IF ~~ THEN GOTO VampireTalk9y4
END


IF ~~ VampireTalk9y4
SAY ~So avoid silver, wooden stakes and holy water. And don't drink demon's or werewolves blood. And you will live happily.~
IF ~~ THEN GOTO VampireTalk9y5
END

IF ~~ VampireTalk9y5
SAY ~Our lessons are ended. All other knowledge you will get with me or without me on your journeys and huntings.~ 
++ ~You were a good teacher, Vynona~+ VampireTalk9y6
++ ~This wasn't worth a time I rather spend on hunting!~ + VampireTalk9y7
END

IF ~~ VampireTalk9y6
SAY ~And you are a good student, <CHARNAME>. Possibly it is an ability from Candlekeep studies you had.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",100)
IncrementGlobal("VynonaTalk","LOCALS",1)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END


IF ~~ VampireTalk9y7
SAY ~Thank your for patience.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-50)
IncrementGlobal("VynonaTalk","LOCALS",1)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END



IF ~~ VampireTalk9stop
SAY ~It's sad you don't want to know about taboos of vampire world...~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-100)
SetGlobal("VynonaTeaches","LOCALS",3)~ EXIT
END

IF ~~ VampireTalk9n
SAY ~We will return to children next time then.~
IF ~~ THEN DO ~IncrementGlobal("VynonaHappiness","LOCALS",-20)~ EXIT
END



// talk in party





IF ~
InParty(Myself)
~ THEN BEGIN GreetingVFemaleR
SAY ~Do you need something from me, <CHARNAME>?~ 
IF ~Race(Player1,VAMPIRE)~ REPLY ~Do you hungry? You can suck some of my blood. I don't mind.~ GOTO suckblood

IF ~Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,FEMALE)~ REPLY  ~Dear, I want a sex.~ GOTO femsexB1

IF ~Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,MALE)~ REPLY  ~Dear, I want a sex.~ GOTO malsexB1

IF ~Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,MALE)~ REPLY  ~Dear, I want to kiss you.~ GOTO malsexB2

IF ~Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,FEMALE)~ REPLY  ~Dear, I want to kiss you.~ GOTO femsexB2

IF ~
Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,FEMALE)~ REPLY  ~Dear, you are so lovely, when you sleep in your coffin!~ GOTO femsexB3 

IF ~
Race(Player1,VAMPIRE)
Global("VynonaRomance","LOCALS",2)
Global("Player1HadSexWithVynona","LOCALS",1)
Gender(Player1,MALE)~ REPLY  ~Dear, you are so lovely, when you sleep in your coffin!~ GOTO malsexB3 

 IF ~Global("VampireStronghold","GLOBAL",1)~ THEN REPLY ~Go to our vampire castle, Vynona. I will join you there later.~ GOTO vampStrongholdSTFR 
 ++ ~Repeat me some things about Night Counsil.~ + kalidet2
 ++ ~Now we are both vampires. We can't go out at day. It's so disturbing.~ + korkcloak
 ++ ~Vynona. We must end our relationship. I don't want you anymore.~ + romanceend
 ++ ~No, nothing right now, Vynona. Sorry for disturbance.~ + byesilent
END


IF ~~ korkcloak
SAY ~Night Counsil had solved this fundamental problem. There is a lich that creates cloaks for vampires to walk in sunlight. They have disadvantages, but it's really a revolution for our kind.~
IF ~PartyGoldGT(5000)~ THEN GOTO korkcloakGold
IF ~!PartyGoldGT(5000)~ THEN GOTO korkcloakNoGold
END


IF ~~ korkcloakGold
SAY ~I need 5000 gold and some time to contact our vampire network.~
 IF ~PartyGoldGT(5000)~ THEN REPLY ~Here are money for cloak.~ GOTO korkcloakyy
 ++ ~We can't pay this sum right now.~ + korkcloakn
END

IF ~~ korkcloakNoGold
SAY ~I need 5000 gold and some time to contact our vampire network.~
 IF ~PartyGoldGT(5000)~ THEN REPLY ~Here are money for cloak.~ GOTO korkcloakyy
 ++ ~We can't pay this sum right now.~ + korkcloakn
END


IF ~~ korkcloakny
  SAY ~You don't have a needed sum, <CHARNAME>.~
   IF ~~ THEN DO ~~ EXIT
END



IF ~~ korkcloakyy
  SAY ~(Vynona tells you to stay here and dissapears for a few hours.)~
   IF ~PartyGoldGT(5000)~ THEN DO ~TakePartyGold(5000)
   DestroyGold(5000)
   FadeToColor([30.0],0)
GiveItemCreate("ohhkork",Player1,1,1,0)
AdvanceTime(TWELVE_HOURS)
FadeFromColor([30.0],0)~ EXIT
END



IF ~~ korkcloakn
SAY ~I think we must hunt and kill some rich to get this sum.~
   IF ~~ THEN DO ~~ EXIT
END

IF ~~ malsexB1
SAY ~Always ready! Come here in my arms...~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",80)
  IncrementGlobal("SexTimes","LOCALS",1)
    SetGlobal("Player1HadSex","GLOBAL",1)
           AdvanceTime(EIGHT_HOURS)
ChangeStat(Myself,FATIGUE,12,ADD)
ChangeStat(Player1,FATIGUE,12,ADD)~ EXIT
END

IF ~~ malsexB2
SAY ~(You share a long kiss with Vynona, biting each other lips to let some blood lit up your flame of passion.)~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",10)~ EXIT
END

IF ~~ malsexB3
SAY ~I am thanking vampire who gave me eternity I am always that lovely. My beauty will never slowly wighter.~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",30)~ EXIT
END

IF ~~ femsexB1
SAY ~We always know what we really need, really! Come in my arms!~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",80)
  IncrementGlobal("SexTimes","LOCALS",1)
    SetGlobal("Player1HadSex","GLOBAL",1)
           AdvanceTime(TWO_HOURS)
ChangeStat(Myself,FATIGUE,5,ADD)
ChangeStat(Player1,FATIGUE,5,ADD)~ EXIT
END

IF ~~ femsexB2
SAY ~(You share a long kiss with Vynona, biting each other lips to let some blood lit up your flame of passion.)~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",10)~ EXIT
END

IF ~~ femsexB3
SAY ~You are also so lovely, when you sleep in your coffin, <CHARNAME>!~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",20)~ EXIT
END

//when left party

IF ~~ vampStrongholdSTFR
  SAY ~See you there, my dear!~
  IF ~~ THEN DO ~LeaveParty()
RunAwayFromNoInterrupt(Player1,20)
MoveBetweenAreas("DSC016",[1680.636],W)~ EXIT
END

IF ~~ vampStrongholdSTMR
  SAY ~See you there, my lover!~
  IF ~~ THEN DO ~LeaveParty()
RunAwayFromNoInterrupt(Player1,20)
MoveBetweenAreas("DSC016",[1680.636],W)~ EXIT
END

IF ~~ vampStrongholdST
  SAY ~See you there.~
  IF ~~ THEN DO ~LeaveParty()
RunAwayFromNoInterrupt(Player1,20)
MoveBetweenAreas("DSC016",[1680.636],W)~ EXIT
END

//not in party


IF ~!InParty(Myself)
BeenInParty("vvvynona")
Global("VynonaRomance","LOCALS",2)~ THEN BEGIN ReturnRF
SAY ~Did you miss me, <CHARNAME>?~ 
IF ~Gender(Player1,FEMALE)~ REPLY ~Return, honey, I need you.~ GOTO notparty1f

IF ~!Gender(Player1,FEMALE)~ REPLY ~Return, honey, I need you.~ GOTO notparty1m


IF ~Gender(Player1,FEMALE)~ REPLY ~Stay here, honey, I will return for you.~ GOTO notparty2f

IF ~!Gender(Player1,FEMALE)~ REPLY ~Stay here, honey, I will return for you.~ GOTO notparty2m

 IF ~Global("VampireStronghold","GLOBAL",1)
 Gender(Player1,FEMALE)~ THEN REPLY ~Go to our vampire castle, honey. I will join you there later.~ GOTO vampStrongholdSTFR 
 IF ~Global("VampireStronghold","GLOBAL",1)
 Gender(Player1,MALE)~ THEN REPLY ~Go to our vampire castle, honey. I will join you there later.~ GOTO vampStrongholdSTMR 
IF ~Gender(Player1,FEMALE)~ REPLY  ~I decided to kill you!~ GOTO briefing3fr
IF ~!Gender(Player1,FEMALE)~ REPLY  ~I decided to kill you!~ GOTO briefing3mr
END

IF ~!InParty(Myself)
BeenInParty("vvvynona")
!Global("VynonaRomance","LOCALS",2)~ THEN BEGIN ReturnRF
SAY ~Do you need my help, <CHARNAME>?~ 
IF ~Gender(Player1,FEMALE)~ REPLY ~Return, Vynona, I need you.~ GOTO notparty1f

IF ~!Gender(Player1,FEMALE)~ REPLY ~Return, Vynona, I need you.~ GOTO notparty1m


IF ~Gender(Player1,FEMALE)~ REPLY ~Stay here, Vynona, I will return for you.~ GOTO notparty2f

IF ~!Gender(Player1,FEMALE)~ REPLY ~Stay here, Vynona, I will return for you.~ GOTO notparty2m

 IF ~Global("VampireStronghold","GLOBAL",1)
 Gender(Player1,FEMALE)~ THEN REPLY ~Go to our vampire castle, honey. I will join you there later.~ GOTO vampStrongholdSTFR 
 IF ~Global("VampireStronghold","GLOBAL",1)
 Gender(Player1,MALE)~ THEN REPLY ~Go to our vampire castle, honey. I will join you there later.~ GOTO vampStrongholdSTMR 
IF ~Gender(Player1,FEMALE)~ REPLY  ~I decided to kill you!~ GOTO briefing3fr
IF ~!Gender(Player1,FEMALE)~ REPLY  ~I decided to kill you!~ GOTO briefing3mr
END




IF ~~ notparty1f
  SAY ~Just don't leave me for so long, <CHARNAME>. I missed your pettings and care for me.~
  IF ~~ THEN DO ~JoinParty()~ EXIT
END

IF ~~ notparty1m
  SAY ~Just don't leave me for so long, <CHARNAME>. I love you, it's so frightening without you.~
  IF ~~ THEN DO ~JoinParty()~ EXIT
END

IF ~~ notparty2f
  SAY ~Just don't leave me for so long, <CHARNAME>. I miss you.~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-30)~ EXIT
END

IF ~~ notparty2m
  SAY ~Just don't leave me for so long, <CHARNAME>. I love you, remember?~
  IF ~~ THEN DO ~IncrementGlobal("Happiness","LOCALS",-30)~ EXIT
END


IF ~~ briefing3f
  SAY ~You dare to betray my love and to kill the one that gave you eternity?~
  IF ~~ THEN DO ~Enemy()
  SetGlobal("VynonaLeft","GLOBAL",1)  
Attack(Player1)~ EXIT
END

IF ~~ briefing3m
  SAY ~You dare to betray our love and to kill the one that gave you eternity?~
  IF ~~ THEN DO ~Enemy()
    SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END

IF ~~ briefing3fr
  SAY ~You dare to kill the one that gave you eternity?~
  IF ~~ THEN DO ~Enemy()
    SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END

IF ~~ briefing3mr
  SAY ~You dare to kill the one that gave you eternity?~
  IF ~~ THEN DO ~Enemy()
    SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END



//initial dialog







IF ~NumTimesTalkedTo(0)
!InParty(Myself)
!BeenInParty("vvvynona")
!Global("VynonaAccepted","GLOBAL",1)~ THEN BEGIN Greeting1
SAY ~Hello there! Aren't you a Gorion's ward by a name of <CHARNAME>?~
 ++ ~Yes, I am <CHARNAME>. What do you want from me?~ + confirmation
 ++ ~No, I am nothing close to this, I am just a simple traveller resting in this inn.~ + notatall
 ++ ~I don't have a time to talk to the likes of you. Begone, riff raff.~ + begone
END

IF ~!NumTimesTalkedTo(0)
!InParty(Myself)
!BeenInParty("vvvynona")
!Global("VynonaAccepted","GLOBAL",1)~ THEN BEGIN Greeting2
SAY ~So you have returned. What do you want to say to me?~
IF ~~ REPLY ~Yes, I am <CHARNAME>. What do you want from me?~ GOTO confirmation
 IF ~!Gender(Player1,MALE)~ REPLY ~No, I am nothing close to this, I am just a simple traveller resting in this inn.~ + notatallF
 IF ~Gender(Player1,MALE)~ REPLY ~No, I am nothing close to this, I am just a simple traveller resting in this inn.~ + notatall
 
 IF ~~ REPLY ~I don't have a time to talk to the likes of you. Begone, riff raff.~ + begone
END

IF ~~ notatall
SAY ~It's sad. Well, if you run into him, tell him he will find a friend here.~
 ++ ~Actually, I am <CHARNAME>. Sorry, but I was told not to reveal my name to strangers.~ + confirmation
 ++ ~I am not your errand servant. Go find <CHARNAME> yourself!~ + fight
 ++ ~I'll tell <CHARNAME>, if I'll meet him.~ + bye
END

IF ~~ notatallF
SAY ~It's sad. Well, if you run into her, tell her she will find a friend here.~
 ++ ~Actually, I am <CHARNAME>. Sorry, but I was told not to reveal my name to strangers.~ + confirmation
 ++ ~I am not your errand servant. Go find <CHARNAME> yourself!~ + fight
 ++ ~I'll tell <CHARNAME>, if I'll meet him.~ + bye
END


IF ~~ confirmation
SAY ~Great. Finally I found you. I have a mission to protect you from incoming troubles and to became your bodyguard.~
 ++ ~Who are you, at first?~ + yourname
 ++ ~I don't trust you and I don't want you near me. Goodbye!~ + bye2
END

IF ~~ byesilent
SAY ~(She turns away.)~
  IF ~~ THEN EXIT
END

IF ~~ bye
SAY ~(She turns her eyes from you and starts to play with lacers on her cloak.)~
  IF ~~ THEN EXIT
END

IF ~~ bye3
SAY ~Well, I'll stay here for a few days, if you'll make up your mind, I will be there.~
  IF ~~ THEN EXIT
END

IF ~~ begone
SAY ~How are you talking to me?! I am not a peasant to be threated this way!~
 ++ ~You are nothing higher than the dirt on my shoes. I don't have time to loose more time on this.~ + fight
 ++ ~Wow, cool down. We'll let this end peacefully. Sorry for my rudeness. Bye bye!~ + bye
END


IF ~~ kalidetFightD
SAY ~Your blood is a waste!~
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END

IF ~~ kalidetFightL
SAY ~Cursed lycanthrope! Die, animal!~
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END

IF ~~ kalidetFightNoEff
SAY ~You are not fit to become vampire!~
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END

IF ~~ kalidetFightNoBlood
SAY ~You are a thing!~
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
Attack(Player1)~ EXIT
END


IF ~~ fight
SAY ~Putrid pig! I lost about a mounth to get here and all I see is a rude worm. I'll eat your heart and swim in your blood for this!~ 
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ fight2
SAY ~Betrayer! I will not go down without a fight!~
 
   IF ~~ THEN DO ~Enemy()
     SetGlobal("VynonaLeft","GLOBAL",1) 
SetGlobal("VynonaRomance","LOCALS",3)~ EXIT
END

IF ~~ bye2
SAY ~Dawn! Go and die on your own, fine! I'll stay here for a few days, if you'll change your mind, I will be there.~
  IF ~~ THEN EXIT
END


IF ~~ yourname
SAY ~My name is Vynona. I am a vampiress. Night Counsil sent me to help you became what you will became. I want to swear you a loyality and to become your guidance to the World of Vampires.~
 IF ~~ REPLY ~You are a goddamn bloodsucker! You have no right to live! I'll end your meaningless existance right now!~ GOTO fight
 IF ~Race(Player1,VAMPIRE)~ REPLY ~Well, I think it will be helpful to have one of our kind on my side.~ GOTO kalidetVamp
 IF ~~ REPLY ~I am not ready to deal with vampiress. I'll have to decline your offer.~ + bye2
 IF ~~ REPLY ~I am not ready to deal with vampiress. I'll have to think about it.~ + bye3
 IF ~~ REPLY ~What is this Night Council you are talking about? What it wants from me?~ + kalidet
END

IF ~~ kalidet2
SAY ~Night Counsil is an organization to protect vampires. It is ruled by four ancient vampires. Our goal is to stop god Kelemvor from genociding undead and twisting vampires afterlife. Night Counsil needs you to help our kind save ourselves.~
  IF ~~ THEN EXIT
END

IF ~~ kalidet
SAY ~Night Counsil represents all vampires of Faerun and fights for our existence. I'll teach you about it later. ~
IF ~Race(Player1,VAMPIRE)~ GOTO kalidetVamp
IF ~Race(Player1,LYCANTHROPE)~ GOTO kalidetFightL
IF ~Global("Player1RaceBlood","GLOBAL",2)~ GOTO kalidetFightD
IF ~Global("Player1RaceBlood","GLOBAL",3)~ GOTO kalidetFightNoEff
IF ~Global("Player1RaceBlood","GLOBAL",1)~ GOTO kalidetFightNoBlood
IF ~
Global("Player1RaceBlood","GLOBAL",4)
~ GOTO kalidetNotVamp
END

IF ~~ kalidetNotVamp
SAY ~But before this I need one thing - you must become a vampire.~
 ++ ~Vampire? Not way. You are a goddamn bloodsucker! You have no right to live! I'll end your meaningless existance right now!~  + fight
 ++ ~I always wanted to live eternally. If you will help me to become immortal, I'll help you.~ + vampok
 ++ ~Help from such pretty vampiress is a very good gift for my future road. But I don't want to became vampire, at least yet.~ + bye3
 ++ ~I am not ready to deal with vampiress. I'll have to decline your offer.~ + bye2
 ++ ~I am not ready to deal with vampiress. I'll have to think about it.~ + bye3
END

IF ~~ kalidetVamp
SAY ~You are a vampire yourself. So let's join forces.~
 ++ ~Join me, and I will see what help I can provide to you.~ + vampAlready
 ++ ~Help from such pretty vampiress is a very good gift for my future road.~ + vampAlready
 ++ ~I am not ready to deal with you. I'll have to decline your offer.~ + bye2
 ++ ~I am not ready to deal with you. I'll have to think about it.~ + bye3
END



IF ~~ suckblood
  SAY ~You don't even realise how much your blood is tasty.~
  IF ~~ THEN GOTO suckblood2
END

IF ~~ suckblood2
  SAY ~(Vynona bites your neck and drinks some of your blood).~
  IF ~~ THEN DO ~ApplyDamagePercent(Player1,10,MAGIC)
  SetGlobalTimer("BloodlustTimer","LOCALS",ONE_DAY)
		ApplySpell(Myself,RESTORE_FULL_HEALTH)~ EXIT 
END

IF ~~ vampok
  SAY ~If you wish, I can turn you to vampire right here. You'll gain powers of the dark and the protection of Night Counsil. You will became stronger.~
IF ~~ GOTO vampok2
END

IF ~~ vampok2
SAY ~But remember, that from now on sun will became your greatest enemy. And most of gods will hate you. What's your choice?~
   ++ ~Yes, I want to became vampire right here. Make me immortal, milady.~ + vampconv1
   ++ ~I'll have to think about it again.~ + bye3
END

IF ~~ vampconv1
  SAY ~(Vynona comes closer and gently frees your neck from cloathing. She starts to kiss your neck with stone cold lips. This is very exiting. You relax and let thing happen.)~
IF ~~ GOTO vampconv2
END

IF ~~ vampconv2
  SAY ~(Suddently you feel her teeths have pierced your skin and gone to carotid vein. Blood flow is distracted and becomes pulsating. You feel your blood flows into Vynona.)~
IF ~~ GOTO vampconv3
END

IF ~~ vampconv3
  SAY ~(Soon you feel great weakness, your throuths are clouded. And you loose consciousness.)~
IF ~~ GOTO vampconv4
END

IF ~~ vampconv4
  SAY ~(...You open your eyes. World around you have changed. You have changed. You feel coldness of your body and immediately you feel all-consuming hunger growing in you.)~
IF ~!Global("VynonaAccepted","GLOBAL",1)~ GOTO vampconv5
IF ~Global("VynonaAccepted","GLOBAL",1)~ GOTO vampconv5
END

IF ~~ vampconv5
  SAY ~(Now you feel presence of Vynona and her feelings of satisfaction and saturation. You are stroking her pale skin. She is now the only person in the world close to you as one can be - with your blood in her veins.)~

  IF ~~ THEN DO ~
  
ActionOverride(Player1,SetGlobal("ActorVampirisedLevel","LOCALS",1))	
		
		
		DestroyItem("VVHVYNON")
		GiveItemCreate("ohhkork",Myself,1,1,0)
		GiveItemCreate("ohhkork",Myself,1,1,0)
		SetGlobal("VynonaAccepted","GLOBAL",1)
		SetGlobal("VynonaVampirized","GLOBAL",1)	
        SetGlobal("VynonaDialogRestored","LOCALS",0)
		SetGlobal("VynonaRomance","LOCALS",0)			
		RealSetGlobalTimer("VynonaSpeaksTimer","GLOBAL",ONE_DAY)
		SetGlobal("VynonaTeaches","LOCALS",1)			
		JoinParty()
		MakeGlobal()
//		StartMovie("s_fem2mt")
		SetDialog("VVVYNONA")~ EXIT
END


IF ~~ vampAlready
SAY ~We have so much to accomplish together!~
IF ~~ THEN DO ~SetGlobal("VynonaVampirized","GLOBAL",0)
		SetGlobal("VynonaRomance","LOCALS",0)	
		DestroyItem("VVHVYNON")
		GiveItemCreate("ohhkork",Myself,1,1,0)
		GiveItemCreate("ohhkork",Myself,1,1,0)		
		RealSetGlobalTimer("VynonaSpeaksTimer","GLOBAL",ONE_DAY)
		SetGlobal("VynonaTeaches","LOCALS",1)	
		JoinParty()
		MakeGlobal()
		SetDialog("VVVYNONA")~ EXIT
END


IF ~~ romanceend
SAY ~Fine. You stole my heart and my body. And now you want to be friends. Okay. Then our relationship will be only limited to my mission.~ 
   IF ~~ THEN DO ~SetGlobal("VynonaRomance","LOCALS",3)
IncrementGlobal("Happiness","LOCALS",-300)~ EXIT
END


