RatonMorph-accion.st

'From Squeak2.7 of 5 January 2000 [latest update: #1782] on 4 November 2000 at 5:27:07 pm'!


!RatonMorph methodsFor: 'accion' stamp: 'pa 11/4/2000 16:53'!
estrategia
	"Devuelve el nodo al que le conviene ir segun una estartegia"
	| vec |

	( (  vec _ (self dondeEstoyVecinos)asArray)isEmpty )     "obtiene los vecinos y los guarda en un array"
		ifTrue: [self error: 'El nodo est‡ aislado']              "si no hay vecinos env’a un error"
		ifFalse: [											"ahora toma una decisi—n"
			^vec at:1.
	]      
	
	! !