Recimo da pocnem da pravim igru u delphiju (kao npr Age of wonders , sto je uradjena ) da li treba da napisem ceo engine , ili mogu da se oslonim na proste promene slicica kao sprajtova ? Fa li delphi moze da prikaze sliku sa transparentnom pozadinom ? Kako da uradim , recimo , lik , u izometrijskoj pozadini , i kad se krece , da ne vuce za sobom kvadrat iste boje , vec da se pozadina ispod njega menja zajedno sa okolinom ?
Igra
Zaključano
Zakačeno
Odgovor na sve u vezi pisanja igrica u delphiju moze ti dati GameMaker
clan delphikluba mozesh procitati njegoe tutorale o igricama na
http://www.delphiklub.org/skola/Tutorali.html
shto se tice transparentnih slicica mogu da se prikazuju u delphiju a kako napisacu u sledecem postu ..
clan delphikluba mozesh procitati njegoe tutorale o igricama na
http://www.delphiklub.org/skola/Tutorali.html
shto se tice transparentnih slicica mogu da se prikazuju u delphiju a kako napisacu u sledecem postu ..
Delphijeva komponente image list skladishti bitmape ali ima mogucnost i da simulira providnu pozadinu.Zapocni nov projekat i na njega smesti komponentu Image list. Height i Width na 32.Dva puta klikni na Image list i otvorice ti se editor zatim na Add i odaberi ikonu ciji lik nije pravougaonog oblika , Otvori okvir Transparent color i odaberi boju koja predstavlja pozadinu ikone.Color obrazca postavi na $B3B3B3. U OnCreate obrasca upishi :
PtList := TList.Create;
u private declaration:
Ptlist : TList;
u OnMouseUp :
VAR R : TRect;
begin
Ptlist .Add(Pointer(SmallPoint(X, Y)));
R := Bounds(X, Y, 32, 32);
InvalidateRect(Handle, @R, True);
end;
u OnPaint
VAR N : Integer;
begin
FOR N := 0 TO PtList.Count-1 DO
WITH TSmallPoint(Ptlist[N]) DO
ImageList1.Draw(Canvas, X, Y, 0);
end;
Iz knjige Delphi za neupucene Neil J. Rubenking
[Ovu poruku je menjao Djuki dana 04-16-2001 u 02:49 PM GMT]
PtList := TList.Create;
u private declaration:
Ptlist : TList;
u OnMouseUp :
VAR R : TRect;
begin
Ptlist .Add(Pointer(SmallPoint(X, Y)));
R := Bounds(X, Y, 32, 32);
InvalidateRect(Handle, @R, True);
end;
u OnPaint
VAR N : Integer;
begin
FOR N := 0 TO PtList.Count-1 DO
WITH TSmallPoint(Ptlist[N]) DO
ImageList1.Draw(Canvas, X, Y, 0);
end;
Iz knjige Delphi za neupucene Neil J. Rubenking
[Ovu poruku je menjao Djuki dana 04-16-2001 u 02:49 PM GMT]
Moj prijatelj trazi ljude, zeli da pravi igrice...verujte ima dovoljno love da finansira... potrebni su mu programeri
Potpis
www.aikstednja.rs mesec stednje 2010/ www.snajper.rs servis za media planiranje na Internetu
Citat:
torbica wrote:
Moj prijatelj trazi ljude, zeli da pravi igrice...verujte ima dovoljno love da finansira... potrebni su mu programeri
Moj prijatelj trazi ljude, zeli da pravi igrice...verujte ima dovoljno love da finansira... potrebni su mu programeri
Jel to u Delphi-ju trazi ? ???
Potpis
I'm taking over a TV Network...
Finish up honey and get to sleep...
Finish up honey and get to sleep...