Otro Problema Blitz

[JMAA]

Tengo este código:

Código [Seleccionar] Expand

For juan = 1 To JugadoresCPU
j.Civilizacion = New Civilizacion
j\Numero% = juan
j\Indice% = Rnd(1,12)
Select j\Indice%
Case 1
j\Nombre$ = "Nyapaes"
Case 2
j\Nombre$ = "Anglonia"
Case 3
j\Nombre$ = "Babonia"
Case 4
j\Nombre$ = "Nilosia"
Case 5
j\Nombre$ = "Asiatica"
Case 6
j\Nombre$ = "Ruski"
Case 7
j\Nombre$ = "Niponia"
Case 8
j\nombre$ = "Romania"
Case 9
j\nombre$ = "Grequia"
Case 10
j\nombre$ = "Estados Unidos de Aquerima"
Case 11
j\nombre$ = "Franquia"
Case 12
j\nombre$ = "Germania"
End Select
Select j\Indice%
Case 1
j\Descripcion$ = "Mejoras: Agricultura y Navegacion. Desarrollo: Alfareria."
Case 2
j\Descripcion$ = "Mejoras: Riqueza y Navegacion. Desarrollo: Escritura."
Case 3
j\Descripcion$ = "Mejoras: Construccion e Infanteria. Desarrollo: Alfareria."
Case 4
j\Descripcion$ = "Mejoras: Agricultura y Navegacion. Desarrollo: Enterramiento Ceremonial."
Case 5
j\Descripcion$ = "Mejoras: Agricultura e Infanteria. Desarrollo: Alfareria."
Case 6
j\Descripcion$ = "Mejoras: Riqueza y Ciencia. Desarrollo: Acunyacion."
Case 7
j\Descripcion$ = "Mejoras: Agricultura y Riqueza. Desarrollo: Alfareria."
Case 8
j\Descripcion$ = "Mejoras: Construccion y Riqueza. Desarrollo: Acunyacion."
Case 9
j\Descripcion$ = "Mejoras: Construccion y Ciencia. Desarrollo: Metalurgia."
Case 10
j\Descripcion$ = "Mejoras: Ciencia e Infanteria. Desarrollo: Acunyacion."
Case 11
j\Descripcion$ = "Mejoras: Navegacion e Infanteria. Desarrollo: Acunyacion."
Case 12
j\Descripcion$ = "Mejoras: Infanteria y Navegacion. Desarrollo: Metalurgia."
End Select
Select j\Indice%
Case 1
j\Gobernador$ = "Rodriguez Pescadero"
Case 2
j\Gobernador$ = "Reina Isabel XII"
Case 3
j\Gobernador$ = "Nabocodosur"
Case 4
j\Gobernador$ = "Ramises V"
Case 5
j\Gobernador$ = "Chuang Ching Chung"
Case 6
j\Gobernador$ = "Ilich Ulianovich Linin"
Case 7
j\Gobernador$ = "Mutsobitsi Imokawa"
Case 8
j\Gobernador$ = "Julii Quaesar"
Case 9
j\Gobernador$ = "Pedrocles"
Case 10
j\Gobernador$ = "Abe Locohn"
Case 11
j\Gobernador$ = "Jacques Chubaque"
Case 12
j\Gobernador$ = "Arrolf Himmler"
End Select
j\Oro% = 50 * Dificultad1P
j\PoliticaID% = P_despo
j\Poblacion% = 0
Next

Se supone que todo esto pone los nombres, descripciones, etc. a los jugadores de la IA, pero algo falla: no salen. ¿Hay alguna manera de llamar lo mismo de una Field o variable de type que de la variable puesta en el For?

[[Vil]]

[edito] Habia leido mal tu codigo y habia puesto una tonteria, ahora lo miro de nuevo
[reedito] No te se decir que falla, eso parece estar bien. Mete un stop ahi en medio y debugea a ver si no te falla alguna tonteria. Tambien puede que lo que estes haciendo mal es leer a posteriore los valores de la estructura y no el introducirlos

[zupervaca]

Mejor que select y cases usa arrays.

[JMAA]

No es eso, veamos, lo que quiero, por ejemplo, es imprimir los datos de un jugador de la IA (la civilizacion a la que pertenece, el nombre de su gobernador...), pero el problema es que así no salen esos datos. Me pregunto yo, ¿como los saco?

Bueno, mejor pruebo lo de los arrays a ver si los saco.

[JMAA]

Ya arregle el problema. ¿Como? Sustituyendo el Type por unos Arrays.

Gracias de todas formas por el soporte. :)