Hola, yo tengo un Txt asi miren;
00000
00010
10000
00100
00000
Cada numerito representaria un tile
Bueno, el 0 Representaria que el Personaje puede caminar, y el 1 significa que esta bloqueado, osea que no puede caminar.
Bien, ahora, el problema, soy bastante principiante en esto, y tengo entendido que se podria hacer con una matriz bidimencional, pero nose ni por donde empezar ;S
lo que querria hacer es leer el .txt y si dice 1, el personaje no puede avanzar.
El personaje ya lo programe, lo que quisiera es que lea linea x linea y si dice 1 que el personaje no pueda avanzar, lo que nose como seria para bloquear.
Desde ya muchas Gracias
Hola!
Fíjate el siguiente código: http://www.megaupload.com/?d=RM6BEVQ2
Lo hice hace tiempo, pero creo que puede darte algunas ideas...
Saludos!
Gracias !, ahi lo miro y te cuento como me fue ;D
Fíjate que los "mapas" están en binario, pero puede adaptarse para hacerlos en ASCII...
Espero te sea útil...
Saludos!
Bien, ya he conseguido dibujar los tiles:
Codigo:
Sub DibujarMapa(Pic As Control, TT As Single)
CantidadX = 10
CantidadY = 10
TT = 32
Dim i As Integer, Ancho As Single, Alto As Single
Ancho = CantidadX
Alto = CantidadY
For i = 0 To Ancho
Pic.Line (i * TT, 0)-(i * TT, Alto * TT)
Next i
For i = 0 To Alto
Pic.Line (0, i * TT)-(Ancho * TT, i * TT)
Next i
End Sub
Y Dibuja la Cantidad de tiles de alto (CantidadX) y Cantidad de Tiles de Ancho (CantidadY) y de 32 pixeles cada tile.
Bien, hasta ahi todo bien.
pero tengo 2 dudas.
-Como puedo Marcar cuantos Tiles ocupa el personaje? (quisiera que ocupe solo 1)
-Como puedo Saber en que tile esta el Personaje?
EJEMPLO:
If Personaje.TileActualX = 10
With Personaje
.Muerto = True
End With
End If
Algo asi kisiera yo
Osea Seria nombrar a los CantidadX del 1 al 10 (Obviamente si en CantidadX pongo 32, quisiera nombrarlos del 1 al 32
Y con los CantidadY seria lo mismo
Espero que me puedan Ayudar ;D
Nadie me puede ayudar? :-(