• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

Unsichtbar 2 (v2.20)open.w3x
Variables
Initialisierung
Voreinstellungen
Voreinstellungen 2
Wald erzeugen
Wald Spalte erzeugen
Weg erzeugen
Basis erzeugen
weitere Einstellungen
Spielaktionen
Gebaeude der Nacht
Kontrollpunkt einnehmen
Niederlage
Sieg
Helden suchen
jede 10 Sekunden
Repair Off
Spiel starten
Hauptmenu Ok
Hauptmenu Zeitabgelaufen
Tipps
Start Gold
Start Holz
Tod einer Einheit
Tod eines Helden
Leaver
Wege
Weg 1 erstellen
Weg 2 erstellen
Weg 3 erstellen
Weg B1 erstellen
Menu
ResetMultiBoard
Hauptmenue
Holzmenue
Holzauswahl
Goldmenue
Goldauswahl
Test
Gegenstand Verlieren
Gegenstand Abgabe
Interpolations Test
ShowWeg
Ablage
//-----------------------------------------
// By Florian Köberle 
// eMail-Name: "FloriansKarten";  eMail-Provider: "web.de"
//
// Using Perlin noise to create a forest
// Using NURBS curves to create paths
//-------------------------------------------

function RandomStartPosition takes nothing returns nothing
  set udg_TeamPos[0] = GetRandomInt(0, 2)
  
  if udg_TeamPos[0] == 0 then
    if GetRandomInt(0, 1) == 1 then
      set udg_TeamPos[1] = 1
      set udg_TeamPos[2] = 2
    else
      set udg_TeamPos[1] = 2
      set udg_TeamPos[2] = 1
    endif
  endif

  if udg_TeamPos[0] == 1 then
    if GetRandomInt(0, 1) == 1 then
      set udg_TeamPos[1] = 0
      set udg_TeamPos[2] = 2
    else
      set udg_TeamPos[1] = 2
      set udg_TeamPos[2] = 0
    endif
  endif

  if udg_TeamPos[0] == 2 then
    if GetRandomInt(0, 1) == 1 then
      set udg_TeamPos[1] = 0
      set udg_TeamPos[2] = 1
    else
      set udg_TeamPos[1] = 1
      set udg_TeamPos[2] = 0
    endif
  endif

endfunction



function GetValue takes integer X, integer Y returns integer
  return udg_Wert[(X + (Y*(udg_DataSize-1)))]
endfunction

function SetValue takes integer X, integer Y , integer Value returns nothing
  set udg_Wert[(X + (Y*(udg_DataSize-1)))] = Value
endfunction


function Interpoliere takes integer Wert1, integer Wert2, integer Nr, integer Von returns integer
  local integer Ergebnis1
  local integer Ergebnis2
  // Geprüft
  set Ergebnis1 = ( ( Wert1 * udg_Interpolation[( Nr * ( udg_Size / Von ) )] ) / udg_Interpolation_Max )
  set Ergebnis2 = ( ( Wert2 * (udg_Interpolation_Max - udg_Interpolation[( Nr * ( udg_Size / Von ) )] ) ) / udg_Interpolation_Max )

 // call DisplayTextToForce( GetPlayersAll(),"-----------------------")
 // call DisplayTextToForce( GetPlayersAll(),"Wert1:    " + I2S(Wert1))
 // call DisplayTextToForce( GetPlayersAll(),"Wert2:    " + I2S(Wert2))
 // call DisplayTextToForce( GetPlayersAll(),"Nr:       " + I2S(Nr))
 // call DisplayTextToForce( GetPlayersAll(),"Von:      " + I2S(Von))
 // call DisplayTextToForce( GetPlayersAll(),"Ergebnis1:" + I2S(Ergebnis1))
 // call DisplayTextToForce( GetPlayersAll(),"Ergebnis2:" + I2S(Ergebnis2))
 // call DisplayTextToForce( GetPlayersAll(),"Ges:" + I2S(Ergebnis1 + Ergebnis2))
 // call DisplayTextToForce( GetPlayersAll(),"-----------------------")

  return (Ergebnis1 + Ergebnis2)
endfunction

function Berechne takes integer X, integer Y returns integer
  local integer Ergebnis
  local integer WertX0
  local integer WertX1
  local integer I_X0
  local integer I_X1
  local integer I_Y0
  local integer I_Y1
  local integer Level
  local integer Field_Size
  local integer Field_DataSize
  local integer Max
  //-----------------------

  set Level = 2
  set Max = 500

  set Field_Size = (udg_Size / Level)
  
  set Field_DataSize = ((udg_DataSize-1) / Level)

  set I_X0 = Field_DataSize*(X / Field_Size) // ok
  set I_X1 = I_X0 + Field_DataSize           // ok
  set I_Y0 = Field_DataSize*(Y / Field_Size) // ok
  set I_Y1 = I_Y0 + Field_DataSize           // ok

  //call DisplayTextToForce( GetPlayersAll(), ((("P1( " + I2S(I_X0)) + (" / " + I2S(I_Y0))+ " ) P2( ")+ (I2S(I_X1) + (" / " + (I2S(I_Y1) + " )")))))

  
  set WertX0 = Interpoliere(GetValue(I_X0,I_Y0),GetValue(I_X1,I_Y0),ModuloInteger(X , Field_Size),Field_Size)
  set WertX1 = Interpoliere(GetValue(I_X0,I_Y1),GetValue(I_X1,I_Y1),ModuloInteger(X , Field_Size),Field_Size)

  set Ergebnis = (Interpoliere(WertX0,WertX1,ModuloInteger(Y , Field_Size),Field_Size) / 2) 

  //--------------------------------------

  set Level = 4
  set Max = Max + 1000

  set Field_Size = (udg_Size / Level)
  
  set Field_DataSize = ((udg_DataSize-1) / Level)

  set I_X0 = Field_DataSize*(X / Field_Size) // ok
  set I_X1 = I_X0 + Field_DataSize           // ok
  set I_Y0 = Field_DataSize*(Y / Field_Size) // ok
  set I_Y1 = I_Y0 + Field_DataSize           // ok

  //call DisplayTextToForce( GetPlayersAll(), ((("P1( " + I2S(I_X0)) + (" / " + I2S(I_Y0))+ " ) P2( ")+ (I2S(I_X1) + (" / " + (I2S(I_Y1) + " )")))))

  
  set WertX0 = Interpoliere(GetValue(I_X0,I_Y0),GetValue(I_X1,I_Y0),ModuloInteger(X , Field_Size),Field_Size)
  set WertX1 = Interpoliere(GetValue(I_X0,I_Y1),GetValue(I_X1,I_Y1),ModuloInteger(X , Field_Size),Field_Size)

  set Ergebnis = Ergebnis + Interpoliere(WertX0,WertX1,ModuloInteger(Y , Field_Size),Field_Size) 

  //--------------------------------------

  set Level = 16
  set Max = Max + 1000

  set Field_Size = (udg_Size / Level)
  
  set Field_DataSize = ((udg_DataSize-1) / Level)

  set I_X0 = Field_DataSize*(X / Field_Size) // ok
  set I_X1 = I_X0 + Field_DataSize           // ok
  set I_Y0 = Field_DataSize*(Y / Field_Size) // ok
  set I_Y1 = I_Y0 + Field_DataSize           // ok

  //call DisplayTextToForce( GetPlayersAll(), ((("P1( " + I2S(I_X0)) + (" / " + I2S(I_Y0))+ " ) P2( ")+ (I2S(I_X1) + (" / " + (I2S(I_Y1) + " )")))))

  
  set WertX0 = Interpoliere(GetValue(I_X0,I_Y0),GetValue(I_X1,I_Y0),ModuloInteger(X , Field_Size),Field_Size)
  set WertX1 = Interpoliere(GetValue(I_X0,I_Y1),GetValue(I_X1,I_Y1),ModuloInteger(X , Field_Size),Field_Size)

  set Ergebnis = Ergebnis + Interpoliere(WertX0,WertX1,ModuloInteger(Y , Field_Size),Field_Size) 


  //--------------------------------------

  set Level = 32
  set Max = Max + 2000

  set Field_Size = (udg_Size / Level)
  
  set Field_DataSize = ((udg_DataSize-1) / Level)

  set I_X0 = Field_DataSize*(X / Field_Size) // ok
  set I_X1 = I_X0 + Field_DataSize           // ok
  set I_Y0 = Field_DataSize*(Y / Field_Size) // ok
  set I_Y1 = I_Y0 + Field_DataSize           // ok

  //call DisplayTextToForce( GetPlayersAll(), ((("P1( " + I2S(I_X0)) + (" / " + I2S(I_Y0))+ " ) P2( ")+ (I2S(I_X1) + (" / " + (I2S(I_Y1) + " )")))))

  
  set WertX0 = Interpoliere(GetValue(I_X0,I_Y0),GetValue(I_X1,I_Y0),ModuloInteger(X , Field_Size),Field_Size)
  set WertX1 = Interpoliere(GetValue(I_X0,I_Y1),GetValue(I_X1,I_Y1),ModuloInteger(X , Field_Size),Field_Size)

  set Ergebnis = Ergebnis + (2*Interpoliere(WertX0,WertX1,ModuloInteger(Y , Field_Size),Field_Size)) 

 
  return (Ergebnis*1000)/Max
endfunction

function Lichtung takes integer X, integer Y returns nothing
// gernerierte Jass-Funktion
set udg_Wert[(X-2) + ( (Y+0) * (udg_DataSize-1) )] = 0
set udg_Wert[(X-1) + ( (Y-1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X-1) + ( (Y+0) * (udg_DataSize-1) )] = 0
set udg_Wert[(X-1) + ( (Y+1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+0) + ( (Y-2) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+0) + ( (Y-1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+0) + ( (Y+0) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+0) + ( (Y+1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+0) + ( (Y+2) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+1) + ( (Y-1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+1) + ( (Y+0) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+1) + ( (Y+1) * (udg_DataSize-1) )] = 0
set udg_Wert[(X+2) + ( (Y+0) * (udg_DataSize-1) )] = 0
// Rand Bereich
set udg_Wert[(X-2) + ( (Y-2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X-2) + ( (Y-1) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X-2) + ( (Y+1) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X-2) + ( (Y+2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X-1) + ( (Y-2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X-1) + ( (Y+2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+1) + ( (Y-2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+1) + ( (Y+2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+2) + ( (Y-2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+2) + ( (Y-1) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+2) + ( (Y+1) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
set udg_Wert[(X+2) + ( (Y+2) * (udg_DataSize-1) )] = GetRandomInt(1, 500)
endfunction
Name Type is_array initial_value
Ausstehendes_Holz real Yes
Baum_des_Lebens unit Yes
Berechneter_Wert integer No
Button_Auswahl button Yes
Button_Gold button No
Button_Holz button No
DataSize integer No 33
Ende boolean No false
ErstellugnsOrt location No
Gebiet_Basis rect Yes
Gebiet_Platz0_in_B rect Yes
Gebiet_Platz1_in_B rect Yes
Gebiet_Platz2_in_B rect Yes
GoldMenu dialog No
Hauptmenu dialog No
Held unit Yes
Holzmenu dialog No
Interpolation integer Yes
Interpolation_Max integer No 1000
Kontrollpunkte integer Yes
Loop10Sek_SpielerNr integer No
MultiBoad_SpielerPos integer Yes
MultiBoad_TeamPos integer Yes
MultiBoard multiboard No
Multiboard_Index integer No
Regenerator unit Yes
Size integer No 64
SpalteNr integer No 0
Spieler_in_Team integer Yes
SpielerAnzahl integer No 9
SpielerNr integer No
Spielerstatus integer Yes 0
Start_Gold integer No 0
Start_Holz integer No 1200
StartButton button No
Team_ist_besiegt boolean Yes
TeamNr integer No
TeamPos integer Yes
Test_String string No
Test_Wert integer No
Wartedialog dialog No
Weg_Faktor real Yes
Weg_Punkt location No
Weg_Punkt_X real Yes
Weg_Punkt_Y real Yes
Weg_t real No
Weg_t2 real No
Wert integer Yes 0
Ziel_X real No
Ziel_Y real No
Voreinstellungen
Events
Conditions
Actions
For each (Integer A) from 0 to 1088 , do (Actions)
Loop - Actions
Set Variable Set Wert[(Integer A)] = (Random integer number between 1 and 1000)
For each (Integer A) from 0 to 63 , do (Actions)
Loop - Actions
Set Variable Set Interpolation[(Integer A)] = (Integer(((1000.00 / 2.00) x ((Cos((((Real((Integer A))) x 180.00) / (Real(Size))))) + 1))))
Trigger - Remove (This trigger) from the trigger queue
Voreinstellungen 2
Events
Conditions
Actions
Custom script: call Lichtung(15,17)
Trigger - Remove (This trigger) from the trigger queue
Wald erzeugen
Events
Map initialization
Conditions
Actions
Trigger - Add Voreinstellungen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Voreinstellungen_2 <gen> to the trigger queue ( Checking conditions)
For each (Integer A) from 0 to (Size - 1) , do (Actions)
Loop - Actions
Trigger - Add Wald_Spalte_erzeugen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Weg_1_erstellen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Weg_2_erstellen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Weg_3_erstellen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Weg_B1_erstellen <gen> to the trigger queue ( Checking conditions)
Trigger - Add Basis_erzeugen <gen> to the trigger queue ( Checking conditions)
Trigger - Add weitere_Einstellungen <gen> to the trigger queue ( Checking conditions)
Wald Spalte erzeugen
Events
Map initialization
Conditions
Actions
For each (Integer B) from 0 to (Size - 1) , do (Actions)
Loop - Actions
Set Variable Set ErstellugnsOrt = ((Center of Nullpunkt <gen>) offset by (((140.00 x (Real(SpalteNr))) + (Random real number between -50.00 and 50.00)), ((140.00 x (Real((Integer B)))) + (Random real number between -50.00 and 50.00))))
Custom script: set udg_Berechneter_Wert = Berechne(udg_SpalteNr,bj_forLoopBIndex)
Custom script: if udg_Berechneter_Wert > 450 then
Environment - Change terrain type at ErstellugnsOrt to Lordaeron Summer - Dark Grass using variation -1 in an area of size 2 and shape Circle
Custom script: if udg_Berechneter_Wert > 700 then
If (95 Greater than or equal to (Random integer number between 1 and 100)) then do (Create a ATtr (Unexpected type: 'destructablecode') at ErstellugnsOrt facing (Random angle) with scale (Random real number between 0.70 and 1.10) and variation (Random integer number between 0 and 9)) else do (Do nothing)
Custom script: else
If (80 Greater than or equal to (Random integer number between 1 and 100)) then do (Create a LTlt (Unexpected type: 'destructablecode') at ErstellugnsOrt facing (Random angle) with scale (Random real number between 0.70 and 1.10) and variation (Random integer number between 0 and 9)) else do (Do nothing)
Custom script: endif
Custom script: endif
Set Variable Set SpalteNr = (SpalteNr + 1)
Trigger - Remove (This trigger) from the trigger queue
Fehlt noch: Entgültiger Punkt = Weg_Faktor[0]*Punkt[0] + Weg_Faktor[1]*Punkt[1]...
Weg erzeugen
Events
Conditions
Actions
For each (Integer A) from 0 to 99 , do (Actions)
Loop - Actions
Set Variable Set Weg_t = ((Real((Integer A))) / 100.00)
Set Variable Set Weg_t2 = (1.00 - Weg_t)
Set Variable Set Weg_Faktor[0] = (Weg_t2 x (Weg_t2 x Weg_t2))
Set Variable Set Weg_Faktor[1] = (3.00 x (Weg_t x (Weg_t2 x Weg_t2)))
Set Variable Set Weg_Faktor[2] = (3.00 x ((Weg_t x Weg_t) x Weg_t2))
Set Variable Set Weg_Faktor[3] = (Weg_t x (Weg_t x Weg_t))
Set Variable Set Ziel_X = (((Weg_Faktor[0] x Weg_Punkt_X[0]) + (Weg_Faktor[1] x Weg_Punkt_X[1])) + ((Weg_Faktor[2] x Weg_Punkt_X[2]) + (Weg_Faktor[3] x Weg_Punkt_X[3])))
Set Variable Set Ziel_Y = (((Weg_Faktor[0] x Weg_Punkt_Y[0]) + (Weg_Faktor[1] x Weg_Punkt_Y[1])) + ((Weg_Faktor[2] x Weg_Punkt_Y[2]) + (Weg_Faktor[3] x Weg_Punkt_Y[3])))
Environment - Change terrain type at ((Center of (Playable map area)) offset by (Ziel_X, Ziel_Y)) to Lordaeron Summer - Dirt using variation -1 in an area of size 1 and shape Circle
Environment - Change terrain type at ((Center of (Playable map area)) offset by ((Ziel_X + 50.00), Ziel_Y)) to Lordaeron Summer - Dirt using variation -1 in an area of size 1 and shape Circle
Environment - Change terrain type at ((Center of (Playable map area)) offset by ((Ziel_X + 50.00), (Ziel_Y + 50.00))) to Lordaeron Summer - Dirt using variation -1 in an area of size 1 and shape Circle
Environment - Change terrain type at ((Center of (Playable map area)) offset by (Ziel_X, (Ziel_Y + 50.00))) to Lordaeron Summer - Dirt using variation -1 in an area of size 1 and shape Circle
Destructible - Pick every destructible within 150.00 of ((Center of (Playable map area)) offset by (Ziel_X, Ziel_Y)) and do (Remove (Picked destructible))
Basis erzeugen
Events
Conditions
Actions
Set Variable Set Gebiet_Basis[0] = Basis_1 <gen>
Set Variable Set Gebiet_Basis[1] = Basis_2 <gen>
Set Variable Set Gebiet_Basis[2] = Basis_3 <gen>
Set Variable Set Gebiet_Platz0_in_B[0] = Basis1_Platz_0 <gen>
Set Variable Set Gebiet_Platz1_in_B[0] = Basis1_Platz_1 <gen>
Set Variable Set Gebiet_Platz2_in_B[0] = Basis1_Platz_2 <gen>
Set Variable Set Gebiet_Platz0_in_B[1] = Basis2_Platz_0 <gen>
Set Variable Set Gebiet_Platz1_in_B[1] = Basis2_Platz_1 <gen>
Set Variable Set Gebiet_Platz2_in_B[1] = Basis2_Platz_2 <gen>
Set Variable Set Gebiet_Platz0_in_B[2] = Basis3_Platz_0 <gen>
Set Variable Set Gebiet_Platz1_in_B[2] = Basis3_Platz_1 <gen>
Set Variable Set Gebiet_Platz2_in_B[2] = Basis3_Platz_2 <gen>
Custom script: call RandomStartPosition()
For each (Integer A) from 0 to 2 , do (Actions)
Loop - Actions
Environment - Change terrain type at (Center of Gebiet_Basis[TeamPos[(Integer A)]]) to Lordaeron Summer - Dirt using variation -1 in an area of size 5 and shape Circle
Environment - Change terrain type at (Center of Gebiet_Basis[TeamPos[(Integer A)]]) to Lordaeron Summer - Rough Dirt using variation -1 in an area of size 3 and shape Circle
Destructible - Pick every destructible within 500.00 of (Center of Gebiet_Basis[TeamPos[(Integer A)]]) and do (Remove (Picked destructible))
Set Variable Set Spieler_in_Team[(Integer A)] = "0"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
((Player((((Integer A) x 3) + 1))) slot status) Equal to Is playing
((Player((((Integer A) x 3) + 2))) slot status) Equal to Is playing
((Player((((Integer A) x 3) + 3))) slot status) Equal to Is playing
Then - Actions
Unit - Create 1 . Tree of Life for (Player((((Integer A) x 3) + 1))) at (Center of Gebiet_Basis[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Baum_des_Lebens[(Integer A)] = (Last created unit)
Set Variable Set Team_ist_besiegt[(Integer A)] = "false"
Else - Actions
Set Variable Set Baum_des_Lebens[(Integer A)] = No unit
Set Variable Set Team_ist_besiegt[(Integer A)] = "true"
Set Variable Set SpielerNr = (((Integer A) x 3) + 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player(SpielerNr)) slot status) Equal to Is playing
Then - Actions
Unit - Create 1 . Regenerator for (Player(SpielerNr)) at (Center of Gebiet_Platz0_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Regenerator[SpielerNr] = (Last created unit)
Unit - Create 1 . Dunkelelf Held for (Player(SpielerNr)) at (Center of Gebiet_Platz0_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Held[SpielerNr] = (Last created unit)
Set Variable Set Spielerstatus[SpielerNr] = "0"
Set Variable Set Spieler_in_Team[(Integer A)] = (Spieler_in_Team[(Integer A)] + 1)
Else - Actions
Set Variable Set Regenerator[SpielerNr] = No unit
Set Variable Set Held[SpielerNr] = No unit
Set Variable Set Spielerstatus[SpielerNr] = "-1"
Set Variable Set SpielerNr = (((Integer A) x 3) + 2)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player(SpielerNr)) slot status) Equal to Is playing
Then - Actions
Unit - Create 1 . Regenerator for (Player(SpielerNr)) at (Center of Gebiet_Platz1_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Regenerator[SpielerNr] = (Last created unit)
Unit - Create 1 . Dunkelelf Held for (Player(SpielerNr)) at (Center of Gebiet_Platz1_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Held[SpielerNr] = (Last created unit)
Set Variable Set Spielerstatus[SpielerNr] = "0"
Set Variable Set Spieler_in_Team[(Integer A)] = (Spieler_in_Team[(Integer A)] + 1)
Else - Actions
Set Variable Set Regenerator[SpielerNr] = No unit
Set Variable Set Held[SpielerNr] = No unit
Set Variable Set Spielerstatus[SpielerNr] = "-1"
Set Variable Set SpielerNr = (((Integer A) x 3) + 3)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Player(SpielerNr)) slot status) Equal to Is playing
Then - Actions
Unit - Create 1 . Regenerator for (Player(SpielerNr)) at (Center of Gebiet_Platz2_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Regenerator[SpielerNr] = (Last created unit)
Unit - Create 1 . Dunkelelf Held for (Player(SpielerNr)) at (Center of Gebiet_Platz2_in_B[TeamPos[(Integer A)]]) facing Default building facing degrees
Set Variable Set Held[SpielerNr] = (Last created unit)
Set Variable Set Spielerstatus[SpielerNr] = "0"
Set Variable Set Spieler_in_Team[(Integer A)] = (Spieler_in_Team[(Integer A)] + 1)
Else - Actions
Set Variable Set Regenerator[SpielerNr] = No unit
Set Variable Set Held[SpielerNr] = No unit
Set Variable Set Spielerstatus[SpielerNr] = "-1"
Trigger - Remove (This trigger) from the trigger queue
weitere Einstellungen
Events
Conditions
Actions
Game - Set the time of day to 24.00
Game - Set time of day speed to 0.00 % of the default speed
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
Set Variable Set Ausstehendes_Holz[(Integer A)] = "0.00"
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Held[(Integer A)] Not equal to No unit
Then - Actions
Selection - Add Held[(Integer A)] to selection for (Owner of Held[(Integer A)])
Unit - Set life of Held[(Integer A)] to 40.00 %
Else - Actions
For each (Integer TeamNr ) from 0 to 2 , do (Actions)
Loop - Actions
Set Variable Set Kontrollpunkte[TeamNr] = "0"
For each (Integer A) from 1 to 20 , do (Actions)
Loop - Actions
Unit - Create 1 . Farm for Neutral Victim at (Random point in (Playable map area)) facing Default building facing degrees
Set Variable Set ErstellugnsOrt = (Position of (Last created unit))
Unit - Remove (Last created unit) from the game
Unit - Create 1 . Kontrollpunkt for Neutral Victim at ErstellugnsOrt facing Default building facing degrees
-------- Durch die Platzierung des Hoffes wird ein gültiger Standort ermittelt. --------
Trigger - Remove (This trigger) from the trigger queue
Gebaeude der Nacht
Events
Unit - A unit Finishes research
Conditions
(Researched tech-type) Equal to R000 (Unexpected type: 'techcode')
Actions
Set Variable Set TeamNr = (((Player number of (Owner of (Researching unit))) - 1) / 3)
Player - Set the current research level of R000 (Unexpected type: 'techcode') to 1 for Player 1 (Red)
If (((Player(((TeamNr x 3) + 1))) Not equal to (Owner of (Researching unit))) and ((Current research level of (Researched tech-type) for (Player(((TeamNr x 3) + 1)))) Equal to 0)) then do (Set the current research level of (Researched tech-type) to 1 for (Player(((TeamNr x 3) + 1)))) else do (Do nothing)
If (((Player(((TeamNr x 3) + 2))) Not equal to (Owner of (Researching unit))) and ((Current research level of (Researched tech-type) for (Player(((TeamNr x 3) + 2)))) Equal to 0)) then do (Set the current research level of (Researched tech-type) to 1 for (Player(((TeamNr x 3) + 2)))) else do (Do nothing)
If (((Player(((TeamNr x 3) + 3))) Not equal to (Owner of (Researching unit))) and ((Current research level of (Researched tech-type) for (Player(((TeamNr x 3) + 3)))) Equal to 0)) then do (Set the current research level of (Researched tech-type) to 1 for (Player(((TeamNr x 3) + 3)))) else do (Do nothing)
Kontrollpunkt einnehmen
Events
Unit - A unit Dies
Conditions
(Unit-type of (Dying unit)) Equal to Kontrollpunkt
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(((Player number of (Owner of (Dying unit))) - 1) / 3) Not equal to (((Player number of (Owner of (Killing unit))) - 1) / 3)
(Player number of (Owner of (Dying unit))) Greater than 9
(Player number of (Owner of (Killing unit))) Greater than 9
Then - Actions
Unit - Create 1 . Kontrollpunkt for (Owner of (Killing unit)) at (Position of (Dying unit)) facing Default building facing degrees
Else - Actions
Unit - Create 1 . Kontrollpunkt for (Owner of (Dying unit)) at (Position of (Dying unit)) facing Default building facing degrees
Unit - Remove (Dying unit) from the game
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player number of (Owner of (Dying unit))) Less than or equal to 9
Then - Actions
Set Variable Set TeamNr = (((Player number of (Owner of (Dying unit))) - 1) / 3)
Set Variable Set Kontrollpunkte[TeamNr] = (Kontrollpunkte[TeamNr] - 1)
Multiboard - Set the text for MultiBoard item in column 2 , row MultiBoad_TeamPos[TeamNr] to (String(Kontrollpunkte[TeamNr]))
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Player number of (Owner of (Killing unit))) Less than or equal to 9
Then - Actions
Set Variable Set TeamNr = (((Player number of (Owner of (Killing unit))) - 1) / 3)
Set Variable Set Kontrollpunkte[TeamNr] = (Kontrollpunkte[TeamNr] + 1)
Multiboard - Set the text for MultiBoard item in column 2 , row MultiBoad_TeamPos[TeamNr] to (String(Kontrollpunkte[TeamNr]))
Else - Actions
Niederlage
Events
Unit - A unit Dies
Conditions
(Unit-type of (Dying unit)) Equal to Tree of Life
Actions
Set Variable Set TeamNr = (((Player number of (Owner of (Dying unit))) - 1) / 3)
Game - Display to (All players) for 30 seconds the text: (((|cffff0000 + (Externalized string(Team ))) + ((String((TeamNr + 1))) + (Externalized string( wurde besiegt)))) + |r)
Game - Display to (All players) for 30.00 seconds the text: ((((( + (Name of (Player(((TeamNr x 3) + 1))))) + (, + (Name of (Player(((TeamNr x 3) + 2)))))) + (, + (Name of (Player(((TeamNr x 3) + 3)))))) + ))
Set Variable Set Team_ist_besiegt[TeamNr] = "true"
For each (Integer A) from 1 to 3 , do (Actions)
Loop - Actions
Set Variable Set Spielerstatus[((TeamNr x 3) + (Integer A))] = "-2"
Player Group - Pick every player in (All allies of (Owner of (Dying unit)).) and do (Pick every unit in (Units owned by (Picked player) of type Kontrollpunkt) and do (Change ownership of (Picked unit) to Neutral Victim and Change color))
Player Group - Pick every player in (All allies of (Owner of (Dying unit)).) and do (Create an initially Enabled visibility modifier for (Picked player) emitting Visibility across (Playable map area))
Player Group - Pick every player in (All allies of (Owner of (Dying unit)).) and do (Pick every unit in (Units owned by (Picked player).) and do (Kill (Picked unit)))
Multiboard - Destroy MultiBoard
Trigger - Run ResetMultiBoard <gen> (checking conditions)
Trigger - Run Sieg <gen> (checking conditions)
-------- Einheiten die wiederbelebt wurden aus dem Spiel entfernen --------
Wait 2 seconds
Player Group - Pick every player in (All allies of (Owner of (Dying unit)).) and do (Pick every unit in (Units owned by (Picked player).) and do (Remove (Picked unit) from the game))
Sieg
Events
Conditions
Ende Equal to False
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[0] Equal to False
Team_ist_besiegt[1] Equal to True
Team_ist_besiegt[2] Equal to True
Then - Actions
Set Variable Set Ende = "true"
Game - Display to (All players) for 30 seconds the text: (((|cff00ff50 + (Externalized string(Team ))) + ((String(1)) + (Externalized string( hat gewonnen!)))) + |r)
Game - Display to (All players) for 20.00 seconds the text: (Externalized string(((Externalized string(Spielende in )) + (20 + (Externalized string( Sekunden))))))
Wait 20.00 seconds
Game - Victory Player 1 (Red) ( Show dialogs, Show scores)
Game - Victory Player 2 (Blue) ( Show dialogs, Show scores)
Game - Victory Player 3 (Teal) ( Show dialogs, Show scores)
Game - Defeat Player 4 (Purple) with the message: Niederlage!
Game - Defeat Player 5 (Yellow) with the message: Niederlage!
Game - Defeat Player 6 (Orange) with the message: Niederlage!
Game - Defeat Player 7 (Green) with the message: Niederlage!
Game - Defeat Player 8 (Pink) with the message: Niederlage!
Game - Defeat Player 9 (Gray) with the message: Niederlage!
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[0] Equal to True
Team_ist_besiegt[1] Equal to False
Team_ist_besiegt[2] Equal to True
Then - Actions
Set Variable Set Ende = "true"
Game - Display to (All players) for 30 seconds the text: (((|cff00ff50 + (Externalized string(Team ))) + ((String(2)) + (Externalized string( hat gewonnen!)))) + |r)
Game - Display to (All players) for 20.00 seconds the text: (Externalized string(((Externalized string(Spielende in )) + (20 + (Externalized string( Sekunden))))))
Wait 20.00 seconds
Game - Defeat Player 1 (Red) with the message: Niederlage!
Game - Defeat Player 2 (Blue) with the message: Niederlage!
Game - Defeat Player 3 (Teal) with the message: Niederlage!
Game - Victory Player 4 (Purple) ( Show dialogs, Show scores)
Game - Victory Player 5 (Yellow) ( Show dialogs, Show scores)
Game - Victory Player 6 (Orange) ( Show dialogs, Show scores)
Game - Defeat Player 7 (Green) with the message: Niederlage!
Game - Defeat Player 8 (Pink) with the message: Niederlage!
Game - Defeat Player 9 (Gray) with the message: Niederlage!
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[0] Equal to True
Team_ist_besiegt[1] Equal to True
Team_ist_besiegt[2] Equal to False
Then - Actions
Set Variable Set Ende = "true"
Game - Display to (All players) for 30 seconds the text: (((|cff00ff50 + (Externalized string(Team ))) + ((String(3)) + (Externalized string( hat gewonnen!)))) + |r)
Game - Display to (All players) for 20.00 seconds the text: (Externalized string(((Externalized string(Spielende in )) + (20 + (Externalized string( Sekunden))))))
Wait 20.00 seconds
Game - Defeat Player 1 (Red) with the message: Niederlage!
Game - Defeat Player 2 (Blue) with the message: Niederlage!
Game - Defeat Player 3 (Teal) with the message: Niederlage!
Game - Defeat Player 4 (Purple) with the message: Niederlage!
Game - Defeat Player 5 (Yellow) with the message: Niederlage!
Game - Defeat Player 6 (Orange) with the message: Niederlage!
Game - Victory Player 7 (Green) ( Show dialogs, Show scores)
Game - Victory Player 8 (Pink) ( Show dialogs, Show scores)
Game - Victory Player 9 (Gray) ( Show dialogs, Show scores)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[0] Equal to True
Team_ist_besiegt[1] Equal to True
Team_ist_besiegt[2] Equal to True
Then - Actions
Set Variable Set Ende = "true"
Game - Display to (All players) for 30 seconds the text: (((|cff0000ff + (Externalized string(Unentschieden))) + |r) + |r)
Game - Display to (All players) for 20.00 seconds the text: (Externalized string(((Externalized string(Spielende in )) + (20 + (Externalized string( Sekunden))))))
Wait 20.00 seconds
Player Group - Pick every player in (All players) and do (Victory (Picked player) (Show dialogs, Show scores))
Else - Actions
Helden suchen
Events
Unit - A unit Begins casting an ability
Conditions
(Ability being cast) Equal to Helden orten
(Unit-type of (Casting unit)) Equal to Haus der Spione
Actions
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of (Owner of (Casting unit)))
((Playable map area) contains Held[(Integer A)]) Equal to True
(Held[(Integer A)] is alive) Equal to True
Then - Actions
Unit - Create 1 . Magischer Spion (eigen) for (Owner of (Casting unit)) at (Position of Held[(Integer A)]) facing Default building facing degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Else - Actions
Wait 3.00 game-time seconds
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of (Owner of (Casting unit)))
((Playable map area) contains Held[(Integer A)]) Equal to True
(Held[(Integer A)] is alive) Equal to True
Then - Actions
Unit - Create 1 . Magischer Spion (eigen) for (Owner of (Casting unit)) at (Position of Held[(Integer A)]) facing Default building facing degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Else - Actions
Wait 3.00 game-time seconds
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Integer A) Not equal to (Player number of (Owner of (Casting unit)))
((Playable map area) contains Held[(Integer A)]) Equal to True
(Held[(Integer A)] is alive) Equal to True
Then - Actions
Unit - Create 1 . Magischer Spion (eigen) for (Owner of (Casting unit)) at (Position of Held[(Integer A)]) facing Default building facing degrees
Unit - Add a 3.00 second Generic expiration timer to (Last created unit)
Else - Actions
Wait 3.00 game-time seconds
jede 10 Sekunden
Events
Time - Every 10.00 seconds of game time
Conditions
Actions
For each (Integer Loop10Sek_SpielerNr ) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
Set Variable Set TeamNr = ((Loop10Sek_SpielerNr - 1) / 3)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[TeamNr] Equal to False
Spielerstatus[Loop10Sek_SpielerNr] Greater than or equal to 0
Then - Actions
Set Variable Set Ausstehendes_Holz[Loop10Sek_SpielerNr] = (Ausstehendes_Holz[Loop10Sek_SpielerNr] + ((Real(Kontrollpunkte[TeamNr])) x 0.80))
-------- Kontrollpunkte --------
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Ausstehendes_Holz[Loop10Sek_SpielerNr] Greater than or equal to 1.00
Then - Actions
Game - Display to (Player group((Player(Loop10Sek_SpielerNr)))) for 3.00 seconds the text: ((|cff50ff50 + ((+ + (String((Integer(Ausstehendes_Holz[Loop10Sek_SpielerNr]))))) + ((Externalized string( Holz)) + |r ))) + (Externalized string((Kontrollpunkte))))
Player - Add (Integer(Ausstehendes_Holz[Loop10Sek_SpielerNr])) to (Player(Loop10Sek_SpielerNr)) . Current lumber
Set Variable Set Ausstehendes_Holz[Loop10Sek_SpielerNr] = (Ausstehendes_Holz[Loop10Sek_SpielerNr] - (Real((Integer(Ausstehendes_Holz[Loop10Sek_SpielerNr])))))
Else - Actions
-------- Multiboard --------
Multiboard - Set the text for MultiBoard item in column 2 , row MultiBoad_SpielerPos[Loop10Sek_SpielerNr] to (String(((Player(Loop10Sek_SpielerNr)) Current lumber)))
Else - Actions
Wait 0.20 game-time seconds
Repair Off
Events
Unit - A unit Is issued an order with no target
Conditions
(Issued order) Equal to (Order(repairoff))
Actions
Game - Display to (Player group((Owner of (Triggering unit)))) the text: (Externalized string(Die Regenerations Fertigkeit kann nicht abgeschaltet werden.))
Wait 0.01 seconds
Unit - Order (Triggering unit) to Human Peasant - Activate Repair .
Spiel starten
Events
Conditions
Actions
Trigger - Turn off Hauptmenu_Ok <gen>
Trigger - Turn off Hauptmenu_Zeitabgelaufen <gen>
Dialog - Hide Hauptmenu for Player 1 (Red)
Dialog - Hide Holzmenu for Player 1 (Red)
Dialog - Hide GoldMenu for Player 1 (Red)
For each (Integer A) from 2 to SpielerAnzahl , do (Hide Wartedialog for (Player((Integer A))))
Trigger - Run Start_Gold <gen> (ignoring conditions)
Unit - Unpause all units
Trigger - Turn on jede_10_Sekunden <gen>
Trigger - Turn on Niederlage <gen>
Trigger - Run ResetMultiBoard <gen> (checking conditions)
Trigger - Run Tipps <gen> (ignoring conditions)
Hauptmenu Ok
Events
Dialog - A dialog button is clicked for Hauptmenu
Conditions
(Clicked dialog button) Equal to StartButton
Actions
Trigger - Run Spiel_starten <gen> (checking conditions)
Hauptmenu Zeitabgelaufen
Events
Time - Elapsed game time is 10.00 seconds
Conditions
Actions
Trigger - Run Spiel_starten <gen> (checking conditions)
Tipps
Events
Conditions
Actions
Wait 10.00 seconds
Game - Display to (All players) for 10.00 seconds the text: ((|cff0000cc + (Tipp: + |r )) + (Externalized string(Nehmt Kontrollpunkte ein, um ein möglichst hohes Holzeinkommen zu haben.)))
Wait 20.00 seconds
Game - Display to (All players) for 10.00 seconds the text: ((|cff0000cc + (Tipp: + |r )) + (Externalized string(Nutzt den Angreifen Befehl um eure Einheiten zu bewegen.)))
Start Gold
Events
Map initialization
Conditions
Actions
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
Player - Set (Player((Integer A))) . Current gold to Start_Gold
Player - Set (Player((Integer A))) . Current lumber to Start_Holz
Start Holz
Events
Map initialization
Conditions
Actions
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
Player - Set (Player((Integer A))) . Current gold to Start_Gold
Player - Set (Player((Integer A))) . Current lumber to Start_Holz
Tod einer Einheit
Events
Unit - A unit Dies
Conditions
((Dying unit) is an illusion) Equal to False
((Dying unit) is Summoned) Equal to False
((Dying unit) is A structure) Equal to False
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
((Owner of (Killing unit)) is an enemy of (Owner of (Dying unit)).) Equal to True
Then - Actions
Player - Add 50 to (Owner of (Killing unit)) . Current lumber
Player - Add ((5 x (Number of units in (Units owned by (Owner of (Killing unit)) of type Goldlager))) + 10) to (Owner of (Killing unit)) . Current gold
Else - Actions
Tod eines Helden
Events
Unit - A unit Dies
Conditions
((Dying unit) is Summoned) Equal to False
((Dying unit) is an illusion) Equal to False
((Dying unit) is A structure) Equal to False
((Triggering unit) is A Hero) Equal to True
Actions
Player - Add -50 to (Owner of (Dying unit)) . Current lumber
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spielerstatus[(Player number of (Owner of (Dying unit)))] Greater than or equal to 0
Then - Actions
Game - Display to (Player group((Owner of (Dying unit)))) the text: (Externalized string(Held wird in 10 Sekunden am Regenerator wiederbelebt))
Wait 10.00 game-time seconds
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spielerstatus[(Player number of (Owner of (Dying unit)))] Greater than or equal to 0
Then - Actions
Hero - Instantly revive (Dying unit) at (Position of Regenerator[(Player number of (Owner of (Dying unit)))]) , Show revival graphics
Unit - Order (Dying unit) to Right-Click . (Rally-Point of Regenerator[(Integer A)] as a point)
Unit - Set life of (Dying unit) to 80.00 %
Camera - Pan camera for (Owner of (Dying unit)) to (Position of (Dying unit)) over 0.01 seconds
Selection - Add (Dying unit) to selection for (Owner of (Dying unit))
Unit - Make (Dying unit) Invulnerable
Wait 3.00 game-time seconds
Unit - Make (Dying unit) Vulnerable
Else - Actions
Else - Actions
Leaver
Events
Player - Player 1 (Red) leaves the game
Player - Player 2 (Blue) leaves the game
Player - Player 3 (Teal) leaves the game
Player - Player 4 (Purple) leaves the game
Player - Player 5 (Yellow) leaves the game
Player - Player 6 (Orange) leaves the game
Player - Player 7 (Green) leaves the game
Player - Player 8 (Pink) leaves the game
Player - Player 9 (Gray) leaves the game
Player - Player 10 (Light Blue) leaves the game
Conditions
Actions
Game - Display to (All players) the text: ((Name of (Triggering player)) + ( + (Externalized string(hat das Spiel verlassen))))
Set Variable Set TeamNr = (((Player number of (Triggering player)) - 1) / 3)
Set Variable Set Spielerstatus[(Player number of (Triggering player))] = "-2"
Unit Group - Pick every unit in (Units owned by (Triggering player) matching (((Unit-type of (Matching unit)) is A town-hall-type unit) Equal to False).) and do (Kill (Picked unit))
Unit - Remove Held[(Player number of (Triggering player))] from the game
Unit Group - Pick every unit in (Units owned by (Triggering player) matching (((Unit-type of (Matching unit)) is A town-hall-type unit) Equal to False).) and do (Kill (Picked unit))
Set Variable Set Held[(Player number of (Triggering player))] = No unit
Set Variable Set Regenerator[(Player number of (Triggering player))] = No unit
Set Variable Set Spieler_in_Team[TeamNr] = (Spieler_in_Team[TeamNr] - 1)
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spieler_in_Team[TeamNr] Less than or equal to 0
Then - Actions
Unit - Kill Baum_des_Lebens[TeamNr]
Set Variable Set Baum_des_Lebens[TeamNr] = No unit
Set Variable Set Team_ist_besiegt[TeamNr] = "true"
Trigger - Run Niederlage <gen> (checking conditions)
Else - Actions
Game - Display to (All allies of (Triggering player).) the text: ((String((((Triggering player) Current lumber) / Spieler_in_Team[TeamNr]))) + ((Externalized string( Holz)) + ((Name of (Triggering player)) + (Externalized string( erhalten)))))
If (Spielerstatus[((TeamNr x 3) + 1)] Greater than or equal to 0) then do (Add (((Triggering player) Current lumber) / Spieler_in_Team[TeamNr]) to (Player(((TeamNr x 3) + 1))).Current lumber) else do (Do nothing)
If (Spielerstatus[((TeamNr x 3) + 2)] Greater than or equal to 0) then do (Add (((Triggering player) Current lumber) / Spieler_in_Team[TeamNr]) to (Player(((TeamNr x 3) + 2))).Current lumber) else do (Do nothing)
If (Spielerstatus[((TeamNr x 3) + 3)] Greater than or equal to 0) then do (Add (((Triggering player) Current lumber) / Spieler_in_Team[TeamNr]) to (Player(((TeamNr x 3) + 3))).Current lumber) else do (Do nothing)
Trigger - Run Sieg <gen> (checking conditions)
Multiboard - Destroy MultiBoard
Trigger - Run ResetMultiBoard <gen> (checking conditions)
Wait 5.00 seconds
Unit Group - Pick every unit in (Units owned by (Triggering player) matching (((Unit-type of (Matching unit)) is A town-hall-type unit) Equal to False).) and do (Remove (Picked unit) from the game)
Weg 1 erstellen
Events
Conditions
Actions
-------- Start --------
Set Variable Set Weg_Punkt = (Center of Basis_1 <gen>)
Set Variable Set Weg_Punkt_X[0] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[0] = (Y of Weg_Punkt)
-------- Punkt 1 --------
Set Variable Set Weg_Punkt = (Random point in Weg1_Punkt_1 <gen>)
Set Variable Set Weg_Punkt_X[1] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[1] = (Y of Weg_Punkt)
-------- Punkt 2 --------
Set Variable Set Weg_Punkt = (Random point in Weg1_Punkt_2 <gen>)
Set Variable Set Weg_Punkt_X[2] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[2] = (Y of Weg_Punkt)
-------- Ziel --------
Set Variable Set Weg_Punkt = (Center of WegX_Mitte <gen>)
Set Variable Set Weg_Punkt_X[3] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[3] = (Y of Weg_Punkt)
-------- Aus den Angaben einen Weg erstellen --------
Trigger - Run Weg_erzeugen <gen> (checking conditions)
Trigger - Remove (This trigger) from the trigger queue
Weg 2 erstellen
Events
Conditions
Actions
-------- Start --------
Set Variable Set Weg_Punkt = (Center of Basis_2 <gen>)
Set Variable Set Weg_Punkt_X[0] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[0] = (Y of Weg_Punkt)
-------- Punkt 1 --------
Set Variable Set Weg_Punkt = (Random point in Weg2_Punkt_1 <gen>)
Set Variable Set Weg_Punkt_X[1] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[1] = (Y of Weg_Punkt)
-------- Punkt 2 --------
Set Variable Set Weg_Punkt = (Random point in Weg2_Punkt_2 <gen>)
Set Variable Set Weg_Punkt_X[2] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[2] = (Y of Weg_Punkt)
-------- Ziel --------
Set Variable Set Weg_Punkt = (Center of WegX_Mitte <gen>)
Set Variable Set Weg_Punkt_X[3] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[3] = (Y of Weg_Punkt)
-------- Aus den Angaben einen Weg erstellen --------
Trigger - Run Weg_erzeugen <gen> (checking conditions)
Trigger - Remove (This trigger) from the trigger queue
Weg 3 erstellen
Events
Conditions
Actions
-------- Start --------
Set Variable Set Weg_Punkt = (Center of Basis_3 <gen>)
Set Variable Set Weg_Punkt_X[0] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[0] = (Y of Weg_Punkt)
-------- Punkt 1 --------
Set Variable Set Weg_Punkt = (Random point in Weg3_Punkt_1 <gen>)
Set Variable Set Weg_Punkt_X[1] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[1] = (Y of Weg_Punkt)
-------- Punkt 2 --------
Set Variable Set Weg_Punkt = (Random point in Weg3_Punkt_2 <gen>)
Set Variable Set Weg_Punkt_X[2] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[2] = (Y of Weg_Punkt)
-------- Ziel --------
Set Variable Set Weg_Punkt = (Center of WegX_Mitte <gen>)
Set Variable Set Weg_Punkt_X[3] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[3] = (Y of Weg_Punkt)
-------- Aus den Angaben einen Weg erstellen --------
Trigger - Run Weg_erzeugen <gen> (checking conditions)
Trigger - Remove (This trigger) from the trigger queue
Weg B1 erstellen
Events
Conditions
Actions
-------- Start --------
Set Variable Set Weg_Punkt = (Center of Basis_3 <gen>)
Set Variable Set Weg_Punkt_X[0] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[0] = (Y of Weg_Punkt)
-------- Punkt 1 --------
Set Variable Set Weg_Punkt = (Random point in WegB1_Punkt_1 <gen>)
Set Variable Set Weg_Punkt_X[1] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[1] = (Y of Weg_Punkt)
-------- Punkt 2 --------
Set Variable Set Weg_Punkt = (Random point in WegB1_Punkt_2 <gen>)
Set Variable Set Weg_Punkt_X[2] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[2] = (Y of Weg_Punkt)
-------- Ziel --------
Set Variable Set Weg_Punkt = (Center of Basis_2 <gen>)
Set Variable Set Weg_Punkt_X[3] = (X of Weg_Punkt)
Set Variable Set Weg_Punkt_Y[3] = (Y of Weg_Punkt)
-------- Aus den Angaben einen Weg erstellen --------
Trigger - Run Weg_erzeugen <gen> (checking conditions)
Trigger - Remove (This trigger) from the trigger queue
ResetMultiBoard
Events
Conditions
Actions
Multiboard - Create a multiboard with 2 columns and 1 rows, titled (Externalized string(Übersicht)) .
Set Variable Set MultiBoard = (Last created multiboard)
Multiboard - Set the display style for MultiBoard item in column 0 , row 0 to Show text and Hide icons
Set Variable Set Multiboard_Index = "0"
-------- Maximale Anzahl an Zeilen --------
Multiboard - Change the number of rows for MultiBoard to ((9 + 3) + 1)
For each (Integer TeamNr ) from 0 to 2 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Team_ist_besiegt[TeamNr] Equal to False
Then - Actions
Set Variable Set Multiboard_Index = (Multiboard_Index + 1)
Set Variable Set MultiBoad_TeamPos[TeamNr] = Multiboard_Index
-------- Team Name --------
Multiboard - Set the display style for MultiBoard item in column 1 , row Multiboard_Index to Show text and Hide icons
Multiboard - Set the text for MultiBoard item in column 1 , row Multiboard_Index to ((Externalized string(Team )) + (String((TeamNr + 1))))
Multiboard - Set the color for MultiBoard item in column 1 , row Multiboard_Index to ( 60.00 %, 60.00 %, 100.00 %) with 0 % transparency
-------- Kontrollpunkte --------
Multiboard - Set the display style for MultiBoard item in column 2 , row Multiboard_Index to Show text and Show icons
Multiboard - Set the text for MultiBoard item in column 2 , row Multiboard_Index to (String(Kontrollpunkte[TeamNr]))
Multiboard - Set the icon for MultiBoard item in column 2 , row Multiboard_Index to ReplaceableTextures\CommandButtons\BTNRallyPoint.blp
Multiboard - Set the color for MultiBoard item in column 2 , row Multiboard_Index to ( 0.00 %, 0.00 %, 100.00 %) with 0 % transparency
For each (Integer A) from 1 to 3 , do (Actions)
Loop - Actions
Set Variable Set SpielerNr = ((TeamNr x 3) + (Integer A))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Spielerstatus[SpielerNr] Greater than or equal to 0
Then - Actions
Set Variable Set Multiboard_Index = (Multiboard_Index + 1)
Set Variable Set MultiBoad_SpielerPos[SpielerNr] = Multiboard_Index
-------- Keine Icons --------
Multiboard - Set the display style for MultiBoard item in column 0 , row Multiboard_Index to Show text and Hide icons
-------- Text setzen --------
Multiboard - Set the text for MultiBoard item in column 1 , row Multiboard_Index to (Name of (Player(SpielerNr)))
Multiboard - Set the text for MultiBoard item in column 2 , row Multiboard_Index to (String(((Player(SpielerNr)) Current lumber)))
-------- Farbe einstellen --------
Multiboard - Set the color for MultiBoard item in column 2 , row Multiboard_Index to ( 0.00 %, 100.00 %, 0.00 %) with 0 % transparency
Else - Actions
Else - Actions
-------- Breite festlegen --------
Multiboard - Set the width for MultiBoard item in column 1 , row 0 to 8.00 % of the total screen width
Multiboard - Set the width for MultiBoard item in column 2 , row 0 to 4.00 % of the total screen width
Multiboard - Change the number of rows for MultiBoard to Multiboard_Index
Multiboard - Show MultiBoard
Hauptmenue
Events
Time - Elapsed game time is 0.01 seconds
Conditions
Actions
Set Variable Set TeamNr = (((Integer A) - 1) / 3)
Unit - Pause all units
Dialog - Clear Hauptmenu
Dialog - Create a dialog button for Hauptmenu labelled (|cff00cc00 + ((String(Start_Holz)) + ((Externalized string(Holz)) + |r)))
Set Variable Set Button_Holz = (Last created dialog Button)
Dialog - Create a dialog button for Hauptmenu labelled (|cffffcc00 + ((String(Start_Gold)) + ((Externalized string(Gold)) + |r)))
Set Variable Set Button_Gold = (Last created dialog Button)
Dialog - Create a dialog button for Hauptmenu labelled (Externalized string(Spiel starten))
Set Variable Set StartButton = (Last created dialog Button)
Dialog - Change the title of Hauptmenu to (Externalized string(Einstellungen))
Dialog - Show Hauptmenu for Player 1 (Red)
Dialog - Change the title of Wartedialog to (Externalized string(Bitte warten (max 10 Sek.)))
For each (Integer A) from 2 to (Number of players) , do (Actions)
Loop - Actions
Dialog - Show Wartedialog for (Player((Integer A)))
Wait 0.10 game-time seconds
For each (Integer A) from 1 to SpielerAnzahl , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Held[(Integer A)] Not equal to No unit
Then - Actions
Camera - Pan camera for (Player((Integer A))) to (Position of Held[(Integer A)]) over 0.01 seconds
Else - Actions
Holzmenue
Events
Dialog - A dialog button is clicked for Hauptmenu
Conditions
(Clicked dialog button) Equal to Button_Holz
Actions
Dialog - Clear Holzmenu
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc00600 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[0] = (Last created dialog Button)
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc00900 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[1] = (Last created dialog Button)
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc001500 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[2] = (Last created dialog Button)
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc002000 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[3] = (Last created dialog Button)
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc003000 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[4] = (Last created dialog Button)
Dialog - Create a dialog button for Holzmenu labelled (|cff00cc004000 + ((Externalized string(Holz)) + |r))
Set Variable Set Button_Auswahl[5] = (Last created dialog Button)
Dialog - Show Holzmenu for Player 1 (Red)
Holzauswahl
Events
Dialog - A dialog button is clicked for Holzmenu
Conditions
Actions
If ((Clicked dialog button) Equal to Button_Auswahl[0]) then do (Set VariableSet Start_Holz = "600") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[1]) then do (Set VariableSet Start_Holz = "900") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[2]) then do (Set VariableSet Start_Holz = "1500") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[3]) then do (Set VariableSet Start_Holz = "2000") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[4]) then do (Set VariableSet Start_Holz = "3000") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[5]) then do (Set VariableSet Start_Holz = "4000") else do (Do nothing)
Dialog - Hide Holzmenu for Player 1 (Red)
Trigger - Run Start_Holz <gen> (ignoring conditions)
Trigger - Run Hauptmenue <gen> (ignoring conditions)
Goldmenue
Events
Dialog - A dialog button is clicked for Hauptmenu
Conditions
(Clicked dialog button) Equal to Button_Gold
Actions
Dialog - Clear GoldMenu
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 + ((Externalized string(Kein Gold)) + |r))
Set Variable Set Button_Auswahl[0] = (Last created dialog Button)
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 5 + ((Externalized string(Gold)) + |r))
Set Variable Set Button_Auswahl[1] = (Last created dialog Button)
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 15 + ((Externalized string(Gold)) + |r))
Set Variable Set Button_Auswahl[2] = (Last created dialog Button)
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 20 + ((Externalized string(Gold)) + |r))
Set Variable Set Button_Auswahl[3] = (Last created dialog Button)
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 45 + ((Externalized string(Gold)) + |r))
Set Variable Set Button_Auswahl[4] = (Last created dialog Button)
Dialog - Create a dialog button for GoldMenu labelled (|cffffcc00 100 + ((Externalized string(Gold)) + |r))
Set Variable Set Button_Auswahl[5] = (Last created dialog Button)
Dialog - Show GoldMenu for Player 1 (Red)
Goldauswahl
Events
Dialog - A dialog button is clicked for GoldMenu
Conditions
Actions
If ((Clicked dialog button) Equal to Button_Auswahl[0]) then do (Set VariableSet Start_Gold = "0") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[1]) then do (Set VariableSet Start_Gold = "5") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[2]) then do (Set VariableSet Start_Gold = "15") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[3]) then do (Set VariableSet Start_Gold = "20") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[4]) then do (Set VariableSet Start_Gold = "45") else do (Do nothing)
If ((Clicked dialog button) Equal to Button_Auswahl[5]) then do (Set VariableSet Start_Gold = "100") else do (Do nothing)
Dialog - Hide GoldMenu for Player 1 (Red)
Trigger - Run Start_Gold <gen> (ignoring conditions)
Trigger - Run Hauptmenue <gen> (ignoring conditions)
Gegenstand Verlieren
Events
Unit - A unit Dies
Conditions
Or - Any (Conditions) are true
Conditions
And - All (Conditions) are true
Conditions
((Dying unit) is A Hero) Equal to True
((Killing unit) is A Hero) Equal to False
And - All (Conditions) are true
Conditions
((Killing unit) is A Hero) Equal to True
((Dying unit) is A Hero) Equal to True
(Item carried by (Killing unit) in slot 1) Not equal to No item
(Item carried by (Killing unit) in slot 2) Not equal to No item
(Item carried by (Killing unit) in slot 3) Not equal to No item
(Item carried by (Killing unit) in slot 4) Not equal to No item
(Item carried by (Killing unit) in slot 5) Not equal to No item
(Item carried by (Killing unit) in slot 6) Not equal to No item
Actions
Custom script: call dropItem()
Gegenstand Abgabe
Events
Unit - A unit Dies
Conditions
((Killing unit) is A Hero) Equal to True
((Dying unit) is A Hero) Equal to True
Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
Or - Any (Conditions) are true
Conditions
(Item carried by (Killing unit) in slot 1) Equal to No item
(Item carried by (Killing unit) in slot 2) Equal to No item
(Item carried by (Killing unit) in slot 3) Equal to No item
(Item carried by (Killing unit) in slot 4) Equal to No item
(Item carried by (Killing unit) in slot 5) Equal to No item
(Item carried by (Killing unit) in slot 6) Equal to No item
Then - Actions
Custom script: call giveItem()
Else - Actions
Interpolations Test
Events
Time - Elapsed game time is 5 seconds
Conditions
Actions
For each (Integer A) from 0 to 15 , do (Actions)
Loop - Actions
Custom script: set udg_Test_Wert = Interpoliere(0,200,bj_forLoopAIndex,16)
Game - Display to (All players) the text: (((X: + (String((Integer A)))) + ) + ( = + (String(Test_Wert))))
Set Variable Set Test_Wert = (12 mod 5)
ShowWeg
Events
Time - Every 5.00 seconds of game time
Conditions
Actions
For each (Integer B) from 0 to 3 , do (Actions)
Loop - Actions
Cinematic - Ping minimap for (All players) at ((Center of (Playable map area)) offset by (Weg_Punkt_X[(Integer B)], Weg_Punkt_Y[(Integer B)])) for 120.00 seconds, using a Flashy ping of color ( 100.00 %, 100.00 %, 0.00 %)
Ablage
Events
Conditions
Actions
Game - Display to (Player group((Owner of (Dying unit)))) the text: (((|cffffcc00 + (Externalized string(Hinweis:))) + |r ) + (Externalized string(Kontrollpunkt verloren)))
Game - Display to (Player group((Owner of (Killing unit)))) the text: (((|cffccff00 + (Externalized string(Hinweis:))) + |r ) + (Externalized string(Kontrollpunkt eingenommen)))
Wait 3.00 game-time seconds
Game - Display to (All players) for 10.00 seconds the text: |cff0000ccTipp:|r Nutzt den Angreifen Befehl um eure Einheiten zu bewegen.
Cinematic - Ping minimap for (All players) at ((Center of (Playable map area)) offset by (Ziel_X, Ziel_Y)) for 4.00 seconds, using a Simple ping of color ( 0.00 %, 0.00 %, 100.00 %)
Game - Display to (All players) for 2.00 seconds the text: (Faktor[0] = + (String(Weg_Faktor[0])))
Game - Display to (All players) for 2.00 seconds the text: (Faktor[1] = + (String(Weg_Faktor[1])))
Game - Display to (All players) for 2.00 seconds the text: (Faktor[2] = + (String(Weg_Faktor[2])))
Game - Display to (All players) for 2.00 seconds the text: (Faktor[3] = + (String(Weg_Faktor[3])))
Game - Display to (All players) for 2.00 seconds the text: -------------------------------------------
Game - Display to (All players) the text: ((t = + (String(Weg_t))) + ( ; t2 = + (String(Weg_t2))))
Game - Display to (All players) the text: (String(Interpolation[(Integer A)]))
Custom script: set udg_Berechneter_Wert = Berechne(bj_forLoopAIndex,bj_forLoopBIndex)
Custom script: set udg_Test_Wert = Berechne(bj_forLoopAIndex,bj_forLoopBIndex)
Game - Display to (All players) the text: (((X: + (String((Integer A)))) + ( Y: + (String((Integer B))))) + ( = + (String(Test_Wert))))
Wait 0.10 game-time seconds
Environment - Change terrain type at ((Center of Nullpunkt <gen>) offset by ((100.00 x (Real((Integer A)))), (100.00 x (Real((Integer B)))))) to Lordaeron Summer - Dirt using variation -1 in an area of size 1 and shape Square
Top