Construction Set Skriptthread zum Construction Set

ref item
ref owner

forEach item <- player
set owner to item.getOwner
if owner == 0 || owner == player
  continue
else
  item.clearOwnership
loop

SCN PCPASScript

Float Timer
Int i
Short A
Short B
Short C
Short DialogVar
Short ResponseVar
Short NowSpeaking

;######################################################

Begin OnPackageDone PCPASTravelpackageB
let i := 1
sayto player PCPAndrogilSeraphimSayto1 1
End

;######################################################

Begin OnPackageDone PCPASTravelpackageC
startconversation player, PCPAndrogilSeraphimTopic4
End

;######################################################

Begin GameMode
If ( DialogVar == 0 )
[U]     Set A To 8 ;[Länge von Sayto-Response 1 in Sekunden]
     Set B To 12 ;[Länge von Sayto-Response 2 in Sekunden]
     Set C To 10 ;[Länge von Sayto-Response 3 in Sekunden]
[/U]    Set DialogVar To 1
Endif

If (i == 1)
      If ( ResponseVar == 0 )
        If ( Timer < A )
            Set Timer To ( Timer + GetSecondsPassed )
            If ( NowSpeaking == 0 )
                [U]SayTo Player PCPAndrogilSeraphimSayto1 1
[/U]                Set NowSpeaking To 1
                PrintToConsole "Astralis - Androgil sagt Topic 1"
            Endif
        Elseif ( Timer >= A )
            Set ResponseVar To 1
            Set NowSpeaking To 0
            Set Timer To 0
            PrintToConsole "Astralis - Androgil hat Topic 1 beendet"
        Endif

    Elseif ( ResponseVar == 1 )
        If ( Timer < B )
            Set Timer To ( Timer + GetSecondsPassed )
            If ( NowSpeaking == 0 )
                [U]SayTo Player PCPAndrogilSeraphimSayto2 1
[/U]                Set NowSpeaking To 1
                PrintToConsole "Astralis - Androgil sagt Topic 2"
            Endif
        Elseif ( Timer >= B )
            Set ResponseVar To 2
            Set NowSpeaking To 0
            Set Timer To 0
            PrintToConsole "Astralis - Androgil hat Topic 2 beendet"
        Endif

    Elseif ( ResponseVar == 2 )
        If ( Timer < C )
            Set Timer To ( Timer + GetSecondsPassed )
            If ( NowSpeaking == 0 )
                [U]SayTo Player PCPAndrogilSeraphimSayto3 1
[/U]                Set NowSpeaking To 1
                PrintToConsole "Astralis - Androgil sagt Topic 3"
            Endif
        Elseif ( Timer >= C )
            Set ResponseVar To 3
            Set NowSpeaking To 0
            Set Timer To 0
            Set i To 2
            PrintToConsole "Astralis - Androgil hat Topic 3 beendet"
        Endif
    Endif
Elseif (i == 2)
         cast PCPAndrogilSeraphimSpell PCPDG08PrisonREF
         PCPASCageREF.PlayGroup left, 0
         let i := 3
Elseif(i == 3)
        StartConversation Player PCPAndrogilSeraphimTopic2
        Set i To 4
Elseif (i == 5)
      disable
endif
End

SCN PCPASScript

Int i
Float Timer

Begin OnPackageDone PCPASTravelpackageB
 let i := 1
End

Begin OnPackageDone PCPASTravelpackageC
 startconversation player, PCPAndrogilSeraphimTopic4
End

Begin GameMode

if(i == 0)
  return
else
  if(i == 1)
    if(timer == 0)
     sayto player PCPAndrogilSeraphimSayto1 1
    endif
     let timer := 8
     let timer := timer - getsecondspassed
    if(timer <= 0)
       let i := 2
       let timer := 0
    endif

  elseif(i == 2)
    if(timer == 0)
     sayto player PCPAndrogilSeraphimSayto2 1
    endif
     let timer := 12
     let timer := timer - getsecondspassed
    if(timer <= 0)
       let i := 3
       let timer := 0
    endif
 
  elseif(i == 3)
    if(timer == 0)
     sayto player PCPAndrogilSeraphimSayto3 1
    endif
     let timer := 10
     let timer := timer - getsecondspassed
    if(timer <= 0)
       let i := 4
       let timer := 0
       cast PCPAndrogilSeraphimSpell PCPDG08PrisonREF
       PCPASCageREF.PlayGroup left, 0
    endif
  elseif(i == 4)   
      StartConversation Player PCPAndrogilSeraphimTopic2
  elseif(i == 5)
      disable
  endif
endif

End

SCN PCPASScript

short init
float timer


Begin OnPackageDone PCPASTravelpackageB

if init == 0
  set init to 1
endif
end


[U]Begin OnPackageDone PCPASTravelpackageC

removescriptpackage PCPASTravelpackageC
startconversation player, PCPAndrogilSeraphimTopic4
[/U]
end


Begin GameMode

if init == 0
  return
else
  if timer <= 0
    if init == 1
      set timer to ( 2 + sayTo player PCPAndrogilSeraphimSayto1 1)
    
    elseif init == 2
      set timer to ( 2 + sayTo player PCPAndrogilSeraphimSayto2 1)
    
    elseif init == 3
      set timer to ( 2 + sayTo player PCPAndrogilSeraphimSayto3 1)
    
    elseif init == 4    
 PCPASCageREF.PlayGroup left, 0
    elseif init == 5
    StartConversation Player PCPAndrogilSeraphimTopic2
      
    elseif init == 6
      return
    endif
    set init to ( init + 1 )
  else
    set timer to ( timer - getSecondsPassed )
  endif
endif
    
if getdestroyed

return
else

setdestroyed 1
endif
End

scn ...

Short Once

Begin gamemode
if ( player.getisrace RaceID == 1 ) && ( once == 0 ) 
 player.additem ID 1
 set once to 1
endif
end

SCN Scriptname

Short i

Begin OnSell

if(i == 0)
[COLOR=#ff0000]  <Ref1>.enable
  <Ref2>.enable
  ...[/COLOR]
  set i to 1
endif

End