Resourcen auf der Minimap unsichtbar machen?

[Annosiedler]

Geht das? Also das Fisch, Rehe, Eisen und Stein nicht auf der Minimap sichtbar sind. Aber diese vom Spieler entdeckt und benutzt werden können?

Grüße
Annosiedler

[trabbi]

Recoursen von nicht besetzten Terretorien verstecken

[Annosiedler]

sie sollen nie angezeigt werden, so muss der spieler alles selber mühsam suchen.

[trabbi]

Versuch doch mal diese IstTerretoryBesetztGeschichte aus dem Script herauszu nehmen
Soll jetzt nur eine Anregung sein

[Fidelio1958]

Versuch doch mal diese IstTerretoryBesetztGeschichte aus dem Script herauszu nehmen
Soll jetzt nur eine Anregung sein

Das Problem ist, dass Anno bis heute keine Ahnung vom Script hat

Trabbi: Du kannst anscheinend ein Script lesen!
Ich kann das auch, ich kann auch was draus machen!
Anno kann das nicht!! das ist sein Problem!

[trabbi]

Trabbi: Du kannst anscheinend ein Script lesen!
Ich kann das auch, ich kann auch was draus machen!
Anno kann das nicht!! das ist sein Problem!

Ja, lesen kann ich es.
Erfasse auch die Bedeutung!
Aber da was Ändern ... nur durch Versuche, mittels auskommentieren
evt setz ich auch mal was anderes rein
Wenns dann tatsächlich mal klappt, wie ich mir das Vorstell,
ist es reines Glück

[Fidelio1958]

Trabbi, ist nicht nur Glück!!!
Wenn man das mal lesen kann und versteht, was gemeint ist, dann ist man ja auf dem besten Weg!
Da tun sich oft Sachen auf!!! Ja, etwas Fantasie gehört auch dazu, aber da bist du ja sehr gut!
Mir tuts ja echt leid, dass du keine Maps mehr machst!!!
Schade, das wäre schon was!

[trabbi]

Ach, weisst Du, bin halt Handwerker.
Schreiner gelernt,
aber mit Holz, Eisen, Elektrik, Wasser,
das ist alles kein Problem.
Fremde Handwerker brauch ich nicht.
Muss mir auch so immer wieder was einfallen lassen.
Aber nur am PC, und denn auch noch programmieren ??
ne ne, dat is manchmal schon Langweilig.
zZ versuch ich "Blender" zu kapieren
Ist zu Cinema4D doch ein gewaltiger Unterschied.

[Fidelio1958]

Na ja, ich bin gelernter Elektroinstallateur
Dann war ich Badewart, Vertreter(Scheiss Job), dann Fernfahrer.
Da gabs Zeiten, da konnte man noch richtig Kohle verdienen!

Na ja, jetzt wurschtel ich mich mit meinem Bier Pub bis zur Pension durch
Ist ja gar nicht sooo schlecht! Man wird nicht reich dabei, aber man kann leben und es ist recht gemütlich

[trabbi]

Bist ja auch 11 Jahre jünger.
Da musste schon noch was tun
hatte noch Glück, und konnt die 58er Regelung in Anspruch nehmen.

[Fidelio1958]

Schön für dich, ich gönne es dir!!!
Ich muss bis 65, und dann schau ma mal, obs noch eine Pension gibt
hab noch 13 Jahre, da lass ich es so ruhig wie möglich angehen
Na ja, hab super Personal, aber man weiss ja nie, was passiert
Auf jeden Fall ist man in Österreich als Arbeiter mit der Pension besser dran als Selbständiger.
Mein Schwager (Aufzugsmonteur) ist mit 54 in Pension (allerdings krankheitshalber, beide Knie waren kaputt) gegangen mit 1200 Euro, das würde ich sofort machen!

[trabbi]

hab nur knapp 800
sind ja dauerhaft 20% weniger
aber mit dem Geld meiner Frau zusammen,
kommen wir schon hin.
Wenn ich 65 bin, gibts noch was drauf
hab denn noch nen Zusatz von der Alterskasse.
(Rente der Landwirte)

[Fidelio1958]

Na dann schau mal, dass du laange lebst

[trabbi]

wir sind aber schon seehr weit vom Thema weg !

[Fidelio1958]

Ja, hast recht!!

back to question!! Der Code von Robert wurde ja schon gepostet!

ich hab da noch eine neuere Version von Cinemachus:
da kann man auch die Minenkapazität einstellen!

--------------------------------Hidden Ressources--------------------------------
-- letzte Änderung 12.11.08 - Resourcenmenge der Minen einstellbar in der Funktion GameCallback_TerritoryOwnershipChanged()
function CreateHiddenResources()
    hiddenResources = {}
    local possibleResources = {     -- Resourcen für alle Klimazonen
        -- Entities.S_FallowDeer_SE,
        -- Entities.S_Moose_NE,
        -- Entities.S_Reindeer_NE,
        -- Entities.S_Deer_ME,
        Entities.S_AxisDeer_AS,
        Entities.S_Zebra_NA,
        Entities.S_Gazelle_NA,
        Entities.S_WildBoar,
        Entities.S_Herbs,
        Entities.S_RawFish,
        Entities.A_X_Cow01,
        Entities.A_X_Sheep01,
        Entities.A_X_Sheep02,
        Entities.R_IronMine,
        Entities.R_StoneMine,
    }
    local replaceEntities = {       -- müssen blockierende(rotes grid!) Entities sein
        --Entities.D_AS_Ruins_WoodenConstruct,    -- Liste für Asien
        Entities.D_X_Fireplace_Expired,
        Entities.D_AS_Ruins_VaseFatBroken,
        --Entities.D_AS_Ruins_BigPillarUpright,
        -- Entities.D_ME_Rock_Set01_B_01,  -- Liste für Mitteleuropa              
        -- Entities.D_ME_Rock_Set01_B_02,
        -- Entities.D_ME_Rock_Set01_B_03,
        -- Entities.D_ME_Rock_Set01_B_04,
        -- Entities.D_NA_Cliff_Set01_Deco01,   -- Liste für Nordafrika...
        -- Entities.D_NA_Cliff_Set01_Deco02,
        -- Entities.D_NA_Cliff_Set01_Deco03,
        -- Entities.D_NA_Cliff_Set01_Deco04,
        -- Entities.D_NA_Cliff_Set01_Deco05,
        -- Entities.D_NA_Cliff_Set01_Deco06,
        -- Entities.D_NA_Cliff_Set01_Deco07,
        -- für Süd- und Nordeuropa habe ich noch keine Liste...
    }
    for i = 1, #possibleResources do
        local resourceIDs = SucheAufDerWelt(0, possibleResources[i])
        for j = 1, #resourceIDs do
            local pos = GetPosition(resourceIDs[j])
            local territory = Logic.GetTerritoryAtPosition(pos.X, pos.Y)
            if not IsTerritoryOccupied(territory) then
                hiddenResources[territory] = hiddenResources[territory] or {}    
                table.insert(hiddenResources[territory], {ReplaceEntity(resourceIDs[j], replaceEntities[GetRandom(1, #replaceEntities)]), possibleResources[i]})
            end
        end
    end
end

function IsTerritoryOccupied(_ID)
    if Logic.GetEntitiesOfCategoryInTerritory(_ID, -1, EntityCategories.Outpost, 0)
        or Logic.GetEntitiesOfCategoryInTerritory(_ID, -1, EntityCategories.Headquarters, 0)
        or Logic.GetEntitiesOfCategoryInTerritory(_ID, -1, EntityCategories.VillageStorehouse, 0) then
        return true
    end
end

-- SucheAufDerWelt / CodebyRobert
function SucheAufDerWelt(_player, _entity, _groesse, _punkt)
    local punktX1, punktX2, punktY1, punktY2, data
    local gefunden = {}
    local rueck
    if not _groesse then
        _groesse = Logic.WorldGetSize() 
    end
    if not _punkt then
        _punkt = {X = _groesse/2, Y = _groesse/2}
    end
    if _player == 0 then
        data = { Logic.GetEntitiesInArea(_entity, _punkt.X, _punkt.Y, math.floor(_groesse * 0.71), 16) }
    else
        data = { Logic.GetPlayerEntitiesInArea(1, _entity, _punkt.X, _punkt.Y, math.floor(_groesse * 0.71), 16) }
    end
    if data[1] >= 16 then -- Aufteilen angesagt
        local _klgroesse = _groesse / 2 
         -- Ausgangspunkt ist _punkt
         -- _punkt verteilen
        local punktX1 = _punkt.X - _groesse / 4
        local punktX2 = _punkt.X + _groesse / 4
        local punktY1 = _punkt.Y - _groesse / 4
        local punktY2 = _punkt.Y + _groesse / 4
        rueck = SucheAufDerWelt(_player, _entity, _klgroesse, {X = punktX1, Y = punktY1})
        for i = 1, #rueck do
            if not IstDrin(rueck[i], gefunden) then
                table.insert(gefunden, rueck[i])
            end
        end
        rueck = SucheAufDerWelt(_player, _entity, _klgroesse, {X = punktX1, Y = punktY2})
        for i = 1, #rueck do
            if not IstDrin(rueck[i], gefunden) then
                table.insert(gefunden, rueck[i])
            end
        end
        rueck = SucheAufDerWelt(_player, _entity, _klgroesse, {X = punktX2, Y = punktY1})
        for i = 1, #rueck do
            if not IstDrin(rueck[i], gefunden) then
                table.insert(gefunden, rueck[i])
            end
        end
        rueck = SucheAufDerWelt(_player, _entity, _klgroesse, {X = punktX2, Y = punktY2})
        for i = 1, #rueck do
            if not IstDrin(rueck[i], gefunden) then
                table.insert(gefunden, rueck[i])
            end
        end
    else
        table.remove(data, 1)
        for i = 1, #data do
            if not IstDrin(data[i], gefunden) then
                table.insert(gefunden, data[i])
            end
        end
    end
    return gefunden
end
 
function IstDrin(_wert, _table)
    for i = 1, #_table do
        if _table[i] == _wert then 
            return i 
        end 
    end
    return false
end
----------------------------------------------------------------------------------------------------------------------
function GetRandom(_start, _end)
    if not _start then
        local RAND_INTERVAL = 7000;
        return Logic.GetRandom(RAND_INTERVAL) / RAND_INTERVAL; -- [0, 1[
    elseif not _end then
        return Logic.GetRandom(_start) + 1; -- [1, _start]
    else
        return _start + Logic.GetRandom(_end - _start + 1); -- [_start, _end]
    end
end
----------------------------------------------------------------------------------------------------------------------   
if not ReplaceEntity then
    ReplaceEntity = function ( _entity, _type)
        _entity = GetEntityId(_entity);
        local pos = GetPosition(_entity);
        local player = Logic.EntityGetPlayer(_entity);
        local orientation = Logic.GetEntityOrientation(_entity);
        local name = Logic.GetEntityName(_entity);
        if Logic.IsLeader(_entity) == 1 then
            Logic.DestroyGroupByLeader(_entity);
        else
            Logic.DestroyEntity(_entity);
        end
        return CreateEntity(player, _type, pos, name, orientation);
    end
end
-- dieser Code am Ende des globalen Script------gilt für Create Hidden Ressources------------------
GameCallback_TerritoryOwnershipChangedOld = GameCallback_TerritoryOwnershipChanged
function GameCallback_TerritoryOwnershipChanged( _TerritoryID, _NewPlayerID, _OldPlayerID )
    GameCallback_TerritoryOwnershipChangedOld( _TerritoryID, _NewPlayerID, _OldPlayerID )
    if hiddenResources[_TerritoryID] then
        local resourceID = {}
        for i = 1, #hiddenResources[_TerritoryID] do
            resourceID[i] = ReplaceEntity( hiddenResources[_TerritoryID][i][1], hiddenResources[_TerritoryID][i][2] )
        end
        for j = 1, #resourceID do
            if Logic.GetEntityType(resourceID[j]) == Entities.R_StoneMine then
                Logic.SetResourceDoodadGoodAmount(resourceID[j], 250); -- Startmenge wenn nicht RdO bzw. max. Auffüllmenge durch Geologen
                if g_PatchIdentifierExtra1 then     -- RdO Map                
                    Logic.Extra1_SetResourceAmount(resourceID[j], GetRandom(100, 200));  -- Startmenge Wert von bis
                    -- Logic.Extra1_SetResourceAmount(resourceID[j], 88);  -- Startmenge fester Wert
                end
            elseif Logic.GetEntityType(resourceID[j]) == Entities.R_IronMine then
                Logic.SetResourceDoodadGoodAmount(resourceID[j], 250); -- Startmenge wenn nicht RdO bzw. max. Auffüllmenge durch Geologen
                if g_PatchIdentifierExtra1 then     -- RdO Map                
                    Logic.Extra1_SetResourceAmount(resourceID[j], GetRandom(100, 200));  -- Startmenge Wert von bis
                    -- Logic.Extra1_SetResourceAmount(resourceID[j], 85);  -- Startmenge fester Wert
                end
            end
        end
        hiddenResources[_TerritoryID] = nil
    end
end

Aber Achtung! verträgt sich nicht mit allen Sachen im NEP!!!

[CineMachus]

Aber Achtung! verträgt sich nicht mit allen Sachen im NEP!!!

Noch nie gehört, womit soll sich das im NEP nicht vertragen???

[Annosiedler]

Ich meinte es so das das Jagtsymbol über den Rehen nicht angezeigt wird und auch auf der Minimap nicht sichtbar ist.

Wobei die Rehe gejagt werden können.

Das selbe mit Fisch, Steinen und Eisen.

[Fidelio1958]

Noch nie gehört, womit soll sich das im NEP nicht vertragen???

Ich hatte da mal Fehlermeldungen, Sorry, ich weiss nicht mehr warum!

[trabbi]

Wie wirken sich denn die X14 Y1 oder X16 Y7
aus der Icon-Übersicht aus ??
An diesen Positionen sind keine Dargestellt.
Evtl wirken die Koordinaten ja trotzdem ??

[Fidelio1958]

Ich meinte es so das das Jagtsymbol über den Rehen nicht angezeigt wird und auch auf der Minimap nicht sichtbar ist.

Wobei die Rehe gejagt werden können.

Das selbe mit Fisch, Steinen und Eisen.

Du kannst die ganzen Widgets im lokalen löschen.
Das wird aber etwas aufwendig!
Geht sicher, aber ob sich das jemand antut, glaube ich nicht!