Subversion Repositories spacemission

Rev

Rev 79 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 79 Rev 89
Line 35... Line 35...
35 
uses
 35 
uses
36 
  GamMain, Global;
 36 
  GamMain, Global;
37 
 
 37 
 
38 
{$R *.DFM}
 38 
{$R *.DFM}
39 
 
 39 
 
40 
const
 - 
 
41 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
 - 
 
42 
  Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
 - 
 
43 
 
 - 
 
44 
resourcestring
 - 
 
45 
  Cheat1Text = 'Unendlich Leben!';
 - 
 
46 
 
 - 
 
47 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
 40 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
48 
begin
 41 
begin
49 
  close;
 42 
  close;
50 
end;
 43 
end;
51 
 
 44 
 
52 
procedure TCheatForm.SearchCheats;
 45 
procedure TCheatForm.SearchCheats;
53 
begin
 46 
begin
54 
  Cheatbox.Items.Clear;
 47 
  Cheatbox.Items.Clear;
55 
  if mainform.FCheat then Cheatbox.Items.Append(Cheat1Text);
 48 
  if ctInfiniteLives in mainform.FCheats then Cheatbox.Items.Append(Cheat1Text);
56 
end;
 49 
end;
57 
 
 50 
 
58 
procedure TCheatForm.OKBtnClick(Sender: TObject);
 51 
procedure TCheatForm.OKBtnClick(Sender: TObject);
59 
resourcestring
 52 
resourcestring
60 
  SCheatUnlocked = 'Dieser Cheat wurde freigeschaltet!';
 53 
  SCheatUnlocked = 'Dieser Cheat wurde freigeschaltet!';
Line 64... Line 57...
64 
  temp: string;
 57 
  temp: string;
65 
  i, j: integer;
 58 
  i, j: integer;
66 
begin
 59 
begin
67 
  temp := '';
 60 
  temp := '';
68 
  j := 0;
 61 
  j := 0;
- 
 
 62 
 
- 
 
 63 
  if CheatEdit.text = '' then
- 
 
 64 
  begin
- 
 
 65 
    Close;
- 
 
 66 
    Exit;
- 
 
 67 
  end;
- 
 
 68 
 
69 
  for i := 1 to length(CheatEdit.text) do
 69 
  for i := 1 to length(CheatEdit.text) do
70 
  begin
 70 
  begin
71 
    inc(j);
 71 
    inc(j);
72 
    temp := temp + chr(byte(copy(CheatEdit.text, i, 1)[1]) xor j);
 72 
    temp := temp + chr(byte(copy(CheatEdit.text, i, 1)[1]) xor j);
73 
  end;
 73 
  end;
- 
 
 74 
  {$REGION 'Check and unlock Cheat 1 (Infinite lives)'}
74 
  if lowercase(temp) = lowercase(Cheat1) then
 75 
  if lowercase(temp) = lowercase(Cheat1) then
75 
  begin
 76 
  begin
76 
    if mainform.FCheat then
 77 
    if ctInfiniteLives in mainform.FCheats then
77 
      showmessage(SCheckAlreadyUnlocked)
 78 
      showmessage(SCheckAlreadyUnlocked)
78 
    else
 79 
    else
79 
    begin
 80 
    begin
80 
      showmessage(SCheatUnlocked);
 81 
      showmessage(SCheatUnlocked);
81 
      mainform.FCheat := true;
 82 
      Include(mainform.FCheats, ctInfiniteLives);
82 
      SearchCheats;
 83 
      SearchCheats;
83 
    end;
 84 
    end;
84 
    close;
 85 
    close;
85 
  end
 86 
  end
- 
 
 87 
  {$ENDREGION}
86 
  else
 88 
  else
87 
  begin
 89 
  begin
88 
    showmessage(SNoCheat);
 90 
    showmessage(SNoCheat);
89 
    CheatEdit.text := '';
 91 
    CheatEdit.text := '';
90 
    CheatEdit.setfocus;
 92 
    CheatEdit.setfocus;
Line 114... Line 116...
114 
end;
 116 
end;
115 
 
 117 
 
116 
procedure TCheatForm.Label2Click(Sender: TObject);
 118 
procedure TCheatForm.Label2Click(Sender: TObject);
117 
resourcestring
 119 
resourcestring
118 
  SDisableCheat = 'Diesen Cheat wirklich deaktivieren?';
 120 
  SDisableCheat = 'Diesen Cheat wirklich deaktivieren?';
119 
  SCheatDisabled = 'Dieser Cheat wurde deakiviert!';
 121 
  SCheatDisabled = 'Dieser Cheat wurde deaktiviert!';
120 
begin
 122 
begin
- 
 
 123 
  {$REGION 'Disable Cheat 1 (Infinite lives)'}
121 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
 124 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
122 
  begin
 125 
  begin
123 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
 126 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
124 
    begin
 127 
    begin
125 
      if MessageDlg(SDisableCheat, mtConfirmation, mbYesNoCancel, 0) = mrYes then
 128 
      if MessageDlg(SDisableCheat, mtConfirmation, mbYesNoCancel, 0) = mrYes then
126 
      begin
 129 
      begin
127 
        mainform.FCheat := false;
 130 
        Exclude(mainform.FCheats, ctInfiniteLives);
128 
        showmessage(SCheatDisabled);
 131 
        showmessage(SCheatDisabled);
129 
        SearchCheats;
 132 
        SearchCheats;
130 
      end;
 133 
      end;
131 
    end;
 134 
    end;
132 
  end;
 135 
  end;
- 
 
 136 
  {$ENDREGION}
133 
end;
 137 
end;
134 
 
 138 
 
135 
procedure TCheatForm.Label3Click(Sender: TObject);
 139 
procedure TCheatForm.Label3Click(Sender: TObject);
136 
begin
 140 
begin
137 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1); // do not localize
 141 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1); // do not localize