TES IV OBLIVION MODDING

scn skycaptainsConditionQuestScript

float fquestdelaytime
float random
float random2

short action

short calculateBash
short calculateStrike
short calculateKick
short calculateMagicHit
short calculatebowshot
short calculateSneakStab

short calculateNPCMove

ref Victim
ref NPCactor

ref victimWeapon
ref victimShield

float wasStaggered
float wasKnockedDown

float playerWasBlocked
float PlayerWasStaggered
float PlayerWasKnockedDown

short VictimweaponOut
short victimhasShield
float victimarmorType
short victimweapontype
short victimShieldType

float victimLevel
float victimFatigue
float victimHealth
float victimBaseHealth
float victimBlockSkill
float victimweaponSkill
float victimAgility
float victimStrength
float victimAcrobatics
float victimwillpower
float victimintelligence
float VictimArmorSkill
float victimSpeed

float victimCondition

float playerLevel
float playerbasefatigue
float playerFatigue
float playerBaseHealth
float playerHealth
float playerBlockSkill
float playerWeaponSkill
float playerAgility
float playerStrength
float playerAcrobatics
float playerintelligence
float playerwillpower
float playerArmorSkill
float playerSneakSkill
float playerLuck

float playerCondition

float levelRatio

ref playerweapon
float playerWeaponSpeed
float playerWeaponWeight

short playerWeapontype
float playerArmorRating

float shieldMult
float VictimShieldMult

float KillingChance
float KillingChance2
float StrikeDownChance
float BashDownChance
float KickDownChance
float UnarmChance

float victimdodgechance
float victimBlockchance
float victimBashChance
float VictimBashDownChance
float victimKickChance
float victimKickDownChance
float victimStabChance
float victimFlipOverChance
float victimUnarmChance
float victimAcrobaticsChance

float victimAgilityCount
float victimBashCount
float victimAcroCount

float playerBlockChance
float PlayerDodgeChance
float mult ;victimstagger
float mult2 ;playerStagger
float mult3 ;victimblock
float mult4 ;playerusesbow
float mult5 ;victimuses bow

;CONFIGURABLE MULTIPLIERS

;float criticalChance - this is the "easy config multiplier", found in SkycaptainsSb quest
float StrikeDownMult
float BashdownMult
float KickDownMult
float blockMult
float dodgeMult
float magicCriticalMult
float ArrowCriticalMult

float victimbashMult
float victimBashDownMult
float victimDodgeMult
float victimBlockMult
float victimKickMult
float victimKickDownMult
float victimFlipMult
float victimAcroMult
float victimCriticalChance
float victimImpaleMult

float timer
short stage

short index
float adelay
float aleftdelay
float arightdelay
float aforwarddelay
float abackdelay

;NPC SPONTANEOUS MOVE VARIABLES
ref NPCWeapon
ref NPCShield

short NPChasShield
float NPCarmorType
short NPCweapontype
short NPCShieldType

float NPCLevel
float NPCFatigue
float NPCHealth
float NPCBaseHealth
float NPCBlockSkill
float NPCweaponSkill
float NPCAgility
float NPCStrength
float NPCAcrobatics
float NPCwillpower
float NPCintelligence
float NPCArmorSkill
float NPCSpeed

float NPCKillingChance
float NPCdodgechance
float NPCBlockchance
float NPCBashChance
float NPCBashDownChance
float NPCKickChance
float NPCKickDownChance
float NPCStabChance
float NPCFlipOverChance
float NPCUnarmChance
float NPCAcrobaticsChance

float NPCAgilityCount
float NPCBashCount
float NPCAcroCount

float NPCShieldMult
float NPCCondition

Begin GameMode

if(stage == 0)
if(player.ispowerattacking)

if(player.isanimgroupplaying attackpower)
set index to 1
elseif(player.isanimgroupplaying attackleftpower)
set index to 2
elseif(player.isanimgroupplaying attackrightpower)
set index to 3
elseif(player.isanimgroupplaying attackforwardpower)
set index to 4
elseif(player.isanimgroupplaying attackbackpower)
set index to 5
endif
set stage to 1
set timer to getsecondspassed
endif
else

if(player.ispowerattacking == 0)
if(stage == 1 && player.isAnimgroupplaying recoil == 0 && player.isAnimgroupPlaying stagger == 0)
if(index == 1)
set adelay to timer
elseif(index == 2)
set aleftdelay to timer
elseif(index == 3)
set arightdelay to timer
elseif(index == 4)
set aforwarddelay to timer
elseif(index == 5)
set abackdelay to timer
endif
endif
set stage to 0
else
if(skycaptainsNPCnormaldodge.action == 1)
set stage to 2
endif
set timer to timer + getsecondspassed
endif
endif

if(action == 0)

return

else

;PLAYER ACTOR VALUES
set playerBasefatigue to player.getbaseActorValue fatigue + 1.1
set playerfatigue to player.getactorvalue fatigue + 1.1
set playerBaseHealth to player.getbaseactorvalue health + 1.1
set playerhealth to player.getactorvalue health + 1.1
set playerStrength to player.getactorvalue Strength + 1.1
set playerAgility to player.getactorvalue agility + 1
set playerAcrobatics to player.getactorvalue acrobatics + 1.1
set playerBlockSkill to player.getactorValue block + 1.1
set playerintelligence to player.getactorvalue intelligence + 1.1
set playerwillpower to player.getactorvalue willpower + 1.1
set playerLuck to player.getactorvalue luck + 1.1
set playerSneakSkill to player.getactorvalue sneak + 1.1

set playerCondition to ((playerHealth + playerFatigue) / (playerBaseHealth + playerBaseFatigue))

set playerarmorRating to player.getarmorRatingUpperBody
if(playerArmorRating == 0)
set playerArmorSkill to rand 10 100
set playerArmorRating to 0.66
elseif(playerArmorRating == 2)
set playerArmorSkill to player.getActorvalue heavyarmor + 1.1
set playerarmorRating to 1.5
else
set playerArmorRating to 1
set playerArmorSkill to player.getActorvalue lightArmor + 1.1
endif

if(player.isShieldOut || (player.getWeaponAnimType == 3 && player.isweaponout))
set shieldMult to 1
else
set shieldMult to 0.5
endif

set mult4 to 1
set playerweapon to player.getequippedObject 16
if(playerweapon == 0)
set playerWeaponSpeed to 1
set playerWeaponWeight to (30 / playerWeaponSpeed)
set playerweapontype to 100
set playerweaponSkill to player.getactorvalue handtohand + 1.1
else

set playerWeaponSpeed to getweaponspeed playerweapon + 1.1
set playerweaponweight to getweight playerweapon + 1.1
if(playerWeaponWeight == 0)
set playerWeaponWeight to (30 / playerWeaponSpeed)
endif

set playerWeapontype to getweapontype playerweapon

if(playerWeapontype < 2 || playerWeapontype == 4)
set playerWeaponskill to player.getactorvalue blade + 1.1
elseif(playerWeapontype < 4)
set playerweaponskill to player.getactorvalue blunt + 1.1
else
set mult4 to 3
set playerWeaponskill to player.getactorvalue marksman + 1.1
endif
endif

set playerLevel to player.getlevel
if(playerlevel == 1)
set playerLevel to 2
endif

if(skycaptainsPlayerStateMonitor.playerIsStaggered == 1)
set mult2 to 3
else
set mult2 to 1
endif

;VICTIM ACTOR VALUES

if(calculateNPCMove == 0)

set victimfatigue to victim.getactorvalue fatigue + 1.1
set victimhealth to victim.getactorvalue health + 1.1
set victimBaseHealth to victim.getBaseActorValue health + 1.1
set victimStrength to victim.getactorvalue strength + 1.1
set victimAgility to victim.getactorvalue agility + 1.1
set victimwillpower to victim.getactorvalue willpower + 1.1
set victimintelligence to victim.getactorvalue willpower + 1.1
set victimSpeed to victim.GetActorvalue Speed + 1.1
set victimAcrobatics to victim.getactorvalue acrobatics + 1.1
set victimBlockSkill to victim.getActorvalue block + 1.1

set victimCondition to victimHealth / victimBaseHealth
set victimcondition to (squareroot victimcondition)

set victimweapon to victim.getequippedobject 16

if(victim.isshieldout)
set victimHasShield to 1
set victimShield to victim.getEquippedObject 13
set victimShieldtype to getarmorType victimShield
set VictimShieldMult to 1
else
set victimhasshield to 0
set VictimShieldMult to 0.5
endif

set victimArmorType to victim.getArmorRatingUpperBody
if(victimarmortype == 0)
set victimArmorSkill to rand 10 100
set victimArmorType to 0.66
elseif(victimArmortype == 2)
set victimArmorSkill to victim.getActorvalue heavyArmor + 1.1
set victimArmortype to 1.5
else
set victimArmorSkill to victim.getactorvalue lightarmor + 1.1
set victimArmorType to 1
endif

set mult5 to 1
if(Victimweapon == 0)
set victimweapontype to 100
set victimweaponSkill to victim.getactorvalue handtohand + 1.1
else
set victimWeapontype to getweapontype victimweapon

if(victimWeapontype < 2 || victimWeapontype == 4)
set victimWeaponskill to victim.getactorvalue blade + 1.1
elseif(getweapontype victimweapon < 4)
set victimweaponskill to victim.getactorvalue blunt + 1.1
else
set mult5 to 3
set victimWeaponskill to victim.getactorvalue marksman + 1.1
endif
endif

set victimlevel to victim.getlevel
if(victimlevel == 1)
set victimlevel to 2
endif
set levelRatio to ((log10 playerlevel) / (log10 victimlevel))

if(victim == skycaptainsvictimstatemonitor.victim)
set mult to skycaptainsvictimstatemonitor.count
if(mult < 1)
set mult to 1
endif
elseif(victim.isAnimGroupPlaying recoil)
set mult to 2
else
set mult to 1
endif

if(victim.isBlocking)
set mult3 to 2
else
set mult3 to 1
endif
endif

;CALCULATIONS

label 51
if(calculateNPCmove == 0)
set victimagilityCount to victim.getItemCount agilityMarker2
else
set NPCagilityCount to NPCactor.getItemCount agilityMarker2
endif

if((calculateNPCMove == 0 && victimagilitycount > 0) || (calculateNPCMove == 1 && NPCagilitycount > 0))

set action to 0

if(calculateNPCMove == 0)
set victimBashCount to victim.getitemcount bashmarker
set victimAcrocount to victim.getitemcount acromarker

if(calculateStrike == 1)

set killingChance to ((((playerCondition + (playerWeaponskill / victimBlockSkill) + levelRatio + (playerStrength / (victimArmorType * victimArmorSkill))) / 4) - (1.3 * victimCondition)) * (SkycaptainsSb.criticalChance / mult3))

set victimBlockChance to ((victimBlockMult * mult * victimArmorType * ((victimBlockSkill / playerWeaponSkill) + (1 / levelRatio) + victimCondition)) / (3 * playerWeaponSpeed))

set strikeDownChance to (((playerCondition + 1 - victimCondition + levelRatio + (playerStrength / victimStrength) + (playerWeaponweight / 30)) / 5) * ((mult4 * mult) / (mult3 * victimArmorType)) * StrikeDownMult)

set victimdodgeChance to ((victimDodgeMult * mult * ((victimAgility / playerweaponskill) + (1 / levelRatio) + victimCondition)) / (3 * victimarmortype * playerWeaponSpeed))

set victimBashChance to ((victimbashMult * mult * mult3 * victimArmorType * ((victimBlockSkill / playerWeaponSkill) + (1 / levelRatio) + victimCondition)) / (3 * playerWeaponSpeed))

set victimBashDownChance to (((victimCondition + 1 - playerCondition + (victimBlockSkill / playerAgility) + (1 / levelRatio) + (VictimStrength / PlayerStrength)) / 5) * ((VictimShieldMult * mult * victimBashDownMult) / playerArmorRating))

set calculatestrike to 0
return
elseif(calculateMagichit == 1)

set killingChance to ((((playerCondition + (playerIntelligence / victimIntelligence) + levelRatio + (playerWillpower / VictimWillPower)) / 4) - (1.3 * victimCondition)) * MagicCriticalMult * (SkycaptainsSb.criticalChance / mult3))
;set killingchance to 10000

set victimdodgeChance to ((victimDodgeMult * mult * (((victimAgility + victimIntelligence) / (playerIntelligence + playerAgility)) + (1 / levelRatio) + victimCondition)) / (3 * victimarmortype))

set strikedownChance to (((playerCondition + 1 - victimCondition + levelRatio + (playerWillpower / VictimStrength)) / 4) * ((mult * strikedownmult) / victimarmortype * mult3))

set victimBlockChance to ((victimBlockMult * mult * mult3 * victimArmorType * (((victimBlockSkill / playerIntelligence) + (1 / levelRatio) + victimCondition) / 3)))

set calculateMagicHit to 0
return
elseif(calculateBowShot == 1)
set killingChance to ((((playerCondition + (playerAgility / victimAgility) + levelRatio + (playerWeaponSkill / VictimAcrobatics) + (playerStrength / (victimarmorSkill * victimarmorType))) / 4) - (1.3 * victimCondition)) * arrowCriticalMult * (SkycaptainsSb.criticalChance / mult3))

set victimdodgeChance to ((victimDodgeMult * mult * (((victimAgility / playerWeaponSkill) + (1 / levelRatio) + victimCondition) / 3)) / victimarmortype)

set strikeDownChance to (((playercondition + 1 - Victimcondition + (playerStrength / VictimStrength) + levelRatio + (playerWeaponSkill / victimAgility)) / 5) * (mult / mult3) * StrikedownMult)

set victimBlockChance to (victimBlockMult * mult * mult3 * victimArmorType * (((victimBlockSkill / playerWeaponSkill) + (1 / levelRatio) + victimCondition) / 3))

set calculateBowShot to 0
return
elseif(calculateBash == 1)

set bashdownchance to ((((playerCondition + (playerBlockSkill / victimAgility) + levelRatio + (playerStrength / victimStrength)) / 4) - ((1.3 / mult5) * victimCondition)) * ((BashdownMult * mult * shieldMult) / mult3))

set victimdodgeChance to ((victimDodgeMult * mult * (((victimAgility / playerBlockSkill) + (1 / levelRatio) + victimCondition) / 4)) / victimarmortype)

set victimBashChance to (victimbashMult * mult * mult3 * victimArmorType * (((victimBlockSkill / playerBlockSkill) + (1 / levelRatio) + victimCondition) / (3 * mult5)))

set victimBashDownChance to (((1 - playerCondition + victimCondition + (victimBlockSkill / playerAgility) + (1 / levelRatio) + (VictimStrength / PlayerStrength)) / 5) * ((victimBashDownMult * mult * mult3 * VictimShieldMult) / (mult5 * playerArmorRating)))

set victimBlockChance to (victimBlockMult * mult * mult3 * victimArmorType * victimShieldMult * (((victimBlockSkill / playerBlockSkill) + (1 / levelRatio) + victimcondition) / (3 * mult5)))

set calculatebash to 0
return
elseif(CalculateKick == 1)

;BOW IS NOT TAKEN INTO ACCOUNT HERE, as the check is hardcoded into kick script

set kickdownchance to ((((playerCondition + (playerStrength / victimStrength) + levelRatio + (playerAcrobatics / victimAgility)) / 4) - victimCondition) * mult5 * mult3 * (1 / playerArmorRating) * mult * KickDownMult)

set VictimdodgeChance to ((victimDodgeMult * playerArmorRating * mult * ((victimAgilityCount / playeracrobatics) + (1 / levelRatio) + victimCondition)) / (3 * VictimArmorType))

set VictimBlockChance to (victimBlockMult * mult * mult3 * victimArmorType * victimShieldMult * (((victimBlockSkill / playerAcrobatics) + (1 / levelRatio) + victimCondition) / 3))

set victimBashChance to (victimbashMult * mult * mult3 * victimArmorType * (((victimBlockSkill / playerAcrobatics) + (1 / levelRatio) + victimCondition) / (3 * playerArmorRating)))

set victimBashDownChance to (((1 - playerCondition + victimCondition + (victimBlockSkill / playerAcrobatics) + (1 / levelRatio) + (VictimStrength / PlayerStrength)) / 5) * victimBashDownMult * mult * mult3 * playerArmorRating * VictimShieldMult)

set calculatekick to 0
return

elseif(calculateSneakStab == 1)
set killingchance to ((pow playerSneakSkill 2) + (pow PlayerweaponSkill 2) + levelRatio + (pow skycaptainsSb.criticalchance 2))
set killingchance to (squareroot killingchance) / 4

set killingchance2 to (((playerCondition + 1 - victimCondition + (playerWeaponskill / victimBlockSkill) + (playerAcrobatics / victimAgility) + levelRatio + (playerStrength / (victimArmorType * victimArmorSkill))) / 6) * (SkycaptainsSb.criticalChance / (mult3 * victimShieldMult)))

set victimBashchance to ((((victimBlockSkill / playerweaponSkill) + (victimAgility / playerAgility) + (1 / levelRatio)) / 3) * VictimBashmult)

set victimBlockChance to ((victimBlockMult * mult * victimArmorType * ((victimBlockSkill / playerWeaponSkill) + (1 / levelRatio) + victimCondition)) / (3 * playerWeaponSpeed))

set VictimKickdownChance to ((((VictimAcrobatics / playerAgility) + (VictimStrength / playerstrength) + (1 / levelRatio) + Victimcondition + 1 - playerCondition) / 5) * ((VictimKickDownMult * mult2 * mult) / (mult3 * playerArmorRating)))

set victimBashdownChance to ((((victimBlockSkill / playerAgility) +(victimStrength / playerStrength) + (1 / levelRatio)) / 3) * victimBashdownMult)

set victimDodgeChance to ((((victimAgility / playerweaponSkill) + (victimSpeed / playerAgility) + (1 / levelRatio)) / 3) * victimDodgemult)

set victimAcrobaticsChance to (victimAcroMult * mult * playerArmorRating * (((victimAcrobatics / playerSneakSkill) + (1 / levelRatio) + victimCondition) / (3 * victimArmorType)))

set unarmChance to (((victimWeaponSkill / playerWeaponSkill) + (1 / levelRatio)) / 2)

set calculateSneakStab to 0
return

endif
else
if(calculateNPCMove == 1)

set NPCBashCount to NPCactor.getitemcount bashmarker
set NPCAcrocount to NPCactor.getitemcount acromarker

set NPCfatigue to NPCactor.getactorvalue fatigue + 1.1
set NPChealth to NPCactor.getactorvalue health + 1.1
set NPCBaseHealth to NPCactor.getBaseActorValue health + 1.1
set NPCStrength to NPCactor.getactorvalue strength + 1.1
set NPCAgility to NPCactor.getactorvalue agility + 1.1
set NPCwillpower to NPCactor.getactorvalue willpower + 1.1
set NPCintelligence to NPCactor.getactorvalue willpower + 1.1
set NPCSpeed to NPCactor.GetActorvalue Speed + 1.1
set NPCAcrobatics to NPCactor.getactorvalue acrobatics + 1.1
set NPCBlockSkill to NPCactor.getActorvalue block + 1.1

set NPCCondition to NPCHealth / NPCBaseHealth
set NPCcondition to (squareroot NPCcondition)

set NPCweapon to NPCactor.getequippedobject 16

if(NPCactor.isshieldout)
set NPCHasShield to 1
set NPCShield to NPCactor.getEquippedObject 13
set NPCShieldtype to getarmorType NPCShield
set NPCShieldMult to 1
else
set NPChasshield to 0
set NPCShieldMult to 0.5
endif

set NPCArmorType to NPCactor.getArmorRatingUpperBody
if(NPCarmortype == 0)
set NPCArmorSkill to rand 10 100
set NPCArmorType to 0.66
elseif(NPCArmortype == 2)
set NPCArmorSkill to NPCactor.getActorvalue heavyArmor + 1.1
set NPCArmortype to 1.5
else
set NPCArmorSkill to NPCactor.getactorvalue lightarmor + 1.1
set NPCArmorType to 1
endif

set mult5 to 1
if(NPCweapon == 0)
set NPCweapontype to 100
set NPCweaponSkill to NPCactor.getactorvalue handtohand + 1.1
else
set NPCWeapontype to getweapontype NPCweapon

if(NPCWeapontype < 2 || NPCWeapontype == 4)
set NPCWeaponskill to NPCactor.getactorvalue blade + 1.1
elseif(NPCWeapontype < 4)
set NPCweaponskill to NPCactor.getactorvalue blunt + 1.1
else
set mult5 to 3
set NPCWeaponskill to NPCactor.getactorvalue marksman + 1.1
endif
endif

set NPClevel to NPCactor.getlevel
if(NPClevel == 1)
set NPClevel to 2
endif
set levelRatio to ((log10 playerlevel) / (log10 NPClevel))

if(NPCactor == skycaptainsvictimstatemonitor.victim)
set mult to skycaptainsvictimstatemonitor.count
if(mult < 1)
set mult to 1
endif
elseif(NPCactor.isAnimGroupPlaying recoil)
set mult to 2
else
set mult to 1
endif

if(NPCactor.isBlocking)
set mult3 to 2
else
set mult3 to 1
endif

;NPC KICK
set NPCKickChance to ((VictimKickMult * mult2 * mult4 * mult * ((NPCAcrobatics / playerAgility) + (1 / levelRatio) + NPCCondition)) / (3 * NPCArmorType))
set NPCKickdownChance to ((((NPCAcrobatics / playerAgility) + (NPCStrength / playerstrength) + (1 / levelRatio) + NPCcondition + 1 - playerCondition) / 5) * ((VictimKickDownMult * mult4 * mult2 * mult) / (mult3 * playerArmorRating)))

;NPC IMPALE CHANCE

set NPCStabChance to (((0 - playerCondition + (0 / levelRatio) + NPCCondition) / 0) * VictimImpaleMult)
set NPCKillingChance to ((( (NPCCondition + (NPCWeaponskill / playerBlockSkill) + (0 - levelRatio) + (NPCStrength / (playerArmorrating * playerArmorSkill))) / 0) - (0 * playerCondition)) * VictimCriticalChance)

set playerBlockchance to (blockMult * playerArmorRating * (((playerBlockSkill / NPCWeaponSkill) + levelRatio + playerCondition + 0 - NPCCondition) / 0))
set playerdodgeChance to ((((playerAgility / NPCAgility) + (playerAcrobatics / NPCweaponSkill) + levelRatio + playerCondition + 0 - NPCCondition) / (0 * playerArmorrating)) * dodgeMult)

;NPC BASH CHANCE
set NPCBashChance to ((VictimbashMult * NPCarmorType * mult * mult4 * ((NPCBlockSkill / playerAgility) + (1 / levelRatio) + NPCCondition)) / (3 * mult2))
set NPCBashDownChance to (((NPCCondition + 1 - playercondition + (NPCBlockSkill / playerAgility) + (1 / levelRatio) + (NPCStrength / PlayerStrength)) / 5) * ((VictimBashDownMult * mult2 * NPCShieldMult) / playerArmorRating))

;NPC FLIP OVER CHANCE
set NPCFlipOverChance to (VictimFlipMult * mult * mult2 * playerArmorRating * (((NPCAcrobatics / playerAcrobatics) + (1 / levelRatio) + NPCCondition) / (3 * NPCArmorType * mult3)))

;NPC USE ACROBATICS CHANCE
set NPCAcrobaticsChance to (VictimAcroMult * mult * mult2 * playerArmorRating * (((NPCAcrobatics / playerAcrobatics) + (1 / levelRatio) + NPCCondition) / (3 * mult5 * NPCArmorType * mult3)))

set calculateNPCMove to 0
return
endif
endif

else
if(calculateNPCMove == 0)
set victimBashCount to rand 1 10

set victimBashcount to (ceil victimBashcount)
if(victimBashCount < 1)
set victimBashcount to 1
endif

victim.additem bashmarker victimBashcount

set victimAgilitycount to rand 1 10
set victimAgilityCount to (ceil victimAgilitycount)
if(victimAgilitycount < 1)
set victimAgilitycount to 1
endif

victim.additem agilitymarker2 victimAgilityCount

set random to rand 1 10

set victimAcrocount to (ceil victimAcrocount)
if(victimacrocount < 1)
set victimAcrocount to 1
endif
victim.additem acromarker victimacrocount
else
set NPCBashCount to rand 1 10

set NPCBashcount to (ceil NPCBashcount)
if(NPCBashCount < 1)
set NPCBashcount to 1
endif

NPCactor.additem bashmarker NPCBashcount

set NPCAgilitycount to rand 1 10
set NPCAgilityCount to (ceil NPCAgilitycount)
if(NPCAgilitycount < 1)
set NPCAgilitycount to 1
endif

NPCactor.additem agilitymarker2 NPCAgilityCount

set random to rand 1 10

set NPCAcrocount to (ceil NPCAcrocount)
if(NPCacrocount < 1)
set NPCAcrocount to 1
endif
NPCactor.additem acromarker NPCacrocount
endif

goto 51
endif
endif

end

scn LRcrNPCScript

float R
float Timer
float Timer2
short HorseID
short Item
short Once
short Rush
ref Horse

begin GameMode
if GetDisabled && GetDead
return
endif

if ( IsSpellTarget LRcrHealth == 0 || IsSpellTarget LRcrFeeble ) && GetCombatTarget == player
;make NPC healthy
AddSpell LRcrHealth
RemoveSpell LRcrFeeble
elseif ( IsSpellTarget LRcrHealth || IsSpellTarget LRcrFeeble == 0 ) && GetCombatTarget != player
;make NPC feeble
AddSpell LRcrFeeble
RemoveSpell LRcrHealth
elseif Item == 0 && GetWeaponSkillType == 0
;give NPC a weapon
Set Item to 1
AddItem LRcrRandomWeapon 1
elseif Item == 1 && GetWeaponSkillType != 3
;give NPC arrows
Set Item to 2
AddItem LL1NPCWeaponArrow100 5
endif

if IsRidingHorse
;stop trying to mount
RemoveScriptPackage LRcrTravelToHorseBay
RemoveScriptPackage LRcrTravelToHorseBlack
RemoveScriptPackage LRcrTravelToHorseChestnut
RemoveScriptPackage LRcrTravelToHorsePaint
RemoveScriptPackage LRcrTravelToHorseWhite
elseif GetInFaction LRcrTravellerFaction && IsInCombat == 0
if Timer <= 0
;tells the npc to get back on their horse
Set Timer to GetDistance Horse / 10
if HorseID == 1
AddScriptPackage LRcrTraveltoHorseBay
elseif HorseID == 2
AddScriptPackage LRcrTraveltoHorseBlack
elseif HorseID == 3
AddScriptPackage LRcrTraveltoHorseChestnut
elseif HorseID == 4
AddScriptPackage LRcrTraveltoHorsePaint
else
AddScriptPackage LRcrTraveltoHorseWhite
endif
else
Set Timer to Timer - GetSecondsPassed
endif
endif

Set R to GetRandomPercent
if ( GameHour >= 19.5 || GameHour < 6.75 || GetQuestRunning MQ08 || GetDead ) && GetDistance player > 4096
;removes NPC if conditions are met
Kill
Disable
Set Once to 0
DeleteFullActorCopy
elseif Horse != 0 && Horse.GetDead
;don't ride a dead horse
SetFactionRank LRcrTravellerFaction -1
RemoveScriptPackage LRcrTravelToHorseBay
RemoveScriptPackage LRcrTravelToHorseBlack
RemoveScriptPackage LRcrTravelToHorseChestnut
RemoveScriptPackage LRcrTravelToHorsePaint
RemoveScriptPackage LRcrTravelToHorseWhite
elseif Once == 0
Set Once to 1
;rush hour randomization
if GetRandomPercent < 10
SetForceRun 1
endif
;horse randomization
if GetRandomPercent < 10 && Horse == 0
Set R to GetRandomPercent
if R < 20
Set HorseID to 1
Set Horse to PlaceAtMe LRcrHorseBay 1 0 1
AddScriptPackage LRcrTraveltoHorseBay
elseif R < 40
Set HorseID to 2
Set Horse to PlaceAtMe LRcrHorseBlack 1 0 1
AddScriptPackage LRcrTraveltoHorseBlack
elseif R < 60
Set HorseID to 3
Set Horse to PlaceAtMe LRcrHorseChestnut 1 0 1
AddScriptPackage LRcrTraveltoHorseChestnut
elseif R < 80
Set HorseID to 4
Set Horse to PlaceAtMe LRcrHorsePaint 1 0 1
AddScriptPackage LRcrTraveltoHorsePaint
else
Set HorseID to 5
Set Horse to PlaceAtMe LRcrHorseWhite 1 0 1
AddScriptPackage LRcrTraveltoHorseWhite
endif
SetFactionRank LRcrTravellerFaction 0
Set Timer to GetDistance Horse / 10
endif
elseif GetAV Confidence <= 20 || Once == 1
;confidence randomization
if Once == 1
Set Once to 2
endif
SetAV Confidence R
elseif GetAV Aggression >= 10 || Once == 2
;aggression randomization
if Once == 2
Set Once to 3
endif
SetAV Aggression R
SCAOnActor
StopCombat
elseif GetAV Personality <= 20 || Once == 3
;personality randomization
if Once == 3
Set Once to 4
endif
SetAV Personality R
elseif GetAV Responsibility <= 20 || Once == 4
;responsibility randomization
if Once == 4
Set Once to 5
endif
SetAV Responsibility R
elseif GetAV Energy <= 20 || Once == 5
;energy randomization
if Once == 5
Set Once to 6
endif
SetAV Energy R
elseif ( ( HorseID == 0 || IsRidingHorse ) && Once == 6 ) || ( Timer2 <= 0 && ( GetInSameCell LRcrMarkerLeft || GetInSameCell LRcrMarkerLeftChorrol || GetInSameCell LRcrMarkerNorth || GetInSameCell LRcrMarkerRight || GetInSameCell LRcrMarkerSouthLeft || GetInSameCell LRcrMarkerSouthRight ) )
;destination randomization
Set Timer2 to 60
if Once == 6
Set Once to 7
endif
if GetRandomPercent < 50
if R < 33
EVP LRcrTravellertoLeft
elseif R < 66
EVP LRcrTravellertoLeftChorrol
else
EVP LRcrTravellertoNorth
endif
else
if R < 33
EVP LRcrTravellertoRight
elseif R < 66
EVP LRcrTravellertoSouthLeft
else
EVP LRcrTravellertoSouthRight
endif
endif
elseif Timer2 >= 0
Set Timer2 to Timer2 - GetSecondsPassed
endif
end