its the coord of the box you want search so it dont search in the hole screen.
its the coord of the box you want search so it dont search in the hole screen.
Formerly known as FrancisHelie
thanks for the tutorial.
gives some good info and is easy to understand.
like the MI MM and MS stuff.
i didn't know you could do that so used co ords in a script.
that will make scripting alot easier in future.
thanks
bump: I made a small update mainly because we use simba only now and changed some things.
Hi
Great small and neat guide. Definitely added this to my knowledge base of pascal. Seems to be a great help in determining and avoiding specific colors for my current project.
I got this error:
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin;
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
iF(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;
Begin;
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
[COLOR="Red"]End;[/COLOR]
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start
end.
[Error] (53:6): period ('.') expected at line 52
Compiling failed.
@ Gaston7eze:
At the bottom of your script should be:Simba Code:begin;
Simba Code:begin
sorted out your standards
and as you can easily see, there is one too many "end;"'sSimba Code:program New;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var
x, y, rx, ry: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure ChopTree;
var
x,y: Integer;
begin
if FindObj(x,y,'hop',1785912, 35)then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
repeat
Wait(1200+random(250));
until not IsUpText('Tree')or InvFull
end;
procedure AntiBan;
begin;
if(not LoggedIn)then
Exit;
case Random(8)of
0: begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
end;
1: Wait(100);
2 : PickUpMouse;
end
if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;
begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
end;
end; // One too many end;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start
end.
~shut
EDIT: you also dont seem to have a procedure name for that procedure
EDIT: fixed
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var
x, y: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure ChopTree;
var
x,y: Integer;
begin
if FindObj(x,y,'hop',1785912, 35)then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
repeat
Wait(1200+random(250));
until not IsUpText('Tree')or InvFull
end;
procedure AntiBan;
begin;
if(not LoggedIn)then
Exit;
case Random(8)of
0: begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
end;
1: Wait(100);
2 : PickUpMouse;
end
if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
begin
Mouse(x,y,5,5,true);
end;
end;
procedure Start;
begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
end;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
Start;
end.
look at a diff generator to see what i did
Last edited by Shuttleu; 12-22-2011 at 01:00 PM.
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Im ALWAYS getting an error for some reason
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Begin
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
[COLOR="Red"]Procedure AntiBan;[/COLOR]
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
Begin;
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.
[Error] (34:1): Identifier expected at line 33
Compiling failed.
look at my post up there ^^^^^^^^
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
the bottom one had one too many ends and diddnt have a procedure header
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Well,i continue getting error on:
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
I give you the script in .SIMBA so you can look at it better.
Well unfortunately I'm in town ATM on my phone, so if you could post the error then I can help
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
You had one one too many ends.
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
End;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
[COLOR="Red"]Procedure AntiBan;[/COLOR]
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End
Begin
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
End;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.
This is the error:
[Error] (48:1): Identifier expected at line 47
Compiling failed.
Here:
Simba Code:program New;
{$i srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{$i SRL\SRL\Misc\Stats.simba}
var x, y, rx, ry: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=' ';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ChopTree;
Var
x,y: Integer;
Begin;
If FindObj(x,y,'hop',1785912, 35)Then
Mouse(x,y,0,0, False);
ChooseOption('Hop')
Repeat
Wait(1200+random(250));
Until not IsUpText('Tree')or InvFull
End;
Procedure AntiBan;
Begin
If(Not LoggedIn)then
Exit;
Case Random(8)of
0:
Begin;
HoverSkill('Woodcutting',false)
Wait(2453+random(432));
End;
1: Wait(100);
2 : PickUpMouse;
End;
If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
begin
Mouse(x,y,5,5,true);
End;
end;
Procedure Start;
Begin
MakeCompass('N');
Wait(100+random(133));
MakeCompass('S');
Wait(50+random(133));
MakeCompass('N')
End;
begin;
Smart_Server := 1;
Smart_Members := False;
Smart_Signed := false;
Smart_SuperDetail := False;
ClearDebug;
SetUpSRL;
ActivateClient;
DeclarePlayers;
ChopTree;
end.
This should really be in a separate help thread.
You needed another end.
The mouse just moves to nowhere doing nothing,and then,it stops.
There are currently 1 users browsing this thread. (0 members and 1 guests)