SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
not really

Other Communitys
moparscape.org and fagex.com

How Long have You Played Runescape
from 2005 march, so thats over 3 years ;)

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

first of all hi.
i found this web-site when it become public i think.
started to trieng to cheat with scar 2.03 as i rememmber :D
but i failed a lot because almost all of the scripts were not working for me.
after some time i got some experience about scar and scripts. Then they started working for me.
then the golden age of leeching have started for me :) was leeching for all the time till now but then realized that i want to learn to script and to become closer to this comunnity :)

now something about me if you are intrested.
I live in Lithuania, Vilnius. If you dont know that country is north from Poland, east from Baltic sea.
Im 17 years old, learning in Private school " saules " and im at 11th form
quite intrested in extremal sports like: snowbording or hiking.
and i think thats all :)

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

Start in Varrock east bank with tinderbox in 1st inventory slot, and logs in inventory, have rest of logs in the 1st tab, 1st bank slot.

SRL #27
Latest REFLECTION

program New;
{.include SRL/SRL/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.scar}

var
  MyPos, MyPos2, tileMS : tPoint;
  Tiles : tPointArray;

const
  Username    = '';          {   Your account username. Example " Member "              }
  Password    = '';          {   Your account password of your account. Example " sad321 "                     }
  Nick        = '';          {   Your account username nick. Example " embe "   }
  World       = 96;          {   Smart world                            }

procedure PrntMyPos;
begin
  MyPos := GetMyPos;
  writeln('( ' +IntToStr(MyPos.x)+ ', ' +IntToStr(MyPos.y)+ ')');
end;

function didTheFireLight : boolean;
var
  i : integer;
begin
  i := 2;
  repeat
    MouseItem(1, true);
    wait(400);
    PrntMyPos;
    MouseItem(i, true);
    i := i + 1;
    repeat
      wait(500);
      MyPos2 := GetMyPos;
    until(MyPos2.x < MyPos.x)
  until(i > 28)
  result := True;
end;

function Find(spot : string; clickleft : boolean): boolean;
begin
 case spot of
  'bank'            : Tiles:= [Point(3250+random(6), 3420-random(1))];
  'startspot1'      : Tiles:= [Point(3262+random(3), 3429)];
  'startspot2'      : Tiles:= [Point(3262+random(3), 3428)];
  'crossroads'      : Tiles:= [Point(3246, 3430)];
  'bankBooth'       : Tiles:= [Point(3251+random(5), 3419)];
 end;
 if (DistanceFrom(Tiles[0]) > 1) then
  begin
    WalkToTile(Tiles[0], 0, 0);
    FindNormalRandoms;
    FFlag(10);
    Writeln(' # At the: ' +spot+ '.');
    Result := True;
    Exit;
  end;
  TileMS := TileToMS(Tiles[0], 0);
  Mouse(TileMS.x, TileMS.y, 0, 0, ClickLeft);
  Result := True;
end;

procedure BankShit;
begin
  ChooseOption('-quic');
  repeat
    wait(100);
  until(BankScreen);
  wait(100+random(1000));
  FixBank;
  wait(100+random(1000));
  Withdraw(1, 1, 0);
end;

procedure Walk;
begin
  case random(2) of
    0: Find('startspot1', true);
    1: Find('startspot2', true);
  end;
  flag;
  DidTheFireLight;
  Find('crossroads', true);
  Flag;
  Find('bank', true);
  Flag;
  wait(1000+random(1000));
  Find('bankbooth', false);
  BankShit;
end;

procedure declarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nick;
  Players[0].Active := True;
end;

procedure Setup;
begin
  SmartSetupEx(World, true, true, false);
  wait(5000);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  DeclarePlayers;
  if not(LoggedIn) then
    LoginPlayer;

end;

procedure Determine;
begin
  PrntMyPos;
end;

begin
  Setup;
  repeat
    Walk;
    wait(500);
    //PrntMyPos;
  until(False)
end.

works fine with latest srl
put your character by the tree and have axe in inventory or equiped

program Powercutter;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}
var
  x,y:integer;
  item:integer;
  time:integer;
  Loads:integer;
  EquipAxe: Boolean;
const
  Normal = 6001801;// Normal Tree
  oak    = 1518376;// Oak Tree
  willow = 3561568;// Willow Tree
  WaitPerTree = 2000;
procedure Signature;
begin
  ClearDebug;
  writeln('hi?');
  wait(200 + random(400));
 end;


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

  Players[0].Name := 'Username'; // Account name
  Players[0].Pass := 'Password';// user pass
  Players[0].Nick := 'Nick';//3 letters in username, not the first letter
  Players[0].Active := True;


end;


function FindAxe: Boolean;
var
   InvAxe, WieldAxe, Ix, Iy: Integer;
begin
  if not LoggedIn then exit;
  srl_LoadBitmaps([47, 48, 49, 50, 51, 52, 53, 54]);

  GameTab(5);
  for WieldAxe := 0 to 7 do
    if FindBitmapToleranceIn(srl_GetBitmap(54-WieldAxe),Ix, Iy, 566, 285, 606, 327, 10) then
      break;

  GameTab(4)
  for InvAxe := 0 to 7 do
    if FindBitmapToleranceIn(srl_GetBitmap(54-InvAxe), Ix, Iy, MIX1, MIY1, MIX2, MIY2, 10) then
      break;

  if(InvAxe = 8)and(WieldAxe = 8)then
  begin
    Result := False;
    Writeln('No axe was found.');
    srl_FreeBitmaps;
    Exit;
  end;

  EquipAxe := (WieldAxe - InvAxe < 0);

  case Min(WieldAxe, InvAxe) of
    0: WriteLn('Using Dragon axe');
    1: WriteLn('Using Rune axe');
    2: WriteLn('Using Addy axe');
    3: WriteLn('Using Mith axe');
    4: WriteLn('Using Black axe');
    5: WriteLn('Using Steel axe');
    6: WriteLn('Using Iron axe');
    7: WriteLn('Using Bronze axe');
  end;

  Result := True;
  srl_FreeBitmaps;
end;


procedure Progress;
begin
  Cleardebug;
  Writeln('|Worked for  '  + timerunning);
  Writeln('|Logs'  + IntToStr(Loads) +      'Dropped');
  end;


procedure RandomsReport;
var
  i, CurrentInt: Integer;
  CurrentStr, Name: String;
Begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('|     SRL ' + IntToStr(SRLVersionNumber) + ' Randoms Report    |');
  For i := 0 to 43 do
  Begin
    Case i of
    0: begin CurrentInt :=NewBoxes;   Name := '| Boxes Solved     :'; end;
    1: begin CurrentInt := NoNewBoxes;   Name := '| Boxes Missed     :'; end;
   end;
  end;
end;



procedure Chopping;
begin
  if not LoggedIn then
    Exit;
    wait(2000);
begin
    wait(200+random(300));
    if findcolorspiraltolerance(x,y, oak, MSX1, MSY1, MSX2, MSY2,7) then
  begin
     mmouse(x,y,0,0);
     if isuptext('hop') then
    begin
       mouse(x,y,0,0,false);
       chooseoption('hop');
        MarkTime(Time);
        While TimeFromMark(Time)<9000 do
        Wait(60+random(10));
     end;
   end;
  end;
end;
procedure AntiRandoms;
begin
  if (not(LoggedIn))then Exit;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  if (FindFight) then
  begin
    wait(500+random(60))
    SetRun(true);
    wait(500+random(600))
    RunAway('N',True,1,15000);
    if NoGameTab xor InBlack then
    begin
      Writeln('non-solveble random for this script :/');
      Logout;
      Exit;
    end;
  end;
end;



procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
  1: RandomRClick;
  2: HoverSkill('Woodcutting', False);
  3: RandomMovement;
  4: BoredHuman;
  5: DoEmote(5 +Random(17));
  6: SleepAndMoveMouse(1235+random(860));
  7: MMouse(random(300), random(250), 10, 10);
  8: begin
      GameTab(1 + Random(12));
      wait(1200+random(1000));
      GameTab(4);
   end;
  end;
end;


procedure Droplog;
begin
  for item:=2 to 28 do
  dropitem(item);
  Loads:=Loads+27;
end;

procedure MainLoop;
 begin
 repeat
   Chopping;
   AntiBan;
   AntiRandoms;
   Progress;
   RandomsReport;
   if invfull then Droplog;
 until false;
end;
begin
  SMARTSetUp('world38', True, False, False);
   SetTargetDC(SMARTGetDC);
    SetUpSRL;
     Signature;
      DeclarePlayers;
     if Loggedin then Logout;
    loginplayer;
   ActivateClient;
  FindAxe;
 MainLoop;
end.

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

umm im guessing you will not be able to get in…if i were you i wouldnt try and get in with this script… it is actually simple to make and for most of the script you are using reflection so soz if i was to vote i would say no

why using reflection is bad ?

No, it's not "bad", exactly. It's just that you have not shown the basic knowledge of SRL that is needed for members. Admittedly, reflection works great, and well, but you have absolutely no failsafes at all.

Though some of your functions show creativity. DidMyFireLight and Find are pretty good. But, no. Try making a reflection one with more failsafes, or a colour one. You should get in with that.

/me waits for a long reflection vs. colour debate in hear.

  repeat
    MouseItem(1, true);
    wait(400);
    PrntMyPos;
    MouseItem(i, true);
    i := i + 1;
    repeat
      wait(500);
      MyPos2 := GetMyPos;
    until(MyPos2.x < MyPos.x)
  until(i > 28)

What if the fire didn't light? You'll just keep waiting 500 until it's logged out. And then the whole script will fail.

Keep going, you have great potential. ;)

so it means, if i do script with no reflection it would be enough right ? :)

no… to be a SRL member you will need to know many other things like how to use DDTMs, Tpointarrys, DTMs, RadialWalk etc… and you have to show that in ur script you also need to know how to use them correctly like for example if you doing a radialwalk and it cant find the road use a DDTM as a failsafe to keep it going

i see, ill have to try harder then :)
im off for today, ill be back tommorow to see how my application is going
EDIT: working on SRL powerwcer, ill post it tommorow ;)

powercutters aren't very good for an app you should show something that walks with colour
edit:i'll hold my vote until you post it up

Instead of " i:= i + 1 ", do " inc(i) ". Faster ;)

It's a bit short, 120 lines, but back up Reflection with colors. Use a DTM for Logs and Tinderbox. But it's very creative, keep that up. Oh, and use Capital letters if you type something. Sorry, but I have to vote no.

what do you think about that wcer? its not very complicated but still…
edit: aahhh dont be so mean ;D press " yes " not " no " :D
second edit: wanted to ask, if i fail with this appeal ( i think i will fail ) and for second appeal i do draynor willow cutter, but really good one. would i fail again ? :D

The scripts are very basic and not exactly "fail proof." But you do have potential! Keep up the good work and you'll become a member in no time.

They are way to simple. Some of your functionare great, but just, Ummmm. Try harder? My script that I applied with was 1600 lined long :) Just put in a little more effort. Note I didn't vote.

Lol, Iv'e never seen you before BuRdTuRd.

ehem :) ty for those words, i know that my scripts are kind a lame but i started just few weeks ago.
Btw can any1 suggest me what script should i make? like autofisher? or agility? dont imagine what script should be good that i dont fail next time ;D

try something that walks and uses tpa's and dtms, just think of what you find the most boring thing in the world to do and make a script for it :), i like your attitude though and depending on what everyone else says i may vote yes imo
attitude=60% of votes
script=40% of votes
keep going
edit: what a name "burdturd" rofl :P
edit2:I fixed some of the standards in the powerchopper, and btw we do notice when you put srl functions into a script to make it look bigger? SrlRandomsReport? FindAxe? also i didn't cap most of the things do that yourself :P

program Powercutter;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}
var
  x, y, item, time, loads:integer;
  EquipAxe: Boolean;
const
  Normal = 6001801;// Normal Tree
  oak    = 1518376;// Oak Tree
  willow = 3561568;// Willow Tree
  WaitPerTree = 2000;
  
procedure Signature;
begin
  ClearDebug;
  writeln('hi?');
  wait(200 + random(400));
end;


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

  Players[0].Name := 'Username'; // Account name
  Players[0].Pass := 'Password';// user pass
  Players[0].Nick := 'Nick';//3 letters in username, not the first letter
  Players[0].Active := True;
end;


function FindAxe: Boolean;
var
   InvAxe, WieldAxe, Ix, Iy: Integer;
begin
  if not LoggedIn then exit;
    srl_LoadBitmaps([47, 48, 49, 50, 51, 52, 53, 54]);
    GameTab(5);
    for WieldAxe := 0 to 7 do
      if FindBitmapToleranceIn(srl_GetBitmap(54-WieldAxe),Ix, Iy, 566, 285, 606, 327, 10) then
        break;
        GameTab(4)
        for InvAxe := 0 to 7 do
        if FindBitmapToleranceIn(srl_GetBitmap(54-InvAxe), Ix, Iy, MIX1, MIY1, MIX2, MIY2, 10) then
          break;
          if(InvAxe = 8)and(WieldAxe = 8)then
            begin
              Result := False;
              Writeln('No axe was found.');
              srl_FreeBitmaps;
              Exit;
            end;
            EquipAxe := (WieldAxe - InvAxe < 0);
            case Min(WieldAxe, InvAxe) of
              0: WriteLn('Using Dragon axe');
              1: WriteLn('Using Rune axe');
              2: WriteLn('Using Addy axe');
              3: WriteLn('Using Mith axe');
              4: WriteLn('Using Black axe');
              5: WriteLn('Using Steel axe');
              6: WriteLn('Using Iron axe');
              7: WriteLn('Using Bronze axe');
           end;
           Result := True;
           srl_FreeBitmaps;
end;


procedure Progress;
begin
  Cleardebug;
  Writeln('|Worked for  '  + timerunning);
  Writeln('|Logs'  + IntToStr(Loads) +      'Dropped');
end;


procedure RandomsReport;
var
  i, CurrentInt: Integer;
  CurrentStr, Name: String;
Begin
  ChangeReportWidth(280);
  ClearReport;
  AddToReport('|     SRL ' + IntToStr(SRLVersionNumber) + ' Randoms Report    |');
  For i := 0 to 43 do
  Begin
    Case i of
    0: begin CurrentInt :=NewBoxes;   Name := '| Boxes Solved     :'; end;
    1: begin CurrentInt := NoNewBoxes;   Name := '| Boxes Missed     :'; end;
   end;
  end;
end;



procedure Chopping;
begin
  if not LoggedIn then
    Exit;
    Wait(2000);
    begin
    Wait(200+random(300));
      if findcolorspiraltolerance(x,y, oak, MSX1, MSY1, MSX2, MSY2,7) then
        begin
          MMouse(x,y,0,0);
            if IsUpText('hop') then
              begin
                Mouse(x,y,0,0,false);
                ChooseOption('hop');
                MarkTime(Time);
                While TimeFromMark(Time)<9000 do
                Wait(60+random(10));
              end;
        end;
    end;
end;

procedure AntiRandoms;
begin
  if (not(LoggedIn))then Exit;
    FindNormalRandoms;
    FindLamp('Woodcutting');
    if (FindFight) then
      begin
        Wait(500+random(60))
        SetRun(true);
        Wait(500+random(600))
        RunAway('N',True,1,15000);
      if NoGameTab xor InBlack then
        begin
          Writeln('non-solveble random for this script :/');
          Logout;
          Exit;
        end;
      end;
end;

procedure AntiBan;
begin
  if not LoggedIn then Exit;
    case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: DoEmote(5 +Random(17));
    6: SleepAndMoveMouse(1235+random(860));
    7: MMouse(random(300), random(250), 10, 10);
    8: begin
        GameTab(1 + Random(12));
        wait(1200+random(1000));
        GameTab(4);
       end;
    end;
end;


procedure Droplog;
begin
  for item:=2 to 28 do
  dropitem(item);
  Loads:=Loads+27;
end;

procedure MainLoop;
 begin
 repeat
   Chopping;
   AntiBan;
   AntiRandoms;
   Progress;
   RandomsReport;
   if invfull then Droplog;
 until not(loggedin);
end;

begin
  SetUpSRL;
  SMARTSetUp('world38', True, False, False);
  SetTargetDC(SMARTGetDC);
  Signature;
  DeclarePlayers;
  if Loggedin then Logout;
    LoginPlayer;
    ActivateClient;
    FindAxe;
    MainLoop;
end.

uuummm i think the msot booring thing is mining? would guild miner work ? :D if it does ill start making it ;D

edit:

edit2:I fixed some of the standards in the powerchopper, and btw we do notice when you put srl functions into a script to make it look bigger? SrlRandomsReport? FindAxe? also i didn't cap most of the things do that yourself :P

i want to show that i know basics, and i wont change because i fail with this application, but ty for tips ;)

Omg "I live in Lithuania, Vilnius. If you dont know that country is north from Poland, east from Baltic sea."

I was born there :D

Labas ;)

I would vote no, the scripts too simple as everyone said, but I just won't vote. Include (D)DTMs, TPAs, some Radialwalking, and some failsafes and you should get in :) GL, you're on the right track.

From: Runescapian

I would vote no, the scripts too simple as everyone said, but I just won't vote. Include (D)DTMs, TPAs, some Radialwalking, and some failsafes and you should get in :) GL, you're on the right track.

I would say the exact same thing. I want to thank you for actually scripting and not just taking scripts like a lot of the leechers. You're on the right track! At one point, we were all where you are now, or at a similar point. (Wow, I can't imagine Nava2 and Narcle back then :eek: ). Anyway, good luck and keep it up!

sorry no this time you are off on the right end of the stick tho have a basic idea of procedure functions so better luck next app ;)

keep it up

Hmm, reflection is an awesome tool, but you need to know when its better to use color or better to use reflection.

Glad to see you working like this. :)

Nice work.

But it is still a no. I want to see you improve, get better. I would rather say no once and see you improve than say yes and see your skills stagnate.

From: sandos1234

procedure Droplog;
begin
  for item:=2 to 28 do
  dropitem(item);
  Loads:=Loads+27;
end;

To:

begin
  for item:=2 to 28 do
  dropitem(item);
  IncEx(Loads,27);
end;

ty for tips and wooooot got one positive vote :DDD

Lauren, IncEx is slower. Just do Var := Var + Number;.

:)

Hmm. For me not ;)

program New;
{.include SRL/SRL.scar}
var i,mark:integer;
begin
  MarkTime(Mark);
  i:=i+27;
  writeln(inttostr((TimeFromMark(i)/1000)));
end.

Successfully compiled (1533 ms)
6034
Successfully executed

with IncEx, it is:

Successfully compiled (1492 ms)
5921
Successfully executed


======

But could be my computer, too.

yeah that's why i don't use it, its only faster in normal pascal compilers, it's a no from me but your going well and all i did was tell you to improve your standards and remove useless functions that you copied from srl nothing else

i think this topic can be deleted :/ my appeal wont be succeded anyway ;) gf i tried :( i think ill try to join srl-members like after 1 month or idk. Realized that its not so eazy to get it here :)
Dont worry ill apply next time for sure ;D cya till then

Yes from me, improve it and you might get in next time.. Good luck.

From: altec
i think this topic can be deleted :/ my appeal wont be succeded anyway ;) gf i tried :( i think ill try to join srl-members like after 1 month or idk. Realized that its not so eazy to get it here :)
Dont worry ill apply next time for sure ;D cya till then

That's the spirit :)
You may try again in two weeks :)
Closed.