SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Google silly!

Programming Knowledge
Basic, Scar, HTML, PHP

Other Communitys
I am a member of Sythe, but I don't really trust that community.

How Long have You Played Runescape
Since 2004

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

I am currently a sophomore in University. I have a double major in graphic design and computer science. I enjoy running cross country and track. I've always have been into web design, so I am constantly designing because my work never seem to be good enough for me. haha. I got interested in Scar/SRL when Runescape levels seemed to be impossible to achieve without some sort of…cheating. So I got involved with this community and I have slowly been learning to script. I haven't had much free time lately, but I'm slowing learning. I'm not sure what else to type, but if you have any questions, please let me know.

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

{Fill Our Declare Players Below!}

program Firemaker;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/reflection/reflection.scar}
{.include SRL/SRl/SKILL/Firemaking.scar}

const
SmartPrefix = 'world16';

var
x, y, total, TinderboxDTM, WillowLogDTM : Integer

;Procedure DeclarePlayers;
Begin

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

  Players[0].Name  := 'Username';
  Players[0].Pass  := 'Password';
  Players[0].Nick  := 'ser';
  Players[0].Pin   := '0000';  // Just Leave Blank If None
  Players[0].Active:= True;

  Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
End;

procedure DeclareDTMs;
begin
  TinderboxDTM := DTMFromString('78DA630C666060F06140014E561C0CFF81342' +
       '310FF0702C61820C386010D302291401AA4C695809A7820E14140' +
       '4D0290F025A0261248041350E30F24C208A87127C2AE28845DCC4' +
       '86AF891D4000050CC0B6A');
       
  WillowLogDTM := DTMFromString('78DA63DCCBC0C0B093010578384A31FC07D28' +
       'C40FC1F08188F0219DB18D000231209A44F0289FD04D41C041207' +
       '09A8D905240E1350B3910873D600897D04D46C011247206C66243' +
       '5FC486A0014161194');
end;

procedure SetupSmart;
begin
  SmartSetup(SmartPrefix, True, True, False);
  SetTargetDC(SmartGetDC);
end;


procedure AntiRandoms;
var
i : integer
;begin
  for i:= 1 to 4 do
  begin
    case i of
      1: FindTalk;
      2: FindInventoryRandoms;
      3: FindNonInventoryRandoms;
      4: FindNormalRandoms;
    end;
  end;
end;

Procedure AntiBannage;
begin
  if not LoggedIn then Exit;
    case Random(55) of
    0:begin
        Status('AntiBan');
        BoredHuman;
        wait(250 + random(500));
      end;
    1:begin
        Status('AntiBan');
        HoverSkill('Firemaking', false);
        wait(1500+Random(432));
        GameTab(4);
      end;
    2:begin
        Status('AntiBan');
        RandomRClick;
        wait(200 + random(500));
      end;
    3:begin
        Status('AntiBan');
        GameTab(1 + Random(12));
        Wait(300 + Random(500));
        GameTab(4);
      end;
    4:begin
        Status('AntiBan');
        PickUpMouse;
        Wait(200 + Random(200));
      end;
    5:begin
        Status('AntiBan');
        RandomMovement;
        SetAngle(true);
      end;
    end;
end;

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

  Result[0] := Point(3196, 3430);
  Result[1] := Point(3209, 3429);
end;


Procedure WalkThePath;
Var
  I: Integer;
  Path: TPointArray;

Begin
  Path := LoadPath;
  for i := 0 to High(Path) do
    Begin
       WalkToTile(Path[i], 1, 0);
    end;
      Wait(500+Random(300));
      GameTab(4);
      SetChat('off', 1);
end;

function LoadPath2: TPointArray;
begin
  SetLength(Result, 1);

  Result[0] := Point(3189, 3435);
end;

procedure WalkThePath2;
Var
  I: Integer;
  Path: TPointArray;

Begin
  Path := LoadPath2;
  for i := 0 to High(Path) do
    Begin
       WalkToTile(Path[i], 2, 0);
    end;
      Wait(500+Random(300));
end;

procedure GetLogs;
begin
    If Not LoggedIn then Exit;
    MakeCompass('perfect north');
    SetAngle(True);
    if not(FindDTM(WillowLogDTM, x, y, MIx1, MIy1, MIx2, MIy2))then
    OpenBank('vwb', True, True);
    if pinscreen then
    InPin(Players[CurrentPlayer].pin);
    Wait(258+random(168));
    if not(FindDTM(WillowLogDTM, x, y, MSx1, MSy1, MSx2, MSy2))then
    TerminateScript;
    Mouse(x, y, 5, 5, False);
    ChooseOption('-All');
    CloseBank;
    AntiBannage;
end;


procedure MakeFire;
begin
  If Not LoggedIn then Exit;
  if not(FindDTM(TinderboxDTM, x, y, MIx1, MIy1, MIx2, MIy2))then
    Exit;
  if not(FindDTM(WillowLogDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
  GetLogs;
  repeat
  if FindDTM(TinderboxDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    Mouse(x, y, 5, 5, True);
  Wait(100+Random(200));
  if FindDTM(WillowLogDTM, x, y, MiX1, MiY1, MiX2, MiY2) then
    Mouse(x, y, 5, 5, true);
  Wait(1000 + Random(487));
  LightWait;
  Total := Total +1
  until (not (FindDtm(WillowLogDTM, x, y, mix1, miy1, mix2, miy2)))
  MakeCompass('perfect North');
  WalkThePath2;
  AntiRandoms;
  AntiBannage;
end;

procedure WalkToFMingArea;
begin
  If Not LoggedIn then Exit;
  if(FindDtm(WillowLogDTM, x, y, mix1, miy1, mix2, miy2))then
  if(FindDTM(TinderboxDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
  AntiRandoms;
  WalkThePath;
  AntiBannage;
  AntiRandoms;
end;

Procedure ProgressReport;
begin
  WriteLn('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
  WriteLn('\//////////// Progress Report! \\\\\\\\\\\\/');
  WriteLn('\\\\\\\\\\\/\/\/\/\/\/\/\/\/\/\/\///////////');
  WriteLn('\                                           ');
  WriteLn('\  This Script Ran For: ' + TimeRunning +'  ');
  WriteLn('\                                           ');
  WriteLn('\  You Burned: ' +IntToStr(total) +' logs!  ');
  WriteLn('\                                           ');
  WriteLn('\  Please Post Proggie On Forums! TY!       ');
  WriteLn('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
  WriteLn('                                            ');
end;


//\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////// Main Loop ///////////////////////////////
//\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

begin
SetupSRL;
SetupSmart;
DeclarePlayers;
DeclareDTMS;
LoginPlayer;
repeat
GetLogs;
WalkToFmingArea;
MakeFire;
ProgressReport;
until(false)
end.

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

No, most of the script is reflection, you only need FindNormalRandoms; fot the randoms, add more failsafes.

What other fail safes do I need? I have it high-lighting the skill and it clicks different tabs. I didn't realize that it being mostly reflection effected the perception of the script. I do apologize if I sound…defensive.

yeah use color base and with failsafe … so yeah no..

failsafes are what happens when something goes wrong, not antiban and it's not that reflection is bad it's just that in apps colour is what we're looking for. i agree with cazax and it's a no from me sorry dude but your on the right track :) you know dtms and such

Impressive with the university and the double majors. But the script isn't fit for Runescape =p.

*sigh* goes back to work :P

Thanks for the feedback it is truly appreciated.

Yes, it's bit short, improve it, and you might get in next time.

Nope, try and use some colors. Reflection is AMAZING, but it needs to be backed up with more reflection, or at least some color.

Look forward to your next app.

P.S. Look up nesting and how to do it. You don't put enough begins and ends in places.

Remember, if its more than one line after an if statement, then it needs a begin/end ;)

It seems like you're not getting in, sorry.
You may try again in one month.
Closed.