Foro de elhacker.net

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?  :-(