Graphics 1024,768,16,2
basebild=LoadImage("Graphics/Base.PNG")
kollision=CreateImage(1024,768)
SetBuffer BackBuffer()

;----------Funktionen-----------;
Function draw(bild$,bx,by,anim=0)
If ImageRectOverlap(bild$,bx+sichtx,by+sichty,0,0,1024,768) Then DrawImage bild$,bx,by,anim
End Function

Function scrolling()
If KeyDown(200)
If KeyDown(42) Or KeyDown(54)
For einheitz=Each modelle
einheitz\y=einheitz\y+5
Next
Else
For einheitz=Each modelle
einheitz\y=einheitz\y+2
Next
EndIf
EndIf
If KeyDown(208)
If KeyDown(42) Or KeyDown(54)
For einheitz=Each modelle
einheitz\y=einheitz\y-5
Next
Else
For einheitz=Each modelle
einheitz\y=einheitz\y-2
Next
EndIf
EndIf
If KeyDown(203)
If KeyDown(42) Or KeyDown(54)
For einheitz=Each modelle
einheitz\x=einheitz\x+5
Next
Else
For einheitz=Each modelle
einheitz\x=einheitz\x+2
Next
EndIf
EndIf
If KeyDown(205)
If KeyDown(42) Or KeyDown(54)
For einheitz=Each modelle
einheitz\x=einheitz\x-5
Next
Else
For einheitz=Each modelle
einheitz\x=einheitz\x-2
Next
EndIf
EndIf
End Function

;---------Types---------;
Type modelle
Field x
Field y
End Type

;-------Variablen-------.
Global einheitz.modelle
Global einheit.modelle
Global sichtx=0
Global sichty=0

For i=1 To 3
einheit=New modelle
einheit\x=Rand(0,1024)
einheit\y=Rand(0,768)
Next

;-------Hauptschleife---------;

Repeat
Cls
For einheitz=Each modelle
draw(basebild,einheitz\x,einheitz\y)
Next
Locate 0,0
Color 255,255,255
Print "Linksklick: Auswahl, Bestätigen"
Print "Rechtsklick: Auswahl aufheben"
Print "Pfeiltasten: Scrollen"
Print "Shift: Schnelleres Scrollen"
Print "Esc: Abbrechen"
klick=MouseHit(1)
For einheit=Each modelle
If klick=1 And RectsOverlap(MouseX(),MouseY(),1,1,einheit\x,einheit\y,40,40)
einheitz=einheit
Repeat
Cls

For einheitz=Each modelle
draw basebild,einheitz\x,einheitz\y
Next
Color 255,255,255
Oval einheit\x-180,einheit\y-180,400,400,0
 If Sqr((MouseX()-einheit\x-20)^2+(MouseY()-einheit\y-20)^2)>200
 Color 200,0,0
 Line MouseX(),MouseY(),einheit\x+20,einheit\y+20
 Else

linienkolli=0                            ;--- Hier beginnt der krit. Abschnitt!!!! -----
SetBuffer ImageBuffer(kollision)
Cls
Color 0,200,0
Line MouseX(),MouseY(),einheit\x+20,einheit\y+20
SetBuffer BackBuffer()
For einheitz=Each modelle
draw basebild,einheitz\x,einheitz\y
 If Sqr#((einheitz\x-einheit\x)^2)<201 And Sqr#((einheitz\y-einheit\y)^2)<201
 If ImagesCollide(kollision,0,0,0,basebild,einheitz\x,einheitz\y,0) Then linienkolli=linienkolli+1
 EndIf
Next                                                   ;---Hier endet er!!!!!
 If linienkolli<2                        ;<--- Dafür braucht man ihn!
  draw(kollision,0,0)
   If MouseHit(1)
   einheit\x=MouseX()-20
   einheit\y=MouseY()-20
   Exit
   EndIf
 Else
 Color 200,0,0
 Line MouseX(),MouseY(),einheit\x+20,einheit\y+20
 EndIf
 EndIf
If MouseHit(2) Then Exit
If KeyHit(1) Then End
FlushMouse
Locate 0,0
Color 255,255,255
Print "Linksklick: Auswahl, Bestätigen"
Print "Rechtsklick: Auswahl aufheben"
Print "Pfeiltasten: Scrollen"
Print "Shift: Schnelleres Scrollen"
Print "Esc: Abbrechen"
GetColor einheit\x+20,einheit\y+20
scrolling()
Flip
Forever
EndIf
Next
scrolling()
Flip
Until KeyHit(1)
End