SRL Archive - Archive

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

What is the meaning to life?



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


Programming Knowledge
BARELY any Java

Other Communitys
sythe,

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 like to script(still learningthough), I come here often, Whenever i use a script, i comment and post proggies, and i want to be a member =)

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

{SETUP=
go to some where with the trees u wanna cut (can be anywhere)
go on low detail
enter tree colors
declare players
press play ;-)
}


program Putnam11sPowercutter;
{.include SRL/SRL.scar}

var
x,y: integer;
i: integer;

const

TreeColour= 6680; //Pick Color Of Tree You Want To Cut

//Normal Tree = 6680


                
LoadsPerPlayer = 1; //How Many Loads To Do Before You Login And Out again, or Switch.

procedure DeclarePlayers;
begin
  NumberOfPlayers(1); // put 2 if u use both//
  CurrentPlayer := 0;

  Players[0].Name :='YOUR username';   //username
  Players[0].Pass :='Your Passwerd';  //password
  Players[0].Nick :='kdud';          //3-4 letters in middle of name
  Players[0].Active := True; // used or not, false if not//


end;

 procedure ChopTree; //Cuts Tree.
begin
if(FindColor(x,y,TreeColour,0,0,600,600)) then
begin

wait(1+random(5));
Mouse(x,y,0,0,true);
wait(5000+random(5)); //Time Before Clicks New Tree.
i:= i + 1
end;
if(not(FindColor(x,y,TreeColour,0,0,600,600)))then
Writeln('Cannot find the tree. checking again. If u get this fer a long time u better check ur player')
wait(2000+random(5));
end;



Function FindFastRandoms: Boolean;
Var
  i: Integer;
Begin
  For i:=1 To 8 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 RC Then Result := True;

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

End;

procedure Setup;
begin
ClearDebug;
Writeln('Putnams First Script         ')
Writeln('Its a Powercutter            ')
Writeln('Enjoy ;-)                    ')
Writeln('Post Proggresses and FeedBack')
end;

procedure Report;
begin
ClearDebug;
   Writeln('Putnams Powercutter  ');
    Writeln('Progress Report');
    Writeln('Cut' +IntToStr(i)+' Logs.'                  );
    Writeln('Please post on SRL =)');
end;

begin Setup;
DeclarePlayers;
LoginPlayer;
repeat
ChopTree;
findFastRandoms;
if InvFull then
 begin
 DropToPosition(2, 28);
 Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
      begin
        NextPlayer(True);
        begin Report;
        end;
      end;
  end;
until(false)
end.

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

Since you are viewing the thread, I will ask you - why did you not read the requirements before applying?

Your chopping loop is fucked m8.

 procedure ChopTree; //Cuts Tree.
begin
if(FindColor(x,y,TreeColour,0,0,600,600)) then
begin
  if IsUpText('hop')then
    Begin
      wait(1+random(5));
      Mouse(x,y,0,0,true);
      wait(5000+random(5)); //Time Before Clicks New Tree.
      i:= i + 1
    end;
if(not(FindColor(x,y,TreeColour,0,0,600,600)))then
  Writeln('Cannot find the tree. checking again. If u get this fer a long time u    better check ur player')
  wait(2000+random(5));
end;

IsUpText find the upper text and if it matches clciks it. On the mainscreen lots of colours are shared. This way it will ruduce the possibilities colosally.
Sorry it's a no :( . But keep on learning. My first app looked like this.

->{Nauman}<-

Mod Please Lock :)

Yeah, no from me. You should have read the requirements before applying.

Why are people still using FindFastRandoms? FindNormalRandoms does all of that now. Agh.

Closed. :)