SRL Archive - Help and Support

When i run ANY dam script it seems to go to the object but not click on it?? how come? I know the basics of scripting could MMouse (x, y, 2, 2,) be the problem….I am using Jagex_Fagex's Power Cutter by the way…Help??

MMouse stands for MoveMouse
Mouse will move and click.

[PHP]MMouse(x,y,2,2)[/PHP]

Dreadsthegreat, that only moves the mouse to the specified or the current x,y coords but adds a random two to the x,y.

[PHP]Mouse(x,y,2,2,true);[/PHP]

That moves the mouse the same as mmouse but click true (left click), btw, false is right click.

That's the same problem as mine. You have to change the x and y to something else.

Nope something is wrong….I tried changeing x y
this is the script **(NOT MINE)**


{————————————————————————–]
{.Script Info:
# ScriptName = Jagex_Fagex's Power Cutter
# Author = Jagex_Fagex
# Description = PowerCuts any type of tree, anywhere
# Version = Beta 4.0
# Date = April 22nd 2006
# Comments = Just Fill in Setup - Lines 29-36, Select Client
= Axe Un - Equipt and away you go.
/Script Info}
{————————————————————————–]
Credits:
JDumber2k - original script
Fawki and All the devs - For creating SRL
The whole community for help and praise
YoHoJo8 - The Tree Finding Procedure

Comments and Script History:
Beta 1.0 - Many bugs, Sometimes drops axe, and does not always cut the
Right tree. I tested on Regular tree's and it was ctting
down an oak tree. Cut in fields where there is 1 type of tree

Beta 2.0 - Fixed Some Major bugs, Sometimes doesn't drop all logs,
and does not always cut the Right tree when all the trees of
type you selected are gone.

Beta 3.0 - Fixed the dropping procedure, now works 100%. Got the
cutting procedure a bit better to.

Beta 4.0 - Fixed the Cutting Procedure - now works 99.9%, Thanks to YohoJo.
{————————————————————————–}
program Cutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
var xp, LogsCut, LoadsCut, Reportt :integer;
name:String;


const
{ <===SETUP===<< }
Color =1385775; //Tree Color
Color1 =2440785; //Another Tree Color
MinWait =3000; //Min Wait before trying to cut again
MaxWait =5000; //Max ^^^^ ^^^^^^ ^^^^^^ ^^ ^^^ ^^^^^
TreeType= 1; // 1=normal, 2=oak, 3= willow, 4=maple, 5=yew, 6 magic
{ <===END SETUP===<< }


procedure Getxp;
begin
case TreeType of
1 : xp:= 25;// <— Xp Per Normal Log !
2 : xp:= 37;// <— Xp Per Oak Log !
3 : xp:= 67;// <— Xp Per Willow Log !
4 : xp:= 100;// <— Xp Per Maple Log !
5 : xp:= 175;// <— Xp Per Yew Log !
6 : xp:= 200;// <— Xp Per Magic Log !
end;
end;

procedure GetType;
begin
case TreeType of
1 : name:= 'Chop down Tree /';
2 : name:= 'Chop down Oak /';
3 : name:= 'Chop down Willow /';
4 : name:= 'Chop down Maple /';
5 : name:= 'Chop down Yew /';
6 : name:= 'Chop down Magic /';
end;
end;

procedure report;
begin
If(Reportt >= 27)Then;
ClearDebug;
Writeln('PowerCutter By Jagex_Fagex');
Writeln('————————–');
Writeln('Worked for '+ ScriptTime2(2));
Writeln('Cut ' + inttostr(Logscut) + ' Logs');
Writeln('You Have Done ' + +inttostr(LoadsCut) + ' Loads');
Writeln('You Have Gained '+ inttostr(LogsCut*xp) +' Exp');
Writeln('————————–');
Reportt:=0
end;

Procedure Rands;
begin
FindNormalRandoms;
FindHead;
FindEnt(color);
FindEnt(color1);
AntiBan;
LogOutEvery(1, 35);
end;

Function Fc :Boolean;
begin
X:=259
Y:=165
if (FindcolorspiralTolerance(x,y,color,1, 1, 740, 460,10))then
MMouse(x,y,2,2);
if(IsUpText(name))then
result:=true;
end;

Function Fc1 :Boolean;
begin
X:=259
Y:=165
if (FindcolorspiralTolerance(x,y,color1,1, 1, 740, 460,10))then
MMouse(x,y,2,2);
if(IsUpText(name))then
result:=true;
end;

procedure CutTrees;
begin
LogsCut:=0;
LoadsCut:=0;
Reportt:=0;
repeat
if(Fc)or(Fc1)then
begin
rands;
wait(50+random(25));
mouse(x, y, 2, 2, true)
wait(50+random(25));
wait(MinWait+random(MaxWait))
Rands;
end;
until(InvFull)
LogsCut:= LogsCut + 27;
LoadsCut:= 1//LogsCut / 27;
Reportt:= 27;
end;

procedure pc;
begin
benmouse:=false;
writeln('Powercutting')
rands;
DropTo(2, 28);
benMouse:=true;
end;


begin
SetupSRL;
ActivateClient;
writeln('Powercutting')
repeat
FindAxeHeadColor;
CutTrees;
pc;
Report;
until(false)
end.

try replacing the chop procedure with this, its because no x,y cords have been specified…should work know,

[PHP]procedure CutTrees;
begin
LogsCut:=0;
LoadsCut:=0;
Reportt:=0;
repeat
if(Fc)or(Fc1)then
begin
rands;
wait(50+random(25));
getmousepos(x,y)
mouse(x, y, 2, 2, true)
wait(50+random(25));
wait(MinWait+random(MaxWait))
Rands;
end;
until(InvFull)
LogsCut:= LogsCut + 27;
LoadsCut:= 1//LogsCut / 27;
Reportt:= 27;
end;[/PHP]

i havnt got scar on this comp so i cant check it but it should know work.

what exactly did you change? btw, i have no idea why it doesn't work for you sorry, it works perfect for me.. have you got sient mouse off?

lol bassicly all i did is add getmosuepos(x,y) because no mouse pos was specified before it would not click….

So any1 else got any bright ideas?

kdid you even try what i posted, it should work….the problem is that in the tree cutting proc no x or y cords are specified therefor it will automaticly move the mouse to 0,0 the starting array for all vars…

{--------------------------------------------------------------------------]
{.Script Info:
# ScriptName = Jagex_Fagex's Power Cutter
# Author = Jagex_Fagex
# Description = PowerCuts any type of tree, anywhere
# Version = Beta 4.0
# Date = April 22nd 2006
# Comments = Just Fill in Setup - Lines 29-36, Select Client
= Axe Un - Equipt and away you go.
/Script Info}
{--------------------------------------------------------------------------]
Credits:
JDumber2k - original script
Fawki and All the devs - For creating SRL
The whole community for help and praise
YoHoJo8 - The Tree Finding Procedure

Comments and Script History:
Beta 1.0 - Many bugs, Sometimes drops axe, and does not always cut the
Right tree. I tested on Regular tree's and it was ctting
down an oak tree. Cut in fields where there is 1 type of tree

Beta 2.0 - Fixed Some Major bugs, Sometimes doesn't drop all logs,
and does not always cut the Right tree when all the trees of
type you selected are gone.

Beta 3.0 - Fixed the dropping procedure, now works 100%. Got the
cutting procedure a bit better to.

Beta 4.0 - Fixed the Cutting Procedure - now works 99.9%, Thanks to YohoJo.
{--------------------------------------------------------------------------}
program Cutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
var xp, LogsCut, LoadsCut, Reportt :integer;
name:String;


const
{ <===SETUP===<< }
Color =1385775; //Tree Color
Color1 =2440785; //Another Tree Color
MinWait =3000; //Min Wait before trying to cut again
MaxWait =5000; //Max ^^^^ ^^^^^^ ^^^^^^ ^^ ^^^ ^^^^^
TreeType= 1; // 1=normal, 2=oak, 3= willow, 4=maple, 5=yew, 6 magic
{ <===END SETUP===<< }


procedure Getxp;
begin
case TreeType of
1 : xp:= 25;// <--- Xp Per Normal Log !
2 : xp:= 37;// <--- Xp Per Oak Log !
3 : xp:= 67;// <--- Xp Per Willow Log !
4 : xp:= 100;// <--- Xp Per Maple Log !
5 : xp:= 175;// <--- Xp Per Yew Log !
6 : xp:= 200;// <--- Xp Per Magic Log !
end;
end;

procedure GetType;
begin
case TreeType of
1 : name:= 'Chop down Tree /';
2 : name:= 'Chop down Oak /';
3 : name:= 'Chop down Willow /';
4 : name:= 'Chop down Maple /';
5 : name:= 'Chop down Yew /';
6 : name:= 'Chop down Magic /';
end;
end;

procedure report;
begin
If(Reportt >= 27)Then;
ClearDebug;
Writeln('PowerCutter By Jagex_Fagex');
Writeln('--------------------------');
Writeln('Worked for '+ ScriptTime2(2));
Writeln('Cut ' + inttostr(Logscut) + ' Logs');
Writeln('You Have Done ' + +inttostr(LoadsCut) + ' Loads');
Writeln('You Have Gained '+ inttostr(LogsCut*xp) +' Exp');
Writeln('--------------------------');
Reportt:=0
end;

Procedure Rands;
begin
FindNormalRandoms;
FindHead;
FindEnt(color);
FindEnt(color1);
AntiBan;
LogOutEvery(1, 35);
end;

Function Fc :Boolean;
begin
X:=259
Y:=165
if (FindcolorspiralTolerance(x,y,color,1, 1, 740, 460,10))then
MMouse(x,y,2,2);
if(IsUpText(name))then
result:=true;
end;

Function Fc1 :Boolean;
begin
X:=259
Y:=165
if (FindcolorspiralTolerance(x,y,color1,1, 1, 740, 460,10))then
MMouse(x,y,2,2);
if(IsUpText(name))then
result:=true;
end;

procedure CutTrees;
begin
LogsCut:=0;
LoadsCut:=0;
Reportt:=0;
repeat
if(Fc)or(Fc1)then
begin
rands;
wait(50+random(25));
getmousepos(x,y)
mouse(x, y, 2, 2, true)
wait(50+random(25));
wait(MinWait+random(MaxWait))
Rands;
end;
until(InvFull)
LogsCut:= LogsCut + 27;
LoadsCut:= 1//LogsCut / 27;
Reportt:= 27;
end;

procedure pc;
begin
benmouse:=false;
writeln('Powercutting')
rands;
DropTo(2, 28);
benMouse:=true;
end;


begin
SetupSRL;
ActivateClient;
writeln('Powercutting')
repeat
FindAxeHeadColor;
CutTrees;
pc;
Report;
until(false)
end.

that should work….

Solemn, the X and Y co-ords will already be specified from the FindColorSpiral. The GetMousePos isn't needed.

I'm guessing what is happening is that there is a problem with IsUpText();

The Mouse is moving to the tree because it finds the colour, it checks for the text but there is a problem with it so the result = False, meaning it won't click there. Therefore it is an Srl bug not a script bug.

Or you could just be forgetting to specify the client window?

use if(IsUpText('blah'))or(Option2('blah'))then

IsUpText has been having a few problems, so with this, if it finds the right option.. then it will do it as well..