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

[lost81]

[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]

 

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

[Фальк]

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

[Майк]

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

Player->RemoveSpell, "Vampire Aundae Specials"

Player->RemoveSpell, "Vampire Berne Specials"

Player->RemoveSpell, "Vampire Quarra Specials"

[lost81]

  Майк сказал:

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

Player->RemoveSpell, "Vampire Aundae Specials"

Player->RemoveSpell, "Vampire Berne Specials"

Player->RemoveSpell, "Vampire Quarra Specials"

<{POST_SNAPBACK}>

 

 

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

[lost81]

  Falcon сказал:

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

<{POST_SNAPBACK}>

 

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

[Майк]

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

[lost81]

  Майк сказал:

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

<{POST_SNAPBACK}>

 

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

[DarkThief]

А можно сделать мантию чтоб от солнечного света защищала :)

[Майк]

повесь сей скрипт на мантию и все дела

[Richard]

Повесил на шлем, не действует.

[lost81]

  Richard сказал:

Повесил на шлем, не действует.

<{POST_SNAPBACK}>

 

А ты одевал его вампиром? Если нет, то он не будет работать! Этот скрипт предназначен только для вампиров, скрипт реально рабочий, я сам лично много тестил, и другие люди уже в полный ход используют его в своих плагах! Так что я тут не виноват! B)

[Richard]

Одевал, предмет до плага с скриптом еще был в инвертаре, может из-за этого.

P.s- А никак нельзя скопировать скрипт и вставить в редактор, а то в ручную приходиться переписоваться.

[MorfiX]

  Richard сказал:

P.s- А никак нельзя скопировать скрипт и вставить в редактор, а то в ручную приходиться переписоваться.

<{POST_SNAPBACK}>

 

:duma: Да можно конечно, только после копирования проверь на всякий случай.

[lost81]

  Richard сказал:

P.s- А никак нельзя скопировать скрипт и вставить в редактор, а то в ручную приходиться переписоваться.

<{POST_SNAPBACK}>

 

Ну ты даешь!!!! Конечно можно, стандартная комбинация.... выделил текст, Ctrl+c, поставил курсор в поле набора скрипта и Ctrl+v.... только проверь потом, чтоб разные тэги не попали в скрипт...

 

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

 

*можешь в редакторе открыть свой шлем, и в поле ID добавить к уже существующему ID'шнику какой-нибудь символ, например "_" или "1", нажимай Save? При запросе создать ли новый предмет - подтверждай! Затем в процессе игры в консоли (кнопка "`") введешь комманду:

Player->Additem "ID_твоего_шлема" 1

[Richard]

Спасибо, надо мне меньше мышкой злооупотреблять.

Вот блин бывает, уже в HTML начинаю работать, а этого до сих пор не знал. :)

[lost81]

  Richard сказал:

Спасибо, надо мне меньше мышкой злооупотреблять.

Вот блин бывает, уже в HTML начинаю работать, а этого до сих пор не знал.  :)

<{POST_SNAPBACK}>

 

Ну у тебя хоть получилось? Отпиши!