SEBruscusDannusItemSCRIPT
Editor ID:SEBruscusDannusItemSCRIPT
Form ID:00040CBD
Typ:Objekt
Script:scn SEBruscusDannusItemSCRIPT
short moved ; set to 2 to disable script permanently (when item is moved out of his house)
float fx
float fy
float fz
begin OnLoad
; if in his house, move everything back to original position when player enters
if getincell SEHighcrossBruscusDannusHouse == 1
if getpos x != getstartingpos x || getpos y != getstartingpos y || getpos z != getstartingpos z
set fx to getstartingpos x
set fy to getstartingpos y
set fz to getstartingpos z
setpos x fx
setpos y fy
setpos z fz
set fx to getstartingangle x
set fy to getstartingangle y
set fz to getstartingangle z
setangle x fx
setangle y fy
setangle z fz
set moved to 0
endif
endif
set SEBruscusDannusRef.goCrazy to 0
end
begin gamemode
if moved == 2
return
endif
if moved == 0 && getincell SEHighcrossBruscusDannusHouse == 0
set moved to 2
return
endif
if moved == 0
if getpos x != getstartingpos x || getpos y != getstartingpos y || getpos z != getstartingpos z
set moved to 1
; I've been moved! tell Bruscus Dannus to go crazy
set SEBruscusDannusRef.goCrazy to 1
if SEBruscusDannusRef.getincell SEHighcrossBruscusDannusHouse == 1
if SEBruscusDannusRef.getiscurrentpackage SEBruscusDannusGoCrazy == 0
SEBruscusDannusRef.evp
endif
endif
endif
endif
end
