Construction Set Skriptthread zum Construction Set

if Player.GetEquipped WeapSteelLongsword 1
Messagebox "Du hast ne Luschenwaffe!!!"

set timer to timer + getsecondspassed

if timer < 1
 set transp to 1 - timer
 SetActorAlpha transp
else
 disable
endif

scn SESummonHaskillSpellSCRIPT

float timer
short returnEffect		; set to 1 when played
float x
float y
float angle

begin ScriptEffectStart
if ( sehaskillref.summoned == 0 ) && ( GetPlayerinSEWorld == 1 )
	set sehaskillref.summoned to 1
	; move marker to Haskill's current spot
	SEHaskillSummonReturnMarker.moveto SEHaskillRef
	; move Haskill to player
	SEHaskillSummonMarker.moveto player	; get orientation of player
	; when we have math functions, we can do this:
	set angle to player.getangle z
	; set x to 100 * ( cos angle )
	; set y to 100 * ( sin angle )
	; SEHaskillRef.moveto SEHaskillSummonMarker x y 0

	; TEMP: for now, just move on axis based on angle
	if angle <= 45 && angle >= -45
		set y to 150
	elseif angle >= 45 && angle <= 135
		set x to 150
	elseif angle >= 135 && angle <= 225
		set y to -150
	else
		set x to -150
	endif
;	messagebox "TEMP: angle = %.1f, x=%.0f, y=%.0f" angle x y
		
	SEHaskillRef.moveto player x y 0
	SEHaskillRef.look player
	SEHaskillRef.pme STRP
	; Haskill force-greet player
	SEHaskillRef.addscriptpackage SEHaskillSummonForcegreet
	;set variable on Haskill to prevent player from talking to him before he forcegreets
	set SEHaskillRef.greetVAR to 1
	set SEHaskillREF.FadeOnce to 3
elseif ( GetPlayerinSEWorld == 1 )
	Message "Haskill wurde gerade erst herbeibeschworen."
elseif ( GetPlayerinSEWorld == 0 )
	Message "Dieser Zauber kann nur auf den Zitternden Inseln verwendet werden."
	dispel SELpSummonHaskill
endif

end

begin ScriptEffectUpdate
	set timer to timer + ScriptEffectElapsedSeconds
	if returnEffect == 0 && timer > 4.5
		SEHaskillRef.pme STRP
		set returnEffect to 1
	endif
end

begin ScriptEffectFinish
	if ( SEHaskillREF.GetInSameCell Player == 0 ) && ( SEHaskillREF.summoned == 1 )
		set SEHaskillSummonQuest.resetVAR to 1
	endif
	; send Haskill back where he came from
	;SEHaskillRef.pme STRP
	;SEHaskillRef.removescriptpackage
	;SEHaskillRef.stoplook
	;SEHaskillRef.moveto SEHaskillSummonReturnMarker
	;set SEHaskillREF.FadeOnce to 4
	;set SEHaskillRef.greetVAR to 0
end

scn SEHaskillSummonQuestScript

;this script keeps the player from breaking the Haskill summon by summoning and quickly fast travelling. With this, resetVAR is set
;in the SESummonHaskillSpellScript on ScriptEffectFinish if the player isn't in the same cell. This script then resets all of Haskill's variable
;as they would be if the player remained in the cell with him and Haskills script were still updating every frame

short resetVAR

Begin GameMode

if ( resetVAR == 1 )
	Set SEHaskillREF.HaskillAlpha to 0
	Set SEHaskillREF.FadeOnce to 2
	Set SEHaskillREF.FadeTimer to 0
	SEHaskillREF.MoveTo SEHaskillSummonReturnMarker
	set SEHaskillREF.resetAlpha to 1
	set SEHaskillREF.summoned to 0
	set SEHaskillREF.summontimer to 0
	set SEHaskillREF.summonblocker to 0
	set resetVAR to 0
endif

End

scn SEHaskillScript

short introWho
short introWhat
short introDoor
short introWant
short introPeople
short greetVAR

short leaveVAR
float timer
short doOnce
float fadetimer
float HaskillAlpha
short fadeOnce
short resetAlpha
short summoned
float summontimer
short summonblocker


short tutorialVAR


begin OnLoad
	; Haskill is immune from combat -- he is one weird dude.
	setghost 1

end

;this prevents player from interrupting forcegreet after summon
Begin OnActivate
	if ( greetVAR == 0 )
		Activate
	endif
End

Begin GameMode



;this handles him sitting and getting up in SE01
if ( leaveVAR == 1 ) && ( doOnce == 0 )
	set doOnce to 1
	EVP
endif

;this section makes it appear as if Haskill has activated a door and faded out
if ( leaveVAR == 2 ) && ( fadeOnce == 0 )
	;Disable
	;EnablePlayerControls
	Set HaskillAlpha to .9
	Set FadeTimer to 4
	SetActorAlpha HaskillAlpha
	set fadeOnce to 1
endif

if ( FadeOnce == 1 )
	if ( FadeTimer > 0 )
		Set FadeTimer to ( FadeTimer - GetSecondsPassed )
		Set HaskillAlpha to ( HaskillAlpha - .01 )
		SetActorAlpha HaskillAlpha
	elseif ( FadeTimer <= 0 )
		;sw SEClearTrans
		Set HaskillAlpha to 0
		Set FadeOnce to 2
		Set FadeTimer to 0
		MoveTo SE07AThadonMarker
	endif
endif

;this handles him telling the player to sit in SE01

if ( GetStage SE01Door <= 20 ) && ( player.GetSitting != 3 )
	set timer to ( timer - GetSecondsPassed )
	if ( timer <= -10 )
		set timer to SayTo Player SE01HaskillTalk
	endif
endif

;this chunk fades him out after summon
if ( fadeOnce == 4 )
	;Disable
	;EnablePlayerControls
	Set HaskillAlpha to 0.9
	Set FadeTimer to 4
	SetActorAlpha HaskillAlpha
	set fadeOnce to 5
endif

if ( FadeOnce == 5 )
	if ( FadeTimer > 0 )
		Set FadeTimer to ( FadeTimer - GetSecondsPassed )
		Set HaskillAlpha to ( HaskillAlpha - .01 )
		SetActorAlpha HaskillAlpha
	elseif ( FadeTimer <= 0 )
		Set HaskillAlpha to 0
		Set FadeOnce to 2
		Set FadeTimer to 0
		MoveTo SEHaskillSummonReturnMarker
		set resetAlpha to 1
		set summoned to 0
		set summontimer to 0
		set summonblocker to 0
	endif
endif

if ( resetAlpha == 1 )
	setActorAlpha 1
	set resetAlpha to 0
endif

if ( summoned == 1 )
	set summontimer to ( summontimer + GetSecondsPassed )
	if ( summontimer >= 5 )
		if ( summonblocker == 0 )
			;set summoned to 0
			;set summontimer to 0
			; send Haskill back where he came from
			SEHaskillRef.pme STRP
			SEHaskillRef.removescriptpackage
			SEHaskillRef.stoplook
			;SEHaskillRef.moveto SEHaskillSummonReturnMarker
			set SEHaskillREF.FadeOnce to 4
			set SEHaskillRef.greetVAR to 0
			set summonblocker to 1
		endif
	endif
endif

End

Begin OnPackageDone SE01HaskillLeavePackage

;MessageBox "ONPACKAGEDONE"
set leaveVAR to 2

End

scn OldHouseCrate02

float CrateTimer
float CrateAlpha
short CrateFade

Begin OnLoad
   PlayMagicShaderVisuals GhostEffect
end

Begin OnActivate Player
   if Player.GetEquipped WeapIronDaggerQUEST
      Set CrateFade to 1
      Falltuer.Enable
   endif
End

Begin GameMode
   if CrateFade == 1
      set CrateTimer to CrateTimer + GetSecondsPassed
      if CrateTimer < 10
         set CrateAlpha to 1 - (CrateTimer/10)
         SetActorAlpha CrateAlpha
      else
         Disable
         SetCrateFade to 0
      endif
   endif
End

scn testsaa

begin onactivate
   saa 0.5
end