I want to modify the script VStripSS1ControlScript that controls
the 3 ncr women who dance in the fountain in front of the Ultra Luxe,
so they do not leave and disappear from the game, is there any way
to do this?
Scn VStripSS1ControlScript
; Scripted scene with drunk trooper girls in the Ultra-Luxe's fountain. Unlike the other scripted scenes in the Strip, this one uses code attached to an object, rather than a quest.
; - Jorge
Ref Girl01
Ref MP01
Float Timer
Float Timer2
Float DistanceCheck
Short bAdmirersMove
Short bTroopersMove
Short bTroopersIn
Short bTroopersAtAprox
Short KillCode
Short BeginSS
Short LineCount
Short nTrooperLine
Short iCount
;For Press Demo only:
Short bMrHoldoutTalked
Short bMrHoldoutFailSafe
Begin GameMode
If KillCode == 1
Return
Else
If VStreetSS1.bStartOkay == 1
If VStreetFluffNPC.iPlayerInArea != 2
Set VStripSS00RandomHolder01REF.fDaysToEvent to GameDaysPassed
Set VStripSS00RandomHolder02REF.fDaysToEvent to GameDaysPassed
Set VStripSS00RandomHolder01REF.bTriggered to 0
Set VStripSS00RandomHolder02REF.bTriggered to 0
Set VStripSS00RandomHolder03REF.bTriggered to 0
Set VStripSS00RandomHolder04REF.bTriggered to 0
Set VStripSS00RandomHolder05REF.bTriggered to 0
VStripSS1GirlAREF.Disable
VStripSS1GirlBREF.Disable
VStripSS1GirlCREF.Disable
VStripSS1SecuritronAREF.Disable
VStripSS1SecuritronBREF.Disable
VStripSS1MPAREF.Disable
VStripSS1MPBREF.Disable
VStripSS1AdmirerAREF.Disable
VStripSS1AdmirerBREF.Disable
VStripSS1AdmirerCREF.Disable
VStripSS1AdmirerDREF.Disable
Set KillCode to 1
Return
Else
If BeginSS != 1
VStripSS1StarterREF.Enable 1
If iCount < 1
VStripSS1GirlAREF.Enable
Set iCount to 1
Return
Elseif iCount == 1
VStripSS1GirlBREF.Enable
Set iCount to 2
Return
Elseif iCount == 2
VStripSS1GirlCREF.Enable
Set iCount to 3
Return
Elseif iCount == 3
VStripSS1SecuritronAREF.Enable
Set iCount to 4
Return
Elseif iCount == 4
VStripSS1SecuritronBREF.Enable
Set iCount to 5
Return
Elseif iCount == 5
VStripSS1MPAREF.Enable
Set iCount to 6
Return
Elseif iCount == 6
VStripSS1MPBREF.Enable
Set iCount to 7
Return
Elseif iCount == 7
VStripSS1AdmirerAREF.Enable
Set iCount to 8
Return
Elseif iCount == 8
VStripSS1AdmirerBREF.Enable
Set iCount to 9
Return
Elseif iCount == 9
VStripSS1AdmirerCREF.Enable
Set iCount to 10
Return
Elseif iCount == 10
VStripSS1AdmirerDREF.Enable
Set iCount to 11
Return
Elseif iCount == 11
Set DistanceCheck to GetDistance Player
If DistanceCheck <= 1200
VStripSS1AdmirerDREF.AddScriptPackage VStripSS1AdmirerDTravelFountD
VStripSS1AdmirerBREF.AddScriptPackage VStripSS1AdmirerBTravelFountB
VStripSS1AdmirerCREF.AddScriptPackage VStripSS1AdmirerCTravelFountC
VStripSS1AdmirerAREF.AddScriptPackage VStripSS1AdmirerATravelFountA
VStripSS1AdmirerAREF.Look VStripSS1GirlAREF
VStripSS1AdmirerBREF.Look VStripSS1GirlCREF
VStripSS1AdmirerCREF.Look VStripSS1GirlAREF
VStripSS1AdmirerDREF.Look VStripSS1GirlBREF
VStripSS1SecuritronBREF.Look VStripSS1GirlBREF
VStripSS1SecuritronAREF.Look VStripSS1GirlAREF
Set VStripSS00RandomHolder01REF.fDaysToEvent to GameDaysPassed
Set VStripSS00RandomHolder02REF.fDaysToEvent to GameDaysPassed
Set BeginSS to 1
Endif
Endif
Elseif BeginSS == 1
Set Timer to Timer + GetSecondsPassed
If Timer > 1 && LineCount < 1
VStripSS1GirlAREF.AddScriptPackage VStripSS1FemDialPack01
VStripSS1MPAREF.AddScriptPackage VStripSS1MPATravelAproxA
VStripSS1MPBREF.AddScriptPackage VStripSS1MPBTravelAproxB
Set LineCount to 1
Elseif Timer > 4 && LineCount == 1
VStripSS1GirlBREF.AddScriptPackage VStripSS1FemDialPack02
Set LineCount to 2
Elseif Timer > 7 && LineCount == 2
VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack01
Set LineCount to 3
Elseif Timer > 10 && LineCount == 3
VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecDialPack10
Set LineCount to 4
Elseif Timer > 13 && LineCount == 4
VStripSS1GirlCREF.AddScriptPackage VStripSS1FemDialPack03
Set LineCount to 5
Elseif Timer > 17 && LineCount == 5
VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack11
Set LineCount to 6
Elseif Timer > 22 && LineCount == 6
;VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecDialPack03
Set LineCount to 7
Elseif Timer > 20 && LineCount == 7
VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack04
Set LineCount to 8
Elseif Timer > 26 && LineCount == 8
VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack05
Set LineCount to 9
Elseif Timer > 26 && LineCount == 9
;VStripSS1GirlBREF.AddScriptPackage VStripSS1FemDialPack05
Set LineCount to 10
Elseif Timer > 29 && LineCount == 10
VStripSS1GirlAREF.AddScriptPackage VStripSS1FemDialPack04
Set LineCount to 11
Elseif Timer > 34 && LineCount == 11
;VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack03
Set LineCount to 12
Elseif Timer > 34 && LineCount == 12
VStripSS1GirlCREF.AddScriptPackage VStripSS1FemDialPack06
Set LineCount to 13
Elseif Timer > 39 && LineCount == 13
;VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecDialPack08
Set LineCount to 14
Elseif Timer > 43 && LineCount == 14
VStripSS1GirlAREF.AddScriptPackage VStripSS1FemDialPack07
Set LineCount to 15
Elseif Timer > 47 && LineCount == 15
;VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecDialPack09
Set LineCount to 16
Elseif Timer > 49 && LineCount == 16
VStripSS1GirlBREF.AddScriptPackage VStripSS1FemDialPack08
;VStripSS1GirlAREF.PlayIdle LooseWaveHello
;VStripSS1GirlCREF.PlayIdle LooseWaveHello
Set LineCount to 17
Elseif Timer > 53 && LineCount == 17
VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecDialPack08
Set LineCount to 18
Elseif Timer > 54 && LineCount == 18
VStripSS1GirlBREF.AddScriptPackage VStripSS1GirlsEscapeTops
VStripSS1GirlAREF.AddScriptPackage VStripSS1GirlsEscapeTops
VStripSS1GirlCREF.AddScriptPackage VStripSS1GirlsEscapeTops
VStripSS1SecuritronBREF. StopLook VStripSS1GirlBREF
VStripSS1SecuritronAREF. StopLook VStripSS1GirlAREF
;VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecDialPack12
Set LineCount to 19
Elseif Timer > 57 && LineCount == 19
VStripSS1MPAREF.AddScriptPackage VStripSS1MPATravelTopsA
VStripSS1MPAREF.StopLook VStripSS1GirlAREF
Set LineCount to 20
Endif
If bTroopersMove != 1 && bTroopersIn != 1
If bTroopersAtAprox == 1
VStripSS1MPBREF.PlayIdle LoosePointingAllert
VStripSS1MPAREF.AddScriptPackage VStripSS1MPATravelFountA
Set Timer2 to 4
Set bTroopersMove to 1
Set bTroopersAtAprox to 0
Endif
Elseif bTroopersMove == 1 && bTroopersIn != 1
Set Timer2 to Timer2 - GetSecondsPassed
If Timer2 <= 0
VStripSS1MPBREF.AddScriptPackage VStripSS1MPBTravelFountB
Set bTroopersIn to 1
Endif
Elseif bTroopersMove == 1 && bTroopersIn == 1
Set Timer2 to Timer2 + GetSecondsPassed
If Timer2 > 3 && nTrooperLine < 1
VStripSS1MPAREF.AddScriptPackage VStripSS1MPDialPack01
VStripSS1MPAREF.PlayIdle LooseFingerShakeWarning
VStripSS1MPAREF.Look VStripSS1GirlAREF
;ShowWarning "MPA speaks 1st"
Set nTrooperLine to 1
Elseif Timer2 > 5 && nTrooperLine == 1
VStripSS1MPBREF.AddScriptPackage VStripSS1MPDialPack02
VStripSS1MPBREF.Look VStripSS1GirlCREF
;ShowWarning "MPB speaks 1st"
Set nTrooperLine to 2
Elseif Timer2 > 8 && nTrooperLine == 2
VStripSS1MPBREF.AddScriptPackage VStripSS1MPDialPack04
;ShowWarning "MPA speaks 2nd"
Set nTrooperLine to 3
Elseif Timer2 > 11 && nTrooperLine == 3
;VStripSS1MPBREF.AddScriptPackage VStripSS1MPDialPack04
;ShowWarning "MPB speaks 2nd"
Set nTrooperLine to 4
Elseif Timer2 > 22 && nTrooperLine == 4
VStripSS1MPBREF.AddScriptPackage VStripSS1MPDialPack05
;ShowWarning "MPA speaks 3rd"
Set nTrooperLine to 5
Elseif Timer2 > 25 && nTrooperLine == 5
VStripSS1MPBREF.AddScriptPackage VStripSS1MPBTravelTopsB
VStripSS1MPBREF.StopLook VStripSS1GirlCREF
VStripSS1AdmirerDREF.AddScriptPackage VStripSS1AdmirersFollowGirls
VStripSS1AdmirerBREF.AddScriptPackage VStripSS1AdmirersFollowGirls
VStripSS1AdmirerCREF.AddScriptPackage VStripSS1AdmirersFollowGirls
VStripSS1AdmirerAREF.AddScriptPackage VStripSS1AdmirersFollowGirls
Set nTrooperLine to 6
Elseif Timer2 > 26 && nTrooperLine == 6
VStripSS1SecuritronAREF.AddScriptPackage VStripSS1SecuritronAPatrol
Set nTrooperLine to 7
Elseif Timer2 > 29 && nTrooperLine == 7
VStripSS1SecuritronBREF.AddScriptPackage VStripSS1SecuritronBPatrol
Set nTrooperLine to 8
Endif
Endif
Endif
Endif
Endif
Endif
End
