equal
deleted
inserted
replaced
1236 begin |
1236 begin |
1237 HHGear^.dX := SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX); |
1237 HHGear^.dX := SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX); |
1238 HHGear^.dY := SignAs(hwAbs(HHGear^.dY) + _0_2, HHGear^.dY) |
1238 HHGear^.dY := SignAs(hwAbs(HHGear^.dY) + _0_2, HHGear^.dY) |
1239 end; |
1239 end; |
1240 |
1240 |
1241 len := Distance(HHGear^.dX, HHGear^.dY); |
1241 len := hwSqr(HHGear^.dX) + hwSqr(HHGear^.dY); |
1242 if len > _0_8 then |
1242 if len > _0_64 then |
1243 begin |
1243 begin |
1244 len := _0_8 / len; |
1244 len := _0_8 / hwSqrt(len); |
1245 HHGear^.dX := HHGear^.dX * len; |
1245 HHGear^.dX := HHGear^.dX * len; |
1246 HHGear^.dY := HHGear^.dY * len; |
1246 HHGear^.dY := HHGear^.dY * len; |
1247 end; |
1247 end; |
|
1248 |
1248 |
1249 |
1249 if (Gear^.Message and gm_Attack) <> 0 then |
1250 if (Gear^.Message and gm_Attack) <> 0 then |
1250 if (Gear^.State and gsttmpFlag) <> 0 then |
1251 if (Gear^.State and gsttmpFlag) <> 0 then |
1251 with PHedgehog(Gear^.Hedgehog)^ do |
1252 with PHedgehog(Gear^.Hedgehog)^ do |
1252 begin |
1253 begin |