Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 88 → Rev 89

/GamCheat.pas
37,13 → 37,6
 
{$R *.DFM}
 
const
// Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
 
resourcestring
Cheat1Text = 'Unendlich Leben!';
 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
begin
close;
52,7 → 45,7
procedure TCheatForm.SearchCheats;
begin
Cheatbox.Items.Clear;
if mainform.FCheat then Cheatbox.Items.Append(Cheat1Text);
if ctInfiniteLives in mainform.FCheats then Cheatbox.Items.Append(Cheat1Text);
end;
 
procedure TCheatForm.OKBtnClick(Sender: TObject);
66,23 → 59,32
begin
temp := '';
j := 0;
 
if CheatEdit.text = '' then
begin
Close;
Exit;
end;
 
for i := 1 to length(CheatEdit.text) do
begin
inc(j);
temp := temp + chr(byte(copy(CheatEdit.text, i, 1)[1]) xor j);
end;
{$REGION 'Check and unlock Cheat 1 (Infinite lives)'}
if lowercase(temp) = lowercase(Cheat1) then
begin
if mainform.FCheat then
if ctInfiniteLives in mainform.FCheats then
showmessage(SCheckAlreadyUnlocked)
else
begin
showmessage(SCheatUnlocked);
mainform.FCheat := true;
Include(mainform.FCheats, ctInfiniteLives);
SearchCheats;
end;
close;
end
{$ENDREGION}
else
begin
showmessage(SNoCheat);
116,8 → 118,9
procedure TCheatForm.Label2Click(Sender: TObject);
resourcestring
SDisableCheat = 'Diesen Cheat wirklich deaktivieren?';
SCheatDisabled = 'Dieser Cheat wurde deakiviert!';
SCheatDisabled = 'Dieser Cheat wurde deaktiviert!';
begin
{$REGION 'Disable Cheat 1 (Infinite lives)'}
if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
begin
if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
124,12 → 127,13
begin
if MessageDlg(SDisableCheat, mtConfirmation, mbYesNoCancel, 0) = mrYes then
begin
mainform.FCheat := false;
Exclude(mainform.FCheats, ctInfiniteLives);
showmessage(SCheatDisabled);
SearchCheats;
end;
end;
end;
{$ENDREGION}
end;
 
procedure TCheatForm.Label3Click(Sender: TObject);