#A4# #oEspacio: cEspacio# #oObjetos: TList# #oOV1: cObjetoVolador# #oOV2: cObjetoVolador# #oRotos: TList# #oOVRoto: cObjetoVolador# #crear# #*[Para cada objeto de oObjetos]# #oOV1 := pedirObjeto# #*[Para cada objeto a partir del anterior]# #oOV2 := pedirObjeto# #choco := ColisionoCon( oOV2 )# #[choco]# #restarEnergia# #restarEnergia# #[oOV1 no tiene mas energia AND oOV1 no esta en oRotos] # #agregar( oOV1 )# #[oOV2 no tiene mas energia AND oOV2 no esta en oRotos] # #agregar( oOV2 )# #*[Para cada objeto de oRotos]# #oOVRoto := obtener# #borrar( oOVRoto )# #borrar( oOVRoto )# #destruir# #destruir#