MSFD Магические и механические ловушки
Сначала это был скрипт для setdelete (который получил от Bethesda (т.е. это ванильный скрипт проксиМины из Трибунала), но я думаю его место здесь.
Когда этот скрипт помещен на объект, и игрок натыкается на этот объект, он начнет высчитывать, где находится игрок и двигаться к нему с постоянной скоростью (определяемой GetSquareRoot). Когда точка назначения достигнута, или предмет в пределах досягаемости игрока, он взрывается (с помощью ExplodeSpell) и отключается.
Как только он отключен, он ждет несколько фреймов, пока очистится система заклинаний, затем удаляется (с помощью SetDelete).
Begin trapProjScript
short range
short initialized
short distance
short detonate
short triggered
float targx
float targy
float targz
float shiftx
float shifty
float shiftz
float currshift
float currx
float curry
float currz
float totaldist
float rate
float killtimer
if ( triggered == 1 )
if ( killtimer < 4 )
set killtimer to ( killtimer + GetSecondsPassed )
else
SetDelete 1
endif
return
endif
if ( MenuMode == 1 )
return
endif
if ( initialized == 0 )
set initialized to 1
set range to 150
set rate to 300
set targx to ( player->GetPos X )
set targy to ( player->GetPos Y )
set targz to ( player->GetPos Z )
set shiftx to ( targx–>GetPos X )
set shifty to ( targy–>GetPos Y )
set shiftz to ( targz–>GetPos Z )
set totaldist to ( ( shiftx * shiftx ) + ( shifty * shifty ) + ( shiftz * shiftz ) )
set totaldist to GetSquareRoot totaldist
if ( totaldist != 0 )
set shiftx to ( shiftx / totaldist )
set shiftx to ( shiftx * rate )
set shifty to ( shifty / totaldist )
set shifty to ( shifty * rate )
set shiftz to ( shiftz / totaldist )
set shiftz to ( shiftz * rate )
else
set triggered to 1
return
endif
endif
set distance to GetDistance "player"
if ( distance < range )
set detonate to 1
else
set currx to GetPos X
set curry to GetPos Y
set currz to GetPos Z
set currshift to ( shiftx * GetSecondsPassed )
set currx to ( currx + currshift )
set currshift to ( shifty * GetSecondsPassed )
set curry to ( curry + currshift )
set currshift to ( shiftz * GetSecondsPassed )
set currz to ( currz + currshift )
if ( shiftx < 0 )
if ( currx < targx )
set detonate to 1
set currx to targx
else
set detonate to 0
endif
else
if ( currx > targx )
set detonate to 1
set currx to targx
else
set detonate to 0
endif
endif
if ( shifty < 0 )
if ( curry < targy )
set detonate to 1
set curry to targy
else
set detonate to 0
endif
else
if ( curry > targy )
set detonate to 1
set curry to targy
else
set detonate to 0
endif
endif
if ( shiftz < 0 )
if ( currz < targz )
set detonate to 1
set currz to targz
else
set detonate to 0
endif
else
if ( currz > targz )
set detonate to 1
set currz to targz
else
set detonate to 0
endif
endif
SetPos X currx
SetPos Y curry
SetPos Z currz
endif
if ( detonate == 1 )
ExplodeSpell "proj_trap_spell"
set triggered to 1
disable
endif
end
