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
27 type
39 procedure positionChanged; inline; //WARNING! call this after entity position was changed, or coldet will not w>
42 var
53 implementation
55 uses
56 {$IFDEF ENABLE_GFX}
57 g_gfx,
58 {$ENDIF}
59 {$IFDEF ENABLE_RENDER}
60 r_render,
61 {$ENDIF}
63 ;
65 type
68 var
73 begin
81 begin
83 begin
86 positionChanged;
91 begin
95 begin
103 begin
109 begin
113 Exit;
118 begin
120 begin
122 Break;
125 repeat
137 var
140 {$IFDEF ENABLE_GFX}
142 {$ENDIF}
143 begin
145 Exit;
147 Exit;
149 Exit;
151 {$IFDEF ENABLE_GFX}
153 {$ENDIF}
156 begin
158 begin
164 {$IFDEF ENABLE_RENDER}
166 {$ELSE}
168 {$ENDIF}
174 {$IFDEF ENABLE_GFX}
176 begin
178 fX,
179 fY,
188 Blood.Kind
189 );
191 {$ENDIF}
194 else
202 begin
210 begin
212 Exit;
216 begin
225 begin
227 Continue;
230 // Отлетает от удара о стену/потолок/пол:
247 // Сопротивление воздуха для куска трупа: