Vampire script problems

[bleizk]

Hi, im making a mod for vampires but im having problems with advancing trought the stages.

Ill post the files and the script:

 

Vamp 2:

 

Scriptname VampireScript


short hasdisease
short currentday
short daycount
short vampday
short vampupdate
short randomdream
short doonce

float vamphour
float fQuestDelayTime

begin gamemode

if ( doonce == 0 )
set vampday to GameDay
set randomdream to -1
set fQuestDelayTime to 0.5
set doonce to 1
endif

If ( hasdisease == 0 )
if ( Player.IsSpellTarget VampDisease == 1 )
	set hasdisease to 1
endif
endif

;If player has been cured of disease, reset 'hasdisease' var

if ( hasdisease == 1 )
if ( Player.IsSpellTarget VampDisease == 0 )
	set hasdisease to 0
endif
endif


if ( hasdisease == 1 )
if ( currentday == 0 )
	set currentday to GameDay
else
	if currentday != gameday
		set daycount to ( daycount + 1 )
		set currentday to GameDay
	endif
endif
endif

if ( hasdisease == 1 )
if ( currentday == 0 )
	set currentday to GameDay
else
	if currentday != gameday
		set daycount to ( daycount + 1 )
		set currentday to GameDay
	endif
endif
endif

if ( hasdisease == 1 )
if ( daycount >= 3 )
	if ( IsPCSleeping == 1 )
		WakeUpPC	
		set PCVampire to 1
	endif
endif
endif

if ( PCVampire < 0 )
return
endif

If ( PCVampire >= 1 )
if ( Player.HasVampireFed == 1 )
	Set PCVampire to 1
	MessageBox "You feel stronger as the blood flows into your veins. Your hunger for blood has been satisfied... for now."
	set vamphour to GameHour
	set vampday to GameDaysPassed
endif
endif

if ( PCVampire == 1 )
if ( hasdisease == 1 )
	if ( GetPCIsSex Male == 1 )
		Messagebox "You dream of someone sleeping peacefully in his bed, when a shadowy, gaunt figure silently enters the room. Approaching the bed, the figure leans down and sinks its fangs into the sleeping person. After a few moments, the pale figure rises, blood dripping down his chin. As color flows back into the vampire's face, and his features fill out, you recognize the face as your own. You awake screaming."
	else
		Messagebox "You dream of someone sleeping peacefully in his bed, when a shadowy, gaunt figure silently enters the room. Approaching the bed, the figure leans down and sinks its fangs into the sleeping person. After a few moments, the pale figure rises, blood dripping down her chin. As color flows back into the vampire's face, and her features fill out, you recognize the face as your own. You awake screaming."
	endif
	set hasdisease to -1
	player.removespell VampDisease
	addtopic CureforVampirism
	StartQuest MS40
	set vampday to GameDay
	set vamphour to GameHour
endif
endif

if ( PCVampire == 0 )
if ( hasdisease != 1 )
	player.setfactionrank playervampirefaction, -1
	player.removespell vampirism100
	player.removespell vampirism75
	player.removespell vampirism50
	player.removespell vampirism25
	player.removespell vampirism100att
	player.removespell vampirism75att
	player.removespell vampirism50att
	player.removespell vampirism25att
	player.removespell vampirism100skills
	player.removespell vampirism75skills
	player.removespell vampirism50skills
	player.removespell vampirism25skills
	player.removespell vampirehunterssight
	player.removespell vampireembraceofshadows
	player.removespell vampirereignofterror
	player.removespell vampireseduction
	player.removespell VampDisease
	Player.removespell AbUndeadBreathing
endif
endif

;SCRIPTING FOR ACQUIRING VAMPIRISM
;---------------------------------------------------------------------------------------------------------------------

;When VampireState doesn't match Vampirism Effect, update effects


if ( hasdisease == 1 )
return
endif

if ( PCVampire == 0 )
return
endif



if ( PCVampire == 1)
if ( Player.IsSpellTarget Vampirism25 < 1 )
 	player.setfactionrank playervampirefaction, 0
	Player.removespell Vampirism25
	Player.removespell Vampirism25Att
	Player.removespell Vampirism25Skills
	Player.removespell Vampirism50
	Player.removespell Vampirism50Att
	Player.removespell Vampirism50Skills
	Player.removespell VampireSeduction
	Player.removespell Vampirism75
	Player.removespell Vampirism75Att
	Player.removespell Vampirism75Skills
	Player.removespell VampireReignofTerror
	Player.removespell Vampirism100
	Player.removespell Vampirism100Att
	Player.removespell Vampirism100Skills
	Player.removespell VampireEmbraceofShadows
	Player.addspell Vampirism25
	Player.addspell Vampirism25Att
	Player.addspell Vampirism25Skills
	player.addspell vampirehunterssight
	Player.addspell VampireEmbraceofShadows
	Player.addspell VampireReignofTerror
	Player.addspell VampireSeduction
	Player.addspell AbUndeadBreathing
	set vamphour to GameHour
	set vampday to GameDaysPassed
endif
elseif ( PCVampire == 2 )
if ( Player.IsSpellTarget Vampirism50 < 1)
	Player.removespell Vampirism25
	Player.removespell Vampirism25Att
	Player.removespell Vampirism25Skills
	Player.removespell Vampirism50
	Player.removespell Vampirism50Att
	Player.removespell Vampirism50Skills
	Player.removespell Vampirism75
	Player.removespell Vampirism75Att
	Player.removespell Vampirism75Skills
	Player.removespell Vampirism100
	Player.removespell Vampirism100Att
	Player.removespell Vampirism100Skills
	Player.removespell VampireEmbraceofShadows
	Player.addspell Vampirism50
	Player.addspell Vampirism50Att
	Player.addspell Vampirism50Skills
	set vamphour to GameHour
	set vampday to GameDaysPassed
	messagebox "You are feeling weaker, your thirsty for blood."
endif
elseif ( PCVampire == 3 )
if ( Player.IsSpellTarget Vampirism75 < 1 )
	Player.removespell Vampirism25
	Player.removespell Vampirism25Att
	Player.removespell Vampirism25Skills
	Player.removespell Vampirism50
	Player.removespell Vampirism50Att
	Player.removespell Vampirism50Skills
	Player.removespell Vampirism75
	Player.removespell Vampirism75Att
	Player.removespell Vampirism75Skills
	Player.removespell VampireReignofTerror
	Player.removespell Vampirism100
	Player.removespell Vampirism100Att
	Player.removespell Vampirism100Skills
	Player.removespell VampireEmbraceofShadows
	Player.addspell Vampirism75
	Player.addspell Vampirism75Att
	Player.addspell Vampirism75Skills
	Player.addspell VampireSeduction
	messagebox "You are feeling weaker, your thirsty for blood."
	set vamphour to GameHour
	set vampday to GameDaysPassed
endif
elseif ( PCVampire == 4 )
if ( Player.IsSpellTarget Vampirism100 < 1 )
	Player.removespell Vampirism25
	Player.removespell Vampirism25Att
	Player.removespell Vampirism25Skills
	Player.removespell Vampirism50
	Player.removespell Vampirism50Att
	Player.removespell Vampirism50Skills
	Player.removespell VampireSeduction
	Player.removespell Vampirism75
	Player.removespell Vampirism75Att
	Player.removespell Vampirism75Skills
	Player.removespell VampireReignofTerror
	Player.removespell Vampirism100
	Player.removespell Vampirism100Att
	Player.removespell Vampirism100Skills
	Player.removespell VampireEmbraceofShadows
	Player.Addspell Vampirism100
	Player.addspell Vampirism100Att
	Player.addspell Vampirism100Skills
	set vamphour to GameHour
	set vampday to GameDaysPassed
	messagebox "You are feeling weaker, your thirsty for blood, and your only wish is to saciate it.Your vampire powers are gone."
endif
elseif ( PCVampire > 4 )
set PCVampire to 4
endif


if ( PCVampire > 0 ) 
if ( vampday != GameDaysPassed )
	if ( GameHour >= vamphour )
		if ( PCVampire < 4 )
			set PCVampire to ( PCVampire + 1 )
		endif
	endif
endif

if ( ( GameDaysPassed - 2 ) == vampday )
if ( PCVampire < 4 )
	set PCVampire to ( PCVampire + 1 )
else
	set vamphour to GameHour
	set vampday to GameDaysPassed
endif
endif

endif


End

 

Yes i used the vampire script fix mode as base for thisone. Also im having problems in the tes construction set to let the spells modifications like i put them, and the AbUndeadBreathing isnt there. Idk why. Plz help me. Fix the script and/or the mod cuz i dont see the error.

 

 

 

 

http://depositfiles.com/files/o9y0tgbxb