SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Delphi

Other Communitys


How Long have You Played Runescape
5 years

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

I found this forum when i got bored of runescape and wanted to auto to make cash. Then i started whit testing more and more scripts and strarted to study them. Now i've tried to make my own one and thats this one.

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

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////                                                        //////////////////
//////                 /---\           |--|  /--/             //////////////////
//////                /     \          |  | /  /              //////////////////
//////               /  /-\  \         |  |/  /               //////////////////
//////              /  /   \  \        |      \               //////////////////
//////             /  /-----\  \       |   /\  \              //////////////////
//////            /  /       \  \      |  /  \  \             //////////////////
//////          _/__/_       _\__\_ O  |__|   \__\ O          //////////////////
//////                                                        //////////////////
//////           ____         ___     _____  ___ ___          //////////////////
//////           |    |\  /| |    |     |   |    |  |         //////////////////
//////           |--| | \/ | |--- |     |   |--- |__|         //////////////////
//////           ___| |    | |___ |__   |   |___ |  \         //////////////////
//////                                                        //////////////////
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////  By Noobielul  ///////////////////////
////////////////////////////////////////////////////////////////////////////////
//////                                                               ///////////
//////         1. Start in AK bank near the most North bank booth.   ///////////
//////         2. Iron in the first slot and coal in the second.     ///////////
//////         3. Setup lines 36,37 and 49 -> 52.                    ///////////
//////                                                               ///////////
////////////////////////////////////////////////////////////////////////////////



program AKnoobSmelter;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}

const
  ToDo = 100; // Steel bars to make
  WorldNr = 10; // World to use
  SRLStatsID='';
  SRLStatsPass='';

var
  OreMask,Done : integer;

Procedure DeclarePlayers;
Begin

  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Active:=True;
  
  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Active:=True;
end;

Procedure SetupSmart;
Begin
  SmartSetup('world'+IntToStr(WorldNr), True, True, False);
  Wait(1000);
  SetTargetDC(SmartGetDC);
end;

procedure LoadOreMask;
begin
  OreMask := DTMFromString('78DA63D460666048646440058C4824903601A' +
       'A8920A0C60EA82698801A17A09A78026AAC806A6208A8B104AAC9' +
       'C2AF0600B55103AD');
end;

function LoadToFurnace: TPointArray;
begin
  SetLength(Result, 2);

  Result[0] := Point(3275, 3173);
  Result[1] := Point(3275, 3184);
end;

function LoadToBank: TPointArray;
begin
  SetLength(Result, 2);

  Result[0] := Point(3277, 3173);
  Result[1] := Point(3270, 3167);
end;

Procedure AntiBan;
begin
  if(not(LoggedIn))then Exit;
  case Random(20) of

    0: begin
         HoverSkill('Mining', false);
         wait(2000+Random(500));
       end;
    1: begin
         HoverSkill('Attack',false);
         wait(2000+Random(500));
         GameTab(4);
       end;
    2: PickUpMouse;
    3:  begin
         HoverSkill('Smithing', false);
         wait(2453+Random(432));
       end;
    4: begin
         HoverSkill('Random', false);
         wait(2453+Random(432));
       end;
    5: begin
         MakeCompass('E');
         wait(100+random(50));
         MakeCompass('N');
       end;
    6: begin
         SetAngle(True);
         wait(100+random(500));
         SetAngle(True);
       end;
  end;
end;


procedure run;
var
  runCol:string;
begin
  if getMMlevels('run',runCol)>50 then
  begin
    gametab(11);
    wait(500+random(500));
    setrun(true);
  end;
end;

Procedure WalkToFurnace;
Var
  I: Integer;
  Path: TPointArray;
Begin
  Run;
  Path := LoadToFurnace;
  for i := 0 to High(Path) do
    Begin
       WalkToTile(Path[i], 3, 0);
    end;
      Wait(400+Random(150));
end;

Procedure WalkToBank;
Var
  I: Integer;
  Path: TPointArray;
Begin
  Run;
  Path := LoadToBank;
  for i := 0 to High(Path) do
    Begin
       WalkToTile(Path[i], 3, 0);
    end;
      Wait(400+Random(150));
end;

////////////////////////////////////////////////////////////////////////////////
// __ ////// Credits to NiCbaZ /////////////////////////////////////////////////
// \/ //////////////////////////////////////////////////////////////////////////
//    //////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

Function FindObjREFLeft(TileX,TileY: integer): boolean;
var
  XYZ: TPoint;
  Tiles: TpointArray;

begin
  Tiles:= [Point(TileX,TileY)];
  if (DistanceFrom(Tiles[0]) > 5) then
  begin
    if not TileOnMM(Tiles[0]) then
    begin
      Writeln('You are Either Very Far Away From your Obj or in a Random');
      Result := False;
      Exit;
    end;
    WalkToTile(Tiles[0], 0, 0);
    FFlag(1);
    Wait(100);
  end;
  XYZ:= TileToMS(Tiles[0], 16);
  Mouse(XYZ.X, XYZ.Y, 4, 4, True);
  Wait(80 + Random(120));
end;

Function FindObjREF(TileX,TileY: integer; chooseop: string): boolean;
var
  XYZ: TPoint;
  Tiles: TpointArray;

begin
  Tiles:= [Point(TileX,TileY)];
  if (DistanceFrom(Tiles[0]) > 5) then
  begin
    if not TileOnMM(Tiles[0]) then
    begin
      Writeln('You are Either Very Far Away From your Obj or in a Random');
      Result := False;
      Exit;
    end;
    WalkToTile(Tiles[0], 0, 0);
    FFlag(1);
    Wait(100);
  end;
  XYZ:= TileToMS(Tiles[0], 16);
  Mouse(XYZ.X, XYZ.Y, 4, 4, False);
  Wait(80 + Random(120));
  Result := ChooseOption(chooseop);
end;

////////////////////////////////////////////////////////////////////////////////
// ^^ ////// Credits to NiCbaZ /////////////////////////////////////////////////
// ^^ //////////////////////////////////////////////////////////////////////////
// ^^ //////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

procedure Smelthing;
var x,y,i : integer;
begin
  if not(LoggedIn) then Exit;
  LoadOreMask;
  Repeat
    FindObjREFLeft(3273, 3186);
    FFlag(Random(3));
    Wait(1000+Random(100));
    i:=i+1;
    if i>=5 then Exit;
  until findtext(x,y,'smelt',npcchars,300,350,370,390);
  if i=5 then
  begin
    Writeln('Failed to find Furnace.');
    Exit;
  end;
  Mouse(260,407,3,3,False);
  Wait(100+Random(30));
  chooseOption('10');
  Wait(100+Random(100));
  AntiBan;
  repeat
    Wait(500+Random(250));
    FindNormalRandoms;
  until not(FindDTM(OreMask,x,y,MIX1,MIY1,MIX2,MIY2));
  FreeDTM(OreMask);
end;

Procedure Proggie;
begin
  Writeln('/////////////////////////////////////////');
  Writeln('// Made '+inttostr(Done)+' of the '+inttostr(ToDo)+' bars so far. //');
  Writeln('/////////////////////////////////////////');
end;

procedure Banking;
var x,y : integer;
begin
  repeat
    FindNormalRandoms;
    FindObjREF(3268, 3169, 'uick');
    FFlag(Random(3));
    Wait(1000+Random(300));
  until BankScreen or not(loggedin);;
  Wait(500+Random(200));
  depositAll;
  Wait(500+Random(200));
  ReportVars[0] := 9;
  SrlRandomsReport;
  mouse(59, 102,5,5,false);
  wait(100+random(150));
  if chooseOption('X') then
  begin
    Wait(500+Random(100));
    if findtext(x,y,'mount',upchars,240,380,320,420) then
    begin
      typesend('9');
    end;
  end;
  wait(1000+random(500));
  mouse(93, 100,5,5,false);
  wait(100+random(100));
  if chooseOption('X') then
  begin
    Wait(500+Random(100));
    if findtext(x,y,'mount',upchars,240,380,320,420) then
    begin
      typesend('18');
    end;
  end;
end;


Begin
  SetupSRL;
  SRLID:=SRLStatsID;
  SRLPassword:=SRLStatsPass;
  ScriptID:='989';
  SetupSmart;
  DeclarePlayers;
  if not(loggedin)then LoginPlayer;
  makecompass('n');
  setAngle(true);
  repeat
    Banking;
    FindNormalRandoms;
    WalkToFurnace;
    FindNormalRandoms;
    Smelthing;
    FindNormalRandoms;
    WalkToBank;
    FindNormalRandoms;
    Done := Done+9;
    Proggie;
    if not(loggedin) then
    begin
      Writeln('Logged out for some reason,');
      Writeln('Quitting script.');
    end;
  until ToDo<=Done;
end.

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

Im sorry but reflection scripts are just too easy, either make it color, or have a color backup for all the walking, and object finding. For walking use DDTM's and for object finding use TPA's

Sorry dude, I agree with SirLaughALot, its a nice script and probably works well, but using reflection without color backups doesn't really demonstrate your scripting ability, best of luck to ya,

-Blumblebee

no sireee

like every1 else said about reflection thats why :p

Use Radialwalking or something.. Reflection is too easy ;) Not this is a bad script tough, and lots of credits to NiCbAz…

procedure LoadOreMask;
begin
  OreMask := DTMFromString('78DA63D460666048646440058C4824903601A' +
       'A8920A0C60EA82698801A17A09A78026AAC806A6208A8B104AAC9' +
       'C2AF0600B55103AD');
end;
 
function LoadToFurnace: TPointArray;
begin
  SetLength(Result, 2);
 
  Result[0] := Point(3275, 3173);
  Result[1] := Point(3275, 3184);
end;
 
function LoadToBank: TPointArray;
begin
  SetLength(Result, 2);
 
  Result[0] := Point(3277, 3173);
  Result[1] := Point(3270, 3167);
end;

These 3 functions could be put into one procedure that loads all 3 and you could just call it at the beginning of your main loop. You would just need to make global variables for both paths.

As for your object finding, you should try using objects instead of tile clicking. It may not be as evident in this case but other times it's better to use objects instead of tile clicking.

The main meet of your script, the smelting function, credits nicbaz, I don't know if you are saying he wrote the whole thing or if he helped you.

Alas, I'm going to give it a no. Not because it's reflection, but because I don't think you have the proper scripting ability yet. I wish you luck for the next time you apply.

Nope, learn some color.

Sorry, you need to balance the two. Color is much better than reflection at times, and reflection is much better than color at times.

Find an equilibrium.

Reflection… it makes a script work well but dosent prove anything about ur ability to script soz but im ganna have to say no

TheChineseMan: Check out this forum's rules. You have to wait two weeks. JUST so you know ;).

he has every right to vote but it's reccomended so you can get used to it but yeah i haven't voted yet i just give my input so:
reflection is too easy i reccomend you go and read some tuts for colors or at least failsafes
and whatever else other people have posted that i missed :P
edit:and isn't it 1+weeks?