Construction Set Skriptthread zum Construction Set

if (GetButtonPressed == 1)
...
elseif (GetButtonPressed == 2)

scriptname TholorArenaKampfSchalterScriptTest

short choosing
short button

ref enemy1
ref enemy2
ref enemy3
ref enemy4

Begin OnActivate
	set choosing to -1
end

Begin GameMode

if choosing == 0
    return
endif

set button to GetButtonPressed


if choosing == -1
	messagebox "Wo möchtet ihr kämpfen", "Im Großen Saal", "Ich möchte nicht Kämpfen"
        set choosing to 1
endif

if choosing == -2
	messagebox "Ihr werdet im Großen Saal gegen 4 Gegner kämpfen. Gegen wenn möchet ihr kämpfen?", "Gegen Zombies", "Gegen Skelette", "Gegen Banditen", "Ich lass es lieber bleiben"
        set choosing to 2
endif

if chossing == -21
	messagebox "Ihr möchtet im Großen Saal gegen 4 Zombies kämpfen. Wie schwer wollt ihr es haben?", "Leicht", "Mittel", "Schwer", "Oh, lieber nichts"
        set choosing to 21
endif

if chossing == -22
	messagebox "Ihr möchtet im Großen Saal gegen 4 Skelette kämpfen. Wie schwer wollt ihr es haben?", "Leicht", "Mittel", "Schwer", "Oh, lieber nichts"
        set choosing to 22
endif

if chossing == -23
	messagebox "Ihr möchtet im Großen Saal gegen 4 Banditen kämpfen. Wie schwer wollt ihr es haben?", "Leicht", "Mittel", "Schwer", "Oh, lieber nichts"
        set choosing to 23
endif

if choosing == 1
	if button == 0
		set choosing to -2
        elseif button == 1
                set choosing to 0
        endif

elseif choosing == 2
	if button == 0
		set choosing to -21 ; Zombies
        elseif button == 1
                set choosing to -22 ; Skelette
        elseif button == 2
                set choosing to -23 ; Banditen
        elseif button == 3
                set choosing to 0   ; Feiger Hund
        endif
         
elseif choosing == 21
	if button == 0
        	set enemy1 to TholorArenaSkelettLeicht.createfullactorcopy
                enemy1.moveto GrosserSaal1
                enymy1.enable   
        	set enemy2 to TholorArenaSkelettLeicht.createfullactorcopy
                enemy2.moveto GrosserSaal2
                enymy2.enable   
        	set enemy3 to TholorArenaSkelettLeicht.createfullactorcopy
                enemy3.moveto GrosserSaal3
                enymy3.enable   
        	set enemy4 to TholorArenaSkelettLeicht.createfullactorcopy
                enemy4.moveto GrosserSaal4
                enymy4.enable   
		set choosing to 0
                player.moveto GrosserSaalSpieler
	elseif button == 1
        	; Summon Zombies Mittel
		set choosing to 0
	elseif button == 2
        	; Summon Zombies Schwer
		set choosing to 0
        elseif button == 3
		set choosing to 0
        endif


elseif choosing == 22
	if button == 0
        	; Summon Skelette Leicht
		set choosing to 0
	elseif button == 1
        	; Summon Skelette Mittel
		set choosing to 0
	elseif button == 2
        	; Summon Skelette Schwer
		set choosing to 0
        elseif button == 3
		set choosing to 0
        endif

elseif choosing == 22
	if button == 0
        	; Summon Banditen Leicht
		set choosing to 0
	elseif button == 1
        	; Summon Banditen Mittel
		set choosing to 0
	elseif button == 2
        	; Summon Banditen Schwer
		set choosing to 0
        elseif button == 3
		set choosing to 0
        endif
endif

end

short InitDone

if InitDone == 0
    set fQuestDelayTime to 0.001
    set InitDone to 1
endif

if tbstage == 0
    if choosing == 0
        messagebox "Bitte wählen sie aus durch welchen Faktor der Spielerlevel geteilt werden soll!(für genauere Details bitte die Readme lesen !!!)" " Faktor 1 (1275/5050)" "Faktor 2 (637/2025)" "Faktor 3 (425/1683)" "Faktor 4 (318/1262)" "Faktor 5 (255/1010)" "Faktor 10 (127/505)" "Faktor 20 (63/252)"
        set choosing to 1
        set choice to getbuttonpressed ; auf diese Zeile verzichte ich immer
    else ; auf elseif kann verzichtet werden, da nicht weiter geschachtelt wird
        set choice to getbuttonpressed
        if choice == 0
            set tbsetting to 1
        elseif choice == 1
            set tbsetting to 2
        elseif choice == 2
            set tbsetting to 3
        elseif choice == 3
            set tbsetting to 4
        elseif choice == 4
            set tbsetting to 5
        elseif choice == 5
            set tbsetting to 10
        elseif choice == 6
            set tbsetting to 20
        endif

        if tbsetting != 0
            set tbtrainingsetting to tbsetting
            set tbstage to 1
        endif
    endif
endif

float currentTimer
float repairTimer

Begin GameMode

  set repairTimer to 600
  set pUser to GetContainer
	
  set currentTimer to (currentTimer - getSecondsPassed)
  MessageEX "Timer: %3.4f" currentTimer ;Zum Test die Ausgabe des Timers
  if currentTimer > 0
    return
  endif
  ....
  set currentTimer to repairTimer
End

short TholorDebugVar
ref TholorDebubRef

set choosing to 0
player.moveto GrosserSaalSpieler

set QUESTNAME.TholorDebugVar to 1
set QUESTNAME.TholorDebugRef to enemy1
set choosing to 0
player.moveto GrosserSaalSpieler

sqv QUESTNAME

scn viech

short Done

Begin OnActivate
 if ( Done == 0 )
  set Done to 1
  [URL="http://cs.elderscrolls.com/constwiki/index.php/PlayBink"]PlayBink[/URL] "Pfad"                  ;Pfad ist relativ zum Oblivion\Data\Video-Ordner. Endung (.bik) muss mit angegeben werden.
 endif
End

Begin OnLoad             ;sollte hier eigentlich funktionieren, falls nicht muss halt doch ein Gamemode-Block herhalten.
 if ( Done )
  set Done to 0              ;diese Zeile weglassen, wenn das ganze nur einmal funktionieren soll.
  Player.MoveTo [ZielRef]                ;Alternativ kann auch [URL="http://cs.elderscrolls.com/constwiki/index.php/PositionCell"]PositionCell[/URL] verwendet werden.
 endif
End