hedgewars/HHHandlers.inc
changeset 2115 1c9a8081aef6
parent 2056 ed8c83f1e4b0
child 2136 3b19c7874a45
equal deleted inserted replaced
2114:9a8ccc7bc3d8 2115:1c9a8081aef6
   195         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   195         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   196 
   196 
   197         if not (SpeechText = '') then
   197         if not (SpeechText = '') then
   198             begin
   198             begin
   199             tmpGear:= AddVisualGear(0, 0, vgtSpeechBubble);
   199             tmpGear:= AddVisualGear(0, 0, vgtSpeechBubble);
   200             tmpGear^.Text:= SpeechText;
   200             if tmpGear <> nil then
   201             tmpGear^.Hedgehog:= Gear^.Hedgehog;
   201                begin
   202             tmpGear^.FrameTicks:= SpeechType;
   202                tmpGear^.Text:= SpeechText;
       
   203                tmpGear^.Hedgehog:= Gear^.Hedgehog;
       
   204                tmpGear^.FrameTicks:= SpeechType;
       
   205                end;
   203             SpeechText:= ''
   206             SpeechText:= ''
   204             end;
   207             end;
   205 
   208 
   206         Power:= 0;
   209         Power:= 0;
   207         if (CurAmmoGear <> nil)
   210         if (CurAmmoGear <> nil)