SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Team_epic - SRL Member Application Form
Team_epic

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
None really

Other Communitys
PBNation

How Long have You Played Runescape
4 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I have been scripting for about a month and a half now i applied with this script once before and i didn't realize how simple it was. I have made MANY changes to it and it is way more complex with fail safes and many updates. I feel that I am catching on very fast to SRL and SCAR and will add a lot to this community.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program PowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xAntiban.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}


//////////////////////////////////////////////////
//              Instructions                    //
// 1.Start anywhere by trees.                   //
// 2.Set the color of the tree.                 //
// 3.Equip the axe of your choice.              //
// 4.Set the new RS window.                     //
// 5.Move the scar window over clear to the left//
// 6.Hit RUN!!!                                 //
//////////////////////////////////////////////////

   ///////  //////      //           ////      ////
     //     //         // //        //  //    //  //
     //     ////      //   //      //    //  //    //
     //     //       /////////    //      ////      //
     //     //////  //       //  //        //        //

///////////////////Setup/////////////
var
Loads: Integer;
Logz: Integer;
Exp: Integer;
Tries: Integer;

const
TreeColor=798760; //change if it doesnt find the tree

procedure DeclarePlayers;
begin
 HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0; //Player to start on
 
  Players[0].Name :='username';  //Fill in your username
  Players[0].Pass :='password';  //Fill in your password
  Players[0].Nick :='nick';      //2-3 letters of your username
  Players[0].Active :=True;      //Set true if you want to use this player
  Players[0].Integer1 := 0;    //How many loads to do
  
  Players[1].Name := 'username'; //Fill in your username
  Players[1].Pass := 'password';  //Fill in your password
  Players[1].Nick := 'nick';      //2-3 letters of your username
  Players[1].Active := True;     //Set true if you want to use this player
  Players[1].Integer1 := 0;

  Players[2].Name := 'UserName';  //Fill in your username
  Players[2].Pass := 'Password';  //Fill in your password
  Players[2].Nick := 'Nick';      //2-3 letters of your username
  Players[2].Active := False;     //Set true if you want to use this player
  Players[2].Integer1 := 0;

  Players[3].Name := 'UserName';  //Fill in your username
  Players[3].Pass := 'Password';  //Fill in your password
  Players[3].Nick := 'Nick';      //2-3 letters of your username
  Players[3].Active := False;     //Set true if you want to use this player
  Players[3].Integer1 := 0;

  Players[4].Name := 'UserName';  //Fill in your username
  Players[4].Pass := 'Password';  //Fill in your password
  Players[4].Nick := 'Nick';      //2-3 letters of your username
  Players[4].Active := False;     //Set true if you want to use this player
  Players[4].Integer1 := 0;

  Players[5].Name := 'UserName';   //Fill in your username
  Players[5].Pass := 'Password';   //Fill in your password
  Players[5].Nick := 'Nick';       //2-3 letters of your username
  Players[5].Active := False;      //Set true if you want to use this player
  Players[5].Integer1 := 0;
  
  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;

///////////////Don't Touch Below This//////////////////////

procedure FindTree;
var
 i:Integer;
begin
if(FindObj(x,y,'hop',TreeColor,10))then
 begin
 FindEnt(0);
 Mouse(x,y,5,5,True)
  repeat
  Wait(1000+random(200));
  i:=i+1
  until(InChat('logs.'))or(I>=8);
  if(not(FindObj(x,y,'hop',TreeColor,10)))then
  begin
  Tries:=Tries + 1
  if(Tries = 15)then
  begin
   Writeln('---------------------------------');
   Writeln('--------Teamepics Chopper--------');
   Writeln('Could not find trees, try moving your player.');
   TerminateScript;
   end;
   end;
  end;
 i:=0
end;

procedure Drop;
begin
DropTo (2,28);
end;

///////////////Anti-Randoms//////////////////

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7:  if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             end;
       8 : If RC Then Result := True;

       9: If FindTalk Then Result := True;
    End;
    Wait(1);
  end;
end;

procedure Randoms;
begin
Findnormalrandoms;
FindFastRandoms;
FindHead;
FindLamp('Woodcutting');
 if(not(loggedin)) then
 NextPlayer (False)
 if FindFight then //if finds that you're in a fight
  begin
   RunAwayDirection('N'); //runs north (s, w, e)
   Wait(9000+random(2000)); //waits
   RunBack;//Runs back
  end;
end;

////////////////////Progress Report/////////////////

Procedure Progreport;
begin
Writeln('|---------------Teams Chopper-----------------|');
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;


//////////////////Loop's////////////////////

procedure ScriptSetup;
begin
 ClearDebug;
 SetupSRL;
 DeclarePlayers;
 end;

////////////////////Main Loop/////////////////////
 
 begin
  ScriptSetup;
  NEWLINE:='';
 If(not(LoggedIn)) then
 LoginPlayer;
 SetChat('Hide',1)
 wait(40)
 HighestAngle;
 wait(40)
 SRLRandomsReport;
  repeat
   repeat
    repeat
    FindTree;
    Randoms;
    AntiBan;
    until(invfull);
   Loads:=Loads+1
   Drop;
   Until Loads >= Players[CurrentPlayer].Integer1
 if Loads >= Players[CurrentPlayer].Integer1 then
 Progreport;
 NextPlayer(True);
 Loads:=0
Until False
end.

——————————————————
<!– END TEMPLATE: formanswers –>

nope, your multiplayer doesnt work(if one somehow logs, your script will be in an unendless loop..) ow and your script only does 1 player 1 time(you dont reset .integer1, this might be your intention but i thought i'd just point it out…)

yeah multi works i just used it and it does go back through and i reset integer 1 in the main loop…

ow ok i see now, but really, if an acoutn logs, your script will never see its inv is full… and wont get out of the loop…

i dont understand what u mean?

lets say, a character is cutting, then it finds a unsolvable random and logs. the script will never get the value invfull and therefor will be in an unending loop… try to put if not loggedin then exit;

should be right now?

Until( Loads >= Players[CurrentPlayer].Integer1 or not loggedin); and until(invfull or not loggedin)

and nextplayer(loggedin); that should solve it…

fixed it myself thanks tho

sorry, its kinda hard to explain when you are tired :(, pentti translated it for you lol still 1 little problems, the player that will now jump in to replace the false player will take over the amount of loads of that player….

Eh, seems to simple. Half the script is just the DeclarePlayers procedure. Also, you don't have good anti-ban…Woodcutting is one(probably is) of the most autoed skills, so you need good anti-ban. Sorry, but its a no :(