Graphics 800,600,32,2
SetBuffer BackBuffer()
y = 250
x = 300
y1= 400
x1= 285
y2= 400
x2= 335
y3= 400
x3= 385
y4= 400
x4= 435
Cls
ClsColor 255,0,0

;Pic Loading;


Con1   = LoadImage ("Con1.jpg")
Con2   = LoadImage ("Con1.jpg")
Con3   = LoadImage ("Con1.jpg")
Con4   = LoadImage ("Con1.jpg")
Con5   = LoadImage ("Con1.jpg")
Kiste1 = LoadImage ("kiste.jpg")
;Schleifenbeginn

Repeat

Cls

DrawImage Con1,x1,y1
DrawImage Con2,x2,y2
DrawImage Con3,x3,y3
DrawImage Con4,x4,y4
DrawImage Con5,x5,y5
DrawImage Kiste1,x,y

; Eigenbewegung der Kiste

y= y-3

; Kollisionsabfrage


If ImagesCollide (Kiste1, x, y-25, frame1, Con1, x1, y1, frame2)   Then
x=x+1 Else y= y+1
If ImagesCollide (Kiste1, x, y-25, frame1, Con2, x2, y2, frame2)   Then
x=x+1 Else y= y+1
If ImagesCollide (Kiste1, x, y-25, frame1, Con3, x3, y3, frame2)   Then
x=x+1 Else y= y+1
If ImagesCollide (Kiste1, x, y-25, frame1, Con4, x4, y4, frame2)   Then
x=x+1 Else y= y+1
If ImagesCollide (Kiste1, x, y-25, frame1, Con5, x5, y5, frame2)   Then
x=x+1
EndIf
EndIf
EndIf
EndIf
EndIf









 
;SEITENBEGRENZUNG;

If y<0 Then
y=0
EndIf

If y>545 Then
y=545
EndIf

If x>765 Then
x=765
EndIf
 
If x<0 Then
x=0
EndIf

;SEITENBEGRENZUNG KISTE1;

If y<0 Then
y=0
EndIf

If y>580 Then
y=580
EndIf

If x>775 Then
x=775
EndIf
 
If x<0 Then
x=0
EndIf


Flip

Until KeyDown(1)


End

Const OBEN = 1
Const UNTEN = 2
Const LINKS = 3
Const RECHTS = 4

Global kiste_richtung = UNTEN

Select kiste_richtung
   Case OBEN
      y = y - 1
   Case UNTEN
      y = y + 1
   ;und so weiter ...
End Select