Ergebnis 1 bis 2 von 2
  1. #1
    Fischer Avatar von Peermanent
    Registriert seit
    10.07.2005
    Ort
    Moers
    Beiträge
    223
    Downloads
    0
    Uploads
    0

    Standard Lagerresources beim Start

    Beim Start Lager füllen

    Aufruf in Mission_InitPlayers()
    AddResourcesPlayer1()

    Code:
    function AddResourcesPlayer1()
     LagerTable = {
     {Goods.G_Gold,200,1},         -- Gold
     {Goods.G_Wood,50,1},         -- Holz
     {Goods.G_Stone,50,1},         -- Steine
     {Goods.G_Iron,10,1},            -- Eisen
     {Goods.G_Grain,10,1},          -- Getreide 
     {Goods.G_Milk,10,1},            -- Milch
     {Goods.G_Herb,10,1},           -- Kräuter
     {Goods.G_Wool,10,1},           -- Wolle
     {Goods.G_Honeycomb,10,1},   -- Honigwaben
     {Goods.G_RawFish,10,1},       -- Roher Fisch
     {Goods.G_Carcass,10,1},       -- Tierkadaver
     }
     for i = 1, #LagerTable do
      AddResourcesToPlayer(LagerTable[i][1],LagerTable[i][2],LagerTable[i][3])
     end
    end

  2. #2
    Fleischermeister
    Registriert seit
    07.08.2005
    Ort
    Aachen
    Beiträge
    356
    Downloads
    0
    Uploads
    0

    Standard AW: Lagerresources beim Start

    Hi,

    da mir mal wieder beim Testen etwas auf den Geist ging (Holzhütte, Jäger, Steinarbeiter etc. zu bauen und zu schauen, dass immer genug da ist) habe ich mir folgendes gemacht.

    Code:
    function TestResourcen()
    	LagerTable = LagerTable or {
    		[Goods.G_Wood]=20,          -- Holz
    		[Goods.G_Stone]=80,         -- Steine
    		[Goods.G_Iron]=10,          -- Eisen
    		[Goods.G_Grain]=10,         -- Getreide 
    		[Goods.G_Milk]=10,          -- Milch
    		[Goods.G_Herb]=10,          -- Kräuter
    		[Goods.G_Wool]=10,          -- Wolle
    		[Goods.G_Honeycomb]=10,     -- Honigwaben
    		[Goods.G_RawFish]=10,       -- Roher Fisch
    		[Goods.G_Carcass]=10,       -- Tierkadaver
    		}
    	for n,v in pairs(LagerTable) do
    		local GoodAmount = Logic.GetAmountOnOutStockByGoodType(Logic.GetStoreHouse(1),n)
    		if GoodAmount < v then
    			AddResourcesToPlayer(n, v - GoodAmount, 1)
    		end
    	end
    	local GoodAmount = GetAmountOfGoodInOutStockOfCastle(Goods.G_Gold, 1 )
    	if GoodAmount < 2000 then
    		AddResourcesToPlayer(Goods.G_Gold, 2000 - GoodAmount, 1)
    	end
    end
    Als SimpleJob laufen lassen. Dann ist in der Regel alles da.

    Gruß Robert
    http://lua.gts-stolberg.de/Bilder/bannerklein2.jpg
    Gott gebe mir die Geduld, Dinge hinzunehmen, die ich nicht ändern kann.

Aktive Benutzer

Aktive Benutzer

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •