Simba Code:
Function FindOre:Boolean;
Var
X, Y:Integer;
Begin
SetAngle(False);
If Not Invfull Then Begin
MakeCompass('40');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('80');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('120');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('160');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('200');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('240');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('280');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('320');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
If Not Invfull Then Begin
MakeCompass('360');
If FindObjCustom(X, Y, ['ssen'], [8750732, 11579576, 1243514, 8224130], 2) Then
Begin
writeln('Found ore!')
Result := True;
MMouse(X, Y, 3, 3);
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, False);
Wait(500+randomrange(200,300));
If ChooseOption('Mine Rune Essence') Then
Result := True;
while (Not InvFull)
Do
wait(100+randomrange(50,70));
end;
Wait(500+randomrange(200,500));
end;
end;