hedgewars/GSHandlers.inc
changeset 4187 adb144a907aa
parent 4184 bc2b88eea8c4
child 4224 99c6d87df131
equal deleted inserted replaced
4186:c2d590fc8df9 4187:adb144a907aa
  3033                         begin
  3033                         begin
  3034                         bubble^.dX:= (random(10)/10 + 0.02) * -1;
  3034                         bubble^.dX:= (random(10)/10 + 0.02) * -1;
  3035                         if (move.isNegative) then
  3035                         if (move.isNegative) then
  3036                             begin
  3036                             begin
  3037                             bubble^.X := bubble^.X + 28;
  3037                             bubble^.X := bubble^.X + 28;
  3038                             bubble^.dX *= -1
  3038                             bubble^.dX:= bubble^.dX * (-1)
  3039                             end
  3039                             end
  3040                         else bubble^.X := bubble^.X - 28;
  3040                         else bubble^.X := bubble^.X - 28;
  3041                         end;
  3041                         end;
  3042                     end
  3042                     end
  3043                 end;
  3043                 end;