scn EHMannequinScript short Activated
short type
short button
Short Pose
short RePose
Short EndPose
short WasPossed Float Timer
REF ActorName
REF MoveToPos begin OnLoad
Set Timer to .1
SetActorsAI 0
Set Repose to 1
SetGhost 1
SetPlayerTeammate 0
end Begin OnActivate Player if IsActionRef Player == 1 && Activated == 0
If GetISID EHMannequinMale
showmessage EHMannequinMessage
else
showmessage EHMannequinMessage02
endif
endif end Begin GameMode If GetInSameCell EHMannequinsStartREF == 0 Set MoveToPos to GetLinkedRef if MoveToPos == 0 ;doesnt have a linked reference
Disable
MarkForDelete
else
SetActorAlpha 0
Moveto MoveToPos
endif endif IF GetInSameCell player set button to getbuttonpressed if button == 0

SetPlayerTeammate 1
OpenTeammateContainer
SetPlayerTeammate 0
Set Pose to 2
elseif button ==1 Set WasPossed to 0
Disable

If GetIsReference EHMannequinMale01
EHMannequinFemale01.Enable
removeallitems EHMannequinFemale01
Set EHMannequinFemale01.Pose to 2 elseIf GetIsReference EHMannequinMale02
EHMannequinFemale02.Enable
removeallitems EHMannequinFemale02
Set EHMannequinFemale02.Pose to 2 elseIf GetIsReference EHMannequinMale03
EHMannequinFemale03.Enable
removeallitems EHMannequinFemale03
Set EHMannequinFemale03.Pose to 2 elseIf GetIsReference EHMannequinMale04
EHMannequinFemale04.Enable
removeallitems EHMannequinFemale04
Set EHMannequinFemale04.Pose to 2 elseIf GetIsReference EHMannequinMale05
EHMannequinFemale05.Enable
removeallitems EHMannequinFemale05
Set EHMannequinFemale05.Pose to 2 elseIf GetIsReference EHMannequinMale06
EHMannequinFemale06.Enable
removeallitems EHMannequinFemale06
Set EHMannequinFemale06.Pose to 2 elseIf GetIsReference EHMannequinMale07
EHMannequinFemale07.Enable
removeallitems EHMannequinFemale07
Set EHMannequinFemale07.Pose to 2 elseIf GetIsReference EHMannequinMale08
EHMannequinFemale08.Enable
removeallitems EHMannequinFemale08
Set EHMannequinFemale08.Pose to 2 elseIf GetIsReference EHMannequinMale09
EHMannequinFemale09.Enable
removeallitems EHMannequinFemale09
Set EHMannequinFemale09.Pose to 2 elseIf GetIsReference EHMannequinMale10
EHMannequinFemale10.Enable
removeallitems EHMannequinFemale10
Set EHMannequinFemale10.Pose to 2 elseIf GetIsReference EHMannequinMale11
EHMannequinFemale11.Enable
removeallitems EHMannequinFemale11
Set EHMannequinFemale11.Pose to 2 elseIf GetIsReference EHMannequinMale12
EHMannequinFemale12.Enable
removeallitems EHMannequinFemale12
Set EHMannequinFemale12.Pose to 2 endif elseif button ==2 Set WasPossed to 0
Disable If GetIsReference EHMannequinFemale01 == 1
EHMannequinMale01.Enable
removeallitems EHMannequinMale01
Set EHMannequinMale01.Pose to 2 elseIf GetIsReference EHMannequinFemale02 == 1
EHMannequinMale02.Enable
removeallitems EHMannequinMale02
Set EHMannequinMale02.Pose to 2 elseIf GetIsReference EHMannequinFemale03 == 1
EHMannequinMale03.Enable
removeallitems EHMannequinMale03
Set EHMannequinMale03.Pose to 2 elseIf GetIsReference EHMannequinFemale04 == 1
EHMannequinMale04.Enable
removeallitems EHMannequinMale04
Set EHMannequinMale04.Pose to 2 elseIf GetIsReference EHMannequinFemale05 == 1
EHMannequinMale05.Enable
removeallitems EHMannequinMale05
Set EHMannequinMale05.Pose to 2 elseIf GetIsReference EHMannequinFemale06 == 1
EHMannequinMale06.Enable
removeallitems EHMannequinMale06
Set EHMannequinMale06.Pose to 2 elseIf GetIsReference EHMannequinFemale07 == 1
EHMannequinMale07.Enable
removeallitems EHMannequinMale07
Set EHMannequinMale07.Pose to 2 elseIf GetIsReference EHMannequinFemale08 == 1
EHMannequinMale08.Enable
removeallitems EHMannequinMale08
Set EHMannequinMale08.Pose to 2 elseIf GetIsReference EHMannequinFemale09 == 1
EHMannequinMale09.Enable
removeallitems EHMannequinMale09
Set EHMannequinMale09.Pose to 2 elseIf GetIsReference EHMannequinFemale10 == 1
EHMannequinMale10.Enable
removeallitems EHMannequinMale10
Set EHMannequinMale10.Pose to 2 elseIf GetIsReference EHMannequinFemale11 == 1
EHMannequinMale11.Enable
removeallitems EHMannequinMale11
Set EHMannequinMale11.Pose to 2 elseIf GetIsReference EHMannequinFemale12 == 1
EHMannequinMale12.Enable
removeallitems EHMannequinMale12
Set EHMannequinMale12.Pose to 2 endif elseif button == 3
;equip weapon
Set pose to 1
AddItem EHMannequinAmmoList, 1, 1 elseif button == 4
;unequip weapon
Set pose to 2 endif if Timer > 0
set Timer to Timer - GetSecondsPassed elseif EndPose == 1 && GetAnimAction != 0 && GetAnimAction != 1
; Pose, stage 2. Turn off AI to freeze it in place.
RemoveScriptPackage EHMannequinWeaponReady
RemoveScriptPackage EHMannequinWeaponHolster
SetActorsAI 0
Set EndPose to 0
RemoveItem EHMannequinAmmoList, 1, 1
Set Activated to 0
SetActorAlpha 1 elseIf Pose == 1
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 4
set EndPose to 1
Set WasPossed to 1
Set Pose to 0
AddScriptPackage EHMannequinWeaponReady
EvaluatePackage EHMannequinWeaponReady
;SetPlayerTeammate 0

elseIf Pose == 2
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 2
set EndPose to 1
Set WasPossed to 0
Set Pose to 0
AddScriptPackage EHMannequinWeaponHolster
EvaluatePackage EHMannequinWeaponHolster
;SetPlayerTeammate 0 elseIf RePose == 1 && GetInSameCell Player == 1 Set MoveToPos to GetLinkedRef
Moveto MoveToPos

If WasPossed == 1
Set Pose to 1
Set RePose to 0
AddItem EHMannequinAmmoList, 1, 1
else
Set Pose to 2
Set RePose to 0
endif endif
endif END

scn EHMannequinScript

short Activated
short type
short button
Short Pose
short RePose
Short EndPose
short WasPossed

Float Timer
REF ActorName
REF MoveToPos

begin OnLoad
    Set Timer to .1
    Set Repose to 1
    SetActorsAI 0
    SetGhost 1
    SetPlayerTeammate 1
end

begin OnActivate

if IsActionRef Player == 1 && Activated == 0

     If GetIsID EHMannequin01 == 1
        showmessage EHMannequinMessageCF
        set type to 0
    else
        showmessage EHMannequinMessageCM
        set type to 1
    endif
endif

end

Begin GameMode

IF GetInSameCell player

    set button to getbuttonpressed

    if button == 0
        
        OpenTeammateContainer
        Set Pose to 2
        

    elseif button ==1

        ;Change Mannequin Sex

        if type == 0

            Set WasPossed to 0
            Disable
            
            If GetIsReference EHMannequin01REF == 1
                EHMannequinFemale01REF.Enable
                removeallitems EHMannequinFemale01REF
                Set EHMannequinFemale01REF.Pose to 2

            elseIf GetIsReference EHMannequin02REF == 1
                EHMannequinFemale02REF.Enable
                removeallitems EHMannequinFemale02REF
                Set EHMannequinFemale02REF.Pose to 2

            elseIf GetIsReference EHMannequin03REF == 1
                EHMannequinFemale03REF.Enable
                removeallitems EHMannequinFemale03REF
                Set EHMannequinFemale03REF.Pose to 2

            elseIf GetIsReference EHMannequin04REF == 1
                EHMannequinFemale04REF.Enable
                removeallitems EHMannequinFemale04REF
                Set EHMannequinFemale04REF.Pose to 2

            elseIf GetIsReference EHMannequin05REF == 1
                EHMannequinFemale05REF.Enable
                removeallitems EHMannequinFemale05REF
                Set EHMannequinFemale05REF.Pose to 2

            elseIf GetIsReference EHMannequin06REF == 1
                EHMannequinFemale06REF.Enable
                removeallitems EHMannequinFemale06REF
                Set EHMannequinFemale06REF.Pose to 2

            elseIf GetIsReference EHMannequin07REF == 1
                EHMannequinFemale07REF.Enable
                removeallitems EHMannequinFemale07REF
                Set EHMannequinFemale07REF.Pose to 2

            elseIf GetIsReference EHMannequin08REF == 1
                EHMannequinFemale08REF.Enable
                removeallitems EHMannequinFemale08REF
                Set EHMannequinFemale08REF.Pose to 2

            elseIf GetIsReference EHMannequin09REF == 1
                EHMannequinFemale09REF.Enable
                removeallitems EHMannequinFemale09REF
                Set EHMannequinFemale09REF.Pose to 2

            elseIf GetIsReference EHMannequin10REF == 1
                EHMannequinFemale10REF.Enable
                removeallitems EHMannequinFemale10REF
                Set EHMannequinFemale10REF.Pose to 2

            elseIf GetIsReference EHMannequin11REF == 1
                EHMannequinFemale11REF.Enable
                removeallitems EHMannequinFemale11REF
                Set EHMannequinFemale11REF.Pose to 2

            elseIf GetIsReference EHMannequin12REF == 1
                EHMannequinFemale12REF.Enable
                removeallitems EHMannequinFemale12REF
                Set EHMannequinFemale12REF.Pose to 2

            elseIf GetIsReference EHMannequin13REF == 1
                EHMannequinFemale13REF.Enable
                removeallitems EHMannequinFemale13REF
                Set EHMannequinFemale13REF.Pose to 2

            elseIf GetIsReference EHMannequin14REF == 1
                EHMannequinFemale14REF.Enable
                removeallitems EHMannequinFemale14REF
                Set EHMannequinFemale14REF.Pose to 2

            elseIf GetIsReference EHMannequin15REF == 1
                EHMannequinFemale15REF.Enable
                removeallitems EHMannequinFemale15REF
                Set EHMannequinFemale15REF.Pose to 2

            elseIf GetIsReference EHMannequin16REF == 1
                EHMannequinFemale16REF.Enable
                removeallitems EHMannequinFemale16REF
                Set EHMannequinFemale16REF.Pose to 2

            endif

        elseif type == 1

            Set WasPossed to 0
            Disable

            If GetIsReference EHMannequinFemale01REF == 1
                EHMannequin01REF.Enable
                removeallitems EHMannequin01REF
                Set EHMannequin01REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale02REF == 1
                EHMannequin02REF.Enable
                removeallitems EHMannequin02REF
                Set EHMannequin02REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale03REF == 1
                EHMannequin03REF.Enable
                removeallitems EHMannequin03REF
                Set EHMannequin03REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale04REF == 1
                EHMannequin04REF.Enable
                removeallitems EHMannequin04REF
                Set EHMannequin04REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale05REF == 1
                EHMannequin05REF.Enable
                removeallitems EHMannequin05REF
                Set EHMannequin05REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale06REF == 1
                EHMannequin06REF.Enable
                removeallitems EHMannequin06REF
                Set EHMannequin06REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale07REF == 1
                EHMannequin07REF.Enable
                removeallitems EHMannequin07REF
                Set EHMannequin07REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale08REF == 1
                EHMannequin08REF.Enable
                removeallitems EHMannequin08REF
                Set EHMannequin08REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale09REF == 1
                EHMannequin09REF.Enable
                removeallitems EHMannequin09REF
                Set EHMannequin09REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale10REF == 1
                EHMannequin10REF.Enable
                removeallitems EHMannequin10REF
                Set EHMannequin10REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale11REF == 1
                EHMannequin11REF.Enable
                removeallitems EHMannequin11REF
                Set EHMannequin11REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale12REF == 1
                EHMannequin12REF.Enable
                removeallitems EHMannequin12REF
                Set EHMannequin12REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale13REF == 1
                EHMannequin13REF.Enable
                removeallitems EHMannequin13REF
                Set EHMannequin13REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale14REF == 1
                EHMannequin14REF.Enable
                removeallitems EHMannequin14REF
                Set EHMannequin14REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale15REF == 1
                EHMannequin15REF.Enable
                removeallitems EHMannequin15REF
                Set EHMannequin15REF.Pose to 2

            elseIf GetIsReference EHMannequinFemale16REF == 1
                EHMannequin16REF.Enable
                removeallitems EHMannequin16REF
                Set EHMannequin16REF.Pose to 2

            endif

        endif

    elseif button == 2
            ;equip weapon
            Set pose to 1
            AddItem EHMannequinAmmoList, 1, 1

    elseif button == 3
            ;unequip weapon
            Set pose to 2

    endif

    if Timer > 0
        set Timer to Timer - GetSecondsPassed

    elseif EndPose == 1 && GetAnimAction != 0 && GetAnimAction != 1
        ; Pose, stage 2. Turn off AI to freeze it in place.
        RemoveScriptPackage EHMannequinWeaponReady
        RemoveScriptPackage EHMannequinWeaponHolster
        SetActorsAI 0
        Set EndPose to 0
        RemoveItem EHMannequinAmmoList, 1, 1
        Set Activated to 0
        SetActorAlpha 1

    elseIf Pose == 1
        SetActorAlpha 0
        Set Activated to 1
        SetActorsAI 1
        set Timer to 4
        set EndPose to 1
        Set WasPossed to 1
        Set Pose to 0
        AddScriptPackage EHMannequinWeaponReady
        EvaluatePackage EHMannequinWeaponReady
    
    elseIf Pose == 2
        SetActorAlpha 0
        Set Activated to 1
        SetActorsAI 1
        set Timer to 2
        set EndPose to 1
        Set WasPossed to 0
        Set Pose to 0
        AddScriptPackage EHMannequinWeaponHolster
        EvaluatePackage EHMannequinWeaponHolster    

    elseIf RePose == 1 && GetInSameCell Player == 1

        Set MoveToPos to GetLinkedRef
        Moveto MoveToPos
        
        If WasPossed == 1
            Set Pose to 1
            Set RePose to 0
            AddItem EHMannequinAmmoList, 1, 1
        else
            Set Pose to 2
            Set RePose to 0
        endif

    endif
endif

END

scn EHMannequinSciptPosition

Short DoOnce
Short DoOnceB

Begin GameMode

;Males

    if Player.GetInSameCell EHMannequinsStartREF == 0  && DoOnce == 0
        
        If EHMannequin01REF.GetDisabled == 0
            Set EHMannequin01REF.RePose to 1
        endif
        If EHMannequin02REF.GetDisabled == 0
            Set EHMannequin02REF.RePose to 1
        endif
        If EHMannequin03REF.GetDisabled == 0
            Set EHMannequin03REF.RePose to 1
        endif
        If EHMannequin04REF.GetDisabled == 0
            Set EHMannequin04REF.RePose to 1
        endif
        If EHMannequin05REF.GetDisabled == 0
            Set EHMannequin05REF.RePose to 1
        endif
        If EHMannequin06REF.GetDisabled == 0
            Set EHMannequin06REF.RePose to 1
        endif
        If EHMannequin07REF.GetDisabled == 0
            Set EHMannequin07REF.RePose to 1
        endif
        If EHMannequin08REF.GetDisabled == 0
            Set EHMannequin08REF.RePose to 1
        endif
        If EHMannequin09REF.GetDisabled == 0
            Set EHMannequin09REF.RePose to 1
        endif
        If EHMannequin10REF.GetDisabled == 0
            Set EHMannequin10REF.RePose to 1
        endif
        If EHMannequin11REF.GetDisabled == 0
            Set EHMannequin11REF.RePose to 1
        endif
        If EHMannequin12REF.GetDisabled == 0
            Set EHMannequin12REF.RePose to 1
        endif
        If EHMannequin13REF.GetDisabled == 0
            Set EHMannequin13REF.RePose to 1
        endif
        If EHMannequin14REF.GetDisabled == 0
            Set EHMannequin14REF.RePose to 1
        endif
        If EHMannequin15REF.GetDisabled == 0
            Set EHMannequin15REF.RePose to 1
        endif
        If EHMannequin16REF.GetDisabled == 0
            Set EHMannequin16REF.RePose to 1
        endif

;Females
        If EHMannequinFemale01REF.GetDisabled == 0
            Set EHMannequinFemale01REF.RePose to 1
        endif
        If EHMannequinFemale02REF.GetDisabled == 0
            Set EHMannequinFemale02REF.RePose to 1
        endif
        If EHMannequinFemale03REF.GetDisabled == 0
            Set EHMannequinFemale03REF.RePose to 1
        endif
        If EHMannequinFemale04REF.GetDisabled == 0
            Set EHMannequinFemale04REF.RePose to 1
        endif
        If EHMannequinFemale05REF.GetDisabled == 0
            Set EHMannequinFemale05REF.RePose to 1
        endif
        If EHMannequinFemale06REF.GetDisabled == 0
            Set EHMannequinFemale06REF.RePose to 1
        endif
        If EHMannequinFemale07REF.GetDisabled == 0
            Set EHMannequinFemale07REF.RePose to 1
        endif
        If EHMannequinFemale08REF.GetDisabled == 0
            Set EHMannequinFemale08REF.RePose to 1
        endif
        If EHMannequinFemale09REF.GetDisabled == 0
            Set EHMannequinFemale09REF.RePose to 1
        endif
        If EHMannequinFemale10REF.GetDisabled == 0
            Set EHMannequinFemale10REF.RePose to 1
        endif
        If EHMannequinFemale11REF.GetDisabled == 0
            Set EHMannequinFemale11REF.RePose to 1
        endif
        If EHMannequinFemale12REF.GetDisabled == 0
            Set EHMannequinFemale12REF.RePose to 1
        endif
        If EHMannequinFemale13REF.GetDisabled == 0
            Set EHMannequinFemale13REF.RePose to 1
        endif
        If EHMannequinFemale14REF.GetDisabled == 0
            Set EHMannequinFemale14REF.RePose to 1
        endif
        If EHMannequinFemale15REF.GetDisabled == 0
            Set EHMannequinFemale15REF.RePose to 1
        endif
        If EHMannequinFemale16REF.GetDisabled == 0
            Set EHMannequinFemale16REF.RePose to 1
        endif

        Set DoOnce to 1

    elseif Player.GetInSameCell EHMannequinsStartREF
        Set DoOnce to 0
    endif

END

SCN EHMannequinFixSwitchScript1

REF ManneqName

Begin OnActivate

Set ManneqName to GetLinkedRef

IF ManneqName == EHMannequin01REF

EHMannequin01REF.moveto EHMannequinsSet1REF
EHMannequinFemale01REF.moveto EHMannequinsSet1REF

Set EHMannequin01REF.RePose to 1
Set EHMannequinFemale01REF.RePose to 1

Set EHMannequin01REF.Activated to 0
Set EHMannequinFemale01REF.Activated to 0

EHMannequinFemale01REF.removeallitems EHMannequin01REF
EHMannequin01REF.Enable
EHMannequinFemale01REF.Disable

elseIF ManneqName == EHMannequin02REF

EHMannequin02REF.moveto EHMannequinsSet2REF
EHMannequinFemale02REF.moveto EHMannequinsSet2REF

Set EHMannequin02REF.RePose to 1
Set EHMannequinFemale02REF.RePose to 1

Set EHMannequin02REF.Activated to 0
Set EHMannequinFemale02REF.Activated to 0

EHMannequinFemale02REF.removeallitems EHMannequin02REF
EHMannequin02REF.Enable
EHMannequinFemale02REF.Disable

elseIF ManneqName == EHMannequin03REF

EHMannequin03REF.moveto EHMannequinsSet3REF
EHMannequinFemale03REF.moveto EHMannequinsSet3REF

Set EHMannequin03REF.RePose to 1
Set EHMannequinFemale03REF.RePose to 1

Set EHMannequin03REF.Activated to 0
Set EHMannequinFemale03REF.Activated to 0

EHMannequinFemale03REF.removeallitems EHMannequin03REF
EHMannequin03REF.Enable
EHMannequinFemale03REF.Disable

elseIF ManneqName == EHMannequin04REF

EHMannequin04REF.moveto EHMannequinsSet4REF
EHMannequinFemale04REF.moveto EHMannequinsSet4REF

Set EHMannequin04REF.RePose to 1
Set EHMannequinFemale04REF.RePose to 1

Set EHMannequin04REF.Activated to 0
Set EHMannequinFemale04REF.Activated to 0

EHMannequinFemale04REF.removeallitems EHMannequin04REF
EHMannequin04REF.Enable
EHMannequinFemale04REF.Disable

elseIF ManneqName == EHMannequin05REF

EHMannequin05REF.moveto EHMannequinsSet5REF
EHMannequinFemale05REF.moveto EHMannequinsSet5REF

Set EHMannequin05REF.RePose to 1
Set EHMannequinFemale05REF.RePose to 1

Set EHMannequin05REF.Activated to 0
Set EHMannequinFemale05REF.Activated to 0

EHMannequinFemale05REF.removeallitems EHMannequin05REF
EHMannequin05REF.Enable
EHMannequinFemale05REF.Disable

elseIF ManneqName == EHMannequin06REF

EHMannequin06REF.moveto EHMannequinsSet6REF
EHMannequinFemale06REF.moveto EHMannequinsSet6REF

Set EHMannequin06REF.RePose to 1
Set EHMannequinFemale06REF.RePose to 1

Set EHMannequin06REF.Activated to 0
Set EHMannequinFemale06REF.Activated to 0

EHMannequinFemale06REF.removeallitems EHMannequin06REF
EHMannequin06REF.Enable
EHMannequinFemale06REF.Disable

elseIF ManneqName == EHMannequin07REF

EHMannequin07REF.moveto EHMannequinsSet7REF
EHMannequinFemale07REF.moveto EHMannequinsSet7REF

Set EHMannequin07REF.RePose to 1
Set EHMannequinFemale07REF.RePose to 1

Set EHMannequin07REF.Activated to 0
Set EHMannequinFemale07REF.Activated to 0

EHMannequinFemale07REF.removeallitems EHMannequin07REF
EHMannequin07REF.Enable
EHMannequinFemale07REF.Disable

elseIF ManneqName == EHMannequin08REF

EHMannequin08REF.moveto EHMannequinsSet8REF
EHMannequinFemale08REF.moveto EHMannequinsSet8REF

Set EHMannequin08REF.RePose to 1
Set EHMannequinFemale08REF.RePose to 1

Set EHMannequin08REF.Activated to 0
Set EHMannequinFemale08REF.Activated to 0

EHMannequinFemale08REF.removeallitems EHMannequin08REF
EHMannequin08REF.Enable
EHMannequinFemale08REF.Disable

elseIF ManneqName == EHMannequin09REF

EHMannequin09REF.moveto EHMannequinsSet9REF
EHMannequinFemale09REF.moveto EHMannequinsSet9REF

Set EHMannequin09REF.RePose to 1
Set EHMannequinFemale09REF.RePose to 1

Set EHMannequin09REF.Activated to 0
Set EHMannequinFemale09REF.Activated to 0

EHMannequinFemale09REF.removeallitems EHMannequin09REF
EHMannequin09REF.Enable
EHMannequinFemale09REF.Disable

elseIF ManneqName == EHMannequin10REF

EHMannequin10REF.moveto EHMannequinsSet10REF
EHMannequinFemale10REF.moveto EHMannequinsSet10REF

Set EHMannequin10REF.RePose to 1
Set EHMannequinFemale10REF.RePose to 1

Set EHMannequin10REF.Activated to 0
Set EHMannequinFemale10REF.Activated to 0

EHMannequinFemale10REF.removeallitems EHMannequin10REF
EHMannequin10REF.Enable
EHMannequinFemale10REF.Disable

elseIF ManneqName == EHMannequin11REF

EHMannequin11REF.moveto EHMannequinsSet11REF
EHMannequinFemale11REF.moveto EHMannequinsSet11REF

Set EHMannequin11REF.RePose to 1
Set EHMannequinFemale11REF.RePose to 1

Set EHMannequin11REF.Activated to 0
Set EHMannequinFemale11REF.Activated to 0

EHMannequinFemale11REF.removeallitems EHMannequin11REF
EHMannequin11REF.Enable
EHMannequinFemale11REF.Disable

elseIF ManneqName == EHMannequin12REF

EHMannequin12REF.moveto EHMannequinsSet12REF
EHMannequinFemale12REF.moveto EHMannequinsSet12REF

Set EHMannequin12REF.RePose to 1
Set EHMannequinFemale12REF.RePose to 1

Set EHMannequin12REF.Activated to 0
Set EHMannequinFemale12REF.Activated to 0

EHMannequinFemale12REF.removeallitems EHMannequin12REF
EHMannequin12REF.Enable
EHMannequinFemale12REF.Disable

elseIF ManneqName == EHMannequin13REF

EHMannequin13REF.moveto EHMannequinsSet13REF
EHMannequinFemale13REF.moveto EHMannequinsSet13REF

Set EHMannequin13REF.RePose to 1
Set EHMannequinFemale13REF.RePose to 1

Set EHMannequin13REF.Activated to 0
Set EHMannequinFemale13REF.Activated to 0

EHMannequinFemale13REF.removeallitems EHMannequin13REF
EHMannequin13REF.Enable
EHMannequinFemale13REF.Disable

elseIF ManneqName == EHMannequin14REF

EHMannequin14REF.moveto EHMannequinsSet14REF
EHMannequinFemale14REF.moveto EHMannequinsSet14REF

Set EHMannequin14REF.RePose to 1
Set EHMannequinFemale14REF.RePose to 1

Set EHMannequin14REF.Activated to 0
Set EHMannequinFemale14REF.Activated to 0

EHMannequinFemale14REF.removeallitems EHMannequin14REF
EHMannequin14REF.Enable
EHMannequinFemale14REF.Disable

elseIF ManneqName == EHMannequin15REF

EHMannequin15REF.moveto EHMannequinsSet15REF
EHMannequinFemale15REF.moveto EHMannequinsSet15REF

Set EHMannequin15REF.RePose to 1
Set EHMannequinFemale15REF.RePose to 1

Set EHMannequin15REF.Activated to 0
Set EHMannequinFemale15REF.Activated to 0

EHMannequinFemale15REF.removeallitems EHMannequin15REF
EHMannequin15REF.Enable
EHMannequinFemale15REF.Disable

elseIF ManneqName == EHMannequin16REF

EHMannequin16REF.moveto EHMannequinsSet16REF
EHMannequinFemale16REF.moveto EHMannequinsSet16REF

Set EHMannequin16REF.RePose to 1
Set EHMannequinFemale16REF.RePose to 1

Set EHMannequin16REF.Activated to 0
Set EHMannequinFemale16REF.Activated to 0

EHMannequinFemale16REF.removeallitems EHMannequin16REF
EHMannequin16REF.Enable
EHMannequinFemale16REF.Disable

endif

END

scn EHMannequinScript

short Activated
short type
short button
Short Pose
short RePose
Short EndPose
short WasPossed

Float Timer
REF ActorName
REF MoveToPos

begin OnLoad
Set Timer to .1
Set Repose to 1
SetActorsAI 0
SetGhost 1
SetPlayerTeammate 1
end

begin OnActivate

if IsActionRef Player == 1 && Activated == 0

If GetIsID EHMannequin01 == 1
showmessage EHMannequinMessageCF
set type to 0
else
showmessage EHMannequinMessageCM
set type to 1
endif
endif

end

Begin GameMode

IF GetInSameCell player

set button to getbuttonpressed

if button == 0

OpenTeammateContainer
Set Pose to 2

elseif button ==1

;Change Mannequin Sex

if type == 0

Set WasPossed to 0
Disable

elseif type == 1

Set WasPossed to 0
Disable

endif

elseif button == 2
;equip weapon
Set pose to 1
AddItem EHMannequinAmmoList, 1, 1

elseif button == 3
;unequip weapon
Set pose to 2

endif

if Timer > 0
set Timer to Timer - GetSecondsPassed

elseif EndPose == 1 && GetAnimAction != 0 && GetAnimAction != 1
; Pose, stage 2. Turn off AI to freeze it in place.
RemoveScriptPackage EHMannequinWeaponReady
RemoveScriptPackage EHMannequinWeaponHolster
SetActorsAI 0
Set EndPose to 0
RemoveItem EHMannequinAmmoList, 1, 1
Set Activated to 0
SetActorAlpha 1

elseIf Pose == 1
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 4
set EndPose to 1
Set WasPossed to 1
Set Pose to 0
AddScriptPackage EHMannequinWeaponReady
EvaluatePackage EHMannequinWeaponReady

elseIf Pose == 2
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 2
set EndPose to 1
Set WasPossed to 0
Set Pose to 0
AddScriptPackage EHMannequinWeaponHolster
EvaluatePackage EHMannequinWeaponHolster

elseIf RePose == 1 && GetInSameCell Player == 1

Set MoveToPos to GetLinkedRef
Moveto MoveToPos

If WasPossed == 1
Set Pose to 1
Set RePose to 0
AddItem EHMannequinAmmoList, 1, 1
else
Set Pose to 2
Set RePose to 0
endif

endif
endif

END

If GetIsReference EHMannequin01REF == 1
EHMannequinFemale01REF.Enable
removeallitems EHMannequinFemale01REF
Set EHMannequinFemale01REF.Pose to 2

If GetIsReference EHMannequinFemale01REF == 1
EHMannequin01REF.Enable
removeallitems EHMannequin01REF
Set EHMannequin01REF.Pose to 2

scn EHMannequinScript

short Activated
short type
short button
Short Pose
short RePose
Short EndPose
short WasPossed

Float Timer
REF ActorName
REF MoveToPos

begin OnLoad
Set Timer to .1
Set Repose to 1
SetActorsAI 0
SetGhost 1
SetPlayerTeammate 1
end

begin OnActivate

if IsActionRef Player == 1 && Activated == 0

If GetIsID EHMannequin01 == 1
showmessage EHMannequinMessageCF
set type to 0
else
showmessage EHMannequinMessageCM
set type to 1
endif
endif

end

Begin GameMode

IF GetInSameCell player

set button to getbuttonpressed

if button == 0

OpenTeammateContainer
Set Pose to 2

elseif button ==1

;Change Mannequin Sex

if type == 0

Set WasPossed to 0
Disable

elseif type == 1

Set WasPossed to 0
Disable

endif

elseif button == 2
;equip weapon
Set pose to 1
AddItem EHMannequinAmmoList, 1, 1

elseif button == 3
;unequip weapon
Set pose to 2

endif

if Timer > 0
set Timer to Timer - GetSecondsPassed

elseif EndPose == 1 && GetAnimAction != 0 && GetAnimAction != 1
; Pose, stage 2. Turn off AI to freeze it in place.
RemoveScriptPackage EHMannequinWeaponReady
RemoveScriptPackage EHMannequinWeaponHolster
SetActorsAI 0
Set EndPose to 0
RemoveItem EHMannequinAmmoList, 1, 1
Set Activated to 0
SetActorAlpha 1

elseIf Pose == 1
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 4
set EndPose to 1
Set WasPossed to 1
Set Pose to 0
AddScriptPackage EHMannequinWeaponReady
EvaluatePackage EHMannequinWeaponReady

elseIf Pose == 2
SetActorAlpha 0
Set Activated to 1
SetActorsAI 1
set Timer to 2
set EndPose to 1
Set WasPossed to 0
Set Pose to 0
AddScriptPackage EHMannequinWeaponHolster
EvaluatePackage EHMannequinWeaponHolster

elseIf RePose == 1 && GetInSameCell Player == 1

Set MoveToPos to GetLinkedRef
Moveto MoveToPos

If WasPossed == 1
Set Pose to 1
Set RePose to 0
AddItem EHMannequinAmmoList, 1, 1
else
Set Pose to 2
Set RePose to 0
endif

endif
endif

END

If GetIsReference EHMannequin01REF == 1
                EHMannequinFemale01REF.Enable
                removeallitems EHMannequinFemale01REF
                Set EHMannequinFemale01REF.Pose to 2

If GetIsReference EHMannequinFemale01REF == 1
                EHMannequin01REF.Enable
                removeallitems EHMannequin01REF
                Set EHMannequin01REF.Pose to 2