Sorry your browser is not supported!

rem
rem AGK Application
rem

rem Landscape App
setVirtualResolution( 640, 480 )

rem create a User Defined Type (UDT) to format bullet data
type bulletType
    spr as integer
    life as float
endtype

rem create an array to hold bullet data
global dim bullet[0] as bulletType

rem store the current number of bullets
bullet[0].spr = 0

do
    rem if the mouse is clicked fire a bullet
    if getPointerPressed()>0
        fireBullet(0,0, getPointerX(), getPointerY(), 300, 3.0)
    endif
    
    rem update existing bullets
    updateBullets()
    
    Sync()
loop

function fireBullet(x1#, y1#, x2#, y2#, speed#, life#)
    rem calculate data from start to aim point
    dx# = x2# - x1#
    dy# = y2# - y1#
    d# = sqrt(dx#*dx# + dy#*dy#)
    
    rem calculate velocity in x and y
    vx# = (dx#/d#) * speed#
    vy# = (dy#/d#) * speed#
    
    rem calculate sprite angle
    ang# = atanfull(dx#, dy#)
    
    rem create the sprite
    spr = createSprite(0)
    setSpritePositionByOffset(spr, x1#, y1#)
    setSpriteAngle(spr, ang#)
    setSpritePhysicsOn(spr, 3)          `using a kinematic physics sprite (not affected by other sprites)
    setSpritePhysicsIsBullet(spr, 1)    `this means the sprite will not pass through objects when moving fast
    setSpritePhysicsVelocity(spr, vx#, vy#)
    
    rem save data
    ` increase the number of bullets
    i = bullet[0].spr + 1
    `re-dim the array to increase it's size
    dim bullet[i] as bulletType
    `save the bullet data
    bullet[i].spr  = spr
    bullet[i].life = timer() + life#    `this is the point in time where the bullet will 'die'
endfunction

function updateBullets()
    t# = timer()
    
    rem loop through the array
    num = bullet[0].spr
    for i=1 to num
        rem check for 'dead' bullets
        if t#>bullet[i].life
            rem delete sprite
            deleteSprite(bullet[i].spr)
            
            rem copy the last item in the array into this slot in the array
            rem this removes the dead bullet data
            bullet[i].spr  = bullet[num].spr
            bullet[i].life = bullet[num].life
            
            rem go back one space so we update every item in the array
            rem including the item just copied from the end of the array
            rem into this location
            dec num
            dec i
        endif
    next
    
    rem re-dim the array
    rem doing this now as it is quicker to re-dim
    rem once per loop than multiple times
    dim bullet[num] as bulletType
    bullet[0].spr = num
endfunction

 if GetVirtualButtonState( 1 ) = 1
    Velocity# = Velocity# + 0.5
    if Velocity# > 150 then Velocity# = 150
    angle# = GetSpriteAngle (spr)
    vx# = Velocity# * Cos (angle#)
    vy# = Velocity# * Sin (angle#)
 else
if GetVirtualButtonState( 1 ) = 0
     SetSpritePhysicsOn(spr4, 2)
     SetSpritePhysicsVelocity(spr4, vx#, vy#)
    endif
endif

Velocity# = 0

SetDisplayAspect( 4.0/3.0 )

SetClearcolor (255, 255, 255)

AddVirtualButton (1, 90, 90, 8)

rem Create Sprite
spr = CreateSprite (0)
SetSpriteSize ( spr, 20, 5 )
SetSpriteOffset ( spr, 10, GetSpriteHeight (spr)/2)
SetSpritePositionByOffset ( spr, 20, 80)
SetSpriteColor (spr, 255,0,255,255)

rem Create ball Sprite
img4 = LoadImage ("ball.png")
spr4 = CreateSprite (img4)
SetSpriteSize (spr4, 8, -1)
SetSpriteOffset (spr4, 4, GetSpriteY(spr4)/2)
SetSpritePositionByOffset (spr4, 30, 70)
SetSpriteColor (spr, 255,0,0,255)
do

 if GetVirtualButtonState( 1 ) = 1
    Velocity# = Velocity# + 0.5
    if Velocity# > 150 then Velocity# = 150
    angle# = GetSpriteAngle (spr)
    vx# = Velocity# * Cos (angle#)
    vy# = Velocity# * Sin (angle#)
 else
if GetVirtualButtonState( 1 ) = 0
     SetSpritePhysicsOn(spr4, 2)
     SetSpritePhysicsVelocity(spr4, vx#, vy#)
    endif
endif

    sync()
loop

Velocity# = 0

SetDisplayAspect( 4.0/3.0 )

SetClearcolor (255, 255, 255)

AddVirtualButton (1, 90, 90, 8)

rem Create Sprite
spr = CreateSprite (0)
SetSpriteSize ( spr, 20, 5 )
SetSpriteOffset ( spr, 10, GetSpriteHeight (spr)/2)
SetSpritePositionByOffset ( spr, 20, 80)
SetSpriteColor (spr, 255,0,255,255)

rem Create ball Sprite
img4 = LoadImage ("ball.png")
spr4 = CreateSprite (img4)
SetSpriteSize (spr4, 8, -1)
SetSpriteOffset (spr4, 4, GetSpriteY(spr4)/2)
SetSpritePositionByOffset (spr4, 30, 70)
SetSpriteColor (spr4, 255,0,0,255)
do

 if GetVirtualButtonState( 1 ) = 1
    Velocity# = Velocity# + 5
    if Velocity# > 1500 then Velocity# = 1500
    angle# = GetSpriteAngle (spr)
    vx# = Velocity# * Cos (angle#)
    vy# = Velocity# * Sin (angle#)
 else
if GetVirtualButtonState( 1 ) = 0
     SetSpritePhysicsOn(spr4, 3)
     SetSpritePhysicsVelocity(spr4, vx#, vy#)
    endif
endif

    sync()
loop