DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
water should deccelerate projectiles according to their direction and speed
[d2df-sdl.git] / src / game / g_phys.pas
1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 *)
16 {$INCLUDE ../shared/a_modes.inc}
17 unit g_phys;
18
19 interface
20
21 uses
22 e_graphics;
23
24 type
25 PObj = ^TObj;
26 TObj = record
27 X, Y: Integer;
28 Rect: TRectWH;
29 Vel: TPoint2i;
30 Accel: TPoint2i;
31 // going up the slope will set this, and renderer will adjust the position
32 // this is purely visual change, it won't affect anything else
33 slopeUpLeft: Integer; // left to go
34 slopeFramesLeft: Integer; // frames left to go
35 end;
36
37 const
38 MAX_YV = 30;
39 LIMIT_VEL = 16384;
40 LIMIT_ACCEL = 1024;
41
42 MOVE_NONE = 0;
43 MOVE_HITWALL = 1;
44 MOVE_HITCEIL = 2;
45 MOVE_HITLAND = 4;
46 MOVE_FALLOUT = 8;
47 MOVE_INWATER = 16;
48 MOVE_HITWATER = 32;
49 MOVE_HITAIR = 64;
50 MOVE_BLOCK = 128;
51
52 procedure g_Obj_Init(Obj: PObj); inline;
53 function g_Obj_Move(Obj: PObj; Fallable: Boolean; Splash: Boolean; ClimbSlopes: Boolean=False; asProjectile: Boolean=false): Word;
54 function g_Obj_Move_Projectile (Obj: PObj; Fallable: Boolean; Splash: Boolean; ClimbSlopes: Boolean=False): Word;
55 function g_Obj_Collide(Obj1, Obj2: PObj): Boolean; inline; overload;
56 function g_Obj_Collide(X, Y: Integer; Width, Height: Word; Obj: PObj): Boolean; inline; overload;
57 function g_Obj_CollidePoint(X, Y: Integer; Obj: PObj): Boolean; inline;
58 function g_Obj_CollideLevel(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
59 function g_Obj_CollideStep(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
60 function g_Obj_CollideWater(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
61 function g_Obj_CollideLiquid(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
62 function g_Obj_CollidePanel(Obj: PObj; XInc, YInc: Integer; PanelType: Word): Boolean; inline;
63 function g_Obj_StayOnStep(Obj: PObj): Boolean; inline;
64 function g_Obj_CanMoveY(Obj: PObj; YInc: Integer): Boolean; inline;
65 procedure g_Obj_Push(Obj: PObj; VelX, VelY: Integer); inline;
66 procedure g_Obj_PushA(Obj: PObj; Vel: Integer; Angle: SmallInt); inline;
67 procedure g_Obj_SetSpeed(Obj: PObj; s: Integer); inline;
68 function g_Obj_GetSpeedDirF(Obj: PObj; var dirx, diry, speed: Double): Boolean; inline; // `false`: zero speed
69 function g_Obj_GetAccelDirF(Obj: PObj; var dirx, diry, speed: Double): Boolean; inline; // `false`: zero speed
70 function z_dec(a, b: Integer): Integer; inline;
71 function z_fdec(a, b: Double): Double; inline;
72
73 var
74 gMon: Boolean = False;
75
76 implementation
77
78 uses
79 g_map, g_basic, Math, g_player, g_console, SysUtils,
80 g_sound, g_gfx, MAPDEF, g_monsters, g_game, utils;
81
82
83 const
84 SmoothSlopeFrames = 4;
85
86
87 function g_Obj_StayOnStep(Obj: PObj): Boolean; inline;
88 begin
89 Result := not g_Map_CollidePanel(Obj^.X+Obj^.Rect.X, Obj^.Y+Obj^.Rect.Y+Obj^.Rect.Height-1,
90 Obj^.Rect.Width, 1,
91 PANEL_STEP, False)
92 and g_Map_CollidePanel(Obj^.X+Obj^.Rect.X, Obj^.Y+Obj^.Rect.Y+Obj^.Rect.Height,
93 Obj^.Rect.Width, 1,
94 PANEL_STEP, False);
95 end;
96
97 function g_Obj_CanMoveY(Obj: PObj; YInc: Integer): Boolean; inline;
98 begin
99 // Åñëè øàãíóòü â ïî âåðòèêàëè, à òàì ñòåíà => øàãàòü íåëüçÿ
100 // Èëè åñëè øàãíóòü âíèç, à òàì ñòóïåíü => øàãàòü íåëüçÿ
101 Result := not(g_Obj_CollideLevel(Obj, 0, YInc) or ((YInc > 0) and g_Obj_StayOnStep(Obj)));
102 end;
103
104 function CollideLiquid(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
105 begin
106 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
107 Obj^.Rect.Width, Obj^.Rect.Height*2 div 3,
108 PANEL_WATER or PANEL_ACID1 or PANEL_ACID2, False);
109 end;
110
111 function CollideLift(Obj: PObj; XInc, YInc: Integer): Integer; inline;
112 begin
113 if g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
114 Obj^.Rect.Width, Obj^.Rect.Height,
115 PANEL_LIFTUP, False) then
116 Result := -1
117 else if g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
118 Obj^.Rect.Width, Obj^.Rect.Height,
119 PANEL_LIFTDOWN, False) then
120 Result := 1
121 else
122 Result := 0;
123 end;
124
125 function CollideHorLift(Obj: PObj; XInc, YInc: Integer): Integer; inline;
126 var
127 left, right: Boolean;
128 begin
129 left := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
130 Obj^.Rect.Width, Obj^.Rect.Height,
131 PANEL_LIFTLEFT, False);
132 right := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj^.Rect.Y+YInc,
133 Obj^.Rect.Width, Obj^.Rect.Height,
134 PANEL_LIFTRIGHT, False);
135 if left and not right then
136 Result := -1
137 else if right and not left then
138 Result := 1
139 else
140 Result := 0;
141 end;
142
143 function CollidePlayers(_Obj: PObj; XInc, YInc: Integer): Boolean;
144 var
145 plr: TPlayer;
146 begin
147 result := false;
148 if (gPlayers = nil) then exit;
149 for plr in gPlayers do
150 begin
151 if (plr = nil) then continue;
152 if not plr.alive then continue;
153 with plr do
154 begin
155 if g_Collide(GameX+PLAYER_RECT.X, GameY+PLAYER_RECT.Y,
156 PLAYER_RECT.Width, PLAYER_RECT.Height,
157 _Obj^.X+_Obj^.Rect.X+XInc, _Obj^.Y+_Obj^.Rect.Y+YInc,
158 _Obj^.Rect.Width, _Obj^.Rect.Height) then
159 begin
160 result := true;
161 exit;
162 end;
163 end;
164 end;
165 end;
166
167 function Blocked(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
168 begin
169 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
170 Obj^.Rect.Width, Obj^.Rect.Height,
171 PANEL_BLOCKMON, False);
172 end;
173
174 function g_Obj_CollideLevel(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
175 begin
176 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
177 Obj^.Rect.Width, Obj^.Rect.Height,
178 PANEL_WALL, False);
179 end;
180
181 function g_Obj_CollideStep(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
182 begin
183 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
184 Obj^.Rect.Width, Obj^.Rect.Height,
185 PANEL_STEP, False);
186 end;
187
188 function g_Obj_CollideWater(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
189 begin
190 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
191 Obj^.Rect.Width, Obj^.Rect.Height,
192 PANEL_WATER, False);
193 end;
194
195 function g_Obj_CollideLiquid(Obj: PObj; XInc, YInc: Integer): Boolean; inline;
196 begin
197 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
198 Obj^.Rect.Width, Obj^.Rect.Height,
199 PANEL_WATER or PANEL_ACID1 or PANEL_ACID2, False);
200 end;
201
202 function g_Obj_CollidePanel(Obj: PObj; XInc, YInc: Integer; PanelType: Word): Boolean; inline;
203 begin
204 Result := g_Map_CollidePanel(Obj^.X+Obj^.Rect.X+XInc, Obj^.Y+Obj.Rect.Y+YInc,
205 Obj^.Rect.Width, Obj^.Rect.Height,
206 PanelType, False);
207 end;
208
209 procedure g_Obj_Splash(Obj: PObj; Color: Byte);
210 var
211 MaxVel: Integer;
212 begin
213 MaxVel := nmax(abs(Obj^.Vel.X), abs(Obj^.Vel.Y));
214 if MaxVel > 4 then
215 begin
216 if MaxVel < 10 then
217 g_Sound_PlayExAt('SOUND_GAME_BULK1', Obj^.X, Obj^.Y)
218 else
219 g_Sound_PlayExAt('SOUND_GAME_BULK2', Obj^.X, Obj^.Y);
220 end;
221
222 g_GFX_Water(Obj^.X+Obj^.Rect.X+(Obj^.Rect.Width div 2),
223 Obj^.Y+Obj^.Rect.Y+(Obj^.Rect.Height div 2),
224 Min(5*(abs(Obj^.Vel.X)+abs(Obj^.Vel.Y)), 50),
225 -Obj^.Vel.X, -Obj^.Vel.Y,
226 Obj^.Rect.Width, 16, Color);
227 end;
228
229
230 function move (Obj: PObj; dx, dy: Integer; ClimbSlopes: Boolean): Word;
231 var
232 i: Integer;
233 sx, sy: ShortInt;
234 st: Word;
235
236 procedure slope (s: Integer);
237 var
238 i: Integer;
239 begin
240 i := 0;
241 while g_Obj_CollideLevel(Obj, sx, 0) and (i < 4) do
242 begin
243 Obj^.Y += s;
244 Inc(i);
245 end;
246 Obj^.X += sx;
247 if (s < 0) then
248 begin
249 Obj.slopeUpLeft += i*(-s);
250 Obj.slopeFramesLeft := SmoothSlopeFrames;
251 end;
252 end;
253
254 function movex (): Boolean;
255 begin
256 result := false;
257
258 // Åñëè ìîíñòðó øàãíóòü â ñòîðîíó, à òàì áëîêìîí
259 if gMon and ((st and MOVE_BLOCK) = 0) then
260 begin
261 if Blocked(Obj, sx, 0) then st := st or MOVE_BLOCK;
262 end;
263
264 // Åñëè øàãíóòü â ñòîðîíó, à òàì ñòåíà => øàãàòü íåëüçÿ
265 if g_Obj_CollideLevel(Obj, sx, 0) then
266 begin
267 if ClimbSlopes and (abs(dy) < 2) then
268 begin
269 result := true;
270 if (not g_Obj_CollideLevel(Obj, sx, -12)) and // çàáèðàåìñÿ íà 12 ïèêñåëåé âëåâî/âïðàâî
271 (sy >= 0) and (not g_Obj_CanMoveY(Obj, sy)) then // òîëüêî åñëè åñòü çåìëÿ ïîä íîãàìè
272 begin
273 slope(-1);
274 end
275 else
276 begin
277 result := false;
278 st := st or MOVE_HITWALL;
279 end;
280 end
281 else
282 begin
283 st := st or MOVE_HITWALL;
284 end;
285 end
286 else // Òàì ñòåíû íåò
287 begin
288 if CollideLiquid(Obj, sx, 0) then
289 begin // Åñëè øàãíóòü â ñòîðîíó, à òàì òåïåðü æèäêîñòü
290 if ((st and MOVE_INWATER) = 0) then st := st or MOVE_HITWATER;
291 end
292 else // Åñëè øàãíóòü â ñòîðîíó, à òàì óæå íåò æèäêîñòè
293 begin
294 if ((st and MOVE_INWATER) <> 0) then st := st or MOVE_HITAIR;
295 end;
296
297 // Øàã
298 Obj^.X += sx;
299 result := true;
300 end;
301 end;
302
303 function movey (): Boolean;
304 begin
305 result := false;
306
307 // Åñëè ìîíñòðó øàãíóòü ïî âåðòèêàëè, à òàì áëîêìîí
308 if gMon and ((st and MOVE_BLOCK) = 0) then
309 begin
310 if Blocked(Obj, 0, sy) then st := st or MOVE_BLOCK;
311 end;
312
313 // Åñëè øàãàòü íåëüçÿ
314 if not g_Obj_CanMoveY(Obj, sy) then
315 begin
316 if sy > 0 then
317 st := st or MOVE_HITLAND
318 else
319 st := st or MOVE_HITCEIL;
320 end
321 else // Òàì ñòåíû íåò. È ñòóïåíè ñíèçó òîæå íåò
322 begin
323 if CollideLiquid(Obj, 0, sy) then
324 begin // Åñëè øàãíóòü â ïî âåðòèêàëè, à òàì òåïåðü æèäêîñòü
325 if ((st and MOVE_INWATER) = 0) then st := st or MOVE_HITWATER;
326 end
327 else // Åñëè øàãíóòü â ïî âåðòèêàëè, à òàì óæå íåò æèäêîñòè
328 begin
329 if ((st and MOVE_INWATER) <> 0) then st := st or MOVE_HITAIR;
330 end;
331
332 // Øàã
333 Obj^.Y += sy;
334 result := true;
335 end;
336 end;
337
338 begin
339 st := MOVE_NONE;
340
341 // Îáúåêò â æèäêîñòè?
342 if CollideLiquid(Obj, 0, 0) then st := st or MOVE_INWATER;
343
344 // Ìîíñòð â áëîêìîíå?
345 if gMon then
346 begin
347 if Blocked(Obj, 0, 0) then st := st or MOVE_BLOCK;
348 end;
349
350 // Äâèãàòüñÿ íå íàäî?
351 if (dx = 0) and (dy = 0) then begin result := st; exit; end;
352
353 sx := g_basic.Sign(dx);
354 sy := g_basic.Sign(dy);
355 dx := abs(dx);
356 dy := abs(dy);
357
358 for i := 1 to dx do if not movex() then break;
359 for i := 1 to dy do if not movey() then break;
360
361 result := st;
362 end;
363
364
365 procedure g_Obj_Init (Obj: PObj); inline;
366 begin
367 ZeroMemory(Obj, SizeOf(TObj));
368 end;
369
370
371 function g_Obj_Move_Projectile (Obj: PObj; Fallable: Boolean; Splash: Boolean; ClimbSlopes: Boolean=False): Word;
372 begin
373 result := g_Obj_Move(Obj, Fallable, Splash, ClimbSlopes, true);
374 end;
375
376 function g_Obj_Move (Obj: PObj; Fallable: Boolean; Splash: Boolean; ClimbSlopes: Boolean=False; asProjectile: Boolean=false): Word;
377 var
378 xv, yv, dx, dy: Integer;
379 inwater: Boolean;
380 c: Boolean;
381 wtx: DWORD;
382 slopeStep: Integer;
383 dirx, diry, speed: Double;
384 label
385 _move;
386 begin
387 // Ëèìèòû íà ñêîðîñòü è óñêîðåíèå
388 Obj^.Vel.X := nclamp(Obj^.Vel.X, -LIMIT_VEL, LIMIT_VEL);
389 Obj^.Vel.Y := nclamp(Obj^.Vel.Y, -LIMIT_VEL, LIMIT_VEL);
390 Obj^.Accel.X := nclamp(Obj^.Accel.X, -LIMIT_ACCEL, LIMIT_ACCEL);
391 Obj^.Accel.Y := nclamp(Obj^.Accel.Y, -LIMIT_ACCEL, LIMIT_ACCEL);
392 {
393 if Obj^.Vel.X < -LIMIT_VEL then Obj^.Vel.X := -LIMIT_VEL
394 else if Obj^.Vel.X > LIMIT_VEL then Obj^.Vel.X := LIMIT_VEL;
395 if Obj^.Vel.Y < -LIMIT_VEL then Obj^.Vel.Y := -LIMIT_VEL
396 else if Obj^.Vel.Y > LIMIT_VEL then Obj^.Vel.Y := LIMIT_VEL;
397 if Obj^.Accel.X < -LIMIT_ACCEL then Obj^.Accel.X := -LIMIT_ACCEL
398 else if Obj^.Accel.X > LIMIT_ACCEL then Obj^.Accel.X := LIMIT_ACCEL;
399 if Obj^.Accel.Y < -LIMIT_ACCEL then Obj^.Accel.Y := -LIMIT_ACCEL
400 else if Obj^.Accel.Y > LIMIT_ACCEL then Obj^.Accel.Y := LIMIT_ACCEL;
401 }
402
403 // Âûëåòåë çà íèæíþþ ãðàíèöó êàðòû?
404 if (Obj^.Y > Integer(gMapInfo.Height)+128) then begin result := MOVE_FALLOUT; Obj.slopeUpLeft := 0; Obj.slopeFramesLeft := 0; exit; end;
405
406 // Ìåíÿåì ñêîðîñòü è óñêîðåíèå òîëüêî ïî ÷åòíûì êàäðàì
407 c := (gTime mod (GAME_TICK*2) <> 0);
408
409 // smoothed slopes
410 if {not c and} (Obj.slopeUpLeft > 0) then
411 begin
412 if (Obj.slopeFramesLeft < 1) then
413 begin
414 //conwritefln('SLOPE DONE: slopeUpLeft=%s', [Obj.slopeUpLeft]);
415 Obj.slopeUpLeft := 0; // oops
416 end
417 else
418 begin
419 slopeStep := Obj.slopeUpLeft div Obj.slopeFramesLeft;
420 if (slopeStep < 1) then slopeStep := 1;
421 //conwritefln('SLOPE STEP: slopeUpLeft=%s; slopeFramesLeft=%s; slopeStep=%d', [Obj.slopeUpLeft, Obj.slopeFramesLeft, slopeStep]);
422 Dec(Obj.slopeFramesLeft);
423 Obj.slopeUpLeft -= slopeStep;
424 if (Obj.slopeUpLeft < 1) then
425 begin
426 Obj.slopeUpLeft := 0;
427 Obj.slopeFramesLeft := 0;
428 end;
429 end;
430 end;
431
432 if c then goto _move;
433
434 case CollideLift(Obj, 0, 0) of
435 -1: //up
436 begin
437 Obj^.Vel.Y -= 1; // Ëèôò ââåðõ
438 if (Obj^.Vel.Y < -5) then Obj^.Vel.Y += 1;
439 end;
440 1: //down
441 begin
442 if (Obj^.Vel.Y > 5) then Obj^.Vel.Y -= 1;
443 Obj^.Vel.Y += 1; // Ãðàâèòàöèÿ èëè ëèôò âíèç
444 end;
445 0: //???
446 begin
447 if Fallable then Obj^.Vel.Y += 1; // Ãðàâèòàöèÿ
448 if (Obj^.Vel.Y > MAX_YV) then Obj^.Vel.Y -= 1;
449 end;
450 end;
451
452 case CollideHorLift(Obj, 0, 0) of
453 -1: //left
454 begin
455 Obj^.Vel.X -= 3;
456 if (Obj^.Vel.X < -9) then Obj^.Vel.X += 3;
457 end;
458 1: //right
459 begin
460 Obj^.Vel.X += 3;
461 if (Obj^.Vel.X > 9) then Obj^.Vel.X -= 3;
462 end;
463 // 0 is not needed here
464 end;
465
466 // Â âîäå?
467 inwater := CollideLiquid(Obj, 0, 0);
468 if inwater then
469 begin
470 if asProjectile then
471 begin
472 //writeln('velocity=(', Obj^.Vel.X, ',', Obj^.Vel.Y, '); acceleration=(', Obj^.Accel.X, ',', Obj^.Accel.Y, ')');
473 if (g_Obj_GetSpeedDirF(Obj, dirx, diry, speed)) then
474 begin
475 if (speed > 4) then
476 begin
477 speed := speed/2.0;
478 Obj^.Vel.X := round(dirx*speed);
479 Obj^.Vel.Y := round(diry*speed);
480 end;
481 end;
482
483 // acceleration
484 if (g_Obj_GetAccelDirF(Obj, dirx, diry, speed)) then
485 begin
486 if (speed > 4) then
487 begin
488 speed := speed/2.0;
489 Obj^.Accel.X := round(dirx*speed);
490 Obj^.Accel.Y := round(diry*speed);
491 end;
492 end;
493 end
494 else
495 begin
496 // velocity
497 xv := abs(Obj^.Vel.X)+1;
498 if (xv > 5) then Obj^.Vel.X := z_dec(Obj^.Vel.X, (xv div 2)-2);
499 yv := abs(Obj^.Vel.Y)+1;
500 if (yv > 5) then Obj^.Vel.Y := z_dec(Obj^.Vel.Y, (yv div 2)-2);
501
502 // acceleration
503 xv := abs(Obj^.Accel.X)+1;
504 if (xv > 5) then Obj^.Accel.X := z_dec(Obj^.Accel.X, (xv div 2)-2);
505 yv := abs(Obj^.Accel.Y)+1;
506 if (yv > 5) then Obj^.Accel.Y := z_dec(Obj^.Accel.Y, (yv div 2)-2);
507 end;
508 end;
509
510 // Óìåíüøàåì ïðèáàâêó ê ñêîðîñòè
511 Obj^.Accel.X := z_dec(Obj^.Accel.X, 1);
512 Obj^.Accel.Y := z_dec(Obj^.Accel.Y, 1);
513
514 _move:
515
516 xv := Obj^.Vel.X+Obj^.Accel.X;
517 yv := Obj^.Vel.Y+Obj^.Accel.Y;
518
519 dx := xv;
520 dy := yv;
521
522 result := move(Obj, dx, dy, ClimbSlopes);
523
524 // Áðûçãè (åñëè íóæíû)
525 if Splash then
526 begin
527 if WordBool(Result and MOVE_HITWATER) then
528 begin
529 wtx := g_Map_CollideLiquid_Texture(Obj^.X+Obj^.Rect.X, Obj^.Y+Obj^.Rect.Y,
530 Obj^.Rect.Width, Obj^.Rect.Height*2 div 3);
531 case wtx of
532 LongWord(TEXTURE_SPECIAL_WATER): g_Obj_Splash(Obj, 3);
533 LongWord(TEXTURE_SPECIAL_ACID1): g_Obj_Splash(Obj, 2);
534 LongWord(TEXTURE_SPECIAL_ACID2): g_Obj_Splash(Obj, 1);
535 LongWord(TEXTURE_NONE): begin end;
536 else g_Obj_Splash(Obj, 0);
537 end;
538 end;
539 end;
540
541 // Ìåíÿåì ñêîðîñòü è óñêîðåíèå òîëüêî ïî ÷åòíûì êàäðàì
542 if c then exit;
543
544 // Âðåçàëèñü â ñòåíó - ñòîï
545 if ((Result and MOVE_HITWALL) <> 0) then
546 begin
547 Obj^.Vel.X := 0;
548 Obj^.Accel.X := 0;
549 end;
550
551 // Âðåçàëèñü â ïîë èëè ïîòîëîê - ñòîï
552 if ((Result and (MOVE_HITCEIL or MOVE_HITLAND)) <> 0) then
553 begin
554 Obj^.Vel.Y := 0;
555 Obj^.Accel.Y := 0;
556 end;
557 end;
558
559
560 function g_Obj_Collide(Obj1, Obj2: PObj): Boolean; inline;
561 begin
562 Result := g_Collide(Obj1^.X+Obj1^.Rect.X, Obj1^.Y+Obj1^.Rect.Y,
563 Obj1^.Rect.Width, Obj1^.Rect.Height,
564 Obj2^.X+Obj2^.Rect.X, Obj2^.Y+Obj2^.Rect.Y,
565 Obj2^.Rect.Width, Obj2^.Rect.Height);
566 end;
567
568 function g_Obj_Collide(X, Y: Integer; Width, Height: Word; Obj: PObj): Boolean; inline;
569 begin
570 Result := g_Collide(X, Y,
571 Width, Height,
572 Obj^.X+Obj^.Rect.X, Obj^.Y+Obj^.Rect.Y,
573 Obj^.Rect.Width, Obj^.Rect.Height);
574 end;
575
576 function g_Obj_CollidePoint(X, Y: Integer; Obj: PObj): Boolean; inline;
577 begin
578 Result := g_CollidePoint(X, Y, Obj^.X+Obj^.Rect.X, Obj^.Y+Obj^.Rect.Y,
579 Obj^.Rect.Width, Obj^.Rect.Height);
580 end;
581
582 procedure g_Obj_Push(Obj: PObj; VelX, VelY: Integer); inline;
583 begin
584 Obj^.Vel.X := Obj^.Vel.X + VelX;
585 Obj^.Vel.Y := Obj^.Vel.Y + VelY;
586 end;
587
588 procedure g_Obj_PushA(Obj: PObj; Vel: Integer; Angle: SmallInt); inline;
589 var
590 s, c: Extended;
591
592 begin
593 SinCos(DegToRad(-Angle), s, c);
594
595 Obj^.Vel.X := Obj^.Vel.X + Round(Vel*c);
596 Obj^.Vel.Y := Obj^.Vel.Y + Round(Vel*s);
597 end;
598
599 procedure g_Obj_SetSpeed(Obj: PObj; s: Integer); inline;
600 var
601 m, vx, vy: Integer;
602 begin
603 vx := Obj^.Vel.X;
604 vy := Obj^.Vel.Y;
605
606 m := Max(abs(vx), abs(vy));
607 if m = 0 then
608 m := 1;
609
610 Obj^.Vel.X := (vx*s) div m;
611 Obj^.Vel.Y := (vy*s) div m;
612 end;
613
614 // `false`: zero speed
615 function g_Obj_GetSpeedDirF(Obj: PObj; var dirx, diry, speed: Double): Boolean; inline;
616 var
617 len, vx, vy: Double;
618 begin
619 if (Obj^.Vel.X = 0) and (Obj^.Vel.Y = 0) then
620 begin
621 dirx := 0;
622 diry := 0;
623 speed := 0;
624 result := false;
625 exit;
626 end;
627
628 vx := Obj^.Vel.X;
629 vy := Obj^.Vel.Y;
630 len := sqrt(vx*vx+vy*vy);
631 dirx := vx/len;
632 diry := vy/len;
633 speed := len;
634 result := true;
635 end;
636
637 // `false`: zero acceleratin
638 function g_Obj_GetAccelDirF(Obj: PObj; var dirx, diry, speed: Double): Boolean; inline;
639 var
640 len, vx, vy: Double;
641 begin
642 if (Obj^.Accel.X = 0) and (Obj^.Accel.Y = 0) then
643 begin
644 dirx := 0;
645 diry := 0;
646 speed := 0;
647 result := false;
648 exit;
649 end;
650
651 vx := Obj^.Accel.X;
652 vy := Obj^.Accel.Y;
653 len := sqrt(vx*vx+vy*vy);
654 dirx := vx/len;
655 diry := vy/len;
656 speed := len;
657 result := true;
658 end;
659
660
661 // Ïðèáëèæàåì a ê 0 íà b åäèíèö:
662 function z_dec (a, b: Integer): Integer; inline;
663 begin
664 if (abs(a) < b) then result := 0
665 else if (a > 0) then result := a-b
666 else if (a < 0) then result := a+b
667 else result := 0; // a = 0
668 end;
669
670
671 // Ïðèáëèæàåì a ê 0.0 íà b åäèíèö:
672 function z_fdec (a, b: Double): Double; inline;
673 begin
674 if (abs(a) < b) then result := 0.0
675 else if (a > 0.0) then result := a-b
676 else if (a < 0.0) then result := a+b
677 else result := 0.0; // a = 0.0
678 end;
679
680
681 end.
[MIRROR] a port of Doom 2D Forever to FPC/SDL
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024