fiori
03-21-2007, 05:23 AM
Hello all, this is my first post, and first script here on the SRL forums. My name is Fiori(formerly known as Knuckles). I used to script and make bots for RSC(Java bots and scripts). And i recently decided to enter back into the RS cheating scene, and figured SCAR was the way to go. I just started scar scripting so please report and bugs to me, and also, for some of you more advanced scripters: some constructive criticism.
Alright, enough about me. The script powerchops and trees and yea thats about all i can say. Iv'e added comments everything so that people that are new also and trying to learn, may be able to benefit from my script. SO Here it is :D
//This is my very first scar script, iv'e working pretty hard on it,
//i read alot of tutorials before a atchully attempted this
//and i tried to make it as thural(spelling) as possible.
//Iv'e tried to comment everything as much as possible so people that
//need to learn from this, can.
//SETUP LINES 15-25, and line 37
program PowerChop;
{.include SRL/SRL.Scar}
{.include SRL\SRL\skill\WoodCutting.scar}
const
treecolor=2252880; //Color of the tree to cut, change this if you need to.
procedure MakePlayer;
begin
HowManyPlayers := 1; //Number of players , DONT CHANGE
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0; //DONT CHANGE
Players[0].Name:='Die mrs dodd'; //Your players username
Players[0].Pass:='5448469'; //your players password
Players[0].Nick:='dodd'; //3-4 letter from the middle of your players name
end;
procedure login; //This ones pretty easy, if your not logged in, it logs you in :D
begin
if(not (LoggedIn)) then
LoginPlayer;
end;
procedure cutree;
begin
repeat //FindObj find the cords of the tree so we can click it
FindObj(a, b, 'Tree', treecolor, 5); //Change 'Tree' to 'Oak' or whatever you want to power chop.
Mouse(a,b,2,2,true); //Clicks the cords that we found with FindObj, boolean set to True so we can left click
wait(3000+random(2000));
login; //makes sure your logged in
FindNormalRandoms;
FindHead; //checks to make sure the head is attaches
until(Invfull)
end;
procedure droplogs;
begin
GameTab(4); //SWITCHES to the inventory
DropTo(2,28); //drops everything in slots 2 to 28
FindNormalRandoms;
end;
begin
SetUpSRL; //Loads SRL
MakePlayer; //declares the player
login; //checks and makes sure your logged in
repeat
FindNormalRandoms;
ActivateClient;
ClearDebug;
Antiban;
login;
cutree;
DropAllLogs;
until(false);
end.
Alright, enough about me. The script powerchops and trees and yea thats about all i can say. Iv'e added comments everything so that people that are new also and trying to learn, may be able to benefit from my script. SO Here it is :D
//This is my very first scar script, iv'e working pretty hard on it,
//i read alot of tutorials before a atchully attempted this
//and i tried to make it as thural(spelling) as possible.
//Iv'e tried to comment everything as much as possible so people that
//need to learn from this, can.
//SETUP LINES 15-25, and line 37
program PowerChop;
{.include SRL/SRL.Scar}
{.include SRL\SRL\skill\WoodCutting.scar}
const
treecolor=2252880; //Color of the tree to cut, change this if you need to.
procedure MakePlayer;
begin
HowManyPlayers := 1; //Number of players , DONT CHANGE
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0; //DONT CHANGE
Players[0].Name:='Die mrs dodd'; //Your players username
Players[0].Pass:='5448469'; //your players password
Players[0].Nick:='dodd'; //3-4 letter from the middle of your players name
end;
procedure login; //This ones pretty easy, if your not logged in, it logs you in :D
begin
if(not (LoggedIn)) then
LoginPlayer;
end;
procedure cutree;
begin
repeat //FindObj find the cords of the tree so we can click it
FindObj(a, b, 'Tree', treecolor, 5); //Change 'Tree' to 'Oak' or whatever you want to power chop.
Mouse(a,b,2,2,true); //Clicks the cords that we found with FindObj, boolean set to True so we can left click
wait(3000+random(2000));
login; //makes sure your logged in
FindNormalRandoms;
FindHead; //checks to make sure the head is attaches
until(Invfull)
end;
procedure droplogs;
begin
GameTab(4); //SWITCHES to the inventory
DropTo(2,28); //drops everything in slots 2 to 28
FindNormalRandoms;
end;
begin
SetUpSRL; //Loads SRL
MakePlayer; //declares the player
login; //checks and makes sure your logged in
repeat
FindNormalRandoms;
ActivateClient;
ClearDebug;
Antiban;
login;
cutree;
DropAllLogs;
until(false);
end.