Cambiando records en Winlinez

[h0ax]

Con este código lo que se pretende es modificar los records de un juego. El juego en sí es uno muy simple, pero este algoritmo sirve de base para hacer lo mismo con otras aplicaciones que que almacenen sus datos en archivos separados. Para que este código resulte efectivo, la única condición que debe existir es que el archivo de los rercords (winlinez.res) esté en la misma dirección del programa. De todas formas, en este código falta un simple detalle, es algo más bien del juego, se trata de...

Código: Seleccionar todo

Private Sub Command1_Click()
Dim nom As String * 16 'hasta 16 es donde llega la cadena que guarda el nombre.
Dim rec As Integer 'El record en este caso es un número.
Dim cont As Integer
cont = 0

Open (App.Path & "\winlines.res") For Binary As #1 'Se abre el archivo de forma binaria.
  For i = 2 To 150 Step 16
    nom = Text1(cont).Text 'La variable nombre toma el nombre del cuadro de texto
    Put #1, i, nom 'Se escribe el nombre en el archivo
    cont = cont + 1
  Next
  cont = 0
  For j = 15 To 159 Step 16
    rec = Text2(cont).Text 'La variable rec toma el record del cuadro de texto
    Put #1, j, rec 'Se escribe el record en el archivo
    cont = cont + 1
  Next
Close #1
End Sub

Se crean diez TextBox para poner los nombres y otros diez para los records
Private Sub Form_Load()
For i = 0 To 9
Text1(i).Text = "Alien." 'Se escribe algo por defecto
Text2(i).Text = 100 'Se pone un record inicial por defecto
Next
End Sub 

En dependencia de la aceptación que tenga este tipo de código, en próximas ediciones trataremos de buscarle solución a otros juegos.