hedgewars/GSHandlers.inc
changeset 1273 8dcb04b143e1
parent 1263 24677a82531d
child 1279 33cae6d1635c
equal deleted inserted replaced
1272:ba282ebea3ef 1273:8dcb04b143e1
  1428 	Gear^.dY.isNegative:= not dyn;
  1428 	Gear^.dY.isNegative:= not dyn;
  1429 	for i:= 0 to 4 do
  1429 	for i:= 0 to 4 do
  1430 		begin
  1430 		begin
  1431 		dX:= Gear^.dX + (GetRandom - _0_5) * _0_03;
  1431 		dX:= Gear^.dX + (GetRandom - _0_5) * _0_03;
  1432 		dY:= Gear^.dY + (GetRandom - _0_5) * _0_03;
  1432 		dY:= Gear^.dY + (GetRandom - _0_5) * _0_03;
  1433 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0);
  1433 		AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
  1434 		end;
  1434 		end;
  1435 	
  1435 	
  1436 	DeleteGear(Gear);
  1436 	DeleteGear(Gear);
  1437 	exit
  1437 	exit
  1438 	end;
  1438 	end;