FilingOut class variable data?

Lic. Edgar J. De Cleene edgardec2001 at yahoo.com.ar
Thu Jun 26 22:39:50 UTC 2003


Jimmie:

Nice read you again.

I attach metohds I use in a game, you could have a morph with your variables
inside and send or retrieve auxiliary data.

Sorry if names are in Spanish, but sure you can get the idea.

grabaEstado
    | outputStream |
    outputStream _ ReferenceStream fileNamed: 'estado.teg'.
    outputStream nextPut: losJugadores.
    outputStream nextPut: cartasOrden.
    outputStream nextPut: jugadoresVivos.
    outputStream nextPut: playerTurn.
    outputStream nextPut: ronda.
    outputStream nextPut: numCarta.
    outputStream nextPut: cambiosTotales.
    1
        to: 42
        do: [:pais |
            outputStream nextPut: (submorphs at: pais) ejercitos.
            outputStream nextPut: (submorphs at: pais) deQuienSoy].
    outputStream close

leerEstado
    | inputStream |
    inputStream _ ReferenceStream fileNamed: 'estado.teg'.
    losJugadores _ inputStream next.
    cartasOrden _ inputStream next.
    jugadoresVivos _ inputStream next.
    playerTurn _ inputStream next.
    ronda _ inputStream next.
    numCarta _ inputStream next.
    cambiosTotales _ inputStream next.
    1
        to: 42
        do: [:pais |
            (submorphs at: pais)
                ejercitos: inputStream next.
            (submorphs at: pais)
                deQuienSoy: inputStream next].
    inputStream close.

Cheers.
Edgar



More information about the Squeak-dev mailing list