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:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

unit UnitAuto;

interface

uses Graphics, Windows, Stadt;

type
  TAuto=Class
    public
      Name: string;
      CarColor: TColor;
      CarPosition: TPoint;
      Richtung: Byte;  //0 North - 1 East - 2 South - 3 West
      constructor Create(Color: TColor; Position: TPoint; Namen: string);
      procedure Move;
    private
    end;

implementation

constructor TAuto.Create(Color: TColor; Position: TPoint; Namen: string);
begin
  inherited create;
  Name := Namen;
  CarColor := Color;
  CarPosition := Position;
  Richtung := 0;
end;

procedure TAuto.Move;
var
  CanMove: Array [0..3] of Boolean;
  BanDirection, NewDirection: Byte;
begin
  // North
  If (CarPosition.Y > 0) and (Stadt.Feld[CarPosition.X, CarPosition.Y - 1]) then
    CanMove[0] := true
  else
    CanMove[0] := false;
  // East
  If (CarPosition.X < 59) and (Stadt.Feld[CarPosition.X + 1, CarPosition.Y]) then
    CanMove[1] := true
  else
    CanMove[1] := false;
  // South
  If (CarPosition.Y < 39) and (Stadt.Feld[CarPosition.X, CarPosition.Y + 1]) then
    CanMove[2] := true
  else
    CanMove[2] := false;
  // West
  If (CarPosition.X > 0) and (Stadt.Feld[CarPosition.X - 1, CarPosition.Y]) then
    CanMove[3] := true
  else
    CanMove[3] := false;

  Case Richtung of
    0, 1: BanDirection := Richtung + 2;
    2, 3: BanDirection := Richtung - 2;
  end;

  repeat
  NewDirection := Random(4);
  CanMove[BanDirection] := false;
  If (CanMove[0] or CanMove[1] or CanMove[2] or CanMove[3]) = false then
  begin
    CanMove[BanDirection] := true;
    NewDirection := BanDirection;
    Break;
  end;
  until (NewDirection <> BanDirection) and CanMove[NewDirection];

  Richtung := NewDirection;
  Case Richtung of
    0: Dec(CarPosition.Y);
    1: Inc(CarPosition.X);
    2: Inc(CarPosition.Y);
    3: Dec(CarPosition.X);
  end;
end;

end.					

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:

  TFahrzeug = class
  private
    AnzahlderRaeder : byte;
    Position : TPoint;      //enthält die aktuelle Position ,TPoint enthält x und y koordinate
    FahrzeugFarbe :TColor;
  public
    procedure fahrenachXY(Ziel:TPoint);
  end;

  TAuto = class(TFahrzeug)
  private
    Benzin: byte; //Restliches Benzin im Tank
  public
    procedure auftanken;
    procedure fahrenachXY(Ziel:TPoint); overload;
  end;

  TFahrrad = class(TFahrzeug)
  end;

  TStadt = class
  private
   Fahrzeuge: array[1..100] of TFahrzeug;
  end;

implementation


procedure TFahrzeug.fahrenachXY(Ziel:TPoint);
begin
  Position.X:=Ziel.X;
  Position.Y:=Ziel.Y;
end;

procedure TAuto.fahrenachXY(Ziel:TPoint);
begin
  if (Benzin > 0) then
  begin
    Position.X:=Ziel.X;
    Position.Y:=Ziel.Y;
    Benzin:=Benzin-1;
  end;
end;

procedure TAuto.auftanken;
begin
  Benzin:=100;
end;					

1:

Muenchen.Fahrzeuge[1].fahrenachXY(Ziel);