Well lately I found myself power mining while waiting for a certain type of ore to re-spawn .
As usual, quickly, I got bored of dropping the Iron ore. So decided to use an auto dropper.But to my surprise i was unable find one that suited my needs:
- Working in HD (more likely with a big screen because i had almost all other "improvements" disabled).
- Being able to drop just a certain type of ore/item.
- Dropping when i wanted and not hen inventory is full.
So in conclusion after many years of leaching (using other people scripts) i start writing one.The "way of thinking" was not a problem, the issue was not knowing the functions in SCAR/SRL.
Anyway this is it (without the lalala and all other crap)
Version 1.2 is available to download !
- In this version the mouse is more "undetectable"
- The ore check loop is a little simplified
- More comments are added !
- Bitmap is cleared at the end of the script too preserve memory
THANKS CIGUE FOR THE ADVICES !THINGS YOU SHOULD KNOW !Code:program DropHD ; {.include srl/srl.scar} const Tol = 5; // Tolerance in finding the Iron ore. During tests with 5 tolerance worked perfectly. Speed = 25; // Mouse Speed TimeBetweenOres = 600 ; // Time to wait between ore. var Loads:integer; procedure Drop; var IronOres, x, y: Integer ; begin IronOres := BitmapFromString(7, 3, 'beNpTkNCTFjGUFTN' + //Iron_Ore [10-12-09] 'XkLBRkQYiSyVJIBsoYiIvDmQjCwJFgCSKIAAisglL'); while(FindBitmapTolerance(IronOres, x, y,tol)) do begin MouseItem(CoordsToItem(x, y), false); WaitOption('Drop', RandomRange(100, 300)); Wait(TimeBetweenOres+Random(200)); Inc(Loads); end; end; // Main begin SetupSRL; mousespeed := Speed; Loads:=0; repeat if (IsFunctionKeyDown(0)) then Drop; // Makes the script Drop each time you press the Shift key until(IsFunctionKeyDown(8)); // Makes the script STOP, validates the repeat condition FreeBitmap(IronOres); writeln(IntToStr(Loads) + ' iron ores war droped.'); end.
1) The script was tested and written to work with this setting made in RS :
2) I know here is room for improvement !!
Known Issues !!!
Exception: Can't allocate the DIB handle
Not due to script !!!
In order to fix refocus SCAR on RuneScape window !
Mentions !!!
Yes i know that i could take the Bitmap straight from SRL but the calling procedure just didn't work for me ... so this was a simple fix !!
If you can provide any help with that part then PLEASE TELL ME !!! (Its driving me nuts)
Next !!
1) Trying to use :
FindBitmapSpiralTolerance(bitmap: Integer; var x, y: Integer; x1, y1, x2, y2: Integer; Tolerance: Integer): Boolean;
but without specifying where to look for the bitmap (resizeable window).
Again if you could help then PLEASE do ...
2) After solving the issue with getting bmp's from scar/core/bitmaps.scar i'm thinking to add the option to pick what to drop and what to keep ... (depending on what time i have available...)
THANKS for your time and PLEASE say something about it (especially if you are a SRL Member...)




Reply With Quote










The way you comment particular lines really makes it easier to understand too.
i was not thinking strait ...


