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 |