Function Mehrspieler_Menu()
Repeat
Cls


If KeyDown (1) Then Hauptmenu
DrawImage HM2,0,0

Stockshot_X = Stockshot_X - 4
If Stockshot_X < - 250 Then Stockshot_X = 1024 + 300
Stockshot_X2 = Stockshot_X2 + 4
If Stockshot_X2 > 1024 + 250 Then Stockshot_X2 = - 250

DrawImage Stockshot,Stockshot_X,100
DrawImage Stockshot,Stockshot_X2,100

DrawImage Punkte_zum_Sieg,1024/2,768/2
DrawImage neue_Baelle,1024/2,550
DrawImage Pfeil_Oben,1024/2 + 80 + 300 ,768/2 - 37
DrawImage Pfeil_Oben,1024/2 + 80 + 300 ,550 - 37

If ImagesOverlap (Pfeil_Oben,1024/2 + 80 + 300 ,768/2 - 37 ,Cursor,MouseX(),MouseY()) And MouseHit (1)
Soll# = Soll# + 1
DrawImage Punkte_zum_Sieg_A,1024/2,768/2
FlushMouse
EndIf

If ImagesOverlap (Pfeil_Oben,1024/2 + 80 + 300 ,768/2 - 37 ,Cursor,MouseY(),MouseX()) And MouseHit (2)
Soll# = Soll# - 1
DrawImage Punkte_zum_Sieg_A,1024/2,768/2
FlushMouse
EndIf

If ImagesOverlap (Pfeil_Unten,1024/2 + 80 + 300 ,550 - 37 ,Cursor,MouseX(),MouseY()) And MouseHit (1)
K_S = K_S - 1
DrawImage neue_Baelle_A,1024/2,550
FlushMouse
EndIf

If ImagesOverlap (Pfeil_Oben,1024/2 + 80 + 300 ,550 - 37 ,Cursor,MouseX(),MouseY()) And MouseHit (2)
K_S = K_S + 1
DrawImage neue_Baelle_A,1024/2,550
FlushMouse
EndIf

If Soll# < 0 Then Soll# = 1


If ImagesOverlap (Punkte_zum_Sieg,1024/2,768/2,Cursor,MouseX(),MouseY())
DrawImage Punkte_zum_Sieg_A,1024/2,768/2
EndIf

If ImagesOverlap (neue_Baelle,1024/2,550,Cursor,MouseX(),MouseY())
DrawImage neue_Baelle_A,1024/2,550
EndIf

Locate 1024/2 + 40 + 300,768/2
Print Soll#

Locate 1024/2 + 40 + 300 ,550
Print K_S

DrawImage Cursor,MouseX(),MouseY()
 
WaitTimer (Zeiter)
SetBuffer BackBuffer ()
Flip
Forever
End Function
End