original-war.net

Hej,

obiecałem Zone'owi, że po premierze Edisona wrzucę pliki z Bryce'a, z których korzystałem robiąc tekstury. Warto nadmienić, że oryginalny plik przygotował dla mnie Prażanin (i to on ogarnął jak to ustawić), a ja tylko potem to wszystko edytowałem i dopasowywałem do bieżących potrzeb.

W...

Funkcja ustawia elementy zadanej tablicy w losowej kolejności.

Export Function Shuffle(array);
var i, index;
begin
result := [];

if not array then
exit;

Randomize;

for i = array downto 1 do
begin
index := rand(1, array);
result := Insert(result, result + 1, array );
array := Delete(array,...

Funkcja sortująca jednostki malejąco wg. zadanej umiejętności. Dozwolone są tylko umiejętności od 1 do 4.

Export Function SortBySkill(units, class);
var i, tmp;
begin
if not units or not class in then
exit;

tmp := [];

for i in units do
tmp := Insert(tmp, tmp+1, GetSkill(i, class));

if not...

Oto tutek dla tych którzy nie widzą jak zrobić efekt zanurzonych nóg na bagnie, czy w wodzie.

Legenda(w spoilerze):

Czarny kwadrat - Panel Arei
Czerwony Kwadrat - Guzik
Żółty kwadrat - Water (czyli wysokość wody na danym hexie).

1. Tworzymy na mapie obszar bagna ( swamp ) lub/i wody ( water )...

Funkcja zwraca technologie nacji dla zadanej parametrem strony. Dodatkowo można ograniczyć liczbę zwracanych techów bazując na ich konkretnym stanie.

Export Function GetTechNation(side, nation, state);
var i;
begin
if not side or not nation then
exit;

case nation of
nation_american: result :=...

Funkcja podłączająca zadany parametrem zdalnie sterowany pojazd do możliwe jak najlepszego mechanika. Pod uwagę brana jest ilość już podłączonych pojazdów oraz poziom mechanika. Działa zarówno dla statycznych jak i mobilnych wież kontrolnych.

Export Function Connect(vehicle);
var i, t, mech, tmp,...

Funkcja przesuwająca elementy w tablicy z miejsca x na miejsce y .

Export Function Reindex(array, i_from, i_to, direction);
var i, j, k, d, tmp, length;
begin
result := array;

if not array or not i_from or not i_to or i_from > array or i_to > array then
exit;

if direction then // ASC
begin...

Temat zbiorczy dotyczący operacji na tablicach w SAILu.

1. Co to jest tablica?

Jest to zbiór uporządkowanych danych, w którym poszczególne elementy mają przyporządkowany numer (indeks).
W SAILu indeksami są liczby naturalne.
Pierwszy element w tablicy zawsze przyjmuje wartość 1 ....

Funkcja sortująca jednostki z listy wg. odległości od wskazanego hexa (x,y).

Zwraca tablicę w postaci:
[ , , ...]

Parametry:

x,y - koordynaty
list - lista jednostek
asc - tryb sortowania: true -> rosnąco, false -> malejąco

Export Function SortByDistanceXY(x, y, list, asc);
var i,...

Funkcja zwraca hexy budynku bazując na podanych informacjach. Podobnie jak GetBuildingShape, z tym że zwraca prawdziwe hexy i może też podać wyjścia i rozbudowy.

mode:
0 - Hexy na których budynek stoi (albo miałby stać).
1 - Hexy wyjścia z budynku. W przypadku fabryki to wszystkie których...

W związku z udostępnieniem przez Stucuka narzędzia umożliwiającego dodawanie nowych fontów do Original War, postanowiłem pokrótce opisać, z czym to się je, i o co cho.

Po ściągnięciu programu uruchamiamy go. Program jest dość intuicyjny. Po lewej mamy do wyboru czcionkę (do wyboru mamy wszystkie...

Od jakiegoś czasu dostępna jest opcja zapisywania logów do pliku. Mianowicie możemy zapisać dowolny ciąg tekstowy do pliku w trakcie wykonywania kodu misji. Służy do tego prosta funkcja:

AddToLog(string);

Jednak aby odblokować działanie logów należy ustawić odpowiedni parametr:...

Służy do tego parametr:
solar_recharge_percent

Domyślny współczynnik ładowania wynosi 1.0 . Aby wyłączyć całkowicie ładowanie baterii wystarczy ustawić wartość 0.

Author: Serpent
Topic:

Postanowiłem napisać poradnik, jak zrobić działający dubbing tak jak w oryginalnych kampaniach. Bo jednak nie wielu to wie jak zrobić a dubbing zawsze ważna sprawa (a tak naprawdę wkurza mnie jak muszę poprawiać wyznaczniki dialogów w SAILU i w plikach tekstowych żeby dodać własny dubbing :arhello:...

Info: Menu wyboru kampanii z 3 przyciskami by Shaman & NNPlaya.

Authors: Shaman, NNPlaya

Jakoś nie znalazłem jeszcze żadnego opisu do tej funkcji, więc przyjrzałem się temu sam.

Funkcja zwraca jeśli dany hex nie istnieje, w przeciwnym wypadku -

to pierwsze - 0 Jeśli hex jest na mapie, 1 jeśli jest poza nią

Wysokość - Wysokość danego hexu.

Zbocze - osobny numer dla każdego...

Napisałem kodzik który sprawdza czy cel jest osiągalny. Jeśli tak to jednostka podąża w podane miejsce i funkcja zwraca TRUE, w przeciwnym razie funkcja zwraca FALSE.

//Destination Reachable Function by Serpent
Export unreachableList;
On DestinationUnreachable(unit) Do
begin
if not unit in...

Funkcja w założeniu ma działać jak ComAttackUnit dla podwójnych laserów. Jednak z racji na ich wyjątkowość musi być używana bez przerwy, przez cały czas trwania ataku. Dodatkowo zadziała na całą listę laserów i wrogów - funkcja sama dobiera lasery do celów.

Podanie Area przy użyciu funkcji jest...

Hi, napisałem funkcję która podmienia wartość w podanym miejscu, w dowolnej tablicy wielowymiarowej.

// arr - tablica
// pos - tablica pozycji
// value - nowa wartość do wstawienia
Export Function ReplaceIn(arr, pos, value);
var i, tmp, s_arr;
begin
if pos < 1 then
exit;

if pos = 1 then...

Jeżeli podczas otwierania mapy wyskoczy wam komunikat o treści Range Check Error oznacza to że została uszkodzona struktura mapy (np. obiekt znajduje się poza granicą mapy). Aby uruchomić mapę należy wejść do folderu moda, następnie missions/_kampania/nazwa_mapy i usunąć plik map.bin .

Teraz mapa...

Poniżej zamieszczam dwie nowe funkcje.

Compare - porównuje dwie wartości.
Export Function Compare(val1, val2);
begin
if val1 = val2 then
result := true
else
result := false;
End;

Funkcja ta umożliwia porównanie na przykład dwóch elementów tablic gdyż normalny zapis: tablica = tabliczka jest...

Napisałem dwie funkcje związane ze zdobywaniem informacji o kierowcy w SAILu.

#1 IsDriver(unit) - sprawdza czy jednostka jest kierowcą. Zwraca ident prowadzonego pojazdu lub 0 w przypadku jego braku.
Export Function IsDriver(unit);
begin
if unit in FilterAllUnits( ) then
result :=...

W SAIL'u brakuje funkcji która umożliwiałaby wydanie rozkazu umieszczenia kamery dla inżyniera. Oto ona:

Export Function ComPlaceHiddenCamera(un, x, y);
begin
if IsEnvironment(x, y) then
SetTaskList(un, [ ]);
End;

Rozkaz ten wykona tylko jednostka która jest arabskim inżynierem. Oczywiście w...

Od wersji 2.0.5.0 można edytować zasięg bazy czyli obszar w którym można budować budynki podporządkowane pod najbliższy skład/magazyn.

Aby to zrobić należy wypakować plik game.txt z Data1.owp i dodać te dwie linijki:
MAX_DISTANCE 26
MAX_DISTANCE_BONUS 8

Gdzie MAX_DISTANCE oznacza zasięg...

Od wersji 2.0.5.0 dostępny jest nowy event (zdarzenie) - UnitBury. Tworzy ona martwą jednostkę którą można zakopać.

Można sprawdzić samemu:
On UnitBury(un) do
begin
display_strings := 'Jednostka: '&un&' została zakopana/zabita!';
End;

Może komuś się to przyda, kiedyś :D

Author: Serpent...

Od wersji 2.0.5.0 dostępna jest funkcja która zwraca numer obecnego miesiąca z kalendarza systemowego.

GetMonth()

Przykład:

if GetMonth = 12 then
display_strings := 'Mamy zimę ale nie ma śniegu :(';

Author: Serpent
Topic:

Napisałem taką oto funkcję której zadaniem jest usuwanie podanej wartości z tablicy jedno- lub dwuwymiarowej.

Export Function Remove(tab, value, mode);
var i, j, tmp;
begin
i := 1;

while(i tablica z jakimiś wartościami
- value -> wartość
- mode -> tryb, jeżeli ustawimy na true wówczas zostanie...

Od wersji 2.0.5.0 można załadowywać zawartość pliku colors.txt z poziomu SAIL'a. Dzięki temu możemy w trakcie misji zmieniać kolorystykę mapy. Służy do tego komenda LoadColorsTXT('Text'); gdzie w miejsce 'Text' podajemy nazwę pliku z kolorami.

Przykładowo gdy chce zmienić kolor mapy na inny:...

W sail'u brakuje funkcji która umożliwiałaby zamianę jakieś wartości w tablicy dwuwymiarowej, dlatego napisałem taką funkcję. Poniżej kod:

Export Function Replace2(tab, j, k, value);
var i, tmp;
begin
tmp := Replace(tab , k, value);
tab := Replace(tab, j, tmp);

result := tab;
End;

Funkcja...

Jeżeli zaatakujemy lub zajmiemy budynek czy pojazd danej strony, przegramy. Przydatne, gdy nie chcemy np. by w naszym modzie można było rozwalić dla zabawy całą bazę sojusznika. :P
W tym przykładzie strona, która powinna zostać nienaruszona to 2, czyli żółty kolor (arabowie). Dodatkowo mamy zmienną...

W SAIL'u istnieje funkcja która zwraca nam informacje nt. danej jednostki. Funkcją tą jest GetProperties(unit) .

Zwraca ona następujące dane w formie listy:

speed - prędkość
defend - współczynnik obrony (pancerz)
sight - zasięg widzenia jednostki
range - zasięg ataku jednostki
eff soft -...

Napisałem funkcje które umożliwiają sortowanie list rosnąco i malejąco.

Sortowanie rosnące (od minimum do maksimum)
Export Function SortListAsc(list);
var i, j, sort_list, add;
begin
sort_list := [];

for i = 1 to list do
begin
if i = 1 then
sort_list := sort_list ^ list
else
begin
for j...

Napisałem funkcję która podaje nam wszystkie niezbędne informacje potrzebne do budowy 5 rozbudów do fabryki.

Export Function GetFacExtDir(x, y, dir);
var list, i;
begin
list := [];

Case dir of
0: begin
list := [ , , , , ];
end;
1: begin
list := [ , , , , ];
end;
2: begin
list := [ , , ,...

Wklejam funkcję która zwraca wszystkie pojazdy typu Behemoth (gotowych, nie budowanych!) dla danej strony.

Export Function GetBehemoth(side);
begin
result := FilterAllUnits([ , ]);
End;

Author: Serpent
Torpic:

Funkcja rozkazuje ukończyć budowę/ulepszanie danego budynku jednostkom z plist.

Export Function ComCompleteUpgrade(plist, b);
var i;
begin
if BuildingStatus(b) = bs_build then
for i = 1 to plist do
SetTaskList(plist , [ ]);
End;

Author: Serpent
Topic:

Hi, everybody!

I'd like to provide you some my maps - old maps or unused maps from my mod. You can use it as you wish :?
So, good luck with creating of your missions :P

There's the first map that I can give you :)

Map size: 100 x 70
Info: There's no water, appropriate for one of the first...

Funkcja pobiera danego typu (btype) dla strony (side).
Dla argumentu btype = -1 funkcja zwraca listę ze wszystkimi budynkami danej strony.

Export Function GetBuildingsList(side, btype);
var i, tmp, list;
begin
if btype = -1 then
tmp := FilterAllUnits([ , ])
else
tmp := FilterAllUnits([ , ]);...

Funkcja zwraca prawdę jeśli naukowiec (sci) chce leczyć jednostkę (unit).

Export Function WantHeal(sci, unit);
begin
if GetTaskList(sci) > 0 then
begin
if GetTaskList(sci) = 'l' and GetTaskList(sci) = unit then
result := true
else
result := false;
end
else
result := false;
End;

Author:...

Export Function RandExplosionInArea(area, time, num);
var i, c, tmp;
begin
tmp := AreaToList(area, 0);
Randomize;

for i = 1 to num do
begin
c := Rand(1, tmp );
MineExplosion(tmp , tmp , 1);
Wait(time);
end;

End;

Funkcja powoduje losowe wybuchy w danej arei.

RandExplosionInArea(area,...

Funkcja zwraca rozbudowy fabryki zadanej parametrem.

Export Function GetFacExt(factory);
var tmp, i, list;
begin
tmp := [];
list := [];

for i = 16 to 25 do
tmp := tmp ^ FilterAllUnits([[ , , ]]);

for i = 1 to tmp do
list := list ^ [[GetBType(tmp ), GetX(tmp ), GetY(tmp ), GetDir(tmp )]];...

Jeżeli chodzi o położenia na mapie samego artefaktu to jest taka funkcja:

FindArtifact(art_num); // art_num oznacza numer artefaktu.

// można z niej wydobyć koordy w taki sposób:
x := FindArtifact(1) ;
y := FindArtifact(1) ;

Natomiast jeżeli chodzi o użycie to patrz niżej.

Funkcja...

Na prośbę Marta napisałem funkcję która zwraca prawdę jeśli jednostka (unit) chce rozmontować budynek (building).

Export Function WantDismantle(unit, building);
var x, y;
begin
x := GetX(building);
y := GetY(building);

if GetTaskList(unit) then
begin
if 'Y' = GetTaskList(unit) and
x =...

Funkcja zwraca prawdę jeśli dane koordynaty x,y należą do danej arei.

Export Function HexInArea(x, y, area);
var i, tmp, list;
begin
tmp := false;
list := AreaToList(area, 0);

for i = 1 to list do
begin
if list = x and list = y then
begin
tmp := true;
break;
end;
end;

result := tmp;
End;...

Funkcja zwraca prawdę jeśli jednostka (unit) zmierza na hexa o koordynatach x,y:

Export Function UnitGoingToXY(unit, x, y);
begin

if GetTaskList(unit) then
begin
if 'M' = GetTaskList(unit) and
x = GetTaskList(unit) and
y = GetTaskList(unit) then
result := true
else
result := false;
end...