Recueil de scripts sympathiques

[Tissendel]

Je commence donc par un script très basique mais qui peut être utile (j'ai mis en gras les modif à faire)

Activer un message en activant un objet (y compris les coffres et portes)
Par exemple pour faire un message en ouvrant un coffre interdit (juste une fois) :

Code : Tout sélectionner

Scriptname [b]Newmessagecoffreinterdit[/b] extends ObjectReference  
{[b]un seul message à l'ouverture[/b]}

int count  ;stores the number of times this object has been activated
 
 Event OnActivate(ObjectReference akActionRef)
    count = count + 1
 
    if count == 1
       Debug.MessageBox("[b]Attention ce coffre appartient aux seigneur noir[/b]")
    endif
 endEvent

Voilà c'est un script basique mais sa aiderai les débutants comme moi dans leurs première approche des scripts

[Tissendel]

Pour placer une pièce d'armure sur un mannequin.
Double clic sur la pièce d'armure (que vous aurez mis au sol à côté du mannequin) --> "Linked Ref" ----> vers "PlayerHouseMannequin"
Ensuite il faut créer un nouveau script sur l'objet.
(Avec ce script l'objet se mettra automatiquement sur le mannequin au chargement de la cellule in-game)

Code : Tout sélectionner

scriptname DefaultAddToLinkonLoadSCRIPT extends objectReference
{Add the reference to the linked container or actor inventory on Load}
import Debug
import Utility

bool Property ShouldEquip = FALSE Auto
{
OPTIONAL: Set to TRUE if you want the actor to equip this item also. (DEFAULT = FALSE)
Warning! - Has to be an actor!
}
bool Property ForceEquip = FALSE Auto
{
OPTIONAL: If set to TRUE the actor cannot unequip this themselves (ShouldEquip MUST be TRUE also). (DEFAULT = FALSE)
Warning! - Has to be an actor!
}
bool Property AlreadyLoaded = FALSE Auto hidden
;;bool Property AllowDuplicates = FALSE Auto
;;{Check TRUE if you want the script to add the item even if the LinkRef already has one in its inventory (Default FALSE)}

Event onCellLoad()

	if AlreadyLoaded == FALSE
		getLinkedRef().addItem(self, 1, true)
		;Trace("DARYL - " + self + " added to " + GetLinkedRef())
		
		if (ShouldEquip == TRUE)
			(getLinkedRef() as Actor).EquipItem(self.GetBaseObject(), ForceEquip)
			;Trace("DARYL - " + self + " equipping onto " + GetLinkedRef())
		endif
		AlreadyLoaded = TRUE
	endif
	
endEvent

[Tissendel]

Salut, à tous!!! Vous trouverez içi pour les moddeurs en herbe de nombreux scripts écrit par moi même pour le fun.
Ces scripts sont totalement libre d'utilisation vous en faites ce que vous voulez.

Sort à Projectiles multiple simple à un lanceur:

► Afficher le texte

Code : Tout sélectionner

Scriptname MagicMissiles extends activemagiceffect

int property totalloops auto
int loopcount = 0
objectReference MissileLauncher
spell property ArrowSpell auto
Activator Property MissileLauncherSpawner  Auto


EVENT onEffectStart(Actor akTarget, Actor akCaster)

MissileLauncher = aKTarget.placeatme(MissileLauncherSpawner)

while (loopcount< totalloops) && (aKTarget.getav("health")>0)
float anglez = akCaster.GetAngleZ() ; indique la direction ou le missile va partir
float distance = 100.0 ; a quelle distance le missile dois partir
float offsetx = distance * math.sin(anglez) ;x axe calculation
float offsety = distance * math.cos(anglez) ;y axe calculation
MissileLauncher.MoveTo(akCaster, offsetx, offsety, 100) ; height 100 ou hauteur + place le lanceur en face du caster/player

ArrowSpell.RemoteCast(MissileLauncher, AkCaster, aKTarget)
loopcount = loopcount + 1
endwhile

EndEvent

Event OnEffectFinish(Actor Target, Actor Caster); code emprunter je ne sais plus ou.
		if (MissileLauncherSpawner != none)
			MissileLauncher.delete()
		endif
EndEvent

Cible d'entrainement pour monter les skills:

► Afficher le texte

Code : Tout sélectionner

Scriptname CustomDummyTarget extends ObjectReference 

Keyword Property WeapTypeBow  Auto  

Actor Property PlayerREF  Auto  

INT randEffect=0

State Busy
EndState


Event OnHit(ObjectReference akAggressor, Form akSource, Projectile akProjectile, bool abPowerAttack, bool abSneakAttack, \
  bool abBashAttack, bool abHitBlocked)

GoToState("Busy")

if akAggressor == PlayerREF && akSource.HasKeyword(WeapTypeBow) ; Vérifie que l'attaquant est bien le joueur et qu'il utilise un arc

        randEffect = utility.randomInt(1, 5) ; une chance sur 5

	float fDistance = PlayerREF.GetDistance(Self); cache la distance cible>joueur

	if fDistance < 1024 && fDistance >= 512 && (randEffect >= 1 && randEffect < 5) ;une chance sur cinq d'avancer l'archerie
	Game.AdvanceSkill("Marksman", 2.0)	; avance l'archerie

Suivez la meme procédure pour les armes de melée.

Script pour mage

► Afficher le texte

Code : Tout sélectionner

Scriptname CustomMage extends Actor

Event OnCombatStateChanged(Actor akTarget, int aeCombatState)

if aeCombatState == 0

Blabla == 0
EndIf

   if aeCombatState == 1 || Blabla == 0

 Self.RemoveSpell(monsort)      
      if akTarget.HasmagicEffect(AbWeaknessFireConstant)
         monsort = Firebolt

Elseif akTarget.HasmagicEffect(AbWeaknessFrostConstant)
         monsort = IceSpike

Elseif akTarget.HasmagicEffect(AbWeaknessMagicConstant)
         monsort = LightningBolt

  Else
         monsort = sortpardefaut
      EndIf
      self.addSpell(monsort)

Blabla == 1
      EndIf
endevent

MagicEffect Property AbWeaknessFireConstant  Auto  

MagicEffect Property AbWeaknessFrostConstant  Auto  

MagicEffect Property AbWeaknessMagicConstant  Auto  

Int Property Blabla  Auto  

spell property Firebolt auto

spell property IceSpike auto

spell property LightningBolt auto

spell property sortpardefaut auto

Spell Property monsort Auto

Voilà maintenant votre compagnon ne lancera plus ses sorts n'importe comment

[Nerapharu]

Petit script permettant d'utiliser plusieurs types de pièces pour marchander

► Afficher le texte

J'ai préalablement créé un mod dans lequel j'ai implémenté deux nouveaux types de pièces de monnaie. Il y a donc 3 pièces :
- septim de cuivre (pièce de base, valeur = 1),
- septim d'argent (valeur = 25),
- septim d'or (valeur = 100).

Le système de Skyrim ne peut reconnaître qu'une seule unité monétaire, pourtant il est possible d'utiliser les nouvelles pièces comme s'il s'agissait de pièces vanilla. L'astuce est simple : convertir les pièces d'argent et d'or en septims de base dès lors qu'on rentre dans un inventaire marchand, puis les reconvertir en septims d'or et d'argent une fois la transaction terminée.
En vérité, la deuxième conversion décompose la grandeur de la somme par centaines, quarts de centaines, et unités. Autrement dit, si à la fin de la transaction on a sur soi la somme de 456 septims, on se retrouve avec 4 septims d'or (400), 2 septims d'argent (50), et 6 septims. Un bon gain de place dans l'inventaire étant donné que les pièces ont un poids.

Code : Tout sélectionner

scriptName EC_convertSeptimsScript extends referencealias

;-- Properties --------------------------------------
miscobject property gold001 auto
miscobject property gold002 auto
miscobject property gold003 auto

;-- Functions ---------------------------------------

function OnInit()  	;-- Le jeu garde en mémoire l'inventaire marchand dans lequel il appliquera les prochaines fonctions
    self.RegisterForMenu("BarterMenu")
endFunction

function OnMenuOpen(String MenuName) ;-- calcule la somme totale, supprime toutes les pièces de l'inventaire, les remplace par leur équivalent en septims de base
    utility.WaitMenuMode(0.100000)
    Int copperSeptims = self.getactorreference().GetItemCount(gold001 as form)
    Int silverSeptims = self.getactorreference().GetItemCount(gold002 as form)
    Int goldSeptims = self.getactorreference().GetItemCount(gold003 as form)
    Int totalValue = copperSeptims + silverSeptims * 25 + goldSeptims * 100
    copperSeptims = totalValue
    game.GetPlayer().RemoveItem(gold003 as form, goldSeptims, true, none)
    game.GetPlayer().RemoveItem(gold002 as form, silverSeptims, true, none)
    game.GetPlayer().RemoveItem(gold001 as form, copperSeptims, true, none)
    game.GetPlayer().AddItem(gold001 as form, totalValue, true)
endFunction

function OnMenuClose(String MenuName) ;-- calcule la somme totale, supprime toutes les pièces, redistribue les septims d'or / d'argent / de cuivre selon une décomposition optimale
    utility.WaitMenuMode(0.100000)
    Int copperSeptims = self.getactorreference().GetItemCount(gold001 as form)
    Int silverSeptims = self.getactorreference().GetItemCount(gold002 as form)
    Int goldSeptims = self.getactorreference().GetItemCount(gold003 as form)
    Int totalValue = copperSeptims + silverSeptims * 25 + goldSeptims * 100
    game.GetPlayer().RemoveItem(gold003 as form, goldSeptims, true, none)
    game.GetPlayer().RemoveItem(gold002 as form, silverSeptims, true, none)
    game.GetPlayer().RemoveItem(gold001 as form, copperSeptims, true, none)
    goldSeptims = math.Floor((totalValue / 100) as Float)
    silverSeptims = math.Floor((totalValue % 100 / 25) as Float)
    copperSeptims = math.Floor((totalValue % 100 % 25) as Float)
    game.GetPlayer().AddItem(gold003 as form, goldSeptims, true)
    game.GetPlayer().AddItem(gold002 as form, silverSeptims, true)
    game.GetPlayer().AddItem(gold001 as form, copperSeptims, true)
endFunction