SRL Archive - Help and Support

Mine String Click help


Ejjman

2006-04-26 20:25:34

//Walk here by Ejjman1
//Runs over and clicks on a copper rock to mine.
{Version 1-Put character next to rock LOL.
Version 2-Moved mouse to rock.
Version 3-Added SRL
Version 4-Started using FindColorSpirals
Version 5-Successfully got 1 Copper Ore
Version 6-Successful to get a full load

program New;
{.include SRL\SRL.scar}

const
color1='608363';
color2='607846';

begin
SetUpSRL;
If(FindColorSpiral(x,y,608363,255,222,273,238))or
(FindColorSpiral(x,y,607846,255,222,273,238))then
MMouse(x,y,2,2)
wait(1000);
ClickMouse(x,y,True)
wait(4000+random(6000));
repeat
until(false)
end.



Er…the repeat thing don't work…whats wrong with that?

driger1592

2006-04-26 20:42:07

Something like:
begin
If(FindColorSpiral(x,y,607076,242,212,260,233))then
MMouse(x,y,1,1);
Wait(100);
If(IsUpText('Mine'))Then
ClickMouse(x,y,true);
end.
Of course, there's probably an easier way, but I haven't even looked at the SRL include at all lately (due to me being swamped with homework), and I have no idea of any of the procedures or functions, or what they do exactly. However, that should do what you're looking for, for now.

phantombmx

2006-04-26 20:48:39

what driger said basically.. but i think there have been probs with isuptext so use this for a failsafe..

begin
if(FindColorSpiral(x,y,607076,242,212,260,233))then
if(IsUpText('Mine'))or
(Option2('Mine'))then
begin
MMouse(x,y,1,1);
ClickMouse(x,y,true);
end;
end.

this will make it check to make sure at least one of them says Mine before it will do the stuff..

Ejjman

2006-04-26 21:02:17

[Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 138 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar

Whuh……

driger1592

2006-04-26 21:09:44

ejjman, whose were using?

Ejjman

2006-04-26 21:16:36

What is that suppose to mean?

timmyboy

2006-04-26 21:26:26

From: ejjman1
What is that suppose to mean?
He was asking if you were using phantoms suggestion or his.

Ejjman

2006-04-26 21:32:22

I'm using his suggestions, but this error still comes up….

WhiteShadow

2006-04-26 21:42:01

From: ejjman1
I'm using his suggestions, but this error still comes up….


Post the whole thing? Compiles when I run it.

Make sure to have:
SetUpSRL;

Otherwise I'm not sure, till you post the fuill thing.

phantombmx

2006-04-26 21:45:53

1. SetupSRL; must be at the beginning of the main loop
2. if that dont work let us know

Ejjman

2006-04-26 22:12:06

I updated it…The repeat part don't work.

driger1592

2006-04-26 22:18:03

I didn't have a repeat part in my script ;) You'll have to show me what you have. I'm terribly sorry for forgetting SetupSRL; >.< I can't believe I'd forget something like that!

Ejjman

2006-04-26 22:34:35

Check out new HELP, progress report help