SRL Archive - Scripts

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.