changeset 7098 | f8c453ade379 |
parent 7093 | 2d7f1fb73335 |
child 7111 | 5ba5a92d74fb |
child 7165 | aad1aea05f1e |
7097:ed417e912267 | 7098:f8c453ade379 |
---|---|
1196 end |
1196 end |
1197 end; |
1197 end; |
1198 if RealTicks mod 2 = 0 then |
1198 if RealTicks mod 2 = 0 then |
1199 begin |
1199 begin |
1200 i:= random(100)+100; |
1200 i:= random(100)+100; |
1201 DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
|
1202 if Gear^.Target.X <> NoPointX then |
1201 if Gear^.Target.X <> NoPointX then |
1203 DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
1202 DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40) |
1203 else DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
|
1204 end |
1204 end |
1205 end |
1205 end |
1206 end |
1206 end |
1207 |
1207 |
1208 |
1208 |