EL   OVNI   DISPARA   UN   MISIL

 

Program Ovni

                Structure Imagen

                               x As Int

                               y As Int

                               incX As Int

                               incY As Int

                End Structure

                Define ovni As Imagen

                Define misil As Imagen

                Define hayMisil As Bool = False

                Define TiempoImagen As Int[6] = {40, 40, 40, 40, 40, 40}

                Method cargarOvni()

                               LoadSprite("OVNI", "OVNI.gif")

                               ovni.x = 50

                               ovni.y = 50

                               ovni.incX = 5

                               ovni.incY = 5

                               MoveSpriteToPoint("OVNI", ovni.x, ovni.y)

                               SetSpriteAnimationTimeline("OVNI", True, TiempoImagen)

                               ShowSprite("OVNI")

                End Method

                Method cargarMisil()

                               LoadSprite("MISIL", "missile1.gif")

                               ScaleSprite("MISIL", 0.8)

                               SetSpriteAnimationTimeline("MISIL", True, TiempoImagen)

                               RotateSprite("MISIL", 90)

                               misil.incY = 5

                End Method

                Method moverMisil()

                               If misil.y < ScreenHeight() + GetSpriteHeight("Misil") Then

                                               MoveSpriteByAmount("MISIL", 0, misil.incY)

                                               misil.y = misil.y + misil.incY

                               Else

                                               hayMisil = False

                               End If

                End Method

                Method tecla()

                               If IsKeyDown("UP") And ovni.y > 0 Then

                                               ovni.y = ovni.y - ovni.incY

                               End If

                               If IsKeyDown("Down") And ovni.y < ScreenHeight() - GetSpriteHeight("OVNI") Then

                                               ovni.y = ovni.y + ovni.incY                             

                               End If

                               If IsKeyDown("Right") And  ovni.x < ScreenWidth() - GetSpriteWidth("OVNI") Then

                                               ovni.x = ovni.x + ovni.incX                              

                               End If

                               If IsKeyDown("Left") And ovni.x > 0 Then

                                               ovni.x = ovni.x - ovni.incX

                               End If

                               If IsKeyDown("Space") And hayMisil = False Then

                                               hayMisil = True

                                               misil.x = ovni.x

                                               misil.y = ovni.y

                                               MoveSpriteToPoint("MISIL", misil.x, misil.y + GetSpriteHeight("OVNI"))

                                               ShowSprite("MISIL")

                               End If

                               MoveSpriteToPoint("OVNI", ovni.x, ovni.y)

                End Method

                Method Main()

                               cargarOvni()

                               cargarMisil()

                               Loop 10000

                                               tecla()

                                               moverMisil()

                                               Delay(10)

                               End Loop 

                End Method

End Program