SRL Archive - Research & Development Lounge

Hey guys, i'm in the process of making my very first script. It's going to be a PowerChopper, then im going to try a PowerMiner. Buutt i was wondering if someone can let me use their AntiBan? :)

If you're already writing your own script I'm sure you already have enough knowledge to make your own!
Here are some tutorials, it's easy:

http://villavu.com/forum/showthread.php?t=79942
http://villavu.com/forum/showthread.php?t=85025
http://villavu.com/forum/showthread.php?t=50810

See, quite simple, enjoy.
Can't wait for the release, thanks for contributing!

Im actually on your second video for tutorials. Idk the antiban you used. along with another loop

From: alltehsmallthings
Im actually on your second video for tutorials. Idk the antiban you used. along with another loop

Check one of my scripts. Dont copy them but you can see how it works etc

function CutDemUp:Boolean;
var
x , y: Interger;
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow', [2308157, 1979192, 2968145], 15); Then
WriteLn('Fuck yeah it worked');
end;

begin
SetupSRL;
DeclarePlayers;
Repeat
CutDemUp;
Until(false);
end.

[Error] (47:1): Identifier expected at line 46
Compiling failed.

From: alltehsmallthings
function CutDemUp:Boolean;
var
x , y: Interger;
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow', [2308157, 1979192, 2968145], 15); Then
WriteLn('Fuck yeah it worked');
end;

begin
SetupSRL;
DeclarePlayers;
Repeat
CutDemUp;
Until(false);
end.

[Error] (47:1): Identifier expected at line 46
Compiling failed.

function CutDemUp: Boolean;
var
  x, y: Integer;
begin
  if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) Then
  WriteLn('Fuck yeah it worked');
end;

begin
  SetupSRL;
  DeclarePlayers;
  repeat
    CutEmUp;
  until (false);
end.

Good to look at some code again, but in future post entire script. Helps us help you.

program KushTrimmer;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}
{$I SRL-OSR/srl/misc/SmartGraphics.simba}



const
PSHIFT = 350;
GTHRESHOLD = 25;
PLAYER_NAME = ''; //Username here.
PLAYER_PASS = ''; //Password here.
PLAYER_NICK = ''; // 3-4 characters of your in-game name. NOT the first character.
M1D1 = False; //Set to True if you would like to mine one and drop one.
LOG_INT = 5; //Interval to display a log report in minutes.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_NAME;
Players[0].Pass := PLAYER_PASS;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;



procedure Antiban;
begin
FindNormalRandoms;
case Random(90) of
0: RandomRClick;
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
6: MakeCompass('N');
7: SetAngle(SRL_ANGLE_HIGH);
8: Wait(5000+random(2000));
9: HoverSkill(skill_Woodcutting,false);
end;



function CutDemUp: Boolean;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) Then
WriteLn('Fuck yeah it worked');
end;

begin;
SetupSRL;
DeclarePlayers;
Antiban;
repeat
Cutthemup;
until(false)

end.
[Error] (47:1): Identifier expected at line 46
Compiling failed.

There you go. I dont understand whats goin on.

program KushTrimmer; //program name
{$DEFINE SMART8}     //Defining the use of SMART.
{$I SRL-OSR/SRL.Simba} //Including Oldschool SRL library.
{$I SPS/sps-osr.simba} //Including Oldschool SPS library.
{$I SRL-OSR/srl/misc/SmartGraphics.simba} //For painting on SMART.

const
PSHIFT = 350;
GTHRESHOLD = 25;
PLAYER_NAME = ''; //Username here.
PLAYER_PASS = ''; //Password here.
PLAYER_NICK = ''; // 3-4 characters of your in-game name. NOT the first character.
M1D1 = False; //Set to True if you would like to mine one and drop one.
LOG_INT = 5; //Interval to display a log report in minutes.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_NAME;
Players[0].Pass := PLAYER_PASS;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;

procedure Antiban;
begin
  FindNormalRandoms; //Looks for any randoms.
  case Random(90) of
    0: RandomRClick;  //Randomly right clicks somewhere on the screen.
    2: PickUpMouse;   //Acts like you've just picked up your mouse.
    3: RandomMovement;//Randomly moves the mouse around.
    4: BoredHuman;    //Will examine/move mouse around on objects.
    6: MakeCompass('N'); //Makes compass face North.
    7: SetAngle(SRL_ANGLE_HIGH); //Moves view angle as high as possible.
    8: Wait(5000+random(2000));  //Waits from 5000ms-7000ms.
    9: HoverSkill(skill_Woodcutting,false); //Hovers woodcutting skill.
  end;
end;

function CutDemUp: Boolean; //Sets CutDemUp; as a boolean (true/false result)
var
x, y: Integer; //Stating variables.
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) then
  begin
    WriteLn('It worked!');  //So if it finds the above line, it will write this line.
  end;                      //Ensure if you are having more than 1 thing under the if..then that you have a begin..end.
end;                        //I put one in just for safe keeping.
begin;
  SetupSRL;  //Sets up SRL.
  DeclarePlayers;  //Declares players (logs in)
  Antiban; //Does antiban procedure
  repeat
    CutDemUp;  //Repeats CutDemUp; function until it can't continue. You NEED failsafes.
  until(false);
end.

Made your script compile and commented on lines that could use them. Hopefully that'll give you some help… Follow YoHoJo's tutorial and keep up with him! ;)

The error you wrote was being caused because you needed another end in your antiban procedure. A case needs an end, a begin needs an end, an if needs a then, a repeat needs an until and so on.

From: alltehsmallthings


[Error] (47:1): Identifier expected at line 46
Compiling failed.

There you go. I dont understand whats goin on.

program KushTrimmer;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}
{$I SRL-OSR/srl/misc/SmartGraphics.simba}



const
PSHIFT = 350;
GTHRESHOLD = 25;
PLAYER_NAME = ''; //Username here.
PLAYER_PASS = ''; //Password here.
PLAYER_NICK = ''; // 3-4 characters of your in-game name. NOT the first character.
M1D1 = False; //Set to True if you would like to mine one and drop one.
LOG_INT = 5; //Interval to display a log report in minutes.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_NAME;
Players[0].Pass := PLAYER_PASS;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;



procedure Antiban;
begin
FindNormalRandoms;
case Random(90) of
0: RandomRClick;
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
6: MakeCompass('N');
7: SetAngle(SRL_ANGLE_HIGH);
8: Wait(5000+random(2000));
9: HoverSkill(skill_Woodcutting,false);
end;  // this is the end; of CASE
end; // you forgot the add an end; here      - this is the end; of procedure Antiban; Begin



function CutDemUp: Boolean;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) Then
WriteLn('Fuck yeah it worked');
result := true; //added the result of the boolean
end;

begin;
SetupSRL;
DeclarePlayers;
Antiban;
repeat
Cutdemup; //changed the name to the correct function
until(false)
end.

hope i helped :)
you should add a function that checks if you are woodcutting (pixelshift), and randomfinding: Findnoninventoryrandoms;

Oh, and just a hint,SPS is glitchy so if you're gonna walk, I suggest you either perfect radial walking, or use reflection. Me and Hoodz have developed a mini include and some hooks =)

program KushTrimmer; //program name
{$DEFINE SMART8} //Defining the use of SMART.
{$I SRL-OSR/SRL.Simba} //Including Oldschool SRL library.
{$I SPS/sps-osr.simba} //Including Oldschool SPS library.
{$I SRL-OSR/srl/misc/SmartGraphics.simba} //For painting on SMART.

const
PSHIFT = 350;
GTHRESHOLD = 25;
PLAYER_NAME = ''; //Username here.
PLAYER_PASS = ''; //Password here.
PLAYER_NICK = ''; // 3-4 characters of your in-game name. NOT the first character.
M1D1 = False; //Set to True if you would like to mine one and drop one.
LOG_INT = 5; //Interval to display a log report in minutes.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_NAME;
Players[0].Pass := PLAYER_PASS;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;

procedure Antiban;
begin
FindNormalRandoms; //Looks for any randoms.
case Random(90) of
0: RandomRClick; //Randomly right clicks somewhere on the screen.
2: PickUpMouse; //Acts like you've just picked up your mouse.
3: RandomMovement;//Randomly moves the mouse around.
4: BoredHuman; //Will examine/move mouse around on objects.
6: MakeCompass('N'); //Makes compass face North.
7: SetAngle(SRL_ANGLE_HIGH); //Moves view angle as high as possible.
8: Wait(5000+random(2000)); //Waits from 5000ms-7000ms.
9: HoverSkill(skill_Woodcutting,false); //Hovers woodcutting skill.
end;
end;



function CutDemUp: Boolean; //Sets CutDemUp; as a boolean (true/false result)
var
x, y: Integer; //Stating variables.
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) then
Begin
SmartGetMousePos(x, y)

Case Random(2) of
0:Mouse(x, y, 5, 5, True);
1:Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
End;
End;



begin;
SetupSRL; //Sets up SRL.
DeclarePlayers; //Declares players (logs in)
Antiban; //Does antiban procedure
End;
repeat
CutDemUp; //Repeats CutDemUp; function until it can't continue. You NEED failsafes.
until(false);
end.

I got this so far, It actually works :P awesome. BUTTT it just keeps clickin on the tree.

From: alltehsmallthings


I got this so far, It actually works :P awesome. BUTTT it just keeps clickin on the tree.

you can add pixelshift with a function:

program KushTrimmer; //program name
{$DEFINE SMART8} //Defining the use of SMART.
{$I SRL-OSR/SRL.Simba} //Including Oldschool SRL library.
//{$I SPS/sps-osr.simba} //Including Oldschool SPS library.
{$I SRL-OSR/srl/misc/SmartGraphics.simba} //For painting on SMART.

const
PSHIFT = 350;
GTHRESHOLD = 25;
PLAYER_NAME = ''; //Username here.
PLAYER_PASS = ''; //Password here.
PLAYER_NICK = ''; // 3-4 characters of your in-game name. NOT the first character.
M1D1 = False; //Set to True if you would like to mine one and drop one.
LOG_INT = 5; //Interval to display a log report in minutes.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_NAME;
Players[0].Pass := PLAYER_PASS;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;

procedure Antiban;
begin
FindNormalRandoms; //Looks for any randoms.
case Random(90) of
0: RandomRClick; //Randomly right clicks somewhere on the screen.
2: PickUpMouse; //Acts like you've just picked up your mouse.
3: RandomMovement;//Randomly moves the mouse around.
4: BoredHuman; //Will examine/move mouse around on objects.
6: MakeCompass('N'); //Makes compass face North.
7: SetAngle(SRL_ANGLE_HIGH); //Moves view angle as high as possible.
8: Wait(5000+random(2000)); //Waits from 5000ms-7000ms.
9: HoverSkill(skill_Woodcutting,false); //Hovers woodcutting skill.
end;
end;



function CutDemUp: Boolean; //Sets CutDemUp; as a boolean (true/false result)
var
x, y: Integer; //Stating variables.
begin
if FindObjCustom(x, y, ['Chop', 'Down', 'Willow'], [2308157, 1979192, 2968145], 15) then
Begin
SmartGetMousePos(x, y)

Case Random(2) of
0:Mouse(x, y, 5, 5, True);
1:Begin
Mouse(x, y, 5, 5, False);
WaitOption('Chop', 500);
End;
End;
End;
End;

function IsCutting:boolean;    //added this
var
  playerbox: tbox;
begin
playerbox := inttobox(x1, y1, x2, y2); {you need to make a box around your player}
if pixelshift(playerbox, 500) > 150 {pixelshiftnumber (like 150)}  then
result := true;
end;


begin;
SetupSRL; //Sets up SRL.
DeclarePlayers; //Declares players (logs in)
Antiban; //Does antiban procedure
End;
repeat
if (not iscutting) then
begin
CutDemUp; //now it will click on a tree
end
else   //else...
begin
//antiban?, droppinglog procedure?
end;
until(false);
end. 

When I use the client selector, it doesn't fix onto the rs client im using, Browser, or smart.