PDA

View Full Version : RS2 Bone picker and burier



m0u53m4t
06-28-2006, 08:17 PM
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,logo utwhen,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' +
'FC1268053C0AF4FF5F92E9D24E308432D8E9010F7B888BB29 B4D6' +
'2707635B144F74635DD038DE1B08F75D1BB3E9401A6CAB62E C0A9' +
'F47A674ABD171F925E7D68AFCC84FD25BA90E7ACD7EBA0EC7 C7A8' +
'1747EE180D4DF1813C772AC309F6E4F6F0514EFF6233E3D35 36BF' +
'541DBA0F0CFE75CA5F4FE18FF4AD0E3A7EE303C11CE373E47 A2B7' +
'966FD85D27C7392F6FE7AFE3BF10115EE4F4F1D0F7543CAC3 675F' +
'6DD5F9F5F5F9BDAFB75F17BF3FED17CF5E3B0F63FBEA9F7AA 5647' +
'66D27F69D3BFBAAF05F98E8311FDAF9ACA4B4B9A9B84B7453 656C' +
'2A2DF243D471A512B3A7CEF3D9EE720FF3049CD81E0A');

bonesimg2 := BitmapFromString(38, 10, 'z78DAE555C19683200' +
'CFCA54004E2D122FCFF276D20C1AA48D7BE3D75EB21871042 6686' +
'C1B490435A734818FA08FFE24B8EB061DCE7D71822235DC3F AF94' +
'815633A6351352BD28FC7E8BF00A325602C15A3C4B490DF6E 6F00' +
'77B52B1B8A18EB5ED288649106FD75B58F2FA6324819E8C1A 740C' +
'8ED9461FD4413668D9EDC04872818ABEF8C8504F6E0C74E47 9D39' +
'70B7F9A07BEDD0FB57EAFB55CD74EFC09E37C9186F00ECB07 F516' +
'4617496E767F2997E89D6F077D0F17A2F8D66B8C4622EF39E D928' +
'F978B37EDFFF01D4381F9DABABA668CDF730E1AC6ABAA2E02 F18E' +
'7FA4F19E878515F6FD488E77AFA5DAE4EBAABB254E68199DD 635F' +
'BB4F7414BC8ABACD163BFEF12D1D4718A53EBDDDE78F6F9DE 8A81' +
'8FD9367E95C750F8271EFD093FBE2562F6F42ADEF79562CB7 B91A' +
'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,r anclicky: Integer;

begin

egg := BitmapFromString(15, 12, 'z78DA9592596EC0200C44AF0478C1' +
'FEF402F73F52694825A2B4559B488E2391E7C9784A59571DC 5ACF' +
'B90A8D686877B593D180E765719E020B6CF645A638FAE9586 7721' +
'62E9DC6062823428170D4A5B7739C99BE3110E0F72F32A3DA 7699' +
'7341DDCB368E71A249342B35754F6C55E4FA05637F3265FDF FEA8' +
'B65AF45C6A9147B2066384229700497259EA21785081EF349 3ABE' +
'25F7C48546308D54633AA04990A0F6422C8D6BF216F872DD4 C6DD' +
'EF59A70F698525DB22B5EDF3E73C9C3A3BA0B1A0B5799209D 1C06' +
'FFE3FC91EA224DD49C1DE9A1FE4EDC3B24EDBA85E0417B377 7A6F' +
'CD4D3A892C5FB0F44A0DE864DE64C6C47693D987E64067996 B6B4' +
'36A0EE35E53349963287D6D6DE76D393E51762A1E6A2FE659 1FDB' +
'DC9A4FF2CEC3B5B5F5278A53D63BE44F6AB71B677FA671D74 7D27' +
'61E2EB56F1F1E6A37F9554F0DEF59677DA87DE9FC7DCA7BD6 BBBE' +
'CF7F006D7DEB98');

bearmeat := BitmapFromString(19, 20, 'z78DABD955D8EC3200C84AF44CCFF' +
'2336E6FE47DA29E681284DD56AB79B51509534FE18634C4CA 1078' +
'A2134CF6BBC79E21ED761630FA29048848A3828B1B20A71E5 D21C' +
'F983EEC6157FA76C4F9E503E8CFF9A883BF872A24419D02FE 2DF1' +
'19F50FE28FE755C94D48FEE842588FF06E509B174EA249185 F99D' +
'AF7870846EC6B788AD4764B30909FD1351E0B260F58A94EF1 1EDE' +
'D226AAFD0AC99DF13EFB8DCDA68C388EAE0522CB7DFAB99DD A3FA' +
'3EE093E471CD3DFECE8A7C908DD86010B7ABCB239289571A9 5943' +
'A63AFA4459FB5047EE1FCE91C16EB6811F23543BD52A51351 B469' +
'D5AC0132D7B3A2567F9BBBD53A83CDE12D963407D5AAE0651 426E' +
'FC411060DD2A140819DA1E97A5FE5D591AC877BC6F6DDE7B0 58CC' +
'07944113A6965BAEADBA328AC7CF66DDFBC4CD234234DC702 03F5' +
'AEAEEDAAA7A768C9579952CC9BA87D1171734F0A6C72AF5A8 2E8F' +
'9C72DA4FA5BDBBAE8A2A70194F4E2DCFB587EECD6F3F906F5 E5C5' +
'BF7D9F997BBB976B9E79083C53C9D5673F48E201BAF73B035 450F' +
'7EA46C3F1F6786F7ACC259AAA970A1B2BEB5984FCEC7CB29F 97A0' +
'E7013A0B9BBD72E9895B9FF678F70F578255EDFBE9EC39572 625D' +
'E3EF4E6F5CBF5E8B5B4733CE0F0BECF1D4');

ash := BitmapFromString(22, 15, 'z78DA9D955BB2C3200886B7648C46' +
'78E462F6BFA443C5073BD6D49E32C36468221F3F90E42B698 A392' +
'53AD9AED2097E9D3D3EFD1B5EBF63E5DF9E9A4ED88AAF48DA B567' +
'018504270B47B34C4CC4814E33C48AFA85C7CF5CF13C930C0 C9E5' +
'D50A2D9C5DA2C990155523E289B31DE787F21D9D664669093 AD78' +
'BDF4D0A087185227B939737EEED4E8BDC65EE98E4A43FCF9E 433C' +
'4E0B78403190F0C9410F1A551A488170870E172967ECEAAE3 FFF3' +
'9E7D6470C5A49842B7444606EF97F38C4F8DD5214005757EE B684' +
'203C382852E24249FBA5E51BB074AA9454BB8E082B9FBBF32 F7F3' +
'8502059F738E54C864B31877EF53970C07FA2EB4D973428C6 0BF7' +
'92FC65CB37F9B763F9FF9306BD3E55E822958BA921EF77B88 6EAA' +
'7D377D171A3F151464576FEB8D314EBB770D2498F9DEB1243 9452' +
'49B793CDB12F0071E57A9E9B6527BE72DE14F69B49CA249AA 54CD' +
'72CBDDB7EF45573A95D3B67DEC544DAB39EFA8F607BFD067A C426' +
'FA566D96C7C1B54A3B9BA3E8DEA87AA570C53649CD5CE230A CDA2' +
'99ABD414FB907D957123EFCACF3CFB1D5F7D77E6AFC056A75 AFC7' +
'9BFBEE8FF38937F07DCAB7F');

cowhide := BitmapFromString(28, 14, 'z78DAA5D45BB2C3200806E02D2546' +
'7379046CF6BFA432E2C39F2178EC9C32659A4BDB2F882C8BB ED69' +
'A445F751516AE8B5C1AB79C72C847DFBB9ECDB2E9B9A471CA A2B1' +
'73E52A456FE79E135FACD7F8E443AF650DE65583E8A64F984 FFA5' +
'0E5427AC8992E3A39D14107AF54A82CCDB62D49C33ECBC67A EBCF' +
'DA836FBE7B06B91E170DD30A278DB1D9B40709319ABDD37EF 90FA' +
'748D1B08C66945B6DADAAA84595997D062D0A7FA8A7AFAACF E6C7' +
'AEC04EB0AA4E6BD159F65C73B2DCB5ED5FA6563F72DA67D3B 667B' +
'7DC6B6B5AABDBD01C39511B3A51E285BE87B16F5B6DBB1657 39D0' +
'8E9D2FDAFF3B611A3CE680399DD67766C999367ED1B6F35D6 B4ED' +
'C4763273E9169AD9ED6037E6AD91E07F3A392261C3A1F7D1B 3951' +
'884EACAD55D54F57DC59C11E7F78C666D076F3B0928FFA47A B8F7' +
'B2ADAE3DE36E1B48C73EC21F74EAB2AD6D3CF5570863D39A1 0A73' +
'FBAE9FC0986D56BC541567545BFD70AD833E7CE984E8FEE0E A581' +
'EE5705FC37FE971DECE29FFCC55F7146818E799FA7C01FB03 19A3' +
'');

chicken := BitmapFromString(12, 25, 'z78DA8D956B8EE4200C84AF4408F8' +
'F1D326C9FD8FB41ECAAB75D4EAD1CE48A52898CFE582EE9E6 3D8E' +
'993C6353AB4FDFC1DD089D52F8A9AD8334EF924F0A4872E7E 5899' +
'92869AD2312B9D27F7574D5DBD987988C8CFD366566F59A37 C724' +
'34DE5E09916110DA1F0B2A0787FB61EFFD0E4301F74CB252C 67CD' +
'412818AE8F347E9C7468D7159CAB726A3D7C6A1717C11BEB3 2A4F' +
'B8C9DCD4F6DF27C23A8C79C2E8B0F6EDCE922C7747C510C05 823D' +
'72CBFA4A6036166BD2A599898AF8111D6F5BE147D3CF7EFE2 4BC3' +
'89385C922566174C4EC2FCE5EADB357D516277BA613104C59 2712' +
'A81C4C2742375D32281AF113A73633FF2712E83665CA090F7 EEB5' +
'2431AD53F2AC151899B6548520E52623C1BC5F94EBFD45456 B7C3' +
'5AD898FA3A719C57EAEEAB9D896792711376AA6BD8B451FDB 0D03' +
'11F545ACC2C8ED95337ED75A3F6AE2516E1F8A341AA3923BD CCAD' +
'EAEE8EAC6ACD728FAC57B3A63772CED3DFDDF11E53AFD3867 5E48' +
'0E9B2864C23367030DD8A0ACEBEDBDB9AC646584DDD643801 396B' +
'C496ADB5BCFB916963C69D58F6AA0A575885CF4FCECE2ADFA 3175' +
'6FFEABFD5DA714F5AA7C87BB84F04E79E5343CD1EBB52E10D 93FE' +
'CA4C0E7C565AF5065AF58FF3DA53D7FBBC2E1FDE9306859F4 F1AB' +
'C81B61DBE38B74F9F4983D61941DB9CCF4F71FD66588F8B53 D2A0' +
'DBD5EFBBAAD6EFEDFFDFF5F92B03CEB7FAEC557F71AA56CED 63F6' +
'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
06-28-2006, 08:22 PM
I see you made some of your own procedures, and not SRL ones. Overall looks ok, just make smaller bitmaps.

armanie14
06-28-2006, 08:27 PM
Wish i could have acheived that with my first script.. :(. ill try it out and edit back here when im done.

m0u53m4t
06-29-2006, 02:46 PM
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?
06-29-2006, 08:05 PM
crop them down, and zoom in heaps.

m0u53m4t
06-30-2006, 11:19 AM
Should i just make them about 8 by 8 pixels instead?

hxax
08-27-2006, 12:07 AM
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
09-25-2006, 09:54 PM
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
10-07-2006, 08:53 PM
dropunwanted.txt does not exist.Failed when compiling
what can i do :confused:

legendaryhero90
10-17-2006, 01:22 AM
just wandering what this means?

warning: calculations always evalutes to TRUE in script?

what does it mean?:confused:

Asakura234
11-07-2006, 02:24 AM
Hey I got this error:
Failed when compiling
Line 175: [Error] (177:5): 'BEGIN' expected in script

My Line 175: 'CD4D3A892C5FB0F44A0DE864DE64C6C47693D987E64067996 B6B4' +

ya I know it's weird need help.

Akriam
11-07-2006, 03:38 AM
add a "begin" before that line or wherever it is needed ;)

bushwacked
11-13-2006, 07:24 PM
nice work

amned92
11-13-2006, 11:08 PM
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
11-17-2006, 08:05 PM
Awesome! I can't wait to try it

hd1234
11-27-2006, 04:17 PM
i cant find dropunwanted.txt plz help me

anandacote
11-28-2006, 03:26 AM
when i compile it it says begin expected in script....line 2.

i need help with that.

Ainokea
11-28-2006, 04:53 AM
thanks.. i'm gona try it out hope i dont get an error

big_kev10
01-10-2007, 01:41 PM
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
07-14-2007, 01:41 AM
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.