Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make gear ability to speak somewhat less ironic
authorsheepluva
Wed, 19 Nov 2014 02:00:47 +0100
changeset 10518 dbbe2f6c0a96
parent 10516 e2aee295cb16
child 10520 066a9aa50b75
make gear ability to speak somewhat less ironic
hedgewars/uGearsList.pas file | annotate | diff | comparison | revisions
hedgewars/uScript.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uGearsList.pas	Wed Nov 19 01:36:59 2014 +0100
+++ b/hedgewars/uGearsList.pas	Wed Nov 19 02:00:47 2014 +0100
@@ -156,7 +156,7 @@
 
 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
 var gear: PGear;
-    c: byte;
+    //c: byte;
 begin
 inc(GCounter);
 
--- a/hedgewars/uScript.pas	Wed Nov 19 01:36:59 2014 +0100
+++ b/hedgewars/uScript.pas	Wed Nov 19 02:00:47 2014 +0100
@@ -1237,9 +1237,9 @@
             vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true);
             if vgear <> nil then
                begin
+               vgear^.Text:= lua_tostring(L, 2);
                if Gear^.Kind = gtHedgehog then
                    begin
-                   vgear^.Text:= lua_tostring(L, 2);
                    AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
                    vgear^.Hedgehog:= gear^.Hedgehog
                    end
hedgewars