SRL Archive - OSR Help

bot picks up dropped ore


larsi37

2013-03-27 11:48:52

hello, so i started making my own script and i got it all working and stuff (it mines iron ore and drops them) but when i has dropped them and begins the findobjcustom again to start mining, it picks up all my dropped or. i have found a thread with YoHoJo gave an explanation but i really didn't understand it. does anyone have an (not to difficult:P) idea on how to fix this?

this is what it does:
[ATTACH=CONFIG]20261[/ATTACH]

thanks in advance and sorry for asking so much, i'm just new..

larsi37

2013-03-27 16:40:41

bump

rj

2013-03-27 16:46:20

yor uptext for mining ccant be the same as the uptext to pick them up

larsi37

2013-03-27 16:47:54

From: RJJ95
yor uptext for mining ccant be the same as the uptext to pick them up

i use findobjcustom with collor recognastion, and the color of the iron ore has the same color as the rocks, but i cant find any color that is different from the normal ore, so it always picks it up.

The Mayor

2013-03-27 16:48:45

From: RJJ95
yor uptext for mining ccant be the same as the uptext to pick them up


This. Make sure you have 'ine' in the UpText.

rj

2013-03-27 16:49:23

From: larsi37
i use findobjcustom with collor recognastion, and the color of the iron ore has the same color as the rocks, but i cant find any color that is different from the normal ore, so it always picks it up.


make it so that is has to have "ine" in order for it to click.

post your code

larsi37

2013-03-27 17:49:24

From: RJJ95
make it so that is has to have "ine" in order for it to click.

post your code


this is my whole mining procedure:
procedure MineDown;
var
x , y, PlusOne, Rockcounter: Integer;

begin
PlusOne:= P07_InvCount + 1;
if P07_FindObjCustom (x, y, ['mi', 'ne', 'ro'], [1054247, 791328, 527385], 10) Then
begin
Writeln('Found some Tin');
P07_MouseBox(X+5, Y+5, X+5, Y+5, mouse_left);
MarkTime(RockCounter);
repeat
Antiban;
wait(100);
FindNormalRandoms;
until (P07_InvCount=PlusOne) Or (TimeFromMark(RockCounter) > 7000 +random(1000))
WriteLN('Mined Something or TimePassed');
end;
end;

i dont know how i can put it as a scar code, so i just copy pasted it, sorry

rj

2013-03-27 17:55:26

From: larsi37
this is my whole mining procedure:
procedure MineDown;
var
x , y, PlusOne, Rockcounter: Integer;

begin
PlusOne:= P07_InvCount + 1;
if P07_FindObjCustom (x, y, ['mi', 'ne', 'ro'], [1054247, 791328, 527385], 10) Then
begin
Writeln('Found some Tin');
P07_MouseBox(X+5, Y+5, X+5, Y+5, mouse_left);
MarkTime(RockCounter);
repeat
Antiban;
wait(100);
FindNormalRandoms;
until (P07_InvCount=PlusOne) Or (TimeFromMark(RockCounter) > 7000 +random(1000))
WriteLN('Mined Something or TimePassed');
end;
end;

i dont know how i can put it as a scar code, so i just copy pasted it, sorry


Make

if P07_FindObjCustom (x, y, ['mi', 'ne', 'ro'], [1054247, 791328, 527385], 10) Then

if P07_FindObjCustom (x, y, ['Min', 'ine'], [1054247, 791328, 527385], 10) Then

2 letters is to broad, it might get it confused with "Take copper ore"

larsi37

2013-03-28 01:57:56

From: RJJ95
Make

if P07_FindObjCustom (x, y, ['mi', 'ne', 'ro'], [1054247, 791328, 527385], 10) Then

if P07_FindObjCustom (x, y, ['Min', 'ine'], [1054247, 791328, 527385], 10) Then

2 letters is to broad, it might get it confused with "Take copper ore"


wow thanks it worked!