Brauche ein "Map-System" oder sowas für ein spiel...

[Khabarakh]

Okay, also doch etwas anders wie du es oben beschrieben hast.

Delphi-Quellcode:

var center: TPoint;
[...]
center:=Point(form5.Paintbox1.Width div 2-16,form5.Paintbox1.Height div 2-16);
for i := -2 to 2 do
  for ii := -2 to 2 do
    try
      Bitmap:=TBitmap.Create;
      MyRect := Rect(i*32+center.x,ii*32+center.y,i*32+center.x+32,ii*32+center.y+32);
      if (charx+i > 0) and (chary+ii > 0) then
        Bitmap.LoadFromFile('IMG/Map/'+map[charx+i,chary+ii].Textur)
      else
        Bitmap.LoadFromFile('IMG/Map/none.bmp');
      form5.PaintBox1.Canvas.BrushCopy(MyRect,Bitmap,MyRect2,clfuchsia);
    finally
      bitmap.Free
    end;

Ich habe den Quelltext auch noch etwas verkürzt.