GTA5-Mods.com'a hos geldiniz

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