SRL Archive - OSR Help

:sasmokin: I use this script,it's very nice but it doesen't drop the ore *copper* .Any ideas what i should change? It's not mine script!!!It's Hexlesss script! Thanks a lot! // *************************************************************************
// * Author: Hexless *
// * Date: 23/03/2013 [D/M/Y] *
// * Versoin: 1.6 *
// * Please Report All Bugs On The Offical Thread! *
// * YOU MAY NEED TO RUN SIMBA AS ADMIN! *
// * Supports: *
// * Easy Dropping *
// * Supports these ores *
// * Copper,Tin,Iron,Gold,Silver,Coal,Mithril,Adamant *
// * ^^^^^^^^^^^^^^^^^^^^^More To Come^^^^^^^^^^^^^^^^^^^^^ *
// *************************************************************************
program JMines;
//{$DEFINE SMART8}
{$i srl/srl.simba}
{$i P07Include.simba}
Const
//Player Details
Username ='d';
Password ='d';
CanYouHoldYourPickAxe = 'yes'; //First Letter Capital Please
DropGems = 'Yes';
//Select Ore
Ore = 'Copper';
//Ore Colours
Copper = 5077417;
Tin = 5592411;
Iron = 1844541;
Gold = 4699594;
Silver = 11316663;
Coal = 2570810;
Mithril = 7950929;
Adamant = 4215360;
Var
OreDTM,GemDTM,X,Y,Boolean:integer;
procedure AutoLogin; //Do NOT Fill This In Use The One In Const Please! :)
begin
P07_PlayerName := Username; //Username For Runescape
P07_PlayerPass := Password; //Password For Runescape
end;
Procedure LoadDTM;
begin
OreDTM := DTMFromString('mrAAAAHic42BgYHBhYmAwBmIHIA4EYi8g9gZieyC2AOInQDUvgfg6EN8H4ttA/AaIPwHxPSDurK8Dkow48S8G/AC3TgiGAQCYQgvW');
GemDTM := DTMFromString('mlwAAAHicY2dgYJjJxMAwGYh7gHgCEM8D4gVAPBeInwHlPwDxcyC+A8T3gfgVVIxLIBlIMmLFvxhwA+w6IBgKAEmMDA8=');
end;
Procedure MineRock;
Begin
If Ore = 'Copper' Then
If FindColorSpiralTolerance(X,Y,Copper,MSX1,MSY1,MSX2,MSY2,15) Then
begin
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Tin' Then
If FindColorSpiralTolerance(X,Y,Tin,MSX1,MSY1,MSX2,MSY2,15) Then
begin
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Iron' Then
begin
If FindColorSpiralTolerance(X,Y,Iron,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Gold' Then
begin
If FindColorSpiralTolerance(X,Y,Gold,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Silver' Then
begin
If FindColorSpiralTolerance(X,Y,Silver,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Coal' Then
begin
If FindColorSpiralTolerance(X,Y,Coal,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Mithril' Then
begin
If FindColorSpiralTolerance(X,Y,Mithril,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
Begin
If Ore = 'Adamant' Then
begin
If FindColorSpiralTolerance(X,Y,Adamant,MSX1,MSY1,MSX2,MSY2,15) Then
Mouse(X,Y,5,5,false);
P07_ChooseOptionMulti(['ine']);
End;
End;
End;
End;
End;
End;
End;
End;
End;
Procedure Antiban;
begin
Case Random(25) Of
1:P07_MakeCameraAngleLow;
2:BoredHuman;
3:P07_MakeCompassSouth;
4:RandomMovement;
5:RandomRClick;
end;
end;
Procedure Drop;

Begin
If CanYouHoldYourPickAxe = 'Yes' Then
If DropGems = 'Yes' Then
If P07_InvFull Then
begin
repeat
If FindDTM(OreDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
If FindDTM(GemDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
Mouse(X,Y,10,10,false);
P07_ChooseOptionMulti(['Drop']);
until(P07_InvEmpty);
End;

Begin
If CanYouHoldYourPickAxe = 'Yes' Then
If DropGems = 'No' Then
If P07_InvFull Then
begin
repeat
If FindDTM(OreDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
Mouse(X,Y,10,10,false);
P07_ChooseOptionMulti(['Drop']);
until(P07_InvEmpty);
End;

Begin
If CanYouHoldYourPickAxe = 'No' Then
If DropGems = 'No' Then
If P07_InvFull Then
begin
repeat
If FindDTM(OreDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
Mouse(X,Y,10,10,false);
P07_ChooseOptionMulti(['Drop']);
until(P07_InvEmpty);
End;

Begin
If CanYouHoldYourPickAxe = 'No' Then
If DropGems = 'Yes' Then
If P07_InvFull Then
begin
repeat
If FindDTM(OreDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
If FindDTM(GemDTM,X,Y,MIX1,MIY1,MIX2,MIY2) Then
Mouse(X,Y,10,10,falsE);
P07_ChooseOptionMulti(['Drop']);
until(P07_InvEmpty);
End;
End;
End;
End;
End;
Procedure WelcomeMessage;
Begin

Writeln('*************************************************************************');
Writeln('* *');
Writeln('* Author: Hexless *');
Writeln('* Date: 23/03/2013 [D/M/Y] *');
Writeln('* Versoin: 1.6 *');
Writeln('* Thanks For Using My PowerMinerScript! *');
Writeln('* Please Report All Bugs On The Offical Thread! *');
Writeln('* *');
Writeln('*************************************************************************');
End;
begin
AutoLogin;
SetupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
WelcomeMessage;
repeat
LoadDTM
antiban;
MineRock;
wait(1000+random(750));
If P07_InvFull Then
Drop;
until(false);
FreeDTMS(['OreDTM','GemDTM']);
end.

Remove your username from the script!

E: Might want to check if your brightness is set to max. :)

From: Im New Sry
Remove your username from the script!

E: Might want to check if your brightness is set to max. :)

It's fake. It's max brightness

From: jorjjorj1234
It's fake. It's max brightness

Then I guess OreDTM needs to be updated, I think it uses the same one or two pieces of the ore (light brown ones) to find the ore and drop it. I would help you but I am unable to run ODTM tool :/.

Try changing the ore DTM I guess to a higher tolerance

From: RJJ95
Try changing the ore DTM I guess to a higher tolerance

Worked! Thanks a lot Rjj95! Have a nice day!