Graphics 1280,1024,32,3
SeedRnd MilliSecs()
SetBuffer BackBuffer()
WaitKey()

Gegner=LoadImage ("Graphic\Enemy.png")
MaskImage Gegner,255,255,255

Create_Enemy(500,500,600,2,1)
ClsColor 0,255,255

Repeat
    Cls
    For move.enemy=Each Enemy
        If move\x=move\startx Or move\x=move\endx Then move\speed=move\speed*-1
        move\x=move\x+move\speed
        DrawImage Gegner,move\x,move\starty
    Next
    Flip
    Delay 2
Until KeyHit(1)
End


Type Enemy
    Field x
    Field startx
    Field starty
    Field endx
    Field speed
    Field hits
End Type

Function Create_Enemy(startx,starty,endx,speed,hits_to_kill)
    move.Enemy= New Enemy
    move\x=startx+1
    move\startx=startx
    move\starty=starty
    move\endx=endx
    move\speed=speed
    move\speed=hits_to_kill

End Function