Nasza Grupa

dyschemist

Pisze symulator bitew.

Mama po czwórne zagnieżdzenie w typach. Trzymać kciuki !!!!

edit : yaeh Very Happy

wczytuje już armie :-]
lol 101-szy post Very Happy

edit 2: jutro rano testy czy dobrze liczy siły oddziałów. Zostaje prowadzenie bitwy jesli się sprawdzi. Na razie 400 linijek Smile

a już moge wprowadzić do ... szybki rachunek ... do 240 tys zołnierzy (2400 oddziałów każdy o danych parametrach) :-] a w razie czego moge nieograniczenie niemal rozciagnac to :-]

dyschemist

Kurde kto umie programować ten pojmie dowcip.
Mam na zmianę rekordy i tablice w typach

-----------------------------------deklaracje typow ----------------------------------
Type Jednostka Is
Record
--jednostka czyli oddzial;
Rodzaj : Integer Range 1 .. 16;
Liczba : Integer Range 1 .. 100;
Ranga : Integer Range 0 .. 10;
Morale : Integer Range 1 .. 100;
End Record;

Type Wojsko Is Array (Positive Range 1 .. 40) Of Jednostka;
Type Armia Is
Record
Dowodca : Integer Range 0 .. 10;
Wojska : Wojsko;
Ilosc : Integer;
End Record;
Type Strona Is Array (Positive Range 1 .. 13) Of Armia;

Teraz przyjrzyjcie się takiemu if'owi Razz

For I In 1..Ilosc_A_Obr Loop
For J In 1..Obronca(I).Ilosc Loop
If Obronca(I).Wojska(J).Rodzaj In 13..16 Then
Put("Ale tu wystepuja okrety morskie ?? nie beda one mialy sily bojowej !!");
exit;
End If;
End Loop;
End Loop;

Gość

i co w tym smiesznego...?

from Kowal ... nie przeczytałeś powyższego prologu Razz

drogi gościu

dyschemist

no okey jestem po testach ...było gorąco i wiem już czemu nie pisze się programów po nocy ... wklepałem 12 zamiast 16 w typach i był index error pod koniec programu Sad

przewertowałem w ch... kodu by znaleźć bład w deklarcji typów Razz

ale działa i to się liczy. MOge teraz zacząc pisać fazy bitwy

dyschemist

No to fazy walk skonczone :-]

wyszło ich parę :-]
-Ostrzal katapult
-Ostrzal lucznikow
-Ostrzal karakow
-Ostrzal statkow katapultami
-Zwarcie Piechoty
-Zwarcie Jazdy
-Natarcie Jazdy na pikinierow
-Natarcie morskie
-Atak Frontowy
-Oskrzydlenie
-Podjazd konny
-Abordaz
-Atak na brame

dyschemist

Uwaga - Prosze zgłaszać propozycje - jeszcze jakis faz walki, najchetniej na gadu - dzis już nie pisze a jutro jak zaczne pisac chronologie to temat bedzie zamkniety. Ale zaczne od takich procedurek jak detransformacja czy funkcja czy_ucieczka

dyschemist

Deformacja(formacja(i).wojsko(j).przydzial).wojska(tablica(Formacja(I).Wojsko(J).Przydzial)).ranga:=
-max(-10,formacja(i).wojsko(j).ranga+formacja(i).wojsko(j).mestwo);

Beka jak dla mnie Razz