:Main
//{ "Main/Startup(once)"
PLAY ACTION LIE // lie down at start
WAIT
//}
// clear globals and sensors
CLR SENSORS
// Main Loop
WHILE 1 = 1
// simple Face change only
IF Face <> 0 THEN
CALL Face_Found_Handler
SET Face 0
ENDIF
WEND
///////////////////////
// Face
:Face_Found_Handler
//{ "AIBO sees/Human Face (seen)"
PLAY ACTION KICK 30 1000 // Kick Left
//}
RETURN
Description:
When AIBO sees a human face, he will raise his left arm.