WebSVN – spacemission – Diff – /CnvMain.pas


unit CnvMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls, System.UITypes;
 
type
  TMainForm = class(TForm)
    Run: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    comb: TComboBox;
    gauge: TProgressBar;
    procedure RunClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  public
    FDirectory: string;
    procedure c02t03(von, an: string);
    procedure c03t04(von, an: string);
    procedure c04t10(von, an: string);
  end;
 
var
  MainForm: TMainForm;
  m: array[1..5] of tstrings;
 
implementation
 
{$R *.DFM}
 
 
 
procedure TMainForm.RunClick(Sender: TObject);
var
  i: integer;
begin
  if comb.ItemIndex = -1 then
  begin
    MessageDLG('Bitte Umwandlungsmethode wählen!', mtError, [mbOK], 0);
    exit;
  end;
  if not DirectoryExists(FDirectory+'Temp') then CreateDir(FDirectory+'Temp');
  if not DirectoryExists(FDirectory+'Temp\1') then CreateDir(FDirectory+'Temp\1');
  if not DirectoryExists(FDirectory+'Temp\2') then CreateDir(FDirectory+'Temp\2');
  if not DirectoryExists(FDirectory+'Eingabe') then CreateDir(FDirectory+'Eingabe');
  if not DirectoryExists(FDirectory+'Ausgabe') then CreateDir(FDirectory+'Ausgabe');
  for i := 1 to 999 do
  begin
    if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav');
    if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav');
    if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav');
    if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav');
    if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav');
    if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav');
    if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav');
    if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav');
    if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav');
    if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav');
    if fileexists(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev');
    if fileexists(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev');
  end;
  if comb.ItemIndex = 0 then c02t03(FDirectory+'Eingabe', FDirectory+'Ausgabe');
  if comb.ItemIndex = 1 then
  begin
    c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');
    c03t04(FDirectory+'Temp\1', FDirectory+'Ausgabe');
  end;
  if comb.ItemIndex = 2 then c03t04(FDirectory+'Eingabe', FDirectory+'Ausgabe');
  if comb.ItemIndex = 3 then c04t10(FDirectory+'Eingabe', FDirectory+'Ausgabe');
  if comb.ItemIndex = 4 then
  begin
    c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');
    c03t04(FDirectory+'Temp\1', FDirectory+'Test\2');
    c04t10(FDirectory+'Temp\2', FDirectory+'Ausgabe');
  end;
  if comb.ItemIndex = 5 then
  begin
    c03t04(FDirectory+'Eingabe', FDirectory+'Temp\1');
    c04t10(FDirectory+'Temp\1', FDirectory+'Ausgabe');
  end;
end;
 
procedure TMainForm.c02t03(von, an: string);
var
  daten: textfile;
  lev, i, j: integer;
  ergebnis, temp: string;
begin
  for lev := 1 to 999 do
  begin
    gauge.Position := gauge.Position + 1;
    if fileexists(von+'\Lev'+inttostr(lev)+'A1.sav') then
    begin
      m[1].loadfromfile(von+'\Lev'+inttostr(lev)+'A1.sav');
      m[2].loadfromfile(von+'\Lev'+inttostr(lev)+'A2.sav');
      m[3].loadfromfile(von+'\Lev'+inttostr(lev)+'A3.sav');
      m[4].loadfromfile(von+'\Lev'+inttostr(lev)+'A4.sav');
      m[5].loadfromfile(von+'\Lev'+inttostr(lev)+'A5.sav');
      m[1].strings[0]:='-624';
      if fileexists(an+'\Lev'+inttostr(lev)+'A6.sav') then
      begin
        assignfile(daten, an+'\Lev'+inttostr(lev)+'A6.sav');
        reset(daten);
        readln(daten, ergebnis);
        temp:=ergebnis;
        closefile(daten);
      end
      else
      begin
        temp:='30000';
      end;
      assignfile(daten, an+'\Level '+inttostr(lev)+'.lev');
      rewrite(daten);
      append(daten);
      writeln(daten, '; SpaceMission 0.3');
      writeln(daten, temp);
      for j := 0 to m[1].count-2 do
      begin
        for i := 0 to m[1].count-2 do
        begin
          if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then
          begin
            m[1].exchange(i, i+1);
            m[2].exchange(i, i+1);
            m[3].exchange(i, i+1);
            m[4].exchange(i, i+1);
            m[5].exchange(i, i+1);
          end;
        end;
      end;
      for i := 0 to m[3].count-1 do
      begin
        for j := 1 to 4 do
        begin
          if j = 1 then writeln(daten, m[3].strings[i]);
          if j = 2 then writeln(daten, m[1].strings[i]);
          if j = 3 then writeln(daten, m[2].strings[i]);
          if j = 4 then writeln(daten, m[4].strings[i]);
        end;
      end;
      closefile(daten);
    end;
  end;
  gauge.Position := 0;
end;
 
procedure TMainForm.c03t04(von, an: string);
var
  daten, daten2: textfile;
  lev: integer;
  ergebniss: string;
begin
  for lev := 1 to 999 do
  begin
    gauge.Position := gauge.Position + 1;
    if fileexists(von+'\Level '+inttostr(lev)+'.lev') then
    begin
      assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');
      reset(daten);
      assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');
      rewrite(daten2);
      while not seekeof(daten) do
      begin
        readln(daten, ergebniss);
        if ergebniss = '; SpaceMission 0.3' then
        begin
          writeln(daten2, '; SpaceMission 0.4');
          writeln(daten2, '; LEV-File');
        end
        else
        begin
          writeln(daten2, ergebniss);
        end;
      end;
      closefile(daten2);
      closefile(daten);
    end;
  end;
  gauge.Position := 0;
end;
 
procedure TMainForm.c04t10(von, an: string);
var
  daten, daten2: textfile;
  lev, z, act: integer;
  ergebnis: string;
begin
  for lev := 1 to 999 do
  begin
    gauge.Position := gauge.Position + 1;
    if fileexists(von+'\Level '+inttostr(lev)+'.lev') then
    begin
      assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');
      reset(daten);
      assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');
      rewrite(daten2);
      z := 0;
      act := 0;
      while not seekeof(daten) do
      begin
        inc(z);
        if z > 2 then inc(act);
        if act = 5 then act := 1;
        readln(daten, ergebnis);
        if ergebnis = '; SpaceMission 0.4' then
          writeln(daten2, '; SpaceMission 1.0')
        else
        begin
          if (ergebnis = '30000') and (z = 3) then
            writeln(daten2, '1200')
          else
          begin
            //if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then
            if (z < 4) or (z > 7) then
            begin
              if act = 4 then
                writeln(daten2, inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))
              else
                writeln(daten2, ergebnis);
            end;
          end;
        end;
      end;
      closefile(daten2);
      closefile(daten);
    end;
  end;
  gauge.Position := 0;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  FDirectory := extractfilepath(paramstr(0));
  m[1] := TStringList.create;
  m[2] := TStringList.create;
  m[3] := TStringList.create;
  m[4] := TStringList.create;
  m[5] := TStringList.create;
end;
 
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  m[1].Free;
  m[2].Free;
  m[3].Free;
  m[4].Free;
  m[5].Free;
end;
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar(FDirectory+'Eingabe\'), '', '', 1);
end;
 
procedure TMainForm.Button2Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar(FDirectory+'Ausgabe\'), '', '', 1);
end;
 
procedure TMainForm.Button3Click(Sender: TObject);
begin
  shellexecute(handle, 'open', pchar(FDirectory+'Levels\'), '', '', 1);
end;
 
end.
 
 

Rev 3	Rev 4
1	unit CnvMain;	1	unit CnvMain;
2		2
3	interface	3	interface
4		4
5	uses	5	uses
6	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,	6	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7	StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls;	7	StdCtrls, Gauges, ShellAPI, ExtCtrls, ComCtrls, System.UITypes;
8		8
9	type	9	type
10	TMainForm = class(TForm)	10	TMainForm = class(TForm)
11	Run: TButton;	11	Run: TButton;
12	Button1: TButton;	12	Button1: TButton;
13	Button2: TButton;	13	Button2: TButton;
14	Button3: TButton;	14	Button3: TButton;
15	Bevel1: TBevel;	15	Bevel1: TBevel;
16	Label1: TLabel;	16	Label1: TLabel;
17	Label2: TLabel;	17	Label2: TLabel;
18	comb: TComboBox;	18	comb: TComboBox;
19	gauge: TProgressBar;	19	gauge: TProgressBar;
20	procedure RunClick(Sender: TObject);	20	procedure RunClick(Sender: TObject);
21	procedure FormCreate(Sender: TObject);	21	procedure FormCreate(Sender: TObject);
22	procedure FormClose(Sender: TObject; var Action: TCloseAction);	22	procedure FormClose(Sender: TObject; var Action: TCloseAction);
23	procedure Button1Click(Sender: TObject);	23	procedure Button1Click(Sender: TObject);
24	procedure Button2Click(Sender: TObject);	24	procedure Button2Click(Sender: TObject);
25	procedure Button3Click(Sender: TObject);	25	procedure Button3Click(Sender: TObject);
26	public	26	public
27	FDirectory: string;	27	FDirectory: string;
28	procedure c02t03(von, an: string);	28	procedure c02t03(von, an: string);
29	procedure c03t04(von, an: string);	29	procedure c03t04(von, an: string);
30	procedure c04t10(von, an: string);	30	procedure c04t10(von, an: string);
31	end;	31	end;
32		32
33	var	33	var
34	MainForm: TMainForm;	34	MainForm: TMainForm;
35	m: array[1..5] of tstrings;	35	m: array[1..5] of tstrings;
36		36
37	implementation	37	implementation
38		38
39	{$R *.DFM}	39	{$R *.DFM}
40		40
41	{$R WindowsXP.res}	-
42		-
43	procedure TMainForm.RunClick(Sender: TObject);	41	procedure TMainForm.RunClick(Sender: TObject);
44	var	42	var
45	i: integer;	43	i: integer;
46	begin	44	begin
47	if comb.ItemIndex = -1 then	45	if comb.ItemIndex = -1 then
48	begin	46	begin
49	MessageDLG('Bitte Umwandlungsmethode wählen!', mtError, [mbOK], 0);	47	MessageDLG('Bitte Umwandlungsmethode wählen!', mtError, [mbOK], 0);
50	exit;	48	exit;
51	end;	49	end;
52	if not DirectoryExists(FDirectory+'Temp') then CreateDir(FDirectory+'Temp');	50	if not DirectoryExists(FDirectory+'Temp') then CreateDir(FDirectory+'Temp');
53	if not DirectoryExists(FDirectory+'Temp\1') then CreateDir(FDirectory+'Temp\1');	51	if not DirectoryExists(FDirectory+'Temp\1') then CreateDir(FDirectory+'Temp\1');
54	if not DirectoryExists(FDirectory+'Temp\2') then CreateDir(FDirectory+'Temp\2');	52	if not DirectoryExists(FDirectory+'Temp\2') then CreateDir(FDirectory+'Temp\2');
55	if not DirectoryExists(FDirectory+'Eingabe') then CreateDir(FDirectory+'Eingabe');	53	if not DirectoryExists(FDirectory+'Eingabe') then CreateDir(FDirectory+'Eingabe');
56	if not DirectoryExists(FDirectory+'Ausgabe') then CreateDir(FDirectory+'Ausgabe');	54	if not DirectoryExists(FDirectory+'Ausgabe') then CreateDir(FDirectory+'Ausgabe');
57	for i := 1 to 999 do	55	for i := 1 to 999 do
58	begin	56	begin
59	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav');	57	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A1.sav');
60	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav');	58	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A1.sav');
61	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav');	59	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A2.sav');
62	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav');	60	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A2.sav');
63	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav');	61	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A3.sav');
64	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav');	62	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A3.sav');
65	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav');	63	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A4.sav');
66	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav');	64	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A4.sav');
67	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav');	65	if fileexists(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\1\Lev'+inttostr(i)+'A5.sav');
68	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav');	66	if fileexists(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav') then DeleteFile(FDirectory+'Temp\2\Lev'+inttostr(i)+'A5.sav');
69	if fileexists(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev');	67	if fileexists(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\1\Level '+inttostr(i)+'.lev');
70	if fileexists(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev');	68	if fileexists(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev') then DeleteFile(FDirectory+'Temp\2\Level '+inttostr(i)+'.lev');
71	end;	69	end;
72	if comb.ItemIndex = 0 then c02t03(FDirectory+'Eingabe', FDirectory+'Ausgabe');	70	if comb.ItemIndex = 0 then c02t03(FDirectory+'Eingabe', FDirectory+'Ausgabe');
73	if comb.ItemIndex = 1 then	71	if comb.ItemIndex = 1 then
74	begin	72	begin
75	c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');	73	c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');
76	c03t04(FDirectory+'Temp\1', FDirectory+'Ausgabe');	74	c03t04(FDirectory+'Temp\1', FDirectory+'Ausgabe');
77	end;	75	end;
78	if comb.ItemIndex = 2 then c03t04(FDirectory+'Eingabe', FDirectory+'Ausgabe');	76	if comb.ItemIndex = 2 then c03t04(FDirectory+'Eingabe', FDirectory+'Ausgabe');
79	if comb.ItemIndex = 3 then c04t10(FDirectory+'Eingabe', FDirectory+'Ausgabe');	77	if comb.ItemIndex = 3 then c04t10(FDirectory+'Eingabe', FDirectory+'Ausgabe');
80	if comb.ItemIndex = 4 then	78	if comb.ItemIndex = 4 then
81	begin	79	begin
82	c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');	80	c02t03(FDirectory+'Eingabe', FDirectory+'Temp\1');
83	c03t04(FDirectory+'Temp\1', FDirectory+'Test\2');	81	c03t04(FDirectory+'Temp\1', FDirectory+'Test\2');
84	c04t10(FDirectory+'Temp\2', FDirectory+'Ausgabe');	82	c04t10(FDirectory+'Temp\2', FDirectory+'Ausgabe');
85	end;	83	end;
86	if comb.ItemIndex = 5 then	84	if comb.ItemIndex = 5 then
87	begin	85	begin
88	c03t04(FDirectory+'Eingabe', FDirectory+'Temp\1');	86	c03t04(FDirectory+'Eingabe', FDirectory+'Temp\1');
89	c04t10(FDirectory+'Temp\1', FDirectory+'Ausgabe');	87	c04t10(FDirectory+'Temp\1', FDirectory+'Ausgabe');
90	end;	88	end;
91	end;	89	end;
92		90
93	procedure TMainForm.c02t03(von, an: string);	91	procedure TMainForm.c02t03(von, an: string);
94	var	92	var
95	daten: textfile;	93	daten: textfile;
96	lev, i, j: integer;	94	lev, i, j: integer;
97	ergebnis, temp: string;	95	ergebnis, temp: string;
98	begin	96	begin
99	for lev := 1 to 999 do	97	for lev := 1 to 999 do
100	begin	98	begin
101	gauge.Position := gauge.Position + 1;	99	gauge.Position := gauge.Position + 1;
102	if fileexists(von+'\Lev'+inttostr(lev)+'A1.sav') then	100	if fileexists(von+'\Lev'+inttostr(lev)+'A1.sav') then
103	begin	101	begin
104	m[1].loadfromfile(von+'\Lev'+inttostr(lev)+'A1.sav');	102	m[1].loadfromfile(von+'\Lev'+inttostr(lev)+'A1.sav');
105	m[2].loadfromfile(von+'\Lev'+inttostr(lev)+'A2.sav');	103	m[2].loadfromfile(von+'\Lev'+inttostr(lev)+'A2.sav');
106	m[3].loadfromfile(von+'\Lev'+inttostr(lev)+'A3.sav');	104	m[3].loadfromfile(von+'\Lev'+inttostr(lev)+'A3.sav');
107	m[4].loadfromfile(von+'\Lev'+inttostr(lev)+'A4.sav');	105	m[4].loadfromfile(von+'\Lev'+inttostr(lev)+'A4.sav');
108	m[5].loadfromfile(von+'\Lev'+inttostr(lev)+'A5.sav');	106	m[5].loadfromfile(von+'\Lev'+inttostr(lev)+'A5.sav');
109	m[1].strings[0]:='-624';	107	m[1].strings[0]:='-624';
110	if fileexists(an+'\Lev'+inttostr(lev)+'A6.sav') then	108	if fileexists(an+'\Lev'+inttostr(lev)+'A6.sav') then
111	begin	109	begin
112	assignfile(daten, an+'\Lev'+inttostr(lev)+'A6.sav');	110	assignfile(daten, an+'\Lev'+inttostr(lev)+'A6.sav');
113	reset(daten);	111	reset(daten);
114	readln(daten, ergebnis);	112	readln(daten, ergebnis);
115	temp:=ergebnis;	113	temp:=ergebnis;
116	closefile(daten);	114	closefile(daten);
117	end	115	end
118	else	116	else
119	begin	117	begin
120	temp:='30000';	118	temp:='30000';
121	end;	119	end;
122	assignfile(daten, an+'\Level '+inttostr(lev)+'.lev');	120	assignfile(daten, an+'\Level '+inttostr(lev)+'.lev');
123	rewrite(daten);	121	rewrite(daten);
124	append(daten);	122	append(daten);
125	writeln(daten, '; SpaceMission 0.3');	123	writeln(daten, '; SpaceMission 0.3');
126	writeln(daten, temp);	124	writeln(daten, temp);
127	for j := 0 to m[1].count-2 do	125	for j := 0 to m[1].count-2 do
128	begin	126	begin
129	for i := 0 to m[1].count-2 do	127	for i := 0 to m[1].count-2 do
130	begin	128	begin
131	if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then	129	if strtoint(m[1].strings[i]) > strtoint(m[1].strings[i+1]) then
132	begin	130	begin
133	m[1].exchange(i, i+1);	131	m[1].exchange(i, i+1);
134	m[2].exchange(i, i+1);	132	m[2].exchange(i, i+1);
135	m[3].exchange(i, i+1);	133	m[3].exchange(i, i+1);
136	m[4].exchange(i, i+1);	134	m[4].exchange(i, i+1);
137	m[5].exchange(i, i+1);	135	m[5].exchange(i, i+1);
138	end;	136	end;
139	end;	137	end;
140	end;	138	end;
141	for i := 0 to m[3].count-1 do	139	for i := 0 to m[3].count-1 do
142	begin	140	begin
143	for j := 1 to 4 do	141	for j := 1 to 4 do
144	begin	142	begin
145	if j = 1 then writeln(daten, m[3].strings[i]);	143	if j = 1 then writeln(daten, m[3].strings[i]);
146	if j = 2 then writeln(daten, m[1].strings[i]);	144	if j = 2 then writeln(daten, m[1].strings[i]);
147	if j = 3 then writeln(daten, m[2].strings[i]);	145	if j = 3 then writeln(daten, m[2].strings[i]);
148	if j = 4 then writeln(daten, m[4].strings[i]);	146	if j = 4 then writeln(daten, m[4].strings[i]);
149	end;	147	end;
150	end;	148	end;
151	closefile(daten);	149	closefile(daten);
152	end;	150	end;
153	end;	151	end;
154	gauge.Position := 0;	152	gauge.Position := 0;
155	end;	153	end;
156		154
157	procedure TMainForm.c03t04(von, an: string);	155	procedure TMainForm.c03t04(von, an: string);
158	var	156	var
159	daten, daten2: textfile;	157	daten, daten2: textfile;
160	lev: integer;	158	lev: integer;
161	ergebniss: string;	159	ergebniss: string;
162	begin	160	begin
163	for lev := 1 to 999 do	161	for lev := 1 to 999 do
164	begin	162	begin
165	gauge.Position := gauge.Position + 1;	163	gauge.Position := gauge.Position + 1;
166	if fileexists(von+'\Level '+inttostr(lev)+'.lev') then	164	if fileexists(von+'\Level '+inttostr(lev)+'.lev') then
167	begin	165	begin
168	assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');	166	assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');
169	reset(daten);	167	reset(daten);
170	assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');	168	assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');
171	rewrite(daten2);	169	rewrite(daten2);
172	while not seekeof(daten) do	170	while not seekeof(daten) do
173	begin	171	begin
174	readln(daten, ergebniss);	172	readln(daten, ergebniss);
175	if ergebniss = '; SpaceMission 0.3' then	173	if ergebniss = '; SpaceMission 0.3' then
176	begin	174	begin
177	writeln(daten2, '; SpaceMission 0.4');	175	writeln(daten2, '; SpaceMission 0.4');
178	writeln(daten2, '; LEV-File');	176	writeln(daten2, '; LEV-File');
179	end	177	end
180	else	178	else
181	begin	179	begin
182	writeln(daten2, ergebniss);	180	writeln(daten2, ergebniss);
183	end;	181	end;
184	end;	182	end;
185	closefile(daten2);	183	closefile(daten2);
186	closefile(daten);	184	closefile(daten);
187	end;	185	end;
188	end;	186	end;
189	gauge.Position := 0;	187	gauge.Position := 0;
190	end;	188	end;
191		189
192	procedure TMainForm.c04t10(von, an: string);	190	procedure TMainForm.c04t10(von, an: string);
193	var	191	var
194	daten, daten2: textfile;	192	daten, daten2: textfile;
195	lev, z, act: integer;	193	lev, z, act: integer;
196	ergebnis: string;	194	ergebnis: string;
197	begin	195	begin
198	for lev := 1 to 999 do	196	for lev := 1 to 999 do
199	begin	197	begin
200	gauge.Position := gauge.Position + 1;	198	gauge.Position := gauge.Position + 1;
201	if fileexists(von+'\Level '+inttostr(lev)+'.lev') then	199	if fileexists(von+'\Level '+inttostr(lev)+'.lev') then
202	begin	200	begin
203	assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');	201	assignfile(daten, von+'\Level '+inttostr(lev)+'.lev');
204	reset(daten);	202	reset(daten);
205	assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');	203	assignfile(daten2, an+'\Level '+inttostr(lev)+'.lev');
206	rewrite(daten2);	204	rewrite(daten2);
207	z := 0;	205	z := 0;
208	act := 0;	206	act := 0;
209	while not seekeof(daten) do	207	while not seekeof(daten) do
210	begin	208	begin
211	inc(z);	209	inc(z);
212	if z > 2 then inc(act);	210	if z > 2 then inc(act);
213	if act = 5 then act := 1;	211	if act = 5 then act := 1;
214	readln(daten, ergebnis);	212	readln(daten, ergebnis);
215	if ergebnis = '; SpaceMission 0.4' then	213	if ergebnis = '; SpaceMission 0.4' then
216	writeln(daten2, '; SpaceMission 1.0')	214	writeln(daten2, '; SpaceMission 1.0')
217	else	215	else
218	begin	216	begin
219	if (ergebnis = '30000') and (z = 3) then	217	if (ergebnis = '30000') and (z = 3) then
220	writeln(daten2, '1200')	218	writeln(daten2, '1200')
221	else	219	else
222	begin	220	begin
223	//if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then	221	//if not (((ergebnis = '0') and (z = 4)) or ((ergebnis = '-624') and (z = 5)) or ((ergebnis = '222') and (z = 6)) or ((ergebnis = '3') and (z = 7))) then
224	if (z < 4) or (z > 7) then	222	if (z < 4) or (z > 7) then
225	begin	223	begin
226	if act = 4 then	224	if act = 4 then
227	writeln(daten2, inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))	225	writeln(daten2, inttostr(strtoint(ergebnis) + 32 - (5 * (strtoint(ergebnis) div 37))))
228	else	226	else
229	writeln(daten2, ergebnis);	227	writeln(daten2, ergebnis);
230	end;	228	end;
231	end;	229	end;
232	end;	230	end;
233	end;	231	end;
234	closefile(daten2);	232	closefile(daten2);
235	closefile(daten);	233	closefile(daten);
236	end;	234	end;
237	end;	235	end;
238	gauge.Position := 0;	236	gauge.Position := 0;
239	end;	237	end;
240		238
241	procedure TMainForm.FormCreate(Sender: TObject);	239	procedure TMainForm.FormCreate(Sender: TObject);
242	begin	240	begin
243	FDirectory := extractfilepath(paramstr(0));	241	FDirectory := extractfilepath(paramstr(0));
244	m[1] := TStringList.create;	242	m[1] := TStringList.create;
245	m[2] := TStringList.create;	243	m[2] := TStringList.create;
246	m[3] := TStringList.create;	244	m[3] := TStringList.create;
247	m[4] := TStringList.create;	245	m[4] := TStringList.create;
248	m[5] := TStringList.create;	246	m[5] := TStringList.create;
249	end;	247	end;
250		248
251	procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);	249	procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
252	begin	250	begin
253	m[1].Free;	251	m[1].Free;
254	m[2].Free;	252	m[2].Free;
255	m[3].Free;	253	m[3].Free;
256	m[4].Free;	254	m[4].Free;
257	m[5].Free;	255	m[5].Free;
258	end;	256	end;
259		257
260	procedure TMainForm.Button1Click(Sender: TObject);	258	procedure TMainForm.Button1Click(Sender: TObject);
261	begin	259	begin
262	shellexecute(handle, 'open', pchar(FDirectory+'Eingabe\'), '', '', 1);	260	shellexecute(handle, 'open', pchar(FDirectory+'Eingabe\'), '', '', 1);
263	end;	261	end;
264		262
265	procedure TMainForm.Button2Click(Sender: TObject);	263	procedure TMainForm.Button2Click(Sender: TObject);
266	begin	264	begin
267	shellexecute(handle, 'open', pchar(FDirectory+'Ausgabe\'), '', '', 1);	265	shellexecute(handle, 'open', pchar(FDirectory+'Ausgabe\'), '', '', 1);
268	end;	266	end;
269		267
270	procedure TMainForm.Button3Click(Sender: TObject);	268	procedure TMainForm.Button3Click(Sender: TObject);
271	begin	269	begin
272	shellexecute(handle, 'open', pchar(FDirectory+'Levels\'), '', '', 1);	270	shellexecute(handle, 'open', pchar(FDirectory+'Levels\'), '', '', 1);
273	end;	271	end;
274		272
275	end.	273	end.
276		274
277		275

Subversion Repositories spacemission

spacemission/CnvMain.pas – Rev 3 → 4