Snape Grass Picker.

Hey all, Ive made my 2nd scar script. It is a SnapeGrass Picker, just like the title says. It is not equipt with antirandom or antiban(Look here:http://www.sythe.org/showthread.php?t=543111). It will be easy for you to add antirandoms etc, but i will try to get it to run with them. It requires lunar diplomacy to be done and lvl 72 magic. It worked for me for an hour straight, at which time i stopped it.(I was lucky not to get any randoms, but i was watching just incase).I found a post in the requests section with this, so i desided to write this. Here you go:


Oo, AND LIKE I SAID, I AM A NOOB, SO ALL SUGGESTIONS AND **CRITISISM** IS ACCEPTED. TELL ME IF YOU SEE SOMETHING THAT
IS WRONG WITH MY CODE, NO MATTER HOW SMALL. THERE WILL PROBABLY
BE SOME, SINCE THIS IS ONLY MY 2ND SCAR SCRIPT. I WANT TO BECOME BETTER AND ONE OF THE BEST WAYS FOR ME TO GET THERE IS FOR YOU TO CRITISIZE ME.(NOT ON MY SPELLING THOUGH ) thank you.

COMMENTS ARE ALSO WELCOME

Code:

///////////////////////////////////////////////////////
///////////////////////////////////////////////////////
//                 SUPERBATMAN'S                     //
//               AUTOSNAPEGRASSER                    //
///////////////////////////////////////////////////////
///////////////////////////////////////////////////////
//IF YOU GET BANNED, DONT BLAME IT ON ME, OR COME    //
//CRYING TO ME,I AM NOT RESPONSIBLE FOR YOUR ACTIONS //
///////////////////////////////////////////////////////
///////////////////////////////////////////////////////
//INSTRUCTIONS:                                      //
//1.Place Astral Runes in 1st inv Slot, Water runes  //
//In 2nd inv slot.                                   //
//2.Have Ring Of Dueling(8) equipted                 //
//(*******YES, IT MUST HAVE (8) CHARGES**********)   //
//3.Go To MoonClan Island, Make Sure there is at     //
//least 1 snape grass in view on the MAIN SCREEN.    //
//4. PRESS PLAY (Or CTRL+ALT+R)                      //
///////////////////////////////////////////////////////
///////////////////////////////////////////////////////
//IF THERE IS ANYTHING WRONG WITH THE SCRIPT, PLEASE //
//REPORT TO ME AT:[email protected]                //
///////////////////////////////////////////////////////



program SnapeGrasser;

Const
SnapeGrass=5146128;
BankSign=2678772;
Chest=3815998;

 var
 x,y,charges: integer;
 
 charges:=8;

procedure PickSnapes;
begin



          FindColor(x,y,SnapeGrass,260,178,775,513)
          wait(100+random(500));
          ClickMouse(x,y,true);
          wait(5500+random(500));

end;

procedure ToCastleWars;
begin
          MoveMouseSmooth(931+random(10),331+random(10));
          wait(500+random(300));
          ClickMouse(931+random(10),331+random(10),true);
          wait(3500+random(300));
charges:=charges-1;
          MoveMouseSmooth(959+random(3),533+random(3));
          wait(500+random(300));
          ClickMouse(959+random(3),533+random(3),false);
          wait(500+random(300));
          MoveMouseSmooth(841+random(120),574+random(3));
          wait(500+random(300));
          ClickMouse(841+random(120),574+random(3),true);
          wait(1500+random(300));
          MoveMouseSmooth(293+random(400),568+random(5));
          wait(500+random(300));
          ClickMouse(293+random(400),568+random(5),true);
          wait(5000+random(300));
          MoveMouseSmooth(903+random(10),335+random(3));
          wait(500+random(300));
          ClickMouse(903+random(10),335+random(3),true);
          wait(500+random(300));

end;

procedure StoreSnapes;
begin
          FindColor(x,y,BankSign,819,163,942,307);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(5500+random(500));
          FindColor(x,y,Chest,259,152,771,485);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(500+random(300));
          MoveMouseSmooth(918+random(3),375+random(3));
          wait(500+random(300));
          ClickMouse(918+random(3),375+random(3),false);
          wait(500+random(300));
          MoveMouseSmooth(852+random(120),478+random(6));
          wait(500+random(300));
          ClickMouse(852+random(120),478+random(6),true);
          wait(500+random(300));
          FindColor(x,y,BankSign,819,163,942,307);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(500+random(300));
end;

procedure WithdrawRing;
begin
          FindColor(x,y,BankSign,819,163,942,307);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(5500+random(500));
          FindColor(x,y,Chest,259,152,771,485);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(500+random(300));
          MoveMouseSmooth(309+random(3),253+random(3));
          wait(500+random(300));
          ClickMouse(309+random(3),253+random(3),true);
          FindColor(x,y,BankSign,819,163,942,307);
          wait(500+random(300));
          ClickMouse(x,y,true);
          wait(1000+random(500);
          MoveMouseSmooth(920+random(3),406+random(3));
          wait(500+random(300));
          ClickMouse(920+random(3),406+random(3),true);
          wait(2000+random(1000));
end;
          
procedure BackToMoonClan;
begin
          MoveMouseSmooth(999+random(10),332+random(10));
          wait(500+random(300));
          ClickMouse(999+random(10),332+random(10),true);
          wait(500+random(300));
          MoveMouseSmooth(826+random(5),431+random(5));
          wait(500+random(300));
          ClickMouse( 826+random(5),431+random(5),true);
          MoveMouseSmooth(903+random(10),335+random(3));
          wait(500+random(300));
          ClickMouse(903+random(10),335+random(3),true);
          wait(3500+random(300));
          
end;
          
          
//main//
begin
     repeat
     PickSnapes;
     if(FindColor(x,y,SnapeGrass,947,582,980,605)=true) then
     begin
          ToCastleWars;
          StoreSnapes;
                 if(charges=0) then
                 begin
                      WithdrawRing;
                 end;
          BackToMoonClan;
     end;
     until(false);
end.

 

could you tell me how many snape grass it pics per hour?

 

I got about 600(598 to be exact). Manually i could get like 750+, so it is a bit slower, but im still working on this code. It was still about 198k i think, so its still pretty good. I am still trying to find out why my scar cant compile srl.scar, and when i get that, it will be alot faster, ill be using flag then. it will also be more safe, with antirandoms and antiban.

Have you writen any code? Im sure there are errors in mine. Critisism plz.

Hmmmmm... I have a question now for you. My First code was a firemaker. It worked the first day, then i came back the second day(I hadnt changed the code at all), and the colors and inventory locations were differnt than day 1. Now, i tried running it on day 3, and they are different again. Does RS change these on purpose(I check my brightness and stuff, but it was all the same as the previous day.

EPIC, U GOT ANY CRITISISM 4 ME?

 

Try using SRL. This script has some potential... add SRL, and see the difference .

 

Yeah, i finally got SRL compiling on my scar 3.15. At first, it wouldnt compile at all. Im pretty much gonna rebuild this from the ground up with srl.

Oh, and does anyone know if jagex changes the color of items every day?
Ima try using FindColorToleranceIn instead of FindColor, cause the colors for me are changing all the time.

 

this gave me 358 errors lol