1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

 Tbox=class(Tobject)
  private
    o,r:Tobject;
    head:Tbox;
  public
    constructor create(o0:Tobject; r0:Tbox);                virtual;
    property obj:Tobject read o write o;
    property right: Tobject read r write r;
  end;

   Tstapel=class(Tobject)
   private
    head:Tbox;
    help:tbox;
   public
    destructor destroy;
    function isempty:boolean;
    procedure push(o: Tobject);
    function top: Tobject;
    function pop: Tobject;
   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:

//############################# TBOX #############################
constructor tbox.create(o0:Tobject; r0:Tbox);
begin
  r:=r0;
  o:=o0;
end;

//############################# TSTAPEL #############################

destructor tstapel.destroy;
begin
  while head <> nil do begin
    help:=head;
    head:=tbox(head.right);
    help.destroy;
  end;
end;

function tstapel.isempty:boolean;
begin
     result:=head=nil;
end;

function tstapel.top:tobject;
begin
  if head=nil then result:=nil
  else result :=head.obj;
end;

function tstapel.pop:tobject;
begin
     if head=nil then result:=nil
     else begin
     result:=head.obj;
     help:=head;
     head:=tbox(head.right);
     help.destroy;
     end;
end;

procedure tstapel.push(o:tobject);
begin
  head:=tbox.create(o,head);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure Tgame.informplayer;
var i:integer;
begin
    eventwindow.delete_texts;
    eventwindow.text[0]:=' STATUS';
    i:=0;
      while not spieler.infostapel.isempty do begin
        if not spieler.infostapel.isempty then begin
          inc(i);
          b_akt_message:=TMessage(spieler.infostapel.pop);
          b_akt_message.time:=b_akt_message.time+1;
          eventwindow.text[i]:=b_akt_message.gmessage;
          //Nur wenn Zähler noch <=3 (Nachricht also nicht älter als 3 Sekunden), dann übernehme Nachricht in neuen Stapel
          if b_akt_message.time<=3 then
            b_help_stapel.push(b_akt_message);
        end;
      end;
      while not b_help_stapel.isempty do begin
        if not b_help_stapel.isempty then
          spieler.infostapel.push(b_help_stapel.pop);
      end;
end;					

1:
2:
3:
4:
5:
6:

 if result=-1 then begin
      object_array[object_id].Free;
      spieler.gamemessage.gmessage:='Gebäude konnte aufgrund fehlender Ressourcen nicht gebaut werden!';
      spieler.gamemessage.time:=0;
      spieler.infostapel.push(spieler.gamemessage);
    end;