Graphics 640,480,16,1
SetBuffer BackBuffer()

Global Gorilla = LoadImage("Gorilla2.bmp")
Global Gorilla2 = LoadImage("Gorilla.bmp")
Global banane = LoadImage("Banane.bmp")
Global hintergrund = LoadImage("Dschungel.bmp")
Global stein = LoadImage("stein.png")

Dim werfen(5,2)
Dim werfen2(5,2)

;Gorilla Zeichnen
Global X = 200
Global Y = 200
Global X2 = 250
Global Y2 = 250
Global banane_x = X
Global banane_y = Y
Global Xs = 320
Global Ys = 0

Global movemodus = 0

;Bewegungen


;Hauptschleife
Repeat
Cls
TileBlock hintergrund

Ys = Ys +1
If Ys = 480 Then
Ys = 0
EndIf


;Werfen
If KeyHit(16) Then
wurf = wurf +1
werfen(wurf,0) =   1
werfen(wurf,1) = X
werfen(wurf,2) = Y
EndIf
If werfen(wurf,0) = 1 Then 
   DrawImage banane, werfen(wurf,1),werfen(wurf,2)
   werfen(wurf,1) = werfen(wurf,1) +1
If wurf = 5 Then wurf = 1 
 EndIf


;Werfen Soieler2
If KeyHit(57) Then
wurf2 = wurf2 +1
werfen2(wurf2,0) =   1
werfen2(wurf2,1) = X2
werfen2(wurf2,2) = Y2
EndIf
If werfen2(wurf2,0) = 1 Then 
   DrawImage banane, werfen2(wurf2,1),werfen2(wurf2,2)
   werfen2(wurf2,1) = werfen2(wurf2,1) -1
If wurf2 = 5 Then wurf2 = 1 
 EndIf


DrawImage Gorilla, X,Y 
DrawImage Gorilla2, X2,Y2


;Kollision Spieler1 Banane2
If ImagesOverlap(Gorilla, X,Y, banane, werfen2(wurf2,1),werfen(wurf2,2)) Then
Text 200,200, "Hallo"
EndIf

;Kollision Spieler2 Banane1
If ImagesOverlap(Gorilla2, X2,Y2, banane, werfen(wurf,1),werfen(wurf,2)) Then
Text 200,200, "Hallo"
EndIf



;Gorilla bewegen
If KeyDown(200) = 1 Then Y2 = Y2 - 1
If KeyDown(208) = 1 Then Y2 = Y2 + 1
If KeyDown(205) = 1 Then X2 = X2 + 1
If KeyDown(203) = 1 Then X2 = X2 - 1

;Gorilla2 bewegen
If KeyDown(17) = 1 Then Y = Y - 1
If KeyDown(31) = 1 Then Y = Y + 1
If KeyDown(32) = 1 Then X = X + 1
If KeyDown(30) = 1 Then X = X - 1


 
;Hindernisse
DrawImage stein, Xs,Ys

;Kolli mit hindernissen
If ImagesOverlap(stein, Xs,Ys, banane, werfen2(wurf2,1),werfen <<< (wurf2,2)) Then
 Text 200,200, "Hi"
EndIf

If ImagesOverlap(stein, Xs,Ys, banane, werfen(wurf,1),werfen(wurf,2)) Then
 Text 200,200, "Hi"
EndIf


 



Flip
Until KeyHit(1)
End