Рандомное изменение погоды

[GL.Sam]

Код: [Выделить]

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