SRL Archive - Other Scripts

I play cp when I am banned on rs, and if any one here plays cp, they would know that they don't care if you macro, because they don't have a rule against it, so I was thinking, why not make a cp script? there is no random color, and extremely easy yet effective for fail safes.

I would make one my self, but I don't know too much about scar (still trying to learn). but it should be very easy to make, so any one?

I might try that, but still. Whats the point? If you earn coins, you cant buy anything or do anything with them unless your a member, and that costs money.

am a member, just so you know

Oh, well im not so i dont think im gonna make one. I think you should read some tuts and make a simple one, it wont be that hard. Besides, there are some great tuts out there :p

I'll make one, if you donate $5 to my paypal. :p


Edit: JK, here's one.

program New;

procedure EnterMine;
begin
  if not GetColor(614, 39) = 0 then
  begin
    if not GetColor(405, 172) = 0 then
    begin
      ClickMouse(47, 439, True);
      Wait(500);
      ClickMouse(474, 141, True);
      Wait(500);
    end;
    writeln('asd');
    ClickMouse(404, 223, True);
    Wait(2000);
  end;
  MoveMouse(638, 159);
  Wait(500);
  ClickMouse(638, 159, True);
  while not GetColor(316, 221) = 16777215 do
    Wait(50);
  ClickMouse(324, 218, True);
end;

{procedure RideTheCart;
var
  x,y,fx,fy: integer;
begin
  while not GetColor(503, 411) = 0 do
    Wait(50);
  ClickMouse(522, 411, True);
  repeat
    if FindColor(x, y, 52479, 309-20, 199-20, 309+20, 199+20) then
    begin
      Wait(2000);
      KeyDown(VK_Right);
      while not FindColor(fx, fy, 5921370, 381-10, 192-10, 381+10, 192+10) do
        Wait(5);
      Wait(1000);
      KeyUp(VK_Right);
    end;
    if FindColor(x, y, 52479, 417-20, 199-20, 417+20, 199+20) then
    begin
      Wait(2000);
      KeyDown(VK_Left);
      while not FindColor(fx, fy, 5921370, 381-10, 192-10, 381+10, 192+10) do
        Wait(5);
      Wait(1000);
      KeyUp(VK_Left);
    end;
  end;
end; }

procedure RideTheCart2;
var
  x, y: integer;
begin
  repeat
    if FindColorTolerance(x, y, 5921370, 381-20, 194-20, 381+20, 194+20, 18) then
    repeat
      if GetColor(429, 206) = 52479 then
      begin
        KeyDown(VK_Left);
        Wait(1500);
        KeyUp(VK_Left);
        Break;
      end;
      if GetColor(344, 206) = 52479 then
      begin
        KeyDown(VK_Right);
        Wait(1500);
        KeyUp(VK_Right);
        Break;
      end;
    until GetColor(381, 194) = 0;
  until GetColor(369, 305) = 16777215;
  ClickMouse(382, 205, True);
  Wait(500);
end;

begin
  repeat
    EnterMine;
    RideTheCart2;
  until(false); //:O
end.

It probably doesn't even work…untested.

what for? rs membership? it won't work btw because jagex only take verifyed paypal, I can give you my 78 wcer if you want.

I'll make one for a 78 wcer lol

ok, mine kart or wave surf, can you do it?