scn MeclatonsTriggerPortScript
short once
Begin onTriggerActor Player
If(once == 0)
set once to 1
Playsound DRSStoneOpen
Endif
End
Begin GameMode
If(once == 1)
set once to 2
Player.moveto <MeclatonsXMarker>
ElseIf(once == 2)
set once to 0
EndIf
End
scn name
short count
short once
short disabled
short sign
long bHealth
float ang
float ang2
float timer
Begin GameMode
if once == 0
set once to 1
set bHealth to getBaseAV health
endif
if disabled
if timer < 20
set timer to timer + getSecondsPassed
return
else
set disabled to 0
set timer to 0
enable
set sign to 1
set ang to player.getAngle z
if ang > 270
set ang to ang - 360
elseif ang > 90
set ang to ang - 180
set sign to -1
endif
set ang to 0.017453*ang
set ang2 to ang * ang
set sin to sign * ( ang * ( 0.99972 + ang2 * ( -0.16567 + 0.007502 * ang2 ) ) )
set cos to sign * ( 1 + ang2 * ( -0.499932 + ang2 * ( 0.0415 + -0.001273 * ang2 ) ) )
set xpos to -200*cos ;ungefähr drei Meter hinter dem Spieler
set ypos to -200*sin
moveTo player xpos, ypos, 0
endif
else
if count < 3
if getAV health < 0.2 * bHealth
restoreHealth
disable
set disabled to 1
set count to count + 1
endif
endif
endif
end
scn aaaSOFParachute3ProbeSCRIPT
;====================================
; General Parameters - change to fine tuning
;====================================
short xParmFallDetectionSensibility
short xParmEndOfFallDetectionSensibility
short xParmProbeFrames
float xParmSpeed
float xParmVerticalViewAngleMin
float xParmVerticalViewAngleMax
float xParmVRZdif
;====================================
ref xParachute
ref xParachuteOpen
ref xProbe
ref xVR
short xTurn
short xGroundIsNear
short xEquiped
short xViewOK
short xFCount
short xGoingUpCount
float xDistance
float xAngle
float xSecondsPassed
float xxTrigAngle
float xSpeed
float xHorDist
Float xPosXplayer
Float xPosYplayer
Float xPosZplayer
float xAngleXplayer
float xAngleZplayer
Float xPosX
Float xPosY
Float xPosZ
Float xPosZlow
Float xPosXprev
Float xPosYprev
Float xPosZprev
Float xPosXnext
Float xPosYnext
Float xPosZnext
Float xDeltaXplayer
Float xDeltaYplayer
Float xDeltaZplayer
;Float xDeltaX
;Float xDeltaY
Float xDeltaZ
float xFall
;float Osin
;float Ocos
float Xang
float Xrad
float Xexp
float Xsin
float Xcos
short xCount
begin gamemode
if getcontainer != Player
return
endif
if xProbe == 0
;set xVR to aaaVRinVSoF
;set xProbe to aaaProbeSoF
;====================================
; General Parameters - change to fine tuning
;====================================
set xParmFallDetectionSensibility to 2 ; Number of falling frames until opening parachute
set xParmEndOfFallDetectionSensibility to 2 ; Number of up frames until removing
set xParmProbeFrames to 3
set xParmSpeed to 320 ; Parachute speed in units/sec
set xParmVerticalViewAngleMin to 20 ; Min limit to player view movement while parachute equipped
set xParmVerticalViewAngleMax to 60 ; Max ...
set xParmVRZdif to -1.25 ; Z difference between the center of the Virtual Road and the player
set xParachute to aaaParachute3ClosedBase
set xParachuteOpen to aaaParachute3OpenBase
endif
if xEquiped == 0
if Player.getEquipped xParachute
;=================================
; Fall detection
;=================================
if xPosZprev == 0
set xPosZprev to player.getpos Z
return
endif
set xPosXplayer to Player.getpos X
set xPosYplayer to Player.getpos Y
set xPosZplayer to Player.getpos Z
set xDeltaZ to xPosZplayer - xPosZprev
set xSpeed to xDeltaZ / GetSecondsPassed
set xPosZprev to xPosZplayer
if xSpeed < -500
set xFCount to xFCount + 1 ; Count frames falling
else
set xFCount to 0 ; Reset frames falling
endif
if xFCount >= xParmFallDetectionSensibility
;=================================
; Initialize parachute - Reset variables
;=================================
set xEquiped to 1
Message " "
Message " "
player.additem xParachuteOpen 1
Message " "
Message " "
player.equipitem xParachuteOpen
xProbe.moveto player 100 100 -100
set xTurn to 0
set xViewOK to 0
set xFCount to 0
set xGoingUpCount to 0
set xPosZlow to player.getpos Z
if player.getlos xProbe == 0 || xProbe.getinsamecell player != 1
xProbe.disable
xProbe.MoveTo player 0 0 -100
endif
if xVR.getinsamecell player != 1
xVR.disable
xVR.MoveTo player 0 0 xParmVRZdif
endif
DisablePlayerControls
playGroup JumpLoop 1
endif
endif
else
set xTurn to xTurn + 1
set xSecondsPassed to GetSecondsPassed
if xProbe.getdisabled
xProbe.enable
set xPosZ to player.getpos Z - 10
xProbe.setpos Z xPosZ
endif
;=== Make sure the Virtial Road didn't stay behind when entering new cells ===
if xVR.getinsamecell player != 1 || xVR.getdisabled
xVR.enable
xVR.MoveTo player 0 0 xParmVRZdif
xVR.setangle Y 90
endif
set xPosXplayer to Player.getpos X
set xPosYplayer to Player.getpos Y
set xPosZplayer to Player.getpos Z
set xAngleZplayer to player.getangle Z
set xAngleXplayer to player.getangle X
;=================================
; Limit player vertical view
;=================================
if xAngleXplayer < xParmVerticalViewAngleMin
player.setangle X xParmVerticalViewAngleMin
set xAngleXplayer to xParmVerticalViewAngleMin
elseif xAngleXplayer > xParmVerticalViewAngleMax
player.setangle X xParmVerticalViewAngleMax
set xAngleXplayer to xParmVerticalViewAngleMax
endif
;=================================
; Detect end of fall
;=================================
set xFall to xPosZplayer - xPosZprev
if xTurn > 8 && xFall >= 0
set xGoingUpCount to xGoingUpCount + 1
else
set xGoingUpCount to 0
endif
if xGoingUpCount > xParmEndOfFallDetectionSensibility
set xEquiped to 0
set xPosZprev to 0
xVR.positioncell 0 0 0 0 TestingHall
xProbe.positioncell 0 0 0 0 TestingHall
Message " "
Message " "
player.equipitem xParachute
Message " "
Message " "
player.removeitem xParachuteOpen 1
; player.resetHealth ; $$$$$$$$$$ TEST ONLY $$$$$$$$$$$$
enablePlayerControls
player.playgroup jumpland 1
return
endif
;=================================
; Calc next player position
;=================================
set xAngle to Player.getangle Z
if xAngle <= 90
set xxTrigAngle to 90 - xAngle
else
set xxTrigAngle to 450 - xAngle
endif
set xDistance to xParmSpeed * xSecondsPassed
set Xang to xAngleXplayer
if Xang < -180
set Xang to ( Xang + 360 )
elseif Xang > 180
set Xang to Xang - 360
endif
set Xrad to ( Xang * 0.0174533 )
set Xcos to 1
set Xexp to Xrad ; 1st
set Xsin to Xexp
set Xexp to ( Xexp * Xrad ) ; 2nd
set Xcos to ( Xcos - Xexp / 2 )
set Xexp to ( Xexp * Xrad ) ; 3rd
set Xsin to ( Xsin - Xexp / 6 )
set Xexp to ( Xexp * Xrad ) ; 4th
set Xcos to ( Xcos + Xexp / 24 )
set Xexp to ( Xexp * Xrad ) ; 5th
set Xsin to ( Xsin + Xexp / 120 )
set Xexp to ( Xexp * Xrad ) ; 6th
set Xcos to ( Xcos - Xexp / 720 )
set Xexp to ( Xexp * Xrad ) ; 7th
set Xsin to ( Xsin - Xexp / 5040 )
set Xexp to ( Xexp * Xrad ) ; 8th
set Xcos to ( Xcos + Xexp / 40320 )
set Xexp to ( Xexp * Xrad ) ; 9th
set Xsin to ( Xsin + Xexp / 362880 )
set xDeltaZplayer to xDistance * Xsin
set xHorDist to xDistance * Xcos
set Xang to xxTrigAngle
if Xang < -180
set Xang to ( Xang + 360 )
elseif Xang > 180
set Xang to Xang - 360
endif
set Xrad to ( Xang * 0.0174533 )
set Xcos to 1
set Xexp to Xrad ; 1st
set Xsin to Xexp
set Xexp to ( Xexp * Xrad ) ; 2nd
set Xcos to ( Xcos - Xexp / 2 )
set Xexp to ( Xexp * Xrad ) ; 3rd
set Xsin to ( Xsin - Xexp / 6 )
set Xexp to ( Xexp * Xrad ) ; 4th
set Xcos to ( Xcos + Xexp / 24 )
set Xexp to ( Xexp * Xrad ) ; 5th
set Xsin to ( Xsin + Xexp / 120 )
set Xexp to ( Xexp * Xrad ) ; 6th
set Xcos to ( Xcos - Xexp / 720 )
set Xexp to ( Xexp * Xrad ) ; 7th
set Xsin to ( Xsin - Xexp / 5040 )
set Xexp to ( Xexp * Xrad ) ; 8th
set Xcos to ( Xcos + Xexp / 40320 )
set Xexp to ( Xexp * Xrad ) ; 9th
set Xsin to ( Xsin + Xexp / 362880 )
set xDeltaXplayer to xHorDist * Xcos
set xDeltaYplayer to xHorDist * Xsin
set xPosXnext to xPosXplayer + xDeltaXplayer
set xPosYnext to xPosYplayer + xDeltaYplayer
set xPosZnext to xPosZplayer - xDeltaZplayer
;=======================================================
;=== Probes ahead to detect ground level ===
;=======================================================
set xGroundIsNear to 0
set xCount to 0
xProbe.moveto player
set xCount to 125 / xDeltaZplayer + xParmProbeFrames
set xPosX to xPosXplayer + ( xDeltaXplayer * xCount ) / 2
set xPosY to xPosYplayer + ( xDeltaYplayer * xCount ) / 2
set xPosZ to xPosZplayer - xDeltaZplayer * xCount + 125
xProbe.setpos X xPosX
xProbe.setpos Y xPosY
xProbe.setpos Z xPosZ
if player.getlos xProbe == 0
set xGroundIsNear to 1
else
set xGroundIsNear to 0
endif
;========================
;=== Position Virtual Road ===
;========================
if xGroundIsNear
xVR.setpos Z 0
else
if xPosZnext >= xPosZlow
xVR.setpos X xPosXnext
xVR.setpos Y xPosYnext
xVR.setpos Z xPosZlow
player.setpos X xPosXnext
player.setpos Y xPosYnext
else
xVR.setpos X xPosXnext
xVR.setpos Y xPosYnext
set xPosZ to xPosZnext + xParmVRZdif
xVR.setpos Z xPosZ
player.setpos X xPosXnext
player.setpos Y xPosYnext
Player.setpos Z xPosZnext
set xPosZlow to xPosZnext
endif
endif
player.ResetFallDamageTimer
;=================================
; Save player position
;=================================
set xPosXprev to xPosXplayer
set xPosYprev to xPosYplayer
set xPosZprev to xPosZplayer
endif
end
scn MeinSprigganZauberScript
begin scritpeffectstart
MeinSpriggan01.enable
MeinSpriggan01.resurrect
MeinSpriggan01.pme ZDRE ;ZDRE steht für den visuellen Effekt von "Dremora beschwören. Du kannst dir aber auch die Magic Effect ID eines anderen Zaubers raussuchen udn dessen 4 Buchstaben benutzen
MeinSpriggan01.moveto player
end
begin scripteffectfinish
MeinSpriggan01.kill
MeinSpriggan01.disable
endscn MeinSprigganScript
begin ondeath
player.dispel ZAUBER-ID
end
begin OnStartCombat TargetActorRefIDscn xxx
Begin onStartCombat
If ( Bedingung erfüllt )
TargetRef.StopCombat
SetAv Aggression 0
Endif
End
