Da, problem je verovatno u tome što nisam igrao Bounce (ne znam ni kako izgleda). Taj problem bi mogao da rešiš tako što ćeš pri pomeranju levo proveriti boju pet pixela u levo od loptice (pretpostavke: boja zida je bela; image2 se krece preko image1 koji je lavirint)
Code:
var i,KolkoMoze:integer;
begin
KolkoMoze:=0;
case Key of
37: begin
for i:=1 to 5 do
if Image1.Canvas.Pixels[Image2.Canvas.Left-i,Image2.Canvas.Top]<>clWhite then
KolkoMoze:=i
else
break;
Image2.Left:=Image2.Left-KolkoMoze
end;
38:...;
39:...;
40:...;
41:...
end
end;
Kuco sam u direktno ovde, pa nije isprobano, ali trebalo bi da radi.
Pozdrav
[Ovu poruku je menjao badam dana 28.03.2006. u 16:49 GMT+1]