Log in

View Full Version : Quick Procedure



properhacker
09-21-2006, 08:06 PM
FindTextSpiral('Climb',180,180,125,50,150);
Writeln('up the ladder we go');
GetMousePos(x,y);
clickmouse(x,y,true);
wait(9000);

This is what i made it doesnt work

can someone please help and make a procecure that finds "Climb" and click on it

Thanks

I will mention in my script

Infantry001
09-21-2006, 09:13 PM
if(FindObj(x,y,'limb',color,tolerance)then
begin
Writeln('Up the ladder we go!');
Mouse(x,y,3,3,true);
end;

Should work...

properhacker
09-22-2006, 09:30 AM
[Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 173 in script D:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar
It still doesnt work, i get that error message

program New;
{.include SRL/SRL.scar}
begin
if(FindObj(x,y,'limb',3820367,5))then
begin
Writeln('Up the ladder we go!');
Mouse(x,y,3,3,true);
end;
end.

Wizzup?
09-22-2006, 09:39 AM
if(FindObj(x,y,'limb',color,tolerance)then
begin
Writeln('Up the ladder we go!');
Mouse(x,y,3,3,true);
end;

Should work...

Take out the random mouse click, a FindObj already moves to an object!

And for the error : Call SetupSRl; Once when you start your script.

properhacker
09-22-2006, 09:48 AM
Take out the random mouse click, a FindObj already moves to an object!

And for the error : Call SetupSRl; Once when you start your script.
program New;
{.include SRL/SRL.scar}
begin
if(FindObj(x,y,'limb',3820367,5))then
Writeln('Up the ladder we go!');
end.


Still doesnt work

Wizzup?
09-22-2006, 10:19 AM
program New;
{.include SRL/SRL.scar}
begin
SetUpSRL;
if(FindObj(x,y,'limb',3820367,5))then
Begin
Mouse(x,y,0,0,True)
Writeln('Up the ladder we go!');
End;
end.


There.

properhacker
09-22-2006, 10:33 AM
Thanks so much, i see what i was going wrong now

Thanks!