I apologise for my bad command of the english language. Do not really know how to express myself at times.
First time creating a script so this is what I use for mining.
Simba Code:
Function MineTin:Boolean;
Var
X, Y, PlusOne, MinusOne, MineOreCounter, DropOreCounter, Timer, TinOre: Integer;
begin
TinOre := DTMFromString('mrAAAAHic42BgYOAGYiYGCOACYhEgFgdiASDmBGIeIOaA8oWBmB+I2YCYBaqnICODIdrTmKEk1omhLMGZIT0hgaE914ehsaICLM4KVIMPMxLAMAAAiLcJ1g==');
repeat
MinusOne:= InvCount - 1;
MarkTime(Timer);
If FindDTM(TinOre, X, Y, MIX1, MIY1, MIX2, MIY2) Then
WriteLn('Found Tin Ore In Inventory');
begin
MMouse(X, Y, 10, 10);
Wait(randomRange(50 + random(100), 200 + random(100)));
If IsUpText('Tin ore') Then
Mouse(X, Y, 0, 0, False);
ChooseOption('Drop');
end;
MarkTime(DropOreCounter);
repeat
Wait(100);
until (InvCount=MinusOne) Or (TimeFromMark(DropOreCounter) >1000)
if InvCount=Minusone Then
WriteLn('Dropped Tin Ore');
WriteLn(TimeFromMark(Timer));
until(not(FindDTM(TinOre, X, Y, MIX1, MIY1, MIX2, MIY2)));
begin
FreeDTM(TinOre);
end;
begin
PlusOne:= InvCount + 1;
MarkTime(Timer);
If FindObjCustom(X, Y, ['Rocks'], [6776686, 5921377, 8947859, 8092806], 30) Then
WriteLn('Found Tin Rock');
begin
GetMousePos(X, Y);
Wait(randomRange(50, 100));
If IsUpText('Rocks') Then
begin
Mouse(X, Y, 0, 0, True);
WriteLn('Mining Tin Rock');
WriteLn(TimeFromMark(Timer));
Wait(randomRange(50, 100));
MMouse(0, 0, 0, 500);
end;
end;
MarkTime(MineOreCounter);
repeat
Wait(100);
until (InvCount=PlusOne) Or (TimeFromMark(MineOreCounter) > 15000)
if InvCount=Plusone Then
WriteLn('Got 1 Tin Ore');
end;
end;
Simba Code:
Found Tin Ore In Inventory
Dropped Tin Ore
1528 //I presume this is in ms
Found Tin Rock
Mining Tin Rock
764
So what I'm trying to achieve is this
Dropped Tin Ore: 1528ms
Mining Tin Rock: 764ms
I've tried reading and understand the link you have posted but I'm afraid it's too advanced for me.
I will give it a try never the less.