original-war.net

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...

Zwraca prawdę jeżeli naukowiec o idencie unit chce skazić złoże o koordynatach x, y.

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

if GetTaskList(unit) then
begin
if 'G' = GetTaskList(unit) and
x = GetTaskList(unit) and
y = GetTaskList(unit) then
result := true
else
result :=...

Funkcja zwraca prawdę jeżeli jednostka chce zmienić swoją klasę na klasę = class.

Export Function WantChangeClass(unit, class);
var i;
begin

if GetTaskList(unit) then
begin
for i = 1 to GetTaskList(unit) do
if '!' = GetTaskList(unit) and
class = GetTaskList(unit) then
begin
result :=...

Export Function GetDistUnitToSide(unit, side);
var tmp, dist;
begin
tmp := NearestUnitToUnit(FilterAllUnits( ), unit);
dist := GetDistUnits(unit, tmp);

if dist >= 9999 then
result := -1
else
result := dist;
End;

Funkcja zwraca odległość pomiędzy jednostką ( unit ) zadaną parametrem a daną...

Przy dodawaniu animacji do mapy za pomocą edytora w pliku mapy zapisuje się lokalizacja do danych klatek.

Problem leży w tym że zapisana lokalizacja to lokalizacja klatek na naszym komputerze, więc jeżeli ktoś odpali mapę z animacjami na innym komputerze gdzie ma zainstalowane OW w innej...

Operatory mają za zadanie tworzyć jakąś korelacje pomiędzy warunkami, przykładowo jeśli chcemy aby kod wykonał się dopiero po osiągnięciu kilku warunków to operatory służą właśnie do tego.

Przykład #1:
Niech kod wykona się jeżeli zbadane są 3 technologie.
Every 0$01 trigger (GetTech(tech_sib1, 1)...

Funkcja losująca to funkcja która zwraca losową liczbę z podanego zbioru liczb.

Najprostszą tego typu funkcją jest funkcja Rand:

Rand(min, max); // gdzie min oznacza dolny przedział liczb, a max górny.

Nieco bardziej rozbudową funkcją jest MultiRand:

MultiRand(min, max, c); // gdzie c...

Pewnie wielu z Was spotkało się z tym problemem. Chodzi mianowicie o to że jeśli umieścimy człowieka w bunkrze (nie w wieżyczce!) za pomocą PlaceHumanInUnit to zawsze jest on zwrócony w kierunku 0 (północy wschód).

Poniżej zamieszczam funkcję która rozwiązuje ten problem:

Export Function...

Wiele razy słyszałem że ktoś chciał stworzyć dużą misje typu rpg składającą się z wielu map. Problem polegał na przełączaniu się map. Udało mi się jednak rozkminić to zagadnienie.

N
W M E
S

Zakładamy że każda litera to dana mapa. (mapy wsadźmy do folderu /missions/ __am ).
Mapa M to mapa...

W Original War wszystkie mapy zbudowane są z małych cegiełek tzw. hexów czyli symetrycznych sześcioboków.

Czasami może zajść potrzeba sprawdzenia co znajduje się na danym hexie (budynek, trawa czy czołg). Służy do tego specjalna funkcja:

HexInfo(x, y);

Jako parametry funkcja przyjmuje...

String to jak powszechnie wiadomo zmienne przechowujące znaki (ciągi znaków).
Ciągi znaków w SAIL'u zapisujemy pomiędzy znakami ' ' .

Przykład:
'macmilan' 'jurij' 'masza' 'kasza'

Do wyświetlania tego typu zmiennych w grze służy funkcja display_strings .

Display_Strings

Display_Strings :=...

Hi, napisałem funkcję dla Nefarema która zwraca losowe koordynaty (hexy) z danego obszaru. Myślę że może się komuś przydać.

// Losuj num razy punkty z obszaru pomiedzy koordynatami
Export Function RandPointsFromArea(x1, y1, x2, y2, num);
var list, i;
begin
list := [];

for i = 1 to num do...

Jeżeli chcesz stworzyć nową grafikę tła w menu Twojego moda, musisz zapisać ją w formacie TGA.

Do eksportu możesz użyć darmowej aplikacji IrfanView (to jest ten prosty sposób). Ponieważ ten program nie zawiera żadnych zaawansowanych opcji. Ale jeżeli używasz Gimpa, możesz zrobić to samo, tylko...

Eventy wywołują się wtedy gdy nastąpi dane zdarzenie. Przykładowo event(wydarzenie) BuildingComplete(b) wykona się za każdym razem gdy na mapie zostanie wybudowany budynek.

Przykład zastosowania eventu:
// chcemy aby licznik naliczał nam zabójstwa jednostek nie będących jednostkami...

Moja druga runda researchu pt. sprawdź featury OW . Zaskoczył mnie fakt, iż wciąż nie posiadamy tematu dot. dodawania/zmiany głosów i okrzyków postaci. Rzecz jasna, nie jest to temat tworzony przeze mnie od podstaw, lecz temat oparty na ŹRÓDLE (by włączyć tekst w języku polskim należy pod koniec...

Temat będę uzupełniał w miarę zapotrzebowania oraz ewentualnych własnych doświadczeń. Możecie dzielić się własną wiedzą i uzupełniać temat.

Jak wiadomo, nowa nakładka na patcha oferuje nam dodawanie własnych elementów portretu postaci do gry. Zamieszczę tu krótki poradnik, objaśnienia niektórych...

Bloki Every są bardzo pomocnym narzędziem gdyż ich najważniejszą cechą jest to że wywołują się po upływie danego czasu.

Budowa:
Every CZAS do // nagłówek
begin // rozpoczyna blok
// Kod
end; // kończy blok

Przykład - Chcemy aby kod wykonał się w 10 sekundzie po rozpoczęciu gry:
Every 0$10 do...

Wyświetlanie okien tekstowy jest bardzo często wykorzystywane w prawie wszystkich modyfikacjach. Ma ono zazwyczaj na celu poinformować gracza o jakimś wydarzeniu, popchnąć fabułę do przodu lub zmusić gracza do wyboru jednej z kilku opcji.

Tworzenie struktury okna w pliku tekstowym:...

O tworzeniu postaci było już setki postów jednak użytkownik Szulce prosił mnie żeby mu to wyjaśnij więc postanowiłem się tymi radami podzielić.

Przydatne linki:
Tworzenie postaci w SAIL'u (by NNPlaya)
Tworzenie ludzi (start.txt)
Tworzenie jednostek w edytorze (jest temu poświęcony rozdział)...

Z tego co zauważyłem, wszyscy myślą, że importance to tylko podświetlenie postaci, jeżeli jest wyższe niż 100. Statystyka ta wpływa również na coś innego - priorytet ataku przez przeciwnika.

Przykładowo jeżeli atakujemy 6 jednostkami, które mają importance ustawione na 10, 20, 30, 40, 50 i 60, to...

Oto krótki poradnik Jak stworzyć podstawową imitację logotypu OW dla Ps. Gimp również posiada podobne opcje i otrzymacie porównywalne wyniki.

1. Tworzymy napis najbardziej odpowiednią dla nasz czcionką. Na potrzeby poradnika użyto podstawowej czcionki Tahoma. Bardziej wyszukana czcionka może...

W końcu po wielu dniach męczenia się doszedłem do finału czyli jak zrobić działające intro w formacie AVI. Koniec zabawy PRCiX.

Potrzebne programy :
- Any Video Converter - Download

Co będzie nam potrzebne:
- Film w dowolnym formacie.

1. Tworzymy nasze Intro w dowolnym programie do tworzenia...

To add waves you need to create a wave animation bitmap. Its a 8 bit BMP which basicaly tells OW how waves should flow (See watertest attachment, inside the WaterGBI_Resources.rar is watertest_anim.bmp which shows you how the anim bmp should look like). Waves are effectivly just a red line which...

W Interface otwierasz plik UIDlgAlien i tam szukasz linijek:

- Guzik z profilem, domyślnie na samej górze
- Guzik z kampaniami
- Guzik z multi
- Guzik od potyczki, któryi tak jest niewidoczny
- Guzik od modów.
- Guzik od opcji.
- Guzik Autorzy
- Guzik od wyjścia.

Pod każdą taką linijką...

Zarzuce kodem, może się komuś przyda.

Funkcja zwraca nam wielkość tablicy

Function rozmiar_tablicy( _tablica );
var _x;
begin
Result := 0;
for _x in _tablica do
begin
Result := Result + 1;
end;
end;

dla danych

[ , , , , ];

zwraca

5

Author: shoter

Dobra, rozpykałem jak to działa :)

Dajmy na przykład rozbudowę cywilną (USA i ZSRR):
1 0 42 FE_NonCombat

I teraz co jest czym:

FE_NonCombat - ident, w tym przypadku Factory Extension NonCombat

Liczba pierwsza którą w tym przypadku jest 1, kierując się wg. schematu:
1 2 3
4 5 6
7 8

będzie w...

on UnitDestroyed(un) do
if un = pojazd then
begin
//kod
end;

export pojazd_zniszczony;

// gdzieś w starting
pojazd_zniszczony = false;

on UnitDestroyed(un) do
if un = pojazd then
begin
Say(postac,'Dialog4');
ChangeMissionObjectives('M4');
ChangeMissionObjectives('CEL3');...

Tworzysz plik #POL obok FRA i CZE.
Zachowując oznakowanie oryginału tłumaczysz kwestie.

Omawiając pliki w folderze texts/#język
Plik BNames.wri odpowiada za nazwy baz - tego raczej nie musisz zmieniać.
Plik CharName - wychodząc z założeń dedukcji - nazwy postaci
Plik LangPOL służy do napisów w...

Napisałem taką funkcję, jest krótsza i wygląda lepiej dla oka.
Może się przyda.

Export Function PrepareConvoy(side, num0, num1, num2, area);
var l, un, cargo, cargos; // strona, ilość pojazdów, rodzaj/ilość materiału, area
begin

uc_side := side;
uc_nation := nation_arabian;
cargos := [];

//...

Praktyczne zastosowanie pętli.

Często warto użyć pętli jeżeli daliśmy komuś zadanie pójścia w dane miejsce i nic się nie wydarzy dopóki ta postać tam nie dojdzie. W tym przykładzie postać o identyfikatorze Ludek dostała zadanie pójścia do miejsca x=22 y=11. Gra będzie czekać sekundę i powtarzać...

function ComRepairAndEnterVehicle(unit, vehicle);
begin
ComExitVehicle(unit);
AddComRepairVehicle(unit, vehicle);
AddComEnterUnit(unit, vehicle);
end;

function AddComRepairAndEnterVehicle(unit, vehicle);
begin
AddComExitVehicle(unit);
AddComRepairVehicle(unit, vehicle);...

OW działa w 16 bitach, więc interferuje z super interfejsem marki Microsoft. (przezroczystość wymaga 32 bitów)

Co do pracy w oknie: jeśli chcesz, aby okienko miało pasek, odpal grę z parametrem WINDOWEX lub kombinacją parametrów WINDOW BORDER.
Poza tym, możesz jeszcze skorzystać z klawisza F7 by...

Ło, czemu nikt mnie nie zapyta? xD

Po 1:
- Kolor trawy zmieniasz dzięki colors.txt ( skrót ctrl + shift + 8 ), przydaje się tu opcja add color.

Po 2:
- Panel trawy:

Po 3:
- Develop Info:

Author: Serpent
Topic:

Z pomocą Gota udało się wynaleźć taki kod w którym dana jednostka z identem zmienia stronę(side) na stronę jednostki którą do niej podeszła, jednostka ta nie musi mieć identu.

// a1 = ident jednostki którą zmienia stronę

every 0$1 marked 001 do
var side,units,un;
begin
enable;
for side=1 to 8...

W SAIL (opcja pierwsza):

every 0$1 trigger IsDead(id_postaci) do
YouLost('id_przegranej');

W SAIL (opcja druga):

on UnitDestroyed(un) do
begin
if un = id_postaci then
YouLost('id_przegranej');
end;

W pliku .WRI

| id_przegranej
Treść przegranej.

Author: ph3nom
Topic:

Hi, I have prepared a SAIL function to find a unit who is nearest to the area.
Using: NearestUnitToArea(units:plist, area:integer)

export function NearestUnitToArea(list, area);
var i, n;
begin
n:=[];
for i:=1 to list do
begin
if not (n = 0) then
begin
if n > GetDistUnitArea(list , area)...

every 0$4 trigger IsDying(psi) or IsDead(psi) do
begin
YouLost('DEDPING');
end;

Niezależnie od tego, czy postać zyje, czy nie, po rozpoczęciu misji wywala ekran przegranej.
Kiedyś dawałem sobie z tym radę w dziwny sposób, mianowicie stawiając po every inną liczbę, lub po begin dawając...

Prosty kod:

export ident1;

export function postac_z_lvl_15;
begin
PrepareHuman(1,class_soldier,15); // 15 to lvl15
hc_importance:=0;
hc_name :='';

uc_nation:=NACJA;
uc_side:=STRONA;

hc_noskilllimit := true;
ident1=CreateHuman;
PlaceUnitXY(ident1,x,y,false);
end;

Author: Serpent...

Minutę na to popatrzyłem i już wiem co od czego jest :) Pokaże na przykładzie kilku pierwszych przycisków:

1 0 0 Move
2 0 1 Attack
3 1 4 Hold
3 2 5 Free

Pierwsza liczba to kolejność jej występowania. Jak pewnie zauważyliście pierwszy jest odpowiedzialny za kolejność przycisków (pierwsza linia...

var extensions;

on UpgradeComplete(b) do
begin

If GetBType(b) = b_factory then
begin
extensions = GetExtPositions(b);

ComBuild(Build_Team, b_ext_noncombat, extensions , extensions , 1);
AddComBuild(Build_Team, b_ext_track, extensions , extensions , 3);
AddComBuild(Build_Team, b_ext_gun,...

every 0$1 trigger GetLives(enemy1)<1000 or GetLives(enemy2)<1000 {... itd.} do
begin
//kod
enable;
end;

ewentualnie możesz skorzystać z eventów.
Ewentualnie, jeżeli jednostka wroga ma mieć czerwony pasek życia, użyj:

on UnitGoesToRed(un) do
begin
// kod
end;

Oczywiście ta jednostka nie...

Zmajstrowałem funkcję, która być może komuś się przyda. Służy ona do wycofania jednostki poza teren walki.

export function ComRetreat(u);
var x, y, d;
begin
ComTurnUnit(u, NearestUnitToUnit(FilterAllUnits( ), u));
d = GetDir(u);

d = d - 3; if d 15;
end;

Można zrobić tak, aby kod omijał...

Postanowiłem napisać tego tutka gdyż wiele osób chce to zrobić, a ja to zrobiłem dzięki Stu ;p

Wystarczy, że zamiast umieścić utwór(musi być w .wav) w folderze: mods/nazwa_moda/sound/hudba
umieszczamy w: mods/nazwa_moda/hudba
po spakowaniu cieszymy się nową muzyką w menu ;)

W podobny sposób można...

Założenia: ekipa jest listą jednostek poruszających się w konwoju kierowanym przez CPU.
Cel: zatrzymywanie się konwoju po spotkaniu gracza i pozwolenie CPU na podjęcie działań. Po ustaniu zagrożenia powrót do poprzednich zajęć.

var ekipa;

on Contact(a, b) do
var i, TaskLists, side, ekipa_side;...

Poprawiłem kilka twoich błędów i zoptymalizowałem kod:

var bazy;

every 0$1 trigger bazy = 5 do
begin
//koniec
end;

on BuildingCaptured(b, s, u) do
if s = side_wroga and GetBType(b) in then
bazy := bazy + 1;

Author: Gothuk & Radzio
Topic:

Posiedziałem nad tym już jakiś czas temu (z pół roku), ale nie publikowałem. Jest to prosty kod (z 3-4dni aby działał się namęczyłem :D) aby uzsykać Query podobne w działaniu do tego znanego z Gothic II:NK w sekwencji rozmów z Quarhodronem tzn. odpowiadamy na szereg pytań (na wszystkie trzeba...

a po co ma sie every wykonywac jak juz nie bedzie bomby? ^^

edit. dobra drobna poprawka

every 0$1 trigger IsOK(b1) do
var unit;
begin
unit := NearestUnitToUnit(side_wroga, b1) ;
if (GetDistUnits(b1, unit)<10) then
AddComAttackUnit(b1, unit);
end;

Author: Gothuk
Topic:

1) Usuwamy starą, przydeptaną trawę za pomocą narzędzia Delete grass
2) Kładziemy nową za pomocą narzędzia Grass tool