SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
nothing

Other Communitys


How Long have You Played Runescape
3 years

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

Well, when i started in this forum, i was basically a n00b. Then i started reading tuts, asking people and making scripts. I speak spanish and english.

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

// start in varrock east bank, any slot.
//axe equiped.

program OakBanker;
{.include srl/srl.scar}

var
  LogsChopped,LoadsDone,HowManyLoads,OakLog,OakEnt,Bankers : Integer;
  SetUped,IsInOak,Chopped : Boolean;
  Axe  : Array[0..4] of Integer;
const
  LoadsToDoPerPlayer = 10;
Procedure DeclarePlayers;
begin
  SRLID := ''; // enter or your computer will shut down :). joke.
  SRLPassword := ''; // enter your password
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';  // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := '';   // 3-4 letters of your Username
  Players[0].Active := True;   // are u going to use this player ?

end;
  
procedure DTMs;
begin
   OakLog := DTMFromString('78DA63946060601066400105E126609A11CA6' +
       '79404125C0C688011558D0A901024A0860F48701350C309242409' +
       'A8110212F204D4C8000919026AD408DB0500E1540279');

   Axe[0] := DTMFromString('78DA631467606090624001060A0A609A11CA6' +
       '704A9E16640038CA86A0480842A0135CA408297801A4520214A40' +
       '8D309010C7AF0600E26A019A'); // bronze axe
       
   Axe[1] := DTMFromString('78DA631462606010604001060A0A609A11CA6' +
       '71404122C0C688011550D17909023A0861748F01150230B24B808' +
       'A891266C0E00B910014C'); // iron axe

   Axe[2] := DTMFromString('78DA6314606060E0674001060A0A609A11CA6' +
       '704C93333A0014654351C404296801A1E20C14D408D34906023A0' +
       '461248F0E2570300AF320136');// steel axe
       
   Axe[3] := DTMFromString('78DA631461606010604001060A0A609A11CA6' +
       '71406122C0C688011550D2F901023428D1C0135B240828F801A90' +
       '19ACF8D50000C0470159'); // addy axe
       
  Axe[4] := DTMFromString('78DA639464606010604001060A0A609A11CA6' +
       '79400122C0C688011558D30901026A0461048C81150A30424F808' +
       'A85101126CF8D50000CDB20176'); // rune axe?? maybe...

  OakEnt := DTMFromString('78DA63E465606060674001FFFF436846289F9' +
       '1154830316005286AB809A89120428D2861BB00671B026E');
       
  Bankers := DTMFromString('78DA6364626060606640017FFE30816946289' +
       'F11C4656140038CA86A5809AB0100B3C80217');
end;

procedure AntiBannage;
begin
   if (not(LoggedIn)) then
   Exit;
   case random(40) of

     0: SleepAndMoveMouse(1232+random(857));
     1:begin
        HoverSkill('Fishing', false);
        wait(2000+random(1000));
        GameTab(4);
       end;
     2:begin
        HoverSkill('Cooking', false);
        wait(2000+random(1000));
        GameTab(4);
       end;
     3:begin
         DoEmote(1+random(17));
         wait(2546+random(165))
         GameTab(1 +random(5))
         Gametab(4)
       end;
     4: MMouse(random(250), random(250), 10, 10);
     5: BoredHuman;
     6: PickUpMouse;
     7:begin
        GameTab(1 + Random(12));
        wait(1000+random(1000));
        GameTab(4);
       end;
     end;
end;

Procedure Randoms;
begin
   if(not(LoggedIn))then
   Exit;
   FindNormalRandoms;
   if (FindFight) then
   begin
    Writeln(' Found Fight ')
    SetRun(true);
    RunTo('N',True);
   end;
end;

Procedure AutoResponder;
var
 x,y : Integer;
begin
   if FindText(x,y,'c lvl',SmallChars,MIX1,MIY1,MIX2,MIY2) or FindText(x,y,'c level',SmallChars,MIX1,MIY1,MIX2,MIY2) or FindText(x,y,'oodcutting lvl',SmallChars,MIX1,MIY1,MIX2,MIY2)then
   begin
    Writeln(' Someone is talking with me '+ (chr(13)) +' we are going to respond');
    SayCurrentLevels('woodcutting')
    if FindText(x,y,'i',SmallChars,MIX1,MIY1,MIX2,MIY2) or FindText(x,y,'ello',SmallChars,MIX1,MIY1,MIX2,MIY2)then
    case random(5) of
      0: TypeSend('hi');
      0: TypeSend('hiya');
      0: TypeSend('hello');
      0: TypeSend('whats up');
      0: TypeSend('yes?');
    end;
   end;
end;
   
Procedure SetUpCurrentPlayer;
 var
  x,y,i : Integer;
begin
  SetUped := False;
   if (not(LoggedIn)) then
   Exit;
   MakeCompass('E');
   wait (1000+random(666))
   MakeCompass('N');
   GameTab(4)
   for i := 0 to 4 do
   if (FindDTM(Axe[i],x,y,MIX1,MIY1,MIX2,MIY2))then
   begin
    Mouse(x,y,1,1,false);
    ChooseOption('xamine')
    wait(2000)
    if (IsChatBlackTextAnyLine('axe')) and (not(IsChatBlackTextAnyLine('this broken'))) then
    begin
     Writeln('Found axe')
     SetUped := True;
     if (IsChatBlackTextAnyLine('this broken')) then
     begin
      Writeln('Broken axe found...')
      MakeCompass('S');
      OpenBankQuiet('veb');
      FixBank;
      if(FindDTM(Axe[i],x,y,MIX1,MIY1,MIX2,MIY2))then
      Writeln('Another axe was found');
      Mouse(x,y,1,1,true);
      CloseBank;
      MakeCompass('N');
      SetUped := True;
      Exit;
      if(not(FindDTM(Axe[i],x,y,MIX1,MIY1,MIX2,MIY2)))then
      Writeln('No more axes was found');
      TerminateScript;
     end;
   end;
 end;
end;

procedure ToTheOak;
 var
  x,y,Rock,Road : Integer;
begin
   if (not(LoggedIn)) then
   Exit;
   if (Setuped) then
   begin
    IsInOak := False;
    Rock := FindRockColor;
    if FindColorSpiral(x,y,Rock,MMX1,MMY1,MMX2,MMY2)then
    Mouse(x,y,1,1,True);
    Flag;
    AntiBannage;
    Randoms;
    Road := FindVarrockRoadColor;
    RadialWalk(Road,50,90,70,0,1);
    AntiBannage;
    Randoms;
    IsInOak := True;
   end;
end;

Procedure Chopping;
 var
  a,b,c,d,x,y : Integer;
begin
   if (not(LoggedIn)) then
   Exit;
   if (IsInOak) then
   begin
    Chopped := False;
    SetAngle(true);
   repeat
     if (FindObjCustom(a,b, ['wn Oa','Oak','wn Oa','ak'], [2181180,2184264,2189148,3112046], 30)) then
     AntiBannage;
     Randoms;
     if (not(FindObjCustom(a,b, ['wn Oa','Oak','wn Oa','ak'], [2181180,2184264,2189148,3112046], 30)))then
     wait(5555+random(555));
     if (FindObjCustom(a,b, ['wn Oa','Oak','wn Oa','ak'], [2181180,2184264,2189148,3112046], 30)) then
     AntiBannage;
     Randoms;
     MMouse(a,b,2,2)
     if (IsUpText('ak'))then
     GetMousePos(a,b);
     Writeln('Found Oak')
     Mouse(a,b,3,3,false)
     if (not(FindDTM(OakEnt,x,y,MIX1,MIY1,MIX2,MIY2)))then
     ChooseOption('hop');
     if (FindDTM(OakEnt,c,d,MIX1,MIY1,MIX2,MIY2))then
     Writeln('*********Ent********');
     Status('ent found');
     AntiBannage;
     Randoms;
     wait(10000+random(5000))
     AntiBannage;
     Randoms;
     wait(4200+random(245))
    until(InvCount = 28)
     Chopped := True;
   end;
end;

procedure ToTheBankAndBank;
 var
  e,f,BackRoad,LadderColor : Integer;
  AngleFound : Extended;
begin
   if (not(LoggedIn)) then
   Exit;
   if (InvCount = 28) then
   begin
    if (Chopped) then
    begin
     LogsChopped :=LogsChopped + 27
     ReportVars[0] := 27;
     SendSRLReport;
     Writeln('Inventory full. letz go to the bank')
     MakeCompass('N')
     BackRoad := FindRockColor;
     RadialWalk(BackRoad,360,180,70,1,1)
     Writeln('We are in RadialWalk #1')
     Flag;
     Randoms;
     AntiBannage;
     SymbolAccuracy := 0.8;
     if (FindSymbol(e,f,'bank')) then
     Writeln('Bank symbol found');
     Mouse(e,f,2,2,true);
     MakeCompass('S');
     SetAngle(false);
     OpenBankQuiet('veb');
     Deposit(2,28,2);
     CLoseBank;
     AntiBannage;
     Randoms;
     LoadsDone := LoadsDone + 1
     Exit;
     SymbolAccuracy := 0.8;
     if (not(FindSymbol(e,f,'bank')))then
     begin
      Writeln('Bank symbol was not found trying to search with a DTM');
      if(FindDTMRotated(Bankers,e,f,MIX1,MIY1,MIX2,MIY2,0,360,1,AngleFound))then
      Writeln('DTM found');
      if(not(FindDTMRotated(Bankers,e,f,MMX1,MMY1,MMX2,MMY2,0,360,1,AngleFound)))then
      LadderColor := FindLadderColor;
      if (FindColorSpiral(e,f,LadderColor,MMX1,MMY1,MMX2,MMY2))then
      Writeln('Ladder found');
      Mouse(e,f,1,1,true);
      Flag;
      MakeCompass('S')
      SetAngle(false)
      OpenBankQuiet('veb')
      Deposit(2,28,2);
      CloseBank;
      AntiBannage;
      Randoms;
      LoadsDone := LoadsDone + 1
     end;
    end;
   end;
end;
Procedure Sig;
begin
   Writeln(' ______  _________   _______  _____              ')
   Writeln('| _____||  _____  | | _____| |_   _|   ')
   Writeln('||      | |     | | | |        | |  ')
   Writeln('||__    | |_____| | | |______  | |  ')
   Writeln('| __|   |  _____  | |_______ | | | ')
   Writeln('||      | |     | | _______| | | | ')
   Writeln('||____  |_|     |_| _________| |_|   ')
   Writeln('|_____|                             ')
   wait(1000)
   Writeln('OAK BANKER')
   Writeln('BY: CAZAX')
   Writeln('DONT LEECH')
end;

procedure Proggy;
begin
   Writeln('|---------------------------------|');
   Writeln('|Worked for:'+ TimeRunning+' -----|');
   Writeln('|Chopped '+ IntToStr(LogsChopped)+ '-----|');
   Writeln('|Banked:'+IntToStr(LoadsDone)+'---|');
   Writeln('|---------------------------------|');
   Writeln('|---------------------------------|');
   Writeln('|---------------------------------|');
end;

begin
 SetupSRL;
 ActivateClient;
 SRLID := SRLID;
 SRLPassword := SRLPassword;
 ScriptID := '634';
 DeclarePlayers;
 if SRLID = '' then
 begin
  Writeln('omg leecher...')
  OpenWebPage('http://www.stats.srl-forums.com/index.php')
  TerminateScript;
 end;
 if (not(LoggedIn))then
 LoginPlayer;
 DTMs;
 Sig;
 Disguise('YouTube - Rune...')
 repeat
  SetUpCurrentPlayer;
  ToTheOak;
  Chopping;
  ToTheBankAndBank;
  Proggy;
  SRLRandomsReport;
  SendSRLReport;
 until ( HowManyLoads = LoadsToDoPerPlayer)
end.

Thanks to HeavenzEyez1 for helping me with SRL-Stats.

Thanks to Derek for helping me with FindDTMRotated.

Thanks to Nielsie95 for his great AutoColor tut.

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

Work on your standarts, failsafes and learn multiplayer !!
remember script should be as random as possible… <–
Holding vote right no its leaning agienst No.

RadialWalk(Road,50,90,70,0,1);

Will cause problems cause you put the flag at the maximum distance of 70 meaning that many times the flag will be of the minimap and messing up the script.

As i never use autoresponders i don't have mutch experience with them, so my idea could be wrong. But doesn't yours say a greeting each time it find the letter i?

EDIT1: Will only happen after they asked for your lvl and you responded, then it will find the letter "i" somewhere and say a greeting. Might get you reported easelly

EDIT2: Actually why do you have that procedure in your script at all? i don't see it being used anywhere?

It would if it did. Also you don't need a dtm for every axe. Just put the mid point at 300 tol. Sorry I'm leaning to a no.

thx guys. The next time will be.

Yes from me. Good luck cazax.

Sorry it's a no from me.. just too many things that are either overcomplicated, lifted from other scripts or just won't work..

Good effort though keep it up and I'm sure you will get in next time.

You're standards needs improving;)
Also you do Findobjcustom 3 times in 6 lines…try to make this thingy more stable…

Holding Vote

no.

From: NaumanAkhlaq
no.

reasons?

From: Negaal
You're standards needs improving;)
Also you do Findobjcustom 3 times in 6 lines…try to make this thingy more stable…

Holding Vote

ok.

From: PriSoner
Sorry it's a no from me.. just too many things that are either overcomplicated, lifted from other scripts or just won't work..

Good effort though keep it up and I'm sure you will get in next time.

the next time will be.

From: JAD
Yes from me. Good luck cazax.

:)

I tried to run the script, and it runs.

From: Psychor

RadialWalk(Road,50,90,70,0,1);

Will cause problems cause you put the flag at the maximum distance of 70 meaning that many times the flag will be of the minimap and messing up the script.

Well, the radialwalk works perfect while doing this.

——————————————————-
Thanks to all people for teaching and correcting me.

This isnt multiplayer..

 until ( HowManyLoads = LoadsToDoPerPlayer)
end.

So you set to 5 loads and script is finished, im voting no i dont see failsafes with walking, The DTM's are from SRL the axe ones (I think, unless you just took the same style and took your own DTM's.

Im voting No, Sorry.

From: Mylesmadness
It would if it did. Also you don't need a dtm for every axe. Just put the mid point at 300 tol. Sorry I'm leaning to a no.

255 is max tolerance if I remember correctly. That makes 300 overkill, no?

From: richk1693
255 is max tolerance if I remember correctly. That makes 300 overkill, no?

300 and 255 won't make a difference.

The max tolerance is a bit higher than 255:

program New;
var
  i: Integer;
begin
  ColorToleranceSpeed(0);
  for i := 0 to 600 do
    if SimilarColors(clWhite, clBlack, i) then
      Break;
  WriteLn(IntToStr(i));
  ColorToleranceSpeed(1);
  for i := 0 to 600 do
    if SimilarColors(clWhite, clBlack, i) then
      Break;
  WriteLn(IntToStr(i));
  ColorToleranceSpeed(2);
  for i := 0 to 600 do
    if SimilarColors(clWhite, clRed, i) then
      Break;
  WriteLn(IntToStr(i));
end.

Cazax, I'm afraid you're not getting in this time.
Better luck next time :)
You may try again in one month.
Closed.