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")
Global vogel = LoadImage("vogel.bmp")


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 Xv = 150
Global Yv = 100

Global movemodus = 0

;Bewegungen




;Hauptschleife
Repeat
Cls
TileBlock hintergrund

;Stein bewegen
Ys = Ys +1
If Ys = 480 Then
Ys = 0
EndIf
;Vogel bewegen
Yv = Yv +1
Xv = Xv +2
If Xv = 640 Then
 Xv = 150
 Yv = 100
EndIf

;leben
l = 3

;Lebensanzeige
Text 24,7, "Leben: "+l+"  "
 



;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 Spieler2
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),werfen2(wurf2,2)) Then
l = l -1
EndIf

;Kollision Spieler2 Banane1
If ImagesOverlap(Gorilla2, X2,Y2, banane, werfen(wurf,1),werfen(wurf,2)) Then
l = l -1
EndIf

;leben
l = 3