hedgewars/uScript.pas
changeset 10518 dbbe2f6c0a96
parent 10516 e2aee295cb16
child 10542 383328755384
equal deleted inserted replaced
10516:e2aee295cb16 10518:dbbe2f6c0a96
  1235             else
  1235             else
  1236                 s:= 0;
  1236                 s:= 0;
  1237             vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true);
  1237             vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true);
  1238             if vgear <> nil then
  1238             if vgear <> nil then
  1239                begin
  1239                begin
       
  1240                vgear^.Text:= lua_tostring(L, 2);
  1240                if Gear^.Kind = gtHedgehog then
  1241                if Gear^.Kind = gtHedgehog then
  1241                    begin
  1242                    begin
  1242                    vgear^.Text:= lua_tostring(L, 2);
       
  1243                    AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
  1243                    AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
  1244                    vgear^.Hedgehog:= gear^.Hedgehog
  1244                    vgear^.Hedgehog:= gear^.Hedgehog
  1245                    end
  1245                    end
  1246                else vgear^.Frame:= gear^.uid;
  1246                else vgear^.Frame:= gear^.uid;
  1247 
  1247