Juste pour dire que mes mods sont à 99% orientés scripts, déjà à l´époque de Morrowind :
begin _damnation_
short OnPCequip
short done
short enod
short danger
short premJournal2
short premJournal3
short premJournal4
short premJournal5
short premJournal6
short typeDeVampire
float TimePassed
if ( OnActivate == 1 )
activate
if ( premJournal6 == 0 )
set premJournal6 to 1
Journal, "_RD_Vampires", 60
endif
endif
if ( GetDistance, Player > 127 )
rotate, ZROT, 36
endif
if ( done == 1 )
set TimePassed to ( TimePassed + GetSecondsPassed )
if ( TimePassed >= 5 )
;Toutes les 5 secondes, on flashe un avertissement et on augmente le danger
MessageBox "Ils sentent la présence du réceptacle..."
if ( premJournal4 == 0 )
set premJournal4 to 1
Journal, "_RD_Vampires", 40
endif
set TimePassed to 0
set danger to ( danger + 1 )
endif
if ( danger > 5 )
;Pas de bol, ils vous ont retrouvé, on spawn 5 vampires très méchants
if ( premJournal3 == 0 )
set premJournal3 to 1
Journal, "_RD_Vampires", 30
endif
if ( vampiresEnJeu == 0 )
set vampiresEnJeu to 5
MessageBox "L´armée des ténèbres vous a retrouvé !"
PlaceAtPC "_Puissant vampire_", 1, 120, 0
PlaceAtPC "_Puissant vampire 1_", 1, 120, 1
PlaceAtPC "_Puissant vampire 2_", 1, 120, 2
PlaceAtPC "_Puissant vampire 3_", 1, 120, 3
PlaceAtPC "_Puissant vampire 4_", 1, 120, 3
endif
set done to 2
endif
endif
if ( OnPCEquip == 1 )
if ( done == 0 )
;Le joueur devient un bakemono très méchant ;- )
if ( premJournal2 == 0 )
set premJournal2 to 1
Journal, "_RD_Vampires", 20
endif
;Si le vampire en était déjà un... ( merci Aphrael
)
if ( player->GetSpell "Vampire aundae Specials" == 1 )
set typeDeVampire to 1
elseif ( player->GetSpell "Vampire Berne Specials" == 1 )
set typeDeVampire to 2
elseif ( player->GetSpell "Vampire quarra Specials" == 1 )
set typeDeVampire to 3
else
set typeDeVampire to 0
endif
player->addSpell "_Chaos_"
player->addSpell "_Destruction vampirique_"
player->addSpell "_Fatalité_"
player->addSpell "_monte_la_garde_"
player->addSpell "_suis_moi_"
player->addSpell "_Vampire originel_"
player->addSpell "_Vampire originel 2_"
player->addSpell "Vampire attributes"
player->addSpell "Vampire aundae specials"
player->addSpell "Vampire berne specials"
player->addSpell "Vampire quarra specials"
player->addSpell "Vampire skills"
player->addSpell "Vampire sun damage"
player->addSpell "Vampire immunities"
;Quelque chose d´étrange se passe dans le climat...
ChangeWeather, "Ascadian Isles Region", 7
ChangeWeather, "Ashlands Region", 7
ChangeWeather, "Azura´s Coast Region", 7
ChangeWeather, "Bitter Coast Region", 7
ChangeWeather, "Grazelands Region", 7
ChangeWeather, "Molag Mar Region", 7
ChangeWeather, "Red Mountain Region", 7
ChangeWeather, "Sheogorad", 7
ChangeWeather, "West Gash Region", 7
MessageBox "Un bref frisson vous parcourt..."
set done to 1
set enod to 0
endif
else
if ( enod == 0 )
;Il ne faudrait pas que le joueur continue à bénéficier des pouvoirs sans l´amulette...
player->removeSpell "_Chaos_"
player->removeSpell "_Destruction vampirique_"
player->removeSpell "_Fatalité_"
player->removeSpell "_monte_la_garde_"
player->removeSpell "_suis_moi_"
player->removeSpell "_Vampire originel_"
player->removeSpell "_Vampire originel 2_"
player->removeSpell "Vampire aundae specials"
player->removeSpell "Vampire berne specials"
player->removeSpell "Vampire quarra specials"
if ( typeDeVampire == 0 )
player->removeSpell "Vampire attributes"
player->removeSpell "Vampire skills"
player->removeSpell "Vampire sun damage"
player->removeSpell "Vampire immunities"
elseif ( typeDeVampire == 1 )
player->addSpell "Vampire aundae Specials"
elseif ( typeDeVampire == 2 )
player->addSpell "Vampire Berne Specials"
elseif ( typeDeVampire == 3 )
player->addSpell "Vampire quarra Specials"
endif
;La terrible puissance de l´amulette cesse d´influer sur le climat
ChangeWeather, "Ascadian Isles Region", 1
ChangeWeather, "Ashlands Region", 1
ChangeWeather, "Azura´s Coast Region", 1
ChangeWeather, "Bitter Coast Region", 1
ChangeWeather, "Grazelands Region", 1
ChangeWeather, "Molag Mar Region", 1
ChangeWeather, "Red Mountain Region", 1
ChangeWeather, "Sheogorad", 1
ChangeWeather, "West Gash Region", 1
;Si l´amulette a été retirée à temps, on le signale...
if ( danger > 0 )
if ( danger <= 5 )
if ( premJournal5 == 0 )
set premJournal5 to 1
Journal, "_RD_Vampires", 50
endif
MessageBox "Ils ont perdu votre trace..."
endif
endif
set enod to 1
endif
set done to 0
set danger to 0
endif
end
Oui, déjà à l´époque de Morrowind je donnais dans le grosbillisme...