RSCRevolution is a new popular RSC private server. This script hits dummys and drinks beer/wine to keep attack low(to keep getting XP from dummys) attacking dummys gets atk xp up without getting hits xp.
Code:
program UltimateDummy;
var
X,Y:Integer;
i,h: Integer;
procedure HitDummy;
begin
if (FindColor(X, Y, 5207966, 0, 0, 503, 330)) then
begin
MoveMouse(0,0);
Wait(20+0);
WriteLn('---RSCRevolution UltimateDummy---');
WriteLn(IntToStr(Inc(i)) + '] You swing at the dummy');
MoveMouse(x,y);
Wait(2000 + Random(10)); //300
ClickMouse(x, y, mouse_left);
Wait(400 + Random(150)); //4000
ClearDebug;
end;
end;
procedure DrinkBeer;
begin
MoveMouse(0,0);
Wait(20+0);
MoveMouse(496,15);
Wait(2000 + Random(150)); //4000
MoveMouse(286,58);
Wait(90 + Random(10)); //300
ClickMouse(286,58, mouse_left);
Wait(6000);
Wait(90 + Random(10)); //300
Wait(1000);
i := 0;
end;
procedure Login;
begin
if (FindColor(X, Y, 10064522, 0, 0, 503, 330)) then
begin
MoveMouse(0,0);
Wait(20+0);
MoveMouse(355,276);
Wait(90 + Random(10)); //300
ClickMouse(355, 276, mouse_left);
Wait(2000 + Random(150)); //4000
MoveMouse(0,0);
Wait(20+0);
MoveMouse(428,251);
Wait(90 + Random(10)); //300
ClickMouse(428,251, mouse_left);
Wait(6000);
MoveMouse(265,215);
Wait(90 + Random(10)); //300
ClickMouse(265,215, mouse_left);
Wait(1000);
end;
end;
begin
ActivateClient;
ClearDebug;
repeat
if (i > 55) then
begin
DrinkBeer;
end;
HitDummy;
Login;
until(isKeyDown(113));
end.