#A4# #oEspacio: cEspacio# #oObjetos: TList# #oOV: cObjetoVolador# #oOV := pedirObjeto# #mover# #*[Para cada objeto en oObjetos]# #: cNave# #detectarColisiones# #actualizarObjVolador( oOV )# #[oOV es cNave]# #oArma := mDisparar# #[oArma no es nil]# #Agregar( oArma )#