diff -r 56d2f2d5aad8 -r 4feced261c68 hedgewars/uVisualGearsList.pas --- a/hedgewars/uVisualGearsList.pas Sun Jan 19 00:18:28 2014 +0400 +++ b/hedgewars/uVisualGearsList.pas Tue Jan 21 22:38:13 2014 +0100 @@ -29,7 +29,7 @@ procedure DeleteVisualGear(Gear: PVisualGear); function VisualGearByUID(uid : Longword) : PVisualGear; -const +const cExplFrameTicks = 110; var VGCounter: LongWord; @@ -75,7 +75,7 @@ vgtEvilTrace, vgtNote, vgtSmoothWindBar])) then - + exit; inc(VGCounter); @@ -84,7 +84,7 @@ gear^.X:= real(X); gear^.Y:= real(Y); gear^.Kind := Kind; -gear^.doStep:= doStepHandlers[Kind]; +gear^.doStep:= doStepVGHandlers[Kind]; gear^.State:= 0; gear^.Tint:= $FFFFFFFF; gear^.uid:= VGCounter; @@ -289,7 +289,7 @@ if random(2) = 0 then dx := -dx; end; - vgtNote: + vgtNote: begin dx:= 0.005 * (random(15) + 10); dy:= -0.001 * (random(40) + 20); @@ -306,7 +306,7 @@ Frame:= 7; Angle:= 0; end; -vgtSmoothWindBar: +vgtSmoothWindBar: begin Angle:= hwFloat2Float(cMaxWindSpeed)*2 / 1440; // seems rate below is supposed to change wind bar at 1px per 10ms. Max time, 1440ms. This tries to match the rate of change Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed); @@ -332,7 +332,7 @@ case Gear^.Kind of vgtFlake: if cFlattenFlakes then gear^.Layer:= 0 - else if random(3) = 0 then + else if random(3) = 0 then begin gear^.Scale:= 0.5; gear^.Layer:= 0 // 33% - far back