WebSVN – spacemission – Diff – /SplSpeicherung.pas


unit SplSpeicherung;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Spin;
 
type
  TSpeicherungForm = class(TForm)
    Bevel1: TBevel;
    LadenBtn: TButton;
    LoeschenBtn: TButton;
    AktualisierenBtn: TButton;
    SpeichernBtn: TButton;
    AbbrechenBtn: TButton;
    LevelListBox: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    LevelName: TEdit;
    ElPanel1: TPanel;
    li4a: TLabel;
    li1: TLabel;
    li3b: TLabel;
    li3a: TLabel;
    li4b: TLabel;
    liu: TLabel;
    liw: TLabel;
    li2a: TLabel;
    li2b: TLabel;
    procedure LoeschenBtnClick(Sender: TObject);
    procedure LadenBtnClick(Sender: TObject);
    procedure SpeichernBtnClick(Sender: TObject);
    procedure LevelListBoxClick(Sender: TObject);
    procedure LevelNameChange(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DsFancyButton2Click(Sender: TObject);
    procedure AbbrechenBtnClick(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure LevelListBoxDblClick(Sender: TObject);
  public
    procedure SearchSaves;
  end;
 
var
  SpeicherungForm: TSpeicherungForm;
 
 
 
 
implementation
 
uses
  Global, SplMain;
 
{$R *.DFM}
 
procedure TSpeicherungForm.SearchSaves;
var
  sr: TSearchRec;
  res: integer;
begin
  LevelName.text := '';
  LevelListBox.items.clear;
  li1.visible := false;
  li2a.visible := false;
  li2b.visible := false;
  li3a.visible := false;
  li3b.visible := false;
  li4a.visible := false;
  li4b.visible := false;
  liu.visible := false;
  liw.visible := true;
  li1.caption := 'n/a';
  li2b.caption := 'n/a';
  li3b.caption := 'n/a';
  li4b.caption := 'n/a';
  LadenBtn.enabled := false;
  LoeschenBtn.enabled := false;
  res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr);
  try
    while (res = 0) do
    begin
      if (sr.name <> '.') and (sr.name <> '..') then
        LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4));
      res := FindNext(sr);
    end;
  finally
    FindClose(sr);
  end;
end;
 
procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);
var
  Markiert: boolean;
  i: integer;
begin
  Markiert := false;
  for i := 0 to LevelListBox.items.Count-1 do
  begin
    if LevelListBox.Selected[i] then Markiert := true;
  end;
  if not Markiert then exit;
  if MessageDlg('Diesen Spielstand wirklich löschen?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    li1.visible := false;
    li2a.visible := false;
    li2b.visible := false;
    li3a.visible := false;
    li3b.visible := false;
    li4a.visible := false;
    li4b.visible := false;
    liu.visible := false;
    liw.visible := false;
    li1.caption := 'n/a';
    li2b.caption := 'n/a';
    li3b.caption := 'n/a';
    li4b.caption := 'n/a';
    LadenBtn.enabled := false;
    LoeschenBtn.enabled := false;
    deletefile(FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
    searchsaves;
  end;
end;
 
procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
var
  Markiert: boolean;
  i: integer;
  SavGame: textfile;
begin
  Markiert := false;
  for i := 0 to LevelListBox.items.Count-1 do
  begin
    if LevelListBox.Selected[i] then Markiert := true;
  end;
  if not Markiert then exit;
  if LevelListBox.items.count = 0 then
  begin
    li1.visible := false;
    li2a.visible := false;
    li2b.visible := false;
    li3a.visible := false;
    li3b.visible := false;
    li4a.visible := false;
    li4b.visible := false;
    liu.visible := false;
    liw.visible := false;
    li1.caption := 'n/a';
    li2b.caption := 'n/a';
    li3b.caption := 'n/a';
    li4b.caption := 'n/a';
    LadenBtn.enabled := false;
    LoeschenBtn.enabled := false;
  end;
  {if liu.visible or (LevelListBox.items.count=0) then
    exit;}
  AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
  Reset(SavGame);
  ReadLN(SavGame);
  ReadLN(SavGame);
  ReadLN(SavGame, mainform.FScore);
  ReadLN(SavGame, mainform.FLife);
  ReadLN(SavGame, mainform.Flevel);
  ReadLN(SavGame, mainform.FMenuItem);
  CloseFile(SavGame);
  mainform.playsound('SceneMov', false);
  mainform.FNextScene := gsNewLevel;
  mainform.FCheat := false;
  close;
end;
 
procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);
var
  SavGame: textfile;
  i: integer;
begin
  if Levelname.text = '' then
  begin
    MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
    LevelName.setfocus;
    exit;
  end;
  for i := 0 to length(LevelName.text) do
  begin
    if (copy(LevelName.text, i, 1) = '\') or
      (copy(LevelName.text, i, 1) = '/') or
      (copy(LevelName.text, i, 1) = ':') or
      (copy(LevelName.text, i, 1) = '*') or
      (copy(LevelName.text, i, 1) = '?') or
      (copy(LevelName.text, i, 1) = '"') or
      (copy(LevelName.text, i, 1) = '<') or
      (copy(LevelName.text, i, 1) = '>') or
      (copy(LevelName.text, i, 1) = '|') then
    begin
      MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
      LevelName.setfocus;
      exit;
    end;
  end;
  if LevelListBox.items.IndexOf(LevelName.text) > -1 then
  begin
    if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
      exit;
  end;
  AssignFile(SavGame, FDirectory+'Spielstände\'+LevelName.text+'.sav');
  Rewrite(SavGame);
  WriteLN(SavGame, '; SpaceMission '+FCompVersion);
  WriteLN(SavGame, '; SAV-File');
  WriteLN(SavGame, mainform.FScore);
  WriteLN(SavGame, mainform.FLife);
  WriteLN(SavGame, mainform.FLevel);
  WriteLN(SavGame, mainform.FMenuItem);
  CloseFile(SavGame);
  SearchSaves;
end;
 
procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject);
var
  Ergebniss: String;
  SavGame: textfile;
  Punkte, Leben, Level, Art: integer;
begin
  ladenbtn.enabled := true;
  loeschenbtn.enabled := true;
  li1.visible := false;
  li2a.visible := false;
  li2b.visible := false;
  li3a.visible := false;
  li3b.visible := false;
  li4a.visible := false;
  li4b.visible := false;
  liu.visible := false;
  liw.visible := false;
  li1.caption := 'n/a';
  li2b.caption := 'n/a';
  li3b.caption := 'n/a';
  li4b.caption := 'n/a';
  if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
  begin
    ladenbtn.enabled := false;
    loeschenbtn.enabled := false;
    liw.visible := true;
    exit;
  end;
  LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex];
  AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
  Reset(SavGame);
  ReadLN(SavGame, Ergebniss);
  if Ergebniss <> '; SpaceMission '+FCompVersion then
  begin
    liu.visible := true;
    ladenbtn.enabled := false;
    CloseFile(SavGame);
    exit;
  end;
  ReadLN(SavGame, Ergebniss);
  if Ergebniss <> '; SAV-File' then
  begin
    liu.visible := true;
    ladenbtn.enabled := false;
    CloseFile(SavGame);
    exit;
  end;
  ReadLN(SavGame, Punkte);
  ReadLN(SavGame, Leben);
  ReadLN(SavGame, Level);
  ReadLN(SavGame, Art);
  CloseFile(SavGame);
  li1.visible := true;
  li2a.visible := true;
  li2b.visible := true;
  li3a.visible := true;
  li3b.visible := true;
  li4a.visible := true;
  li4b.visible := true;
  if Art = 1 then
    li1.caption := 'Das Level ist ein normales Level.'
  else
    li1.caption := 'Das Level ist ein Zufallslevel.';
  li3b.caption := inttostr(Level);
  li4b.caption := inttostr(Leben);
  li2b.caption := inttostr(Punkte);
end;
 
procedure TSpeicherungForm.LevelNameChange(Sender: TObject);
begin
  //listbox1.Items.indexof('Level '+spinedit1.text);
end;
 
procedure TSpeicherungForm.Button4Click(Sender: TObject);
begin
  mainform.dxtimer.enabled := not mainform.gamepause.checked;
  close;
end;
 
procedure TSpeicherungForm.FormShow(Sender: TObject);
begin
  mainform.dxtimer.enabled := false;
  SearchSaves;
  if mainform.FNotSave then
  begin
    label1.enabled := false;
    LevelName.enabled := false;
    SpeichernBtn.enabled := false;
  end
  else
  begin
    label1.enabled := true;
    LevelName.enabled := true;
    SpeichernBtn.enabled := true;
  end;
end;
 
procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject);
begin
  SearchSaves;
end;
 
procedure TSpeicherungForm.AbbrechenBtnClick(Sender: TObject);
begin
  close;
end;
 
procedure TSpeicherungForm.FormHide(Sender: TObject);
begin
  if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
end;
 
procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject);
begin
  LadenBtn.click;
end;
 
end.
 
 

Rev 1	Rev 2
1	unit SplSpeicherung;	1	unit SplSpeicherung;
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, ExtCtrls, Spin;	7	StdCtrls, ExtCtrls, Spin;
8		8
9	type	9	type
10	TSpeicherungForm = class(TForm)	10	TSpeicherungForm = class(TForm)
11	Bevel1: TBevel;	11	Bevel1: TBevel;
12	LadenBtn: TButton;	12	LadenBtn: TButton;
13	LoeschenBtn: TButton;	13	LoeschenBtn: TButton;
14	AktualisierenBtn: TButton;	14	AktualisierenBtn: TButton;
15	SpeichernBtn: TButton;	15	SpeichernBtn: TButton;
16	AbbrechenBtn: TButton;	16	AbbrechenBtn: TButton;
17	LevelListBox: TListBox;	17	LevelListBox: TListBox;
18	Label2: TLabel;	18	Label2: TLabel;
19	Label3: TLabel;	19	Label3: TLabel;
20	Label1: TLabel;	20	Label1: TLabel;
21	LevelName: TEdit;	21	LevelName: TEdit;
22	ElPanel1: TPanel;	22	ElPanel1: TPanel;
23	li4a: TLabel;	23	li4a: TLabel;
24	li1: TLabel;	24	li1: TLabel;
25	li3b: TLabel;	25	li3b: TLabel;
26	li3a: TLabel;	26	li3a: TLabel;
27	li4b: TLabel;	27	li4b: TLabel;
28	liu: TLabel;	28	liu: TLabel;
29	liw: TLabel;	29	liw: TLabel;
30	li2a: TLabel;	30	li2a: TLabel;
31	li2b: TLabel;	31	li2b: TLabel;
32	procedure LoeschenBtnClick(Sender: TObject);	32	procedure LoeschenBtnClick(Sender: TObject);
33	procedure LadenBtnClick(Sender: TObject);	33	procedure LadenBtnClick(Sender: TObject);
34	procedure SpeichernBtnClick(Sender: TObject);	34	procedure SpeichernBtnClick(Sender: TObject);
35	procedure LevelListBoxClick(Sender: TObject);	35	procedure LevelListBoxClick(Sender: TObject);
36	procedure LevelNameChange(Sender: TObject);	36	procedure LevelNameChange(Sender: TObject);
37	procedure Button4Click(Sender: TObject);	37	procedure Button4Click(Sender: TObject);
38	procedure FormShow(Sender: TObject);	38	procedure FormShow(Sender: TObject);
39	procedure DsFancyButton2Click(Sender: TObject);	39	procedure DsFancyButton2Click(Sender: TObject);
40	procedure AbbrechenBtnClick(Sender: TObject);	40	procedure AbbrechenBtnClick(Sender: TObject);
41	procedure FormHide(Sender: TObject);	41	procedure FormHide(Sender: TObject);
42	procedure LevelListBoxDblClick(Sender: TObject);	42	procedure LevelListBoxDblClick(Sender: TObject);
43	public	43	public
44	procedure SearchSaves;	44	procedure SearchSaves;
45	end;	45	end;
46		46
47	var	47	var
48	SpeicherungForm: TSpeicherungForm;	48	SpeicherungForm: TSpeicherungForm;
49		49
50	const	-
51	FCompVersion = '1.0';	-
52		-
53	implementation	50	implementation
54		51
55	uses	52	uses
56	SplMain;	53	Global, SplMain;
57		54
58	{$R *.DFM}	55	{$R *.DFM}
59		56
60	procedure TSpeicherungForm.SearchSaves;	57	procedure TSpeicherungForm.SearchSaves;
61	var	58	var
62	sr: TSearchRec;	59	sr: TSearchRec;
63	res: integer;	60	res: integer;
64	begin	61	begin
65	LevelName.text := '';	62	LevelName.text := '';
66	LevelListBox.items.clear;	63	LevelListBox.items.clear;
67	li1.visible := false;	64	li1.visible := false;
68	li2a.visible := false;	65	li2a.visible := false;
69	li2b.visible := false;	66	li2b.visible := false;
70	li3a.visible := false;	67	li3a.visible := false;
71	li3b.visible := false;	68	li3b.visible := false;
72	li4a.visible := false;	69	li4a.visible := false;
73	li4b.visible := false;	70	li4b.visible := false;
74	liu.visible := false;	71	liu.visible := false;
75	liw.visible := true;	72	liw.visible := true;
76	li1.caption := 'n/a';	73	li1.caption := 'n/a';
77	li2b.caption := 'n/a';	74	li2b.caption := 'n/a';
78	li3b.caption := 'n/a';	75	li3b.caption := 'n/a';
79	li4b.caption := 'n/a';	76	li4b.caption := 'n/a';
80	LadenBtn.enabled := false;	77	LadenBtn.enabled := false;
81	LoeschenBtn.enabled := false;	78	LoeschenBtn.enabled := false;
82	res := FindFirst(mainform.fdirectory+'Spielstände\*.sav', 0, sr);	79	res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr);
83	try	80	try
84	while (res = 0) do	81	while (res = 0) do
85	begin	82	begin
86	if (sr.name <> '.') and (sr.name <> '..') then	83	if (sr.name <> '.') and (sr.name <> '..') then
87	LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4));	84	LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4));
88	res := FindNext(sr);	85	res := FindNext(sr);
89	end;	86	end;
90	finally	87	finally
91	FindClose(sr);	88	FindClose(sr);
92	end;	89	end;
93	end;	90	end;
94		91
95	procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);	92	procedure TSpeicherungForm.LoeschenBtnClick(Sender: TObject);
96	var	93	var
97	Markiert: boolean;	94	Markiert: boolean;
98	i: integer;	95	i: integer;
99	begin	96	begin
100	Markiert := false;	97	Markiert := false;
101	for i := 0 to LevelListBox.items.Count-1 do	98	for i := 0 to LevelListBox.items.Count-1 do
102	begin	99	begin
103	if LevelListBox.Selected[i] then Markiert := true;	100	if LevelListBox.Selected[i] then Markiert := true;
104	end;	101	end;
105	if not Markiert then exit;	102	if not Markiert then exit;
106	if MessageDlg('Diesen Spielstand wirklich löschen?',	103	if MessageDlg('Diesen Spielstand wirklich löschen?',
107	mtConfirmation, [mbYes, mbNo], 0) = mrYes then	104	mtConfirmation, [mbYes, mbNo], 0) = mrYes then
108	begin	105	begin
109	li1.visible := false;	106	li1.visible := false;
110	li2a.visible := false;	107	li2a.visible := false;
111	li2b.visible := false;	108	li2b.visible := false;
112	li3a.visible := false;	109	li3a.visible := false;
113	li3b.visible := false;	110	li3b.visible := false;
114	li4a.visible := false;	111	li4a.visible := false;
115	li4b.visible := false;	112	li4b.visible := false;
116	liu.visible := false;	113	liu.visible := false;
117	liw.visible := false;	114	liw.visible := false;
118	li1.caption := 'n/a';	115	li1.caption := 'n/a';
119	li2b.caption := 'n/a';	116	li2b.caption := 'n/a';
120	li3b.caption := 'n/a';	117	li3b.caption := 'n/a';
121	li4b.caption := 'n/a';	118	li4b.caption := 'n/a';
122	LadenBtn.enabled := false;	119	LadenBtn.enabled := false;
123	LoeschenBtn.enabled := false;	120	LoeschenBtn.enabled := false;
124	deletefile(mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');	121	deletefile(FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
125	searchsaves;	122	searchsaves;
126	end;	123	end;
127	end;	124	end;
128		125
129	procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);	126	procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
130	var	127	var
131	Markiert: boolean;	128	Markiert: boolean;
132	i: integer;	129	i: integer;
133	SavGame: textfile;	130	SavGame: textfile;
134	begin	131	begin
135	Markiert := false;	132	Markiert := false;
136	for i := 0 to LevelListBox.items.Count-1 do	133	for i := 0 to LevelListBox.items.Count-1 do
137	begin	134	begin
138	if LevelListBox.Selected[i] then Markiert := true;	135	if LevelListBox.Selected[i] then Markiert := true;
139	end;	136	end;
140	if not Markiert then exit;	137	if not Markiert then exit;
141	if LevelListBox.items.count = 0 then	138	if LevelListBox.items.count = 0 then
142	begin	139	begin
143	li1.visible := false;	140	li1.visible := false;
144	li2a.visible := false;	141	li2a.visible := false;
145	li2b.visible := false;	142	li2b.visible := false;
146	li3a.visible := false;	143	li3a.visible := false;
147	li3b.visible := false;	144	li3b.visible := false;
148	li4a.visible := false;	145	li4a.visible := false;
149	li4b.visible := false;	146	li4b.visible := false;
150	liu.visible := false;	147	liu.visible := false;
151	liw.visible := false;	148	liw.visible := false;
152	li1.caption := 'n/a';	149	li1.caption := 'n/a';
153	li2b.caption := 'n/a';	150	li2b.caption := 'n/a';
154	li3b.caption := 'n/a';	151	li3b.caption := 'n/a';
155	li4b.caption := 'n/a';	152	li4b.caption := 'n/a';
156	LadenBtn.enabled := false;	153	LadenBtn.enabled := false;
157	LoeschenBtn.enabled := false;	154	LoeschenBtn.enabled := false;
158	end;	155	end;
159	{if liu.visible or (LevelListBox.items.count=0) then	156	{if liu.visible or (LevelListBox.items.count=0) then
160	exit;}	157	exit;}
161	AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');	158	AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
162	Reset(SavGame);	159	Reset(SavGame);
163	ReadLN(SavGame);	160	ReadLN(SavGame);
164	ReadLN(SavGame);	161	ReadLN(SavGame);
165	ReadLN(SavGame, mainform.FScore);	162	ReadLN(SavGame, mainform.FScore);
166	ReadLN(SavGame, mainform.FLife);	163	ReadLN(SavGame, mainform.FLife);
167	ReadLN(SavGame, mainform.Flevel);	164	ReadLN(SavGame, mainform.Flevel);
168	ReadLN(SavGame, mainform.FMenuItem);	165	ReadLN(SavGame, mainform.FMenuItem);
169	CloseFile(SavGame);	166	CloseFile(SavGame);
170	mainform.playsound('SceneMov', false);	167	mainform.playsound('SceneMov', false);
171	mainform.FNextScene := gsNewLevel;	168	mainform.FNextScene := gsNewLevel;
172	mainform.FCheat := false;	169	mainform.FCheat := false;
173	close;	170	close;
174	end;	171	end;
175		172
176	procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);	173	procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);
177	var	174	var
178	SavGame: textfile;	175	SavGame: textfile;
179	i: integer;	176	i: integer;
180	begin	177	begin
181	if Levelname.text = '' then	178	if Levelname.text = '' then
182	begin	179	begin
183	MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);	180	MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
184	LevelName.setfocus;	181	LevelName.setfocus;
185	exit;	182	exit;
186	end;	183	end;
187	for i := 0 to length(LevelName.text) do	184	for i := 0 to length(LevelName.text) do
188	begin	185	begin
189	if (copy(LevelName.text, i, 1) = '\') or	186	if (copy(LevelName.text, i, 1) = '\') or
190	(copy(LevelName.text, i, 1) = '/') or	187	(copy(LevelName.text, i, 1) = '/') or
191	(copy(LevelName.text, i, 1) = ':') or	188	(copy(LevelName.text, i, 1) = ':') or
192	(copy(LevelName.text, i, 1) = '*') or	189	(copy(LevelName.text, i, 1) = '*') or
193	(copy(LevelName.text, i, 1) = '?') or	190	(copy(LevelName.text, i, 1) = '?') or
194	(copy(LevelName.text, i, 1) = '"') or	191	(copy(LevelName.text, i, 1) = '"') or
195	(copy(LevelName.text, i, 1) = '<') or	192	(copy(LevelName.text, i, 1) = '<') or
196	(copy(LevelName.text, i, 1) = '>') or	193	(copy(LevelName.text, i, 1) = '>') or
197	(copy(LevelName.text, i, 1) = '\|') then	194	(copy(LevelName.text, i, 1) = '\|') then
198	begin	195	begin
199	MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);	196	MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
200	LevelName.setfocus;	197	LevelName.setfocus;
201	exit;	198	exit;
202	end;	199	end;
203	end;	200	end;
204	if LevelListBox.items.IndexOf(LevelName.text) > -1 then	201	if LevelListBox.items.IndexOf(LevelName.text) > -1 then
205	begin	202	begin
206	if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then	203	if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
207	exit;	204	exit;
208	end;	205	end;
209	AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelName.text+'.sav');	206	AssignFile(SavGame, FDirectory+'Spielstände\'+LevelName.text+'.sav');
210	Rewrite(SavGame);	207	Rewrite(SavGame);
211	WriteLN(SavGame, '; SpaceMission '+FCompVersion);	208	WriteLN(SavGame, '; SpaceMission '+FCompVersion);
212	WriteLN(SavGame, '; SAV-File');	209	WriteLN(SavGame, '; SAV-File');
213	WriteLN(SavGame, mainform.FScore);	210	WriteLN(SavGame, mainform.FScore);
214	WriteLN(SavGame, mainform.FLife);	211	WriteLN(SavGame, mainform.FLife);
215	WriteLN(SavGame, mainform.FLevel);	212	WriteLN(SavGame, mainform.FLevel);
216	WriteLN(SavGame, mainform.FMenuItem);	213	WriteLN(SavGame, mainform.FMenuItem);
217	CloseFile(SavGame);	214	CloseFile(SavGame);
218	SearchSaves;	215	SearchSaves;
219	end;	216	end;
220		217
221	procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject);	218	procedure TSpeicherungForm.LevelListBoxClick(Sender: TObject);
222	var	219	var
223	Ergebniss: String;	220	Ergebniss: String;
224	SavGame: textfile;	221	SavGame: textfile;
225	Punkte, Leben, Level, Art: integer;	222	Punkte, Leben, Level, Art: integer;
226	begin	223	begin
227	ladenbtn.enabled := true;	224	ladenbtn.enabled := true;
228	loeschenbtn.enabled := true;	225	loeschenbtn.enabled := true;
229	li1.visible := false;	226	li1.visible := false;
230	li2a.visible := false;	227	li2a.visible := false;
231	li2b.visible := false;	228	li2b.visible := false;
232	li3a.visible := false;	229	li3a.visible := false;
233	li3b.visible := false;	230	li3b.visible := false;
234	li4a.visible := false;	231	li4a.visible := false;
235	li4b.visible := false;	232	li4b.visible := false;
236	liu.visible := false;	233	liu.visible := false;
237	liw.visible := false;	234	liw.visible := false;
238	li1.caption := 'n/a';	235	li1.caption := 'n/a';
239	li2b.caption := 'n/a';	236	li2b.caption := 'n/a';
240	li3b.caption := 'n/a';	237	li3b.caption := 'n/a';
241	li4b.caption := 'n/a';	238	li4b.caption := 'n/a';
242	if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then	239	if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
243	begin	240	begin
244	ladenbtn.enabled := false;	241	ladenbtn.enabled := false;
245	loeschenbtn.enabled := false;	242	loeschenbtn.enabled := false;
246	liw.visible := true;	243	liw.visible := true;
247	exit;	244	exit;
248	end;	245	end;
249	LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex];	246	LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex];
250	AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');	247	AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav');
251	Reset(SavGame);	248	Reset(SavGame);
252	ReadLN(SavGame, Ergebniss);	249	ReadLN(SavGame, Ergebniss);
253	if Ergebniss <> '; SpaceMission '+FCompVersion then	250	if Ergebniss <> '; SpaceMission '+FCompVersion then
254	begin	251	begin
255	liu.visible := true;	252	liu.visible := true;
256	ladenbtn.enabled := false;	253	ladenbtn.enabled := false;
257	CloseFile(SavGame);	254	CloseFile(SavGame);
258	exit;	255	exit;
259	end;	256	end;
260	ReadLN(SavGame, Ergebniss);	257	ReadLN(SavGame, Ergebniss);
261	if Ergebniss <> '; SAV-File' then	258	if Ergebniss <> '; SAV-File' then
262	begin	259	begin
263	liu.visible := true;	260	liu.visible := true;
264	ladenbtn.enabled := false;	261	ladenbtn.enabled := false;
265	CloseFile(SavGame);	262	CloseFile(SavGame);
266	exit;	263	exit;
267	end;	264	end;
268	ReadLN(SavGame, Punkte);	265	ReadLN(SavGame, Punkte);
269	ReadLN(SavGame, Leben);	266	ReadLN(SavGame, Leben);
270	ReadLN(SavGame, Level);	267	ReadLN(SavGame, Level);
271	ReadLN(SavGame, Art);	268	ReadLN(SavGame, Art);
272	CloseFile(SavGame);	269	CloseFile(SavGame);
273	li1.visible := true;	270	li1.visible := true;
274	li2a.visible := true;	271	li2a.visible := true;
275	li2b.visible := true;	272	li2b.visible := true;
276	li3a.visible := true;	273	li3a.visible := true;
277	li3b.visible := true;	274	li3b.visible := true;
278	li4a.visible := true;	275	li4a.visible := true;
279	li4b.visible := true;	276	li4b.visible := true;
280	if Art = 1 then	277	if Art = 1 then
281	li1.caption := 'Das Level ist ein normales Level.'	278	li1.caption := 'Das Level ist ein normales Level.'
282	else	279	else
283	li1.caption := 'Das Level ist ein Zufallslevel.';	280	li1.caption := 'Das Level ist ein Zufallslevel.';
284	li3b.caption := inttostr(Level);	281	li3b.caption := inttostr(Level);
285	li4b.caption := inttostr(Leben);	282	li4b.caption := inttostr(Leben);
286	li2b.caption := inttostr(Punkte);	283	li2b.caption := inttostr(Punkte);
287	end;	284	end;
288		285
289	procedure TSpeicherungForm.LevelNameChange(Sender: TObject);	286	procedure TSpeicherungForm.LevelNameChange(Sender: TObject);
290	begin	287	begin
291	//listbox1.Items.indexof('Level '+spinedit1.text);	288	//listbox1.Items.indexof('Level '+spinedit1.text);
292	end;	289	end;
293		290
294	procedure TSpeicherungForm.Button4Click(Sender: TObject);	291	procedure TSpeicherungForm.Button4Click(Sender: TObject);
295	begin	292	begin
296	mainform.dxtimer.enabled := not mainform.gamepause.checked;	293	mainform.dxtimer.enabled := not mainform.gamepause.checked;
297	close;	294	close;
298	end;	295	end;
299		296
300	procedure TSpeicherungForm.FormShow(Sender: TObject);	297	procedure TSpeicherungForm.FormShow(Sender: TObject);
301	begin	298	begin
302	mainform.dxtimer.enabled := false;	299	mainform.dxtimer.enabled := false;
303	SearchSaves;	300	SearchSaves;
304	if mainform.FNotSave then	301	if mainform.FNotSave then
305	begin	302	begin
306	label1.enabled := false;	303	label1.enabled := false;
307	LevelName.enabled := false;	304	LevelName.enabled := false;
308	SpeichernBtn.enabled := false;	305	SpeichernBtn.enabled := false;
309	end	306	end
310	else	307	else
311	begin	308	begin
312	label1.enabled := true;	309	label1.enabled := true;
313	LevelName.enabled := true;	310	LevelName.enabled := true;
314	SpeichernBtn.enabled := true;	311	SpeichernBtn.enabled := true;
315	end;	312	end;
316	end;	313	end;
317		314
318	procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject);	315	procedure TSpeicherungForm.DsFancyButton2Click(Sender: TObject);
319	begin	316	begin
320	SearchSaves;	317	SearchSaves;
321	end;	318	end;
322		319
323	procedure TSpeicherungForm.AbbrechenBtnClick(Sender: TObject);	320	procedure TSpeicherungForm.AbbrechenBtnClick(Sender: TObject);
324	begin	321	begin
325	close;	322	close;
326	end;	323	end;
327		324
328	procedure TSpeicherungForm.FormHide(Sender: TObject);	325	procedure TSpeicherungForm.FormHide(Sender: TObject);
329	begin	326	begin
330	if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;	327	if not mainform.gamepause.checked then mainform.dxtimer.enabled := true;
331	end;	328	end;
332		329
333	procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject);	330	procedure TSpeicherungForm.LevelListBoxDblClick(Sender: TObject);
334	begin	331	begin
335	LadenBtn.click;	332	LadenBtn.click;
336	end;	333	end;
337		334
338	end.	335	end.
339		336
340		337

Subversion Repositories spacemission

spacemission/SplSpeicherung.pas – Rev 1 → 2