SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
attempting C++

Other Communitys
ive checked out "MoparIsTheBest" and the KYAB site, but not for very much time.

How Long have You Played Runescape
1 years

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

This site has inspires me to write my own scripts. I have no other programming experience except for what I have learned on this site, and I intend to learn even more about programming that I do know.

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

{ -----------Instructions-------------}
{      1. Place character next to a rock to mine.
       2. Allow player to be able to run North. Got the idea from pryo's powerminer
       3. Have on brightest lighting, and low detail.
       4. Setup players
       5. Drag crosshairs to runescape client
       6. Have pick wielded or not.
       7. Start script loged out.
       -----Description-----
         -Is a powerminer
         -Runs away from rock to drop the ores
         -Has some antiban, and has antirandoms}


program PowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
{.include SRL/SRL/Misc/Trade.scar}
{------------------------------}
var

OreToColor, loads,x,y : Integer;
{------------------------------}
const
  ClayColor=3764366;      // If The Macro wont click a rock then change a value.
  CopperColor=5870567;    // I think you are going to have to.
  TinColor=10592686;
  IronColor=1778233;
  SilverColor=10921650;
  CoalColor=2438711;
  GoldColor=2016753;
  MithrilColor=7425100;
  AdamantiteColor=6717286;
  //---------
  LoadsToDo = 1;           // how maney loads to do.
{------------------------------}
procedure DeclarePlayers;
begin
  NumberOfPlayers(2);
  HowManyBooleans:=(1);
  CurrentPlayer:=0;

  Players[0].Name := 'UserName'; //User Name
  Players[0].Pass := 'Password'; // Password
  Players[0].Nick := 'ser'; // Nick Name
  Players[0].Strings[0] := 'Iron'; // What do you want to mine. You need to use Capitals!
  Players[0].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[0].Active := True;  // Is player active

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'ser';
  Players[1].Strings[0] :='Iron';
  Players[1].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[1].Active := true;
 {
  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'ser';
  Players[2].Strings[0] :='Iron';
  Players[2].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[2].Active := False;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'ser';
  Players[3].Strings[0] :='Iron';
  Players[3].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[3].Active := False;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := 'ser';
  Players[4].Strings[0] :='Iron';
  Players[4].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[4].Active := False;

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := 'ser';
  Players[5].Strings[0] :='Iron';
  Players[5].Booleans[0] :=True;  // Is pick equiped? True= Equiped.
  Players[5].Active := False; }

  Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
  LoadPlayerArray;
end;
{----------------SRL Procedure--------------}
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 9 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;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
      9: FindLamp('Mining');
      10: if FindTalk then
          Result := True;
      11: ClickToContinue;
    end;
    wait(1);
  end;
end;

{------------------------------}
procedure AntiRandoms;
begin
  if (not (LoggedIn)) then Exit
  FindFastRandoms;
  FindNormalRandoms;
  HandleTrade;
  FindPick;
  if (FindFight) then
  begin
    RunAwayDirection('N');
    Wait(7000 + Random(1000));
    RunBack;
  end;
end;
{------------------------------}
var
Gas: Integer;
Function Look4Gas: Boolean;
begin
  If(Not Loggedin)Then Exit;
  if FindGas(x,y) then
    begin
      MakeCompass('N');
      RunAwayDirection('N');
      Wait(60000 + random(2000));
      RunBack;
      result:= true;
      Gas:=Gas+1;
    end;
end;

{------------------------------}
procedure SetupColors;
begin
  case Players[CurrentPlayer].Strings[0] of
   'Copper' : OreToColor := CopperColor;
   'Tin'    : OreToColor := TinColor;
   'Iron'   : OreToColor := IronColor;
   'Silver' : OreToColor := SilverColor;
   'Gold'   : OreToColor := GoldColor;
   'Coal'   : OreToColor := CoalColor;
   'Mithril': OreToColor := MithrilColor;
   'Addy'   : OreToColor := AdamantiteColor;
  end;
end;
{------------------------------}
procedure MineOre;
begin
  If(Not Loggedin)Then Exit;
  HighestAngle;
  MakeCompass('N');
  FindPickHeadColor;
  GameTab(4);
  repeat
    If(Not Loggedin)Then Exit;
    if (FindColor(x,y,OreToColor,20,20,500,330))then
    begin
      MMouse(x, y, 1, 1)
      if (IsUpText('Min')) then
      Mouse(x, y, 1, 1, true);
      Look4Gas;
    end;
    AntiRandoms;
    Wait(2000);
  until(InvFull)
end;

{------------------------------}

procedure DropOre;
begin
  If(Not Loggedin)Then Exit;
  HighestAngle;
  MakeCompass('N');
  runawaydirection('N');//  got the idea from Pryo's Powerminer
  Wait(4000);
  GameTab(4);
  AntiRandoms;
  If (Players[CurrentPlayer].Booleans[0]=True)Then
  begin
    DropToPosition(1,24);
  end;
  If (Players[CurrentPlayer].Booleans[0]=False)Then
  begin
    DropToPosition(2,24);
  end;
  Runawaydirection('S');  //  got the idea from Pryo's Powerminer
  Wait(4000);
  Loads:=Loads+1;
end;


{------------Moves mouse human-like (Anti-ban) By Yakman------------}

procedure MAntiBan;
begin
  if not(LoggedIn)then Exit;
  case Random(4) of
    0 : IdleTime(1000 + Random(350),500,1.0);
    1 : IdleTime(1000 + Random(350),750,0.5);
    2 : SleepAndMoveMouse(1500 + Random(1500));
    3 : SleepAndMoveMouse(500 + Random(500));
  end
end;

{------------------------------}
procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(8) of
    0: RandomRClick;
    1: MAntiBan;
    2: HoverSkill('Mining', False);
    3: RandomMovement;
    4: BoredHuman;
    5: PickUpMouse;
    6: AlmostLogout;
    7: DoEmote(1 +Random(20));
    8: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;

{------------------------------}
procedure Progress;
begin
  Writeln('//==================Progress Report==================\\');
  Writeln('Ran for ' + TimeRunning + ' with ' + inttostr(HowManyPlayers) + ' players');
  Writeln('Mined about ' + IntToStr(Loads*24) + ' Ores');
  Writeln('Gas avoided ' + IntToStr(Gas) + '!');
  Writeln('\\=================End Progress Report================//');
end;
{------------------------------}
Procedure Start;
Begin
  SetUpSRL;
  SetUpMining;
  DeclarePlayers;
  SetupColors;
  ClearDebug;
  ActivateClient;
if (not(Loggedin)) then LoginPlayer;
End;
{------------------------------}
begin
  Start;
  repeat
    ActivateClient;
    MineOre;
    dropOre;
    AntiBan;
    if Loads = LoadsToDo then
    NextPlayer(True);
    Progress;
  until(false)
end.

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

I'm not sure - you've got a lot of the basics down and seem to know what you need in a script, but it's a bit too simple for me.

Your mining procedure is too simple. You use FindColor, which only searches for one color that never changes - try using findcolortolerance or, better, findobj. Findobj has tolerance and has that isuptext, so you won't be constantly moving your mouse. You also make it automatically wait 2 seconds - make it a const and have people set it themselves?

You also use multiplayer correctly for the most part, but you're missing the nextplayer(false) in your main loop if something goes wrong. Just put 'if(not(loggedin))then nextplayer(false);' at the very top your your repeat…until main loop.

Another thing that bugs me is that you don't have very much wait(x+random(y)) in your script. Like in your dropping procedure, it automatically waits exactly 4000ms before dropping - jagex could come onto that. And why does it run north just to drop the ore?

I'm going to have to say no. It's just too basic for me and for my SRL-App standards. Try including things like walking and banking in a next script incase you don't get in.

Use semi colons.

begin
      MMouse(x, y, 1, 1)
      if (IsUpText('Min')) then
      Mouse(x, y, 1, 1, true);
      Look4Gas;
    end;

and use more randomness

no, its to simple, IMO if your going to do an autominer or autocutter you need to have walking and banking

Thanks for the tips. I will make a banker next.

Sorry. No. Too simple.

Is it a month before I can apply again then?

Yes.

sorry no, gl on next aply

Yes.

nah orry, it's a no from me:
no failsafes
to simple script, try adding some extras like gem finding or so

If (Players[CurrentPlayer].Booleans[0]=True)Then
begin
DropToPosition(1,24);
end;
If (Players[CurrentPlayer].Booleans[0]=False)Then
begin
DropToPosition(2,24);
end;

seems like you're trying to avoid the case statement (there was another dude trying that too, recently), it should be great adding that part with a case statement, if you can't then it's a defenitly no from me
+ have to agree with lordgregreg

Wtf is the big deal with people wanting semi colons in? This isn't java ffs…

From: the scar noob
nah orry, it's a no from me:
no failsafes
to simple script, try adding some extras like gem finding or so

seems like you're trying to avoid the case statement (there was another dude trying that too, recently), it should be great adding that part with a case statement, if you can't then it's a defenitly no from me
+ have to agree with lordgregreg

How would I add a case statement there?

From: ~alex~
Wtf is the big deal with people wanting semi colons in? This isn't java ffs…

Won't compile w/o it ;). For Gem finding, try learning how to use and make a DTM. Very simple actually.

You have your basics down, and that's good..now a little more learning and you should be at SRL Member in no time. This app reminds me of my first app.

From some places you can get semicolon expected error.

So its easier to make it a habit than to try remember where to put.

From: n3ss3s
From some places you can get semicolon expected error.

So its easier to make it a habit than to try remember where to put.

It was just a typing mistake and I got lucky because it compiles and works.

? I didnt complain about anything, answered to Alex.

Umm no from me.

It's too simple.. sorry man. I voted no.