SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge


Other Communitys


How Long have You Played Runescape
4+ years

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

Learned a lot, Especiaklly with DDTMs and DTMs, and I think that I can finally apply for members confidently. I used the members machine script, and I got 126, so hopefully this script will be good enough!

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

program Woodcutter;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////                                                                        ////
///                                                                          ///
///                                                                          ///
//                                                                            //
//              <///////////                                                  //
//               //      //                     **VERSION 1.4**               //
//              //      //                                                    //
//             //      //                                                     //
//            //      //                                                      //
//        </////////// RAYNOR  WILLOW MASHER                                  //
//                     *CREDITS*                                              //
///BH(BobboHobbo)-His feedback,aswell as his DDTM walking tut helped alot    ///
///Deathscytec-His Feedback helped us fix our antichat, aswell as using AC   ///
////Frozen Soul-Looked over his AntiBan and AntiRandoms and used his        ////
///////"InFight" procedure                                                  ////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

var
WillowDTM : Integer;
Chopped : Integer;
done:integer;
x, y, HP, HPTime: Integer;
ColorSign : string;
const//set number of loads before running the script
  LoadsPerPlayer = 1000; //Amounts of loads per player before switching.
  Treecolor = 6061674;//Don't Touch
  Treecolor2 = 3231573;//Don't Touch
  
  procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'stewii';
  Players[0].Pass := 'markis';
  Players[0].Nick := 'tewi';
  Players[0].Active := True;

  {Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;}
end;

//////////////////////////////////////////////////////////////////////
////          DONT TOUCH ANYTHING BELOW THIS                     /////
////     (unless you know what you're doing of course)           /////
//////////////////////////////////////////////////////////////////////

procedure AntiChat;//will be fixed for next update
begin
  if (InChat('wc')) then
    TypeSend('99');
  if (InChat(Players[CurrentPlayer].Nick)) then
    TypeSend('leave me alone');
  if (InChat('hey')) then
     TypeSend('hows it going?');
  if (InChat('sup?')) then
    TypeSend('nm nm');
  if (InChat('lol')) then
    TypeSend('lmao');
  if (InChat('boring')) then
    TypeSend('I know...');
  if (InChat('Griff721 is sexy')) then
    TypeSend('i know!');
end;

procedure SetUp;
begin
  DeclarePlayers;
  if not (LoggedIn) then
  begin
    LogInPlayer;
  end;
  if LoggedIn then
  begin
    SetRun(True);
    MakeCompass('N');
    Wait(400 + Random(655));
  end;
end;

function InFight: Boolean; //Credit to Frozen Soul(from Forest FrostBite
begin
  if not (LoggedIn) then
    Exit;
  if Players[CurrentPlayer].Integers[4] = 0 then
  begin
    Players[CurrentPlayer].Integers[4] := GetSkillInfo('hitpoints', False);
    GameTab(4);
  end else
    if Players[CurrentPlayer].Integers[4] > HP then
      if TimeFromMark(HPTime) >= 60000 then
      begin
        x := TimeFromMark(HPTime) - 60000;
        MarkTime(HPTime);
        DecEx(HPTime, x);
        Inc(HP);
      end;
  if FindColor(x, y, 65280, 217, 129, 297, 209) then
  begin
    x := GetMMLevels('hp', ColorSign);
    if x = -1 then
    begin
      Result := FindFight;
      Exit;
    end;
    if (x < HP) then
    begin
      Result := True;
      WriteLn('******** FOUND FIGHTING RANDOM ********');
      WriteFileString(TheFile, '******** FOUND FIGHTING RANDOM ********' + Chr(13));
      TakeScreen('Found Fight');
      Inc(Fights);
      MarkTime(HPTime);
      HP := GetMMLevels('hp', ColorSign);
      if HP = -1 then
        HP := Players[CurrentPlayer].Integers[4];
    end;
  end;
end;

procedure FindAllRandoms;
begin
  if (not (LoggedIn)) then
    Exit;

  FindNormalRandoms;
  if (InFight) then
  begin
    RunTo('E', True)
      FFlag(0);
    Wait(1000 + random(500));
    if FindSymbol(x, y, 'fish') then
    begin
      mouse(x, y + 15, 6, 6, true);
      end;
       end;
        end;

Procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(20) of
0: begin
         HoverSkill('Random', false);
         wait(2453+Random(432));
       end;
1: begin
         HoverSkill('Woodcutting',false);
         wait(2364+Random(413));
         GameTab(4);
       end;
2: PickUpMouse;

7: begin
         MakeCompass('N');
         wait(100+random(5));
         MakeCompass('S');
         wait(100+random(5));
         MakeCompass('N');
       end;
8: begin
        RandomRClick;
        wait(500 + random(500));
        end;
9: begin
    IdleTime(1000 + Random(750), 500, 0.5);
        Wait(300 + random(700));
       end;
10: begin
        GameTab(1 + Random(12));
        wait(750 + random(500));
        GameTab(4)
         end;
  end;
   end;
  
  function RockDDTM: Integer;//*Needs Editing, not right ATM*
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  dtmMainPoint.x := 57;
  dtmMainPoint.y := 123;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 6315617;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 57;
  dtmSubPoints[0].y := 123;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 6315617;
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 59;
  dtmSubPoints[1].y := 122;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 6315617;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 56;
  dtmSubPoints[2].y := 119;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 6315617;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 54;
  dtmSubPoints[3].y := 123;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 4998986;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 58;
  dtmSubPoints[4].y := 130;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 6315617;
  dtmSubPoints[4].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;
function ToTrees: Boolean;//From BobboHobbo's tut "DDTM Walking"
var
  RockDTM: integer;
begin
SetRun(True);
  RockDTM := RockDDTM;
  if FindDTM(RockDDTM, X, Y, 588, 12, 639, 58) then
  begin
    Mouse(X, Y, 8, 8, True);
    WriteLn('Going to willows');
    FFlag(0);
    Result := True;
  end else
    if RadialWalk(FindWaterColor,150,250,72,4,4) then
    begin
      Writeln('DDTM failed but still Going to willows!');
      Result := True;
    end else
    begin
      Result := False;
      Writeln(' Both DDTM and Radial Walk failed tell Griff and blumblebee to fix they re script...politely of course');
      FreeDTM(RockDTM);
      if not (Result) then
      begin
        Logout;
        exit;
      end;
    end;
end;

function BankDDTM: Integer;//again doesn't work will be fixed
var
  BankMainPoint: TDTMPointDef;
  BankSubPoints: Array [0..4] of TDTMPointDef;
  BankTDTM: TDTM;
  BankDTMTol : Integer;
begin
  BankDTMTol := 40

  BankMainPoint.x := 632;
  BankMainPoint.y := 70;
  BankMainPoint.AreaSize := 0;
  BankMainPoint.AreaShape := 0;
  BankMainPoint.Color := 5087402;
  BankMainPoint.Tolerance := BankDTMTol;

  BankSubPoints[0].x := 632;
  BankSubPoints[0].y := 70;
  BankSubPoints[0].AreaSize := 1;
  BankSubPoints[0].AreaShape := 0;
  BankSubPoints[0].Color := 5087402;
  BankSubPoints[0].Tolerance := BankDTMTol;

  BankSubPoints[1].x := 632;
  BankSubPoints[1].y := 77;
  BankSubPoints[1].AreaSize := 1;
  BankSubPoints[1].AreaShape := 0;
  BankSubPoints[1].Color := 5087402;
  BankSubPoints[1].Tolerance := BankDTMTol;

  BankSubPoints[2].x := 638;
  BankSubPoints[2].y := 77;
  BankSubPoints[2].AreaSize := 1;
  BankSubPoints[2].AreaShape := 0;
  BankSubPoints[2].Color := 1462373;
  BankSubPoints[2].Tolerance := BankDTMTol;

  BankSubPoints[3].x := 638;
  BankSubPoints[3].y := 71;
  BankSubPoints[3].AreaSize := 1;
  BankSubPoints[3].AreaShape := 0;
  BankSubPoints[3].Color := 1462373;
  BankSubPoints[3].Tolerance := BankDTMTol;

  BankSubPoints[4].x := 635;
  BankSubPoints[4].y := 76;
  BankSubPoints[4].AreaSize := 1;
  BankSubPoints[4].AreaShape := 0;
  BankSubPoints[4].Color := 1758693;
  BankSubPoints[4].Tolerance := BankDTMTol;

  BankTDTM.MainPoint := BankMainPoint;
  BankTDTM.SubPoints := BankSubPoints;
  Result := AddDTM(BankTDTM);
end;

function ToBank: Boolean;
var
  WalkDTM: integer;
begin
SetRun(True);
  WalkDTM := BankDDTM;
  if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
  begin
    Mouse(X, Y, 8, 8, True);
    WriteLn('Back to Bank');
    FFlag(0);
    Result := True;
  end else
    if (FindSymbol(x, y, 'Bank')) then
      begin
        MakeCompass('N');
        Mouse(x, y, 2, 2, True);
        FFlag(0);
        Wait(585 + Random(315));
        Writeln('Found bank by symbol');
        Wait(855 + Random(520));
    end else
      begin
      Result := False;
      Writeln(' Both DDTM and failsafe dont work tell Griff and Blumblebee to fix their script...politely of course');
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
      end;
    end;
end;

function Banking: Boolean;
begin
WillowDTM := DTMFromString('78DA63FCC4C4C0D0C9C8800A1819FE8349068' +
                 '6FF40C0C8C08C550D8204D2AC40355308A86104AA994940CD37A0' +
                 '7BE61050F31AA8A68F0835B3F0AB010040990CF0');
Wait(350 + Random(500));
Writeln('Banking...');
begin
OpenBankFast('db');
  FFlag(0);
  Wait(500);
if FindDTM(WillowDTM,x,y,MIX1,MIY1,MIX2,MIY2)
then
begin
Mouse(x, y, 4, 3, false);
     Wait(200 + Random(100));
     ChooseOption('All');
     FreeDTM(WillowDTM);
end;
CloseBank;
     Wait(150 + random (250));
     MakeCompass('N');
        chopped:=chopped+27
        wait(500+ Random(200))
  end;
end;

procedure FindBrokenAxe;
var
  baxe: integer;
begin
  if not (LoggedIn) then
    Exit;
  if TimeFromMark(baxe) < 1000 then
    Exit;
  FindNormalRandoms;
  MarkTime(baxe);
  if (FindBlackChatMessage('You do not')) then
  begin
    Writeln('Broken Axe...Getting new axe.');
    ToBank;
    Banking;
  end;
end;

procedure Chopping;
var
  x : integer;
  y : integer;
begin
Writeln('Chopping Willow trees!');
wait(4000+random(250));
repeat
if not(LoggedIn) then Exit;
If(FindNormalRandoms) or (InvFull) then Exit;
AntiChat;
if FindObjTPA(x, y, 4876128, 20, 2, 15, 25, 10, ['illow', 'Willo', 'Willow']) then
    begin
    Mouse(x, y, 0, 0, false);
    ChooseOption('hop')
    FindObjTPA(x, y, 4876128, 20, 2, 15, 25, 10, ['illow', 'Willo', 'Willow'])
    end;
    repeat
    wait(1000+random(175));
    Until  not IsUpText('Willow')
AntiBan;
FindallRandoms;
Until(invfull);
end;

    
procedure ProgressReport;
begin
  begin
    ClearDebug;
  end;
  SRLRandomsReport;
  WriteLn('****************************************');
  WriteLn('****************************************');
  WriteLn('    << << <<Progress Report>> >> >>     ');
  WriteLn('________________________________________');
  Writeln('         Script Ran For ' + TimeRunning);
  Writeln('    Willows Chopped ' + IntToStr(Chopped) + ' Log(s).');
  writeln('****************************************');
  writeln('****************************************');
end;

begin
  SetupSRL;
    WillowDTM := DTMFromString('78DA63E4656060E066400151818A609A11CA6' +
    '79444E24081B38D24AA1A59202184AAC6584F08550D1790104755539' +
    'CE584AA86094808A0AAC94DB14355C30E2458F0BB07002C7C0549');
  DeclarePlayers;
  if LoggedIn then Logout;
  LoginPlayer;
  MakeCompass('N');
  repeat;
  AntiChat;
  ToTrees;
    Chopping;
    if InvFull then
    begin
     ToBank;
     Banking;
     ProgressReport;
     AntiChat;
  done:=done+1;
   end;
  until(done >= LoadsPerPlayer);
      begin
        NextPlayer(True);
      end;
    if not Loggedin then NextPlayer(False);
end.

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

Yesterday:

From: Nielsie95
It seems like you're not getting in, sorry.
You may try again in one month, good luck
Closed.

Don't try to apply each day! That annoys other people. Just wait, and improve your script in the time you have to wait. Sorry, No from me.

Auto-No

You forgot to put

my friend ;p

larun you cant vote yet plz read the sticky at the top of the app thread you have to wait 2 weeks after becoming a member.. and griff it hasnt been a month since you last app and i cant read the script plz use scar tags

no

vote again at the right specified time

edir: i sugest taking a good long hard look at wht masterkill posted in your last app and the links before reapplying and also all this isnt your work as blumblebee or whoever helped make it.

From: laurenssie0
Yesterday:


Don't try to apply each day! That annoys other people. Just wait, and improve your script in the time you have to wait. Sorry, No from me.

yeah dont vote..

and griff, take your time. and dont be in a hurry wait atleast 1 month …-.-

he is a fast learner guys, give him a chance. I bet i can teach him TPA's in 3 days. Come on, took me friggin all June to learn All the intermediates stuff.

He may be a quick learner but he still has to wait the time period.
Death if you work with him and in 2 weeks, you think there is a very good improvement, get him to PM me with the script and I will talk to nielsie and he may be allowed to apply sooner.

Cheers,
Hobbit