Rev 6 | Rev 14 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6 | Rev 8 | ||
---|---|---|---|
1 | unit LevMain; |
1 | unit LevMain; |
2 | 2 | ||
3 | interface |
3 | interface |
4 | 4 | ||
5 | uses |
5 | uses |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, MMSystem, |
7 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
7 | Dialogs, StdCtrls, ExtCtrls, Menus, DIB, DXClass, DXSprite, DXDraws, |
8 | DXSounds, Spin, ComCtrls{$IF CompilerVersion >= 23.0}, System.UITypes, |
8 | DXSounds, Spin, ComCtrls{$IF CompilerVersion >= 23.0}, System.UITypes, |
9 | WinAPI.DirectDraw{$ELSE}, DirectX{$IFEND}; |
9 | WinAPI.DirectDraw{$ELSE}, DirectX{$IFEND}; |
10 | 10 | ||
11 | type |
11 | type |
12 | TMainForm = class(TDXForm) |
12 | TMainForm = class(TDXForm) |
13 | MainMenu: TMainMenu; |
13 | MainMenu: TMainMenu; |
14 | Spiel: TMenuItem; |
14 | Spiel: TMenuItem; |
15 | Beenden: TMenuItem; |
15 | Beenden: TMenuItem; |
16 | Hilfe: TMenuItem; |
16 | Hilfe: TMenuItem; |
17 | Leer1: TMenuItem; |
17 | Leer1: TMenuItem; |
18 | Level: TMenuItem; |
18 | Level: TMenuItem; |
19 | Informationen: TMenuItem; |
19 | Informationen: TMenuItem; |
20 | Enemy1: TRadioButton; |
20 | Enemy1: TRadioButton; |
21 | Enemy2: TRadioButton; |
21 | Enemy2: TRadioButton; |
22 | Enemy3: TRadioButton; |
22 | Enemy3: TRadioButton; |
23 | Enemy4: TRadioButton; |
23 | Enemy4: TRadioButton; |
24 | Enemy5: TRadioButton; |
24 | Enemy5: TRadioButton; |
25 | Enemy6: TRadioButton; |
25 | Enemy6: TRadioButton; |
26 | Enemy7: TRadioButton; |
26 | Enemy7: TRadioButton; |
27 | ScrollBar: TScrollBar; |
27 | ScrollBar: TScrollBar; |
28 | Bevel1: TBevel; |
28 | Bevel1: TBevel; |
29 | Bevel2: TBevel; |
29 | Bevel2: TBevel; |
30 | SelLabel: TLabel; |
30 | SelLabel: TLabel; |
31 | SelPanel: TPanel; |
31 | SelPanel: TPanel; |
32 | Bevel3: TBevel; |
32 | Bevel3: TBevel; |
33 | SLabel1a: TLabel; |
33 | SLabel1a: TLabel; |
34 | SLabel2a: TLabel; |
34 | SLabel2a: TLabel; |
35 | SLabel1b: TLabel; |
35 | SLabel1b: TLabel; |
36 | SLabel2b: TLabel; |
36 | SLabel2b: TLabel; |
37 | SLabel0: TLabel; |
37 | SLabel0: TLabel; |
38 | Neu: TMenuItem; |
38 | Neu: TMenuItem; |
39 | Image1: TImage; |
39 | Image1: TImage; |
40 | SLabel3a: TLabel; |
40 | SLabel3a: TLabel; |
41 | SLabel3b: TLabel; |
41 | SLabel3b: TLabel; |
42 | SLabel4a: TLabel; |
42 | SLabel4a: TLabel; |
43 | SLabel4b: TLabel; |
43 | SLabel4b: TLabel; |
44 | LivesLabel: TLabel; |
44 | LivesLabel: TLabel; |
45 | Quelltext1: TMenuItem; |
45 | Quelltext1: TMenuItem; |
46 | StatusBar: TStatusBar; |
46 | StatusBar: TStatusBar; |
47 | N1: TMenuItem; |
47 | N1: TMenuItem; |
48 | Spielfelderweitern1: TMenuItem; |
48 | Spielfelderweitern1: TMenuItem; |
49 | LivesEdt: TEdit; |
49 | LivesEdt: TEdit; |
50 | Lives: TUpDown; |
50 | Lives: TUpDown; |
51 | procedure DXDrawFinalize(Sender: TObject); |
51 | procedure DXDrawFinalize(Sender: TObject); |
52 | procedure DXDrawInitialize(Sender: TObject); |
52 | procedure DXDrawInitialize(Sender: TObject); |
53 | procedure FormCreate(Sender: TObject); |
53 | procedure FormCreate(Sender: TObject); |
54 | procedure DXTimerTimer(Sender: TObject; LagCount: Integer); |
54 | procedure DXTimerTimer(Sender: TObject; LagCount: Integer); |
55 | procedure BeendenClick(Sender: TObject); |
55 | procedure BeendenClick(Sender: TObject); |
56 | procedure FormDestroy(Sender: TObject); |
56 | procedure FormDestroy(Sender: TObject); |
57 | procedure LevelClick(Sender: TObject); |
57 | procedure LevelClick(Sender: TObject); |
58 | procedure FormShow(Sender: TObject); |
58 | procedure FormShow(Sender: TObject); |
59 | procedure InformationenClick(Sender: TObject); |
59 | procedure InformationenClick(Sender: TObject); |
60 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
60 | procedure FormClose(Sender: TObject; var Action: TCloseAction); |
61 | procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
61 | procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
62 | Shift: TShiftState; X, Y: Integer); |
62 | Shift: TShiftState; X, Y: Integer); |
63 | procedure EnemyClick(Sender: TObject); |
63 | procedure EnemyClick(Sender: TObject); |
64 | procedure EnemyAdd(x, y, art, lives: integer); |
64 | procedure EnemyAdd(x, y, art, lives: integer); |
65 | procedure NeuClick(Sender: TObject); |
65 | procedure NeuClick(Sender: TObject); |
66 | procedure DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
66 | procedure DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
67 | Y: Integer); |
67 | Y: Integer); |
68 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
68 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
69 | procedure Quelltext1Click(Sender: TObject); |
69 | procedure Quelltext1Click(Sender: TObject); |
70 | procedure Spielfelderweitern1Click(Sender: TObject); |
70 | procedure Spielfelderweitern1Click(Sender: TObject); |
71 | procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; |
71 | procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; |
72 | var ScrollPos: Integer); |
72 | var ScrollPos: Integer); |
73 | procedure LivesClick(Sender: TObject; Button: TUDBtnType); |
73 | procedure LivesClick(Sender: TObject; Button: TUDBtnType); |
74 | procedure LivesEdtKeyPress(Sender: TObject; var Key: Char); |
74 | procedure LivesEdtKeyPress(Sender: TObject; var Key: Char); |
75 | procedure LivesEdtChange(Sender: TObject); |
75 | procedure LivesEdtChange(Sender: TObject); |
76 | public |
76 | public |
77 | { VCL-Ersatz } |
77 | { VCL-Ersatz } |
78 | spriteengine: tdxspriteengine; |
78 | spriteengine: tdxspriteengine; |
79 | dxtimer: tdxtimer; |
79 | dxtimer: tdxtimer; |
80 | imagelist: tdximagelist; |
80 | imagelist: tdximagelist; |
81 | dxdraw: tdxdraw; |
81 | dxdraw: tdxdraw; |
82 | { Variablen } |
82 | { Variablen } |
83 | FMenuItem: integer; |
83 | FMenuItem: integer; |
84 | Enemys: TStrings; |
84 | Enemys: TStrings; |
85 | ArtChecked: integer; |
85 | ArtChecked: integer; |
86 | LiveEdit: integer; |
86 | LiveEdit: integer; |
87 | ScrollP: integer; |
87 | ScrollP: integer; |
88 | AltScrollPos: integer; |
88 | AltScrollPos: integer; |
89 | Boss: boolean; |
89 | Boss: boolean; |
90 | LevChanged: boolean; |
90 | LevChanged: boolean; |
91 | NumEnemys: integer; |
91 | NumEnemys: integer; |
92 | { Level-Routinen } |
92 | { Level-Routinen } |
93 | procedure EnemyCreate(x, y: integer); |
93 | procedure EnemyCreate(x, y: integer); |
94 | procedure DestroyLevel; |
94 | procedure DestroyLevel; |
95 | procedure AnzeigeAct; |
95 | procedure AnzeigeAct; |
96 | { Initialisiations-Routinen } |
96 | { Initialisiations-Routinen } |
97 | procedure DXInit; |
97 | procedure DXInit; |
98 | procedure ProgramInit; |
98 | procedure ProgramInit; |
99 | { Farb-Routinen } |
99 | { Farb-Routinen } |
100 | function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad; |
100 | function ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad; |
101 | procedure PalleteAnim(Col: TRGBQuad; Time: Integer); |
101 | procedure PalleteAnim(Col: TRGBQuad; Time: Integer); |
102 | { Sonstiges } |
102 | { Sonstiges } |
103 | procedure LivesChange(newval: integer); |
103 | procedure LivesChange(newval: integer); |
104 | end; |
104 | end; |
105 | 105 | ||
106 | var |
106 | var |
107 | MainForm: TMainForm; |
107 | MainForm: TMainForm; |
108 | 108 | ||
109 | implementation |
109 | implementation |
110 | 110 | ||
111 | uses |
111 | uses |
112 | Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions; |
112 | Global, LevSplash, LevSpeicherung, ComInfo, LevSource, LevOptions; |
113 | 113 | ||
114 | const |
114 | const |
115 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
115 | FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!'; |
116 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
116 | status_info = ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigenschaften anzuzeigen...'; |
117 | status_lives = ' Leben: '; |
117 | status_lives = ' Leben: '; |
118 | status_nolives = ' Einheit hat keine Lebensangabe'; |
118 | status_nolives = ' Einheit hat keine Lebensangabe'; |
119 | RasterW = 48; |
119 | RasterW = 48; |
120 | RasterH = 32; |
120 | RasterH = 32; |
121 | 121 | ||
122 | {$R *.DFM} |
122 | {$R *.DFM} |
123 | 123 | ||
124 | type |
124 | type |
125 | TBackground = class(TBackgroundSprite) |
125 | TBackground = class(TBackgroundSprite) |
126 | protected |
126 | protected |
127 | procedure DoMove(MoveCount: Integer); override; |
127 | procedure DoMove(MoveCount: Integer); override; |
128 | end; |
128 | end; |
129 | 129 | ||
130 | TEnemy = class(TImageSprite) |
130 | TEnemy = class(TImageSprite) |
131 | private |
131 | private |
132 | Lives: integer; |
132 | Lives: integer; |
133 | Art: integer; |
133 | Art: integer; |
134 | XCor: integer; |
134 | XCor: integer; |
135 | CorInit: boolean; |
135 | CorInit: boolean; |
136 | protected |
136 | protected |
137 | procedure DoMove(MoveCount: Integer); override; |
137 | procedure DoMove(MoveCount: Integer); override; |
138 | public |
138 | public |
139 | constructor Create(AParent: TSprite); override; |
139 | constructor Create(AParent: TSprite); override; |
140 | end; |
140 | end; |
141 | 141 | ||
142 | procedure TMainForm.DXInit; |
142 | procedure TMainForm.DXInit; |
143 | begin |
143 | begin |
144 | Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg'); |
144 | Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg'); |
145 | ImageList.Items.MakeColorTable; |
145 | ImageList.Items.MakeColorTable; |
146 | DXDraw.ColorTable := ImageList.Items.ColorTable; |
146 | DXDraw.ColorTable := ImageList.Items.ColorTable; |
147 | DXDraw.DefColorTable := ImageList.Items.ColorTable; |
147 | DXDraw.DefColorTable := ImageList.Items.ColorTable; |
148 | DXDraw.UpdatePalette; |
148 | DXDraw.UpdatePalette; |
149 | DXDraw.Initialize; |
149 | DXDraw.Initialize; |
150 | end; |
150 | end; |
151 | 151 | ||
152 | procedure TEnemy.DoMove(MoveCount: Integer); |
152 | procedure TEnemy.DoMove(MoveCount: Integer); |
153 | begin |
153 | begin |
154 | if not CorInit then |
154 | if not CorInit then |
155 | begin |
155 | begin |
156 | XCor := trunc(x) + (MainForm.ScrollP * RasterW); |
156 | XCor := trunc(x) + (MainForm.ScrollP * RasterW); |
157 | CorInit := true; |
157 | CorInit := true; |
158 | end; |
158 | end; |
159 | if MainForm.Enemys.IndexOf(floattostr(XCor)+'-'+floattostr(y)+':'+ |
159 | if MainForm.Enemys.IndexOf(floattostr(XCor)+'-'+floattostr(y)+':'+ |
160 | inttostr(Art)+'('+inttostr(Lives)+')') = -1 then dead; |
160 | inttostr(Art)+'('+inttostr(Lives)+')') = -1 then dead; |
161 | X := XCor - (MainForm.ScrollP * RasterW); |
161 | X := XCor - (MainForm.ScrollP * RasterW); |
162 | end; |
162 | end; |
163 | 163 | ||
164 | procedure TBackground.DoMove(MoveCount: Integer); |
164 | procedure TBackground.DoMove(MoveCount: Integer); |
165 | begin |
165 | begin |
166 | X := -(MainForm.ScrollP * RasterW); |
166 | X := -(MainForm.ScrollP * RasterW); |
167 | end; |
167 | end; |
168 | 168 | ||
169 | constructor TEnemy.Create(AParent: TSprite); |
169 | constructor TEnemy.Create(AParent: TSprite); |
170 | begin |
170 | begin |
171 | inherited Create(AParent); |
171 | inherited Create(AParent); |
172 | if MainForm.ArtChecked = 1 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker'); |
172 | if MainForm.ArtChecked = 1 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker'); |
173 | if MainForm.ArtChecked = 2 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker2'); |
173 | if MainForm.ArtChecked = 2 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker2'); |
174 | if MainForm.ArtChecked = 3 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker3'); |
174 | if MainForm.ArtChecked = 3 then Image := MainForm.ImageList.Items.Find('Enemy-Attacker3'); |
175 | if MainForm.ArtChecked = 4 then Image := MainForm.ImageList.Items.Find('Enemy-Meteor'); |
175 | if MainForm.ArtChecked = 4 then Image := MainForm.ImageList.Items.Find('Enemy-Meteor'); |
176 | if MainForm.ArtChecked = 5 then Image := MainForm.ImageList.Items.Find('Enemy-Disk'); |
176 | if MainForm.ArtChecked = 5 then Image := MainForm.ImageList.Items.Find('Enemy-Disk'); |
177 | if MainForm.ArtChecked = 6 then Image := MainForm.ImageList.Items.Find('Enemy-Disk2'); |
177 | if MainForm.ArtChecked = 6 then Image := MainForm.ImageList.Items.Find('Enemy-Disk2'); |
178 | if MainForm.ArtChecked = 7 then Image := MainForm.ImageList.Items.Find('Enemy-Boss'); |
178 | if MainForm.ArtChecked = 7 then Image := MainForm.ImageList.Items.Find('Enemy-Boss'); |
179 | if MainForm.ArtChecked = 4 then Lives := 0 else Lives := MainForm.LiveEdit; |
179 | if MainForm.ArtChecked = 4 then Lives := 0 else Lives := MainForm.LiveEdit; |
180 | Art := MainForm.ArtChecked; |
180 | Art := MainForm.ArtChecked; |
181 | Width := Image.Width; |
181 | Width := Image.Width; |
182 | Height := Image.Height; |
182 | Height := Image.Height; |
183 | PixelCheck := True; |
183 | PixelCheck := True; |
184 | end; |
184 | end; |
185 | 185 | ||
186 | procedure TMainForm.FormCreate(Sender: TObject); |
186 | procedure TMainForm.FormCreate(Sender: TObject); |
187 | var |
187 | var |
188 | Ergebnis: string; |
188 | Ergebnis: string; |
189 | daten: textfile; |
189 | daten: textfile; |
190 | ok: boolean; |
190 | ok: boolean; |
191 | begin |
191 | begin |
192 | { VCL-Ersatz start } |
192 | { VCL-Ersatz start } |
193 | dxtimer := tdxtimer.create(self); |
193 | dxtimer := tdxtimer.create(self); |
194 | dxtimer.Interval := 100; |
194 | dxtimer.Interval := 100; |
195 | dxtimer.ActiveOnly := false; |
195 | dxtimer.ActiveOnly := false; |
196 | dxtimer.Enabled := false; |
196 | dxtimer.Enabled := false; |
197 | dxtimer.OnTimer := DxTimerTimer; |
197 | dxtimer.OnTimer := DxTimerTimer; |
198 | 198 | ||
199 | dxdraw := tdxdraw.Create(self); |
199 | dxdraw := tdxdraw.Create(self); |
200 | dxdraw.Parent := self; |
200 | dxdraw.Parent := self; |
201 | dxdraw.Left := 0; |
201 | dxdraw.Left := 0; |
202 | dxdraw.Top := 0; |
202 | dxdraw.Top := 0; |
203 | dxdraw.Width := 640; |
203 | dxdraw.Width := 640; |
204 | dxdraw.Height := 480; |
204 | dxdraw.Height := 480; |
205 | dxdraw.AutoInitialize := False; |
205 | dxdraw.AutoInitialize := False; |
206 | dxdraw.AutoSize := False; |
206 | dxdraw.AutoSize := False; |
207 | dxdraw.Color := clBlack; |
207 | dxdraw.Color := clBlack; |
208 | dxdraw.Display.BitCount := 24; |
208 | dxdraw.Display.BitCount := 24; |
209 | dxdraw.Display.FixedBitCount := False; |
209 | dxdraw.Display.FixedBitCount := False; |
210 | dxdraw.Display.FixedRatio := False; |
210 | dxdraw.Display.FixedRatio := False; |
211 | dxdraw.Display.FixedSize := False; |
211 | dxdraw.Display.FixedSize := False; |
212 | dxdraw.Display.Height := 600; |
212 | dxdraw.Display.Height := 600; |
213 | dxdraw.Display.Width := 800; |
213 | dxdraw.Display.Width := 800; |
214 | dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver]; |
214 | dxdraw.Options := [doAllowReboot, doWaitVBlank, doAllowPalette256, doCenter, {doRetainedMode,} doHardware, doSelectDriver]; |
215 | dxdraw.OnFinalize := DXDrawFinalize; |
215 | dxdraw.OnFinalize := DXDrawFinalize; |
216 | dxdraw.OnInitialize := DXDrawInitialize; |
216 | dxdraw.OnInitialize := DXDrawInitialize; |
217 | dxdraw.ParentShowHint := False; |
217 | dxdraw.ParentShowHint := False; |
218 | dxdraw.ShowHint := False; |
218 | dxdraw.ShowHint := False; |
219 | dxdraw.TabOrder := 0; |
219 | dxdraw.TabOrder := 0; |
220 | dxdraw.OnMouseDown := DXDrawMouseDown; |
220 | dxdraw.OnMouseDown := DXDrawMouseDown; |
221 | dxdraw.OnMouseMove := DXDrawMouseMove; |
221 | dxdraw.OnMouseMove := DXDrawMouseMove; |
222 | 222 | ||
223 | spriteengine := tdxspriteengine.create(self); |
223 | spriteengine := tdxspriteengine.create(self); |
224 | spriteengine.DXDraw := dxdraw; |
224 | spriteengine.DXDraw := dxdraw; |
225 | 225 | ||
226 | imagelist := tdximagelist.create(self); |
226 | imagelist := tdximagelist.create(self); |
227 | imagelist.DXDraw := dxdraw; |
227 | imagelist.DXDraw := dxdraw; |
228 | 228 | ||
229 | { VCL-Ersatz ende } |
229 | { VCL-Ersatz ende } |
230 | 230 | ||
231 | ArtChecked := 1; |
231 | ArtChecked := 1; |
232 | LiveEdit := 1; |
232 | LiveEdit := 1; |
233 | // Leeres Level am Anfang braucht keine Beenden-Bestätigung. |
233 | // Leeres Level am Anfang braucht keine Beenden-Bestätigung. |
234 | // LevChanged := true; |
234 | // LevChanged := true; |
235 | 235 | ||
236 | //Application.Title := 'SpaceMission '+ProgramVersion+' - Leveleditor'; |
236 | //Application.Title := 'SpaceMission '+ProgramVersion+' - Leveleditor'; |
237 | Caption := 'SpaceMission '+ProgramVersion+' - Leveleditor'; |
237 | Caption := 'SpaceMission '+ProgramVersion+' - Leveleditor'; |
238 | DXInit; |
238 | DXInit; |
239 | if (paramcount > 0) and (fileexists(paramstr(1))) then |
239 | if (paramcount > 0) and (fileexists(paramstr(1))) then |
240 | begin |
240 | begin |
241 | AssignFile(daten, paramstr(1)); |
241 | AssignFile(daten, paramstr(1)); |
242 | Reset(daten); |
242 | Reset(daten); |
243 | ok := true; |
243 | ok := true; |
244 | ReadLN(daten, Ergebnis); |
244 | ReadLN(daten, Ergebnis); |
245 | if Ergebnis <> '; SpaceMission '+FCompVersion then ok := false; |
245 | if Ergebnis <> '; SpaceMission '+FCompVersion then ok := false; |
246 | ReadLN(daten, Ergebnis); |
246 | ReadLN(daten, Ergebnis); |
247 | if ergebnis <> '; LEV-File' then ok := false; |
247 | if ergebnis <> '; LEV-File' then ok := false; |
248 | if not ok then |
248 | if not ok then |
249 | begin |
249 | begin |
250 | showmessage(FileError); |
250 | showmessage(FileError); |
251 | CloseFile(daten); |
251 | CloseFile(daten); |
252 | ProgramInit; |
252 | ProgramInit; |
253 | exit; |
253 | exit; |
254 | end; |
254 | end; |
255 | { Laden } |
255 | { Laden } |
256 | CloseFile(daten); |
256 | CloseFile(daten); |
257 | exit; |
257 | exit; |
258 | end; |
258 | end; |
259 | if fileexists(fdirectory+'Bilder\Auswahl.bmp') then |
259 | if fileexists(fdirectory+'Bilder\Auswahl.bmp') then |
260 | Image1.Picture.LoadFromFile(fdirectory+'Bilder\Auswahl.bmp'); |
260 | Image1.Picture.LoadFromFile(fdirectory+'Bilder\Auswahl.bmp'); |
261 | {else |
261 | {else |
262 | SelPanel.visible := false;} |
262 | SelPanel.visible := false;} |
263 | ProgramInit; |
263 | ProgramInit; |
264 | end; |
264 | end; |
265 | 265 | ||
266 | procedure TMainForm.FormDestroy(Sender: TObject); |
266 | procedure TMainForm.FormDestroy(Sender: TObject); |
267 | begin |
267 | begin |
268 | Enemys.Free; |
268 | Enemys.Free; |
269 | //spriteengine.Free; |
269 | //spriteengine.Free; |
270 | dxtimer.Free; |
270 | dxtimer.Free; |
271 | imagelist.Free; |
271 | imagelist.Free; |
272 | dxdraw.free; |
272 | dxdraw.free; |
273 | end; |
273 | end; |
274 | 274 | ||
275 | procedure TMainForm.BeendenClick(Sender: TObject); |
275 | procedure TMainForm.BeendenClick(Sender: TObject); |
276 | begin |
276 | begin |
277 | close; |
277 | close; |
278 | end; |
278 | end; |
279 | 279 | ||
280 | procedure TMainForm.DXDrawInitialize(Sender: TObject); |
280 | procedure TMainForm.DXDrawInitialize(Sender: TObject); |
281 | begin |
281 | begin |
282 | DXTimer.Enabled := True; |
282 | DXTimer.Enabled := True; |
283 | end; |
283 | end; |
284 | 284 | ||
285 | procedure TMainForm.DXDrawFinalize(Sender: TObject); |
285 | procedure TMainForm.DXDrawFinalize(Sender: TObject); |
286 | begin |
286 | begin |
287 | DXTimer.Enabled := False; |
287 | DXTimer.Enabled := False; |
288 | end; |
288 | end; |
289 | 289 | ||
290 | procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer); |
290 | procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer); |
291 | begin |
291 | begin |
292 | if not DXDraw.CanDraw then exit; |
292 | if not DXDraw.CanDraw then exit; |
293 | LagCount := 1000 div 60; |
293 | LagCount := 1000 div 60; |
294 | SpriteEngine.Move(LagCount); |
294 | SpriteEngine.Move(LagCount); |
295 | SpriteEngine.Dead; |
295 | SpriteEngine.Dead; |
296 | DxDraw.Surface.Fill(0); |
296 | DxDraw.Surface.Fill(0); |
297 | SpriteEngine.Draw; |
297 | SpriteEngine.Draw; |
298 | DXDraw.Flip; |
298 | DXDraw.Flip; |
299 | end; |
299 | end; |
300 | 300 | ||
301 | function TMainForm.ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad; |
301 | function TMainForm.ComposeColor(Dest, Src: TRGBQuad; Percent: Integer): TRGBQuad; |
302 | begin |
302 | begin |
303 | with Result do |
303 | with Result do |
304 | begin |
304 | begin |
305 | rgbRed := Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div 256); |
305 | rgbRed := Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div 256); |
306 | rgbGreen := Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div 256); |
306 | rgbGreen := Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div 256); |
307 | rgbBlue := Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div 256); |
307 | rgbBlue := Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div 256); |
308 | rgbReserved := 0; |
308 | rgbReserved := 0; |
309 | end; |
309 | end; |
310 | end; |
310 | end; |
311 | 311 | ||
312 | procedure TMainForm.PalleteAnim(Col: TRGBQuad; Time: Integer); |
312 | procedure TMainForm.PalleteAnim(Col: TRGBQuad; Time: Integer); |
313 | var |
313 | var |
314 | i: Integer; |
314 | i: Integer; |
315 | t, t2: DWORD; |
315 | t, t2: DWORD; |
316 | ChangePalette: Boolean; |
316 | ChangePalette: Boolean; |
317 | c: Integer; |
317 | c: Integer; |
318 | begin |
318 | begin |
319 | if DXDraw.Initialized then |
319 | if DXDraw.Initialized then |
320 | begin |
320 | begin |
321 | c := DXDraw.Surface.ColorMatch(RGB(Col.rgbRed, Col.rgbGreen, Col.rgbBlue)); |
321 | c := DXDraw.Surface.ColorMatch(RGB(Col.rgbRed, Col.rgbGreen, Col.rgbBlue)); |
322 | ChangePalette := False; |
322 | ChangePalette := False; |
323 | if DXDraw.CanPaletteAnimation then |
323 | if DXDraw.CanPaletteAnimation then |
324 | begin |
324 | begin |
325 | t := GetTickCount; |
325 | t := GetTickCount; |
326 | while Abs(GetTickCount-t)<Time do |
326 | while Abs(GetTickCount-t)<Time do |
327 | begin |
327 | begin |
328 | t2 := Trunc(Abs(GetTickCount-t)/Time*255); |
328 | t2 := Trunc(Abs(GetTickCount-t)/Time*255); |
329 | for i := 0 to 255 do |
329 | for i := 0 to 255 do |
330 | DXDraw.ColorTable[i] := ComposeColor(Col, DXDraw.DefColorTable[i], t2); |
330 | DXDraw.ColorTable[i] := ComposeColor(Col, DXDraw.DefColorTable[i], t2); |
331 | DXDraw.UpdatePalette; |
331 | DXDraw.UpdatePalette; |
332 | ChangePalette := True; |
332 | ChangePalette := True; |
333 | end; |
333 | end; |
334 | end else |
334 | end else |
335 | Sleep(Time); |
335 | Sleep(Time); |
336 | for i := 0 to 4 do |
336 | for i := 0 to 4 do |
337 | begin |
337 | begin |
338 | DXDraw.Surface.Fill(c); |
338 | DXDraw.Surface.Fill(c); |
339 | DXDraw.Flip; |
339 | DXDraw.Flip; |
340 | end; |
340 | end; |
341 | if ChangePalette then |
341 | if ChangePalette then |
342 | begin |
342 | begin |
343 | DXDraw.ColorTable := DXDraw.DefColorTable; |
343 | DXDraw.ColorTable := DXDraw.DefColorTable; |
344 | DXDraw.UpdatePalette; |
344 | DXDraw.UpdatePalette; |
345 | end; |
345 | end; |
346 | DXDraw.Surface.Fill(c); |
346 | DXDraw.Surface.Fill(c); |
347 | DXDraw.Flip; |
347 | DXDraw.Flip; |
348 | end; |
348 | end; |
349 | end; |
349 | end; |
350 | 350 | ||
351 | procedure TMainForm.ProgramInit; |
351 | procedure TMainForm.ProgramInit; |
352 | {var |
352 | {var |
353 | i, j: Integer;} |
353 | i, j: Integer;} |
354 | begin |
354 | begin |
355 | Enemys := TStringList.create; |
355 | Enemys := TStringList.create; |
356 | sleep(500); |
356 | sleep(500); |
357 | //PlayerSprite |
357 | //PlayerSprite |
358 | with TBackground.Create(SpriteEngine.Engine) do |
358 | with TBackground.Create(SpriteEngine.Engine) do |
359 | begin |
359 | begin |
360 | SetMapSize(1, 1); |
360 | SetMapSize(1, 1); |
361 | Image := mainform.ImageList.Items.Find('Star3'); |
361 | Image := mainform.ImageList.Items.Find('Star3'); |
362 | Z := -13; |
362 | Z := -13; |
363 | Y := 40; |
363 | Y := 40; |
364 | Tile := True; |
364 | Tile := True; |
365 | end; |
365 | end; |
366 | with TBackground.Create(SpriteEngine.Engine) do |
366 | with TBackground.Create(SpriteEngine.Engine) do |
367 | begin |
367 | begin |
368 | SetMapSize(1, 1); |
368 | SetMapSize(1, 1); |
369 | Image := mainform.ImageList.Items.Find('Star2'); |
369 | Image := mainform.ImageList.Items.Find('Star2'); |
370 | Z := -12; |
370 | Z := -12; |
371 | Y := 30; |
371 | Y := 30; |
372 | Tile := True; |
372 | Tile := True; |
373 | end; |
373 | end; |
374 | with TBackground.Create(SpriteEngine.Engine) do |
374 | with TBackground.Create(SpriteEngine.Engine) do |
375 | begin |
375 | begin |
376 | SetMapSize(1, 1); |
376 | SetMapSize(1, 1); |
377 | Image := mainform.ImageList.Items.Find('Star1'); |
377 | Image := mainform.ImageList.Items.Find('Star1'); |
378 | Z := -11; |
378 | Z := -11; |
379 | Y := 10; |
379 | Y := 10; |
380 | Tile := True; |
380 | Tile := True; |
381 | end; |
381 | end; |
382 | with TBackground.Create(SpriteEngine.Engine) do |
382 | with TBackground.Create(SpriteEngine.Engine) do |
383 | begin |
383 | begin |
384 | SetMapSize(1, 1); |
384 | SetMapSize(1, 1); |
385 | Image := mainform.ImageList.Items.Find('Matrix'); |
385 | Image := mainform.ImageList.Items.Find('Matrix'); |
386 | Z := -10; |
386 | Z := -10; |
387 | Tile := True; |
387 | Tile := True; |
388 | end; |
388 | end; |
389 | {with TBackground.Create(SpriteEngine.Engine) do |
389 | {with TBackground.Create(SpriteEngine.Engine) do |
390 | begin |
390 | begin |
391 | SetMapSize(200, 10); |
391 | SetMapSize(200, 10); |
392 | Y := 10; |
392 | Y := 10; |
393 | Z := -13; |
393 | Z := -13; |
394 | FSpeed := 1 / 2; |
394 | FSpeed := 1 / 2; |
395 | Tile := True; |
395 | Tile := True; |
396 | for i := 0 to MapHeight-1 do |
396 | for i := 0 to MapHeight-1 do |
397 | begin |
397 | begin |
398 | for j := 0 to MapWidth-1 do |
398 | for j := 0 to MapWidth-1 do |
399 | begin |
399 | begin |
400 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 8); |
400 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 8); |
401 | if Random(100)<95 then Chips[j, i] := -1; |
401 | if Random(100)<95 then Chips[j, i] := -1; |
402 | end; |
402 | end; |
403 | end; |
403 | end; |
404 | end; |
404 | end; |
405 | with TBackground.Create(SpriteEngine.Engine) do |
405 | with TBackground.Create(SpriteEngine.Engine) do |
406 | begin |
406 | begin |
407 | SetMapSize(200, 10); |
407 | SetMapSize(200, 10); |
408 | Y := 30; |
408 | Y := 30; |
409 | Z := -12; |
409 | Z := -12; |
410 | FSpeed := 1; |
410 | FSpeed := 1; |
411 | Tile := True; |
411 | Tile := True; |
412 | for i := 0 to MapHeight-1 do |
412 | for i := 0 to MapHeight-1 do |
413 | begin |
413 | begin |
414 | for j := 0 to MapWidth-1 do |
414 | for j := 0 to MapWidth-1 do |
415 | begin |
415 | begin |
416 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 4); |
416 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 4); |
417 | if Random(100)<95 then Chips[j, i] := -1; |
417 | if Random(100)<95 then Chips[j, i] := -1; |
418 | end; |
418 | end; |
419 | end; |
419 | end; |
420 | end; |
420 | end; |
421 | with TBackground.Create(SpriteEngine.Engine) do |
421 | with TBackground.Create(SpriteEngine.Engine) do |
422 | begin |
422 | begin |
423 | SetMapSize(200, 10); |
423 | SetMapSize(200, 10); |
424 | Y := 40; |
424 | Y := 40; |
425 | Z := -11; |
425 | Z := -11; |
426 | FSpeed := 2; |
426 | FSpeed := 2; |
427 | Tile := True; |
427 | Tile := True; |
428 | for i := 0 to MapHeight-1 do |
428 | for i := 0 to MapHeight-1 do |
429 | begin |
429 | begin |
430 | for j := 0 to MapWidth-1 do |
430 | for j := 0 to MapWidth-1 do |
431 | begin |
431 | begin |
432 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 2); |
432 | Chips[j, i] := Image.PatternCount-Random(Image.PatternCount div 2); |
433 | if Random(100)<95 then Chips[j, i] := -1; |
433 | if Random(100)<95 then Chips[j, i] := -1; |
434 | end; |
434 | end; |
435 | end; |
435 | end; |
436 | end;} |
436 | end;} |
437 | PalleteAnim(RGBQuad(0, 0, 0), 300); |
437 | PalleteAnim(RGBQuad(0, 0, 0), 300); |
438 | mainform.Visible := true; |
438 | mainform.Visible := true; |
439 | end; |
439 | end; |
440 | 440 | ||
441 | procedure TMainForm.LevelClick(Sender: TObject); |
441 | procedure TMainForm.LevelClick(Sender: TObject); |
442 | begin |
442 | begin |
443 | speicherungform.showmodal; |
443 | speicherungform.showmodal; |
444 | end; |
444 | end; |
445 | 445 | ||
446 | procedure TMainForm.FormShow(Sender: TObject); |
446 | procedure TMainForm.FormShow(Sender: TObject); |
447 | begin |
447 | begin |
448 | SplashForm.Hide; |
448 | SplashForm.Hide; |
449 | SplashForm.Free; |
449 | SplashForm.Free; |
450 | 450 | ||
451 | dxtimer.Enabled := true; |
451 | dxtimer.Enabled := true; |
452 | dxtimer.ActiveOnly := true; |
452 | dxtimer.ActiveOnly := true; |
453 | end; |
453 | end; |
454 | 454 | ||
455 | procedure TMainForm.InformationenClick(Sender: TObject); |
455 | procedure TMainForm.InformationenClick(Sender: TObject); |
456 | begin |
456 | begin |
457 | mainform.dxtimer.enabled := false; |
457 | mainform.dxtimer.enabled := false; |
458 | InfoForm.showmodal; |
458 | InfoForm.showmodal; |
459 | mainform.dxtimer.enabled := true; |
459 | mainform.dxtimer.enabled := true; |
460 | end; |
460 | end; |
461 | 461 | ||
462 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
462 | procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); |
463 | begin |
463 | begin |
464 | SpriteEngine.Engine.Clear; |
464 | SpriteEngine.Engine.Clear; |
465 | DXTimer.Enabled := False; |
465 | DXTimer.Enabled := False; |
466 | end; |
466 | end; |
467 | 467 | ||
468 | procedure TMainForm.DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
468 | procedure TMainForm.DXDrawMouseDown(Sender: TObject; Button: TMouseButton; |
469 | Shift: TShiftState; X, Y: Integer); |
469 | Shift: TShiftState; X, Y: Integer); |
470 | var |
470 | var |
471 | i, j, k, l, ex, ey: integer; |
471 | i, j, k, l, ex, ey: integer; |
472 | ok, breaked: boolean; |
472 | ok, breaked: boolean; |
473 | begin |
473 | begin |
474 | ex := trunc(x/RasterW) * RasterW; |
474 | ex := trunc(x/RasterW) * RasterW; |
475 | ey := trunc(y/RasterH) * RasterH; |
475 | ey := trunc(y/RasterH) * RasterH; |
476 | EnemyCreate(ex, ey); |
476 | EnemyCreate(ex, ey); |
477 | breaked := false; |
477 | breaked := false; |
478 | { Setzen } |
478 | { Setzen } |
479 | if Button = mbLeft then |
479 | if Button = mbLeft then |
480 | begin |
480 | begin |
481 | ok := true; |
481 | ok := true; |
482 | if (ArtChecked = 7) and boss then ok := false |
482 | if (ArtChecked = 7) and boss then ok := false |
483 | else |
483 | else |
484 | begin |
484 | begin |
485 | for i := 1 to 7 do |
485 | for i := 1 to 7 do |
486 | begin |
486 | begin |
487 | for j := 0 to 999 do |
487 | for j := 0 to 999 do |
488 | begin |
488 | begin |
489 | if boss then |
489 | if boss then |
490 | begin |
490 | begin |
491 | for k := 0 to 3 do |
491 | for k := 0 to 3 do |
492 | begin |
492 | begin |
493 | for l := 0 to 1 do |
493 | for l := 0 to 1 do |
494 | begin |
494 | begin |
495 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':7('+inttostr(j)+')') <> -1 then |
495 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':7('+inttostr(j)+')') <> -1 then |
496 | begin |
496 | begin |
497 | ok := false; |
497 | ok := false; |
498 | break; |
498 | break; |
499 | end; |
499 | end; |
500 | end; |
500 | end; |
501 | if not ok then break; |
501 | if not ok then break; |
502 | end; |
502 | end; |
503 | if not ok then break; |
503 | if not ok then break; |
504 | end; |
504 | end; |
505 | if Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
505 | if Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
506 | inttostr(i)+'('+inttostr(j)+')') <> -1 then |
506 | inttostr(i)+'('+inttostr(j)+')') <> -1 then |
507 | begin |
507 | begin |
508 | ok := false; |
508 | ok := false; |
509 | break; |
509 | break; |
510 | end; |
510 | end; |
511 | end; |
511 | end; |
512 | if not ok then break; |
512 | if not ok then break; |
513 | end; |
513 | end; |
514 | end; |
514 | end; |
515 | if ok then |
515 | if ok then |
516 | begin |
516 | begin |
517 | if ArtChecked <> 4 then |
517 | if ArtChecked <> 4 then |
518 | Enemys.Add(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
518 | Enemys.Add(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
519 | inttostr(ArtChecked)+'('+inttostr(LiveEdit)+')') |
519 | inttostr(ArtChecked)+'('+inttostr(LiveEdit)+')') |
520 | else |
520 | else |
521 | Enemys.Add(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
521 | Enemys.Add(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
522 | inttostr(ArtChecked)+'(0)'); |
522 | inttostr(ArtChecked)+'(0)'); |
523 | inc(NumEnemys); |
523 | inc(NumEnemys); |
524 | if ArtChecked = 7 then boss := true; |
524 | if ArtChecked = 7 then boss := true; |
525 | end |
525 | end |
526 | else beep; |
526 | else beep; |
527 | end |
527 | end |
528 | { Löschen } |
528 | { Löschen } |
529 | else if Button = mbRight then |
529 | else if Button = mbRight then |
530 | begin |
530 | begin |
531 | for i := 1 to 7 do |
531 | for i := 1 to 7 do |
532 | begin |
532 | begin |
533 | for j := 0 to 999 do |
533 | for j := 0 to 999 do |
534 | begin |
534 | begin |
535 | if boss and (i = 7) then |
535 | if boss and (i = 7) then |
536 | begin |
536 | begin |
537 | for k := 0 to 3 do |
537 | for k := 0 to 3 do |
538 | begin |
538 | begin |
539 | for l := 0 to 1 do |
539 | for l := 0 to 1 do |
540 | begin |
540 | begin |
541 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')') <> -1 then |
541 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')') <> -1 then |
542 | begin |
542 | begin |
543 | Enemys.Delete(Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')')); |
543 | Enemys.Delete(Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')')); |
544 | Boss := false; |
544 | Boss := false; |
545 | dec(NumEnemys); |
545 | dec(NumEnemys); |
546 | breaked := true; |
546 | breaked := true; |
547 | break; |
547 | break; |
548 | end; |
548 | end; |
549 | end; |
549 | end; |
550 | if breaked then break; |
550 | if breaked then break; |
551 | end; |
551 | end; |
552 | end; |
552 | end; |
553 | if Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
553 | if Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
554 | inttostr(i)+'('+inttostr(j)+')') <> -1 then |
554 | inttostr(i)+'('+inttostr(j)+')') <> -1 then |
555 | begin |
555 | begin |
556 | Enemys.Delete(Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+ |
556 | Enemys.Delete(Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+ |
557 | ':'+inttostr(i)+'('+inttostr(j)+')')); |
557 | ':'+inttostr(i)+'('+inttostr(j)+')')); |
558 | if i = 7 then Boss := false; |
558 | if i = 7 then Boss := false; |
559 | dec(NumEnemys); |
559 | dec(NumEnemys); |
560 | breaked := true; |
560 | breaked := true; |
561 | break; |
561 | break; |
562 | end; |
562 | end; |
563 | end; |
563 | end; |
564 | if breaked then break; |
564 | if breaked then break; |
565 | end; |
565 | end; |
566 | end; |
566 | end; |
567 | LevChanged := true; |
567 | LevChanged := true; |
568 | AnzeigeAct; |
568 | AnzeigeAct; |
569 | end; |
569 | end; |
570 | 570 | ||
571 | procedure TMainForm.EnemyClick(Sender: TObject); |
571 | procedure TMainForm.EnemyClick(Sender: TObject); |
572 | begin |
572 | begin |
573 | if sender = Enemy1 then ArtChecked := 1; |
573 | if sender = Enemy1 then ArtChecked := 1; |
574 | if sender = Enemy2 then ArtChecked := 2; |
574 | if sender = Enemy2 then ArtChecked := 2; |
575 | if sender = Enemy3 then ArtChecked := 3; |
575 | if sender = Enemy3 then ArtChecked := 3; |
576 | if sender = Enemy4 then ArtChecked := 4; |
576 | if sender = Enemy4 then ArtChecked := 4; |
577 | if sender = Enemy5 then ArtChecked := 5; |
577 | if sender = Enemy5 then ArtChecked := 5; |
578 | if sender = Enemy6 then ArtChecked := 6; |
578 | if sender = Enemy6 then ArtChecked := 6; |
579 | if sender = Enemy7 then ArtChecked := 7; |
579 | if sender = Enemy7 then ArtChecked := 7; |
580 | Image1.Left := -(87 * (ArtChecked - 1)) + 1; |
580 | Image1.Left := -(87 * (ArtChecked - 1)) + 1; |
581 | Lives.Enabled := sender <> Enemy4; |
581 | Lives.Enabled := sender <> Enemy4; |
582 | LivesLabel.Enabled := sender <> Enemy4; |
582 | LivesLabel.Enabled := sender <> Enemy4; |
583 | if sender = Enemy4 then LivesEdt.Font.Color := clBtnShadow // andere farbe? |
583 | if sender = Enemy4 then LivesEdt.Font.Color := clBtnShadow // andere farbe? |
584 | else LivesEdt.Font.Color := clWindowText; |
584 | else LivesEdt.Font.Color := clWindowText; |
585 | end; |
585 | end; |
586 | 586 | ||
587 | procedure TMainForm.EnemyCreate(x, y: integer); |
587 | procedure TMainForm.EnemyCreate(x, y: integer); |
588 | var |
588 | var |
589 | Enemy: TSprite; |
589 | Enemy: TSprite; |
590 | begin |
590 | begin |
591 | Enemy := TEnemy.Create(SpriteEngine.Engine); |
591 | Enemy := TEnemy.Create(SpriteEngine.Engine); |
592 | Enemy.x := x; |
592 | Enemy.x := x; |
593 | Enemy.y := y; |
593 | Enemy.y := y; |
594 | end; |
594 | end; |
595 | 595 | ||
596 | procedure TMainForm.DestroyLevel; |
596 | procedure TMainForm.DestroyLevel; |
597 | begin |
597 | begin |
- | 598 | ScrollBar.Position := 0; // this doesn't call ScrollBarScroll() |
|
598 | ScrollBar.Position := 0; |
599 | ScrollP := 0; |
599 | Enemys.Clear; |
600 | Enemys.Clear; |
600 | NumEnemys := 0; |
601 | NumEnemys := 0; |
601 | Boss := false; |
602 | Boss := false; |
602 | LevChanged := true; |
603 | LevChanged := true; |
603 | Lives.Position := 1; |
604 | Lives.Position := 1; |
604 | LivesChange(Lives.Position); |
605 | LivesChange(Lives.Position); |
605 | Enemy1.Checked := true; |
606 | Enemy1.Checked := true; |
606 | EnemyClick(Enemy1); |
607 | EnemyClick(Enemy1); |
607 | AnzeigeAct; |
608 | AnzeigeAct; |
608 | end; |
609 | end; |
609 | 610 | ||
610 | procedure TMainForm.AnzeigeAct; |
611 | procedure TMainForm.AnzeigeAct; |
611 | begin |
612 | begin |
612 | SLabel1b.Caption := inttostr(NumEnemys); |
613 | SLabel1b.Caption := inttostr(NumEnemys); |
613 | if Boss then SLabel2b.Caption := 'Ja' else SLabel2b.Caption := 'Nein'; |
614 | if Boss then SLabel2b.Caption := 'Ja' else SLabel2b.Caption := 'Nein'; |
614 | SLabel3b.Caption := inttostr(ScrollBar.Max); |
615 | SLabel3b.Caption := inttostr(ScrollBar.Max); |
615 | if LevChanged then |
616 | if LevChanged then |
616 | begin |
617 | begin |
617 | SLabel4a.Font.Color := $00000096; |
618 | SLabel4a.Font.Color := $00000096; |
618 | SLabel4b.Font.Color := $00000096; |
619 | SLabel4b.Font.Color := $00000096; |
619 | SLabel4b.Caption := 'Nein'; |
620 | SLabel4b.Caption := 'Nein'; |
620 | end |
621 | end |
621 | else |
622 | else |
622 | begin |
623 | begin |
623 | SLabel4a.Font.Color := $00009600; |
624 | SLabel4a.Font.Color := $00009600; |
624 | SLabel4b.Font.Color := $00009600; |
625 | SLabel4b.Font.Color := $00009600; |
625 | SLabel4b.Caption := 'Ja'; |
626 | SLabel4b.Caption := 'Ja'; |
626 | end; |
627 | end; |
627 | end; |
628 | end; |
628 | 629 | ||
629 | procedure TMainForm.EnemyAdd(x, y, art, lives: integer); |
630 | procedure TMainForm.EnemyAdd(x, y, art, lives: integer); |
630 | begin |
631 | begin |
631 | Enemys.Add(inttostr(x)+'-'+inttostr(y)+':'+inttostr(art)+'('+inttostr(lives)+')'); |
632 | Enemys.Add(inttostr(x)+'-'+inttostr(y)+':'+inttostr(art)+'('+inttostr(lives)+')'); |
632 | end; |
633 | end; |
633 | 634 | ||
634 | procedure TMainForm.NeuClick(Sender: TObject); |
635 | procedure TMainForm.NeuClick(Sender: TObject); |
635 | begin |
636 | begin |
636 | if MessageDlg('Level wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then |
637 | if MessageDlg('Level wirklich löschen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then |
637 | DestroyLevel; |
638 | DestroyLevel; |
638 | end; |
639 | end; |
639 | 640 | ||
640 | procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
641 | procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, |
641 | Y: Integer); |
642 | Y: Integer); |
642 | var |
643 | var |
643 | ex, ey, i, j, k, l, wert: integer; |
644 | ex, ey, i, j, k, l, wert: integer; |
644 | breaked: boolean; |
645 | breaked: boolean; |
645 | begin |
646 | begin |
646 | if sender <> DxDraw then |
647 | if sender <> DxDraw then |
647 | begin |
648 | begin |
648 | StatusBar.SimpleText := status_info; |
649 | StatusBar.SimpleText := status_info; |
649 | exit; |
650 | exit; |
650 | end; |
651 | end; |
651 | ex := trunc(x/RasterW) * RasterW; |
652 | ex := trunc(x/RasterW) * RasterW; |
652 | ey := trunc(y/RasterH) * RasterH; |
653 | ey := trunc(y/RasterH) * RasterH; |
653 | wert := -1; |
654 | wert := -1; |
654 | breaked := false; |
655 | breaked := false; |
655 | for i := 1 to 7 do |
656 | for i := 1 to 7 do |
656 | begin |
657 | begin |
657 | for j := 0 to 999 do |
658 | for j := 0 to 999 do |
658 | begin |
659 | begin |
659 | if boss and (i = 7) then |
660 | if boss and (i = 7) then |
660 | begin |
661 | begin |
661 | for k := 0 to 3 do |
662 | for k := 0 to 3 do |
662 | begin |
663 | begin |
663 | for l := 0 to 1 do |
664 | for l := 0 to 1 do |
664 | begin |
665 | begin |
665 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')') <> -1 then |
666 | if Enemys.IndexOf(floattostr(ex + ((ScrollP - k) * RasterW))+'-'+floattostr(ey - (RasterH * l))+':'+inttostr(i)+'('+inttostr(j)+')') <> -1 then |
666 | begin |
667 | begin |
667 | wert := j; |
668 | wert := j; |
668 | breaked := true; |
669 | breaked := true; |
669 | break; |
670 | break; |
670 | end; |
671 | end; |
671 | end; |
672 | end; |
672 | if breaked then break; |
673 | if breaked then break; |
673 | end; |
674 | end; |
674 | end; |
675 | end; |
675 | if (breaked = false) and (Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
676 | if (breaked = false) and (Enemys.IndexOf(floattostr(ex + (ScrollP * RasterW))+'-'+floattostr(ey)+':'+ |
676 | inttostr(i)+'('+inttostr(j)+')') <> -1) then |
677 | inttostr(i)+'('+inttostr(j)+')') <> -1) then |
677 | begin |
678 | begin |
678 | wert := j; |
679 | wert := j; |
679 | breaked := true; |
680 | breaked := true; |
680 | break; |
681 | break; |
681 | end; |
682 | end; |
682 | end; |
683 | end; |
683 | if breaked then break; |
684 | if breaked then break; |
684 | end; |
685 | end; |
685 | if wert <> -1 then |
686 | if wert <> -1 then |
686 | begin |
687 | begin |
687 | if wert > 0 then |
688 | if wert > 0 then |
688 | StatusBar.SimpleText := status_lives + inttostr(wert) |
689 | StatusBar.SimpleText := status_lives + inttostr(wert) |
689 | else |
690 | else |
690 | StatusBar.SimpleText := status_nolives; |
691 | StatusBar.SimpleText := status_nolives; |
691 | end |
692 | end |
692 | else |
693 | else |
693 | StatusBar.SimpleText := status_info; |
694 | StatusBar.SimpleText := status_info; |
694 | end; |
695 | end; |
695 | 696 | ||
696 | procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
697 | procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
697 | begin |
698 | begin |
698 | if LevChanged then |
699 | if LevChanged then |
699 | CanClose := MessageDlg('Beenden ohne abspeichern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes; |
700 | CanClose := MessageDlg('Beenden ohne abspeichern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes; |
700 | end; |
701 | end; |
701 | 702 | ||
702 | procedure TMainForm.Quelltext1Click(Sender: TObject); |
703 | procedure TMainForm.Quelltext1Click(Sender: TObject); |
703 | begin |
704 | begin |
704 | SourceForm.Aktualisieren; |
705 | SourceForm.Aktualisieren; |
705 | SourceForm.showmodal; |
706 | SourceForm.showmodal; |
706 | end; |
707 | end; |
707 | 708 | ||
708 | procedure TMainForm.Spielfelderweitern1Click(Sender: TObject); |
709 | procedure TMainForm.Spielfelderweitern1Click(Sender: TObject); |
709 | begin |
710 | begin |
710 | LevelForm.Aktualisieren; |
711 | LevelForm.Aktualisieren; |
711 | LevelForm.showmodal; |
712 | LevelForm.showmodal; |
712 | end; |
713 | end; |
713 | 714 | ||
714 | procedure TMainForm.ScrollBarScroll(Sender: TObject; |
715 | procedure TMainForm.ScrollBarScroll(Sender: TObject; |
715 | ScrollCode: TScrollCode; var ScrollPos: Integer); |
716 | ScrollCode: TScrollCode; var ScrollPos: Integer); |
716 | begin |
717 | begin |
717 | ScrollP := ScrollPos; |
718 | ScrollP := ScrollPos; |
718 | end; |
719 | end; |
719 | 720 | ||
720 | procedure TMainForm.LivesChange(newval: integer); |
721 | procedure TMainForm.LivesChange(newval: integer); |
721 | begin |
722 | begin |
722 | LiveEdit := newval; |
723 | LiveEdit := newval; |
723 | livesedt.Text := inttostr(LiveEdit); |
724 | livesedt.Text := inttostr(LiveEdit); |
724 | lives.Position := newval; |
725 | lives.Position := newval; |
725 | end; |
726 | end; |
726 | 727 | ||
727 | procedure TMainForm.LivesClick(Sender: TObject; Button: TUDBtnType); |
728 | procedure TMainForm.LivesClick(Sender: TObject; Button: TUDBtnType); |
728 | begin |
729 | begin |
729 | LivesChange(lives.Position); |
730 | LivesChange(lives.Position); |
730 | end; |
731 | end; |
731 | 732 | ||
732 | procedure TMainForm.LivesEdtKeyPress(Sender: TObject; var Key: Char); |
733 | procedure TMainForm.LivesEdtKeyPress(Sender: TObject; var Key: Char); |
733 | begin |
734 | begin |
734 | if not (Key in [#13, #08, '0'..'9']) then |
735 | if not (Key in [#13, #08, '0'..'9']) then |
735 | Key := #0; |
736 | Key := #0; |
736 | end; |
737 | end; |
737 | 738 | ||
738 | procedure TMainForm.LivesEdtChange(Sender: TObject); |
739 | procedure TMainForm.LivesEdtChange(Sender: TObject); |
739 | begin |
740 | begin |
740 | LivesChange(strtoint(livesedt.text)); |
741 | LivesChange(strtoint(livesedt.text)); |
741 | end; |
742 | end; |
742 | 743 | ||
743 | end. |
744 | end. |
744 | 745 | ||
745 | 746 |