Construction Set Skriptthread zum Construction Set

scn Liederscript

short doonce

Begin OnEquip
 streamMusic "[data\music\...]"
 set doonce to 1
End

Begin OnActivate
 streamMusic "[data\music\...]"
 set doonce to 1
 activate
End

Begin Gamemode
 if ( doonce == 1 ) && ( MenuMode 1026 == 0 )
  set doonce to 0
  streamMusic random
 endif
End


Begin Menumode
 if ( doonce == 1 ) && ( MenuMode 1026 == 0 )
  set doonce to 0
  streamMusic random
 endif
end

scn GoldIncreaseScript

short LastDayOfGoldIncrease

Begin Gamemode
 if ( LastDayOfGoldIncrease == 0 )
  set LastDayOfGoldIncrease to GameDaysPassed
 if ( LastDayOfGoldIncrease >= GameDaysPassed + [I]x[/I] )               ;für x Anzahl der Tage einsetzten, nach denen das Gold hinzugefügt werden soll
  if ( [Referenz-ID in der das Gold gelagert wird].GetGold > 0 )                  ;damit nur Gold hinzugefügt wird, wenn der Spieler Gold eingezahlt hat. Falls unerwünscht einfach zusammen mit dem nächsten endif einfach weglassen
   [Referenz-ID in der das Gold gelagert wird].AddItem Gold001 [I]y[/I]              ;für y Anzahl des Goldes das hinzugefügt werden soll einsetzten.
  endif
  set LastDayOfGoldIncrease to GameDaysPassed
 endif
End

scn GoldIncreaseScript

short LastDayOfGoldIncrease

Begin Gamemode
 if ( LastDayOfGoldIncrease == 0 )
  set LastDayOfGoldIncrease to GameDaysPassed
 if ( LastDayOfGoldIncrease >= GameDaysPassed + [I]x[/I] )               ;für x Anzahl der Tage einsetzten, nach denen das Gold hinzugefügt werden soll
  [Referenz-ID in der das Gold gelagert wird].AddItem Gold001 ( [Referenz-ID in der das Gold gelagert wird].GetGold * [I]y[/I] / 100 )              ;für y Prozentwert einsetzen, z.B. 2.3  (Spiel hackt bei krummen Werten wahrscheinlich beim Komma ab)
  set LastDayOfGoldIncrease to GameDaysPassed
 endif
End

scn Banktruhe

ref self
short Variable
short MenuStage
short ButtonGoldInsert
short ButtonWhattoDo
short LastDayofGoldIcrease

Begin OnActivate
set self to getself
set MenuStage to 1
end

Begin GameMode

if (MenuStage == 1)
messagebox "Was wollt Ihr tun?" "Einzahlen" "Auszahlen" "Abbrechen"
set Variable to 1
set MenuStage to 0
elseif (MenuStage == 2)
messagebox "Wie viel wollt Ihr einzahlen?" "50000 Septime" "10000 Septime" "5000 Septime" "1000 Septime" "100 Septime"
set Variable to 10
set MenuStage to 0
endif

if (Variable == 1)
set ButtonWhattoDo to getbuttonpressed
set Variable to 2
elseif (Variable == 2) && (ButtonWhattoDo == 0)
set Variable to 0
set MenuStage to 2
elseif (Variable == 2) && (ButtonWhattoDo == 1)
set Variable to 0
activate
elseif (Variable == 2) && (ButtonWhattoDo == 2)
set Variable to 0
endif

if (Variable == 10)
set ButtonGoldInsert to getbuttonpressed
set Variable to 11

elseif (Variable == 11) && (ButtonGoldInsert == 0)
if player.getgold => 50000
player.removeitem Gold001 50000
self.additem Gold001 50000
set MenuStage to 2
else
message "Ihr habt nicht genug Gold!"
set Variable to 0
endif

elseif (Variable == 11) && (ButtonGoldInsert == 1)
if player.getgold => 10000
player.removeitem Gold001 10000
self.additem Gold001 10000
set MenuStage to 2
else
message "Ihr habt nicht genug Gold!"
set Variable to 0
endif

elseif (Variable == 11) && (ButtonGoldInsert == 2)
if player.getgold => 5000
player.removeitem Gold001 5000
self.additem Gold001 5000
set MenuStage to 2
else
message "Ihr habt nicht genug Gold!"
set Variable to 0
endif

elseif (Variable == 11) && (ButtonGoldInsert == 3)
if player.getgold => 1000
player.removeitem Gold001 1000
self.additem Gold001 1000
set MenuStage to 2
else
message "Ihr habt nicht genug Gold!"
set Variable to 0
endif

elseif (Variable == 11) && (ButtonGoldInsert == 4)
if player.getgold => 100
player.removeitem Gold001 100
self.additem Gold001 100
set MenuStage to 2
else
message "Ihr habt nicht genug Gold!"
set Variable to 0
endif

endif

if ( LastDayOfGoldIncrease == 0 )
set LastDayOfGoldIncrease to GameDaysPassed
if ( LastDayOfGoldIncrease >= GameDaysPassed + 30 )
self.AddItem Gold001 ( self.GetGold * 5/ 100 )
set LastDayOfGoldIncrease to GameDaysPassed
endif

end

scn Abschließen

Begin OnTrigger [ID des Angestellten]
[ID der Zellentür].unlock
End

[B]set self to getself[/B]
durch
[B]set self to [Ref-ID der Dummy-Truhe][/B]

[B]activate[/B]
durch
[B]self.activate[/B]

scn GoldxScript

ref ActionRef
ref self

Begin OnActivate
 set ActionRef to GetActionRef
 set self to GetSelf
 self.disable
 [Ref-ID der DummyTruhe].RemoveItem Gold001 x
 ActionRef.AddItem Gold001 x
End