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
A lil html

Other Communitys
pbnation

How Long have You Played Runescape
about 4 years

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

I have been on this board for a while now and im decent at scripting i think this script shows that i understand scar and that i know how to script it has been released on here in free scripts and i have not had many complaints at all…

——————————————————
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}
{.include SRL/SRL/Misc/Trade.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=3035208; //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;
AcceptTrade;
Decline;
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;

procedure Talk;
var
  LastMessage: String;
begin
  GetLastChatText(LastMessage);
  if ((Pos('Hey', LastMessage) <> 0) or
  (Pos('Whats up', LastMessage) <> 0) or
  (Pos('Hows it going', LastMessage) <> 0) or
  (Pos('Hi', LastMessage) <> 0) or
  (Pos('Hey all', LastMessage) <> 0)) then
  Wait(2000 + random(1000));
  begin
    Case Random(4) of
    0: TypeSend('Hey whats going down.');
    1: TypeSend('Woodcutting lvls?');
    2: TypeSend('What time is it?');
    end;
  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('Off',1)
 wait(40)
 HighestAngle;
 wait(40)
 SRLRandomsReport;
  repeat
   repeat
    repeat
    FindTree;
    Randoms;
    Talk;
    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 –>

the only real procedures are the cutting,the responder,and the randoms…and the responder is simple(no offense, just saying), and the randoms didnt take much work. sry but WAY to smiple to get you in

EDIT:not a month either:p u applied the 18th of june i think?

yea you need more complex procedure and more failsafes. It's a no from me.

Failsafes aren't the problem. He has no endless loops. It's just so basic, which makes me wonder how I got in 10-2, as mine was actually, pretty basic.

http://www.villavu.com/forum/showthread.php?t=12297?p=141985

You won't be able to see that btw, but the rest of the guys can.

Anyway, good try, but very basic. Good luck in the future!

Mine was better than yours IEJB (in my opinion) and I got like 9 no, 11 yes I think :p

It's obvious that people like me a lot more than you then! :p

Half of your script is Status, not to make you feel bad or anything. Fine..we're tied. I just won 10-2 because people were in a good mood :p

"06-22-2007, 07:47 PM"

It was a Friday. Yours was posted mid-afternoon on a Sunday. There's the explanation.

What the? I had 17 yes and 10 no. Fawki actually voted for me :p Anyway, there's only one procedure to do with woodcutting. The rest is randoms, antiban etc. No from me, sorry.