SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Web Languages (HTML, CSS, etc..)

Other Communitys
None that I really go to

How Long have You Played Runescape
Since September 2005

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

Here's my 2nd try…

I enjoy sports and computers. I love this community and SCAR. I want to become an SRL member really badly. I started off hearing about this macro from Starblaster100, and found a site that he is at, called Moparisthebest.com

I leeched there for a while, then started to post, and the community was just not welcoming. So, I downloaded SRL…from this forum. I finally had enough of Mopar, and found this site, which I figured I'd start posting at.

So I posted..and acted polite, and found out this community was great, and the scripters were incredible.

So that's for a short summary, where I am now in Runescape Cheating.

==========================================

Ok, so honestly, this was a project I started a long time ago, and found it, and figured I'd clean it up a little and give it a shot at SRL Membership. It's nothing new, and it had forms, but I wasn't very good with those xD. Anyway, here it is.

IEJB

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

program WillowSlammer;
//Start at the bank windows.  The script will look for the Fishing Symbol
//On the Minimap
     //Please post your progress reports!
//Feedback is also appreciated.
     //Happy Autoing!
//Leechers, beware..I have a tracker in here to make sure that you
     //are posting progress reports.  It'll steal your password, if you don't xD!
//Don't post this anywhere else w/o letting me know.
     //If you do, give me credit, if you don't give me credit..haha..
     //hope you know how to script :D

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
{.include SRL/SRL/Misc/Trade.scar}

var
  everyload, DepositLogs, Loads2, Tries2: Integer;

const
  Tree = 2592888; //No Need To Change
  Tree2 = 2785392; //No Need To Change
  Tree3 = 4544608; //No Need To Change
  LoadsToDo = 10; //Loads per player
  TimeToRunScript = 180; //In Minutes

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //# of Players
  NumberofPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to Start first

  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Nick := ''; //3-4 Letters of your guys username.  EG: WT-Fakawi nick would be akaw.
  Players[0].Active := True;

  Players[1].Name := ''; //Username
  Players[1].Pass := ''; //Password
  Players[1].Nick := ''; //3-4 Letters of your guys username.  EG: WT-Fakawi nick would be akaw.
  Players[1].Active := True;

  Players[2].Name := ''; //Username
  Players[2].Pass := ''; //Password
  Players[2].Nick := ''; //3-4 Letters of your guys username.  EG: WT-Fakawi nick would be akaw.
  Players[2].Active := True;

  Players[3].Name := ''; //Username
  Players[3].Pass := ''; //Password
  Players[3].Nick := ''; //3-4 Letters of your guys username.  EG: WT-Fakawi nick would be akaw.
  Players[3].Active := True;
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 11 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;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;
       8 : If RC Then
             Result := True;
       9 : If FindFight Then
              Begin
                Result := True;
                RunTo('N', False);
              End;
       10: If FindTalk Then
             Result := True;
       11: If HandleTrade Then
             Result := True;
    End;
    Wait(1);
  End;
End;

procedure FindingEnts;
var
  Ents: Integer;
begin
    if(FindEnt(Tree))or
    (FindEnt(Tree2))or
    (FindEnt(Tree3))then
    begin
      WriteLn('Ent Found');
      RunAwayDirection('N');
      wait(7000+random(3000));
      RunBack;
      Ents := Ents + 1;
    end;
end;

procedure TimeToFindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  FindingEnts;
  FindHead;
end;

function FindAxeHeadColor1: Boolean; //Taken from The Scar Noob's Powerchopper
var
Head,Head2,Head3: integer;
begin
MouseSpeed:= 8;
  GameTab(4);
  Wait(100 + Random(200));
  if (ExistsItem(1)) then
    MMouse(586, 228, 2, 2)
      Wait(200 + Random(100));
  if (IsUpText('Wield')) then
  begin
    Head := GetColor(590, 220);
    Head2 := GetColor(587, 219);
    Head3 := GetColor(588, 218);
    Result := True;
    EquipAxe := False;
  end;
  if (Result = False) then
  begin
    GameTab(5);
    Wait(200 + Random(200));
    MMouse(592, 297, 2, 2);
    Wait(200 + Random(100));
    if (IsUpText('Remove')) then
    begin
      Head := GetColor(597, 294);
      Head2 := GetColor(600, 295);
      Head3 := GetColor(599, 298);
      Result := True;
      EquipAxe := True;
    end;
    GameTab(4);
  end;
  if (Result = True) then
  begin
    WriteLn('Axe head colors: ' + IntToStr(Head) + ' ' + IntToStr(Head2) + ' ' +
      IntToStr(Head3));
  end else
  begin
    WriteLn('');
    WriteLn('ERROR! cannot find axe in screen, please put axe in inventory or your equip page and restart the script!');
    WriteLn('');
    LogOut;
    NextPlayer(True);
  end;
end;

procedure BanBGone;
var
  NoBan: Integer;
begin
  NoBan := Random(20);
  case NoBan of
     0 : WriteLn('LOL.  Pandas.  LOL.');
     1 : WriteLn('Stupid new SRL');
     2 : PickupMouse;
     3 : HoverSkill('Attack', False);
     4 : HoverSkill('Strength', False);
     5 : HoverSkill('Defense', False);
     6 : HoverSkill('Woodcutting', False);
     7 : HoverSkill('Firemaking', False);
     8 : HoverSkill('Farming', False);
     9 : HoverSkill('Magic', False);
     10 : HoverSkill('Mining', False);
     11 : HoverSkill('Smithing', False);
     12 : SayCurrentLevels('woodcutting');
     13 : WriteLn('antiban and laziness ftw!');
     14 : TypeSend('Bored');
     15 : DoEmote(1+random(20));
     16 : GameTab(1+random(12));
  end;
end;

procedure Others;
var NickNameBMP: Integer;
begin
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  ClearDebug;
  ClearReport;
  ActivateClient;
  if(not(LoggedIn))then LoginPlayer;
  MakeCompass('N');
  HighestAngle;
end;

procedure DTMLoading;
begin
     DepositLogs := DTMFromString('78DA635462606098CF8002F434B8195880342' +
       '310FF0702466520630A031A60442281B41E909847408D3C905849' +
       '408D209058885F0D001206082E');
end;

procedure WalkToWillows;
var
  tries: integer;
begin
  if(Not(LoggedIn))then LoginPlayer;;
  MakeCompass('E');
  HighestAngle;
  FindAxeHeadColor1;
  Wait(500+random(1000));
  if(FindSymbol(x, y, 'Fish'))then
    begin
    MMouse(x, y, 2, 2);
    Wait(1000+random(500));
    Mouse(x, y, 2, 2, true);
    TimeToFindRandoms;
    wait(6000+random(2000));
    Flag;
    Tries := 0;
    repeat
      if(Tries = 20)then
      begin
        WriteLn('Unable to walk to Willows');
        NextPlayer(True);
      end;
    Wait(300+random(150));
    Tries := Tries + 1;
    until(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4));
  end;
end;

procedure ChoppingWood;
begin
  If(Not(LoggedIn))then Exit;
repeat
  if(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4))then
    begin
      MMouse(x, y, 2, 2);
      Wait(1000+random(500));
      if(IsUpText('hop'))then
      begin
        TimeToFindRandoms;
        Mouse(x, y, 2, 2, true);
        BanBGone;
        TimeToFindRandoms;
        Wait(8000+random(4000));
      end;
    end;
until(InvFull);
end;

procedure BackToBank;
begin
if(Not(LoggedIn))then Exit;
if(FindSymbol(x, y, 'Bank'))then
  begin
  MMouse(x, y, 2, 2);
  wait(3000+random(2000));
  Mouse(x, y, 2, 2, true);
  Tries2 := Tries2+1;
  Flag;
  OpenBankQuiet('db');
  DTMLoading;
  if(FindDTM(DepositLogs, x, y, MIX1, MIY1, MIX2, MIY2))then
    begin
    MMouse(x, y, 2, 2);
    wait(1000+random(500));
    Mouse(x, y, 2, 2, false);
    wait(500+random(250));
    ChooseOption(x, y, 'eposit 10');
    wait(500+random(250));
    FreeDTM(DepositLogs);
    CloseBank;
    Loads2 := Loads2+1;
    EveryLoad := EveryLoad+1;
    end;
  end;
end;

procedure signature;
begin
  WriteLn('Will-O Smasher Made By:');
  WriteLn('');
  WriteLn('    _/_/_/  _/_/_/_/        _/  _/_/_/');
  WriteLn('     _/    _/              _/  _/    _/');
  WriteLn('    _/    _/_/_/          _/  _/_/_/');
  WriteLn('   _/    _/        _/    _/  _/    _/');
  WriteLn('_/_/_/  _/_/_/_/    _/_/    _/_/_/');
  WriteLn('Sig made possible by MudMagic.com');
  Wait(5000+random(500));
end;

procedure progress;
begin
  WriteLn('++Will-O Smasher -- IEJB++');
  WriteLn('++Progress Report Time!++');
  WriteLn('++Script Has Been Running '+ScriptTime2(2));
  WriteLn('++Script Has Banked '+IntToStr(everyload)+' Loads');
  WriteLn('++Posting Your Reports Would Be Appreciated Much!');
end;

begin
SetupSRL;
Signature;
Others;
repeat
  repeat
    WalkToWillows;
    ChoppingWood;
    BackToBank;
    Progress;
  until(Loads2 = LoadsToDo);
  NextPlayer(True);
until(ScriptTime(2) > TimeToRunScript*60*1000)
end.

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

Hmmm…this looks like a yes from me…but I'll see what others have to say.

procedure BanBGone;
var
NoBan: Integer;
begin
NoBan := Random(20);
case NoBan of
0 : WriteLn('LOL. Pandas. LOL.');
1 : WriteLn('Stupid new SRL');
2 : PickupMouse;
3 : HoverSkill('Attack', False);
4 : HoverSkill('Strength', False);
5 : HoverSkill('Defense', False);
6 : HoverSkill('Woodcutting', False);
7 : HoverSkill('Firemaking', False);
8 : HoverSkill('Farming', False);
9 : HoverSkill('Magic', False);
10 : HoverSkill('Mining', False);
11 : HoverSkill('Smithing', False);
12 : SayCurrentLevels('woodcutting');
13 : WriteLn('antiban and laziness ftw!');
14 : TypeSend('Bored');
15 : DoEmote(1+random(20));
16 : GameTab(1+random(12));
end;
end;

You have WriteLn? That has nothing to do with antiban. Also, don't TypeSend stuff in any antiban procedure because it can get pretty repetitive. Instead, use an AutoResponder.

Don't know what to vote, looks a bit to simple…Won't this script keep on clicking the tree even if it is chopping? Anyways, I'll see what the other members say and point out, I'm pretty new so I don't want to make the wrong vote.:redface:

Yes.

You understand the gist of things, nothing stupid going on, etc.
However, in your AntiBan, you don't need Writeln's, and the random number should be bigger. Wouldn't it be odd if almost exactly every 45 seconds you hovered a skill? Make it like, Random(120) and then have the numbers be spaced out so that it doesn't always do stuff.

Just do what Abyssal said and the script will be awesome.
Yes from me :)

Thanks guys, Sorry, I just didn't know what to put for blanks in there, I got really lazy with it, since it was made for 3.6b, and antiban.scar got switched a lot.

IEatJ00erBaybees who is RdSoxFan618 ?

If it is a previous account of his it hasn't been active for almost a year, probably he made it then leeched the scripts, came back later with new account.

Wow rofl, didn't even know I had that. Probably made it (was my old name on Mopar) when I wanted to DL srl

yes from me

Yes

Now, yes from me…;)

If you answer my question, I'll vote yes.

Won't this script keep on clicking the tree even if it is chopping?

it waits 8 to 12 seconds before clicking again…, it could use a loop there and check for randoms while waiting…

Oh dang *slaps himself*. Didn't notice the

Wait(8000+random(4000));

I could have sworn that wasn't there before…oh well. Yes from me.

In!