SCAR Code:
var
Left, Right, Ball,
BatLength, BatPos, BatMiddle,
BallPos : Integer;
LeftTP, RightTP, BallTP : TPoint;
procedure DoStuff;
begin
while (BallPos > LeftTP.x) and (BallPos < RightTP.X) do
begin
Wait(10);
FindDTM(Left, LeftTP.x, LeftTP.y, 167, 406, 473, 421);
FindDTM(Right, RightTP.x, RightTP.y, 167, 406, 473, 421);
if not FindDTM(Ball, BallTP.x, BallTP.y, 168, 8, 471, 436) then
Break;
BatLength := RightTP.x - LeftTP.x;
BatPos := LeftTP.x;
BatMiddle := LeftTP.x + BatLength / 2;
BallPos := BallTP.x;
MoveMouse(BallTP.X, BallTP.Y);
end;
while BallPos < BatMiddle do
begin
KeyDown(VK_LEFT);
Wait(50);
KeyUp(VK_LEFT);
FindDTM(Left, LeftTP.x, LeftTP.y, 8, 8, 515, 471);
FindDTM(Right, RightTP.x, RightTP.y, 8, 8, 515, 471);
if not FindDTM(Ball, BallTP.x, BallTP.y, 8, 8, 515, 471) then
Break;
BatLength := RightTP.x - LeftTP.x;
BatPos := LeftTP.x;
BatMiddle := LeftTP.x + BatLength / 2;
BallPos := BallTP.x;
MoveMouse(BallTP.X, BallTP.Y);
end;
while BallPos > BatMiddle do
begin
KeyDown(VK_RIGHT);
Wait(50);
KeyUp(VK_RIGHT);
FindDTM(Left, LeftTP.x, LeftTP.y, 8, 8, 515, 471);
FindDTM(Right, RightTP.x, RightTP.y, 8, 8, 515, 471);
if not FindDTM(Ball, BallTP.x, BallTP.y, 8, 8, 515, 471) then
Break;
BatLength := RightTP.x - LeftTP.x;
BatPos := LeftTP.x;
BatMiddle := LeftTP.x + BatLength / 2;
BallPos := BallTP.x;
MoveMouse(BallTP.X, BallTP.Y);
end;
end;
procedure LoadDTMs;
begin
Left := DTMFromString('78DA63BCC3C0C0709E91011530229140FA169' +
'0384E40CD53207189809A9740E22A01354F80C439026AEE0289D3' +
'A86AFEA3A864600000F4470B32');
Right := DTMFromString('78DA63346064603805C42880118904D26A40D' +
'625026A5481ACCB04D4180259C789B0EB340135CA40D645026AF4' +
'30CDF98FA292810100D47907E2');
Ball := DTMFromString('78DA63DCCEC0C03091910119CC9C391D4CC34' +
'419B700897E54355B366F41550332670A01353B31ED9A357316A6' +
'397DA86A162F5A84AA6617A69A86863A54355B81C46454352B572' +
'E475103006F6B1635');
end;
procedure ScriptTerminate;
begin
FreeDTM(Left);
FreeDTM(Right);
FreeDTM(Ball);
end;
begin
Wait(2000);
LoadDTMs;
Inc(BallPos);
while True do
begin
DoStuff;
Wait(20);
end;
end. //Zytex