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, version 3 of the License ONLY.
6 *
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
11 *
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
14 *)
15 {$INCLUDE ../shared/a_modes.inc}
18 interface
22 const
26 type
38 procedure positionChanged; inline; //WARNING! call this after entity position was changed, or coldet will not w>
41 var
52 implementation
54 uses
55 {$IFDEF ENABLE_GFX}
56 g_gfx,
57 {$ENDIF}
58 {$IFDEF ENABLE_RENDER}
59 r_render,
60 {$ENDIF}
62 ;
64 type
67 var
72 begin
80 begin
82 begin
85 positionChanged;
90 begin
94 begin
102 begin
108 begin
112 Exit;
117 begin
119 begin
121 Break;
124 repeat
136 var
139 {$IFDEF ENABLE_GFX}
141 {$ENDIF}
142 begin
144 Exit;
146 Exit;
148 Exit;
150 {$IFDEF ENABLE_GFX}
152 {$ENDIF}
155 begin
157 begin
163 {$IFDEF ENABLE_RENDER}
165 {$ELSE}
170 {$ENDIF}
176 {$IFDEF ENABLE_GFX}
178 begin
180 fX,
181 fY,
190 Blood.Kind
191 );
193 {$ENDIF}
196 else
204 begin
212 begin
214 Exit;
218 begin
227 begin
229 Continue;
232 // Отлетает от удара о стену/потолок/пол:
249 // Сопротивление воздуха для куска трупа: