equal
deleted
inserted
replaced
367 begin |
367 begin |
368 Gear:= t; |
368 Gear:= t; |
369 if Gear^.Kind = vgtFlake then |
369 if Gear^.Kind = vgtFlake then |
370 begin |
370 begin |
371 // Damage calc from doMakeExplosion |
371 // Damage calc from doMakeExplosion |
372 dmg:= min(101, int64(Radius) + cHHRadius div 2 - (round(abs(Gear^.X - float(X))+abs(Gear^.Y - float(Y))) div 5)); |
372 dmg:= min(101, Radius + cHHRadius div 2 - LongInt(abs(round(Gear^.X) - X) + abs(round(Gear^.Y) - Y)) div 5); |
373 if dmg > 1 then |
373 if dmg > 1 then |
374 begin |
374 begin |
375 Gear^.tdX:= 0.02 * dmg + 0.01; |
375 Gear^.tdX:= 0.02 * dmg + 0.01; |
376 if Gear^.X - X < 0 then Gear^.tdX := -Gear^.tdX; |
376 if Gear^.X - X < 0 then Gear^.tdX := -Gear^.tdX; |
377 Gear^.tdY:= 0.02 * dmg + 0.01; |
377 Gear^.tdY:= 0.02 * dmg + 0.01; |