1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

//Globale Variablen
var
  GameForm: TGameForm;

  // Variablen für die Kartengröße
    // Kartengröße in Pixel
    MapsizeInPixel: TPoint;
    // Kartengröße in Rasterkoordinaten
    MapsizeGrid: TPoint;

  // Beinhaltet nach einem Mausklick die Koordinaten des Angeklickten Punktes.
  // Diese Koordinaten werden gelöscht wenn die Zielkoordinaten erreicht werden
  // oder durch einen neuen Zielpunkt den der EB z.L. anklickt erneuert.
  Walk_Zielpunkt: TPoint;


  // 2-Dimensionales Array, welches Koordinaten-Zuständigkeitsbereiche festlegt.
  Raster: Array of Array of Integer;


(*--------------------------------------------------------*)

procedure TGameForm.CreateGrid(LengthX,LengthY,Size: Integer);
begin
{Das Raster ist immer Quadratisch, deshalb muss nur
eine Höhe angegeben werden. LengthX und LengthY gibt
die Anzahl der Quadrate ein}

// Von Koordinaten mit Größenfaktor mulziplizieren um
// die Kartengröße in Pixel zu berechnen und in Variabel speichern
MapsizeInPixel.X:= LengthX * Size;
MapsizeInPixel.Y:= LengthY * Size;


// Das Rasterarray auf angegebene Größe ändern
SetLength(Raster,LengthX,LengthY);

(*--------------------------------------------------------*)

procedure TGameForm.Move;
var
Extractpath: String;

begin
// Pfad zum Projektordner ermitteln
Extractpath:= ExtractFilePath(ParamStr(0));

//Bewegungsanimation laden
Image1.Picture.LoadFromFile(Extractpath + '\data\gui\Walk.gif');


(*IM FOLGENDEM SITZT NUN DER FEHLER*)
// Bewegungzielpunkt von Pixelangabe in zuständige Koordinate umrechnen
Walk_Zielpunkt.X:= MapsizeInPixel.X div 24;
Walk_Zielpunkt.Y:= MapsizeInPixel.Y div 24;


WalkTimer.Enabled:= true;
(* DANACH WIEDER AUSSCHALTEN WENN AN ZIELPUNKT ANGEKOMMEN!!! *)

// Zu Testzwecken
ShowMessage(IntToStr(Walk_Zielpunkt.X)+' '+IntToStr(Walk_Zielpunkt.Y));
end;					

1:

Walk_Zielpunkt.X:= MapsizeInPixel.X div 24;					

1:

Walk_Zielpunkt.X:= MapsizeInPixel.X div 49;					

1:
2:
3:

// Bewegungzielpunkt von Pixelangabe in zuständige Koordinate umrechnen
Walk_Zielpunkt.X:= ScreenToClient(Mouse.CursorPos).X div 49;
Walk_Zielpunkt.Y:= ScreenToClient(Mouse.CursorPos).Y div 49;