SRL Archive - Archive

How Long have You Played Runescape?
7 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
A little Java
A little Visual Basic
Pascal SRL (Still learning more!)


Are you a member of any other communities?
Sythe (Not active, but have a account)
RuneDream (Not active, but have a account)


Tell us about yourself…

From: kipjes bende
Well, hello im Bas.
I like relaxing with friends, fooling around with Simba, i enjoy making scripts. still looking into a huge project and might release to community.
Other then that i work 24hours a week, so i have plenty of time for SRL.

Please show us one (or multiple) of your scripts.

Program KipjesDungFarmer;
  {$Define SMART}
  {$Include SRL/SRL/Misc/SMART.simba}
  {$i SRL/SRL.simba}

Var

 MagebaneDTM:integer;
 PatchDTM:integer;
 PatchDTM1:integer;
 PatchDTM2:integer;
 PatchDTM3:integer;
 HarvestDTM:integer;
 HarvestDTM1:integer;
 GrimyHerbsDTM:integer;
 HighAlchDTM:integer;
 CleanHerbDTM:integer;
 HomeTeleportDTM:integer;
 CreateGatestoneDTM:integer;
 TradeTheSmugglerDTM:integer;
 BuyMagebaneSeedsDTM:integer;
 UseGateStoneTeleport:integer;

  arP: TPointArray;
  ararP: T2DPointArray;
  tmpCTS, i, arL: Integer;
  P: TPoint;

x,y:integer;

//Version 1.75

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

   // FILL IN //////////////////////////////////////

  Players[0].Name := '';     //Username
  Players[0].Pass := '';     //Password
  Players[0].Active := True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
  LampSkill := 'Farming';

  //DONT TOUCH ////////////////////////////////////////
end;

Procedure LoadDTM;
Begin
   MagebaneDTM := DTMFromString('mGQAAAHicY2RgYHAC4iIgntA4lYEVSDMCMQMAISMCYg==');
   PatchDTM := DTMFromString('m6wAAAHic42ZgYPgHxJyMEMwCxIxA/Bco9pUBwmYFYnYg/gnk7wbi/UB8AogvAvFNIL4PxA+B+AkQ3wPi80D8AIjrskKIxqxA9cRiRhIwEgAA3nEbEw==');
   PatchDTM1 := DTMFromString('mbQAAAHicY2VgYPgNxMyMDAz8QPwVyH4OxKeAeBsQ7wPiW0B8BYgr0wIwMCtQHB0zYsFgAACX4wzm');
   PatchDTM2 := DTMFromString('mbQAAAHicY2VgYHgFxP+AmIWRgeEykD4HxNOBuAeIpwDxIiCeAcQNuWEYmBUojo4ZsWAwAAClPQzy');
   PatchDTM3 := DTMFromString('mAAEAAHic42FgYHgFxH+g+DYQXwHiZ0D8GogfAvFnIP4LxDeg8ouBeAoQzwXiFUC8CIjnA/EMqNg0IJ4FxMuh4jWZQSRhLqAeUjAjiRgZAADeWiFz');
   HarvestDTM := DTMFromString('mWAAAAHicY2FgYHgOxI+B+AEQ3wXi60B8DYivAvEVIF7QuYlhSc92huX9uxhWTdzHwAoUQ8aMaBgEAD6+DqU=');
   HarvestDTM1 := DTMFromString('mrAAAAHic42BgYLgPxNeB+A4Q/wTiF1D+bSD+D8S7gHg9EG8H4kVAvBuIDwDxFiBeA8RTG5YxLO/fxTC3bT3Dgs5NDMv6doL5C7u2MMxuXcvAClSDDzMSwDAAADIYG9s=');
   GrimyHerbsDTM := DTMFromString('mGQAAAHicY2RgYAhiYmBIYmRgMDHUZWAG8oFMBgYAFKUBTw==');
   HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
   CleanHerbDTM := DTMFromString('mLgAAAHicY2JgYAhiYmAIBeJERgaGOCDWN9Fg0NCTZ2AGyoEwIxQzMAAASwgCdw==');
   HomeTeleportDTM := DTMFromString('mWAAAAHicY2FgYPBmYmDwQ8KcjAwMHEDMDMTcQBwbuJTBQSmZoSxuBphmBupBxoxoGAQALoIFvg==');
   CreateGatestoneDTM := DTMFromString('mbQAAAHicY2VgYAhmYmAIBGJfIPYE4jAgtmZkYDAGYisgtmWE8KX3z2IIeX2HQfb1MQbx2c1gzAzUj44ZsWAwAACvCAqg');
   TradeTheSmugglerDTM := DTMFromString('mGQAAAHicY2RgYHBkZGCYDqTbc7wZWIE0kMvAAAAe+AIf');
   BuyMagebaneSeedsDTM := DTMFromString('mGQAAAHicY2RgYHAC4iIgntA4lYEVSDMCMQMAISMCYg==');

 end;

Procedure FrDTMS;
Begin
  FreeDTM(MagebaneDTM);
  FreeDTM(PatchDTM);
  FreeDTM(PatchDTM1);
  FreeDTM(PatchDTM2);
  FreeDTM(PatchDTM3);
  FreeDTM(HarvestDTM);
  FreeDTM(HarvestDTM1);
  FreeDTM(GrimyHerbsDTM);
  FreeDTM(HighAlchDTM);
  FreeDTM(CleanHerbDTM);
  FreeDTM(HomeTeleportDTM);
  FreeDTM(CreateGatestoneDTM);
  FreeDTM(TradeTheSmugglerDTM);
  FreeDTM(BuyMagebaneSeedsDTM);
end;

procedure ProgressReport;
begin
    writeln('--------------------------------------------------------');
    writeln('--------------- Kipjes Dungeoneer Farmer ---------------');
    writeln('--------------- RunTime: ' + TimeRunning);
    writeln('--------------------------------------------------------');
    sleep(1500);
end;

procedure AntiBan;
begin
  if not(LoggedIn)then
  Exit;
  case Random(7)of
    0: HoverSkill('Farming', false);
    1: RandomRClick;
    2: BoredHuman;
    3: PickUpMouse;
    4: HoverSkill('Herblore', false);

  end;
end;

procedure Start;
begin

  wait(randomrange(300,400));
  SetAngle(SRL_ANGLE_LOW);
  wait(randomrange(300,400));

end;



  Procedure  CreateGateStone;
begin
writeln ('Not found Magebane seed, buying new seeds!')
      wait(randomrange(100,200));
   GameTab(Tab_Magic);
   wait(randomrange(100,200));

   CreateGatestoneDTM := DTMFromString('mbQAAAHicY2VgYAhmYmAIBGJfIPYE4jAgtmZkYDAGYisgtmWE8KX3z2IIeX2HQfb1MQbx2c1gzAzUj44ZsWAwAACvCAqg');
   if FindDTM(CreateGatestoneDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin
            MMouse(X, Y + 3, 0, 0);
     If WaitUptextMulti(['Create','Gatestone'], 500) Then
            Begin

              ClickMouse2(true);
                wait(randomrange(1000,1500));

                GameTab(Tab_Inv);

                wait(randomrange(500,600));

        ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07, 0.37);

 if FindColorSpiralTolerance(X, Y, 6911056, MIX1, MIY1, MIX2, MIY2, 34) then
    begin
      MMouse(X, Y, 3, 3);
        wait(randomrange(200,300));

     ClickMouse2(false)

         wait(randomrange(200,300));
         WaitOptionMulti(['Drop'], 250);
         wait(randomrange(500,700));
         FreeDTM(CreateGateStoneDTM);


                end;
                end;
                end;
                 end;

  Procedure  HomeTeleport;
    begin
    GameTab(Tab_Magic);
  HomeTeleportDTM := DTMFromString('mWAAAAHicY2FgYPBmYmDwQ8KcjAwMHEDMDMTcQBwbuJTBQSmZoSxuBphmBupBxoxoGAQALoIFvg==');
  if FindDTM(HomeTeleportDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin

           MMouse(X, Y + 3, 0, 0);
            If WaitUptextMulti(['Dungeon', 'Home','Teleport'], 500) Then
            Begin

              ClickMouse2(true);
                wait(randomrange(15000,16000));
                FreeDTM(HomeTeleportDTM);
                wait(randomrange(2000,2100));
                GameTab(Tab_Inv);
                wait(randomrange(200,300));
                end;
                end;
             end;



  Procedure TradeSmuggler;
  begin
  GameTab(Tab_Inv);
     tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.20, 0.08);

   if FindColorSpiralTolerance(x,y,3757413, MSX1, MSY1, MSX2, MSY2, 16) then

    begin
      MMouse(X, Y, 3, 3);
        wait(randomrange(200,300));
              if WaitUpTextMulti(['muggler','Smuggler','ggler'], 250) then
begin
        Writeln ('Found Smuggler! Trading!')
        ClickMouse2(false);
        wait(randomrange(200,300));
   WaitOptionMulti(['Trade'], 250);
                wait(randomrange(1500,2000));


                 MMouse(482,272+ 3, 0, 0);
               wait(randomrange(100,150));
               ClickMouse2(true);
              wait(randomrange(200,300));
                FreeDTM(TradeTheSmugglerDTM);

                end else
                repeat
                writeln('Cant find Smuggler, trying again.')
                   TradeSmuggler;
              wait(randomrange(500,600));

              until FindColorSpiralTolerance(x,y, 3757413, MSX1, MSY1, MSX2, MSY2, 16);


                     begin
      MMouse(X, Y, 3, 3);
        wait(randomrange(200,300));

              if WaitUpTextMulti(['muggler','Smuggler','ggler'], 250) then
begin
          wait(randomrange(300,400));

        Writeln ('Found Smuggler! Trading!')
        ClickMouse2(false);
        wait(randomrange(200,300));
        WaitOptionMulti(['Trade'], 250);
                wait(randomrange(1500,2000));


                 MMouse(482,272+ 3, 0, 0);
               wait(randomrange(100,150));
               ClickMouse2(true);
              wait(randomrange(300,400));


              end;
            end;
              end;
              end;

 Procedure BuyMagebanes;
 begin

 MMouse(48,86,10,10);
 wait(randomrange(700,800));

 if WaitUpTextMulti(['Magebane','agebane','bane','Magebane seed','gebane seed'], 250) then
begin
              ClickMouse2(false);
              wait(randomrange(300,400));
                  WaitOptionMulti(['Buy 250'], 250);
                wait(randomrange(1500,2000));

                  MMouse(486,18+ 3, 0, 0);
               wait(randomrange(100,150));
               ClickMouse2(true);
              wait(randomrange(400,500));

                  GameTab(Tab_Magic);

                 end;
                  end;



Procedure UseGStone;
begin
GameTab(Tab_Magic);
MMouse(596,276,3,3);
wait(randomrange(700,800));

 if WaitUpTextMulti(['atestone','Gatestone','stone','Gate','Teleport','eleport'], 250) then
begin

ClickMouse2(true);

                end;
                end;


Procedure ClickMagebane;
Begin

  GameTab(Tab_Inv);
tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.08, 0.25);

   if FindColorSpiralTolerance(x,y,9599371, MIX1, MiY1, MIX2, MIY2, 13) then

   MMouse(X, Y + 3, 0, 0);
                wait(randomrange(300,400));
              ClickMouse2(false);
              wait(randomrange(300,400));
                  WaitOptionMulti(['Use'], 250);
                wait(randomrange(500,600));


    end;

      Procedure DropGateStone;

    begin
  GameTab(Tab_Inv);

  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.05, 0.38);

   if FindColorSpiralTolerance(x,y,7240274, MIX1, MiY1, MIX2, MIY2, 34) then

    begin
      MMouse(X, Y, 3, 3);
        wait(randomrange(200,300));
              if WaitUpTextMulti(['atestone','Gatestone','stone','Gate'], 250) then
begin
        Writeln ('Found GS, Dropping!')
         wait(randomrange(200,300));
        ClickMouse2(false);
        wait(randomrange(200,300));
   WaitOptionMulti(['Drop'], 250);
                wait(randomrange(400,500));



    end;
      end;
        end;
Procedure UseOnFarming;
Begin
PatchDTM := DTMFromString('mFQEAAHic42VgYHgJxJ+A+B8Q3wfi60D8BIjfAvEXIL4LxPeg7FdA/B2INwDxPCBeCsSHgXgvEK8F4s1AvASI90HZ64B4BxAvBuLarBCSMStQH6mYkQyMAgCdMyUw');
PatchDTM1 := DTMFromString('mbQAAAHicY2VgYPgNxMyMDAz8QPwVyH4OxKeAeBsQ7wPiW0B8BYgr0wIwMCtQHB0zYsFgAACX4wzm');
PatchDTM2 := DTMFromString('mbQAAAHicY2VgYHgFxP+AmIWRgeEykD4HxNOBuAeIpwDxIiCeAcQNuWEYmBUojo4ZsWAwAAClPQzy');
PatchDTM3 := DTMFromString('mAAEAAHic42FgYHgFxH+g+DYQXwHiZ0D8GogfAvFnIP4LxDeg8ouBeAoQzwXiFUC8CIjnA/EMqNg0IJ4FxMuh4jWZQSRhLqAeUjAjiRgZAADeWiFz');

 GameTab(Tab_Inv);
  if FindDTM(PatchDTM, x, y, MSX1, MSY1, MSX2, MSY2) or
    FindDTM(PatchDTM1, x, y, MSX1, MSY1, MSX2, MSY2) or
    FindDTM(PatchDTM2, x, y, MSX1, MSY1, MSX2, MSY2) or
    FindDTM(PatchDTM3, x, y, MSX1, MSY1, MSX2, MSY2) then
  Begin
  wait(randomrange(200,300));
    MMouse(X, Y + 3, 0, 0);
       wait(randomrange(400,500));
      ClickMouse2(true);
        Writeln ('Clicking on Patch')

      wait(randomrange(9000,9100));
      FreeDTM(PatchDTM);
      FreeDTM(PatchDTM1);
      FreeDTM(PatchDTM2);
      FreeDTM(PatchDTM3);

      end else
      repeat
       wait(2000);
      writeln('Patch not found, Trying again!')
       wait(1200);

      until FindDTM(PatchDTM, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM1, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM2, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM3, x, y, MSX1, MSY1, MSX2, MSY2);
       begin
         wait(randomrange(200,300));
    MMouse(X, Y + 3, 0, 0);
       wait(randomrange(400,460));
      ClickMouse2(true);
        Writeln ('Clicking on Patch')
           wait(randomrange(9000,9100));

       end;
       end;


procedure HarvestPatch;
Begin
HarvestDTM := DTMFromString('mWAAAAHicY2FgYHgOxI+B+AEQ3wXi60B8DYivAvEVIF7QuYlhSc92huX9uxhWTdzHwAoUQ8aMaBgEAD6+DqU=');
HarvestDTM1 := DTMFromString('mrAAAAHic42BgYLgPxNeB+A4Q/wTiF1D+bSD+D8S7gHg9EG8H4kVAvBuIDwDxFiBeA8RTG5YxLO/fxTC3bT3Dgs5NDMv6doL5C7u2MMxuXcvAClSDDzMSwDAAADIYG9s=');

      GameTab(Tab_Inv);
  if FindDTM(HarvestDTM, x, y, MSX1, MSY1, MSX2, MSY2) or
     FindDTM(HarvestDTM1, x, y, MSX1, MSY1, MSX2, MSY2) then
  Begin
    MMouse(X, Y + 3, 0, 0);
       wait(randomrange(400,450));
      ClickMouse2(true);
        Writeln ('Patch fully grown, Harvesting.')

      wait(randomrange(1600,6100));
          FreeDTM(HarvestDTM);
          FreeDTM(HarvestDTM1);
      end else
      repeat

        Writeln ('Waiting for patch to Fully grow..')

      wait(randomrange(2000,2100));
      until FindDTM(HarvestDTM, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(HarvestDTM1, x, y, MSX1, MSY1, MSX2, MSY2);

      Begin
    MMouse(X, Y + 3, 0, 0);
    wait(randomrange(400,460));
      ClickMouse2(true);
        Writeln ('Patch fully grown, Harvesting.')

      wait(randomrange(7000,8000));
        FreeDTM(HarvestDTM);
        FreeDTM(HarvestDTM1);
    end;
     end;



     Procedure CleaningHerbs;
Begin
GrimyHerbsDTM := DTMFromString('mGQAAAHicY2RgYAhiYmBIYmRgMDHUZWAG8oFMBgYAFKUBTw==');

 GameTab(Tab_Inv);
  if FindDTM(GrimyHerbsDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin
    MMouse(X, Y + 3, 0, 0);

       wait(randomrange(400,450));
      ClickMouse2(true);
        Writeln ('Found Grimy Magebane, Cleaning!')

      wait(randomrange(6000,7000));
          FreeDTM(GrimyHerbsDTM);
      end else
      repeat

        Writeln ('Cant find Grimy Magebane, Trying again!')

      wait(randomrange(1000,1500));
      until FindDTM(GrimyHerbsDTM, x, y, MIX1, MIY1, MIX2, MIY2);

      Begin
    MMouse(X, Y + 3, 0, 0);
    wait(randomrange(400,460));
      ClickMouse2(true);
        Writeln ('Found Grimy Magebane, Cleaning!')

      wait(randomrange(6000,7000));
      FreeDTM(CleanHerbDTM);
    end;
     end;


     Procedure HighAlchItem;
Begin
 HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
       GameTab(Tab_Magic);
       wait(randomrange(400,500));
 if FindDTM(HighAlchDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin
       GameTab(Tab_Magic);
       wait(randomrange(100,150));

            MMouse(X, Y + 3, 0, 0);
               If WaitUptextMulti(['High', 'Alchemy'], 500) Then
            Begin

            Writeln ('Found High Alch spell')
              ClickMouse2(true);

        wait(randomrange(500,600));

               FreeDTM(HighAlchDTM);

               end;
             end;
             Gametab(Tab_inv);
           end;

     Procedure AlchingTheHerbs;
Begin
  CleanHerbDTM := DTMFromString('mLgAAAHicY2JgYAhiYmAIBeJERgaGOCDWN9Fg0NCTZ2AGyoEwIxQzMAAASwgCdw==');

      wait(randomrange(400,500));

 if FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin
       wait(randomrange(100,150));

            MMouse(X, Y + 3, 0, 0);
            Writeln ('Found Clean herb, Clicking.')

            wait(randomrange(100,150));
              ClickMouse2(true);

              wait(randomrange(150,200));
              GameTab(Tab_Inv);
           wait(randomrange(400,500));
                 GameTab(Tab_Inv);
                 wait(randomrange(150,200));
               end;
            end;


procedure MainLoop;
begin
     repeat
           GameTab(Tab_Inv);

     if (not FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
        begin
       CreateGateStone;
         DropGateStone;
         HomeTeleport;
          TradeSmuggler;
          BuyMagebanes;
          UseGStone;
          wait(randomrange(700,800));

        end else

           if FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin

        GameTab(Tab_Inv);
       ClickMagebane;
      UseOnFarming;

            wait(randomrange(1000,1100));
            AntiBan;
            ClearDebug; //ADDED CLEAR DEBUG
            wait(randomrange(200,300));
          ProgressReport;
          wait(randomrange(1000,1100));

       HarvestPatch;
     CleaningHerbs;

    repeat
       HighAlchItem;
       wait(randomrange(400,500));
        AlchingTheHerbs;
          wait(randomrange(400,500));

until (not FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2));

 GameTab(Tab_Inv);

     end;
       until(false);
      end;


Begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  LoadDTM;
  Writeln ('Waiting 10 Seconds before starting...')
  wait(10000);
  GameTab(Tab_Inv);
  wait(400);
  Start;
  wait(100);
  MainLoop;
end.

Your standards are all over the place man. Can you fix those up and edit your post? I can't read that at all without getting a headache.

Alright haha, im sorry. Hang on

+ Good use of SRL functions
+ Has DTM's
+ Longetivity and activity is acceptable

- No TPA's
- DeclarePlayers could be improved with a with..do
- Could use some records
- Standards are a bit off
- You load DTM's in your procedures and free them after the procedure is finished, and you call your LoadDTM procedure already in the start of the script, so you're loading them twice. Also you don't use your FrDTMS procedure.

All in all, sure it's a good script if it works for long periods of times, but it could use some more failsafes.

Voting no for the reasons I stated above.

I will learn some more and then come back. Areally 4 No's.

Thanks for the feedback, defenly going to work on it :)

Hey,

Not voting. Just came to say do as the guys up above said and also work on various scripts :) go and start a cooking one or something that allows more knowledge or brain power :)

Make a script to perfectly match a slayer task? :)

This will make your app a little stronger and allow you to learn more :)

I see you worked hard to create this script. But I do not think it is good enough to become a srl member yet.

Things I noticed:

[INDENT]Much to many global variables.
Memory leaks
Unused variables
Bad standards
[/INDENT]

I advice to use proper spacing cause it helps both you, the writer, as us, the readers. It look better and will help you to see the logic that flows through your script.

When you use a global load en free function for all your DTMs you shouldn't load them again in another function. This will cause memory hogging and will slow the bot down. Also there are some small memory leaks in the script, can you spot them? Hint; they occur when certain dtms aren't found.

Can you think of a way to store the DTMs in an array instead of a dozen variables? That will make script shorter, more dynamic and will probably bring you closer to a yes vote.

You can help reduce the lines when Freeing DTM's by using FreeDTMs, wtih which you can store multiple DTM's to free.
Also, you have created a 'FrDTM' procedure where you have Free'd all you DTM's, but you haven't called it anywhere in your script?

Moreover, I can see that you have used many global variables in your script, I suggest you take a look at the tutorial on Records in my sig. It will stop you from writing code like this:

      until FindDTM(PatchDTM, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM1, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM2, x, y, MSX1, MSY1, MSX2, MSY2) or
            FindDTM(PatchDTM3, x, y, MSX1, MSY1, MSX2, MSY2);

Just look at all those or's….


Also, here is just an example of what your procedure 'Mainloop' should look like, the standards are not perfect, but it's definitely readable:

procedure MainLoop;
begin
  repeat
    GameTab(Tab_Inv);

      if (not FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        CreateGateStone;
        DropGateStone;
        HomeTeleport;
        TradeSmuggler;
        BuyMagebanes;
        UseGStone;
        Wait(RandomRange(700,800));
      end else

      if FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        GameTab(Tab_Inv);
        ClickMagebane;
        UseOnFarming;
        Wait(RandomRange(1000,1100));
        AntiBan;
        ClearDebug;
        ProgressReport;
        Wait(RandomRange(1000,1100));
        HarvestPatch;
        CleaningHerbs;
          repeat
            HighAlchItem;
            Wait(RandomRange(400,500));
            AlchingTheHerbs;
            Wait(RandomRange(400,500));
          until (not FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2));
        GameTab(Tab_Inv);
      end;
 
  until(false);
end; 

Anyway, holding my vote for now :)


EDIT: Just another point I noticed, when setting your CTS to 2, you should set it back to normal after searching for your color (so you can find text again) :)

Thanks eveyone :) will keep the things you all said in mind!

You are headed the right way, but try to make your functions more complex and add more failsafe Mate, also the standards are kinda off so that needs some improvement.

Your attitude is great, so I am going to hold back on this one.

Good Luck!

Really good first application! If you could include a bit of walking, or at least some TPA usage, that would be best for an application in the future. I see you getting members next time you apply! (make sure you wait the appropriate length of time before applying again though)

Closing.

I would advise listening to those who have made suggestions. Best of luck in the future