SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
no but willing to learn :)

Other Communitys


How Long have You Played Runescape
3 years this year

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

i have posted a application that got denied so i have decided to try again, hope fully this will get me SRL mem's but if not then ill keep m,aking better and better scripts…this script has anti-ban,anti-randoms, uses DTM's,Radial Walk and so on.

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

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~DESCRIPTION:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//             Joelster134's Vial Filler + Banker                             \\
//           Start ANYWHERE in VEB with empty inv and vials in 1st slot...    \\
//           Please say if this could get me SRL Mems or not :)               \\
//          Also please post proggies and i WILL update it                    \\
//           SETUP LINES ARE 37-51 (WITH SINGLE PLAYER)
//////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~CREDITS:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//       Credits go to Nose Smasher for making a Vial filler for me to edit :)\\
//       Credits to me for editign this script + making it better :)          \\
//       + SPEACIAL CREDITS for all those SRL guys who made my scripting possible\\
/////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~FEATURES:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//             Has anti-ban, Anti-randoms, uses Tpoint array,Dtms',aswell as  \\
//             Radial walk ALSO HAS MULTI PLAYER OPTION!!!                    \\
////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//////////////////------------------>>setup below<<------------------\\\\\\\\\\\\

program Vial_Filler;
{.include SRL/SRL.scar}

var
 x, y, i, Filled, Total, Loads,
  StopLoad, eVialDTM, RoadColorz: integer;

  
  
const
  YourSRLID   = '8';     // SRL id username
  YourSRLPass = 'lukanator';     // SRL id password
  
procedure declarePlayers;
begin
  HowManyPlayers := 1;
  numberOfPlayers(howManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';  //username
  Players[0].Pass := '';  //password
  Players[0].Nick := 'l';  //3-4 letters from your username
  Players[0].loc := 'bank';  //leave this
  Players[0].integers[0] := 500;  //How many loads before switching player
  Players[0].Active := True;
  
  CheckUserNicks;

end;



procedure AntiBan;
begin

    if not LoggedIn then Exit;
     case (Random(30)) of
      1:  RandomRClick;
        5:  HoverSkill('Woodcutting', False);
          11:  RandomMovement;
           15: BoredHuman;
          21: DoEmote(400 +Random(90));
         24:  PickUpMouse;
         5:  HoverSkill('Attack', False);
         5: HoverSkill('Mining', False);
         27: begin
          Gametab(1 + Random(12));
           Wait(3220 + Random(2415));
          Gametab(4);
         end;
     30: SleepAndMoveMouse(3600);
  end;
end;

{~~~~~~~~~~~~~~~~~~~~~~~~)
(Anti-Randoms are here!  )
(~~~~~~~~~~~~~~~~~~~~~~~~}
procedure AntiRandoms;
begin
     findnormalrandoms;
     if findfight=true then
     begin
      runaway('E',true,1,5000+random(1000));
  end;
end;




procedure proggy;

begin
  ClearDeBug;
  SRLRandomsReport;
  Writeln('//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\');
  Writeln('         Joelster134 Vial Filler + Banker           ');
  Writeln('//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\');
  Writeln('~');
  Writeln('~ Total Vials Filled = ' + IntToStr(Total));
  Writeln('~');
  Writeln('~ toTalRunningtime       = ' + TimeRunning);
  Writeln('//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\');
  for i:=0 to getarraylength(players)-1 do
  Writeln('*'+ Players[i].Name + ' = ' + Players[i].loc + ', active? ' + BoolToStr(Players[i].Active) + '~ Vials Filled = ' + IntToStr(Players[i].integers[1]));
end;

procedure walktowater;

begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='walkwater') then exit;
  RoadColorz := FindVarrockRoadColor;
  setrun(true);
  wait(100+random(50));
  gametab(4);
    begin
      writeln('no symbol - RadialWalk time');
      wait(100);
      RadialRoadWalk(RoadColorz, 280, 340, 67, 1, 1);
      AntiBan;
      AntiRandoms;
    end;
  if findsymbol(x,y,'water') then
    begin
      mouse(x,y,1,1,true);
      FFlag(1);
      AntiRandoms;
      wait(175+random(50));
      players[currentplayer].loc:='water';
    end;
end;

procedure fillvials;
var Fillz, Filz: integer;
begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='water') then exit;
  MarkTime(Fillz);
  Makecompass ('N');
  setangle(true);
  gametab(4);
  while not findcolortolerance(x,y,7952198,msx1,msy1,msx2,msy2,10) do
    wait(2500+random(100));
  if findDTM(eVialDTM,x,y,mix1,miy1,mix2,miy2) then
    begin
      wait(100+random(50));
      mouse(x,y,1,1,true);
      wait(250+random(100));
    end;
  if findcolortolerance(x,y,7952198,msx1,msy1,msx2,msy2,10) then
    begin
      mouse(x,y,1,1,true);
      AntiRandoms;
      wait(500+random(500));
      MarkTime(Filz);
      repeat
        if not (loggedin) then break;
        FTWait(4);
        wait(700+random(200));
        AntiRandoms;
        AntiBan;
        if not (findcolortolerance(x, y, 12822951, MIX1, MIY1, MIX2, MIY2, 3)) and (TimeFromMark(Filz) > 7000) then break;
      until (not findDTM(eVialDTM,x,y,mix1,miy1,mix2,miy2));
    end;
  gametab(4);
  wait(100);
  if not (findDTM(eVialDTM,x,y,mix1,miy1,mix2,miy2)) or (TimeFromMark(Fillz) > 120000) then
    players[currentplayer].loc:='walkbank';
end;

procedure walktobank;

var Bankers: integer;
begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='walkbank') then exit;

  Bankers := DTMFromString('78DA63BCC2C0C030890105FCFFFF9FE13F906' +
       '684B0FF339E02326641E458A16AFEFC6162E087AA0101C65B4062' +
       '2601359708AB0100CBC713D3');

  RoadColorz := FindVarrockRoadColor;
  setrun(false);
  wait(200);
  RadialRoadWalk(RoadColorz, 100, 150, 50, 1, 1);
  FFlag(1);
  AntiRandoms;
  if dtmrotated(Bankers,x,y,mmx1,mmy1,mmx2,mmy2) then
    begin
      mouse(x,y,1,1,true);
      FFlag(1);
      wait(100+random(50));
      players[currentplayer].loc:='bank';
    end;
  FreeDTM(Bankers);
end;

procedure CountVials;

begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='bank') then exit;
  gametab(4);
  Filled := CountItems(12889257, 'color', [0, 2, 4]);
  IncEx(Total, Filled);
  IncEx(ReportVars[0], Filled);
  IncEx(Players[CurrentPlayer].integers[1], Filled);
  
end;

procedure bank;

begin
  if not(lowercase(players[currentplayer].loc)='bank') then exit;
  repeat
    if (not(Loggedin)) then  break;
    OpenBankQuiet('veb');
  until(BankScreen);
  if (bankscreen) then
    begin
      wait(100+random(100));
      fixbank;
      depositall;
      wait(500+random(500));
    end;
  if not finddtm(eVialDTM,x,y,msx1,msy1,msx2,msy2) then
    begin
      writeln('no more vials...');
      closebank;
      logout;
      nextplayer(false);
    end else
    begin
      if finddtm(eVialDTM,x,y,msx1,msy1,msx2,msy2) then
        begin
          mouse(x,y,1,1,false);
          wait(200+random(100));
          if not (chooseoption('All')) then exit;
          wait(300+random(100));
          players[currentplayer].loc:='walkwater';
          closebank;
        end;
    end;
end;


procedure setup;

begin
  setupsrl;
  ScriptID := '526';
  declareplayers;
  eVialDTM := DTMFromString('78DA635CCBC0C0F0880105949595333003694' +
       '620FE0F048C1B818C9B0C6880118904D2AB80C42D026A960089A7' +
       '04D46C07124F08A801B9F9357E350064430ECD');

  SRLID := YourSRLID;
  SRLPassword := YourSRLPass;
  If ( SRLID = '' ) Or ( SRLPassword = '' )Then
    Begin
      Writeln(' You Need a SRL Stats Account, Create One Fool..');
      OpenWebPage('http://www.srl-forums.com');
      TerminateScript;
    End;
  wait(50);
end;

procedure MainLoop;

begin
  repeat
    if not (loggedin) then break;
    MouseSpeed:= 11+random(3);
    bank;
    walktowater;
    fillvials;
    walktobank;
    CountVials;
    Inc(Loads);
    proggy;
    AntiRandoms;
    AntiBan;
  until(Loads = StopLoad);
  ActivateClient;
  nextplayer(true);
  ActivateClient;
end;



begin
  ClearDeBug;
  setup;
  ActivateClient;
  Filled := 0;
  Loads := 0;
  Total := 0;
  StopLoad := (Players[CurrentPlayer].integers[0] + random(5)+1) - random(3);
    repeat
      if not(loggedin) then
        begin
          ActivateClient;
          Loads := 0;
        end else
      Makecompass ('N');
      setangle(true);
      MainLoop;
    until(false);
end.

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

Hmm this is a hard one:

Dtms: Yes
Mapwalking: Yes
Object Finding: Not amazed but sorta yes
Standards: Epic Fail

Look in the beginners section. That really hurts my eyes to see no good standards.

Leaning to yes. Fix standards and a yes from me.

Cut em2 it

Standards - Need work
Use of good scripting knowledge - Yes
Compiles - Yes
His Script - Yup
Antiban - Yup
AntiRandoms - Yup
Tidy Progress Report - Yup
MultiPlayer - Yup

Voted yes, but you really do need to work on things like variable names and the reduction of global variables.

Overall, the script looks decent.

agreed with Boberman, but I'm going to hold my vote, im really on the edge atm. The scripts looks passable, the standards are awful, and the coding is rather inefficent.

No <———*–> Yes

Haha, my rating bar :p I'm leaning towards yes, and I'll prbably do so

Good Luck,


-Blumblebee

It's much better than what we have seen in the past. The only thing I don't like about it is the object finding, and there are almost no fail safes.
It's very close. I have to think.

w/e… yesh i guess

imo a clumsy job:

procedure walktowater;
 
begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='walkwater') then exit;
  RoadColorz := FindVarrockRoadColor;
  setrun(true);
  wait(100+random(50));
  gametab(4);
    begin
      writeln('no symbol - RadialWalk time');
      wait(100);
      RadialRoadWalk(RoadColorz, 280, 340, 67, 1, 1);
      AntiBan;
      AntiRandoms;
    end;
  if findsymbol(x,y,'water') then
    begin
      mouse(x,y,1,1,true);
      FFlag(1);
      AntiRandoms;
      wait(175+random(50));
      players[currentplayer].loc:='water';
    end;
end;

cmon that get so much better…
sorry no, add DDtms as failsafes or something
findsymbol= 50/50

all i see is DTM's and RRW.

gl next time.

thank you all for your comments/negatives…i need to work MAJORLY on standards and will be reading tutorials…i was hoping for this script to pass so hopefully it will :)

Yah.

Hope you get in:)

thanks i hope i get in too. since my last script ive wanted to get in more and more :)

umm yesh

I like your attitude, scripts ok.. Sorry will have to be a no, But keep trying , i want to see a " Neater " So to speak, script next time, things as standards, Var names , Reduction or Glable Varables

like..



After

procedure WalkToWater;
begin
  if not Loggedin then
    Exit;
  if not(lowercase(players[currentplayer].loc)='walkwater') then
    Exit;
  RoadColorz := FindVarrockRoadColor;
  Setrun(true);
  Wait(100+random(50));
  Gametab(4);
  begin
    WriteLn('no symbol - RadialWalk time');
    RadialRoadWalk(RoadColorz, 280, 340, 67, 1, 1);
    AntiBan;
    AntiRandoms;
  end;
  if findsymbol(x,y,'water') then
  begin
    Mouse(x,y,1,1,true);
    FFlag(1);
    AntiRandoms;
    Wait(175+random(50));
    Players[currentplayer].loc:= ('water');
  end;
end;

Before

procedure walktowater;
 
begin
  if not (loggedin) then exit;
  if not(lowercase(players[currentplayer].loc)='walkwater') then exit;
  RoadColorz := FindVarrockRoadColor;
  setrun(true);
  wait(100+random(50));
  gametab(4);
    begin
      writeln('no symbol - RadialWalk time');
      wait(100);
      RadialRoadWalk(RoadColorz, 280, 340, 67, 1, 1);
      AntiBan;
      AntiRandoms;
    end;
  if findsymbol(x,y,'water') then
    begin
      mouse(x,y,1,1,true);
      FFlag(1);
      AntiRandoms;
      wait(175+random(50));
      players[currentplayer].loc:='water';
    end;
end;

Ok, i am currently reading Standard tut's and will fix up my sloppyness :)

What about your inactive thread?? You seem very active here?
Yes. Though 'Just'.

my father will start to be cracking down on me starting sunday,..but usually onm here wen he is playing WoW…but after sunday ill be on WAY less..

Yes i have no life and proud of it

yes
bbl to post why

Yeah, but barely. The standards are terrible.

This isn't really multi player. The only thing you have is a NextPlayer(True) at the end. Multi player is really like

if not Something then
begin
  Logout;
  Something[CurrentPlayer]:= False;
  exit;
end;

Yea. You have absolutly no failsafes, no "If Not" 's, and this isn't really your script.

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~CREDITS:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//       Credits go to Nose Smasher for making a Vial filler for me to edit :)\\
//       Credits to me for editign this script + making it better :)          \\
//       + SPEACIAL CREDITS for all those SRL guys who made my scripting possible\\
/////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

There are also no TPA's. SOrry, it's just not complicated enough.

Hope you see my views on this.

noidea

Yes he made the script but i changed it, i added in new things took out half his script and put in my own work. i know my standards are terrible, plus i credited him all should read >.<

i hope this will get me through but if not i will come back better :)

Sorry change my vote to a 'no'. This is only 50% of his work!! Its meant to be atleast 80!

From: NaumanAkhlaQ
Sorry change my vote to a 'no'. This is only 50% of his work!! Its meant to be atleast 80!

someone please close this thread then :(

i will come back in a few weeks with this completley all my work.\


i thought i had edited it nough but i dunno :S


Sorry.

~~Joel~~

Try making your own from scratch. Thats the best way in my opinion.

yea im working on a any item high/low alcher right now.

walking involved? and yeah ill change to a no if that's the case sorry.

From: joelster134
yea im working on a any item high/low alcher right now.

No!!!!! Try some thing with walking. I doubt an alcher will get you in…

ok, what about a Nardah Chocolate buyer/banker? im working on that as well?

yeah if you use dtms walking tpas failsafes etc ill vote yes if its as good as this but your own work

well its the only kind out there so it's ALL my work :)

i been working on it for a bit…except it wont compile…i posted in Scripting Help section…need help on it :(

anyway ty i will post it next time i apply :)

what's happening with this thread? someone please close this already??


it's kinda useless just sitting here :S

Sorry for double post just like to make a point :(

~~Joel~~

The first thing that Hits me as I look at this script is the epic demise of all of your standards. I noticed that other people have being saying this but what has happend here?? :

procedure AntiBan;
begin
 
    if not LoggedIn then Exit;
     case (Random(30)) of
      1:  RandomRClick;
        5:  HoverSkill('Woodcutting', False);
          11:  RandomMovement;
           15: BoredHuman;
          21: DoEmote(400 +Random(90));
         24:  PickUpMouse;
         5:  HoverSkill('Attack', False);
         5: HoverSkill('Mining', False);
         27: begin
          Gametab(1 + Random(12));
           Wait(3220 + Random(2415));
          Gametab(4);
         end;
     30: SleepAndMoveMouse(3600);
  end;
end;

It looks like a mangled leg.

However, having looked through it I'd say that this could be easily fixed and therefore I will have to say YES! :) Goodluck m8 :D

EDIT: Oh dear… Not your work? Ouch :s I didnt read the whole post throughly. Appologies, I will have to change that vote to a no.

yeah as i said sum1 please close or sumthin im sick of checking on this lol :D

From: 0wn 4 skill
The first thing that Hits me as I look at this script is the epic demise of all of your standards. I noticed that other people have being saying this but what has happend here?? :

procedure AntiBan;
begin
 
    if not LoggedIn then Exit;
     case (Random(30)) of
      1:  RandomRClick;
        5:  HoverSkill('Woodcutting', False);
          11:  RandomMovement;
           15: BoredHuman;
          21: DoEmote(400 +Random(90));
         24:  PickUpMouse;
         5:  HoverSkill('Attack', False);
         5: HoverSkill('Mining', False);
         27: begin
          Gametab(1 + Random(12));
           Wait(3220 + Random(2415));
          Gametab(4);
         end;
     30: SleepAndMoveMouse(3600);
  end;
end;

It looks like a mangled leg.

However, having looked through it I'd say that this could be easily fixed and therefore I will have to say YES! :) Goodluck m8 :D

EDIT: Oh dear… Not your work? Ouch :s I didnt read the whole post throughly. Appologies, I will have to change that vote to a no.

its recommended that you don't vote for 2 weeks after being accepted.

No for the other reasons… it needs some work