SRL Archive - Scripts

my scripts

drolbakkes

2010-01-29 17:02:20

use scar 2.02
all scripts have autologin ( no sleeping ) :(

nature rune thiever, stand between the 2 chests map facing south


program NatureChestThiever;
var
x, y, searchchest: integer;
const
username ='';
password ='';

procedure BitmapLoad;
begin
searchchest := BitmapFromString(41, 12,
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000000000FFFFFF000000000000000000' +
       'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       '000000FFFFFF000000000000000000000000000000000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFF' +
       '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000FFFFFF000000000000000000FFFFFFFFFFFF000000' +
       'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
       '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       '000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
       '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000');
end;

procedure ThieveChest;
begin
if (FindColorSpiral (x, y, 13027014, 571, 147, 664, 194)) then
begin
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (searchchest, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
             Wait(1000);
        end;
    end;
end;

procedure Autologin;
begin
     if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;

begin
      BitmapLoad;
repeat
      ThieveChest;
      Autologin;
until (False);
end.

airrunepickup


program AirRunePickup;
var
x, y, rune: integer;
const
username ='';
password ='';

procedure BitmapLoad;
begin
rune := BitmapFromString(14, 14,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FF9040FF9040FF9040FF9040FF9040000000000000000000' +
       '000000000000000000000000000000000000FF9040000000000000' +
       '000000FF9040FF9040000000000000000000000000000000000000' +
       '000000000000FF9040000000000000000000FF9040FF9040000000' +
       'FF9040FF9040000000000000FF9040FF9040000000FF9040000000' +
       '000000000000FF9040FF9040000000FF9040FF9040000000000000' +
       'FF9040FF9040000000FF9040FF9040FF9040FF9040FF9040000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
       '000000000000FF9040FF9040000000000000FF9040FF9040000000' +
       '000000FF9040FF9040000000FF9040000000000000000000FF9040' +
       'FF9040000000FF9040FF9040000000000000FF9040FF9040000000' +
       'FF9040000000000000000000FF9040FF9040000000FF9040FF9040' +
       '000000FF9040FF9040FF9040000000FF9040000000000000000000' +
       '000000FF9040FF9040000000FF9040FF9040000000FF9040FF9040' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000');
end;

procedure Pickup;
begin
if (FindColorSpiral (x, y, 11774111, 416, 11, 929, 331)) or
   (FindColorSpiral (x, y, 8616047, 416, 11, 929, 331)) then
    begin
        wait(500);
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (rune, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
             Wait(1000);
        end;
    end;
end;

procedure Autologin;
begin
     if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;

begin
      BitmapLoad;
repeat
      Pickup;
      Autologin;
until (False);
end.

Cakestealer, stand between the wall and stall map facing north


program CakeStealer;
var
x, y, StealCake: integer;
const
username ='';
password ='';

procedure BitmapLoad;
begin
StealCake := BitmapFromString(20, 13,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000FFFF00FFFF00FFFF' +
       '00FFFF00FFFF00FFFF000000000000000000000000000000000000' +
       '00000000000000000000000000000000000000000000000000FFFF' +
       '00FFFF00000000000000000000FFFF00FFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       '00000000FFFF00FFFF00000000000000000000FFFF00FFFFFFFFFF' +
       'FFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '00000000000000000000FFFF00FFFF00000000000000000000FFFF' +
       '00FFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
       '00FFFF00FFFF000000FFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF00000000000000000000000000FFFF00FFFF' +
       '00000000000000000000FFFF00FFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       '00FFFF00FFFF00000000000000000000FFFF00FFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       '00000000000000FFFF00FFFF00000000000000000000FFFF00FFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '00000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF' +
       '00FFFF000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000');
end;

procedure StealCakes;
begin
if (FindColorSpiral (x, y, 11774111, 659, 159, 693, 188)) then
    begin
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (StealCake, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
             Wait(1000);
        end;
    end;
end;

procedure Autologin;
begin
     if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;

begin
      BitmapLoad;
repeat
      StealCakes;
      Autologin;
until (False);
end.

graveyard afk trainer face map north will run when needs to sleep


program GraveyardAFKtrainer;
var
x, y: integer;
const
username ='';
password ='';

procedure AttackMode;
begin
if (FindColorSpiral (x, y, 7850, 424, 37, 596, 51)) or
   (FindColorSpiral (x, y, 6820, 424, 37, 596, 51)) then
   begin
        Wait(200);
        ClickMouse (495,107, True);
        Wait(5000);
   end;
end;

procedure Run;
begin
if (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) or
   (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) then
   begin
        ClickMouse (877,17, True);
        Wait(100);
        ClickMouse (910,100,True);
        wait(500);
   end;
end;

procedure AutoLogin;
begin
  if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;
begin
   repeat
      AttackMode;
      Run;
      AutoLogin;
   until (False);
end.

Redspiders afk trainer on karamja, face map north, will run if need sleep


program RedSpidersAFKtrainer;
var
x, y: integer;
const
username ='';
password ='';

procedure AttackMode;
begin
if (FindColorSpiral (x, y, 197768, 424, 37, 596, 51)) or
   (FindColorSpiral (x, y, 395409, 424, 37, 596, 51)) then
   begin
        Wait(200);
        ClickMouse (495,107, True);
        Wait(5000);
   end;
end;

procedure Run;
begin
if (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) or
   (FindColorSpiral (x, y, 65280, 424, 306, 567, 322)) then
   begin
        ClickMouse (876,18, True);
        Wait(50);
        ClickMouse (780,130,True);
        wait(500);
   end;
end;

procedure AutoLogin;
begin
  if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;
begin
   repeat
      AttackMode;
      Run;
      AutoLogin;
   until (False);
end.

Thieves guards and picks up coins, runes and arrows


program ThieveGuard;
var
x, y, PPG, rune, coins, arrows: integer;
const
username ='';
password ='';

procedure BitmapLoad;
begin
PPG := BitmapFromString(36, 14,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFFFF000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000FFFFFF000000000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFFFF000000000000000000000000000000000000000000000000' +
       '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000000000000000000000000000000000000000000000000000' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000' +
       '000000000000FFFF00FFFF00000000000000000000000000000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000000000FFFF00FFFF00000000000000000000000000000000' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
       'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000000000FFFF00FFFF00000000000000FFFF00FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF' +
       'FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
       'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00' +
       'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
       '000000FFFF00FFFF00000000FFFF00FFFF00FFFF00000000FFFF00' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
       '000000000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '');
rune := BitmapFromString(14, 14,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FF9040FF9040FF9040FF9040FF9040000000000000000000' +
       '000000000000000000000000000000000000FF9040000000000000' +
       '000000FF9040FF9040000000000000000000000000000000000000' +
       '000000000000FF9040000000000000000000FF9040FF9040000000' +
       'FF9040FF9040000000000000FF9040FF9040000000FF9040000000' +
       '000000000000FF9040FF9040000000FF9040FF9040000000000000' +
       'FF9040FF9040000000FF9040FF9040FF9040FF9040FF9040000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
       '000000000000FF9040FF9040000000000000FF9040FF9040000000' +
       '000000FF9040FF9040000000FF9040000000000000000000FF9040' +
       'FF9040000000FF9040FF9040000000000000FF9040FF9040000000' +
       'FF9040000000000000000000FF9040FF9040000000FF9040FF9040' +
       '000000FF9040FF9040FF9040000000FF9040000000000000000000' +
       '000000FF9040FF9040000000FF9040FF9040000000FF9040FF9040' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000');
coins := BitmapFromString(27, 13,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000FF9040FF9040FF9040FF9040000000000000000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000000000' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
       'FF9040FF9040000000000000000000000000000000000000000000' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       'FF9040FF9040000000000000000000000000000000000000FF9040' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       'FF9040FF9040000000000000000000000000000000000000FF9040' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
       'FF9040FF9040000000000000000000000000000000000000FF9040' +
       '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
       'FFFFFF000000000000000000000000000000000000000000000000' +
       'FF9040FF9040000000000000000000000000000000000000FF9040' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       '000000FF9040FF9040000000000000FF9040FF9040000000FF9040' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000' +
       '000000000000FF9040FF9040FF9040FF9040000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '');
arrows := BitmapFromString(25, 15,
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000FF9040FF9040FF9040FF9040' +
       'FF9040FF9040000000000000FFFFFFFFFFFF000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000FF9040FF9040000000000000000000FF9040' +
       'FF9040000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
       '000000FF9040FF9040000000000000000000FF9040FF9040000000' +
       'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       '000000000000FFFFFFFFFFFF000000000000000000000000FF9040' +
       'FF9040000000000000000000FF9040FF9040000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
       'FFFFFFFFFFFF000000000000000000000000FF9040FF9040FF9040' +
       'FF9040FF9040FF9040000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
       '000000000000000000000000FF9040FF9040000000000000000000' +
       'FF9040FF9040000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
       '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
       '000000000000FF9040FF9040000000000000000000FF9040FF9040' +
       '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
       'FF9040FF9040000000000000000000FF9040FF9040000000FFFFFF' +
       'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
       'FFFFFFFFFFFF000000000000000000000000000000FF9040FF9040' +
       'FF9040FF9040FF9040FF9040000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000000000000000000000');
end;

procedure AttackMode;
begin
if (FindColorSpiral (x, y, 127, 425, 38, 595, 112)) then
begin
        Wait(100);
        ClickMouse (489, 104, True);
        Wait(500);
     end;
end;

procedure Menu;
begin
if (FindColorSpiral (x, y, 8585216, 728, 3, 925, 35)) then
begin
        Wait(100);
        ClickMouse (419, 2, False);
        Wait(1000);
     end;
end;

procedure Guard;
begin
if (FindColorSpiral (x, y, 8752875, 418, 10, 927, 333)) then
   begin
        Wait(500);
        ClickMouse (x, y, False);
        wait(1000);
        if (FindBitmap (PPG, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
        end;
    end;
end;

procedure runes;
begin
if (FindColorSpiral (x, y, 10721423, 418, 10, 927, 333)) then
   begin
        Wait(100);
        ClickMouse (x, y, False);
        wait(1000);
        if (FindBitmap (rune, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
        end;
    end;
end;

procedure BRunes;
begin
if (FindColorSpiral (x, y, 10721423, 418, 10, 927, 333)) or
   (FindColorSpiral (x, y, 5393738, 418, 10, 927, 333)) then
   begin
        Wait(500);
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (rune, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
        end;
    end;
end;

procedure Money;
begin
if (FindColorSpiral (x, y, 49404, 418, 10, 927, 333)) then
   begin
        Wait(500);
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (coins, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
        end;
    end;
end;

procedure BArrows;
begin
if (FindColorSpiral (x, y, 3302317, 418, 10, 927, 333)) then
   begin
        Wait(500);
        ClickMouse (x, y, False);
        wait(500);
        if (FindBitmap (arrows, x, y)) then
        begin
             ClickMouse (x+2, y+2, True);
        end;
    end;
end;

procedure AutoLogin;
begin
     if (FindColorSpiral (x,y, 3472636, 500, 142, 505, 148)) then
     begin
          ClickMouse(680, 290,true);
          wait(500);
          Sendkeys(username);
          wait(500);
          ClickMouse(602,307,true);
          wait(500);
          SendKeys(password);
          wait(500);
          ClickMouse(830,250,true);
          wait(3000);
          ClickMouse(661,246,true);
     end;
end;

begin
      BitmapLoad;
repeat
      AttackMode;
      Menu;
      Guard;
      BRunes;
      Runes;
      Money;
      BArrows;
      AutoLogin;
until (False);
end.

YoHoJo

2010-01-29 17:09:33

I'm pretty sure clickmouse/movemouse can still get you banned on RSC. You bitmaps are really huge too! You dont need the entire item/object, just a small unique piece of it! Also isn't there an RSC include that has some basic procedures/functions like a login?

Anyways, good effort making these scripts, keep on learning!