Mod Request: Force slave to marry you

[xoxoleah32123]

I have no clue how to even begin to make a mod so could someone make a mod where you can force a slave to marry you

[Thargon]

When I complete my "Incubus" mod, this will be a standard spell available at higher levels of Incubus skill.

 

I've already written and tested the code, and it is centered on a script, which changed the needed attributes, factions and player realationship values, to place the target into a kind of stupor, in which she will aggree to the marriage, and accompany you to the alter.

 

I've another spell which just "Chained" the target, making a follower, and bound up for.... whatever.

 

There are limitations to the spells, to keep the game play interesting and challenging.

 

 

They include a quest to obtain the spell.  Rare mats required to cast the spell.  A time limit on how many time a month the spell can be cast. And a really large "Manna" requirement.

 

Manna is a special kind of Cyrstal Stored Magicka, which for Incubi is obtained by "converting" sweet Nords into Demon Sluts, as seen with Lily turning to the Dark-side, after seduction, by big D, in the Movie "Legend".

 

So, such things are possible, and comming, in my first LL mod.

 

 

[Thargon]

At the core of such a spell, you create a magic effect, which has a script, similar to this:

 

Scriptname SINT_Chains_Script extends activemagiceffect  
{Spell which can be used by Incubus to Capture an Enemy Female.  It can only be used Once a Day, and the victim must be violently sacrificed to Molag Bal. Not Always Killed, but abused. Used to generate Inc manna. }



slaFrameworkScr Property sla_Framework Auto

;--------- Imports -----------
Import Utility


;---------PROPERTIES-----------
Actor Property PlayerREF Auto                    ;


Actor Property NewCoterieMember Auto            ; Local Reference used for Global Handshaking


ReferenceAlias Property CoterieRecruit  Auto     ; The newest Member, not yet assigned a position


Faction property PlayerFollowerFaction auto                ;
Faction property PotentialFollowerFaction auto            ;
Faction property ZIC21_Player_04_Coterie_Faction auto    ;

Idle Property ChainedPoseIdle Auto                        ; ZazAPCAO303


;---------VARIABLES-----------

int ArouseInc; Amount of Arousal to be gained for this casting.
int Arousal; The current value of Arousal
int ArousalNew; The new Arousal value
int ArousalMinInc = 50;
String strName; Name of the Target

float fIncFactor;  How much this spell iteration is going to increase arousal
float fArouseFactor = 0.2;



;---------EVENTS---------------------------------------------------------------
;----------------------------------------------------------------------------------





;----------------------------------------------------------------------------------
;---------FUNCTIONS-----------


; =========================================================
 
function OnEffectStart(actor akTarget, actor akCaster)

    if (akTarget)

 
        ; Strip off everything
        akTarget.unequipall()    

        ; Set into Mid-Sequence IdlePose
        akTarget.PlayIdle(ChainedPoseIdle)

        NewCoterieMember = akTarget

          strName = akTarget.GetLeveledActorBase().GetName()

              Arousal = sla_Framework.GetActorExposure(akTarget)

        fIncFactor = (1.0 + (fArouseFactor * ArouseInc as float))

        ArousalNew =  (((Arousal *fIncFactor as float))+ArousalMinInc ) as int ;     

        If (ArousalNew >= 100)
            ArousalNew = 100
        endif

        sla_Framework.SetActorExposure(akTarget,ArousalNew)

        ; Make her into chained meat puppet.
        NewCoterieMember.StopCombat()                                 ; Remove Chained from combat
        NewCoterieMember.StopCombatAlarm()

        NewCoterieMember.AddToFaction(PlayerFollowerFaction);
        NewCoterieMember.AddToFaction(PotentialFollowerFaction);
        NewCoterieMember.AddToFaction(ZIC21_Player_04_Coterie_Faction);
; add toCoterie_Prisoner faction
        NewCoterieMember.SetRelationshipRank(Game.GetPlayer(), -4)
        NewCoterieMember.SetRestrained(true)
        NewCoterieMember.SetAlert(false)
        NewCoterieMember.SetAV("Confidence", 0)
        NewCoterieMember.SetAV("Aggression", 0)
        NewCoterieMember.SetAV("Assistance", 0)
        NewCoterieMember.SetAV("Energy", 10)
        NewCoterieMember.SetAV("Morality", 0)
        NewCoterieMember.SetDontMove(true)
        NewCoterieMember.SetExpressionOverride(9, 50) ;9: Mood Fear
        NewCoterieMember.SetUnconscious(true)

 
 
    endif

endfunction

;----------------------------------------------------------------------------------
;---------SCRIPTEND------------
;----------------------------------------------------------------------------------


;    0: Dialogue Anger
;    1: Dialogue Fear
;    2: Dialogue Happy
;    3: Dialogue Sad
;    4: Dialogue Surprise
;    5: Dialogue Puzzled
;    6: Dialogue Disgusted
;    7: Mood Neutral
;    8: Mood Anger
;    9: Mood Fear
;    10: Mood Happy
;    11: Mood Sad
;    12: Mood Surprise
;    13: Mood Puzzled
;    14: Mood Disgusted
;    15: Combat Anger
;    16: Combat Shout