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!
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!