Graphics 1020,735;

Labyrinth=LoadImage ("Labyrint.bmp")
MaskImage Labyrinth,0,0,0;


Garfield=LoadImage("garfield.bmp");
ScaleImage Garfield,0.2,0.2;
MaskImage Garfield,255,255,255;

Garfield1=LoadImage("garfieldA.bmp")
ScaleImage Garfield1,0.2,0.2;
MaskImage Garfield1,255,255,255;



Pizza=LoadImage("pizza.bmp");
ScaleImage Pizza,0.2,0.2;
MaskImage Pizza,255,255,255;

Kaese=LoadImage("Kaese.bmp");
ScaleImage Kaese,0.2,0.2;
MaskImage Kaese,255,255,255;

Spaghetti=LoadImage("Spaghetti.bmp");
ScaleImage Spaghetti,0.2,0.2;
MaskImage Spaghetti,255,255,255;

Pooky=LoadImage("Pooky.bmp");
ScaleImage Pooky,0.2,0.2;
MaskImage Pooky,255,255,255;





Anleitung=LoadImage("Anleitung.bmp");



HidePointer


Level=0;



Cover=LoadImage("Cover.bmp");
DrawImage Cover,0,0;
Delay 2500;
Cls;



DrawImage Anleitung,0,0;
WaitKey;
Cls;


a=100;
b=100;
Level=1;
Zaehler=0;
Leben=1;



SetBuffer BackBuffer();
While Level=1;


c=920;
d=50;


aOld=a;
bOld=b;



If KeyDown(205);
a=a+3
k=1;
EndIf;
If KeyDown(203);
a=a-3;
k=0;
EndIf;
If KeyDown (200);
b=b-3
EndIf;
If KeyDown (208);
b=b+3
EndIf;

Cls;


If KeyDown(1) Then End;



DrawImage Labyrinth,0,0;




If k=0
DrawImage Garfield,a,b;
EndIf
If k=1
DrawImage Garfield1,a,b;
EndIf;



If ImagesCollide(Garfield,a,b,0,Labyrinth,0,0,0);
a=aOld
b=bOld
EndIf;


Text 0,0,Zaehler;


DrawImage Pizza,c,d;






If ImagesCollide(Garfield,a,b,0,Pizza,c,d,0);
   c=1234567;
   d=1234567;
   Zaehler=Zaehler+10;
EndIf;

g=460;
h=35;

If Zaehler=10;
   DrawImage Spaghetti,e,f;
EndIf;


If ImagesCollide(Garfield,a,b,0,Spaghetti,e,f,0);
   e=12345678;
   f=12345678;
   Zaehler=Zaehler+10;
   g=370;
   h=35;
EndIf;


If Zaehler=20;
   DrawImage Kaese,i,j,0;
EndIf;   

If ImagesCollide(Garfield,a,b,0,Kaese,i,j,0);
   i=123456789;
   j=123456789;
   Zaehler=Zaehler+10;
   k=123
   l=123
EndIf;   

If Zaeheler=30;
   DrawImage Pooky,k,l,0;
EndIf;

If ImagesCollide(Garfield,a,b,0,Pooky,k,l,0);
   k=7789;
   l=9943;
   Zaehler=Zaehler+10;
EndIf;

Flip;



Wend;