Construction Set Skriptthread zum Construction Set

scn ApfelSCRIPT

Begin OnActivate player
player.additem Apple 1
disable
End

scn ApfelaumSCRIPT

short button
short harvestday
short harvest

Begin OnActivate
if harvestday == 0
set harvestday to gameday
Elseif harvestday > gameday
Messagebox "Der Baum trägt noch keine Früchte! Kommt später wieder."
Endif

If (harvestday < gameday) && (harvest == 0)
Messagebox "Wollt ihr den Baum schütteln?" "Ja" "Nein"
set harvest to 1
Endif
End

Begin GameMode
If harvest == 0
return
Elseif harvest == 1
set button to getbuttonpressed
Endif

If button == 0
set harvest to 0
set harvestday to gameday +3
Apfel1REF.mopvetomarker Marker1REF
Apfel2REF.mopvetomarker Marker2REF
Apfel3REF.mopvetomarker Marker3REF
Apfel4REF.mopvetomarker Marker4REF
Apfel5REF.mopvetomarker Marker5REF
Apfel6REF.mopvetomarker Marker6REF
Apfel1REF.enable
Apfel2REF.enable
Apfel3REF.enable
Apfel4REF.enable
Apfel5REF.enable
Apfel6REF.enable
Endif
End

scn ...

short once
short lastuse

begin OnActivate player
if (once == 0)
    activate
    player.addspell [SpellID]
    set lastuse to GameDay
    set once to 1
endif

if (GameDay == lastuse + 1)
    activate
    player.addspell [SpellID]
    set lastuse to GameDay
elseif (GameDay == lastuse)
    Messagebox "Ihr könnt den Stuhl heute nicht mehr benutzen."
endif
end

scn Script

short sitting
short lastuse

begin OnActivate player
if lastuse == 0
set lastuse to gameday -1
endif

If sitting == 0
    if (lastuse < gameday)
        set sitting to 1
        set lastuse to GameDay
        activate
        player.addspell [SpellID]
    elseif (GameDay == lastuse)
        Messagebox "Ihr könnt den Stuhl heute nicht mehr benutzen."
    endif
Elseif sitting == 1
    set sitting to 0
Endif
end

Scriptname STMessageBoxKey

Short CurrentMessage
Short Button
Short STKey
Float fQuestDelayTime

Begin GameMode
	if(STKey == 0)
		if(getquestrunning SirTroysSF)
			stopquest SirTroysSF
		endif
		set STKey to 1	
		set button to -100
		set fquestdelaytime to 0.1
	endif
	If (STKey == 1)
		If CurrentMessage == 0
			Set CurrentMessage to 1
			MessageBox "Wähle eine Taste aus. Wähle eine freie Taste auf deiner Tastatur!"
		Elseif CurrentMessage == 1
			Set Button to GetKeyPress 0
			If Button != 65535
				MessageBoxEX "Gewählter Button ist %k", Button
				Set SirTroysSF.KillKey to Button
				Set CurrentMessage to 2
			Endif
		Elseif CurrentMessage == 2
			Set CurrentMessage to 0
			Set STKey to 0
			If GetQuestRunning SirTroysSF == 0
				StartQuest SirTroysSF
			Endif
			Set SirTroysSF.Done to 1
			StopQuest Sirtroyskeyselector
		Endif
	Endif
End

Scriptname SirTroysSFQuest

Short Killkey
Short Done
Short Playing
Short Move
Short Delay

Float AnimDelay

Ref Target
Ref PossibleTarget

Begin GameMode
	If Done == 1
		Enablekey Killkey
		If Delay != 0
	               If(player.isIdlePlaying || player.isPowerAttacking || player.isCasting || player.isanimgroupplaying dodgeback || player.isAnimGroupPlaying dodgeForward)
		          if(player.isAnimgroupPlaying blockAttack == 0 || iscontrolpressed 28 == 0)
			           return
			endif
		      Else
			Set Delay to 0
		     Endif
		Endif
		If Playing == 0
			Set AnimDelay to 6
		Elseif Playing >= 1 && Delay
			Set AnimDelay to Animdelay - 1
			If AnimDelay == 0
				Target.Kill
				Target.RemoveItem ZTroyRingDeath 1
				Set Playing to 0
				Set Move to 0
			Endif
		Endif
	Endif
	If ( IsKeyPressed2 KillKey ) && ( Move == 0 )
		set PossibleTarget to ( GetCrosshairRef )
		if ( IsFormValid PossibleTarget )
			If PossibleTarget.IsActor
				If PossibleTarget.IsCreature == 0
					If PossibleTarget.IsRefEssential == 0
						Set Target to PossibleTarget
					Endif
				Endif
			Endif
		Endif
		Set Move to 1
	Else
		Return
	Endif
	If Move == 0
		Return
	Elseif Move == 1
		Target.Additem ZTroyRingDeath 1
		Set Playing to 1
		Set Delay to 1
	Endif
End

scn Scriptname

short STKey
short button
ref STNPCRef

Begin GameMode
if (STKey == 0)
	set STKey to 1
	set fquestdelaytime to 0.1
	messagebox "Wähle eine Taste aus. Wähle eine freie Taste auf deiner Tastatur!"
	return
Elseif (STKey == 1) && (button == 0)
	Set Button to GetKeyPress 0
	If Button != 65535
		MessageBoxEX "Gewählter Button ist %k", Button
	Endif
Endif

If (button > 0)
	If (OnKeyDown button) && (GetCrosshairref > 0)
		set STNPCRef to GetCrosshairref
		set STAnimStart to 1
		STNPCRef.pickidle
		player.pickidle
	Endif
Endif
End