SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
nope

Other Communitys
sythe forums

How Long have You Played Runescape
about 2 years…

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

Im 13 years old newbie scripter… im bored for runescape so i stared "cheating".
i already posted apply but i think my script was very bad…
Now i have fixed it and i hope it's enoght…

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

//////////////////////////////////////////////////////////////////////////                                                                      //
// p p p       a        l        l         o o o      o o o      o o o  //
// p    p     a a       l        l        o     o   o      o    o     o //
// p    p    a   a      l        l       o       o  o       o  o       o//
// p p p    a a a a     l        l       o       o  o       o  o       o//
// p       a       a    l        l       o       o  o       o  o       o//
// p      a         a   l        l        o     o    o     o    o     o //
// p     a           a  l l l l  l l l l   o o o      o o o      o o o  //
//                                                                      //
//////////////////////////////////////////////////////////////////////////
program PallooosPowerChopper;
{.include SRL\SRL.scar}
{.include SRL/SRL/skill/Woodcutting.scar}
var
  x,y : integer;
  Loads, Logs : integer;
  chopAtempts : integer;
  H,M,S: Integer;
const
  Treecolor2=6988186;  //Treecolor1 in your main screen
  Treecolor1=2845277;  //Treecolor2 in your main screen

Procedure DeclarePlayers;
begin

HowManyPlayers:=2
CurrentPlayer:=0

NumberOfPlayers(HowManyPlayers);

Players[0].Name := '';      //Your charters name
Players[0].Pass := '';      //Your charters password
Players[0].Nick := '';      //Part of your charters name 3-4 letters
Players[0].Active:= True;

Players[1].Name := '';      //your second charters name
Players[1].Pass := '';      //Your second charters password
Players[1].Nick := '';      //Part of your charters name 3-4 letters
Players[1].Active:= True;
End;

function FindFastRandoms: Boolean; //By WT-Fakawi.
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: begin
          if NoGameTab then
          begin
            Result := True;
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure Chop;
begin
logs:=invcount;
  If (Not(LoggedIN)) then NextPlayer(False);
    if(FindColorTolerance(x, y,Treecolor1, MSX1, MSY1, MSX2, MSY2, 10))or
      (FindColorTolerance(x, y,Treecolor2, MSX1, MSY1, MSX2, MSY2, 8))then
    begin
      HighestAngle;
      PerfectNorth;
      Mouse(x,y,0,0,false);
      if(ChooseOption('hop'))then
      FindEnt(x, y, true);
      Writeln('Chopping down tree');
      Writeln('');
      wait(4000+random(3000))
    end;
chopAtempts:=0;
repeat
  if logs < invcount then break;
  wait(3000);
  chopAtempts := chopAtempts+1;
  if chopAtempts = 5 then break;
 begin
  Wait(20+Random(30))
  FindFastRandoms;
  Wait(20+Random(30))
 end;
until(InvFull);
end;

procedure Randoms;
begin
  if not LoggedIn then Exit;
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  FindInventoryRandoms;
  FindNonInventoryRandoms;
  FindLamp('woodcutting');
  SolvePinball;
  if FindFight then
  begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
  end;
end;

Procedure Drop;
begin
  if(InvFull)then
  begin
    DropAll;
    Loads:=Loads+1;
    Writeln('');
    Writeln('LogsDropped');
    Writeln('');
    Writeln('Begin Chopping...');
    Writeln('');
  end;
end;

Procedure ProgresReport;
begin
  ConvertTime(GetTimeRunning,H,M,S)
  ClearDebug;
  Writeln('')
  Writeln('')
  Writeln('')
  Writeln('<------------------------------------------------------>')
  Writeln('Script run-time: '+IntToStr(H)+' hours, '+IntToStr(M)+' minutes and '+IntToStr(S)+' seconds ')
  Writeln('Has dropped '+IntToStr(Loads)+' loads.')
  Writeln('<------------------------------------------------------>')
end;

begin
  SetupSRL;
  SetupWoodcutting;
  repeat
    ProgresReport;
    DeclarePlayers;
    Chop;
    Drop;
    FindFastRandoms;
    Randoms;
  until(false)
end.

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

Hiya, moi.

Good attempt, but it doesnt fill the requirements :(

Its pretty simple, and your script should have:

• DTMs / DDTMs
• MultiPlayer
• FailSafes
• Decent complex working script.
• RadialWalk / DDTM Walking
• Standards! Without them no one reads script
• Break out of potential endless loops

Try to learn these, and when you know them, come back. Remember to wait atleast one month before re-applying.

ok… ootko suomest?

joo.

Umm as much as possible, we should, or atleast many people want, try not to speak finnish on the boards, r0b0t gets sand in her vagina (aha! there you got back for the mfing jokes)

finnish ppl pwns ;)

And yes the script is a bit too simple. Stay around and learn though ;)

no sorry,

good luck next time.

indeed, to simple, no,

-Tsn.

Sorry, no, too simple, but you got good basics :D



use findnormalrandoms instead of those… and be sure to call it each time it clicks on tree… clicking tree is that what causes randoms…

function FindFastRandoms: Boolean; //By WT-Fakawi.
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: begin
          if NoGameTab then
          begin
            Result := True;
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;


procedure Randoms;
begin
  if not LoggedIn then Exit;
  FindTalk;
  FindNormalRandoms;
  FindFastRandoms;
  FindInventoryRandoms;
  FindNonInventoryRandoms;
  FindLamp('woodcutting');
  SolvePinball;
  if FindFight then
  begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
  end;
end;

Edit: oops, sorry for gravedigging :s