Mercurial Mercurial > hedgewars-draft / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GearDrawing.inc
changeset 3894 9abce5468583
parent 3863 95040bd7ace4
child 3909 4ba25a3d15af
equal deleted inserted replaced
3892:60d9709f2d8e 3894:9abce5468583 
   343         0);
 
   343         0);
 
   344     HatVisible:= true;
 
   344     HatVisible:= true;
 
   345     defaultPos:= false
 
   345     defaultPos:= false
 
   346     end else
 
   346     end else
 
   347 
   347 
   348     if (Gear^.Message and (gm_Left or gm_Right) <> 0) and (not isCursorVisible) then
 
   348     if (Gear^.Message and (gmLeft or gmRight) <> 0) and (not isCursorVisible) then
 
   349         begin
 
   349         begin
 
   350         DrawHedgehog(sx, sy,
 
   350         DrawHedgehog(sx, sy,
 
   351             hwSign(Gear^.dX),
 
   351             hwSign(Gear^.dX),
 
   352             0,
 
   352             0,
 
   353             HH^.visStepPos div 2,
 
   353             HH^.visStepPos div 2,
 
   597     if CurAmmoGear <> nil then
 
   597     if CurAmmoGear <> nil then
 
   598         begin
 
   598         begin
 
   599         case CurAmmoGear^.Kind of
 
   599         case CurAmmoGear^.Kind of
 
   600             gtJetpack: begin
 
   600             gtJetpack: begin
 
   601                        DrawSprite(sprJetpack, sx-32, sy-32, 0);
 
   601                        DrawSprite(sprJetpack, sx-32, sy-32, 0);
 
   602                        if (CurAmmoGear^.MsgParam and gm_Up) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1);
 
   602                        if (CurAmmoGear^.MsgParam and gmUp) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1);
 
   603                        if (CurAmmoGear^.MsgParam and gm_Left) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2);
 
   603                        if (CurAmmoGear^.MsgParam and gmLeft) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2);
 
   604                        if (CurAmmoGear^.MsgParam and gm_Right) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3);
 
   604                        if (CurAmmoGear^.MsgParam and gmRight) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3);
 
   605                        if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex);
 
   605                        if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex);
 
   606                        DrawAltWeapon(Gear, sx, sy)
 
   606                        DrawAltWeapon(Gear, sx, sy)
 
   607                        end;
 
   607                        end;
 
   608             end;
 
   608             end;
 
   609         end
 
   609         end
hedgewars-draft