SRL Archive - Archive

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

What is the meaning to life?
do what you like, like what you do


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


Programming Knowledge
Basic Java, HTML

Other Communitys
talkgeek, kaitnieks (long time ago), mopar, sythe, impsoft

How Long have You Played Runescape
too long (5+ years)

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

I love playing video games and doing schoolwork (odd I know) but autoing helps me achieve this. I learned of autoing from a random kid at my local library (yikes) and decided to check out kaitnieks, from there I went on to impsoft and mopar, and then to sythe, then to talkgeek, until I found out about srl-forums and this is currently the only one I stay active in. I have always kind of dabbled into scripting (eg. basic SCAR scripts and some Aryan) but haven't really got into it this much it. Now, at this time maybe more than ever, I feel that my services are greatly needed in the current (not for long) dilemma.

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

{|================================================================|
  |                  The Termite Version 1.0                       |
  |                      By Whatsthat                              |
  | Thank you very much to gerauchert and spaztaz666 for your help |
  |----------------------------------------------------------------|
  | This script will only power cut atm, and you will need to      |
  | choose the colors.  Please don't leech and please do post      |
  | progress reports and constructive critiscism.  Thank you!!!    |
  |----------------------------------------------------------------|
  | Use with Scar 3.12, and preferably with SRL 4, don't forget    |
  | to drag the crosshair over the Runescape client.               |
  |================================================================|}

 program Termite;
 {.include SRL/SRL.scar}
 {.include SRL/SRL/skill/WoodCutting.scar}

 var Loads: Integer;

 const
   LoadsPerPlayer = 25;  //This is how many loads each character will do.
   TreeColor = 0;  //Use the color picker to fill in a tree color. Use the lightest colors.
   WaitPerTree = 5000;
   AxeEquiped = False;
   TreeUpText    = 'ree';
   OakUpText     = 'ak';        //from pwnaz0r, still need to learn this as it does not work currently
   WillowUpText  = 'illo';
   MapleUpText   = 'aple';

 procedure DeclarePlayers;
   begin
     NumberOfPlayers(1);
     CurrentPlayer := 0;

     Players[0].Name := 'ddarkboww'; //Your character's name.
     Players[0].Pass := 'spartan'; //Your character's password.
     Players[0].Nick := 'bow'; //Your character's nickname, should be 2-3 letters.
     {Players[0].Strings[0]:= 'oak'} // Tree, Oak, Willow, or Maple, doesn't work atm
     Players[0].Active := True; //Is this characting going to be active?

     {Players[1].Name := '';
     Players[1].Pass := '';
     Players[1].Nick := '';
     Players[1].Active := False;

     Players[2].Name := '';           //remove the {'s to use multiple players
     Players[2].Pass := '';
     Players[2].Nick := '';
     Players[2].Active := False;

     Players[2].Name := '';
     Players[2].Pass := '';
     Players[2].Nick := '';
     Players[2].Active := False;}
   end;

 procedure ChopTree;
   var
     x, y, MyMark : integer;
   begin
     if not LoggedIn then
       Exit;
     MarkTime(MyMark);
   repeat
     wait(600);
       if FindObj(x, y, 'hop', TreeColor, 30) then
     begin
       Mouse(x, y, 0, 0, False);
         if ChooseOption('hop') then
     begin
       Exit;
     end;
   end;
     wait(500);
     if not FindObj(x, y, 'hop', TreeColor, 30) then
     break;
     if TimeFromMark(MyMark) > (2 * 60 * 100) then
     begin
       Logout;
       TerminateScript;
     end;
     until false
   end;

 function FindFastRandoms: Boolean;  // WT-Fakawi
 var
  i: Integer;
 begin
  for i:=1 to 10 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 FindTalk then Result:= True;
     end;
     wait(1);
   end;
 end;

 procedure Antiban;
   var
     DBanMe : Integer;
    begin
    DBanMe:= Random(20);
     case DbanMe of
     1:HoverSkill('random', False);
     3:GameTab(2 + Random(10));
     4:MMouse(Random(MSY1), Random(MSX1), 0, 0);
    end;
  end;

 procedure AntiRandoms;
   Begin
     FindMod;
     FindNormalRandoms;
     FindTalk;
     FindMime;
     FindMaze;
     DwarfItem;
     FindDemon;
     Solvepinball;
     FindLamp(Players[CurrentPlayer].Skill);
     UseBoxSolver := True
     UseCerterSolver := True
     UseSandwichSolver :=True
  end;

 function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
   var
   x, y:integer;
     begin
       if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
          (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
       begin
         GetMousePos(x, y);
         Mouse(x, y, 5, 5, False);
         if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
           begin
             if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
             begin
               Mouse(MMCX, MMCY, 5, 5, True);
               Writeln('Found ent. Waiting for ent to go away.');
               Result := True;
               EntsAvoided := EntsAvoided + 1;
             end;
           end;
        end;
    end;

 procedure Proggy;
   begin
     ClearDebug;
      Writeln('[]========================================[]');
      Writeln('---------------->Termite by Whatsthat<----------------');
      Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
      Writeln('---------------------------------------------');
      Writeln('[]========================================[]');
   end;

 begin
   SetupSRL;
   Disguise('Termite');
   Writeln('|================================================|')
   Writeln('|\     \ \  \ \\ \\\\\ \\\\\\ \\\\\ \  \ \\ \\\\\|')
   Writeln('| \  \  \ \\\\ \\\  \    \\\\    \   \\\\ \\\  \ |')
   Writeln('|  \\\ \\\ \  \ \  \ \   \\\\\\   \   \  \ \  \ \|')
   Writeln('|------------------------------------------------|')
   Writeln('|                  Whatsthat                     |')
   Writeln('|        Thank you for using The Termite         |')
   Writeln('|================================================|')
   DeclarePlayers;
   if Loggedin then Logout;
   LoginPlayer;

 repeat
   ChopTree;
   if InvFull then
   begin
     DropToPosition(2, 28)
     Inc(Players[CurrentPlayer].Banked);
     if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
     begin
       NextPlayer(True);
     end;
   end;
   if not Loggedin then NextPlayer(False);
 until false
 end.

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

Too simple. Sorry. No.

Sorry no, i agree with santa clause, it's his season now.

Good job for crediting the needed people.

You should learn more about the multiplayer utility, replace

     if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
     begin
       NextPlayer(True);
     end;

with

     if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
     begin
       Logout;
     end;

In the current mainloop of yours that isn't really required, since there is no usage of .Loc or a setup for each player / walking to a spot or something, but in future when your scripts do something more than cut and drop, you need that, otherwise the nextplayer would log in during the process and could mess up that player, like if one player walks to a spot, and doesn't find trees and you'd have nextplayer there, it would start searching for the tree without walking to the spot and not finding the trees it would log out like the nextplayer, causing the script run for less time.

Your script needs to be more complex, and you don't have the requirements which read in the sticky in FAQ.

Thank you and better luck next time.

Remember to wait atleast one month before your next apply!

too simple, standards are off. also

         if ChooseOption('hop') then 
     begin
       Exit;
     end;

you don't need an if there for ChooseOption(''), and when your if's only have one statement you don't need begin and end

if not LoggedIn then Exit
no begins/ends needed there.

learn standards, i strongly suggest you read The Claw's guide to a flawless script, that tut pretty much got me in here, read JAD's everything you need to know to become a member TUT and then read some more tuts to get a bigger grasp on everything. here's my contribution to you: standards

{|================================================================|
  |                  The Termite Version 1.0                       |
  |                      By Whatsthat                              |
  | Thank you very much to gerauchert and spaztaz666 for your help |
  |----------------------------------------------------------------|
  | This script will only power cut atm, and you will need to      |
  | choose the colors.  Please don't leech and please do post      |
  | progress reports and constructive critiscism.  Thank you!!!    |
  |----------------------------------------------------------------|
  | Use with Scar 3.12, and preferably with SRL 4, don't forget    |
  | to drag the crosshair over the Runescape client.               |
  |================================================================|}

program Termite;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

var
  Loads: Integer;

const
  LoadsPerPlayer = 25;  //This is how many loads each character will do.
  TreeColor = 0;  //Use the color picker to fill in a tree color. Use the lightest colors.
  WaitPerTree = 5000;
  AxeEquiped = False;
  TreeUpText    = 'ree';
  OakUpText     = 'ak';        //from pwnaz0r, still need to learn this as it does not work currently
  WillowUpText  = 'illo';
  MapleUpText   = 'aple';

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

  Players[0].Name := 'ddarkboww'; //Your character's name.
  Players[0].Pass := 'spartan'; //Your character's password.
  Players[0].Nick := 'bow'; //Your character's nickname, should be 2-3 letters.
  {Players[0].Strings[0]:= 'oak'} // Tree, Oak, Willow, or Maple, doesn't work atm
  Players[0].Active := True; //Is this characting going to be active?

  {Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := False;

  Players[2].Name := '';           //remove the {'s to use multiple players
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := False;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Active := False;}
end;

procedure ChopTree;
var
  x, y, MyMark : integer;
begin
  if not LoggedIn then Exit;
  MarkTime(MyMark);
  repeat
    wait(600);
    if FindObj(x, y, 'hop', TreeColor, 30) then
    begin
      Mouse(x, y, 0, 0, False);
      if ChooseOption('hop') then
      begin
        Exit;
      end;
    end;
    wait(500);
    if not FindObj(x, y, 'hop', TreeColor, 30) then
    break;
    if TimeFromMark(MyMark) > (2 * 60 * 100) then
    begin
      Logout;
      TerminateScript;
    end;
  until false
end;

 function FindFastRandoms: Boolean;  // WT-Fakawi
 var
  i: Integer;
 begin
  for i:=1 to 10 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 FindTalk then Result:= True;
     end;
     wait(1);
   end;
 end;

procedure Antiban;
var
  DBanMe : Integer;
begin
  DBanMe:= Random(20);
  case DbanMe of
    1:HoverSkill('random', False);
    3:GameTab(2 + Random(10));
    4:MMouse(Random(MSY1), Random(MSX1), 0, 0);
  end;
end;

procedure AntiRandoms;
Begin
  FindMod;
  FindNormalRandoms;
  FindTalk;
  FindMime;
  FindMaze;
  DwarfItem;
  FindDemon;
  Solvepinball;
  FindLamp(Players[CurrentPlayer].Skill);
  UseBoxSolver := True
  UseCerterSolver := True
  UseSandwichSolver :=True
end;

function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
var
  x, y:integer;
begin
  if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
     (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
  begin
    GetMousePos(x, y);
    Mouse(x, y, 5, 5, False);
    if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
    begin
      if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
      begin
        Mouse(MMCX, MMCY, 5, 5, True);
        Writeln('Found ent. Waiting for ent to go away.');
        Result := True;
        EntsAvoided := EntsAvoided + 1;
      end;
    end;
  end;
end;

procedure Proggy;
begin
  ClearDebug;
  Writeln('[]========================================[]');
  Writeln('---------------->Termite by Whatsthat<----------------');
  Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
  Writeln('---------------------------------------------');
  Writeln('[]========================================[]');
end;

begin
  SetupSRL;
  Disguise('Termite');
  Writeln('|================================================|')
  Writeln('|\     \ \  \ \\ \\\\\ \\\\\\ \\\\\ \  \ \\ \\\\\|')
  Writeln('| \  \  \ \\\\ \\\  \    \\\\    \   \\\\ \\\  \ |')
  Writeln('|  \\\ \\\ \  \ \  \ \   \\\\\\   \   \  \ \  \ \|')
  writeln('|------------------------------------------------|')
  Writeln('|                  Whatsthat                     |')
  Writeln('|        Thank you for using The Termite         |')
  Writeln('|================================================|')
  DeclarePlayers;
  if Loggedin then Logout;
  LoginPlayer;

  repeat
    ChopTree;
    if InvFull then
    begin
      DropToPosition(2, 28)
      Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
      begin
        NextPlayer(True);
      end;
    end;
    if not Loggedin then NextPlayer(False);
  until false
end.

begin and ends always aligned. after a begin or a case or a repeat everything goes two spaces in front. begin comes directly under the 'if' or 'procedure' or 'function'.

To Members: I start to notice the name Spaztaz666 coming up in the credits of many scripts lately. Looks like a very helpful person.

~RM

Hey man, you have had some nice improvements along the way, but you are not quite there yet for member status…

heres what i think you should improve upon:

- standards
- more failsafes
- implementing banking + radialwalk improves your chances to get in by alot (if done propperly)

- test the hell out of it and add improvements where you see it mess up…this will make your script a lot better and more reliable

Apply with an ub3r script in one month!
Keep up the good work and you will be a member in no time ;)

btw u left ur nick and ur pass in there.
~RM

yah he got ganked in like 2 min after my first release >.< btw thank you guys for all the help, i got a new goal now :P

srry =S no

but hey keep trying and hope your new goal will work =p

Your script just clicks on tree?
Well, antirands are in script but you haven't used them..?!
Call findnormalrandoms after each action( ~500 ms after action)
Sorry, too simple

   DeclarePlayers;
   if Loggedin then Logout; 
   LoginPlayer;

That would disable the user to start the script from any player that he wants to. Yes he can change the CurrentPlayer But what it he just want to auto on a player for 30 mins and dosent wanna declare him? Just Saying.

       if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
          (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
       begin
         GetMousePos(x, y);
         Mouse(x, y, 5, 5, False);

You dont need to have GetMousePos There. Say you mouse is on (100,100) and the color found was on (250,350), The function FindColorTolerance Would store the value 250 for x and 350 for y. Saying GetMousePos Would then make x be 100 and y be 100 (Because the mouse is still at (100,100)). So then when you say Mouse(x, y, 5, 5, False) it will just be clicking at (100,100) defeating the whole purpose of FindColorTolerance. Is Should be just :

       if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
          (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
       begin
         Mouse(x, y, 5, 5, False);

Understand?

TreeColor = 0; //Use the color picker to fill in a tree color. Use the lightest colors.

I would avoid using that, and replacing it with a GameColorTolerance variable. Believe me, people get confised very easily, especially when picking colors. Atleast with the GameColorTolerance you can give them a default, which they can then play around with :)

I would just like to know whats up with people using FindFastRandoms instead of FindNormalRandoms =/???

And yes, spaztaz666 is very useful. He did a lot of testing for me, also helping out managing the questions in my thread, and I am probably one of those people that you noticed credited him :p

Poll has closed

10 -no
1- yes

Please wait the period of one month before re-applying.
Good luck on your next application.

Closed.

Cheers,
Hobbit