SRL Archive - News and General

I'm leaving the forums, so if anyone wants do delete my account, go ahead.

My main got banned for autoing (I don't auto on main?), so I'm done with RuneScape.

I will be on the forums for 2 more days.

Here is my last unfinished script, if anyone wants it.

program DemonMager;
{.Include SRL\SRL\misc\Smart.scar}
{.Include SRL\SRL.scar}
{.Include SRL\SRL\skill\Woodcutting.scar}

{****************************************************************************************************
                                 Start setting up the script
 ****************************************************************************************************}
const username  = '';            // The player's username.
      password  = '';            // The player's password.
      nickname  = '';            // The first 3-4 letters of the player's username.
{****************************************************************************************************
                                 Stop setting up the script
 ****************************************************************************************************}

var xx, yy, Mark, StartXP, i: Integer;
    RuneType: String;
    SpellArray, bored, angry, leaving: TStringArray;

procedure DeclarePlayer;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name   := username;
  Players[0].Pass   := password;
  Players[0].Nick   := nickname;
  Players[0].Active := true;
end;

procedure AntiBan;
begin
  case RandomRange(1, 50) of
    1: BoredHuman;
    3: RandomMovement;
    4: GameTab(RandomRange(1, 15));
    5: Sleep(RandomRange(4000, 10000));
    6: HoverSkill('woodcutting', false);
  end;
end;

{procedure SetupSMART;
begin
  Smart_Members := true;
  Smart_Server := RandomWorld(Smart_Members, False);
  Smart_Signed := False;
  Smart_SuperDetail := False;
end;}

procedure SetupPlayer;
begin
  bored := ['*sigh*', 'well im bored', 'bored', 'bord', '...'];
  angry := ['stfu', 'noob', 'stfu noob', 'omg u fail', 'fail', 'fail -->', '<-- fail'];
  leaving := ['c yall', 'im switching worlds', 'this sucks', 'im leaving', 'bya yall'];

//  StartXP := GetXP('woodcutting');
//  writeln('You have ' + IntToStr(StartXP) + ' Woodcutting XP.');

  MakeCompass('n');
  Sleep(RandomRange(1000, 1500));
  SetAngle(true);
  
  SetRun(true);
end;

{function IsCutting: boolean;
var G1, G2: Integer;
begin
  G1 := GetAnimation;
  sleep(RandomRange(2000, 2500));
  G2 := GetAnimation;

  if (G1 = G2)  then
  begin
    Result := true;
  end else
  begin
    Result := false;
  end;
end;}

{procedure PrintProggy;
begin
  writeln('[--------------------------------->');
  Sleep(300);
  writeln('[  Spells Cast:     ' + IntToStr(StartRunes - RuneAmountFix('inv', RuneType)));
  Sleep(300);
  writeln('[  Demons killed:   ' + IntToStr(DeadDemons));
  Sleep(300);
  writeln('[  Total XP Gained: ' + IntToStr(GetXP('magic') - StartXP));
  Sleep(300);
  writeln('[--------------------------------->');
end;
}
procedure PrintSiggy;
begin
  ClearDebug;
  writeln('[--------------------------------->');
  Sleep(300);
  writeln('[  Magic Owner v. 1.0.0.0');
  Sleep(300);
  writeln('[--------------------------------->');
end;

procedure ToTrees;
var mx, my: Integer;

begin
  RunTo('0', true);
  FFlag(0);
  FindSymbol(mx, my, 'tree');
  Mouse(mx, my, 0, 0, true);
  FFlag(0);
  Sleep(13000 + Random(1000));
  FFlag(0);

  if not(FindObjCustom(mx, my, ['agic'], [11400441, 14546680], 5)) then
  begin
    RunTo('e', true);
    SetRun(true);
    
    Sleep(13000 + Random(1000));

    FFlag(0);
    
    FindSymbol(mx, my, 'tree');
    Mouse(mx, my, 0, 0, true);
    
    FFlag(0);
    
    FindObjCustom(mx, my, ['agic'], [11400441, 14546680], 5);
    Mouse(mx, my, 0, 0, true);
    FFlag(0);
  end else
  begin
    FindObjCustom(mx, my, ['agic'], [11400441, 14546680], 5);
    Mouse(mx, my, 0, 0, true);
    FFlag(0);
  end;
end;

procedure ToGate;
var mx, my: Integer;
begin
  if (FindSymbol(mx, my, 'minigame')) then
  begin
    Mouse(mx, my, 0, 0, true);
  end else
  begin
    MakeCompass('n');
    Sleep(500 + Random(750));

    if (LinearWalk(4294809, 270 + RandomRange(-30, 10), 40, 2, 2)) then
    begin
      if (FindSymbol(mx, my, 'minigame')) then
      begin
        Mouse(mx, my, 0, 0, true);
        FFlag(0);
      end;
      
      writeln('Step 1 complete...');
    end else
    begin
      while not(FindSymbol(mx, my, 'minigame')) do
      begin
        MouseBox(MMCX - 60, MMCY - 20, MMCX - 30, MMCY + 10, 1);
        FFlag(2);
      end;
      
      if (FindSymbol(mx, my, 'minigame')) then
      begin
        Mouse(mx, my, 0, 0, true);
        FFlag(0);
      end;
    end;
  end;
  
  RunTo('306', true);
  
  FFlag(0);
  if FindColorTolerance(mx, my, 244, MMX1, MMY1, MMCX, MMCY, 2) then
  begin
    Mouse(mx + RandomRange(-5, 5), my + RandomRange(-5, 5), 0, 0, true);
  end else
  begin
    RunTo('15', false);
  end;
  
  FFlag(0);

  if not(FindObjCustom(mx, my, ['ate', '2'], [3758436, 4213072, 3291455, 4542038], 5)) then
  begin
    MarkTime(Mark);

    repeat
      case Random(2) of
        0: MakeCompass(Random(360));
        1: SetAngle(RBool);
        2: Sleep(500 + Random(1000));
      end;

      if (FindObjCustom(mx, my, ['ate', '2'], [3758436, 4213072, 3291455, 4542038], 5)) then
      begin
        MMouse(mx, my, 0, 0);

        if IsUpTextMultiCustom(['pen', 'ate', '2']) then
        begin
          Mouse(mx, my, 0, 0, false);

          Sleep(100 + Random(200));

          ChooseOption('pen');

          ToTrees;
        end else
        begin
          if IsUpTextMultiCustom(['ose', 'ate', '2']) then
          begin
            ToTrees;
          end;
        end;
      end;
    until (FindObjCustom(mx, my, ['ate', '2'], [3758436, 4213072, 3291455, 4542038], 5)) or (FindNormalRandoms) or (TimeFromMark(Mark) > 20000);
  end else
  begin
    MMouse(mx, my, 0, 0);

    if IsUpTextMultiCustom(['pen', 'ate', '2']) then
    begin
      Mouse(mx, my, 0, 0, false);

      Sleep(100 + Random(200));

      ChooseOption('pen');

      ToTrees;
    end else
    begin
      if IsUpTextMultiCustom(['ose', 'ate', '2']) then
      begin
        ToTrees;
      end;
    end;
  end;
end;

procedure SetupSMART;
begin
  Smart_Members := true;
  Smart_Server := RandomWorld(Smart_Members, False);
  Smart_Signed := False;
  Smart_SuperDetail := False;
end;

begin
  ClearDebug;
  SetupSRL;
  SetumSMART;
  
  PrintSiggy;

  DeclarePlayer;
  LoginPlayer;

  SetupPlayer;
  
  ToGate;
end.

Stop playing runescape, stay here?

Bye!

I don't really play RuneScape, but I still come here. But it's up to you, I suppose. Have fun with life! :)

Leaving such a great community because of loss of some pixels sounds like a really bad decision to me.
Reconsider, you have no idea what you'll miss if you leave.

And the opportunity for a fresh quickstart is always available.

Though, if you really decide to leave, then goodbye, and I hope you enjoyed your stay here.

I'm pretty sure most of the active user's here on SRL don't play RuneScape…be one of them :)

Me, I have very little time to do practically anything.

I'm not going to contribute much, but I can stay here.

I am in school for ~12 hours a day, doing math.

All that math combined with some scripting could have some nice potential :)

Ouch, I auto on my main like 24/7 and I've only had a couple of temps.

My main got banned months ago I didn't quit

My main got banned a while ago, it encourage me to learn scripting. [psychic] THIS IS A SIGN, LEAVE SRL AND YOU WILL BE MISSING SOMETHING THE REST OF YOUR LIFE. STAY AT SRL AND YOU WILL BE THE WORLD HOTTEST PIMP, WITH A MANSION AND A FERRARI.[psychic]

My psychic powaZ say it all.

Edit: Script: Umm why make the user information constant and have declare players too? Kinda useless, and you could add multiplayer, well you could have multiplayer too anyways..just gotta do something like:

Const
  Player_User = 'blahblah';        //Possible, but pointless? Reason?
  Player_Pass = 'blahblah';
  Player_Nick = 'blahblah';
  
  Player_User2 = 'blahblah';
  Player_Pass2 = 'blahblah';
  Player_Nick2 = 'blahblah';

*looks deep into your eyes and hypnotizes you* stay with us. *snaps his fingers* huh? what?

Lol, okay…

I won't be able to script much, but I'll stay.

As for the constants, I was making the script for my friend, and he can't code or do stuff like that.

That's why they are way up there, in the script, with comments.

Need any help? Hermen Otter @ Live . nl

don't quit lol… make a new account 100% auto on it :)

My main got banned, so I just bought an even better account :p