• Добро пожаловать, Гость. Войдите или зарегистрируйтесь.

Автор Тема: Рандомное изменение погоды  (Прочитано 758 раз)

Описание: Скрипт от Regaez

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн GL.Sam

  • *
  • Сообщений: 60
  • Репутация: 0
  • Пол: Мужской
  • I love you Kate
    • Просмотр профиля
    • ESF
    • Email
Рандомное изменение погоды
« : 20 Август, 2007, 03:28:50 »
0
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
~Desertwalker

 

Изменение Рейтинга Обливиона С Т На М

Автор TiaraРаздел Архив TES IV: Oblivion

Ответов: 22
Просмотров: 15230
Последний ответ 16 Июль, 2007, 21:58:35
от Мастер Ёда
Скрипт на изменение модели глаз (Oblivion)

Автор da-kornevРаздел Скриптинг под TES IV

Ответов: 10
Просмотров: 4216
Последний ответ 24 Октябрь, 2008, 13:11:55
от da-kornev
Редактор погоды в TES IV CS

Автор MaxinuzРаздел Мастерская TES IV

Ответов: 3
Просмотров: 940
Последний ответ 13 Апрель, 2011, 01:46:40
от Garin
Изменение облика данмеров в серии The Elder Scrolls

Автор TiaraРаздел Вселенная TES

Ответов: 0
Просмотров: 2450
Последний ответ 14 Август, 2011, 07:44:40
от Tiara

Поиск

 
Top
SimplePortal 2.3.5 © 2008-2012, SimplePortal