hmmm...
u mnie tez nie zadzialalo.
wrocilam na http://www.siedler-games.de/forum/s6-sc … stens.html
i doczytalam:
mowa byla o edycji we Wschodnich Krolestwach. funkcje podobno sa przetestowane i dzialaja w kazdej strefie klimatycznej.
i to jest mozliwe, najprawdopodobniej edytor z podstawki nie rozpoznaje tych funkcji, szkoda...

zaczelam sie zastanawiac nad sciezkami i punktami wyznaczajacymi droge. nie jest to wcale takie oczywiste, ale odnalazlam nieco informacji na ten temat. zaczne chyba od tutorialu, zeby byl przeglad calosci:

Tutorial -> S6_SEED_ScriptTutorials
10.[b]Waypoints = punktydrogi
(punkty wyznaczajace droge...  dla niektorych settlersow jak jednostki NPC)

z reguly funkcja ta jest umieszczana w FMA (Mission_FirstMapAction), ale co sie z tym wiaze? nasz Settler rozpoczyna droge zaraz po uruchomieniu gry. przypuszczam, ze mozna ja uruchomic rowniez w questach poprzez Reward_MapScriptFunction... ale nie sprawdzalam. mozemy uzyc nazwane budynki jako punkty drogi, ale mogą zdarzyć się problemy w połączeniu z innymi ustawieniami

local Entity = Logic.GetEntityIDByName(NPCName)
local ControlPointsList = { WPName1, WPName2 }
Path:new( Entity, ControlPointsList, Loop, Back, OnArrival, OnReturn, nil, LoopCallback, nil, Distance )

gdzie:
NPCName - script name (skryptowa nazwa jednostki NPC)
WPName - Name of set waypoints (nazwa wytyczonych punktow, ktorym przypisujemy numerek 1, 2, 3... itd
Loop - pętla, jesli wstawimy tu 'true' (prawda) NPC zawroci do pierwszego punktu jak tylko dojdzie do ostatniego punktu wyznaczajacego droge. wtedy ponownie przejdzie przez kolejne punkty.
Back - powrót, jesli okreslony jako 'true', NPC z powrotem przejdzie przez wszystkie punkty wyznaczajace sciezke
OnArrival - unikalna funkcja, która jest aktywowana jeden raz gdy NPC osiągnie swój cel
(ostatni punkt trasy)
OnReturn - unikalna funkcja (wraz z 'back' = true), która jest aktywowana jeden raz gdy NPC powroci do pierwszego punku wyznaczajacego sciezke
nil = 0 / intrygujace 'zero' lub 'nic', ktore nie wiadomo czego dotyczy
LoopCallback - unikalna funkcja, która jest aktywowana co sekunde tak długo, jak NPC podaza wyznaczona sciezka
nil = 0 / ponownie intrygujace 0, ktore nie wiadomo czego dotyczy
Distance - dystans

przyklad dla jednostki NPC nazwanej “NPC1“, ktora wedruje jeden raz z punktu “NPC1_WP0” do punktu “NPC1_WP1“:

do zapisania w FMA
local Entity = Logic.GetEntityIDByName("NPC1")
local ControlPointsList = { "NPC1_WP0", "NPC1_WP1" }
Path:new( Entity, ControlPointsList )

przyklad dla jednostki NPC nazwanej “NPC2“, ktora wedruje z punktu “NPC2_WP0“ przez punkt “NPC2_WP1“ do punktu “NPC2_WP2“, zawraca wokol niego i powraca do punktu startowego. NPC musi zblizyc sie do kazdego punktu na odleglosc nie mniejsza niz 99 jednostek (tu: settlerowskich centymetrow)

do zapisania w FMA
local Entity = Logic.GetEntityIDByName("NPC2")
local ControlPointsList = { "NPC1_WP0", "NPC1_WP1", "NPC1_WP2" }
Path:new( Entity, ControlPointsList, nil, true, nil, nil, nil, nil, nil,99)

c.d.n.

Ostatnio edytowany przez sisi (2009-11-02 23:03:42)

ciekawe co piszesz, bo ja mialam troche klopotu z uruchomieniem poprzez Reward_MapScriptFunktion. ale tez nie robie wszystkiego poprawnie. na malych testowkach nie chce mi sie wstawiac zamku, rynku, spichlerza czy kosciola dla ID1, a wtedy ta funkcja nie dziala...
gdzie wpisalas funkcje dla waypoints? w FirstMapAction?

ale napotykajac na te wszystkie problemy zaczelam grzebac w sieci i znalazlam tego typu funkcje, ale dla statkow i w innej nieco formie. autorem jest oczywiscie LordFWD
http://www.siedler-games.de/forum/s6-sc … andel.html
na podstawie tego skryptu zrobilam mala 5cio minutowke... i to dziala, moze nieco byle jak
> 'Edytor Map'

Ostatnio edytowany przez sisi (2009-11-04 22:18:10)

... i to wywolujesz poprzez Reward_MapFunction?
wg mnie to powinno dzialac od razu po wystartowaniu mapy... nie rozumiem... hmmm

... ja tez wszystkiego nie rozumiem, ale wyjasnie to co wiem.

function Droga()
if IsNear("kapturek", "Hakim", 1500) then
    Path:new(Logic.GetEntityIDByName("kapturek"), GetEntitiesNamedWith("Kp"), true, nil, nil, nil, true, nil, nil,99)
return true -- ?
    end
end

function GetEntitiesNamedWith(_name)
    local list = {};
    local i = 1;
    local bFound = true;
    while bFound do
        local entity = Logic.GetEntityIDByName(_name .. i);
        if entity ~= 0 then
            table.insert(list, entity);
        else
            bFound = false;
        end
        i = i + 1;
    end
    return list;
end

if (ang) = jesli
IsNear = jest blisko (near=blisko) > IsNear funkcja rozpoznawalna przez program
then = wtedy, to ....
if IsNear("kapturek", "Hakim", 1500) then
tego wiersza wcale nie jestem pewna (nie wiem czy jest konieczny), ale mialam problem z wywolaniem funkcji wiec zrobilam to 'na sile' i tak juz zostalo

Logic.GetEntityIDByName("kapturek")
> to odpowiada temu: local Entity = Logic.GetEntityIDByName("MS")
> i zastepuje to w: Path:new( Entity, )

GetEntitiesNamedWith("Kp") (... zerznelam zywcem, bo tego tez do konca nie rozumiem)
> odpowiada temu: local ControlPointsList = { "W1", "W2", "W3", "W4" }
> zastepuje w Path:new ( Entity, ControlPointsList, )

zeby komputer wiedzial co "GetEntitiesNamedWith" ma robic opisano funkcje funkcja ponizej.
ma ona dodatkowy smaczek, bo zlicza wszystkie skryptowe Entity w ktorych wystepuja litery
"Kp" = { "Kp1", "Kp2", "Kp3", "Kp4", ... }

jednym slowem twoja funkcje:

function MS()
       local Entity = Logic.GetEntityIDByName("MS")
       local ControlPointsList = { "W1", "W2", "W3", "W4" }
       Path:new( Entity, ControlPointsList, nil, true, nil, nil, nil, nil, nil,99)
end

moglabym zapisac tak:

function MS()
    Path:new(Logic.GetEntityIDByName("MS"), GetEntitiesNamedWith("W"), nil, true, nil, nil, nil, nil, nil,99)
end

function GetEntitiesNamedWith(_name)
    local list = {};
    local i = 1;
    local bFound = true;
    while bFound do
        local entity = Logic.GetEntityIDByName(_name .. i);
        if entity ~= 0 then
            table.insert(list, entity);
        else
            bFound = false;
        end
        i = i + 1;
    end
    return list;
end

kazdy warunek, czyli if czy while musi byc zamkniety poprzez uzycie end i kazda funkcja tez musi byc zamknieta  end, dlatego czasami jest 2x end

pomylilam sie z linkami. ten jest do tego, zeby statek zamorskiego kupca plywal od portu do portu, ale chyba juz bez handlu...
http://www.siedler-games.de/forum/s6-sc … ndler.html
poprzedni link poprawilam.

Ostatnio edytowany przez sisi (2009-11-05 14:30:49)

w zwiazku z moimi problemami na mapie nie moglam wywolac funkcji, wiec zaczelam szukac innych rozwiazan.
a nie wpisalam do FMA, bo bylam przekonana ze funkcja wystartuje mi od razu po otworzeniu mapy.
ale masz racje, 'przedobrzam'. za duzo kombinuje zamiast odwolac sie do najprostszych schematow.

spotkalam sie z limitem wayponits = 9
funkcja Lorda, czy tez OldMcDonalda, rozwiazuje ten problem. daje jeszcze jedna korzysc, raz wpisana do lua pozwala w edytorze dostawiac, uzupelniac, poprawiac bez ponownych zmian w skrypcie.

a statki smigaja, ze hej. przez laki, pola i morza . w petli, w powrotach i innych. wczoraj wieczorem przetestowalam...

Ostatnio edytowany przez sisi (2009-11-05 14:32:07)

Ciąg dalszy.

Teraz już jestem w nastroju depresyjnym.

Zrobiłam test tej funkcji Lorda - i nic.  Nie rozumiem opisu albo samej funkcji, a już mi się wydawało, że wiem, co jest co. 

Bardzo podejrzane jest to, że Edytor zażądał jeszcze jednego "end" do zamknięcia funkcji "z linii 17" czyli Mission_FirstMapAction. Moim zdaniem ta ma być dwa "end", ale się nie dało.

Mój statek to D_X_TradeShip, nazwany "MS"
punkty to S_ShipPath, nazwane W1, W2, w3,... W6.  Wszystko ma ID = 0, zgodnie z jego opisem, tak jak go zrozumiałam...

"HA" to nazwa dla figurki Hakima, wstawiłam figurkę obok XD_StartPosition. Oczywiście Hakim podchodzi do statku.



----------------------------------------------------------------------------------------------------------------------
function Mission_FirstMapAction()

    -- init players in singleplayer games only
    if Framework.IsNetworkGame() ~= true then

        Startup_Player()
        Startup_StartGoods()
        Startup_Diplomacy()
       
    end       

    -- create quests
    do
        local MapName = Framework.GetCurrentMapName()
        local ScriptName = "Maps\\ExternalMap\\"..MapName.."\\QuestSystemBehavior.lua"
        Script.Load(ScriptName)

        CreateQuests()
    end

if IsNear("MS", "HA", 2000) then

Path:new(Logic.GetEntityIDByName("MS"), GetEntitiesNamedWith("W"), nil, nil, nil, nil, true)

function GetEntitiesNamedWith(_name)
    local list = {};
    local i = 1;
    local bFound = true;
    while bFound do
        local entity = Logic.GetEntityIDByName(_name .. i);
        if entity ~= 0 then
            table.insert(list, entity);
        else
            bFound = false;
        end
        i = i + 1;
    end
    return list;
end
end
end