Üdvözlünk a GTA5-Mods.com-on

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