Gra:

Cześć... Wziąłem się za napisanie niby prostej gierki, jaką są popularne statki.

Niestety poziom trudności wykonania tego zadania jak dla mnie jest dosyć duży... Więc szukam pomocy czyjejś w napisaniu tej gierki. Jeżeli ktoś byłby chętny, no to niech odpowie :)

Statki nie są za bardzo oryginalne.
Jak chcesz to morzemy zrobić np: warcaby (multi, single, najlepsze wyniki) i kupa bajerów!!!

ja moge pomoc.

ps.fantom, masz 2 posty pod rzad....

eheh, życze powodzenia ;p

Fantom prosze Cie:
wez dokoncz jeden projekt a pozniej sie bierz za nastepny

1. wlasny jezyk programowania
2. zaawansowany pait
3. zaawansowany edytor html
4. zaawansowane warcaby ?
   i piszemy "możemy" a nie "morzemy"

lechu ja mam ustawione: od 1 godz. do 2 godz. (dziennie) na <font color="red">karzdy</span> projekt, a w tym czasie zrobię sporo (chyba że temperatura przekracza 25 stopni to lece na stadion i gram w piłę...)

Statki nie są za bardzo oryginalne.
Jak chcesz to morzemy zrobić np: warcaby (multi, single, najlepsze wyniki) i kupa bajerów!!!

Najpierw chciałbym coś prostszego właśnie takiego jak Statki. Tylko potrzebuję pomocy, bo sam sobie nie daje rady :(

Witam
Moze ja cos napisze:

Mamy sobie plansze:

OOOOOOO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OxxxxxxO
OOOOOOO

wiec jest to prostokat o wymiarach 5x6 oznaczone x. O to obwodka

1. Rozmieszczanie statkow:
   Musimy wybrac najpierw w jakim punkcie statku bediemy go ustawiac na planszy:

XXXP - czteromasztowiec, p to miejsce w ktorym go umiescimy wedlug statku. (mozna roznie XXPX, XPXX,PXXX) i wedlug tego liczymy czy mozna ustawic na planszy. Tu opisze dla XXXP

w prostokacie 5x6: klikamy na punkt 1,2 wiec wedlug funkcji sprawdzamy:

Type
statek = record
trafiony: boolean;
dlugoscstatku: byte;
end;

...

var
dlugoscstatku, i: integer;
polozenie: Tpoint;
Plansza: Array[1..5,1..6,1..2] of statek;

begin
for i:=dlugoscstaku to 1 do
begin
if polozenie.x - i

Na tej stronce jest kod statkow, poszukaj i poczytaj....