Sorry your browser is not supported!

Move Sprite

spriteangle# = 96.3
spritex# = 55.1
spritey# = 11.7
spritemovespeed# = 7.71

rem movesprite :

spritex# = newxvalue(spritex#,spriteangle#,spritemovespeed#)
spritey# = newzvalue(spritey#,spriteangle#,spritemovespeed#)

sprite spritenumber,spritex#,spritey#,spriteimgnumber 

cls rgb(255,0,0)
ink rgb(255,255,255),0
line 0,5,5,0
line 5,0,10,5
get image 1,0,0,10,20

sprite 1,320,240,1

do
pointsprite(1,mousex(),mousey())
move sprite 1,0.1
sync
loop

function pointsprite(s,x,y)

dx = sprite x(s) - x
dy = sprite y(s) - y
ang# = wrapvalue(atanfull(dx,dy)*-1)
rotate sprite s,ang#

endfunction

cls rgb(255,0,0)
ink rgb(255,255,255),0
line 0,5,5,0
line 5,0,10,5
get image 1,0,0,10,20
autocam off
sync on

sprite 1,320,240,1
offset sprite 1,5,10

`bullet
sprite 2,0,0,1
scale sprite 2,30

do
set cursor 0,0
print "shoot with the mouse"
pointsprite(1,mousex(),mousey())
move sprite 1,0.1

`bullets movements
if mouseclick()
  sprite 2,sprite x(1),sprite y(1),1
  rotate sprite 2,sprite angle(1)
endif

`bullet
move sprite 2,2


sync
loop

function pointsprite(s,x,y)
  dx = sprite x(s) - x
  dy = sprite y(s) - y
  ang# = wrapvalue(atanfull(dx,dy)*-1)
  rotate sprite s,ang#
endfunction

// [ A projectile type for the dynamic lasers array ]
Type Projectile
    X# as float// X position on screen
    Y# as float// Y position on screen
    XVelocity# as float // Speed of enemy (rate at which X increases/decreases)
    YVelocity# as float // Spped of enemy (rate at which Y increases/decreases)

    // Sprite dimensions
    Width as integer // width in pixels of the sprite or each individual frame
    Height as integer // height in pixels of the sprite or each individual frame

    // Sprite and image IDs
    SpriteID as integer // Value to hold the sprite ID
    ImageID as integer // Value to hold the image ID

    SoundID as integer // Holds sound ID

    Collided as integer // determines whether it has collided or not
    Offscreen as integer // determines whether it is off the screeen
EndType

Global Dim Lasers[1] as projectile

// NOTE: both of the following variables change when the program is running.
Global NumberOfLasers as integer = 0 // a variable to hold the number of active lasers
Global MaxLasers as integer = 0 // a variable to store the maximum number of lasers

Do
   
   if some_condition then _CreateLasers( x, y, angle, speed, image, sound)

// move the lasers
    _MoveLasers()

    // check if lasers have left the screen and if so delete them
    _LaserOffScreen()

    // delete the lasers
    _DeleteLasers()

    // check for collision
    Collision = _LaserCollision(SAlien.SpriteID)
    
    sync
Loop

// Function to Create Lasers
// Note, the first index of the array, 0, is not used and so may be checked against with index dependant functions.
function _CreateLasers(X# as float, Y# as float, Angle# as float, Velocity# as float, Image as integer, Sound as Integer)
    // set up variables
    // each time the function is called increase the number of lasers
    NumberOfLasers = NumberOfLasers + 1

    // make sure the current index isn't in use by a sprite
    while GetSpriteExists(Lasers[NumberOfLasers].SpriteID) = 1
        NumberOfLasers = NumberOfLasers + 1
    Endwhile


    // if the NumberOfLasers exceeds the MaxLasers increase MaxLasers and resize the array
    if NumberOfLasers > MaxLasers
        MaxLasers = NumberOfLasers
        Dim Lasers[MaxLasers] as Projectile
    endif

    // set up the laser's values
    Lasers[NumberOfLasers].SpriteID = CreateSprite(Image) // create sprite
    Lasers[NumberOfLasers].X# = X#
    Lasers[NumberOfLasers].Y# = Y#
    Lasers[NumberOfLasers].XVelocity# = Velocity# * sin(90-Angle#)
    Lasers[NumberOfLasers].YVelocity# = Velocity# * -sin(Angle#)
    Lasers[NumberOfLasers].Collided = 0
    Lasers[NumberOfLasers].Offscreen = 0

    // scale the sprites
    SetSpriteScale( Lasers[NumberOfLasers].SpriteID, ScreenRatioX#, ScreenRatioY#)

    // rotate the sprite based on the angle passed in
    if Angle# <> 0.0 then SetSpriteAngle(Lasers[NumberOfLasers].SpriteID, 360.0 - Angle#)


    // if the sound exists play the sound
    if GetSoundExists(Sound) then PlaySound(Sound)

Endfunction

// function to move the lasers
function _MoveLasers()
    if NumberOfLasers > 0
        // move the lasers
        For n = 1 to MaxLasers
            if GetSpriteExists(Lasers[n].SpriteID) = 1
                // move the lasers
                Lasers[n].X# = Lasers[n].X# + Lasers[n].XVelocity#
                Lasers[n].Y# = Lasers[n].Y# + Lasers[n].YVelocity#
                // draw the lasers
                SetSpritePosition(Lasers[n].SpriteID, Lasers[n].X#, Lasers[n].Y#)
            endif
        Next n
    endif

Endfunction

// function to determine if the laser has left the screen
function _LaserOffScreen()
    // set up variables

    if NumberOfLasers > 0
        // check the x values to see if the laser has
        For n = 0 to MaxLasers
            if GetSpriteExists(Lasers[n].SpriteID) = 1
                if Lasers[n].X# > Percentage#
                    Lasers[n].Offscreen = 1 // store offscreen
                endif
            endif
        Next n
    endif
Endfunction

// function to delete the sprites
Function _DeleteLasers()
    // deletes the laser sprites if the correct conditions are met
    if NumberOFLasers > 0
        for n = 1 to MaxLasers
            if GetSpriteExists(Lasers[n].SpriteID)
                // if conditions for the laser to be deleted are met, delete the laser
                if Lasers[n].Collided = 1 or Lasers[n].Offscreen = 1
                    DeleteSprite(Lasers[n].SpriteID)
                    NumberOfLasers = NumberOfLasers - 1 // decrease the number of lasers
                endif
            endif
        next n
    endif
Endfunction

// function to check laser collision
// this function returns the index of the laser array corresponding to the laser that hit the specified sprite
function _LaserCollision(SpriteID as integer) // set the spriteID to the sprite which you want to check collision against
    // set up locals
    Collided as integer

    // check for collision
    if NumberOfLasers > 0
        For n = 1 to MaxLasers
            if GetSpriteExists(Lasers[n].SpriteID) = 1
                // Check the collision for each laser
                if GetSpriteCollision( Lasers[n].SpriteID, SpriteID) = 1
                    Lasers[n].Collided = 1 // store collision
                    Collided = 1
                endif
            Endif
        Next n
    Endif

Endfunction Collided