Tilesets

Evo zanima me osnovni princip prikaza tileseta u visual basicu odnosno ireni, znad da treba u txt fileu bit zapisano gdje ce koji tile biti, odnosno dali se preko njega moze hodat (collision) itd. znaci kako bi se to trebalo pozvat u visual basicu te prikazat u ireni?
Hvala!

Yo mate, baci primjer tocno onoga sto sam tebi pomogao...

Evo mate ima tocno ono sto trazis
samo sto on po mojoj preporuci koristi .ini fajl za mapu jer ju je lakse preko gotovih funkcija citati i stvarati.

Evo tek sad vidim... bacit ću code odmah sutra..(da sad ne kopam)

m4t3 wrote:

Evo tek sad vidim... bacit ću code odmah sutra..(da sad ne kopam)

E super jedva cekam! hvala

U jebiga.. skroz zaboravih bacit code... to je zato jer neman vrimena 70% toga obaviti ?to moran Stavin animaciju da se rendera, a to traje...
Evo sad ću poći naći i kopirati

Ovo ide u vrh modula
Public Mapa(37, 37) As Integer

Ovo je za otvaranje mape
Dim iX As Integer, iY As Integer
For iX = 3 To 36
For iY = 5 To 25
Mapa(iX, iY) = I2DEx.INIRead("map", "x" & iX & "y" & iY, "maps/map01.ini")
Next iY
Next iX


Ovo je za renderanje mape (prikaz na formi)
Dim iX As Integer, iY As Integer
For iX = 3 To 36
For iY = 5 To 25

If Mapa(iX, iY) = 1 Then I2D.Draw DXT.Blok, iX * 16, iY * 16, 16, 16

Next iY
Next iX





Nadam se da razumi?... slobodno pitaj ako ?to nije jasno

E hvala! Idem proucavat.

Stalno mi dolazi greska pri citanju file-a, kako postavim u file sto treba program procitati odnosno kako da slozim tu u datoteku (znaci svaki broj jedan tile)?

Sorry ako te mucim.

Nije muka, zaboravih ti napisat...

Mapa (ini fajl) ima ovaj oblik

[map]
x3y5=1
x3y6=1
x3y7=1
x3y8=1
x3y9=1

Znači ako je mapa =1 (npr:x3y5=1)
onda ti crta puni blok (recimo plava boja)
(npr: If Mapa(iX, iY) = 1 Then I2D.Draw DXT.Blok, iX * 16, iY * 16, 16, 16 )
Znači, ovaj gori code će crtat DXT.Blok veličine 16x16 pixela
Isto tako ako ?eli? nacrtat npr travu a ne blok onda mora? imati DXT.Trava (16x16pixela)
i onda će ti u mapi pisat
x3y5=0
A tamo di se rendera (ispisuje na ekran) ide ovako:
If Mapa(iX, iY) = 0 Then I2D.Draw DXT.Trava, iX * 16, iY * 16, 16, 16


Ako ti jo? ne?to nije jasno pitaj