SRL Archive - RS Scripts

[RS2] Completed bone picker and burier

m0u53m4t

2006-06-24 18:21:12

This version has no anti-random, but does have some anti ban. This is my first ever script, so any advice would be great.

program Juniorsboneman;
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////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. Set the number of bones you want it to do\\\\\\\\\\\\\\
//////////////////////////////7. Enjoy!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


Var
x,y,x1,y1,bones,dropped,picked,logout,Numberofbones: Integer;

procedure Numberoftrips;
begin

////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
Numberofbones := 100
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////

end;

procedure settorun;
begin
wait(random(5000))
MoveMouseSmoothEx(711,480,1,6,15,20,10);
wait(random(50))
clickmouse(711,480,true)
wait(random(1000))
MoveMouseSmoothEx(624,267,1,6,15,20,10);
wait(random(50))
clickmouse(624,267,true)
end;

procedure openbag;
begin
wait(random(400))
MoveMouseSmoothEx(632,174,1,6,15,20,10);
wait(random(50))
clickmouse(632,174,true)
end;

procedure findbones;
begin

 bones := BitmapFromString(40, 11, 'z78DACD954D12C2300885AF5' +
       '4DA1A92657EF4FE47325362870C211353C7A98BB7A054F9E08129' +
       '5ADC4CAAD57ED438F3025734E10A911401CD4D7447FF8D1263F4B' +
       '86F2B38F08B21CD91C7B6926AD452EF4F9D8235356FFE7870671F' +
       '322F78088B19A1BEFFACABF9322EF273E10D1017EC4FF6763E57B' +
       'AC17949F9FE52074A1F045D4A3907A536329FD6E5A78A6A15FE2A' +
       '9FBF35B7BF9C8EA64F1AC3F1D6A192973F8508A9CED72AA7CCB97' +
       'CA992F7DC5FDBDC5FC65B2A676E1F8F975F677DA008AF7F3C4ECA' +
       'BBA1F9E1BC578FE6FE86F6FE5EE71DE792F5F3794957F7FD3077A' +
       'FFEC9AB3973E446C9EFB972AFAAFE2B1B3DD787BE3F1B2EED5E2A' +
       'DE25DA567EA98A72D2EE3F2FA793A45AA616EFFBB33FE591CC37B' +
       '71D463C');


repeat
begin

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

MoveMouseSmoothEx(x,y,1,6,15,20,10);
wait(random(50+random(50)))
if(FindBitmapToleranceIn(bones, x1,y1, 43, 9, 86, 20, 240))=true then
begin
clickmouse(x,y,true)
wait(20+random(10))
clickmouse(x,y,true)
bones := bones + 1
picked := 1
wait(3000 + random(500))
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(not(random(5) = 1)) then
begin
if FindColorSpiralTolerance(x, y, 15000808, 561, 214, 730, 460, 3)=true then
begin
MoveMouseSmoothEx(x,y,1,6,15,20,10);
wait(100+random(300))
clickmouse(x,y,true)
dropped := dropped + 1
wait(500+random(1000))
end;
end;
end;



begin
ActivateClient
numberoftrips
SendArrowSilentWait(0, 200 + random(300));
settorun
openbag
repeat
findbones
dropbones
logout := logout + 1
if random(5) = 1 then
begin
settorun
openbag
end;

if logout = 25 then
writeln('Done 25')
if logout = 50 then
writeln('Done 50')
if logout = 75 then
writeln('Done 75')
if logout = 100 then
writeln('Done 100')
until(logout > Numberofbones)



MoveMouseSmoothEx(650,483,1,6,15,20,10);
wait(random(50))
clickmouse(650,483,true)
wait(random(50))
MoveMouseSmoothEx(649,375,1,6,15,20,10);
clickmouse(649,375,true)
wait(random(10))
clickmouse(649,375,true)
writeln('Logged out')
end.

korrupt

2006-06-26 05:03:54

Hey, would this work if i had an autofighter at the chickens?

Nazgand

2006-06-26 05:45:02

i would suggest more randomness

in my includes MouseCR is good for randomness(and you choose how random)

pretty good for first script

mine was a stupid clay softener
BTW i need to complain that on the dump someone spelled my name wrong (as NazGand)

Nazgand

2006-06-26 05:47:05

i also suggest that you doublecheck for false results like before you pick it up make sure istextup take bones

m0u53m4t

2006-06-26 12:54:50

Can you explain exactly how? Im not sure. Here's version 2:

program Juniorsboneman;
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////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 25-26\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////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,ranclickx,ranclicky,chicken,bonesimg,dropped,bearmeat,picked,logoutwhen,Numberofbones,cowhide,ash: Integer;
Drop_Unwanted_Items: boolean;

{.Include dropunwanted.txt}

procedure Numberoftrips;
begin

////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
Numberofbones := 100
Drop_Unwanted_Items := true
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////

end;

procedure settorun;
begin
wait(random(5000))
ranclickx := 711 + random(3)
ranclicky := 480 + random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(random(50))
clickmouse(ranclickx,ranclicky,true)
wait(random(1000))
ranclickx := 624 + random(3)
ranclicky := 267 + random(3)
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(random(50))
clickmouse(ranclickx,ranclicky,true)
end;

procedure openbag;
begin
ranclickx := 632 + random(10)
ranclicky := 174 + random(10)
wait(random(400))
MoveMouseSmoothEx(ranclickx,ranclicky,1,6,15,20,10);
wait(random(50))
clickmouse(ranclickx,ranclicky,true)
end;

procedure findbones;
begin

 bonesimg := BitmapFromString(40, 11, 'z78DACD954D12C2300885AF5' +
       '4DA1A92657EF4FE47325362870C211353C7A98BB7A054F9E08129' +
       '5ADC4CAAD57ED438F3025734E10A911401CD4D7447FF8D1263F4B' +
       '86F2B38F08B21CD91C7B6926AD452EF4F9D8235356FFE7870671F' +
       '322F78088B19A1BEFFACABF9322EF273E10D1017EC4FF6763E57B' +
       'AC17949F9FE52074A1F045D4A3907A536329FD6E5A78A6A15FE2A' +
       '9FBF35B7BF9C8EA64F1AC3F1D6A192973F8508A9CED72AA7CCB97' +
       'CA992F7DC5FDBDC5FC65B2A676E1F8F975F677DA008AF7F3C4ECA' +
       'BBA1F9E1BC578FE6FE86F6FE5EE71DE792F5F3794957F7FD3077A' +
       'FFEC9AB3973E446C9EFB972AFAAFE2B1B3DD787BE3F1B2EED5E2A' +
       'DE25DA567EA98A72D2EE3F2FA793A45AA616EFFBB33FE591CC37B' +
       '71D463C');


repeat
begin

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

MoveMouseSmoothEx(x5,y5,1,6,15,20,10);
wait(random(50+random(50)))
if(FindBitmapToleranceIn(bonesimg, x1,y1, 43, 9, 86, 20, 240))=true then
begin
clickmouse(x5,y5,true)
wait(20+random(10))
clickmouse(x5,y5,true)
picked := 1
wait(3000 + random(500))
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
MoveMouseSmoothEx(x5,y5,1,6,15,20,10);
wait(100+random(300))
clickmouse(x5,y5,true)
dropped := dropped + 1
wait(500+random(1000))
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;

procedure logoutaccount;
begin
MoveMouseSmoothEx(650,483,1,6,15,20,10);
wait(random(50))
clickmouse(650,483,true)
wait(random(50))
MoveMouseSmoothEx(649,375,1,6,15,20,10);
clickmouse(649,375,true)
wait(random(10))
clickmouse(649,375,true)
writeln('Logged out')
end;

begin
ActivateClient
numberoftrips
SendArrowSilentWait(0, 500 + random(300));
settorun
openbag
repeat
dropunwanted
findbones
dropbones
dropunwanted
logoutwhen := logoutwhen + 1
if random(10) = 1 then
begin
settorun
openbag
end;
update
until(logoutwhen > Numberofbones)
logoutaccount
end.

and you need this in your includes named dropunwanted.txt :

procedure dropunwanted;
begin
if Drop_Unwanted_Items = true then
begin
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;

end;
end;