1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type timer_execute_functions = record
                      ID_der_zu_startenden Funktion: integer;
                      Parameter_a: string;
                      Parameter_b: string;
                      Parameter_c: string;
                      Parameter_d: string;
                      Parameter_e: string;
                      Endtime: integer;
                    end;

var
  currenttimerpostion: integer = 0;
  aktionen: array of timer_execute_functions;                    

1:

i: integer;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

type timer_execute_functions = record  
                      ID_der_zu_startenden Funktion: integer;  
                      Parameter_a: string;  
                      Parameter_b: string;  
                      Parameter_c: string;  
                      Parameter_d: string;  
                      Parameter_e: string;  
                      Endtime: integer;  
                    end;                    

1:

aktionen: array of timer_execute_functions;                    

1:
2:

inc(i);
checkfunc;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function checkfunc: boolean;
var
  k: integer;
begin
  for k := 0 to 179999 do
    begin
     if aktionen[k].Endtime > i then
       begin
         exe_befehl(aktion[k].ID_der_zu_startenden Funktion (..und parameter));
       end;
    end;
end;                    

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

for i:=0 to count(bauliste) do
  if bauliste[i].erstellt+bauliste[i].bauzeit <= datum then
  begin
    bauliste[i].pointeraufobjekt^.baue;
    löscheelement(bauliste,i);
  end;                    

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

zeichung der gebäude:
for i:= to Hig(gebäude) do begin
  if gebäude[i].gebaut = True then 
    GFL.DrawImage(geäude[i].x,gebäude[i].y,gebäude[i].name,gebäude[i].tex) // glf ist einie enige klasse mit der ist noch leichte ist dx anwendungen zu schreiben *G*
  else begin
    with Gebäude[i] do begin
      if bg+1 >= bgCount then begin
         bg:=0;

        inc(pa) 
       end
       else
        inc(bg)
    end;
  end;
  GFL.DrawImage(geäude[i].x,gebäude[i].y,gebäude[i].name,gebäude[i].tex)  
   
end;