hedgewars/GSHandlers.inc
changeset 4617 42aad2cd981e
parent 4613 f58ff1827763
child 4621 1d45bf63f25c
equal deleted inserted replaced
4615:44393fe7378d 4617:42aad2cd981e
   572         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results
   572         Y:= Y + dY + cGravity * vobFallSpeed * 8;  // using same value as flakes to try and get similar results
   573         xx:= hwRound(X);
   573         xx:= hwRound(X);
   574         yy:= hwRound(Y);
   574         yy:= hwRound(Y);
   575         if vobVelocity <> 0 then
   575         if vobVelocity <> 0 then
   576             begin
   576             begin
   577             DirAngle := DirAngle + (Angle / 12500000);
   577             DirAngle := DirAngle + (Angle / 125000000);
   578             if DirAngle < 0 then DirAngle := DirAngle + 360
   578             if DirAngle < 0 then DirAngle := DirAngle + 360
   579             else if 360 < DirAngle then DirAngle := DirAngle - 360;
   579             else if 360 < DirAngle then DirAngle := DirAngle - 360;
   580             end;
   580             end;
   581 
   581 
   582         inc(Health, 8);
   582         inc(Health, 8);