Graphics 1280,1024,32,3
SeedRnd MilliSecs()
SetBuffer BackBuffer()
timer= CreateTimer (60)

Gegner=LoadImage ("Graphic\Enemy.png")
MaskImage Gegner,255,255,255
Gegner_zoom=CopyImage(Gegner)
ResizeImage Gegner,12,25

Kreuz=LoadImage ("graphic\Fadenkreuz.png")
MaskImage kreuz,73,73,73
Kreuz_Schatten=LoadImage ("graphic\Fadenkreuz_Schatten.png")
MaskImage kreuz_schatten,255,255,255

Building=LoadImage("Graphic\Building.png")
MaskImage Building,255,0,255

;HidePointer
;Create_Enemy(500,500,750,2,1)
;Create_Enemy(200,600,750,2,5)
Create_Enemy(0,0,200,2,1)
ClsColor 0,255,255
Local zoom=1
Local hit$=""
Repeat
    mhit2=MouseHit(2)
    mhit1=MouseHit(1)
    ;If mhit2=1 Then zoom=(zoom+1) Mod 2
    font=LoadFont ("Arial",22,True,False,True)
    SetFont font
    Cls

    If zoom=1 Then
       
        For move.enemy=Each Enemy
            ;move\x_z=move\x/4+move_startx*4
            If move\x<=move\startx Or move\x>=move\endx Then move\speed=move\speed*-1
            move\x=move\x+move\speed
            DrawImage Gegner_zoom,move\x,move\starty
            DebugLog (move\x)
            If mhit1=1 Then
                If Mousepos(move\x,move\starty,move\x+50,move\starty+100)=1 Then
                    move\hits=move\hits-1
                    hit="Hit"
                If move\hits=0 Then Delete move hit="Kill"
                Else hit="Miss"
            EndIf
        EndIf
        Next
       
        DrawImage Building,0,0
        ;DrawImage Kreuz_schatten,MouseX()-1280,MouseY()-1024
       
       
        ;DrawImage Kreuz,MouseX()-640,MouseY()-512
        Text MouseX()-25,MouseY()+70,hit
    EndIf
    WaitTimer timer
    Flip 0

Until KeyHit(1)
End

Type Enemy
    Field x
    Field startx
    Field starty
    Field endx
    Field speed
    Field hits
    Field endx_z
    Field x_z
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\hits=hits_to_kill
    move\endx_z=(endx-startx)/4+startx
    move\x_z=startx+1
End Function

Function Mousepos(x,y,to_x,to_y)
    If MouseX()>=x And MouseX()<=to_x And MouseY()>=y And MouseY()<=to_y Then Return 1 Else Return 0
End Function