Construction Set Skriptthread zum Construction Set

ScriptName ScriptName
short doonce
short dice
Begin GameMode
if doonce == 0
If Player.GetItemCount ITEMID > 0 && GetPCSleepHours > 0;Bei ItemID musst du dein ITem einsetzen
set dice to 1 + 0.06 * GetRandompercent 
;############################################
; => 1 zu 6 Wenn du mehr videos hast musst du 0.06 durch bsp 0.07 ersetzen
set doonce to 1
    If Dice == 1
        PlayBink "Vid1.bik" 1
        ;##############################        
         ;Die 1 kannst du durch 0 erstzen. sie bedeutet nur das man während des guckens das vid niocht abbrechen kann
    elseif Dice == 2
        PlayBink "Vid2.bik" 1
    elseif Dice == 3
        PlayBink "Vid3.bik" 1
    elseif Dice == 4
        PlayBink "Vid4.bik" 1
    elseif Dice == 5
        PlayBink "Vid5.bik" 1
    elseif Dice == 6
        PlayBink "Vid6.bik" 1
        ;#################
        ;halt immer so weiter jenachdem wie viele videosequenzen du hast. 
endif
Endif
EndIf
End

scn sssQuestDevilTriggerScript

short curkey
short On
short index

ref me
ref myCast
ref myBall

ref myZ

ref myObj
short baseFatigue

; initial position vector
float xPos
float yPos
float zPos

float fquestdelaytime 

Begin GameMode

set fquestdelaytime to 0.01

    if On == 1 && isKeyPressed2 sssKey.DTZoomIn && sssModeWheel > 30
        set sssModeWheel to sssModeWheel - 1

        SetNumericGameSetting fVanityModeWheelMin sssModeWheel
        SetNumericGameSetting fVanityModeWheelMax sssModeWheel
     elseif On == 1 && isKeyPressed2 sssKey.DTZoomOut && sssModeWheel < 600
        set sssModeWheel to sssModeWheel + 1

        SetNumericGameSetting fVanityModeWheelMin sssModeWheel
        SetNumericGameSetting fVanityModeWheelMax sssModeWheel
    endif

    if ( curKey && isKeyPressed2 curkey )  ; key still being held down
        return
    else
        set curkey to 0
    endif

    if iskeypressed2 sssKey.DevilTrigger

        if On == 0

             set me to Player

            set myBall to sssLightTriggerBurstRef

            set zPos to 118-25*(me.IsSneaking)

            if myBall != me
                myBall.Activate me 1
                myBall.moveto me 0 0 0
                set myZ to myBall.Getpos z
                myBall.Setpos Z myZ
            endif

            set myCast to sssActivatorCastRef
            set myBall to sssActivatorDummyRef

            myCast.Activate me 1
            sssTarget.Activate me, 1

            myCast.moveto me 0 0 zPos
            set myZ to myCast.Getpos z
            myCast.Setpos Z myZ

            myBall.Activate me 1
            sssTarget.Activate me, 1
            set myZ to myBall.Getpos z
            myBall.Setpos Z myZ

            myBall.moveto me 0 0 zPos

            myCast.Cast sssTriggerBurstTouchSpell myBall

            sssTarget.Activate me 1

            ; initial position vector (to add to player coords)
            set xPos to -5*sssTarget.dx*sssTarget.cos
            set yPos to -5*sssTarget.dy*sssTarget.cos
            set zPos to 118-25*(me.IsSneaking)+5*sssTarget.dz

            set myObj to sssNPCDevilTriggerRef

            if myObj != me
                if myObj.isActorsAiOff
                    myObj.ToggleActorsAi
                endif
        
                myObj.Enable        
                if myObj.GetDead
                    myObj.Resurrect 0
                endif
                if myObj.Getav Fatigue <= 0
                   set baseFatigue to myObj.GetBaseAv Fatigue
                  myObj.ModAv Fatigue baseFatigue    
                endif

                myObj.enable

                myObj.moveto me sssTarget.xpos sssTarget.ypos sssTarget.zpos
                set myZ to me.Getpos Z
                myObj.setpos z myZ
                myObj.moddisposition me 100
                myObj.ResetHealth
            endif

            set sssQuest.indexSoundDevilTrigger to ( sssQuest.indexSoundDevilTrigger + 1 ) %  2
            set index to sssQuest.indexSoundDevilTrigger 
            if index == 0
                playSound sssSoundDevilTriggerOn01
            else
                playSound sssSoundDevilTriggerOn02
            endif

            set On to 1

            SetNumericGameSetting fVanityModeWheelMin sssModeWheel
             SetNumericGameSetting fVanityModeWheelMax sssModeWheel
 
            set curkey to sssKey.DevilTrigger

        elseif On == 1

            set myObj to sssNPCDevilTriggerRef

            myObj.disable

            playSound sssSoundDevilTriggerOff

            set On to 0

            SetNumericGameSetting fVanityModeWheelMin 30.0
             SetNumericGameSetting fVanityModeWheelMax 600.0

            set curkey to sssKey.DevilTrigger

        endif
    endif

End

scn MCDaylightTestBarrel

begin GameMode

     if ( Gamehour > 19 ) && (Gamehour < 7 )
      Barreltest.disable
       elseif ( gamehour > 7 ) && ( gamehour < 19 )
        Barreltest.enable
     endif
end

scn MCDaylightTestBarrel

begin GameMode

	if ( Gamehour > 7 ) && (Gamehour < 19 )
           Barreltest.disable
	  elseif ( gamehour > 19 ) && ( gamehour < 7 )
	   Barreltest.enable
     endif
end

scn MCDaylightTestBarrel
  begin GameMode
  if ( Gamehour > 7 ) && (Gamehour < 19 )
    Barreltest.disable
  elseif ( gamehour > 19 ) [B][COLOR=Red]||[/COLOR][/B] ( gamehour < 7 )
    Barreltest.enable
  endif
end

elseif ( gamehour > 19 ) && ( gamehour < 7 )