Begin Rz_weatherbox_script
short change
short state
short misc
if( MenuMode == 1)
Return
endif
if( OnActivate == 1)
set state to 10
set misc to Random, 8
endif
if( state == 10)
if( misc == 0)
ChangeWeather, "West Gash Region", 0
ChangeWeather, "Bitter Coast Region", 0
ChangeWeather, "Azura's Coast Region", 0
ChangeWeather, "Ashlands Region", 0
ChangeWeather, "Ascadian Isles Region", 0
ChangeWeather, "Sheogorad", 0
ChangeWeather, "Molag Mar Region", 0
ChangeWeather, "Red Mountain Region", 0
ChangeWeather, "Grazelands Region", 0
MessageBox, "You fiddle around some...and the weather becomes clear!"
set state to 0
endif
if( misc == 1)
ChangeWeather, "West Gash Region", 1
ChangeWeather, "Bitter Coast Region", 1
ChangeWeather, "Azura's Coast Region", 1
ChangeWeather, "Ashlands Region", 1
ChangeWeather, "Ascadian Isles Region", 1
ChangeWeather, "Sheogorad", 1
ChangeWeather, "Molag Mar Region", 1
ChangeWeather, "Red Mountain Region", 1
ChangeWeather, "Grazelands Region", 1
MessageBox, "You fiddle around some...and the weather becomes cloudy!"
set state to 0
endif
if( misc == 2)
ChangeWeather, "West Gash Region", 2
ChangeWeather, "Bitter Coast Region", 2
ChangeWeather, "Azura's Coast Region", 2
ChangeWeather, "Ashlands Region", 2
ChangeWeather, "Ascadian Isles Region", 2
ChangeWeather, "Sheogorad", 2
ChangeWeather, "Molag Mar Region", 2
ChangeWeather, "Red Mountain Region", 2
ChangeWeather, "Grazelands Region", 2
MessageBox, "You fiddle around some...and the weather becomes foggy!"
set state to 0
endif
if( misc == 3)
ChangeWeather, "West Gash Region", 3
ChangeWeather, "Bitter Coast Region", 3
ChangeWeather, "Azura's Coast Region", 3
ChangeWeather, "Ashlands Region", 3
ChangeWeather, "Ascadian Isles Region", 3
ChangeWeather, "Sheogorad", 3
ChangeWeather, "Molag Mar Region", 3
ChangeWeather, "Red Mountain Region", 3
ChangeWeather, "Grazelands Region", 3
MessageBox, "You fiddle around some...and the weather becomes overcast!"
set state to 0
endif
if( misc == 4)
ChangeWeather, "West Gash Region", 4
ChangeWeather, "Bitter Coast Region", 4
ChangeWeather, "Azura's Coast Region", 4
ChangeWeather, "Ashlands Region", 4
ChangeWeather, "Ascadian Isles Region", 4
ChangeWeather, "Sheogorad", 4
ChangeWeather, "Molag Mar Region", 4
ChangeWeather, "Red Mountain Region", 4
ChangeWeather, "Grazelands Region", 4
MessageBox, "You fiddle around some...and the weather becomes rainy!"
set state to 0
endif
if( misc == 5)
ChangeWeather, "West Gash Region", 5
ChangeWeather, "Bitter Coast Region", 5
ChangeWeather, "Azura's Coast Region", 5
ChangeWeather, "Ashlands Region", 5
ChangeWeather, "Ascadian Isles Region", 5
ChangeWeather, "Sheogorad", 5
ChangeWeather, "Molag Mar Region", 5
ChangeWeather, "Red Mountain Region", 5
ChangeWeather, "Grazelands Region", 5
MessageBox, "You fiddle around some...and the weather thunderous!"
set state to 0
endif
if( misc == 6)
ChangeWeather, "West Gash Region", 6
ChangeWeather, "Bitter Coast Region", 6
ChangeWeather, "Azura's Coast Region", 6
ChangeWeather, "Ashlands Region", 6
ChangeWeather, "Ascadian Isles Region", 6
ChangeWeather, "Sheogorad", 6
ChangeWeather, "Molag Mar Region", 6
ChangeWeather, "Red Mountain Region", 6
ChangeWeather, "Grazelands Region", 6
MessageBox, "You fiddle around some...and the weather becomes ash-filled!"
set state to 0
endif
if( misc == 7)
ChangeWeather, "West Gash Region", 7
ChangeWeather, "Bitter Coast Region", 7
ChangeWeather, "Azura's Coast Region", 7
ChangeWeather, "Ashlands Region", 7
ChangeWeather, "Ascadian Isles Region", 7
ChangeWeather, "Sheogorad", 7
ChangeWeather, "Molag Mar Region", 7
ChangeWeather, "Red Mountain Region", 7
ChangeWeather, "Grazelands Region", 7
MessageBox, "You fiddle around some...and the weather becomes blighted!"
set state to 0
endif
endif
End Rz_weatherbox_script