Results 1 to 10 of 10

Thread: Enchant Level 2 Jewellery (Ring of Duelling)

  1. #1
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Question Enchant Level 2 Jewellery (Ring of Duelling)

    I'd like to request what seems like a fairly simple yet effective money making script.

    Emerald rings enchanted to rings of duelling = nice profit.

    Anyone interested?

  2. #2
    Join Date
    Jan 2012
    Location
    I live in Australia.
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how much profit exactly?

  3. #3
    Join Date
    Dec 2011
    Posts
    164
    Mentioned
    4 Post(s)
    Quoted
    23 Post(s)

    Default

    I can try to help you out

  4. #4
    Join Date
    Dec 2011
    Posts
    164
    Mentioned
    4 Post(s)
    Quoted
    23 Post(s)

    Default

    EDIT: Sorry for the Double Post :/

    Done.

    So have Cosmics and Air Runes in the first two spots of your inventory (or have an air battlestaff and change the i := 3, in the Procedure Enchanting this line "for i := 3 to 28 do" to for i := 2 to do 28

    Go to Soul Wars and have the Emerald rings in your bank, it's better if you don't have any other rings as tab headers or in that tab (it might work even better if you make a Dueling ring yourself, put it in another tab so the script doesn't get confused), start it up, and off you go!

    Simba Code:
    program Enchanter;
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    var
      t, r, q, m, ring, x, y, spell: integer;
      Clock: TIntegerArray;



    const
      Loads = 2500;             //How many Enchanting Cycles you wish to complete
      AntibanFrequency = 25;  //Set this to 10-30. The lower the number, the more frequent antiban will be.

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Member := True;
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];

    end;
     Procedure Bank;
     begin
     Ring := DTMFromString('mlwAAAHicY2dgYIgD4nQgTgLiTCCOAOJIII4F4rlAPAeI5wPxNCCeDsSTgXgCEB9aLg0kmbBiDgbcgBEPhgIAs8MIbQ==');
        OpenBankChestEdge(SRL_BANK_SW);
          repeat
            wait(randomrange(49,51));
          until(BankScreen);
          Mouse(655, 224, 3, 3, false);
          ChooseOption('All');
          FindDTM(Ring, x, y, MSX1, MSY1, MSX2, MSY2);
          Mouse(x,y, 2, 2, False);
          Wait(randomrange(1200, 1600));
          ChooseOption('aw-A');
          CloseWindow;


     FreeDTM(Ring);

     end;
     Procedure Enchant;
       var
      i : Integer;
     begin
     Spell := DTMFromString('m6wAAAHic42ZgYMhmYmAoBuJSKAax85gg4hlAnAbEmVAxXUYGBiMg1gNiLSBWB2JVKAaxQfLGQGwCxDKbmBik+ViIwlwMxANGEjASAACR+wlw');
     Gametab(Tab_Magic);
     Wait(randomrange(300,400));

      Wait(randomrange(200,300));
      for i := 3 to 28 do
      begin
      FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2);
      Mouse(x,y, 2, 2, true);
        wait(randomrange(400,600));
        InvMouse(i, 1);
       Gametab(Tab_Magic);
      end;
    end;


        Begin
        smart_server := 91;
        smart_members := false;
        smart_signed :=true;
        smart_superdetail := false;
        SetupSRL;
        DeclarePlayers;
        LoginPlayer;
        t:= 0
        begin
          repeat
           Bank;
           Enchant;
          until(t=Loads);
        end;
        end.
    Last edited by Iambubbleman; 02-05-2012 at 10:16 PM.

  5. #5
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    At the moment profit should be 500k+/hour.

    Did you add any anti bans to that script? i'll send you a pm soon.

  6. #6
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    I was hoping this would not be suggested here as this will almost immediately cause prices to crash if it is over leached.
    I advise not posting in the runescape scripts section if you want to avoid this

    There is not antiban used in that scripts, simply adding

    SCAR Code:
    Procedure Antiban;                  
    begin
      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
      Case Random(AntibanFrequencey) Of
        0:
          begin
            Writeln('Antiban');
            GameTab(tab_Stats) HoverSkill('Magic', False);
            Wait(400 + Random(450));
            GameTab(tab_Inv);
          end;
        1:
          begin
            Writeln('Antiban');
            GameTab(tab_Inv);
            ExamineInv;
          end;
        2:
          begin
            Writeln('Antiban');
            SleepAndMoveMouse(3500 + Random(600));
          end;
        3:
          begin
            Writeln('Antiban');
            GameTab(Tab_Stats);
            Wait(3000 + Random(1500));
            GameTab(tab_Inv);
          end;
        4:
          begin
            Writeln('Antiban');
            HoverSkill('random', False);
            Wait(1000 + Random(500));
            GameTab(tab_Inv);
          end;
        5:
          begin
            Writeln('Antiban');
            PickUpMouse;
          end;
        6:
          begin
            Writeln('Antiban');
            BoredHuman;
          end;
        end;
    end;

    and throwing the antiban procedure inside the other two would be effective enough.

    ~Caotom

    ~Caotom
    Last edited by Caotom; 02-06-2012 at 08:43 AM.

  7. #7
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't really know how to add that to the script, do you just copy & paste that below the original code?

  8. #8
    Join Date
    Jul 2009
    Location
    Australia
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    No I wont, as that would make the script far more leech friendly. My advice is to go to the beginners tutorials section and learn the basic structure and working of simba (pascal) so you can work with scripts and maybe even create your own

    If your looking where to start try
    Coh3n's beginner scripting tutorial
    or
    YoHoJo's video tutorials

    ~Caotom

  9. #9
    Join Date
    Jan 2012
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nevermind, i'm not going to risk screwing up my acc when i don't know what i am doing.

  10. #10
    Join Date
    Jan 2012
    Posts
    2,568
    Mentioned
    35 Post(s)
    Quoted
    356 Post(s)

    Default

    Quote Originally Posted by SlyPig View Post
    nevermind, i'm not going to risk screwing up my acc when i don't know what i am doing.
    there are so many wonderful tutorials that are easy and simple to follow, and hence preventing u from screwing ur acct by just leeching off completed scripts.

    If u r afraid of "screwing ur acc" u shdnt even be here as macroing poses a significant threat to ur acct, especially more so if u just use a completed script since another thousand leechers will be doing the same thing as you, and despite randomness and antibans its can still be pretty obvious that these thousand ppl are using the same bot with the same script.

    If u dont wish to learn to script a full script (which i dont see any reason not to), at least learn the basics so that u can tweak the scripts (adding ur own UNIQUE antibans, diff random wait etc--which will make u stand out from the thousand other leechers) and self fix any rs updates that affect the script.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •