equal
deleted
inserted
replaced
74 const KillScore = 200; |
74 const KillScore = 200; |
75 |
75 |
76 var friendlyfactor: LongInt = 300; |
76 var friendlyfactor: LongInt = 300; |
77 KnownExplosion: record |
77 KnownExplosion: record |
78 X, Y, Radius: LongInt |
78 X, Y, Radius: LongInt |
79 end = (X: 0; Y: 0; Radius: 0); |
79 end = (X: 0; Y: 0; Radius: 0); |
80 |
80 |
81 procedure FillTargets; |
81 procedure FillTargets; |
82 var i, t: Longword; |
82 var i, t: Longword; |
83 f, e: Longword; |
83 f, e: Longword; |
84 begin |
84 begin |
193 if ((x and LAND_WIDTH_MASK) = 0) and ((y and LAND_HEIGHT_MASK) = 0) then |
193 if ((x and LAND_WIDTH_MASK) = 0) and ((y and LAND_HEIGHT_MASK) = 0) then |
194 begin |
194 begin |
195 MeX:= hwRound(Me^.X); |
195 MeX:= hwRound(Me^.X); |
196 MeY:= hwRound(Me^.Y); |
196 MeY:= hwRound(Me^.Y); |
197 // We are still inside the hog. Skip radius test |
197 // We are still inside the hog. Skip radius test |
198 if ((((x-MeX)*(x-MeX)) + ((y-MeY)*(y-MeY))) < 256) and |
198 if ((((x-MeX)*(x-MeX)) + ((y-MeY)*(y-MeY))) < 256) and |
199 ((Land[y, x] and $FF00) = 0) then exit(false); |
199 ((Land[y, x] and $FF00) = 0) then exit(false); |
200 end; |
200 end; |
201 exit(TestColl(x, y, r)) |
201 exit(TestColl(x, y, r)) |
202 end; |
202 end; |
203 |
203 |