[RSCRevolution] DummyAttacker

[Toby1]

http://i61.tinypic.com/o0yz2f.png
My result from script


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.


Note:


there must be 30 beers/wine in inventory for the script to work.
does not go to bank and get beers
to startup, go to dummys room and stand near dummy.
no mod detection, so watchout
sorry if its a bit messy :\ have not scripted in a while




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.