[Скрипт для вампира]

Большущее спосибо lost81, це очен круто, и ты тоже крут, очень.

СПАСИБО!!!

<{POST_SNAPBACK}>

 

Не за что, пользуйся на здоровье! ;)

[Скрипт для вампира]

Угу, пасибо. Если так то всё понятно, но я писал скрипт на основе постов в этой теме, а сам по вампирам не спец. Нужно было не тупить и залезть потом в КС или разобрать вампирье кольцо из фаналекса :ph34r:

Однако геморой со всеми этими спеллами, решпект тебе товарисч!! :)

<{POST_SNAPBACK}>

 

Не вопрос, чем смогу....

[Скрипт-Антивампир]

точна :), спасиб что обратил на это внимание, просто еслиб стояло рядом с текстом, тогда бы сам увидел

<{POST_SNAPBACK}>

 

да просто в лом удалять было, да и мало ли для каких целей может понадобиться другим... ;)

[Скрипт для вампира]

я опять переправил скрипт

<{POST_SNAPBACK}>

 

Все твои косяки были из-за того, что даже при PCVampire == 0 NPC'и считают тебя вампиром если у тебя в характеристиках есть "вампиризм"!

[Скрипт-Антивампир]

Можно повесить на все закрытые шлемы...

<{POST_SNAPBACK}>

 

да хоть на кольцо или амулет! :D

[Скрипт-Антивампир]

что-то я не понял, почему не смотря на разные значения VampClan присутствуют все три как в добавлении, так и в удалении  :blink:

Player->RemoveSpell, "Vampire Aundae Specials"

Player->RemoveSpell, "Vampire Berne Specials"

Player->RemoveSpell, "Vampire Quarra Specials"

<{POST_SNAPBACK}>

 

 

если хорошо посмотришь, то увидишь перед 2-мя из них ";" => нужны не все! :P

[Скрипт для вампира]

Люди, а реально-ли сделать скрипт

для вампиров и наложить его на

предмет одежды, шлем например?

Чтоб НПСы не орали "пшол вон" и в се такое.

<{POST_SNAPBACK}>

 

 

Вполне реально! ;) специально для тебя! наслаждайся! B) забирай здесь!

[Скрипт-Антивампир]

[morrscript]begin No_Vamp_helm

 

; По заказу DobrbIi_NeiL

; Автор: lost81 (lost81@mail.ru) 15.06.2005

; Скрипт цепляется на все что можно одеть

; позволяет нормально жить и общаться с другими неписями в состоянии вампиризма

; до тех пор пока вещь одета на игроке, при ее снятии к игроку по прежнему относятся как к вампиру!

 

short OnPCEquip

short status

 

if ( MenuMode == 1 )

return

endif

 

if ( VampClan == 1 )

if ( OnPCEquip == 1 )

if ( status == 0 )

 

Player->RemoveSpell, "Vampire Attributes"

Player->RemoveSpell, "Vampire Skills"

Player->RemoveSpell, "Vampire Immunities"

Player->RemoveSpell, "Vampire Sun Damage"

Player->RemoveSpell, "Vampire Touch"

Player->RemoveSpell, "Vampire Aundae Specials"

; Player->RemoveSpell, "Vampire Berne Specials"

; Player->RemoveSpell, "Vampire Quarra Specials"

 

set PCVampire to 0

set VampClan to -1

StopScript vampdreamScript

set status to 1

 

endif

endif

endif

 

if ( OnPCEquip == 0 )

if ( status == 1 )

 

Player->AddSpell, "Vampire Attributes"

Player->AddSpell, "Vampire Skills"

Player->AddSpell, "Vampire Immunities"

Player->AddSpell, "Vampire Sun Damage"

Player->AddSpell, "Vampire Touch"

Player->AddSpell, "Vampire Aundae Specials"

; Player->AddSpell, "Vampire Berne Specials"

; Player->AddSpell, "Vampire Quarra Specials"

 

set PCVampire to 1

set VampClan to 1

StartScript vampdreamScript

set status to 0

 

endif

endif

 

if ( VampClan == 2 )

if ( OnPCEquip == 1 )

if ( status == 0 )

 

Player->RemoveSpell, "Vampire Attributes"

Player->RemoveSpell, "Vampire Skills"

Player->RemoveSpell, "Vampire Immunities"

Player->RemoveSpell, "Vampire Sun Damage"

Player->RemoveSpell, "Vampire Touch"

; Player->RemoveSpell, "Vampire Aundae Specials"

Player->RemoveSpell, "Vampire Berne Specials"

; Player->RemoveSpell, "Vampire Quarra Specials"

 

set PCVampire to 0

set VampClan to -1

set status to 2

 

StopScript vampdreamScript

 

endif

endif

endif

 

if ( OnPCEquip == 0 )

if ( status == 2 )

 

Player->AddSpell, "Vampire Attributes"

Player->AddSpell, "Vampire Skills"

Player->AddSpell, "Vampire Immunities"

Player->AddSpell, "Vampire Sun Damage"

Player->AddSpell, "Vampire Touch"

; Player->AddSpell, "Vampire Aundae Specials"

Player->AddSpell, "Vampire Berne Specials"

; Player->AddSpell, "Vampire Quarra Specials"

 

set PCVampire to 1

set VampClan to 2

set status to 0

 

StartScript vampdreamScript

 

endif

endif

 

if ( VampClan == 3 )

if ( OnPCEquip == 1 )

if ( status == 0 )

 

Player->RemoveSpell, "Vampire Attributes"

Player->RemoveSpell, "Vampire Skills"

Player->RemoveSpell, "Vampire Immunities"

Player->RemoveSpell, "Vampire Sun Damage"

Player->RemoveSpell, "Vampire Touch"

; Player->RemoveSpell, "Vampire Aundae Specials"

; Player->RemoveSpell, "Vampire Berne Specials"

Player->RemoveSpell, "Vampire Quarra Specials"

 

set PCVampire to 0

set VampClan to -1

set status to 3

 

StopScript vampdreamScript

 

endif

endif

endif

 

if ( OnPCEquip == 0 )

if ( status == 3 )

 

Player->AddSpell, "Vampire Attributes"

Player->AddSpell, "Vampire Skills"

Player->AddSpell, "Vampire Immunities"

Player->AddSpell, "Vampire Sun Damage"

Player->AddSpell, "Vampire Touch"

; Player->AddSpell, "Vampire Aundae Specials"

; Player->AddSpell, "Vampire Berne Specials"

Player->AddSpell, "Vampire Quarra Specials"

 

set PCVampire to 1

set VampClan to 3

set status to 0

 

StartScript vampdreamScript

 

endif

endif

 

end

 

 

 

[/morrscript]

 

Предположительно скрипт должен вешаться на какой-нибудь шлем (я бы повесил с наименьшими харрактеристиками, дабы не облегчать жизнь конечному юзеру!)