Vítejte na GTA5-Mods.com

@-Vegas- Seems like the crashes were more based on vehicle density than peds. Also like Hydraxonn said increasing the multipliers in the ini leads to very high numbers in game, so i stayed with 1x for veh and ped and used the gameconfig for multipliers since these values now seem to work as intended with your ASI.

<ConfigPopulation>
<ScenarioPedsMultiplier_Base value="1"/>
<ScenarioPedsMultiplier value="1"/>
<AmbientPedsMultiplier_Base value="40"/>
<AmbientPedsMultiplier value="40"/>
<MaxTotalPeds_Base value="200"/>
<MaxTotalPeds value="200"/>
<PedMemoryMultiplier value="50000"/>
<PedsForVehicles_Base value="40"/>
<PedsForVehicles value="40"/>
<VehicleTimesliceMaxUpdatesPerFrame_Base value="30"/>
<VehicleTimesliceMaxUpdatesPerFrame value="30"/>
<VehicleAmbientDensityMultiplier_Base value="200"/>
<VehicleAmbientDensityMultiplier value="200"/>
<VehicleMemoryMultiplier value="50000"/>
<VehicleParkedDensityMultiplier_Base value="40"/>
<VehicleParkedDensityMultiplier value="40"/>
<VehicleLowPrioParkedDensityMultiplier_Base value="40"/>
<VehicleLowPrioParkedDensityMultiplier value="40"/>
<VehicleUpperLimit_Base value="200"/>
<VehicleUpperLimit value="200"/>
<VehicleUpperLimitMP value="1"/>
<VehicleParkedUpperLimit_Base value="40"/>
<VehicleParkedUpperLimit value="40"/>
<VehicleKeyholeShapeInnerThickness_Base value="40"/>
<VehicleKeyholeShapeInnerThickness value="40"/>
<VehicleKeyholeShapeOuterThickness_Base value="40"/>
<VehicleKeyholeShapeOuterThickness value="40"/>
<VehicleKeyholeSideWallThickness_Base value="40"/>
<VehicleKeyholeSideWallThickness value="40"/>
<VehicleKeyholeShapeInnerRadius_Base value="100"/>
<VehicleKeyholeShapeInnerRadius value="100"/>
<VehicleKeyholeShapeOuterRadius_Base value="200"/>
<VehicleKeyholeShapeOuterRadius value="200"/>
<VehicleMaxCreationDistance_Base value="200"/>
<VehicleMaxCreationDistance value="200"/>
<VehicleMaxCreationDistanceOffscreen_Base value="100"/>
<VehicleMaxCreationDistanceOffscreen value="100"/>
<VehicleCullRange_Base value="200"/>
<VehicleCullRange value="200"/>
<VehicleCullRangeOnScreenScale_Base value="200"/>
<VehicleCullRangeOnScreenScale value="200"/>
<VehicleCullRangeOffScreen_Base value="200"/>
<VehicleCullRangeOffScreen value="200"/>
<DensityBasedRemovalRateScale_Base value="30"/>
<DensityBasedRemovalRateScale value="30"/>
<DensityBasedRemovalTargetHeadroom_Base value="100"/>
<DensityBasedRemovalTargetHeadroom value="100"/>

Thank you for this script. If any one is interested in adding two more values that control the sunrise and sunset separately then change these lines

Private TimeScaleDay As Single = 0.5
Private TimeScaleSunrise As Single = 0.5
Private TimeScaleNight As Single = 0.5
Private TimeScaleSunset As Single = 0.5

Private NightStart As Integer = 22
Private SunriseStart As Integer = 7
Private DayStart As Integer = 8
Private SunsetStart As Integer = 20

If (h >= NightStart Or h < SunriseStart) Then
ActiveTimeScale = TimeScaleNight
ElseIf (h >= SunriseStart And h < DayStart) Then
ActiveTimeScale = TimeScaleSunrise
ElseIf (h >= DayStart And h < SunsetStart) Then
ActiveTimeScale = TimeScaleDay
Else
ActiveTimeScale = TimeScaleSunset
End If

Public Sub LoadSettings()
Dim val1, val2, val3, val4, val5, val6, val7, val8 As String

val1 = Settings.GetValue("SETTINGS", "TimeScaleDay", "0.5")
val2 = Settings.GetValue("SETTINGS", "TimeScaleSunrise", "0.5")
val3 = Settings.GetValue("SETTINGS", "TimeScaleNight", "0.5")
val4 = Settings.GetValue("SETTINGS", "TimeScaleSunset", "0.5")
val5 = Settings.GetValue("SETTINGS", "NightStart", "22")
val6 = Settings.GetValue("SETTINGS", "SunriseStart", "7")
val7 = Settings.GetValue("SETTINGS", "DayStart", "8")
val8 = Settings.GetValue("SETTINGS", "SunsetStart", "20")

' Convert and assign values
TimeScaleDay = CSng(val1)
TimeScaleSunrise = CSng(val2)
TimeScaleNight = CSng(val3)
TimeScaleSunset = CSng(val4)
NightStart = CInt(val5)
SunriseStart = CInt(val6)
DayStart = CInt(val7)
SunsetStart = CInt(val8)

' Validate time scale values
If TimeScaleDay < 0 Then TimeScaleDay = 0
If TimeScaleSunrise < 0 Then TimeScaleSunrise = 0
If TimeScaleNight < 0 Then TimeScaleNight = 0
If TimeScaleSunset < 0 Then TimeScaleSunset = 0

areSettingsLoaded = True
End Sub