SRL Archive - RS3 Outdated / Broken Scripts

RS2 Bone picker and burier

m0u53m4t

2006-06-28 16:17:21

This is my first ever script, so comments would be great. Here's the code:

program Juniorsboneman;
{.include dropunwanted.txt}
{.include SRL/SRL.scar}
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////Juniors Bone Man V1.4\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////Setup\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////1. Set to low detail\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////2. Set screen to 32 bit\\\\\\\\\\\\\\\\\\\\\\\\
////3. Drag crosshairs over runescape every time you start the script\\\
////////////////4. Have no white items in your inventory\\\\\\\\\\\\\\\\
/////////////5. Start where there are lots of bones around\\\\\\\\\\\\\\
///////////////////////////6. Setup lines 34\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////7. Enjoy!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////Current Known Issues and fixes\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////1. No longer attacks chickens and white monsters\\\\\\\\\\\
///////////2. Can now drop ash, cow hide, raw meat and chicken\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


Var
x5,y5,x1,y1,bonesimg,bonesimg2,dropped,picked,logoutwhen,Numberofbones: Integer;

procedure Numberoftrips;
begin

////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
Numberofbones := 1000
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////

end;

procedure openbag;
begin
mouse(632,174,8,8,true)
end;

procedure findbones;
begin

  bonesimg := BitmapFromString(40, 11, 'z78DADD54411283200C' +
       'FC1268053C0AF4FF5F92E9D24E308432D8E9010F7B888BB29B4D6' +
       '2707635B144F74635DD038DE1B08F75D1BB3E9401A6CAB62EC0A9' +
       'F47A674ABD171F925E7D68AFCC84FD25BA90E7ACD7EBA0EC7C7A8' +
       '1747EE180D4DF1813C772AC309F6E4F6F0514EFF6233E3D3536BF' +
       '541DBA0F0CFE75CA5F4FE18FF4AD0E3A7EE303C11CE373E47A2B7' +
       '966FD85D27C7392F6FE7AFE3BF10115EE4F4F1D0F7543CAC3675F' +
       '6DD5F9F5F5F9BDAFB75F17BF3FED17CF5E3B0F63FBEA9F7AA5647' +
       '66D27F69D3BFBAAF05F98E8311FDAF9ACA4B4B9A9B84B7453656C' +
       '2A2DF243D471A512B3A7CEF3D9EE720FF3049CD81E0A');

         bonesimg2 := BitmapFromString(38, 10, 'z78DAE555C19683200' +
       'CFCA54004E2D122FCFF276D20C1AA48D7BE3D75EB218710426686' +
       'C1B490435A734818FA08FFE24B8EB061DCE7D71822235DC3FAF94' +
       '815633A6351352BD28FC7E8BF00A325602C15A3C4B490DF6E6F00' +
       '77B52B1B8A18EB5ED288649106FD75B58F2FA6324819E8C1A740C' +
       '8ED9461FD4413668D9EDC04872818ABEF8C8504F6E0C74E479D39' +
       '70B7F9A07BEDD0FB57EAFB55CD74EFC09E37C9186F00ECB07F516' +
       '4617496E767F2997E89D6F077D0F17A2F8D66B8C4622EF39ED928' +
       'F978B37EDFFF01D4381F9DABABA668CDF730E1AC6ABAA2E02F18E' +
       '7FA4F19E878515F6FD488E77AFA5DAE4EBAABB254E68199DD635F' +
       'BB4F7414BC8ABACD163BFEF12D1D4718A53EBDDDE78F6F9DE8A81' +
       '8FD9367E95C750F8271EFD093FBE2562F6F42ADEF79562CB7B91A' +
       'F697286A769CA82B9B37B7F7A758D2C00FCD0ACE78');

SetTransparentColor(bonesimg, 0)
SetTransparentColor(bonesimg2, 0)

repeat
begin

repeat
wait(200+random(200))
until(FindColorSpiralTolerance(x5,y5, 13224400, 10, 30, 516, 337, 5)=true)

MMouse(x5,y5,0,0)
wait(random(50+random(50)))
if(FindBitmapToleranceIn(bonesimg, x1,y1, 40, 7, 80, 25, 245))=true or
FindBitmapToleranceIn(bonesimg2, x1,y1, 40, 7, 80, 25, 245)=true then
begin
if(FindColorSpiralTolerance(x1,y1, 3769056, 40, 7, 80, 25, 20)) then
begin
clickmouse(x5,y5,true)
wait(20+random(10))
clickmouse(x5,y5,true)
picked := 1
wait(3000 + random(500))
end;
end;
wait(random(100))
if random(2) = 1 then
SendArrowSilentWait(1, 50 + random(500));
end;
until(picked = 1)
picked := 0
end;

procedure dropbones;
begin

if FindColorSpiralTolerance(x5, y5, 15000808, 561, 214, 730, 460, 3)=true then
begin
mouse(x5,y5,1,1,true)
wait(800+random(100))
if FindColorSpiralTolerance(x5, y5, 15000808, x5-30, y5-30, x5+30, y5+30, 3)=true then
begin
wait(5+random(20))
clickmouse(x5,y5,true)
end;
dropped := dropped + 1
wait(500+random(1000))
logoutwhen := logoutwhen + 1
end;
end;

procedure update;
begin
if logoutwhen = 25 then
writeln('Done 25')
if logoutwhen = 50 then
writeln('Done 50')
if logoutwhen = 75 then
writeln('Done 75')
if logoutwhen = 100 then
writeln('Done 100')
end;

begin
ActivateClient
SetupSRL;
numberoftrips
HighestAngle
setrun(true)
openbag
repeat
findNormalRandoms
dropunwanted
findbones
dropbones
dropunwanted
antiban
findNormalRandoms
if random(10) = 1 then
begin
setrun(true)
openbag
end;
update
until(logoutwhen > Numberofbones)
Logout
writeln('logged out')
end.

and you need this as an include named dropunwanted.txt

procedure dropunwanted;

Var
egg,chicken,bearmeat,cowhide,ash,x1,y1,ranclickx,ranclicky: Integer;

begin

egg := BitmapFromString(15, 12, 'z78DA9592596EC0200C44AF0478C1' +
       'FEF402F73F52694825A2B4559B488E2391E7C9784A59571DC5ACF' +
       'B90A8D686877B593D180E765719E020B6CF645A638FAE95867721' +
       '62E9DC6062823428170D4A5B7739C99BE3110E0F72F32A3DA7699' +
       '7341DDCB368E71A249342B35754F6C55E4FA05637F3265FDFFEA8' +
       'B65AF45C6A9147B2066384229700497259EA21785081EF3493ABE' +
       '25F7C48546308D54633AA04990A0F6422C8D6BF216F872DD4C6DD' +
       'EF59A70F698525DB22B5EDF3E73C9C3A3BA0B1A0B5799209D1C06' +
       'FFE3FC91EA224DD49C1DE9A1FE4EDC3B24EDBA85E0417B3777A6F' +
       'CD4D3A892C5FB0F44A0DE864DE64C6C47693D987E64067996B6B4' +
       '36A0EE35E53349963287D6D6DE76D393E51762A1E6A2FE6591FDB' +
       'DC9A4FF2CEC3B5B5F5278A53D63BE44F6AB71B677FA671D747D27' +
       '61E2EB56F1F1E6A37F9554F0DEF59677DA87DE9FC7DCA7BD6BBBE' +
       'CF7F006D7DEB98');
       
bearmeat := BitmapFromString(19, 20, 'z78DABD955D8EC3200C84AF44CCFF' +
       '2336E6FE47DA29E681284DD56AB79B51509534FE18634C4CA1078' +
       'A2134CF6BBC79E21ED761630FA29048848A3828B1B20A71E5D21C' +
       'F983EEC6157FA76C4F9E503E8CFF9A883BF872A24419D02FE2DF1' +
       '19F50FE28FE755C94D48FEE842588FF06E509B174EA249185F99D' +
       'AF7870846EC6B788AD4764B30909FD1351E0B260F58A94EF11EDE' +
       'D226AAFD0AC99DF13EFB8DCDA68C388EAE0522CB7DFAB99DDA3FA' +
       '3EE093E471CD3DFECE8A7C908DD86010B7ABCB239289571A95943' +
       'A63AFA4459FB5047EE1FCE91C16EB6811F23543BD52A51351B469' +
       'D5AC0132D7B3A2567F9BBBD53A83CDE12D963407D5AAE0651426E' +
       'FC411060DD2A140819DA1E97A5FE5D591AC877BC6F6DDE7B058CC' +
       '07944113A6965BAEADBA328AC7CF66DDFBC4CD234234DC70203F5' +
       'AEAEEDAAA7A768C9579952CC9BA87D1171734F0A6C72AF5A82E8F' +
       '9C72DA4FA5BDBBAE8A2A70194F4E2DCFB587EECD6F3F906F5E5C5' +
       'BF7D9F997BBB976B9E79083C53C9D5673F48E201BAF73B035450F' +
       '7EA46C3F1F6786F7ACC259AAA970A1B2BEB5984FCEC7CB29F97A0' +
       'E7013A0B9BBD72E9895B9FF678F70F578255EDFBE9EC39572625D' +
       'E3EF4E6F5CBF5E8B5B4733CE0F0BECF1D4');

ash := BitmapFromString(22, 15, 'z78DA9D955BB2C3200886B7648C46' +
       '78E462F6BFA443C5073BD6D49E32C36468221F3F90E42B698A392' +
       '53AD9AED2097E9D3D3EFD1B5EBF63E5DF9E9A4ED88AAF48DAB567' +
       '018504270B47B34C4CC4814E33C48AFA85C7CF5CF13C930C0C9E5' +
       'D50A2D9C5DA2C990155523E289B31DE787F21D9D664669093AD78' +
       'BDF4D0A087185227B939737EEED4E8BDC65EE98E4A43FCF9E433C' +
       '4E0B78403190F0C9410F1A551A488170870E172967ECEAAE3FFF3' +
       '9E7D6470C5A49842B7444606EF97F38C4F8DD5214005757EEB684' +
       '203C382852E24249FBA5E51BB074AA9454BB8E082B9FBBF32F7F3' +
       '8502059F738E54C864B31877EF53970C07FA2EB4D973428C60BF7' +
       '92FC65CB37F9B763F9FF9306BD3E55E822958BA921EF77B886EAA' +
       '7D377D171A3F151464576FEB8D314EBB770D2498F9DEB12439452' +
       '49B793CDB12F0071E57A9E9B6527BE72DE14F69B49CA249AA54CD' +
       '72CBDDB7EF45573A95D3B67DEC544DAB39EFA8F607BFD067AC426' +
       'FA566D96C7C1B54A3B9BA3E8DEA87AA570C53649CD5CE230ACDA2' +
       '99ABD414FB907D957123EFCACF3CFB1D5F7D77E6AFC056A75AFC7' +
       '9BFBEE8FF38937F07DCAB7F');

cowhide := BitmapFromString(28, 14, 'z78DAA5D45BB2C3200806E02D2546' +
       '7379046CF6BFA432E2C39F2178EC9C32659A4BDB2F882C8BBED69' +
       'A445F751516AE8B5C1AB79C72C847DFBB9ECDB2E9B9A471CAA2B1' +
       '73E52A456FE79E135FACD7F8E443AF650DE65583E8A64F984FFA5' +
       '0E5427AC8992E3A39D14107AF54A82CCDB62D49C33ECBC67AEBCF' +
       'DA836FBE7B06B91E170DD30A278DB1D9B40709319ABDD37EF90FA' +
       '748D1B08C66945B6DADAAA84595997D062D0A7FA8A7AFAACFE6C7' +
       'AEC04EB0AA4E6BD159F65C73B2DCB5ED5FA6563F72DA67D3B667B' +
       '7DC6B6B5AABDBD01C39511B3A51E285BE87B16F5B6DBB165739D0' +
       '8E9D2FDAFF3B611A3CE680399DD67766C999367ED1B6F35D6B4ED' +
       'C4763273E9169AD9ED6037E6AD91E07F3A392261C3A1F7D1B3951' +
       '884EACAD55D54F57DC59C11E7F78C666D076F3B0928FFA47AB8F7' +
       'B2ADAE3DE36E1B48C73EC21F74EAB2AD6D3CF5570863D39A10A73' +
       'FBAE9FC0986D56BC541567545BFD70AD833E7CE984E8FEE0EA581' +
       'EE5705FC37FE971DECE29FFCC55F7146818E799FA7C01FB0319A3' +
       '');
       
chicken := BitmapFromString(12, 25, 'z78DA8D956B8EE4200C84AF4408F8' +
       'F1D326C9FD8FB41ECAAB75D4EAD1CE48A52898CFE582EE9E63D8E' +
       '993C6353AB4FDFC1DD089D52F8A9AD8334EF924F0A4872E7E5899' +
       '92869AD2312B9D27F7574D5DBD987988C8CFD366566F59A37C724' +
       '34DE5E09916110DA1F0B2A0787FB61EFFD0E4301F74CB252C67CD' +
       '412818AE8F347E9C7468D7159CAB726A3D7C6A1717C11BEB32A4F' +
       'B8C9DCD4F6DF27C23A8C79C2E8B0F6EDCE922C7747C510C05823D' +
       '72CBFA4A6036166BD2A599898AF8111D6F5BE147D3CF7EFE24BC3' +
       '89385C922566174C4EC2FCE5EADB357D516277BA613104C592712' +
       'A81C4C2742375D32281AF113A73633FF2712E83665CA090F7EEB5' +
       '2431AD53F2AC151899B6548520E52623C1BC5F94EBFD45456B7C3' +
       '5AD898FA3A719C57EAEEAB9D896792711376AA6BD8B451FDB0D03' +
       '11F545ACC2C8ED95337ED75A3F6AE2516E1F8A341AA3923BDCCAD' +
       'EAEE8EAC6ACD728FAC57B3A63772CED3DFDDF11E53AFD38675E48' +
       '0E9B2864C23367030DD8A0ACEBEDBDB9AC646584DDD643801396B' +
       'C496ADB5BCFB916963C69D58F6AA0A575885CF4FCECE2ADFA3175' +
       '6FFEABFD5DA714F5AA7C87BB84F04E79E5343CD1EBB52E10D93FE' +
       'CA4C0E7C565AF5065AF58FF3DA53D7FBBC2E1FDE9306859F4F1AB' +
       'C81B61DBE38B74F9F4983D61941DB9CCF4F71FD66588F8B53D2A0' +
       'DBD5EFBBAAD6EFEDFFDFF5F92B03CEB7FAEC557F71AA56CED63F6' +
       '1978B71');


if FindBitmapToleranceIn(cowhide, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(ash, x1,y1, 561, 214, 730, 460, 150)=true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;


if FindBitmapToleranceIn(bearmeat, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(chicken, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;

if FindBitmapToleranceIn(egg, x1,y1, 561, 214, 730, 460, 150) =true then
begin
ranclickx := x1 + random(5) - random(2)
ranclicky := y1 + random(3) - random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,false)
wait(300+random(300))
ranclickx := x1 + random(5) - random(5)
ranclicky := y1 +37 + random(6)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(300+random(300))
ClickMouse(ranclickx,ranclicky,true)
end;
end;

Thanks!

WhiteShadow

2006-06-28 16:22:29

I see you made some of your own procedures, and not SRL ones. Overall looks ok, just make smaller bitmaps.

armanie14

2006-06-28 16:27:01

Wish i could have acheived that with my first script.. :(. ill try it out and edit back here when im done.

m0u53m4t

2006-06-29 10:46:55

From: WhiteShadow
I see you made some of your own procedures, and not SRL ones. Overall looks ok, just make smaller bitmaps.

I did use lots of SRL commands as well. How can I make the bitmaps smaller?

The Prince of Randomness?

2006-06-29 16:05:05

crop them down, and zoom in heaps.

m0u53m4t

2006-06-30 07:19:28

Should i just make them about 8 by 8 pixels instead?

hxax

2006-08-26 20:07:55

I got this error.

 
Failed when compiling
Line 440: [Error] (11527:1): Unknown identifier 'ProcessPicture' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms.scar

Covert

2006-09-25 17:54:36

From: hxax
I got this error.

 
Failed when compiling
Line 440: [Error] (11527:1): Unknown identifier 'ProcessPicture' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms.scar

Get the new SRL 3.3

Herpes46

2006-10-07 16:53:41

dropunwanted.txt does not exist.Failed when compiling
what can i do :confused:

legendaryhero90

2006-10-16 21:22:35

just wandering what this means?

warning: calculations always evalutes to TRUE in script?

what does it mean?:confused:

Asakura234

2006-11-06 21:24:26

Hey I got this error:
Failed when compiling
Line 175: [Error] (177:5): 'BEGIN' expected in script

My Line 175: 'CD4D3A892C5FB0F44A0DE864DE64C6C47693D987E64067996B6B4' +

ya I know it's weird need help.

Akriam

2006-11-06 22:38:01

add a "begin" before that line or wherever it is needed ;)

bushwacked

2006-11-13 14:24:14

nice work

amned92

2006-11-13 18:08:47

Nice work I wish I could make a script like this ( I plan on trying to learn over christmas), but anyways I was impressed and also did you make that procedure SetTransparentColor command a lot.

Babababa

2006-11-17 15:05:29

Awesome! I can't wait to try it

hd1234

2006-11-27 11:17:04

i cant find dropunwanted.txt plz help me

anandacote

2006-11-27 22:26:41

when i compile it it says begin expected in script….line 2.

i need help with that.

Ainokea

2006-11-27 23:53:27

thanks.. i'm gona try it out hope i dont get an error

big_kev10

2007-01-10 08:41:36

when i run the script it says cancelled on request:S what does this mean? all i am doing is pushing play and thats the outcome

sum1uallno

2007-07-13 21:41:28

Awsome! I can always download autoscript detect and load rs client into it. It will automatically create perfect script for you to use. The only thing is you have to be on for a while to collect all the randoms data. There is also options to convert the script data to many different readers. Well nice work i couldnt have done it freestyle like you. Im going to try it out now and add a few things if you dont mind.