changeset 10866 | c1f75780c56f |
parent 10829 | 158b5dd6b3c9 |
child 11005 | 71927bdb776a |
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 |