01/04/2008, 09:35
|
| | | Fecha de Ingreso: enero-2008 Ubicación: España (Barcelona)
Mensajes: 12
Antigüedad: 16 años, 4 meses Puntos: 0 | |
| Re: Mover personaje por laberinto
Ok gracias por las respuestas voy a "re"revisar el codigo entero aunque no encontré el problema anteriormente.
La parte que me da error es esta
Código:
If (Mid(Coordenada.Caption, 1, 1) + X >= 1) And (Mid(Coordenada.Caption, 1, 1) + X <= 15) And (Mid(Coordenada.Caption, 3, 1) + Y >= 1) And (Mid(Coordenada.Caption, 3, 1) + Y <= 8) Then
If T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 3 Then
T(Mid(Coordenada.Caption, 1, 1), Mid(Coordenada.Caption, 3, 1)) = 3
T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 1
Coordenada.Caption = Mid(Coordenada.Caption, 1, 1) + X & "," & Mid(Coordenada.Caption, 3, 1) + Y
Redibujar
Else
If T(Mid(Coordenada.Caption, 1, 1) + X, Mid(Coordenada.Caption, 3, 1) + Y) = 2 Then
MsgBox "¡Felicitaciones acabas de completar el nivel!", , "Fin del juego"
Timer1.Enabled = False
End If
End If
End If
End If
End Sub
|