SRL Archive - Archive

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

What is the meaning to life?
You only got one, make the best of it


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


Programming Knowledge
Actionscript 2.0

Other Communitys
none

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'm 16 years old, smart, quick learner, and have now taken to scripting. I'm getting pretty good at scripting and love learning new things,(I spent a lot of time looking at tutorials). I'm hoping to become an SRL member so that I can take my scripting to the next level. I have used the SRL application tool and scored a 132 with my script. I hope you accept me, and thanks for your time,

-Blumblebee

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

program DraynorMasher;
{.include SRL/SRL/Misc/Smart.scar}
{.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, Lvlups, 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
  
  World = 81;//World you want to smart to load
  
  procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'yogie range';
  Players[0].Pass := 'pass123';
  Players[0].Nick := 'ogie';
  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 Intro;
begin
  Disguise(' Chopped: ' + IntToStr(Chopped) + ' Log(s)')
  ClearDebug;
  wait(225);
  WriteLn(' Griff721 and');
  wait(1000);
  WriteLn('  ___       ____     ____');
  wait(225);
  WriteLn(' | __  \   |  ___|  |  ___|   ');
  wait(225);
  WriteLn(' | |  | |  | |___   | |___');
  wait(225);
  WriteLn(' | ___ /   |  ___|  |  ___|');
  wait(225);
  WriteLn(' | |__| |  | |___   | |____');
  wait(225);
  WriteLn('  \____/   | ____|  |  ____|');
  wait(500);
  WriteLn('    Copyright © 2008-2009 Blumblebee/Griff721  ');
  wait(1500)
  ClearDebug;
  WriteLn('Proudly Present:');
  Wait(2000);
  ClearDebug;
  WriteLn('    <////////////');
  WriteLn('     ///       //');
  WriteLn('     //       // ');
  WriteLn('    //       //   ');
  WriteLn('  ///       // RAYNOR WILLOW MASHER  ');
  WriteLn('<////////////    ');
  Wait(1500);
  WriteLn('        Version 1.6')
  Wait(2000); // to give SMART an extra Time to start
end;

procedure AntiChat;//will be fixed for next update
begin
  if (InChat('wc')) then
    TypeSend('60');
  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;
        
function FindGainedLevel: boolean;
begin
  if not LoggedIn then Exit;
  if ClickContinue(False,False) then
  begin
    if FindNPCChatText('lations', Nothing) then
    begin
      writeln('We gained a woodcutting level!');
      Lvlups:=Lvlups+1;
      ClickContinue(True,True);
      Result := True;
      Exit;
    end;
  end;
end;

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

3: begin
         MakeCompass('N');
         wait(100+random(5));
         MakeCompass('S');
         wait(100+random(5));
         MakeCompass('N');
       end;
4: begin
        RandomRClick;
        wait(500 + random(500));
        end;
5: begin
    IdleTime(1000 + Random(750), 500, 0.5);
        Wait(300 + random(700));
       end;
  end;
   end;

   function EntTextFinder: boolean;
begin
  if InvFull or not (LoggedIn) then
    Exit;
  if IsUpText('Chop') then
  begin
  Writeln('******Found Ent******');
      Result := True;
    begin
    FFlag(0);
    Wait(1000 + random(500));
    if FindSymbol(x, y, 'fish') then
    begin
      mouse(x, y + 15, 6, 6, true);
      EntsAvoided := EntsAvoided + 1;
end;
 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 := 629;
  dtmMainPoint.y := 35;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := 5134671;
  dtmMainPoint.Tolerance := 50;

  dtmSubPoints[0].x := 625;
  dtmSubPoints[0].y := 33;
  dtmSubPoints[0].AreaSize := 1;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := 3029039;
  dtmSubPoints[0].Tolerance := 50;

  dtmSubPoints[1].x := 630;
  dtmSubPoints[1].y := 38;
  dtmSubPoints[1].AreaSize := 1;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 4344899;
  dtmSubPoints[1].Tolerance := 50;

  dtmSubPoints[2].x := 631;
  dtmSubPoints[2].y := 32;
  dtmSubPoints[2].AreaSize := 1;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 1713179;
  dtmSubPoints[2].Tolerance := 50;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;
function FindRockDDTM(A, B, C, D: integer): boolean;
var TheDTM: Integer;
begin
  TheDTM := RockDDTM;
  Result := FindDTM(TheDTM, X, Y, A, B, C, D);
  FreeDTM(TheDTM);
end;
function ToTrees: Boolean;
var
  RockDTM: integer;
begin
if not (LoggedIn) then
    Exit;
SetRun(True);
FindAllRandoms;
  RockDTM := RockDDTM;
  if (FindRockDDTM(588, 12, 639, 58)) then
  begin
    Mouse(X, Y, 8, 8, True);
    WriteLn('Going to willows');
    FFlag(2);
    Result := True;
  end else
    if RadialWalk(FindWaterColor,150,250,72,4,4) then
    begin
      Writeln('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 seem 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
makeCompass('n');
SetRun(True);
FindAllRandoms;
    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
      Mouse(x, y, 3, 3, true);
      FFlag(0);
      Writeln('Back to Bank');
      Result := True;
  end else
    if RadialWalk(BankColor,150,250,72,4,4) then
    begin
      Writeln('Back and Bank');
      Result := True;
      end else
    begin
      Result := False;
      Writeln(' Both DDTM and Radial Walks failed tell Griff and blumblebee to fix they re script...politely of course');
      FreeDTM(WalkDTM);
      if not (Result) then
      begin
        Logout;
        exit;
      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');
     Result := True;
        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;
FindBrokenAxe;
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
    FindAllRandoms;
    FindBrokenAxe;
    AntiBan;
    wait(500+random(250));
    FindGainedLevel;
    wait(1000+random(175));
    Until  not IsUpText('Willow') or (InvFull);
AntiChat;
FindAllRandoms;
FindBrokenAxe;
FindGainedLevel;
Until(invfull);
end;

procedure ProgressReport;
begin
  SRLRandomsReport;
  WriteLn('****************************************');
  WriteLn('****************************************');
  WriteLn('    << << <<Progress Report>> >> >>     ');
  WriteLn('________________________________________');
  Writeln('         Script Ran For ' + TimeRunning);
  Writeln('         Willows Chopped ' + IntToStr(Chopped) + ' Log(s)');
  Writeln('         Ents Avoided ' + IntToStr(EntsAvoided) );
  Writeln('         Gained ' + IntToStr(Lvlups) + ' WC Level(s)' );
  writeln('****************************************');
  writeln('****************************************');
end;

begin
  SetupSRL;
  SmartSetupEx(World, True, True, False);
  SetTargetDC(SmartGetDC);
  Intro;
    WillowDTM := DTMFromString('78DA63E4656060E066400151818A609A11CA6' +
    '79444E24081B38D24AA1A59202184AAC6584F08550D1790104755539' +
    'CE584AA86094808A0AAC94DB14355C30E2458F0BB07002C7C0549');
  DeclarePlayers;
  if LoggedIn then Logout;
  LoginPlayer;
  MakeCompass('N');
  SetAngle(true);
  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 –>

surely 2 people shouldnt be aloud to apply with the same script griff applys with this script too and this is'nt all you're work so i think you'se should not be allowed to apply with it

"holding vote"

Hmm

 TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;
function FindRockDDTM(A, B, C, D: integer): boolean;
var TheDTM: Integer;
begin
  TheDTM := RockDDTM;
  Result := FindDTM(TheDTM, X, Y, A, B, C, D);
  FreeDTM(TheDTM);
end;
function ToTrees: Boolean;
var

them standards are a bit iff im not to fussd about standards other then putting a line between functions procedures ad 2 space for loops

Nope, sorry.

Standards are way off.

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);

Just use SRL's deposit functions.

Your ent finder wont work… Even when its not an ent the up text is: Chop [tree here].

You have most of the concepts down you just need to work on your excecution.

I also want to know how much is actually yours, and how much is griffs?

Code isn't that bad…but yeah standards sucks ass:p yes from me.

Standards arent everything… Im sorta in the middle.

ummm, im gunna think about it.

no from me.

I want to see YOUR OWN script please.
Your standards are crap :p
Your auto responder is slowwwww.

Sorry, a no from me too. I don't think standards are all the much, but they do help and show you have good efficient code i believe.

this is just wierd:

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;

What's that all about? ends should line up with your begins.

No, standards are awful.

You need to work on how you run your script. Also, your auto-responder is slow not to mention will respond the EXACT same thing to each response, as well, may respond to itself.

Finally, make your own script… working together is great, but this is proof of your own scripting capabilities, not what two people can put together. Hell, if you put ten monkeys in a room, eventually they can write Shakespeare! :)

Nava2

thanks for the feedback, I wrote 90% of the script, griff wrote about 5% and the other 5% are to credits of people either helping me or me using functions.
I'll take in your suggestions and defiantly use standards next time hopefully next month I'll stand a better chance.
Thank you for your feedback and Time,
-Blumblebee