ProjectReality Weather Script

scn F3NVWeatherscript


short DoOnce
short rndperc
short rndweather
short chgWT
short lastDay
short lastDayVar
short currentDay
short currentDayVar
float Time


begin gamemode

set Time to GetCurrentTime

If DoOnce == 0

			player.additem F3NVPRobj 1


	set DoOnce to 1
	set NewHour to (gamehour + 3)
	set lastday to gamedayspassed
	PlaySound F3NVWelcomeSound
	ShowMessage F3NVWelcome
	set IsPleasantEnabled to 1
	set IsCloudyEnabled to 1
	set IsRainyEnabled to 1
	set IsFoggyEnabled to 1
	set IsWindyEnabled to 1
	set IsNuclearEnabled to 1
	set EyeAdapt to 0
	set HHSwitch to 1
	set RadSwitch to 0
	set DNightsSwitch to 0
	set NightSetting to 1
	setweather Pleasant01 1







endif


set currentDay to gamedayspassed
set currentDayVar to gamedayspassed

if (currentDay - lastDay) >= 1
	set NewHour to (gamehour + 3)
	set currentweatherpercent to (NewHour - gamehour)
	set lastday to currentDay
endif

if (currentDayVar - lastDayVar) >= 1
	set chgWT to (gamehour + 6)
	set lastDayVar to currentDay
endif

if (NewHour - gamehour) > 3
	set NewHour to (gamehour +3)
endif

set currentweatherpercent to (NewHour - gamehour)

if getiscurrentweather Rainy05 == 1
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHeavySnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 1
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Nuke01 == 1
	set IsLightSnowing to 0
	set IsHeavyRaining to 0
	set IsHeavySnowing to 1
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 1
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather NukeWind == 1
	set IsLightSnowing to 0
	set IsHeavyRaining to 0
	set IsHeavySnowing to 0
	set IsHot to 0
	set IsFoggy to 1
	set IsSandstorm to 1
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 1
	set SirenINT to 0
elseif getiscurrentweather RadStormA == 1 && RadSwitch == 1
	set IsLightSnowing to 0
	set IsHeavyRaining to 0
	set IsHeavySnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 1
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather RadStormC == 1 && RadSwitch == 1
	set IsLightSnowing to 0
	set IsHeavyRaining to 1
	set IsHeavySnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 1
	set sHRSoundREF to 0
	set sHRThSoundREF to 1
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather RadStormB == 1 && RadSwitch == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 1
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 1
	set sSandINT to 0
	set SirenINT to 1
elseif getiscurrentweather Rainy02 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Rainy03 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 1
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Rainy04 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 1
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Rainy06 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 1
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Rainy08 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 1
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 1
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Rainy01 == 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 1
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant01 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant03 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant06 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant07 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant08 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant09 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Pleasant10 == 1 && HHSwitch == 1
	if Time >= 13.00 && Time < 19.45
	set IsHot to 1
	else
	set IsHot to 0
	endif
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
elseif getiscurrentweather Foggy01 == 1
	set IsFoggy to 1
	set IsHeavySnowing to 0
	set IsHeavyRaining to 0
	set IsLightSnowing to 0
	set IsHot to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0

else
	set IsLightRaining to 0
	set IsHeavyRaining to 0
	set IsHeavySnowing to 0
	set IsHot to 0
	set IsFoggy to 0
	set IsSandstorm to 0
	set RadStorm to 0
	set sHRSoundREF to 0
	set sHRThSoundREF to 0
	set sThSoundREF to 0
	set sSandINT to 0
	set SirenINT to 0
endif






	if chgWT < gamehour

	set rndperc to getrandompercent

		if rndperc < 25 && IsPleasantEnabled == 1
			set weathertype to 1
		elseif rndperc >= 25 && rndperc < 50 && IsCloudyEnabled == 1
			set weathertype to 2
		elseif rndperc >= 50 && rndperc < 75 && IsRainyEnabled == 1
			set weathertype to 3
		elseif rndperc >= 75 && rndperc < 76 && IsFoggyEnabled == 1
			set weathertype to 4
		elseif rndperc >=76 && rndperc < 99 && IsNuclearEnabled == 1
			set weathertype to 5
		elseif IsWindyEnabled == 1

			set weathertype to 6
		endif

	endif



If NewHour < gamehour

		set rndweather to getrandompercent


	if weathertype == 1
	if rndweather < 10
			setweather Pleasant01 1
		elseif rndweather >= 10 && rndweather < 20
			setweather Pleasant02 1
		elseif rndweather >= 20 && rndweather < 30
			setweather Pleasant03 1
		elseif rndweather >= 30 && rndweather < 40
			setweather Pleasant04 1
		elseif rndweather >= 40 && rndweather < 50
			setweather Pleasant05 1
		elseif rndweather >= 50 && rndweather < 60
			setweather Pleasant06 1
		elseif rndweather >= 60 && rndweather < 70
			setweather Pleasant07 1
		elseif rndweather >= 70 && rndweather < 80
			setweather Pleasant08 1
		elseif rndweather >= 80 && rndweather < 90
			setweather Pleasant09 1


		else
			setweather Pleasant10 1
		endif
		set NewHour to (gamehour + 9)

	endif

	if weathertype == 2



		if rndweather < 10
			setweather Cloudy01 1
		elseif rndweather >= 10 && rndweather < 20
			setweather Cloudy02 1
		elseif rndweather >= 20 && rndweather < 30
			setweather Cloudy03 1
		elseif rndweather >= 30 && rndweather < 40
			setweather Cloudy04 1
		elseif rndweather >= 40 && rndweather < 50
			setweather Cloudy05 1
		elseif rndweather >= 50 && rndweather < 60
			setweather Cloudy06 1
		elseif rndweather >= 60 && rndweather < 70
			setweather Cloudy07 1
		elseif rndweather >= 70 && rndweather < 80
			setweather Cloudy08 1
		elseif rndweather >= 80 && rndweather < 90
			setweather Cloudy09 1

		else
			setweather Cloudy10 1
		endif
		set NewHour to (gamehour + 9)

	endif

	if weathertype == 3
		if rndweather < 15
			setweather Rainy01 1
		elseif rndweather >= 15 && rndweather < 30
			setweather Rainy02 1
		elseif rndweather >= 30 && rndweather < 45
			setweather Rainy03 1
		elseif rndweather >= 45 && rndweather < 60
			setweather Rainy06 1
		elseif rndweather >= 60 && rndweather < 70
			setweather Rainy07 1
		elseif rndweather >= 70 && rndweather < 80
			setweather Rainy08 1
		elseif rndweather >= 90 && rndweather < 90
			setweather RadStormA 1

		else
			if RadSwitch == 1
			setweather RadStormB 1
		else
			setweather Rainy01 1
			endif
		endif
		set NewHour to (gamehour + 3)

	endif

	if weathertype == 4
			setweather Foggy01 1

		set NewHour to (gamehour + 18)

	endif

if weathertype == 5

			setweather Nuke01 1
			set NewHour to (gamehour + 6)

	endif

if weathertype == 6

			setweather NukeWind 1
			set NewHour to (gamehour + 18)

	endif


endif


if getiscurrentweather Rainy01 == 1 && Time >= 0.10 && Time < 3.00
	set IsHeavyRaining to 1
	setweather Rainy04 1
elseif getiscurrentweather Rainy03 == 1 && Time >= 0.10 && Time < 3.00
	setweather Rainy05 1
endif


if getiscurrentweather Rainy04 == 1 && Time >= 3.00 && Time < 5.00
	setweather Rainy01 1
	set NewHour to (gamehour + 3)

elseif getiscurrentweather Rainy05 == 1 && Time >= 3.00 && Time < 5.00
	setweather Rainy03 1
	set NewHour to (gamehour + 3)

endif

if getiscurrentweather Rainy04 == 1 && Time >= 5.00 && Time < 23.59
	fw Rainy01 1
	set NewHour to (gamehour + 3)

elseif getiscurrentweather Rainy05 == 1 && Time >= 5.00 && Time < 23.59
	fw Rainy03 1
	set NewHour to (gamehour + 3)

endif



if RadSwitch == 0
	EnableFastTravel 1
endif


end