[Васк]

Предлагаю в эту тему кидать свои скрипты дабы люди могли использовать в своих плагинах. Ну начну надеюсь мою инициативу ктонибудь поддержит.

Скрипт 1(Моррувинд)
С помошью этого скрипта можно стать вампиром любого клана. Повесить можно на любой предмет одежды пример: кольцо, амулет...

Скрытый текст:

Begin vask_vampringScript

short button
short question
short messageOnce
short doOnce
short OnPCEquip
short reset
short state
short becamewithring
short clanpicked

If ( PCVampire == -1 )
return
endif

if ( OnPCEquip == 0 )
set reset to 0
If ( becamewithring == 1 )
Player->RemoveSpell "Vampire Sun Damage"
Player->RemoveSpell "Vampire Attributes"
Player->RemoveSpell "Vampire Skills"
Player->RemoveSpell "Vampire Touch"
Player->RemoveSpell "Vampire Immunities"
StopScript vampdreamscript
Player->RemoveSpell "Vampire Aundae Specials"
set PCVampire to 0
set VampClan to 0
Player->RemoveSpell "Vampire Berne Specials"
Player->RemoveSpell "Vampire Quarra Specials"
set becamewithring to 0
set state to 0
elseif ( PCVampire == 1 )
if ( becamewithring == 0 )
return
endif
endif
endif

if ( reset == 1 )
return
endif

if ( OnPCEquip == 1 )
If ( PCVampire == 0 )
if ( reset == 0 )
if ( messageOnce == 0 )
MessageBox "В какой клан вы бы хотели присоединяться как вампир?" "Аунда" "Берне" "Куарра" "Я не хочу быть вампиром"
set question to 1
set messageOnce to 1
endif
endif
elseif ( PCVampire == 1 )
return
endif
endif

if ( question == 1)
set button to GetButtonPressed
if ( button >= 0 )
set question to 0
else
return
endif
if ( button == 0 )
set state to 1
set clanpicked to 1
elseif ( button == 1 )
set state to 1
set clanpicked to 2
elseif ( button == 2 )
set state to 1
set clanpicked to 3
elseif ( button == 3 )
set reset to 1
set messageOnce to 0
return
endif
endif

if ( state == 1 )
if ( OnPCEquip == 1 )
set state to 2
set messageOnce to 0
set PCVampire to 1
else
set state to 0
set messageOnce to 0
return
endif
endif

if ( state == 2 )
Player->AddSpell "Vampire Sun Damage"
Player->AddSpell "Vampire Attributes"
Player->AddSpell "Vampire Skills"
Player->AddSpell "Vampire Touch"
Player->AddSpell "Vampire Immunities"
StartScript vampdreamscript
If ( clanpicked == 1 )
Player->AddSpell "Vampire Aundae Specials"
set VampClan to 1
elseif ( clanpicked == 2 )
Player->AddSpell "Vampire Berne Specials"
set VampClan to 2
elseif ( clanpicked == 3 )
Player->AddSpell "Vampire Quarra Specials"
set VampClan to 3
endif
set state to 3
endif

if ( state == 3 )
Player->AddSpell "Vampire Sun Damage"
Player->AddSpell "Vampire Attributes"
Player->AddSpell "Vampire Skills"
Player->AddSpell "Vampire Touch"
Player->AddSpell "Vampire Immunities"
StartScript vampdreamscript
If ( clanpicked == 1 )
Player->AddSpell "Vampire Aundae Specials"
set VampClan to 1
elseif ( clanpicked == 2 )
Player->AddSpell "Vampire Berne Specials"
set VampClan to 2
elseif ( clanpicked == 3 )
Player->AddSpell "Vampire Quarra Specials"
set VampClan to 3
endif
set state to 4
endif

if ( state == 4 )
set becamewithring to 1
endif

End vask_vampringScript