Repeat
mhit1=MouseHit(1)
Cls
Text 500,200,"Gegnerarten"
DrawImage Gegner1,500,300
DrawImage Gegner2,500,450
DrawImage Gegner3,575,600
DrawImage Gegner4,650,300
DrawImage Gegner5,650,450

If MouseX()>=500 And MouseX()<=570 And MouseY()>=300 And MouseY()<=400 And mhit=1 Then gegnerart=1
If MouseX()>=500 And MouseX()<=570 And MouseY()>=450 And MouseY()<=550 And mhit=1 Then gegnerart=2
If MouseX()>=575 And MouseX()<=645 And MouseY()>=600 And MouseY()<=700 And mhit=1 Then gegnerart=3
If MouseX()>=650 And MouseX()<=720 And MouseY()>=300 And MouseY()<=400 And mhit=1 Then gegnerart=4
If MouseX()>=650 And MouseX()<=720 And MouseY()>=450 And MouseY()<=550 And mhit=1 Then gegnerart=5
Text 0,0,gegnerart

DrawImage Knopf_Back,50,900
If MouseX()=>50 And MouseX()<=50+170 And MouseY()=>900 And MouseY()<=900+75 Then
DrawImage Knopf_Backan,50,900
If bac=0 Then PlayMusic ("Menu\Music\an.wav")
bac=1
If MouseDown(1) Then Back=1 PlayMusic ("Menu\Music\click.wav")
Else bac=0
EndIf

DrawImage Cursor,MouseX(),MouseY()
Flip