Subversion Repositories spacemission

Rev

Rev 28 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 28 Rev 79
Line 38... Line 38...
38 
{$R *.DFM}
 38 
{$R *.DFM}
39 
 
 39 
 
40 
const
 40 
const
41 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
 41 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
42 
  Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
 42 
  Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
- 
 
 43 
 
- 
 
 44 
resourcestring
43 
  Cheat1Text = 'Unendlich Leben!';
 45 
  Cheat1Text = 'Unendlich Leben!';
44 
 
 46 
 
45 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
 47 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
46 
begin
 48 
begin
47 
  close;
 49 
  close;
Line 52... Line 54...
52 
  Cheatbox.Items.Clear;
 54 
  Cheatbox.Items.Clear;
53 
  if mainform.FCheat then Cheatbox.Items.Append(Cheat1Text);
 55 
  if mainform.FCheat then Cheatbox.Items.Append(Cheat1Text);
54 
end;
 56 
end;
55 
 
 57 
 
56 
procedure TCheatForm.OKBtnClick(Sender: TObject);
 58 
procedure TCheatForm.OKBtnClick(Sender: TObject);
- 
 
 59 
resourcestring
- 
 
 60 
  SCheatUnlocked = 'Dieser Cheat wurde freigeschaltet!';
- 
 
 61 
  SCheckAlreadyUnlocked = 'Dieser Cheat wurde bereits freigeschaltet!';
- 
 
 62 
  SNoCheat = 'Dies ist kein offizieller Cheat!';
57 
var
 63 
var
58 
  temp: string;
 64 
  temp: string;
59 
  i, j: integer;
 65 
  i, j: integer;
60 
begin
 66 
begin
61 
  temp := '';
 67 
  temp := '';
Line 66... Line 72...
66 
    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);
67 
  end;
 73 
  end;
68 
  if lowercase(temp) = lowercase(Cheat1) then
 74 
  if lowercase(temp) = lowercase(Cheat1) then
69 
  begin
 75 
  begin
70 
    if mainform.FCheat then
 76 
    if mainform.FCheat then
71 
      showmessage('Dieser Cheat wurde bereits freigeschaltet!')
 77 
      showmessage(SCheckAlreadyUnlocked)
72 
    else
 78 
    else
73 
    begin
 79 
    begin
74 
      showmessage('Dieser Cheat wurde freigeschaltet!');
 80 
      showmessage(SCheatUnlocked);
75 
      mainform.FCheat := true;
 81 
      mainform.FCheat := true;
76 
      SearchCheats;
 82 
      SearchCheats;
77 
    end;
 83 
    end;
78 
    close;
 84 
    close;
79 
  end
 85 
  end
80 
  else
 86 
  else
81 
  begin
 87 
  begin
82 
    showmessage('Dies ist kein offizieller Cheat!');
 88 
    showmessage(SNoCheat);
83 
    CheatEdit.text := '';
 89 
    CheatEdit.text := '';
84 
    CheatEdit.setfocus;
 90 
    CheatEdit.setfocus;
85 
  end;
 91 
  end;
86 
end;
 92 
end;
87 
 
 93 
 
Line 106... Line 112...
106 
    OKBtn.click;
 112 
    OKBtn.click;
107 
  end;
 113 
  end;
108 
end;
 114 
end;
109 
 
 115 
 
110 
procedure TCheatForm.Label2Click(Sender: TObject);
 116 
procedure TCheatForm.Label2Click(Sender: TObject);
- 
 
 117 
resourcestring
- 
 
 118 
  SDisableCheat = 'Diesen Cheat wirklich deaktivieren?';
- 
 
 119 
  SCheatDisabled = 'Dieser Cheat wurde deakiviert!';
111 
begin
 120 
begin
112 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
 121 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
113 
  begin
 122 
  begin
114 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
 123 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
115 
    begin
 124 
    begin
116 
      if MessageDlg('Diesen Cheat wirklich deaktivieren?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
 125 
      if MessageDlg(SDisableCheat, mtConfirmation, mbYesNoCancel, 0) = mrYes then
117 
      begin
 126 
      begin
118 
        mainform.FCheat := false;
 127 
        mainform.FCheat := false;
119 
        showmessage('Dieser Cheat wurde deakiviert!');
 128 
        showmessage(SCheatDisabled);
120 
        SearchCheats;
 129 
        SearchCheats;
121 
      end;
 130 
      end;
122 
    end;
 131 
    end;
123 
  end;
 132 
  end;
124 
end;
 133 
end;
125 
 
 134 
 
126 
procedure TCheatForm.Label3Click(Sender: TObject);
 135 
procedure TCheatForm.Label3Click(Sender: TObject);
127 
begin
 136 
begin
128 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1);
 137 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1); // do not localize
129 
end;
 138 
end;
130 
 
 139 
 
131 
end.
 140 
end.
132 
 
 141