[Omega] Silnik Map ...

[Rafa]

Edit :

Chciałbym zrobić Mape która bedzie sie składała z kratek o wymiarach 32x32 pixele ..
Mam Procedure rysowania takiej jednej klatki na ekranie (dla okreslonych współrzędnych X ,Y ) .
I mam taki problem , że chce narysować Całą mape z takich kratek , a kopiowanie tej procedury mija sie z celem .
Próbuje robić jakieś pętle ale to [b]nieoto pojęcia jak takie cos zrobic .

[b]Niechce aby to ktos robił za mnie .. chce tylko otrzymac ewentualne wskazówki bądz linki do ciekawych stron o tej tematyce .

Z góry dziękuje za pomoc ...

[KKKas]

Nie wiadomo o co Tobie chodzi... pisz jasno.

Poza tym, to najpierw sobie trochę "pokmiń", a dopiero później pisz na forum. Wychodzi na to, że ktoś ma niby za Ciebie wykonywać pracę...

[Iskar]

Jak poprzednik, nie rozumiem o co ci chodzi, jaki masz problem?

[Rafa]

Ja wiem ze ja pisze jakies rzeczy z kosmosu ale [b]nieumiem tak fachowo okreslić tego co mam na mysli


Chodzi mi o zbudowanie mapy z "Kratek" o wymiarach 32x32.
I [b]niemoge sobie poradzic z Funkcjami rysowania mapy
Moja Procedura rysuje jedeną "kratke" w współrzędnych ekranu X i Y ...
Całość opiera sie na OmegaSprite.


Klasa TKlatka to własnie obrazek o wymiarach 32x32;
Delphi

1. 
   
2. Type
   
3. 
   
4. TKlatka =class(TSprite)
   
5. procedure tworz;
   
6. End;
   
7. 
   

To Procedura tworzenia takiej klatki :
Delphi

1. 
   
2. Procedure TKlatka.Tworz;
   
3. 
   
4. begin
   
5. 
   
6. with TKlatka.Create(Form1.Omspr) do begin
   
7. Name := 'Klatka';
   
8. x:=0;
   
9. y:=0;
   
10. Image:=form1.OmegaImageList.ImageList.Items[1];
    
11. 
    
12. end;
    
13. 
    
14. end;
    
15. 
    

A to rysowanie :
Delphi

1. 
   
2. procedure TForm1.OmegaTimer(Sender: TObject);
   
3. 
   
4. begin
   
5. 
   
6. omegascreen1.BeginRender;
   
7. omegascreen1.ClearScreen(0, 0, 0);
   
8. omegaimagelist1.BeginDraw;
   
9. Klatka.tworz;
   
10. omegasprite.Draw;
    
11. omegaimagelist.EndDraw;
    
12. omegascreen.EndRender;
    
13. end;
    
14. 
    

To wszystko mi rysuje na komponencie OmegaScreen Obrazek z Listy ImegeList [1] w górym lewym rogu ekranu (X=0 , Y=0).
I moj problem polega na tym , że chce tak usprawnic ten kod aby rysowało mi powiedzmy 10 takich kratek . Ale było to wszystko zgrabnie poukładane w jakiejs tablicy ... i tu sie zaczynają schody

[KKKas]

Może użyj takiego skomplikowanego narzędzia programistycznego jakim jest pętla ?
A jak masz z nimi problemy, to polecam: http://tinyurl.com/pt99u

[Toster]

oczy mi lzawia....

[5corpio]

bo wiosna jest i różne drzewa i krzewy pylą
Polecam kropelki

[Iskar]

Nie no litości. Człowieku równie dobrze zapytaj nas, jak skompilować projekt w Delphi. Zamykam, a ty się bierz za podstawy!