• Log in or sign up for an account here: https://www.sythe.org/login

Need help with bitmap and SCAR banking!

Ownedlikenoob

Newcomer
Joined
Jul 9, 2009
Sythe Gold
0
Messages
1
This is the Script...

Code:
program MagicTreeCut;

var
x,y: Integer;
Use_Quickly: Integer;


const
TreeMap = 3956331;  //Change to tree on map
TreeColor = 13891832; //Change to color of stars falling of magic tree
SpellBook = 3437978;   //Change to colo of spellbook (orange part)
Tele =  2697513;    //Change to Tele to skilling area teleport color
Bank = 4276296;   //Change to Brown part of bank
UseBank = 16777215; //Change if needed
RunOff = 4540487;
{Do Not Change Screen From Then On Or You Will Have To Do It All Again}
begin
ClickMouse(676, 485,True);
wait(1000)
if(FindColor(x,y,RunOff,516,168,763, 503)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(1000);
  end else
begin
if(FindColor(x,y,TreeMap,516,-1,582,64)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(8000);
begin
if(FindColor(x,y,TreeColor,0,1,516,340)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  wait(6000);
  begin
if(FindColor(x,y,SpellBook,524,42,773,250)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  wait(1000);
  begin
if(FindColor(x,y,Tele,684,254,739,315)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  wait(6000);
    begin
if(FindColor(x,y,Bank,0,1,516,340)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,False);
  wait(2000);

  begin
    Use_Quickly := BitmapFromString(230, 92, 'beNrt2klygzAQBVAv' +
       'uGLufxRSSaoIRt2ayEDh9yoLBluI8BEN+PEAAAAAAAAAAAAAAAAAA' +
       'AAAAAAAAAAAAAAARr1xXxKLxF4kseunbU8Ps9cUdnK054913f/NZ6' +
       'P19ZPtz7V8+8QuyxLOXjmxh06O9vzrcC+fzoRqa2f6A9P5rLQssTd' +
       'O7MlQ/XFi9+1I7EUS27y+S6zEZoldnx3iMVQ6Zo2EKf26WGfb2joZ' +
       'Lqy3nNWx+y2G9W1W925fz0qLSrWcrWp2oFmKv2Zit+m9w/IyG5WEN' +
       'zOW5S3swH5Vs7VyIMrq2PryMpxZ7JuRnuvA/v+QdckYm8Wv/PxSCB' +
       'Pen7FKAbA+J2Q6seXltRx+wyCVsYkv0MWH6x3omc6y/b0LL1zHNsf' +
       'S7Eg1E34+sT3n0Whi68nMpmsPmk4kszOxwUl36zcI26Hfh7AndfuB' +
       'tPNm6gcTW6kxwtPqt4NUr2Ml9mffeYXHtzKWZvVqz51XlquwIq3fe' +
       'WXnQnl1yBLbvPOaCNXchoaWS2xZglYWNldlwvyEjYSzZccO02FPKk' +
       '+9RvdudHp0Q0PL65v2u4Jfffh/sy36XYHETr+D6Lw3lFiJ/fcRr/9' +
       'RhsRKbLOa/ZsIDdXYEgsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
       'H94BL52Ang==');

  FreeBitmap(Use_Quickly);

  begin
  if(FindBitmap(Use_Quickly,x,y)) then
  begin
  MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
  Wait(1000+random(100));
  ClickMouse(x,y,true);
  end;
  end;
  end;
  end;
 end;
end;
  end;
  end;
  end;
  end;
  end;
end;
end;
end.


But anyways, I get this error when i run it...
[Runtime Error] : Exception: Access violation at address 00410E28 in module 'scar.exe'. Read of address 00000000 in line 82 in script C:\Program Files\SCAR 3.20\Scripts\MagicTreeCut.scar

line 82 is this: FreeBitmap(Use_Quickly);

Any ideas?
NOTE* This is for a runescape private server so I don't need any antiban.
 
Runescape Gamblingrunescape gambling
Back
Top