Construction Set Skriptthread zum Construction Set

SCN ...

Short State
Float  Timer

Begin OnActivate

if(state == 0)
    set state to 1
endif

end


Begin GameMode

if(state == 0)
    return
elseif(state == 1)
       set timer to timer + getsecondspassed
       <schrank-ref>.setpos y, -5 ; Ich weis ja jetzt nicht, in welcher  Position Dein Schrank steht, deswegen musst Du es halt anpassen.
    if(timer >= 5) ; Hier musst Du eben anpassen, wie lange dein Schrank verschoben werden soll.
          set state to 2
          set timer to 0
    endif
 endif

end

scn name

short doonce
float metre
float distance
float duration
ref myParent

float secondsPassed

short state
short busy
float timer
float diff_pos


Begin onLoad

if doonce == 0
 set doonce to 1
 set metre to [COLOR="Red"]a[/COLOR]       [COLOR="Red"];a = die Strecke in Metern, die der Schrank bewegt werden soll[/COLOR]
 set distance (meter * 70)
 set duration to [COLOR="Red"]b[/COLOR]    [COLOR="Red"];b = die Dauer der Bewegung[/COLOR]
 set myParent to getParentRef       [COLOR="Red"];der Schrank muss das Parent des Schalters sein[/COLOR]

 set state to [COLOR="Red"]c[/COLOR]       [COLOR="Red"];c = -1, wenn die erste Verschiebung auf der Achse positiv sein soll, sonst 1[/COLOR]
endif

end


Begin onActivate

if busy == 0
 set state to (state - 2*state)
 set busy to 1
endif

end


Begin GameMode

if busy == 1
 set secondsPassed to getSecondsPassed
 set timer to (timer + secondsPassed)
 set diff_pos to (distance * secondsPassed / duration)
 set diff_pos to (state * diff_pos)
 myParent.setPos [COLOR="Red"]d[/COLOR] diff_pos     [COLOR="Red"];d = die gewünschte Achse (x, y oder z)[/COLOR]
 if timer >= duration
  set busy to 2
  set timer to 0
  myParent.disable
 endif
elseif busy == 2
 set busy to 0
 myParent.enable
endif

end

scn ...

Begin onTrigger player

Referenz-des-Activators.Activate

End

scn ...
short DoOnce

Begin onTrigger player
If (DoOnce == 0)
Referenz-des-Activators.Activate
Set DoOnce to 1
Else ;DoOnce == 1
Return
Endif
End

scn NAME
ref target

begin ontriggeractor CREATURE-ID
set target to getself
target.kill
end