Honest Group : Все о моддинге в ПЗ - Страница 33 - Форум

GlobalVars (
NULL : object,
VSS#i#val : object,
i : object,
)

Declare script #StartQuest ( this : object )
Declare script #SubObj01 ( this : object )
Declare script #SubObj02 ( this : object )
Declare script #SubObj03 ( this : object )
Declare script #SubObj04 ( this : object )

Script #SubObj01
(
if
(
Any( i , Heroes , GroupHas ( UnitSee ( i ) , GetObject( 1000309 ) ) )//Увидеть юнит
)
then
(
KillScript( )
GSSetVar( 0, "q.z23q2.z23q2.1", 2 )// завершаем первое подзадание успехом
GSSetVar( 0, "q.z23qXX.z23q2.2", 1 )// стартуем второе подзадание
#SubObj02 ( NULL )
)
)
Script #SubObj02
(
if
(
IsEqual( GSGetVar( 0, "q.z23q2.z23q2.2" ) , 1 ) //Условия для выполнения второго подзадания (стартует только после выполнения первого подзадания)
Any( i , Heroes , GroupHas ( UnitSee ( i ) , GetObject(1973972) ) ) //Увидеть объект
//не уверен что сработает если объект (1973972) не юнит...
//тут лучше делать проверку не на видимость а на расстояние от объекта
//например так:
//Any( i , Heroes, IsLess( DistanceUnitUnit( i , GetObject(1973972) ) , 7 ) ) //если расстояние от любого игрока до объекта <7
)
then
(
KillScript( )
GSSetVar( 0, "q.z23q2.z23q2.2", 2 )// завершаем второе подзадание успехом
GSSetVar( 0, "q.z23q2.z23q2.3", 1 )// стартуем третье подзадание
#SubObj03 ( NULL )
)
)

Script #SubObj03
(
if
(
IsEqual( GSGetVar( 0, "q.z23q2.z23q2.3" ) , 1 ) //Условия для выполнения третьего подзадания (стартует только после выполнения второго подзадания)
Any( i , Heroes , GroupHas ( UnitSee ( i ) , GetObject(973972) ) ) //Увидеть объект //аналогично
Not(IsAlive(GetObject (1000340))) //Убить охрану объекта ( id=973972)
)
then
(
Killscript( )
GSSetVar( 0, "q.z23q2.z23q2.3", 2 )// завершаем третье подзадание успехом
GSSetVar( 0, "q.z23q2.z23q2.4", 1 )// стартуем четвертое подзадание
#SubObj04 ( NULL )
)
)

Script #SubObj04
(
if
(
IsEqual( GSGetVar( 0, "q.z23q2.z23q2.4" ) , 1 )//Условия для выполнения четвертого подзадания (стартует только после выполнения третьего подзадания)
Not(IsAlive(GetObject (1973973))) //Убить его, ну и заодно забрать ключ.
)
then
(
KillScript( )
//QObjSeeObject( "GetObject(1973973)" ) //Увидеть объект (по квесту это ключник, у него ключ)
//Если юнит убит то полюбому его кто то уже увидел, так что, проверка на "увидить" - лишняя  
GSSetVar( 0, "q.z23q2.z23q2.4", 2 )// завершаем четвертое подзадание успехом
GSSetVar( 0, "q.z23q2.z23q2.5", 1 )// стартуем пятое подзадание
#SubObj05 ( NULL )
)
)

Script #SubObj05
(
if
(
IsEqual( GSGetVar( 0, "q.z23q2.z23q2.5" ) , 1 )// если выполнено 4-е задание стартуется 5-е
Not(IsAlive(GetObject (1000309))) //Убить мага
)
then
(
KillScript( )
QFinish( ) //Финиш (Ибо как сделать дверь закрывающеюся ключом не придумал)
)
)

Script #StartQuest
(
if
(
)
then
(
KillScript( )
QStart( "z23q2" )
#SubObj01 ( NULL )
)
)

WorldScript
(
ConsoleString ( "MobScript OK" ) // <--
Sleep ( 2 )
#StartQuest ( NULL )
)