lost81 Опубликовано 23 октября, 2006 Жалоба Поделиться Опубликовано 23 октября, 2006 ; Автор: lost81 (lost81@mail.ru) 23.10.2006 ; по заказу Silver__Dragon ; скрипт цепляется на все, что можно одеть ; позволяет сменить в процессе игры принадлежность к вампирским кланам, уточнить свой истинный клан(при одевании), ; и вернуться в него после снятия заскриптованной вещи. ; PS не стоит менять клан на глазах у вампиров, иначе атаки избежать не удастся, хотя допускаются данные действия "на глазах" ; у "скотины" (отношение к игроку падает до 0, но оно Вам не так уж и важно в процессе игры)! begin 1_change_clan_vamp short OnPCEquip short status short message short button short FirstClan if ( PCVampire == 0 ) return endif if ( VampClan == 1 ) if ( OnPCEquip == 1 ) if ( status == 0 ) MessageBox "Вы принадлежите клану Аунда. Выберите новый клан" "Берне" "Куарра" "Отказаться от выбора" Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 1 set message to 1 set FirstClan to 1 endif endif elseif ( VampClan == 2 ) if ( OnPCEquip == 1 ) if ( status == 0 ) MessageBox "Вы принадлежите клану Берне. Выберите новый клан" "Аунда" "Куарра" "Отказаться от выбора" ; Player->RemoveSpell, "Vampire Aundae Specials" Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 2 set message to 2 set FirstClan to 2 endif endif elseif ( VampClan == 3 ) if ( OnPCEquip == 1 ) if ( status == 0 ) MessageBox "Вы принадлежите клану Куарра. Выберите новый клан" "Аунда" "Берне" "Отказаться от выбора" ; Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 3 set message to 3 set FirstClan to 3 endif endif endif if ( status == 10 ) if ( FirstClan == 1 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Аунда" ; сначала принадлежал Аунда, выбирал Берне ; Player->RemoveSpell, "Vampire Aundae Specials" Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 11 if ( status == 11 ) Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 1 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == 100 ) if ( FirstClan == 1 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Аунда" ; сначала принадлежал Аунда, выбирал Куарра ; Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 101 if ( status == 101 ) Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 1 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == 20 ) if ( FirstClan == 2 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Берне" ; сначала принадлежал Берне, выбирал Аунда Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 22 if ( status == 22 ) ; Player->AddSpell, "Vampire Aundae Specials" Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 2 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == 200 ) if ( FirstClan == 2 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Берне" ; сначала принадлежал Берне, выбирал Куарра ; Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 202 if ( status == 202 ) ; Player->AddSpell, "Vampire Aundae Specials" Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 2 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == 30 ) if ( FirstClan == 3 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Куарра" ; сначала принадлежал Куарра, выбирал Аунда Player->RemoveSpell, "Vampire Aundae Specials" ; Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 33 if ( status == 33 ) ; Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" Player->AddSpell, "Vampire Quarra Specials" set VampClan to 3 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == 300 ) if ( FirstClan == 3 ) if ( OnPCEquip == 0 ) MessageBox "Вы снова принадлежите клану Куарра" ; сначала принадлежал Куарра, выбирал Берне ; Player->RemoveSpell, "Vampire Aundae Specials" Player->RemoveSpell, "Vampire Berne Specials" ; Player->RemoveSpell, "Vampire Quarra Specials" set VampClan to -1 set status to 303 if ( status == 303 ) ; Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" Player->AddSpell, "Vampire Quarra Specials" set VampClan to 3 set status to 0 set FirstClan to 0 endif endif endif elseif ( status == -1 ) if ( OnPCEquip == 0 ) MessageBox "Вы не покидали своего клана" set status to 0 endif endif if ( message == 1 ) if ( status == 1 ) set button to GetButtonPressed if ( button == -1 ) return elseif ( button == 0 ) MessageBox "Вы выбрали клан Берне" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 2 set status to 10 set message to 0 elseif ( button == 1 ) MessageBox "Вы выбрали клан Куарра" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" Player->AddSpell, "Vampire Quarra Specials" set VampClan to 3 set status to 100 set message to 0 elseif ( button == 2 ) MessageBox "Вы отказались от выбора" "Ok" Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 1 set FirstClan to 0 set message to 0 set status to -1 endif endif elseif ( message == 2 ) if ( status == 2 ) set button to GetButtonPressed if ( button == -1 ) return elseif ( button == 0 ) MessageBox "Вы выбрали клан Аунда" "Ok" Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 1 set status to 20 set message to 0 elseif ( button == 1 ) MessageBox "Вы выбрали клан Куарра" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" Player->AddSpell, "Vampire Quarra Specials" set VampClan to 3 set status to 200 set message to 0 elseif ( button == 2 ) MessageBox "Вы отказались от выбора" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 2 set FirstClan to 0 set message to 0 set status to -1 endif endif elseif ( message == 3 ) if ( status == 3 ) set button to GetButtonPressed if ( button == -1 ) return elseif ( button == 0 ) MessageBox "Вы выбрали клан Аунда" "Ok" Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 1 set status to 30 set message to 0 elseif ( button == 1 ) MessageBox "Вы выбрали клан Берне" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" Player->AddSpell, "Vampire Berne Specials" ; Player->AddSpell, "Vampire Quarra Specials" set VampClan to 2 set status to 300 set message to 0 elseif ( button == 2 ) MessageBox "Вы отказались от выбора" "Ok" ; Player->AddSpell, "Vampire Aundae Specials" ; Player->AddSpell, "Vampire Berne Specials" Player->AddSpell, "Vampire Quarra Specials" set VampClan to 3 set FirstClan to 0 set message to 0 set status to -1 endif endif endif end Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Для публикации сообщений создайте учётную запись или авторизуйтесь
Вы должны быть пользователем, чтобы оставить комментарий
Создать учетную запись
Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!
Регистрация нового пользователяВойти
Уже есть аккаунт? Войти в систему.
Войти