Siedler Games Portal

--------------------------------------------------------------------------------
-- MapName: XXX
--
-- Author: XXX
--
--------------------------------------------------------------------------------

-- Include main function
Script.Load( Folders.MapTools.."Main.lua" )
IncludeGlobals("MapEditorTools")

--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called from main script to initialize the diplomacy states
function InitDiplomacy()
SetHostile(1,3)
SetPlayerName(3,"Kerberros")
end


--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called from main script to init all resources for player(s)
function InitResources()
    -- set some resources
    AddGold  (0)
    AddSulfur(0)
    AddIron  (0)
    AddWood  (0)    
    AddStone (0)    
    AddClay  (0)    
end

--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called to setup Technology states on mission start
function InitTechnologies()
end

--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called on game start and after save game is loaded, setup your weather gfx
-- sets here
function InitWeatherGfxSets()
    SetupNormalWeatherGfxSet()
end

--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called on game start you should setup your weather periods here
function InitWeather()
    AddPeriodicSummer(10)
end

--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called on game start and after save game to initialize player colors
function InitPlayerColorMapping()
end
    
--++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- This function is called on game start after all initialization is done
function FirstMapAction()
armeenmacher()
ki()
--einleitung()
armeen()
armme2()
armee3()
message()
test()
StartSimpleJob("VictoryJob")-- Sieg ?
StartSimpleJob("Dario")
StartSimpleJob("Brifings")
end
function test()
SpeedUpGame()
  SpeedUpGame()
  SpeedUpGame()
  Tools.ExploreArea( -1, -1, 900 )
  end
function armeen()
Army = {}
Army.player = 3
Army.id = 1
Army.strength = 3
Army.position = GetPosition("EnemySpawn")
Army.rodeLength = 1000
 
SetupArmy(Army)
 
-- Statt nun Truppen manuell mit EnlargeArmy() zu erzeugen, erweitern wir jetzt die Army-Table um einige Werte:
-- Hier wird angegeben, welcher Einheitentyp und wieviel Soldaten der Truppe angehören. Es funktionieren auch Kanonen.
-- Die Liste kann beliebig lang sein, es werden maximal soviele Truppen gespawned wie in Army.strength angegeben.
-- Nachteil gegenüber dem EnlargeArmy(): Es kann keine Erfahrung verteilt werden
Army.spawnTypes = {
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderSword4,   8},
    {Entities.PU_LeaderSword4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
    {Entities.PV_Cannon4,   8},
}
 
-- Wenn endless true ist wird am Ende der Liste wieder oben angefangen, 
-- ansonsten ist die Armee am Ende besiegt und es spawned nix mehr
Army.endless = true

-- spawnPos sollte der gleiche Punkt sein wie die normale Army.position, aber es geht auch ein anderer Spawnpunkt
Army.spawnPos = GetPosition("EnemySpawn")
 
-- spawnGenerator ist das Gebäude aus dem die Truppen "rauskommen". Ist das Gebäude zerstört spawnen keine Truppen mehr
Army.spawnGenerator = "DARKCASTEL"
 
-- Nach jeweils x Sekunden spawnen neue Gegner wenn sie gebraucht werden
Army.respawnTime = 1
 
-- Wenn refresh true ist, werden angeschlagene Truppen wieder aufgefüllt
Army.refresh = true
 
-- Pro Spawn werden maximal x neue Truppen der Armee hinzugefügt falls nötig
Army.maxSpawnAmount = 100
 
-- Wenn noEnemy true ist, spawnen nur neue Gegner wenn kein Feind in der Nähe ist
Army.noEnemy = false
 
-- Die Reichweite in der sich keine Gegner befinden dürfen wenn noEnemy true ist
Army.noEnemyDistance = 0
 
--Mit diesen erweiterten Angaben kann man dann die Funktion aufrufen:
SetupAITroopSpawnGenerator("EnemyArmy", Army)
--EnemyArmy ist dabei ein frei wählbarer, eindeutiger Name.
--Jetzt sollten die Truppen völlig automatisch erstellt werden und bei Bedarf erneuert.
 
--Einen Job um die Armee zu steuern, braucht man allerdings immer noch.
end
function armme2()
Army = {}
Army.player = 3
Army.id = 1
Army.strength = 3
Army.position = GetPosition("EnemySpawn1")
Army.rodeLength = 1000
 
SetupArmy(Army) -- das ist was die einheiten machen sollen in diesem fall Spieler 1 angreiffen
 
-- Statt nun Truppen manuell mit EnlargeArmy() zu erzeugen, erweitern wir jetzt die Army-Table um einige Werte:
-- Hier wird angegeben, welcher Einheitentyp und wieviel Soldaten der Truppe angehören. Es funktionieren auch Kanonen.
-- Die Liste kann beliebig lang sein, es werden maximal soviele Truppen gespawned wie in Army.strength angegeben.
-- Nachteil gegenüber dem EnlargeArmy(): Es kann keine Erfahrung verteilt werden
Army.spawnTypes = {
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderSword4,   8},
    {Entities.PU_LeaderSword4,   8},
    }
 
-- Wenn endless true ist wird am Ende der Liste wieder oben angefangen, 
-- ansonsten ist die Armee am Ende besiegt und es spawned nix mehr
Army.endless = true
 
-- spawnPos sollte der gleiche Punkt sein wie die normale Army.position, aber es geht auch ein anderer Spawnpunkt
Army.spawnPos = GetPosition("EnemySpawn1")
 
-- spawnGenerator ist das Gebäude aus dem die Truppen "rauskommen". Ist das Gebäude zerstört spawnen keine Truppen mehr
Army.spawnGenerator = "DARKCASTEL"
 
-- Nach jeweils x Sekunden spawnen neue Gegner wenn sie gebraucht werden
Army.respawnTime = 10
 
-- Wenn refresh true ist, werden angeschlagene Truppen wieder aufgefüllt
Army.refresh = true
 
-- Pro Spawn werden maximal x neue Truppen der Armee hinzugefügt falls nötig
Army.maxSpawnAmount = 3
 
-- Wenn noEnemy true ist, spawnen nur neue Gegner wenn kein Feind in der Nähe ist
Army.noEnemy = false
 
-- Die Reichweite in der sich keine Gegner befinden dürfen wenn noEnemy true ist
Army.noEnemyDistance = 0
 
--Mit diesen erweiterten Angaben kann man dann die Funktion aufrufen:
SetupAITroopSpawnGenerator("EnemyArmy", Army)
--EnemyArmy ist dabei ein frei wählbarer, eindeutiger Name.
--Jetzt sollten die Truppen völlig automatisch erstellt werden und bei Bedarf erneuert.
 
--Einen Job um die Armee zu steuern, braucht man allerdings immer noch.
end
function armee3()
Army = {}
Army.player = 3
Army.id = 1
Army.strength = 3
Army.position = GetPosition("EnemySpawn2")
Army.rodeLength = 1000
 
SetupArmy(Army)
 
-- Statt nun Truppen manuell mit EnlargeArmy() zu erzeugen, erweitern wir jetzt die Army-Table um einige Werte:
-- Hier wird angegeben, welcher Einheitentyp und wieviel Soldaten der Truppe angehören. Es funktionieren auch Kanonen.
-- Die Liste kann beliebig lang sein, es werden maximal soviele Truppen gespawned wie in Army.strength angegeben.
-- Nachteil gegenüber dem EnlargeArmy(): Es kann keine Erfahrung verteilt werden
Army.spawnTypes = {
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderPoleArm4, 8},
    {Entities.PU_LeaderSword4,   8},
    {Entities.PU_LeaderSword4,   8},
    }
 
-- Wenn endless true ist wird am Ende der Liste wieder oben angefangen, 
-- ansonsten ist die Armee am Ende besiegt und es spawned nix mehr
Army.endless = true
 
-- spawnPos sollte der gleiche Punkt sein wie die normale Army.position, aber es geht auch ein anderer Spawnpunkt
Army.spawnPos = GetPosition("EnemySpawn2")
 
-- spawnGenerator ist das Gebäude aus dem die Truppen "rauskommen". Ist das Gebäude zerstört spawnen keine Truppen mehr
Army.spawnGenerator = "DARKCASTEL"
 
-- Nach jeweils x Sekunden spawnen neue Gegner wenn sie gebraucht werden
Army.respawnTime = 10
 
-- Wenn refresh true ist, werden angeschlagene Truppen wieder aufgefüllt
Army.refresh = true
 
-- Pro Spawn werden maximal x neue Truppen der Armee hinzugefügt falls nötig
Army.maxSpawnAmount = 3
 
-- Wenn noEnemy true ist, spawnen nur neue Gegner wenn kein Feind in der Nähe ist
Army.noEnemy = false
 
-- Die Reichweite in der sich keine Gegner befinden dürfen wenn noEnemy true ist
Army.noEnemyDistance = 0
 
--Mit diesen erweiterten Angaben kann man dann die Funktion aufrufen:
SetupAITroopSpawnGenerator("EnemyArmy", Army)
--EnemyArmy ist dabei ein frei wählbarer, eindeutiger Name.
--Jetzt sollten die Truppen völlig automatisch erstellt werden und bei Bedarf erneuert.
 
--Einen Job um die Armee zu steuern, braucht man allerdings immer noch.

end
function message()
Message("Dario darf NICHT sterben")
end
function armeenmacher()
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Schwert(2,8," armee1")
Schwert(2,8," armee2")
StartCountdown(20,endfunction(),false)
end
function endfunction()
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Armee(2,8," armee1")
Armee(2,8," armee2")
Speer(2,8," armee1")
Speer(2,8," armee2")
StartCountdown(20,armeenmacher(),false)
end
function ki()
MapEditor_SetupAI(2, 1, 50000, 1, "DARKCASTEL", 0, 0)
end
function VictoryJob() --Das ist ein SimpleJob
if IsDead("DARKCASTEL") then -- ist DARKCASTEL tot,dann ...
Victory()  -- ... Sieg
end
end
function Dario()
if IsDead("dario") then
Defeat()
else
Move("1","dario")
Move("2","dario")
Move("3","dario")
Move("4","dario")
end
end
function Brifings()
if IsNear("dario","bishop",2000)then
createBriefingBishop()
return true
end
end
function createBriefingBishop()  -- hier startet das Brifing
BriefingBishop = {} 
BriefingBishop.restoreCamera = true 
-- call on end of biefing 
BriefingBishop.finished = BriefingBishopFinished 
local page = 0 
-- page #1 
page = page + 1 
BriefingBishop[page] = {} 
BriefingBishop[page].title = "Wanderer" 
BriefingBishop[page].text = "Hallo!" 
BriefingBishop[page].position = GetPosition("bishop") 
BriefingBishop[page].dialogCamera = true 
-- page #2 
page = page + 1 
BriefingBishop[page] = {} 
BriefingBishop[page].title = "Wanderer" 
BriefingBishop[page].text = "Ich \195\188berlasse dir mein Dorf !!!."

BriefingBishop[page].position = GetPosition("bishop") 
-- Npc
local npc          = {}
npc.name           = "bishop" --Name des Npc
npc.briefing           = BriefingBishop --Briefing
npc.heroName           = "dario" --Name des Helden mit dem der NPC nur spricht
npc.wrongHeroMessage = "Ich rede nur mit Dario !Mach dich Acker." -- Meldung bei falschen Ansprechpartner 
npc.follow           = "dario" -- Startet vom Startpunkt und bewegt sich zum anzusprechenden Npc
CreateNPC(npc)

function BriefingBishopFinished() 
repleace()
player()
---------------
--ROHSTOFFE--
AddGold (1000)
AddSulfur (100)
AddIron  (100)
AddWood  (1000)
AddStone (1000)
AddClay  (1000)
end 
function repleace()
ReplaceEntity("1", Entities.PU_Serf)
ReplaceEntity("2", Entities.PU_Serf)
ReplaceEntity("3", Entities.PU_Serf)
ReplaceEntity("4", Entities.PU_Serf)
end
function player ()
ChangePlayer("HQ1", 1)
ChangePlayer("5", 1)
ChangePlayer("6", 1)
ChangePlayer("7", 1)
ChangePlayer("8", 1)
ChangePlayer("9", 1)
ChangePlayer("10", 1)
ChangePlayer("11", 1)
ChangePlayer("12", 1)
ChangePlayer("13", 1)
ChangePlayer("14", 1)
ChangePlayer("15", 1)
ChangePlayer("16", 1)
ChangePlayer("17", 1)
ChangePlayer("18", 1)
ChangePlayer("19", 1)
ChangePlayer("20", 1)
ChangePlayer("21", 1)
ChangePlayer("22", 1)
ChangePlayer("23", 1)
ChangePlayer("24", 1)
ChangePlayer("25", 1)
ChangePlayer("26", 1)
ChangePlayer("27", 1)
ChangePlayer("28", 1)
ChangePlayer("29", 1)
end
-- Quest data
MapEditor_QuestTitle                = ""
MapEditor_QuestDescription     = ""
------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------COMPFORTFUNKTIONEN------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------------

function AddTribute( _tribute )
    assert( type( _tribute ) == "table", "Tribut muß ein Table sein" );
    assert( type( _tribute.text ) == "string", "Tribut.text muß ein String sein" );
    assert( type( _tribute.cost ) == "table", "Tribut.cost muß ein Table sein" );
    assert( type( _tribute.playerId ) == "number", "Tribut.playerId muß eine Nummer sein" );
    assert( not _tribute.Tribute , "Tribut.Tribute darf nicht vorbelegt sein");
    
    uniqueTributeCounter = uniqueTributeCounter or 1;
    _tribute.Tribute = uniqueTributeCounter;
    uniqueTributeCounter = uniqueTributeCounter + 1;
    
    local tResCost = {};
    for k, v in pairs( _tribute.cost ) do
        assert( ResourceType[k] );
        assert( type( v ) == "number" );
        table.insert( tResCost, ResourceType[k] );
        table.insert( tResCost, v );
    end
    
    Logic.AddTribute( _tribute.playerId, _tribute.Tribute, 0, 0, _tribute.text, unpack( tResCost ) );
    SetupTributePaid( _tribute );
    
    return _tribute.Tribute;
end
function Armee(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderBow4,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PU_LeaderPoleArm4,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PU_LeaderSword4,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PU_LeaderHeavyCavalry2,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PU_LeaderSoldierCavalry2,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PU_LeaderRifle2,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PV_Cannon1,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PV_Cannon2,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PV_Cannon3,_number,GetPosition(_pos))
  CreateMilitaryGroup(_player,Entities.PV_Cannon4,_number,GetPosition(_pos))
  end
function Bogen(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderBow4,_number,GetPosition(_pos))
end
function Speer(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderPoleArm4,_number,GetPosition(_pos))
end
function Schwert(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderSword4,_number,GetPosition(_pos))
end
function Kavallerie(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderHeavyCavalry2,_number,GetPosition(_pos))
end
function KavallerieBogen(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderSoldierCavalry2,_number,GetPosition(_pos))
end
function Gewehr(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PU_LeaderRifle2,_number,GetPosition(_pos))
end
function Kannone1(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PV_Cannon1,_number,GetPosition(_pos))
end
function Kannone2(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PV_Cannon2,_number,GetPosition(_pos))
end
function Kannone3(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PV_Cannon3,_number,GetPosition(_pos))
end
function Kannone4(_player,_number,_pos)
  CreateMilitaryGroup(_player,Entities.PV_Cannon4,_number,GetPosition(_pos))
end
function StartCountdown(_Limit, _Callback, _Show)
assert(type(_Limit) == "number")
assert( not _Callback or type(_Callback) == "function" )
Counter.Index = (Counter.Index or 0) + 1
if _Show and CountdownIsVisisble() then
assert(false, "StartCountdown: A countdown is already visible")
end
Counter["counter" .. Counter.Index] = {Limit = _Limit, TickCount = 0, Callback = _Callback, Show = _Show, Finished = false}
if _Show then
MapLocal_StartCountDown(_Limit)
end
if Counter.JobId == nil then
Counter.JobId = StartSimpleJob("CountdownTick")
end  
return Counter.Index
end 
function StopCountdown(_Id)
if Counter.Index == nil then
return
end
if _Id == nil then
for i = 1, Counter.Index do
if Counter.IsValid("counter" .. i) then
if Counter["counter" .. i].Show then
MapLocal_StopCountDown()
end
Counter["counter" .. i] = nil
end
end
else
if Counter.IsValid("counter" .. _Id) then
if Counter["counter" .. _Id].Show then
MapLocal_StopCountDown()
end
Counter["counter" .. _Id] = nil
end
end
end
function CountdownIsVisisble()
for i = 1, Counter.Index do
if Counter.IsValid("counter" .. i) and Counter["counter" .. i].Show then
return true
end
end
return false
end
function CountdownTick()
    local empty = true
    for i = 1, Counter.Index do
        if Counter.IsValid("counter" .. i) then
            if Counter.Tick("counter" .. i) then
                Counter["counter" .. i].Finished = true
            end
            
            if Counter["counter" .. i].Finished and not IsBriefingActive() then
                if Counter["counter" .. i].Show then
                    MapLocal_StopCountDown()
                end
                
                -- callback function
                if type(Counter["counter" .. i].Callback) == "function" then
                    Counter["counter" .. i].Callback()
                end
                
                Counter["counter" .. i] = nil
            end
            
            empty = false
        end
    end
    
    if empty then
        Counter.JobId = nil
        Counter.Index = nil
        return true
    end
end
end