// Programa: Alicia3

// Autores: Lidia y Pablo

// descripción: Este programa hace que se tambalee un objeto

 

Program Alicia3

 

      Method cargaralicia()

            LoadSprite("alicia","alicia.gif")

            MoveSpriteToPoint("alicia",50,50)

            ShowSprite("alicia")

      End Method

     

      Method Main()

            maximize()

            Define angulo As Integer=5

            cargaralicia()

            Loop 300

                  MoveSpriteByAmount("alicia",1,1)

                  RotateSpriteBy("alicia",angulo)

                  angulo=angulo*-1

                  Delay(50)

            End Loop

           

 

      End Method

 

End Program