Скрипт Заклинания На Misc-объекте

[GL.Sam]

Этот скрипт на 60 сек накладывает на игрока какое-нибудь заклинание, когда он "надевает" предмет типа misc. Рузумеется на самом деле предмет не одевается, но OnPCEquip засчитывает надевание. Заклинание должно быть типа curse.

Код: [Выделить]

Begin LW_AddMerc

Short eqp
float timer
Short OnPCEquip

if ( OnPCEquip == 1 )
 if ( eqp == 0 )
  Set eqp to 1
  Player -> AddSpell "spell"
 endif
 Set OnPCEquip to 0
endif

if ( menumode )
 return
endif

if ( eqp == 1 )
 Set timer to ( timer + GetSecondsPassed )
 if ( timer > 60 )
  Player -> RemoveSpell "spell"
  Set timer to 0
  Set eqp to 0
 endif
endif

End