1269 end; |
1269 end; |
1270 if RealTicks mod 2 = 0 then |
1270 if RealTicks mod 2 = 0 then |
1271 begin |
1271 begin |
1272 i:= random(100)+100; |
1272 i:= random(100)+100; |
1273 if Gear^.Target.X <> NoPointX then |
1273 if Gear^.Target.X <> NoPointX then |
1274 DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40) |
1274 begin |
1275 else DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
1275 DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40); |
|
1276 end |
|
1277 else |
|
1278 begin |
|
1279 DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40); |
|
1280 end; |
1276 end |
1281 end |
1277 end |
1282 end |
1278 end; |
1283 end; |
1279 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1284 gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug |
1280 end; |
1285 end; |