Hi Edgar!

Seems that my news reader has missed your mail until today!!!!

Sorry by the delay and really thanks you very much by your help.

Gracias Edgar!

Lic. Edgar J. De Cleene wrote:
> Germán:
> You should receive same in Spanish, but someone could find useful.
> 
>>From TEG (complete game 3.6Mb and  code is in SqueakRos
> http://ar.groups.yahoo.com/group/squeakRos/)
> 
> grabaEstado
>     | t1 |
>     t1 _ ReferenceStream fileNamed: 'estado.teg'.
>     t1 nextPut: losJugadores.
>     t1 nextPut: cartasOrden.
>     t1 nextPut: jugadoresVivos.
>     t1 nextPut: playerTurn.
>     t1 nextPut: ronda.
>     t1 nextPut: numCarta.
>     t1 nextPut: cambiosTotales.
>     1
>         to: 42
>         do: [:t2 | 
>             t1 nextPut: (submorphs at: t2) ejercitos.
>             t1 nextPut: (submorphs at: t2) deQuienSoy].
>     t1 close
> 
> leerEstado
>     | t1 |
>     t1 _ ReferenceStream fileNamed: 'estado.teg'.
>     losJugadores _ t1 next.
>     cartasOrden _ t1 next.
>     jugadoresVivos _ t1 next.
>     playerTurn _ t1 next.
>     ronda _ t1 next.
>     numCarta _ t1 next.
>     cambiosTotales _ t1 next.
>     1
>         to: 42
>         do: [:t2 | 
>             (submorphs at: t2)
>                 ejercitos: t1 next.
>             (submorphs at: t2)
>                 deQuienSoy: t1 next].
>     t1 close.
> 
> Same code for sending objects to other TEG instanc3e in other (or same)
> computer network connected.
> 
> askMyData
>     | estadoTEG losPaises losPaisesData elPais soyDe nuevoColor |
>     estadoTEG _ activeSocket getObject.
>     self
>         losJugadores: (estadoTEG at: 1).
>     self
>         cartasOrden: (estadoTEG at: 2).
>     self
>         ronda: (estadoTEG at: 3).
>     self
>         numCarta: (estadoTEG at: 4).
>     self
>         cambiosTotales: (estadoTEG at: 5).
>     losPaises _ estadoTEG at: 6.
>     1
>         to: 42
>         do: [:pais |
>             losPaisesData _ losPaises at: pais.
>             elPais _ self submorphs at: pais.
>             elPais
>                 ejercitos: (losPaisesData at: 1).
>             elPais
>                 deQuienSoy: (losPaisesData at: 2).
>             soyDe _ elPais deQuienSoy.
>             nuevoColor _ (self losJugadores at: soyDe) miColor.
>             elPais redrawInColor: nuevoColor].
> self playerTurn: ( estadoTEG at: 7).
> 
> sendMyData
>     | estadoTEG losPaises elPais losPaisesData |
>     serverOrClient = #server
>         ifTrue: [
>             activeSocket _ socketList at: playerTurn].
>     (activeSocket isValid
>             and: [activeSocket isConnected])
>         ifTrue: [estadoTEG _ OrderedCollection new.
>             estadoTEG add: self losJugadores.
>             estadoTEG add: self cartasOrden.
>             estadoTEG add: self ronda.
>             estadoTEG add: self numCarta.
>             estadoTEG add: self cambiosTotales.
>             losPaises _ Array new: 42.
>             1
>                 to: 42
>                 do: [:pais |
>                     elPais _ self submorphs at: pais.
>                     losPaisesData _ Array new: 2.
>                     losPaisesData at: 1 put: elPais ejercitos.
>                     losPaisesData at: 2 put: elPais deQuienSoy.
>                     losPaises at: pais put: losPaisesData].
>             estadoTEG add: losPaises.
>             estadoTEG add: self playerTurn.
>             activeSocket sendObject: estadoTEG].
>     [activeSocket dataAvailable] whileFalse.
>     self askMyData
> 
> 
>