hedgewars/CCHandlers.inc
changeset 2114 9a8ccc7bc3d8
parent 2111 9be70514954c
child 2124 d39c61eaca15
equal deleted inserted replaced
2113:89d0fa6734af 2114:9a8ccc7bc3d8
   404 if not CurrentTeam^.ExtDriven then SendIPC('h' + s);
   404 if not CurrentTeam^.ExtDriven then SendIPC('h' + s);
   405 
   405 
   406 if byte(s[1]) < 4 then
   406 if byte(s[1]) < 4 then
   407     begin
   407     begin
   408     Gear:= AddVisualGear(0, 0, vgtSpeechBubble);
   408     Gear:= AddVisualGear(0, 0, vgtSpeechBubble);
   409     Gear^.Hedgehog:= CurrentHedgehog;
   409     if Gear <> nil then
   410     Gear^.Text:= text;
   410        begin
   411     Gear^.FrameTicks:= byte(s[1])
   411        Gear^.Hedgehog:= CurrentHedgehog;
       
   412        Gear^.Text:= text;
       
   413        Gear^.FrameTicks:= byte(s[1])
       
   414        end
   412     end
   415     end
   413 else
   416 else
   414     begin
   417     begin
   415     SpeechType:= byte(s[1])-3;
   418     SpeechType:= byte(s[1])-3;
   416     SpeechText:= text
   419     SpeechText:= text