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