| changeset 10682 | 1be106f8095a |
| parent 10562 | 3388822b3914 |
| child 10683 | 31a0e7efa17a |
| 10681:474d418a34c5 | 10682:1be106f8095a |
|---|---|
166 end; |
166 end; |
167 |
167 |
168 procedure DrawRope(Gear: PGear); |
168 procedure DrawRope(Gear: PGear); |
169 var roplen, i: LongInt; |
169 var roplen, i: LongInt; |
170 begin |
170 begin |
171 if Gear^.Hedgehog^.Gear = nil then exit; |
|
171 if (cReducedQuality and rqSimpleRope) <> 0 then |
172 if (cReducedQuality and rqSimpleRope) <> 0 then |
172 DrawRopeLinesRQ(Gear) |
173 DrawRopeLinesRQ(Gear) |
173 else |
174 else |
174 begin |
175 begin |
175 roplen:= 0; |
176 roplen:= 0; |