hedgewars/uGears.pas
changeset 10866 c1f75780c56f
parent 10829 158b5dd6b3c9
child 11005 71927bdb776a
equal deleted inserted replaced
10865:a587145ced34 10866:c1f75780c56f
   549         y:= hwRound(Gear^.Y) + WorldDy;
   549         y:= hwRound(Gear^.Y) + WorldDy;
   550         RenderGear(Gear, x, y);
   550         RenderGear(Gear, x, y);
   551         end;
   551         end;
   552     Gear:= Gear^.NextGear
   552     Gear:= Gear^.NextGear
   553     end;
   553     end;
       
   554 
       
   555 if SpeechHogNumber > 0 then
       
   556     DrawHHOrder();
   554 end;
   557 end;
   555 
   558 
   556 procedure FreeGearsList;
   559 procedure FreeGearsList;
   557 var t, tt: PGear;
   560 var t, tt: PGear;
   558 begin
   561 begin