dungeon-mod - vampirherz

**Lord Vladec** · 16.11.2007, 16:02

ok, sorry, habe mich wohl zu ungenau ausgedrückt (schon wieder)...

ich dachte eigentlich schon dass des opfer aufsteht nachdem man die antwort in der box angeklickt hat...

ich versuchs mal mit den neuen scripts, antwort folgt

**Lord Vladec** · 18.11.2007, 12:15

also: des mitm "sofort" wiederbeleben funzt net richtig... hab ca. 1 minute gewartet und des opfer ist immer noch tot... oke, die alte version würde da auch gehen, müsst dann nur noch n queststage mehr machen, aber des könnte ich dann selbst machen.

des mitm vampir funz net, man wird vampir, bekommt sogar eionen traum, aber man wird nicht mehr vampir. mein bleibt immer 25er (ich habe 7 Tage (7*24H) geschlafen)

**Low Post** · 18.11.2007, 12:43

Wiederbeleben:
Man könnte noch versuchen, die Leiche zu entfernen und dafür einen Lebenden Gegenpart hinstellen. Warum das so nicht geht ist mir ein Rätsel.

Vampier:
Liegt wahrscheinlich am Vampierskript selber. Als ich bei meinen Test (nur Vampierteil) die Tage durchgeschlafen habe hat der sich auch nicht verwandelt. Versuch mal den Großteil des Tages zu warten und nur die restlichen paar Stunden zu schlafen.

**Lord Vladec** · 18.11.2007, 17:02

Zitat von Low Post

Wiederbeleben:
Man könnte noch versuchen, die Leiche zu entfernen und dafür einen Lebenden Gegenpart hinstellen. Warum das so nicht geht ist mir ein.......

hmm.... aber des würde im game doch recht komisch aussehen, wenn die leiche verschwundet und dann ein lebender da steht... aber egal, ich kann das auch gut mit dem älteren script lösen (bei benützen wiederbelebe)

des mitm vampir versuch ich ma... mache dann edit

edit: warten hat auch nichts genütz... ich schau mal des vampirscript an und versuch was zusammenzubasteln...

Edit²:
ok... ich habe nun mal testmässig das script so eingerichtet dass man net gleich zum vampir wird, sonder einfach die vampirkrankheit bekommt.

dann bin ich nach 3 tagen schön zum vampir geworden... dannach gings aber auch nicht weiter...

hm... sollte doch gehen, das vampirwerden durch die krankheit ist ja net durch dein script gesteuert...
Ok, ich hab eigentlich keine ahnung vom scripten, kommt mir einfach logisch vor...

kennste vielleicht ein modder der vampir-mods macht? ein vampir-experte wäre gefragt...

**Low Post** · 18.11.2007, 21:05

Thema wiederbeleben:
Bei den alten Skripts hab ich das auch nicht anders gelöst(gleiche Befehle), ich hab nur eine essentielle Zeile vergessen, wodurch das Skript nie zum Punkt der Wiederbelebung kommt. Moment, ich editiere gleich.

Vampier:
Das du dich nicht weiterentwickelst müsste am Vampierskript selber liegen, da greifen meine Skripte nicht ein. Hast du denn ein anderes PI laufen, dass da etwas verändern könnte?

Edit:
Hab die fehlende Zeile jetzt hinzugefügt (set MenuShown to 3), probier's jetzt mal.

**Lord Vladec** · 19.11.2007, 16:28

@vampir: ich hab PI, aber keins am laufen... poste doch mal deinen vampirscript... der sollte ja noch korekt sein, oder? ich vergleiche dann ma

neuer script probier ich noch aus, ich mach denne edit

edit: so ging ne zeitlang.. aber nu konnt ichs testen: das selbe... passiert nix...

naja, dann nehme ich eben das script mit wiederbeleben mit aktivierung, des geht auch, bzw., welche zeile muss ich einfügen um die queststage zu erhöhen? zB dass nach auswahl der 2. antwort (opfer) des neue questlog kommt und dann nach aktivierung (wiederbelebung) nochma eine queststage erhöt wird?

des mitm vampit is durchaus... merkwürdig...

**Low Post** · 26.11.2007, 18:18

Vampier:
wie gesagt, ich hab keine Ahnung was da nicht funktioniert.

Wiederbeleben:
Anstelle des direkten wiederbelebens könnte man auch einen von Anfang an lebenden NPC dorthinbewegen, töten, den toten entfernen und den neuen wiederbeleben (damit er aufsteht). Müsste man aber auch noch testen.
Wenn du willst kann ich mal versuchen die Skripte dementsprechend anzupassen.

Falls du aber bei der Aktivierung bleiben willst, der Befehl lautet SetStage [Quest-ID] x.
Stand doch schon im Herzscript drin.

PS: nach so einer langen Zeit kannst du bedenklos einen Doppelpost machen

**Lord Vladec** · 27.11.2007, 14:30

das mitm aktivieren is schon OK... naja, aber des mitm vampir... ich habs auchnochma kontrolliert... sollt alles funzen!? naja, wenn DAS nicht geht... des is eigentlich einer der wichtigstens inhalten... unteranderem...

vielleicht hasste ja net gesehen, aber könntest du mal DEIN vampirescript (haste ja net geändert?!) posten, dann kann ich schauen, vielleicht fehlt bei meinem ja

**Low Post** · 27.11.2007, 15:49

Mein Vampierscript? Da:

Code:

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 randomdream to -1
	set fQuestDelayTime to 0.5
	set doonce to 1
endif

if ( PCVampire == -1 )
	return
endif


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

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 still == 1, this is the first time the player has been in this state
;give him introductory messagebox (TEMP) and reset hasdisease var

if ( PCVampire == 1 )
	if ( hasdisease == 1 )
		if ( GetPCIsSex Male == 1 )
			Messagebox "Ihr träumt von jemandem, der friedlich in seinem Bett schläft, als ein hagerer Schatten lautlos ins Zimmer gleitet. Er nähert sich dem Bett, beugt sich über den Schlafenden und versenkt seine Reißzähne in dessen Hals. Nach einer Weile erhebt sich die blasse Figur, das Kinn tropfend von Blut. Als die Farbe in das Gesicht des Vampirs zurückkehrt und seine Züge sich wieder herausbilden, erkennt Ihr Euer eigenes Gesicht. Schreiend wacht Ihr auf."
		else
			Messagebox "Ihr träumt von jemandem, der friedlich in seinem Bett schläft, als ein hagerer Schatten lautlos ins Zimmer gleitet. Er nähert sich dem Bett, beugt sich über den Schlafenden und versenkt seine Reißzähne in dessen Hals. Nach einer Weile erhebt sich die blasse Figur, das Kinn tropfend von Blut. Als die Farbe in das Gesicht des Vampirs zurückkehrt und seine Züge sich wieder herausbilden, erkennt Ihr Euer eigenes Gesicht. Schreiend wacht Ihr auf."
		endif
		set hasdisease to -1
		player.addspell Vampirism25
		Player.addspell Vampirism25Att
		Player.addspell Vampirism25Skills
		Player.addspell VampireHuntersSight
		player.removespell VampDisease
		player.setfactionrank playervampirefaction 0
		addtopic CureforVampirism
		StartQuest MS40
		set vampday to GameDay
		set vamphour to GameHour
	endif
endif

;SCRIPTING FOR STATE CHANGES AS A VAMPIRE
;--------------------------------------------------------------------------------------------------------------------

;First things first. If player has fed, reset Vampirism level to 25 and start the counters over again

If ( PCVampire >= 1 )
	if ( Player.HasVampireFed == 1 )
		Set PCVampire to 1

;remove any spell from higher states

		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

;re-add state 1 spells

		Player.addspell Vampirism25
		Player.addspell Vampirism25Att
		Player.addspell Vampirism25Skills
		set vampday to GameDay
		set vamphour to GameHour
		MessageBox "Euer Hunger auf Blut ist gestillt... für den Augenblick."
	endif
endif

;Run a timer, checking for 24 hour intervals. If 24 hours have passed, increment vampupdate and reset hour/day vars

if ( PCVampire >= 1 )
	if ( vampday != GameDay )
		if ( ( vamphour + 1 ) < GameHour )
			set vampupdate to 1
			set vampday to GameDay
			set vamphour to GameHour
		elseif ( vamphour >= 22 )
			if ( vampday + 1 < Gameday )
				set vampupdate to 1
				set vampday to Gameday
				set vamphour to GameHour
			endif
		endif
	endif
endif



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

if ( PCVampire == 2 )
	if ( Player.getav vampirism == 25 )
		Player.removespell Vampirism25
		Player.removespell Vampirism25Att
		Player.removespell Vampirism25Skills
		Player.addspell Vampirism50
		Player.addspell Vampirism50Att
		Player.addspell Vampirism50Skills
		Player.addspell VampireSeduction
		set randomdream to GetRandomPercent
	endif
elseif ( PCVampire == 3 )
	if ( Player.getav vampirism == 50 )
		Player.removespell Vampirism50
		Player.removespell Vampirism50Att
		Player.removespell Vampirism50Skills
		Player.addspell Vampirism75
		Player.addspell Vampirism75Att
		Player.addspell Vampirism75Skills
		Player.addspell VampireReignofTerror
		set randomdream to GetRandomPercent
	endif
elseif ( PCVampire == 4 )
	if ( Player.getav Vampirism == 75 )
		Player.removespell Vampirism75
		Player.removespell Vampirism75Att
		Player.removespell Vampirism75Skills
		Player.Addspell Vampirism100
		Player.addspell Vampirism100Att
		Player.addspell Vampirism100Skills
		Player.addspell VampireEmbraceofShadows
		set randomdream to GetRandomPercent
	endif
endif


;Pick dream text based on randomdream var

if ( randomdream >= 0 )
	if ( randomdream <= 9 )
		MessageBox "Ihr träumt von langen Tagen, an denen Ihr im Sonnenlicht Eures Heimatlandes badet. Ihr fühlt die Wärme und die Hitze und spürt, wie Euer Körper erfrischt wird. Dann wacht Ihr auf und erkennt, es war nur ein Traum."
		set randomdream to -1
	elseif ( randomdream <= 19 )
		MessageBox "In Eurem Traum seht Ihr eine schöne junge Frau, die ein Kind an ihre Brust drückt. Erst als Ihr näherkommt, wird Euch klar, dass die Frau eine verdorrte Leiche ist und dass das Kind violett und aufgedunsen ist und an der Pest stirbt. Als Mutter und Kind zu Staub zerfallen, wacht Ihr auf. "
		set randomdream to -1
	elseif ( randomdream <= 29 )
		MessageBox "In Eurem Traum behandelt eine alte Hexe die Verbrennungen an Euren Händen. Als sie eine Salbe auf Eure Haut aufträgt, fühlt Ihr das Prickeln der Magie, als der Schmerz nachzulassen beginnt. Doch während Ihr zuschaut, beginnt das Fleisch Eurer Hände Blasen zu werfen, rissig zu werden und aufzureißen und in Fetzen auf den Boden ihrer Hütte zu fallen. Mit dem Lächeln der Hexe vor Augen wacht Ihr auf."
		set randomdream to -1
	elseif ( randomdream <= 39 )
		MessageBox "In einem Traum über Eure Kindheit erinnert Ihr Euch an Versteckspiele, mit denen Ihr und Eure Freunde Euch an einem warmen Sommernachmittag die Zeit vertriebt. Ihr versteckt Euch in der elterlichen Scheune in der sicheren Annahme, dort nicht gefunden zu werden. Bald schon wird der süße Heugeruch von einem düsteren, ekligen Hauch überdeckt."
		set randomdream to -1
	elseif ( randomdream <= 49 )
		MessageBox "Ihr träumt von einem üppigen Bankett, das vor Euch ausgebreitet ist. Ihr tut Euch gütlich an einer besonders feinen Portion Fleisch, und der Duft lässt Euch das Wasser im Mund zusammenlaufen. Erst als Ihr in das letzte Stück schneidet, seht Ihr die Maden, die sich darin winden. Ihr hustet Blut aus, während die Maden beginnen, sich durch Euren Magen nach draußen zu fressen."
		set randomdream to -1
	elseif ( randomdream <= 59 )
		MessageBox "Ihr liegt auf dem Rücken, und ein seliges Gefühl des Friedens erfüllt Euren Verstand. "
		set randomdream to -1
	elseif ( randomdream <= 69 )
		MessageBox "Eine warme, sanfte Brise kitzelt Euer Antlitz, doch als Ihr versucht, über Euer Gesicht zu wischen, stellt Ihr fest, dass Ihr Eure Arme nicht bewegen könnt. Als Ihr auf Eure Haut schaut, seht Ihr, dass sie sich in kaltes, grünes Glas verwandelt hat. Ihr steht stocksteif, nehmt rasche, flache Atemzüge, da Ihr wisst, dass eine Bewegung Eure Haut in Tausende von Stücken bersten lässt. Euer Gesicht juckt noch schlimmer, und Ihr wisst, Ihr werdet niesen."
		set randomdream to -1
	elseif ( randomdream <= 79 )
		MessageBox "In Eurem Traum öffnet Ihr Eure Augen und schaut in einen wundervollen blauen Himmel. Die Sonne scheint, doch Ihr fühlt Euch kalt, sogar ein wenig feucht. Ihr nehmt einen Atemzug, doch beginnt zu husten, als Ihr Blut und Erde aushustet, die Ihr in Eure Lunge gezogen habt. "
		set randomdream to -1
	elseif ( randomdream <= 89 )
		MessageBox "In Eurem Traum nähert Ihr Euch einem uralten Vampir. Da Ihr soeben einen gefährlichen Auftrag für ihn ausgeführt habt, seid Ihr stolzgeschwellt und sicher, dass er Euch nun noch größere Macht verleihen wird. Die Augen des gesamten Clans ruhen auf Euch. Während Ihr zum Podium schreitet, auf dem er wartet, wird Euch klar, dass der Auftrag in Wirklichkeit noch nicht abgeschlossen ist und dass Euch all Eure Vampirkräfte verlassen haben. "
		set randomdream to -1
	elseif ( randomdream <= 99 )
		MessageBox "In Eurem Traum wandert Ihr durch die kühle Nachtluft. Euer Körper schreit nach Blut, da Ihr seit Tagen nicht mehr gespeist habt. Schwach stolpert Ihr zu einem kleinen Teich. Als Ihr Euch hinabneigt, seht Ihr, dass in diesem Teich kein Wasser ist, sondern warmes, frisches Blut, von dem Dampf aufsteigt. Ihr senkt Euren Kopf, um zu trinken, doch könnt Euren Mund nicht öffnen."
		set randomdream to -1
	endif
endif




End


Begin MenuMode

;If player is resting after 3 days with disease, increment PCVampire and wake 'im up

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 player is ready for state change, check for time passing and increment PCVampire

if ( PCVampire >= 1 )
	if ( PCVampire < 4 )
		if ( vampupdate == 1 )
			if ( IsTimePassing == 1 )
				set PCVampire to ( PCVampire + 1 )
				set vampupdate to 0
				set vampday to GameDay
				set vamphour to GameHour			
			endif
		endif
	endif
endif

End

Allerdings hatt ich beim Test afaik auch Better Vampieres aktiv, dass auch Reverse Vampires beinhaltet. Das verändert das Skript wie folgt:

Code:

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 randomdream to -1
	set fQuestDelayTime to 0.5
	set doonce to 1
endif

if ( PCVampire == -1 )
	return
endif


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

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 still == 1, this is the first time the player has been in this state
;give him introductory messagebox (TEMP) and reset hasdisease var

if ( PCVampire == 1 )
	if ( hasdisease == 1 )
		if ( GetPCIsSex Male == 1 )
			Messagebox "Ihr träumt von jemandem, der friedlich in seinem Bett schläft, als ein hagerer Schatten lautlos ins Zimmer gleitet. Er nähert sich dem Bett, beugt sich über den Schlafenden und versenkt seine Reißzähne in dessen Hals. Nach einer Weile erhebt sich die blasse Figur, das Kinn tropfend von Blut. Als die Farbe in das Gesicht des Vampirs zurückkehrt und seine Züge sich wieder herausbilden, erkennt Ihr Euer eigenes Gesicht. Schreiend wacht Ihr auf."
		else
			Messagebox "Ihr träumt von jemandem, der friedlich in seinem Bett schläft, als ein hagerer Schatten lautlos ins Zimmer gleitet. Sie nähert sich dem Bett, beugt sich über den Schlafenden und versenkt ihre Reißzähne in dessen Hals. Nach einer Weile erhebt sich die blasse Figur, das Kinn tropfend von Blut. Als die Farbe in das Gesicht des Vampirs zurückkehrt und ihre Züge sich wieder herausbilden, erkennt Ihr Euer eigenes Gesicht. Schreiend wacht Ihr auf."
		endif
		set hasdisease to -1
		player.addspell Vampirism25
		Player.addspell Vampirism25Att
		Player.addspell Vampirism25Skills
		Player.addspell VampireHuntersSight
		Player.addspell VampireSeduction
		Player.addspell VampireReignofTerror
		Player.addspell VampireEmbraceofShadows
		Player.addspell Daywalk
		Player.addspell SleepyVoices
		player.removespell VampDisease
		player.setfactionrank playervampirefaction 0
		addtopic CureforVampirism
		StartQuest MS40
		set vampday to GameDay
		set vamphour to GameHour
	endif
endif

;SCRIPTING FOR STATE CHANGES AS A VAMPIRE
;--------------------------------------------------------------------------------------------------------------------

;First things first. If player has fed, reset Vampirism level to 25 and start the counters over again

If ( PCVampire >= 1 )
	if ( Player.HasVampireFed == 1 )
		Set PCVampire to 1

;remove any spell from higher states
		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 vBloodrage
		Player.removespell Bloodrage
		player.removespell daywalk
		Player.removespell vDaywalk
		player.removespell vWeakness
		Player.removespell VampireHuntersSight
		Player.removespell VampireSeduction
		Player.removespell VampireReignofTerror
		Player.removespell VampireEmbraceofShadows
		Player.removespell SleepyVoices
;re-add state 1 spells

		Player.addspell Vampirism25
		Player.addspell Vampirism25Att
		Player.addspell Vampirism25Skills
		Player.addspell VampireHuntersSight
		Player.addspell VampireSeduction
		Player.addspell VampireReignofTerror
		Player.addspell VampireEmbraceofShadows
		player.addspell SleepyVoices
		Player.addspell Daywalk
		set vampday to GameDay
		set vamphour to GameHour
		MessageBox "Euer Hunger auf Blut ist gestillt... für den Augenblick."
	endif
endif

;Run a timer, checking for 24 hour intervals. If 24 hours have passed, increment vampupdate and reset hour/day vars

if ( PCVampire >= 1 )
	if ( vampday != GameDay )
		if ( ( vamphour + 1 ) < GameHour )
			set vampupdate to 1
			set vampday to GameDay
			set vamphour to GameHour
		elseif ( vamphour >= 24 )
			if ( vampday + 1 < Gameday )
				set vampupdate to 1
				set vampday to Gameday
				set vamphour to GameHour
			endif
		endif
	endif
endif



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

if ( PCVampire == 2 )
	if ( Player.getav vampirism == 25 )
		Player.removespell Vampirism25
		Player.removespell Vampirism25Att
		Player.removespell Vampirism25Skills
		Player.removespell vDaywalk
		Player.removespell VampireReignofTerror
		Player.removespell Daywalk
		Player.addspell Vampirism50
		Player.addspell Vampirism50Att
		Player.addspell Vampirism50Skills
		set randomdream to GetRandomPercent
	endif
elseif ( PCVampire == 3 )
	if ( Player.getav vampirism == 50 )
		Player.removespell Vampirism50
		Player.removespell Vampirism50Att
		Player.removespell Vampirism50Skills
		Player.removespell VampireEmbraceofShadows
		player.removespell sleepyvoices
		Player.addspell Vampirism75
		Player.addspell Vampirism75Att
		Player.addspell Vampirism75Skills
		set randomdream to GetRandomPercent
	endif
elseif ( PCVampire == 4 )
	if ( Player.getav Vampirism == 75 )
		Player.removespell Vampirism75
		Player.removespell Vampirism75Att
		Player.removespell Vampirism75Skills
		Player.removespell VampireSeduction
		Player.addSpell Bloodrage
		Player.Addspell Vampirism100
		Player.addspell Vampirism100Att
		Player.addspell Vampirism100Skills
		set randomdream to GetRandomPercent
	endif
endif


;Pick dream text based on randomdream var

if ( randomdream >= 0 )
	if ( randomdream <= 9 )
		MessageBox "Ihr träumt von langen Tagen, an denen Ihr im Sonnenlicht Eures Heimatlandes badet. Ihr fühlt die Wärme und die Hitze und spürt, wie Euer Körper erfrischt wird. Dann wacht Ihr auf und erkennt, es war nur ein Traum."
		set randomdream to -1
	elseif ( randomdream <= 19 )
		MessageBox "In Eurem Traum seht Ihr eine schöne junge Frau, die ein Kind an ihre Brust drückt. Erst als Ihr näherkommt, wird Euch klar, dass die Frau eine verdorrte Leiche ist und dass das Kind violett und aufgedunsen ist und an der Pest stirbt. Als Mutter und Kind zu Staub zerfallen, wacht Ihr auf. "
		set randomdream to -1
	elseif ( randomdream <= 29 )
		MessageBox "In Eurem Traum behandelt eine alte Hexe die Verbrennungen an Euren Händen. Als sie eine Salbe auf Eure Haut aufträgt, fühlt Ihr das Prickeln der Magie, als der Schmerz nachzulassen beginnt. Doch während Ihr zuschaut, beginnt das Fleisch Eurer Hände Blasen zu werfen, rissig zu werden und aufzureißen und in Fetzen auf den Boden ihrer Hütte zu fallen. Mit dem Lächeln der Hexe vor Augen wacht Ihr auf."
		set randomdream to -1
	elseif ( randomdream <= 39 )
		MessageBox "In einem Traum über Eure Kindheit erinnert Ihr Euch an Versteckspiele, mit denen Ihr und Eure Freunde Euch an einem warmen Sommernachmittag die Zeit vertriebt. Ihr versteckt Euch in der elterlichen Scheune in der sicheren Annahme, dort nicht gefunden zu werden. Bald schon wird der süße Heugeruch von einem düsteren, ekligen Hauch überdeckt."
		set randomdream to -1
	elseif ( randomdream <= 49 )
		MessageBox "Ihr träumt von einem üppigen Bankett, das vor Euch ausgebreitet ist. Ihr tut Euch gütlich an einer besonders feinen Portion Fleisch, und der Duft lässt Euch das Wasser im Mund zusammenlaufen. Erst als Ihr in das letzte Stück schneidet, seht Ihr die Maden, die sich darin winden. Ihr hustet Blut aus, während die Maden beginnen, sich durch Euren Magen nach draußen zu fressen."
		set randomdream to -1
	elseif ( randomdream <= 59 )
		MessageBox "Ihr liegt auf dem Rücken, und ein seliges Gefühl des Friedens erfüllt Euren Verstand. "
		set randomdream to -1
	elseif ( randomdream <= 69 )
		MessageBox "Eine warme, sanfte Brise kitzelt Euer Antlitz, doch als Ihr versucht, über Euer Gesicht zu wischen, stellt Ihr fest, dass Ihr Eure Arme nicht bewegen könnt. Als Ihr auf Eure Haut schaut, seht Ihr, dass sie sich in kaltes, grünes Glas verwandelt hat. Ihr steht stocksteif, nehmt rasche, flache Atemzüge, da Ihr wisst, dass eine Bewegung Eure Haut in Tausende von Stücken bersten lässt. Euer Gesicht juckt noch schlimmer, und Ihr wisst, Ihr werdet niesen."
		set randomdream to -1
	elseif ( randomdream <= 79 )
		MessageBox "In Eurem Traum öffnet Ihr Eure Augen und schaut in einen wundervollen blauen Himmel. Die Sonne scheint, doch Ihr fühlt Euch kalt, sogar ein wenig feucht. Ihr nehmt einen Atemzug, doch beginnt zu husten, als Ihr Blut und Erde aushustet, die Ihr in Eure Lunge gezogen habt. "
		set randomdream to -1
	elseif ( randomdream <= 89 )
		MessageBox "In Eurem Traum nähert Ihr Euch einem uralten Vampir. Da Ihr soeben einen gefährlichen Auftrag für ihn ausgeführt habt, seid Ihr stolzgeschwellt und sicher, dass er Euch nun noch größere Macht verleihen wird. Die Augen des gesamten Clans ruhen auf Euch. Während Ihr zum Podium schreitet, auf dem er wartet, wird Euch klar, dass der Auftrag in Wirklichkeit noch nicht abgeschlossen ist und dass Euch all Eure Vampirkräfte verlassen haben. "
		set randomdream to -1
	elseif ( randomdream <= 99 )
		MessageBox "In Eurem Traum wandert Ihr durch die kühle Nachtluft. Euer Körper schreit nach Blut, da Ihr seit Tagen nicht mehr gespeist habt. Schwach stolpert Ihr zu einem kleinen Teich. Als Ihr Euch hinabneigt, seht Ihr, dass in diesem Teich kein Wasser ist, sondern warmes, frisches Blut, von dem Dampf aufsteigt. Ihr senkt Euren Kopf, um zu trinken, doch könnt Euren Mund nicht öffnen."
		set randomdream to -1
	endif
endif




End


Begin MenuMode

;If player is resting after 3 days with disease, increment PCVampire and wake 'im up

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 player is ready for state change, check for time passing and increment PCVampire

if ( PCVampire >= 1 )
	if ( PCVampire < 4 )
		if ( vampupdate == 1 )
			if ( IsTimePassing == 1 )
				set PCVampire to ( PCVampire + 1 )
				set vampupdate to 0
				set vampday to GameDay
				set vamphour to GameHour			
			endif
		endif
	endif
endif

End

Sollte allerdings keinen Unterschied machen, da ich nur dem Skript sage die eben hinzugefügte Krankheit herrscht schon seit 3 Tagen und den Teil zum aufwecken übernehme mit dem Unterschied, dass ich nicht vorraussetzte, dass der Spieler schläft.

**Lord Vladec** · 28.11.2007, 16:07

heute hab ich keine zeit, morgen gleiche ich die scripts ma ab... ich hab m an meinem rumgespielt, aba nix verändert... imho... naja, mal sehen

**Lord Vladec** · 29.11.2007, 16:33

ok, hab nun verglichen... is alles korrekt... ich mach glaube nunmal die mod soweit für ne alpha ferttig, vielleicht liegts ja einfach an meinem PI-test-savegame?

**Lord Vladec** · 16.12.2007, 18:28

hat lange keine zeit, viel zu tun wegen arbeit etc...

ich hab nun mal die scripts weggelassen, der rest müsste man mal noch "alpha"-testen, obs nirgens falsch zusammengebaut oder etwas in der luft schwebt. ausserdem müsste man noch testen obs zu leicht/schwer ist.

wer lust hat melden, ich schick das PI dann.

wenn es jemand testet darf ers einfach net online stellen da es 1. net vollständig ist/evt. bug hat
2. keine referanzdateien dabei sind (credits etc.)

wer sich melden will mit PM oder e-mail stahl.opa@vtxmail.ch

Thema: dungeon-mod - vampirherz

Themen-Optionen

Anzeige

Hybrid-Darstellung

Berechtigungen