equal
deleted
inserted
replaced
179 end; |
179 end; |
180 |
180 |
181 function TestShotgun(Me, Targ: TPoint; Flags: Longword; out Time: Longword; out Angle, Power: integer): boolean; |
181 function TestShotgun(Me, Targ: TPoint; Flags: Longword; out Time: Longword; out Angle, Power: integer): boolean; |
182 var Vx, Vy, x, y: real; |
182 var Vx, Vy, x, y: real; |
183 begin |
183 begin |
|
184 if abs(Me.X - Targ.X) + abs(Me.Y - Targ.Y) < 80 then |
|
185 begin |
|
186 Result:= false; |
|
187 exit |
|
188 end; |
184 Time:= 0; |
189 Time:= 0; |
185 Power:= 1; |
190 Power:= 1; |
186 Vx:= (Targ.X - Me.X)/1024; |
191 Vx:= (Targ.X - Me.X)/1024; |
187 Vy:= (Targ.Y - Me.Y)/1024; |
192 Vy:= (Targ.Y - Me.Y)/1024; |
188 x:= Me.X; |
193 x:= Me.X; |
204 |
209 |
205 function TestDEagle(Me, Targ: TPoint; Flags: Longword; out Time: Longword; out Angle, Power: integer): boolean; |
210 function TestDEagle(Me, Targ: TPoint; Flags: Longword; out Time: Longword; out Angle, Power: integer): boolean; |
206 var Vx, Vy, x, y: real; |
211 var Vx, Vy, x, y: real; |
207 d: Longword; |
212 d: Longword; |
208 begin |
213 begin |
|
214 if abs(Me.X - Targ.X) + abs(Me.Y - Targ.Y) < 80 then |
|
215 begin |
|
216 Result:= false; |
|
217 exit |
|
218 end; |
209 Time:= 0; |
219 Time:= 0; |
210 Power:= 1; |
220 Power:= 1; |
211 Vx:= (Targ.X - Me.X)/1024; |
221 Vx:= (Targ.X - Me.X)/1024; |
212 Vy:= (Targ.Y - Me.Y)/1024; |
222 Vy:= (Targ.Y - Me.Y)/1024; |
213 x:= Me.X; |
223 x:= Me.X; |