diff -r 9e0b5a6bcecf -r 905c554d62e6 hedgewars/uGears.pas --- a/hedgewars/uGears.pas Sat May 09 11:57:47 2009 +0000 +++ b/hedgewars/uGears.pas Mon May 11 18:56:55 2009 +0000 @@ -53,8 +53,7 @@ Z: Longword; IntersectGear: PGear; TriggerId: Longword; - uid: Longword; - Text: shortstring; + uid: Longword end; function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; @@ -163,7 +162,6 @@ @doStepBallgun, @doStepBomb, @doStepRCPlane, - @doStepSpeechBubble, @doStepSniperRifleShot ); @@ -257,9 +255,6 @@ Result^.Timer:= 1500; Result^.Z:= 2002; end; - gtSpeechBubble: begin - Result^.Z:= 2003; - end; gtGrave: begin Result^.Radius:= 10; Result^.Elasticity:= _0_6; @@ -654,7 +649,7 @@ for i:= 0 to cMaxHHIndex do with Hedgehogs[i] do begin - if (SpeechGear <> nil) then DeleteGear(SpeechGear); // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue + if (SpeechGear <> nil) then DeleteVisualGear(SpeechGear); // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue if (Gear <> nil) then if (GameFlags and gfInvulnerable) = 0 then Gear^.Invulnerable:= false; @@ -1295,8 +1290,6 @@ gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); - gtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex); - gtGrave: DrawSurfSprite(hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 32, (GameTicks shr 7) and 7, PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex); gtUFO: DrawSprite(sprUFO, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, (GameTicks shr 7) mod 4);