MinenFuellung

MinenFuellung

Code

 
--  _scriptName  - Scriptname der Eisenmine oder Steinmine
--  _capacity    - Startmenge (AeK) oder maximale Füllmenge durch Geologen (RdO)
--  _amount      - Startmenge (RdO) die in der Mine sofort verfügbar sein soll (kleiner oder gleich _capacity)
 
function MinenFuellung(_scriptName, _capacity, _amount)
	local M_id = Logic.GetEntityIDByName(_scriptName)
	if Logic.GetEntityType(M_id) == Entities.R_IronMine or Logic.GetEntityType(M_id) == Entities.R_StoneMine then
		local _pos = GetPosition(M_id)
		local _player = Logic.EntityGetPlayer(M_id)
		local _orientation = Logic.GetEntityOrientation(M_id)
		if Logic.GetEntityType(M_id) == Entities.R_IronMine then
			Logic.DestroyEntity(M_id)
			CreateEntity(_player, Entities.R_IronMine, _pos, _scriptName, _orientation)
		else
			Logic.DestroyEntity(M_id)
			CreateEntity(_player, Entities.R_StoneMine, _pos, _scriptName, _orientation)
		end
		M_id = Logic.GetEntityIDByName(_scriptName)
		if g_PatchIdentifierExtra1 then
			Logic.SetResourceDoodadGoodAmount(M_id, _capacity)
			Logic.Extra1_SetResourceAmount(M_id, _amount)
			return true
		else
			Logic.SetResourceDoodadGoodAmount(M_id, _capacity)
			return true
		end
	else
		Logic.DEBUG_AddNote(" Fehler MinenFuellung: " .. _scriptName .. " - falsche oder nicht existierende Entity")
		return false
	end
end

Die Funktion MinenFuellung() dient zur Änderung der Lagerkapazität der Stein- oder Erzmine,
sie ist nach der Funktion Mission_FirstMapAction() in das Kartenscript einzufügen. Sie wird
mit den oben genannten Parametern im Kartenscript aufgerufen. Die Parameter müssen beim
Aufruf übergeben werden. Der Aufruf kann je nach Spielerfordernis, entweder direkt in der
Funktion Mission_FirstMapAction() oder in eigenen Funktionen erfolgen.

Beispiele für den Aufruf:

 
MinenFuellung("Mine1", 30, 15)
MinenFuellung("Mine2", 60, 45)
 
 
function Fuellmenge2()
   for i = 1,6 do       -- bei sechs Minen (Mine1, Mine2, Mine3 usw.) mit gleichem Wert
       MinenFuellung("Mine" ..i, 2000, 1800)
   end
   MinenFuellung("Mine7", 3000, 3000) -- oder einzeln bei unterschiedlichen Werten
   MinenFuellung("Mine8", 1000, 1000)
end

Ist eine Änderung der Füllmenge während des Spiels nicht erforderlich, so kann auch einfach
mit dem Editor, im Fenster Minen-Eigenschaften, der jeweilige Wert eingetragen werden.
Dieses erfolgt im Feld „Script name“ (z.B. 2000/2000).

Beispielkarte

Link zur LAN-Karte

MinenFuellung

Code

Verwendung

Beispielkarte