Construction Set Skriptthread zum Construction Set

Scn BrandyScript01

Short Var

Begin OnActivate
	If Var == 0 ;Durch die Variable kann man den Activator nur einmal betätigen
		If Player.GetItemCount ITEMID >= 2
			Player.Moveto Marker
			Set Var to 1
		Else
			MessageBox "Blubb Count != 2 Stirb"
		Endif
	Endif
End

Scn BrandyScript02

Float Timer
Ref Target

Begin OnDeath
	Set Var to 1
	Set Target to GetSelf
End

Begin GameMode
	If var == 1
		Target.PlayMagicShaderVisual DeinShader
		Set Timer to Timer + GetSecondsPassed
		If Timer >= 1 && Timer <= 2
			Target.SetActorAlpha 0.9
		Elseif Timer >= 2 && Timer <= 3
			Target.SetActorAlpha 0.7
		Elseif Timer >= 3 && Timer <= 4
			Target.SetActorAlpha 0.5
		Elseif Timer >= 4 && Timer <= 5
			Target.SetActorAlpha 0.3
		Elseif Timer >= 5 && Timer <= 6
			Target.SetActorAlpha 0.1
		Elseif Timer > 6
			Target.StopMagicShadervisual DeinShader
			Target.Disable ;Oder Target.MoveTo DummyCell aber diesable ist besser denk ich
			Set Timer to 0
			Set Var to 0
		Endif
	Endif
End

scn name

Begin GameMode
 if <Bär-REF>.getDead == 1
  setStage <Quest-ID> <Stage>
 endif
end

scn name

Begin onDeath
 setStage <Quest-ID> <Stage>
end

scn suchtscript

short doonce
short trinken
float timer

begin scripteffectstart
if doonce == 1 
player.removespell skooma
set doonce to 0
endif

if sucht == 0
    set sucht to 1
    return
endif
if sucht == 2
    set sucht to 3
    return
endif
if sucht == 3
    set sucht to 4 

if timer < 300 && doonce == 0
    set timer to timer
elseif doonce == 0
    messagebox "Nehmt schnellst möglich Skooma zu euch!"
    set doonce to 1
    player.addspell skooma
elseif timer == 500 && doonce == 1
    set timer to 0
    set doonce to 0
    SetPCSleepHours 12
Messagebox "Ihr habt zu lange kein Skooma getrunken und seid in Ohnmacht gefallen."
endif
return 
endif

if sucht == 4
set sucht to 5

if timer < 200 && doonce == 0
    set timer to timer
elseif doonce == 0
    messagebox "Nehmt schnellst möglich Skooma zu euch!"
    set doonce to 1
    player.addspell skooma
elseif timer == 300 && doonce == 1
    set timer to 0
    set doonce to 0
    SetPCSleepHours 12
Messagebox "Ihr habt zu lange kein Skooma getrunken und seid in Ohnmacht gefallen."
endif
return
endif

if sucht == 5
set sucht to 6
if timer < 300 && doonce == 0
    set timer to timer
elseif doonce == 0
    set doonce to 1
elseif timer == 500 && doonce == 1
    set timer to 0
    set doonce to 0
    SetPCSleepHours 12
Messagebox "Ihr habt zu lange kein Skooma getrunken und seid in Ohnmacht gefallen."
endif
return
endif
if sucht == 6 
setpcsleephours 15
endif
end

begin scripteffectupdate
if sucht == 2
 triggerHitShader 5
elseif sucht == 3
 triggerHitShader 35
elseif sucht == 4 
 triggerHitShader 75
elseif sucht == 5
triggerhitshader 95
endif
if triggerHitShader == 0 && sucht == 2
 triggerHitShader 5
endif
if triggerHitShader == 20 && sucht == 3
 triggerHitShader 35
endif
if triggerHitShader == 60 && sucht == 4
 triggerHitShader 75
endif
if triggerHitshader == 80 && sucht == 5 
triggerHitShader 95
endif

end

addtopic Topic-ID