LCSI
 
Biblioteca de Proyectos
Packmen: Consejo Logo

En este juego hay muchos packmen que atacan a la tortuga. ¿Cómo saben ellos que han chocado con la tortuga?

Cada packman está programado de la siguiente manera:
ad vel verificar-choque

El procedimiento verificar-choque verifica constantemente la distancia entre un packman y la tortuga. Si la distancia entre la tortuga y el packman es menor que 20 pixels, el packman supone que ha chocado con ella.

para verificar-choque
si (distancia "tortuga) < 20 [chocar]
fin

para chocar
fijachoques choques + 1
pide "tortuga [a-la-largada]
lanza [ups]
fin