Scriptname MannequinActivatorSCRIPT extends Actor

import debug
import utility
import game

idle Property Pose01 Auto
idle Property Pose02 Auto
idle Property Pose03 Auto

Form Property ArmorSlot01 auto hidden
Form Property ArmorSlot02 auto hidden
Form Property ArmorSlot03 auto hidden
Form Property ArmorSlot04 auto hidden
Form Property ArmorSlot05 auto hidden
Form Property ArmorSlot06 auto hidden
Form Property ArmorSlot07 auto hidden
Form Property ArmorSlot08 auto hidden
Form Property ArmorSlot09 auto hidden
Form Property ArmorSlot10 auto hidden

Form Property EmptySlot auto hidden

Message Property MannequinActivateMESSAGE Auto
{Message that appears upon activating the mannequin}

Message Property MannequinArmorWeaponsMESSAGE Auto
{Message that appears when you attempt to place a non-armor item}

int Property CurrentPose =1 Auto
{The pose the Mannequin starts in, and is currently in. DEFAULT = 1}

;----------------;

Form[] kArmor

Race akBaseRace
Form kWeapon
Form kWeaponL
Form kAmmo
bool bAlertDone
bool bAlert
bool bNoMessage
bool bSKSE
int ihpc
int iNewRace
float fTime

;-----------------;

Event OnInit()
if GetState() != "StateStart"
gotoState("StateStart")
endif
endEvent

Event OnCellAttach()
if GetState() != "StateDefault"
gotoState("StateStart")
endif
endEvent

Event OnCellLoad()
if GetState() != "StateDefault"
gotoState("StateStart")
endif
endEvent

auto State StateStart

Event OnBeginState()
; Notification("Start New Script Mannequin!")
gotoState("StateDefault")
StartScript()
EndEvent

endState

Event OnEnable()
EquipCurrentWeapon()
EquipCurrentArmor()
endEvent

;----------------;

State StateDefault

Event OnCellLoad()
wait(0.25)
iNewRace = 0
bNoMessage = false
bAlertDone = false
SerchSKSE()
if akBaseRace == none
akBaseRace = GetActorBase().GetRace()
endif
float fRendTime = RandomFloat(0.05, 0.15)
Wait(fRendTime)
HeadReset()
EquipCurrentWeapon()
EquipCurrentArmor()
self.BlockActivation()
RegisterAnimation()
EnableAI(true)
MoveTo(GetLinkedRef())
PlayCurrentPose()
Wait(0.5)
RemoveEmptySlot()
endEvent

Event OnActivate(ObjectReference TriggerRef)
SerchSKSE()
if GetPlayer().IsSneaking()
FindRace()
else
int buttonPressed = MannequinActivateMESSAGE.Show()
if buttonPressed == 0
PlayDefaultPose()
gotoState("EquipState")
self.OpenInventory(true)
wait(0.2)
;
MoveTo(GetLinkedRef())
PlayCurrentPose()
gotoState("StateDefault")
elseif buttonPressed == 1
PlayDefaultPose()
EnableAI()
MoveTo(GetLinkedRef())
PlayCurrentPose()
EnableAI(false)
endif
endif
endEvent

endState

;---------------;

State EquipState

Event OnItemAdded(Form akBaseItem, int aiItemCount, ObjectReference akItemReference, ObjectReference akSourceContainer)
if akBaseItem as Armor
if aiItemCount > 1 && akSourceContainer == GetPlayer()
RemoveItem(akBaseItem, aiItemCount - 1, true, GetPlayer())
endif
AddToArmorSlot(akBaseItem)
elseif akBaseItem as Weapon
if ValidWeapon(akBaseItem)
if GetEquippedWeapon() == none
kWeapon = akBaseItem
EquipItem(akBaseItem)
elseif GetEquippedWeapon(true) == none && ValidWeapon(GetEquippedWeapon())
kWeaponL = akBaseItem
EquipItemEx(akBaseItem, 2)
else
if kWeapon
RemoveItem(kWeapon, GetItemCount(kWeapon), true, GetPlayer())
endif
kWeapon = akBaseItem
EquipItem(akBaseItem)
endif
else
if kWeapon
RemoveItem(kWeapon, GetItemCount(kWeapon), true, GetPlayer())
kWeapon = none
endif
if kWeaponL
RemoveItem(kWeaponL, GetItemCount(kWeaponL), true, GetPlayer())
kWeaponL = none
endif
kWeapon = akBaseItem
EquipItem(akBaseItem)
endif
elseif akBaseItem as Ammo
if kAmmo && kAmmo != akBaseItem
UnequipItem(kAmmo)
RemoveItem(kAmmo, GetItemCount(kAmmo), true, GetPlayer())
endif
kAmmo = akBaseItem
EquipCurrentWeapon(false)
else
MessageBox("This item not for a Mannequin.")
RemoveItem(akBaseItem, aiItemCount, true, GetPlayer())
endif
if bSKSE
QueueNiNodeUpdate()
endif
endEvent

Event OnObjectUnequipped(Form akBaseObject, ObjectReference akReference)
WaitMenuMode(0.2)
if akBaseObject as Armor
RemoveFromArmorSlot(akBaseObject)
RemoveItem(akBaseObject, GetItemCount(akBaseObject), true, GetPlayer())
endif
if akBaseObject as Weapon
if akBaseObject != kWeapon && akBaseObject != kWeaponL
RemoveItem(akBaseObject, GetItemCount(akBaseObject), true, GetPlayer())
endif
endIf
endEvent

Event OnObjectEquipped(Form akBaseObject, ObjectReference akReference)
if akBaseObject as Weapon
EquipCurrentWeapon(false)
endIf
endEvent

Event OnItemRemoved(Form akBaseItem, int aiItemCount, ObjectReference akItemReference, ObjectReference akDestContainer)
if akBaseItem as Ammo
EquipCurrentWeapon(false)
EquipCurrentArmor()
endIf
if akBaseItem as Weapon
EquipCurrentArmor()
endIf
endEvent

Event OnEndState()
if bSKSE
QueueNiNodeUpdate()
endif
endEvent

endState

Event OnAnimationEvent(ObjectReference akSource, string asEventName)
if akSource == self
if asEventName == "WeaponDraw"
int iNext
bAlert = false
While (GetAnimationVariableBool("IsEquipping") || GetAnimationVariableBool("IsUnequipping")) && iNext < 45
Wait(0.1)
iNext += 1
endWhile
if !GetAnimationVariableBool("IsEquipping") && !GetAnimationVariableBool("IsUnequipping")
EnableAI(false)
endif
endif
if asEventName == "Unequip_Out" || asEventName == "Magic_UnEquip_Out"
int iNext
bAlert = false
While (GetAnimationVariableBool("IsEquipping") || GetAnimationVariableBool("IsUnequipping")) && iNext < 40
Wait(0.1)
iNext += 1
endWhile
if !GetAnimationVariableBool("IsEquipping") && !GetAnimationVariableBool("IsUnequipping")
EnableAI(false)
endif
endif
endIf
endEvent

;-----------------;

Function RegisterAnimation()
RegisterForAnimationEvent(self, "WeaponDraw")
RegisterForAnimationEvent(self, "Unequip_Out")
RegisterForAnimationEvent(self, "Magic_UnEquip_Out")
endFunction

Function PlayDefaultPose()
if CurrentPose == 1
PlayIdle(Pose01)
elseif CurrentPose == 2
PlayIdle(Pose02)
elseif CurrentPose == 3
PlayIdle(Pose03)
endif
endFunction

Function PlayCurrentPose()
int rendomPose
Wait(0.2)
if GetEquippedWeapon()
rendomPose = RandomInt(111, 200)
elseif GetEquippedShield()
rendomPose = RandomInt(91, 110)
bAlertDone = false
else
rendomPose = RandomInt()
bAlertDone = false
endif
EnableAI(true)
MoveTo(getLinkedRef())
bAlert = true
if rendomPose > 110
SetAnimationVariableBool("IsEquipping", false)
SetAnimationVariableBool("IsUnequipping", false)
if bAlertDone == false
SetAlert()
bAlertDone = true
fTime = 2.8
else
if IsEquipped(kWeapon)
UnequipItem(kWeapon)
EquipItem(kWeapon)
endif
if ValidWeapon(kWeaponL) && IsEquipped(kWeaponL)
UnequipItem(kWeaponL)
EquipItemEx(kWeaponL, 2)
endif
fTime = 3.2
bAlertDone = false
endif
elseif rendomPose > 90
sendAnimationEvent(self, "idlePlayer")
fTime = 0.8
elseif rendomPose > 80
sendAnimationEvent(self, "IdleCleanSword")
fTime = 2.1
elseif rendomPose > 70
sendAnimationEvent(self, "idleLookFar")
fTime = 1.4
elseif rendomPose > 63
sendAnimationEvent(self, "IdleMQ201ToastStart")
fTime = 1.4
elseif rendomPose > 58
sendAnimationEvent(self, "IdleBracedPain")
fTime = 1.5
elseif rendomPose > 51
sendAnimationEvent(self, "IdleMQ206FelldirShowScroll")
fTime = 1.5
elseif rendomPose > 44
sendAnimationEvent(self, "IdleLockPick")
fTime = 2.15
elseif rendomPose > 36
sendAnimationEvent(self, "IdleHandsBehindBack")
fTime = 1.4
elseif rendomPose > 28
sendAnimationEvent(self, "IdleHandCut")
fTime = 2.1
elseif rendomPose > 21
sendAnimationEvent(self, "idleMQ201Drink")
fTime = 1.5
elseif rendomPose > 13
sendAnimationEvent(self, "idleCowering")
fTime = 0.6
elseif rendomPose > 8
sendAnimationEvent(self, "IdleMagic_01")
fTime = 2.0
elseif rendomPose && rendomPose <= 8
sendAnimationEvent(self, "sneakStart")
fTime = 1.2
else
sendAnimationEvent(self, "idlePlayer")
fTime = 0.8
endif
if rendomPose > 8
if !IsSneaking() && GetAnimationVariableInt("iIsInSneak") != 0
SetAnimationVariableInt("iIsInSneak", 0)
endif
endif
Wait(0.2)
if bAlert
Wait(fTime)
bAlert = false
EnableAI(false)
return
endif
if IsAIEnabled()
int iNext
While IsAIEnabled() && iNext < 50
Wait(0.1)
iNext += 1
endWhile
endif
endFunction

Function StartScript()
kArmor = new Form[32]
UnequipAll()
ArmorSlot01 = none
ArmorSlot02 = none
ArmorSlot03 = none
ArmorSlot04 = none
ArmorSlot05 = none
ArmorSlot06 = none
ArmorSlot07 = none
ArmorSlot08 = none
ArmorSlot09 = none
ArmorSlot10 = none
EmptySlot = none
RegisterAnimation()
AllowPCDialogue(false)
self.BlockActivation()
akBaseRace = self.GetActorBase().GetRace()
SerchSKSE()
PlayDefaultPose()
Wait(0.2)
MoveTo(GetLinkedRef())
EnableAI(false)
endFunction

Function EquipCurrentArmor()
int index
While index < 32
if kArmor [index]!= none
Form kArmorTemp = kArmor
[index]if GetItemCount(kArmorTemp)
if !IsEquipped(kArmorTemp)
EquipItem(kArmorTemp)
endif
else
kArmor [index]= none
endif
endif
index += 1
endWhile
if bSKSE
QueueNiNodeUpdate()
endif
endFunction

Function EquipCurrentWeapon(bool bWP = true)
if kAmmo
if GetItemCount(kAmmo)
if !IsEquipped(kAmmo) && GetEquippedItemType(1) == 7
EquipItem(kAmmo)
elseif IsEquipped(kAmmo) && GetEquippedItemType(1) != 7
UnequipItem(kAmmo)
endif
endif
endif
if kWeapon && bWP
if GetItemCount(kWeapon)
if !IsEquipped(kWeapon)
EquipItem(kWeapon)
endif
else
kWeapon = none
endif
endif
if kWeaponL && bWP && IsEquipped(kWeapon)
if GetItemCount(kWeaponL)
if !IsEquipped(kWeaponL) && ValidWeapon(kWeaponL)
EquipItemEx(kWeaponL, 2)
endif
else
kWeaponL = none
endif
endif
endFunction

bool Function ValidWeapon(Form akItem)
bool bValid
if bSKSE && akItem as Weapon
if (akItem as Weapon).GetWeaponType() >= 1 && (akItem as Weapon).GetWeaponType() < 5
bValid = true
endif
endif
return bValid
endFunction

Function AddToArmorSlot(Form akBaseItem)
int index = 0
if akBaseItem as Armor
index = kArmor.Find(none)
if index > -1
kArmor [index]= akBaseItem
EquipItem(akBaseItem)
else
RemoveItem(akBaseItem, 1, true, GetPlayer())
Notification("Inventar is Full, no empty clote!")
endif
endif
endFunction

Function RemoveFromArmorSlot(Form akBaseItem)
int index = kArmor.Find(akBaseItem)
if index > -1
kArmor [index]= none
endif
endFunction

Function RemoveEmptySlot()
int index
While index < 32
if kArmor [index]!= none
if !IsEquipped(kArmor[index])
kArmor [index]= none
endif
endif
index += 1
endWhile
endFunction

Function FindRace()
if bNoMessage == false
MessageBox("В режиме 'сник' менется раса манекена. 'Средняя кнопка' - выбор расы, её название в верхем левом углу. При каждом нажатии кнопки меняется выбор расы и окно закрывается. 'Левая кнопка' - старт замены на выбранную расу. 'Правая кнопка' - отмена." )
bNoMessage = true
endif
int buttonPressed = MannequinActivateMESSAGE.Show()
if buttonPressed == 0
ChengRace()
elseif buttonPressed == 1
iNewRace += 1
if iNewRace == 1
Notification("Manakin Race")
elseif iNewRace == 2
Notification("Nord Race")
elseif iNewRace == 3
Notification("Orc Race")
elseif iNewRace == 4
Notification("Argonian Race")
elseif iNewRace == 5
Notification("Khajiit Race")
elseif iNewRace == 6
Notification("HighElf Race")
elseif iNewRace == 7
Notification("Imperial Race")
else
Notification("Default Race")
iNewRace = 0
endif
endif
endFunction

Function ChengRace()
Race akNewRace
if iNewRace == 1
akNewRace = GetFormFromFile(0x0010760A, "Skyrim.esm") as Race
elseif iNewRace == 2
akNewRace = GetFormFromFile(0x00013746, "Skyrim.esm") as Race
elseif iNewRace == 3
akNewRace = GetFormFromFile(0x00013747, "Skyrim.esm") as Race
elseif iNewRace == 4
akNewRace = GetFormFromFile(0x00013740, "Skyrim.esm") as Race
elseif iNewRace == 5
akNewRace = GetFormFromFile(0x00013745, "Skyrim.esm") as Race
elseif iNewRace == 6
akNewRace = GetFormFromFile(0x00013743, "Skyrim.esm") as Race
elseif iNewRace == 7
akNewRace = GetFormFromFile(0x00013744, "Skyrim.esm") as Race
else
akNewRace = akBaseRace
Notification("Current my Default Race")
endif
if akNewRace
UnequipAll()
RemoveEmptySlot()
kWeapon = none
SetRace(akNewRace)
AllowPCDialogue(false)
HeadReset()
EnableAI()
Wait(0.3)
EnableAI(false)
endif
endFunction

Function HeadReset()
if GetRace() != akBaseRace
Race akCurrentRace = GetRace()
Race akTempRace = GetFormFromFile(0x00013748, "Skyrim.esm") as Race
Wait(0.1)
if akTempRace
SetRace(akTempRace)
endif
Wait(0.1)
SetRace(akCurrentRace)
Wait(0.1)
SetRace(akCurrentRace)
endif
endFunction

Function SerchSKSE()
bSKSE = false
float fSKSE = SKSE.GetVersion() + SKSE.GetVersionMinor() * 0.01 + SKSE.GetVersionBeta() * 0.0001
if fSKSE >= 1.0613
bSKSE = true
endif
endFunction