Перейти к содержанию

Смена вампирских кланов


Рекомендуемые сообщения

; Автор: 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

Ссылка на комментарий
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...