SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
small amount of java, php, html, C#, js, vb

Other Communitys
pirator, sythe, mmowned

How Long have You Played Runescape
since october 04

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

My name is Brian, I am a very open-minded person. I started with an interest in computers around age 10, starting basic HTML web design after school with my computers teacher. When I started taking classes in high school I took HTML 1, in 9th grade then in 10th I took HTML 2. After that in 11th grade I took Advanced Computer Networking, passed all classes with an A. In 12th I took 3D Animation and Visual Basic. I am a naturally fast learner when motivated, and due to the gaiety runescape has converted itself into, I no longer want to "play" it. I want to bot it ;) I'm currently in college studying to be something in a science field, or computers.

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

This is an Auto Firemaker I am working on. I just started learning Scar Script about a week ago, so It still has a lot of bugs. (some of the code I didn't completely do myself BTW the talk back thing - because its stuff I would of put myself but was already written in another script I downloaded)

///////////////////////////////////////////////////////////////////////////
//  _____  _______  _______  _______            _______  _______     __  //
//                                                                       //
// | _   ||   _   ||   _   ||   _   |.--.--.--.|   _   ||   _   |.--|  | //
//                                                                       //
// |.|   ||___|   ||___|   ||___|   ||  |  |  ||___|   ||___|   ||  _  | //
//                                                                       //
// `-|.  | _(__   | _(__   |   /   / |________| _(__   | _(__   ||_____| //
//                                                                       //
//   |:  ||:  1   ||:  1   |  |   |            |:  1   ||:  1   |        //
//                                    Brian                              //
//   |::.||::.. . ||::.. . |  |   |            |::.. . ||::.. . |        //
//                                                                       //
//   `---'`-------'`-------'  `---'            `-------'`-------'        //
///////////////////////////////////////////////////////////////////////////


Program NubScript;
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.scar}
{.include SRL/SRL/misc/Smart.scar}

     SRLID:= '';            // SRL Id Ex: "9911"
     SRLPassword:= '';      // SRL password. Ex: "password"

    

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

const

  VerNumber = '0.01';            // Version Number of the script
  Username    = '';              // Your Account username (for logging in)
  Password    = '';              // Your password (for logging in)
  Nick        = '';              // Nickname (3-4 lowercase letters, no spaces) used for random detection
  World       = 36;              // World you wish to auto in   

var
  thechat,talkername,ZeText:string;
  GoodBye,YourName,General,Greetings,Woodcutting,Firemaking,Macroes:Array [0..10] of string;
  Funnies,Questions,Totals,Highest: Array [0..10] of String;
  ResponseTime: LongInt;



function DetermineHighest: string;
var
  h,i,skill: integer;
begin
  for h:= 1 to 99 do
  begin
    for i:= 1 to 21 do
    begin
      if (Players[CurrentPlayer].level[i] >= h) then
      begin
        skill:= i;
      end;
    end;
  end;
  case skill of
    1 : result:= 'attack';
    2 : result:= 'strength';
    3 : result:= 'defence';
    4 : result:= 'range';
    5 : result:= 'prayer';
    6 : result:= 'magic';
    7 : result:= 'runecrafting';
    8 : result:= 'hitpoints';
    9 : result:= 'agility';
    10 : result:= 'herblore';
    11 : result:= 'thieving';
    12 : result:= 'crafting';
    13 : result:= 'fletching';
    14 : result:= 'slayer';
    15 : result:= 'mining';
    16 : result:= 'smithing';
    17 : result:= 'fishing';
    18 : result:= 'cooking';
    19 : result:= 'firemaking';
    20 : result:= 'woodcutting';
    21 : result:= 'farming';
  end;
end;



function DetermineTotal: string;
var
  i,total: integer;
begin
  for i:= 1 to 21 do
  begin
    Total:= Total + Players[CurrentPlayer].Level[i];
  end;
  result:= inttostr(Total+3);
end;

procedure SetupArrays;
begin
  Greetings[0]:= 'Hi';
  Greetings[1]:= 'Hello';
  Greetings[2]:= 'Sup';
  Greetings[3]:= 'yo';
  Greetings[4]:= 'good day';
  Greetings[5]:= 'homey';
  Greetings[6]:= 'homeslice';//
  Greetings[7]:= 'ello';
  Greetings[8]:= 'Sup';
  Greetings[9]:= 'Hi';
  Greetings[10]:= 'Hey';

  Questions[0]:= 'ok i guess...you?';
  Questions[1]:= 'great';
  Questions[2]:= 'good';
  Questions[3]:= 'ok, u';
  Questions[4]:= 'fine';
  Questions[5]:= 'umm..ok';
  Questions[6]:= 'awesome';
  Questions[7]:= 'How are you';
  Questions[8]:= 'ow are u';
  Questions[9]:= 'ow r u';
  Questions[10]:= 'ow are you doing';

  General[0]:= 'idk';
  General[1]:= 'i dont know';
  General[2]:= 'wow..';
  General[3]:= 'hmmmmmmmmmmmmm';
  General[4]:= 'im black';
  General[5]:= 'poo';
  General[6]:= 'im captain underpants';
  General[7]:= 'Who';
  General[8]:= 'What';
  General[9]:= 'How';
  General[10]:= 'Why';

  Macroes[0]:= 'what the hell?';
  Macroes[1]:= 'omfg im not an autoer';
  Macroes[2]:= 'whatcha talkin bout willis';
  Macroes[3]:= 'bots are gone';
  Macroes[4]:= 'there arent bots anymore';
  Macroes[5]:= 'stupid potty bots';
  Macroes[6]:= 'il creampie some of these bots';
  Macroes[7]:= 'utoer';
  Macroes[8]:= 'bot';
  Macroes[9]:= 'acroer';
  Macroes[10]:= 'utoing';

  Funnies[0]:= 'lol';
  Funnies[1]:= 'rofl';
  Funnies[2]:= 'roflcopter';
  Funnies[3]:= 'lmao';
  Funnies[4]:= 'lmfao';
  Funnies[5]:= 'pwnt?';
  Funnies[6]:= 'wtf';
  Funnies[7]:= 'lol';
  Funnies[8]:= 'rofl';
  Funnies[9]:= 'lmao';
  Funnies[10]:= 'haha';

  YourName[0]:= 'ya?';
  YourName[1]:= 'what?';
  YourName[2]:= 'what you want?';
  YourName[3]:= 'yep?';
  YourName[4]:= '......?';
  YourName[5]:= 'im chuck norris';
  YourName[6]:= 'byah! rick james';
  YourName[7]:= Players[CurrentPlayer].Name;
  YourName[8]:= Players[CurrentPlayer].Nick;
  YourName[9]:= Players[CurrentPlayer].Name;
  YourName[10]:= Players[CurrentPlayer].Nick;

  GoodBye[0]:= 'later man';
  GoodBye[1]:= 'bye dude';
  GoodBye[2]:= 'cya later man';
  GoodBye[3]:= 'cya dude';
  GoodBye[4]:= 'k later';
  GoodBye[5]:= 'bye man';
  GoodBye[6]:= 'i love you';
  GoodBye[7]:= 'gtg';
  GoodBye[8]:= 'bye';
  GoodBye[9]:= 'brb';
  GoodBye[10]:= 'cya';

  Woodcutting[0]:= 'mine is '+inttostr(Players[CurrentPlayer].level[12]);
  Woodcutting[1]:= inttostr(Players[CurrentPlayer].level[12])+' you';
  Woodcutting[2]:= inttostr(Players[CurrentPlayer].level[12]);
  Woodcutting[3]:= 'almost '+inttostr(Players[CurrentPlayer].level[12]+1);
  Woodcutting[4]:= 'im almost'+inttostr(Players[CurrentPlayer].level[12]+1);
  Woodcutting[5]:= 'poopy only '+inttostr(Players[CurrentPlayer].level[12]);
  Woodcutting[6]:= 'okey im '+inttostr(Players[CurrentPlayer].level[12]);
  Woodcutting[7]:= 'woodcutting lvl';
  Woodcutting[8]:= 'woodcutting level';
  Woodcutting[9]:= 'wc lvl';
  Woodcutting[10]:= 'wc level';

  Firemaking[0]:= 'mine is '+inttostr(Players[CurrentPlayer].level[15]);
  Firemaking[1]:= inttostr(Players[CurrentPlayer].level[15])+' you';
  Firemaking[2]:= inttostr(Players[CurrentPlayer].level[15]);
  Firemaking[3]:= 'almost '+inttostr(Players[CurrentPlayer].level[15]+1);
  Firemaking[4]:= 'im almost'+inttostr(Players[CurrentPlayer].level[15]+1);
  Firemaking[5]:= 'poopy only '+inttostr(Players[CurrentPlayer].level[15]);
  Firemaking[6]:= 'okey im '+inttostr(Players[CurrentPlayer].level[15]);
  Firemaking[7]:= 'firemaking lvl';
  Firemaking[8]:= 'fm lvl'
  Firemaking[9]:= 'wc lev';
  Firemaking[10]:= 'wcin level';
  
  Highest[0]:= 'mine is '+DetermineHighest;
  Highest[1]:= DetermineHighest+' you';
  Highest[2]:= DetermineHighest;
  Highest[3]:= DetermineHighest+' i guess';
  Highest[4]:= 'mines '+DetermineHighest;
  Highest[5]:= DetermineHighest;
  Highest[6]:= 'mines '+DetermineHighest+' u?';
  Highest[7]:= 'high lvl';
  Highest[8]:= 'biggest lvl'
  Highest[9]:= 'highest lvl';
  Highest[10]:= 'highest lev';

  Totals[0]:= 'mine is '+DetermineTotal;
  Totals[1]:= DetermineTotal+' you';
  Totals[2]:= DetermineTotal;
  Totals[3]:= DetermineTotal+' i guess';
  Totals[4]:= 'mines '+DetermineTotal;
  Totals[5]:= DetermineTotal;
  Totals[6]:= 'mines '+DetermineTotal+' u?';
  Totals[7]:= 'total lvl';
  Totals[8]:= 'totals lvl'
  Totals[9]:= 'total lev';
  Totals[10]:= 'totals lev';

end;

function TheLastChat: Boolean;
var
  i: Integer;
  textP: TPoint;
begin
  textP := TextCoords(8);
  talkername := LowerCase(Trim(GetTextAtEx(textP.x - 2, textP.y - 2, 0, SmallChars, False, False, 0, 1,
    0, 60, False, tr_allChars)))
  i := Pos(':', talkername)
  talkername:= ':'+talkername;
  talkername:=Between(':',':',talkername);
  if not(talkername = '') then
  begin
    Result := True;
  end;
end;

function CheckLastChatText(thetext:string): Boolean;
var
  x, y: Integer;
  textP: TPoint;
begin
  textP := TextCoords(8);
  if findcolor(x, y, 16711680, textp.x, textp.y, textp.x + 200, textp.y + 14) then
  begin
    thechat := LowerCase(Trim(GetTextAtEx(x - 3, textp.y - 2, 0, SmallChars, False,
      False, -1, 1, 16711680, 60, False, tr_allChars)));
    if (pos(thetext,thechat) <> 0) then
      Result := True;
    try
    if (pos(thetext,Capitalize(thechat)) <> 0) then
      Result := True;
    except
      writeln('stupid chat');
    end;
    try
    if (pos(Capitalize(thetext),Capitalize(thechat)) <> 0)then
      Result := True;
    except
      writeln('stupid chat');
    end;
  end;
end;

function Respondit(TheType:Array of String):boolean;
var
  i,Response:integer;
begin
  if not TheLastchat then exit;
  if (Capitalize(talkername) = Capitalize(Players[CurrentPlayer].Name))then exit;
  for i:= 7 to 10 do
  begin
    ZeText:= TheType[i];
    if CheckLastChatText(ZeText)then
    begin
      Response:= random(7);
      wait(random(500));
      TypeSend(TheType[Response]);
      RespondedTimes:= RespondedTimes + 1;
      ReportVars[3]:= ReportVars[3] + 1;
      SendSRLReport;
      SRLRandomsReport;
      Result:=true;
    end;
  end;
end;

function RespondAll:boolean;
begin
  SetupArrays;
  result:= false;
  if (TimeFromMark(ResponseTime) < RandomRange(5000,7500))then exit;
  result:= RespondIt(Highest);
  if result then
  begin
    MarkTime(ResponseTime);
    exit;
  end;
  result:= RespondIt(Totals);
  if result then
  begin
    MarkTime(ResponseTime);
    exit;
  end;
  result:= RespondIt(Greetings);
  if result then
  begin
    MarkTime(ResponseTime);
    exit;
  end;
  if result then exit;
  case random(4)of
    0: result:= RespondIt(Funnies);
    1: wait(1);
    2: wait(1);
  end;
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(Crafting);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(Mining);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(Questions);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(YourName);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(Goodbye);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
  if result then exit;
  result:= RespondIt(Macroes);
  if result then
  begin
    MarkTime(ResponseTime);
  end;
end;



            
  
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 Bank;
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);
  Bank;
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(4800);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  DeclarePlayers;
  if not(LoggedIn) then
    LoginPlayer;

end;

function wutfirelight : 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 Bank;
begin
  ChooseOption('-quic');
  repeat
    wait(100);
  until(BankScreen);
  wait(100+random(1000));
  FixBank;
  wait(100+random(1000));
  Withdraw(1, 1, 0);
end;


procedure ProgressReport;
begin
  SRLRandomsReport;
  SendSRLReport;
  If(Not(LoggedIn)) then Exit;
  Writeln('-----------------------------------------------');
  Writeln('                 Logburn                       ');
  Writeln('                                               ');
  Writeln('           '| '~)'~)~/ '~)'~) _|               ');
  Writeln('           .|.._)._)/VV._)._)(_|               ');
  Writeln('                                               ');
  Writeln('    Brian   Ver '+VerNumber+'  NoobScript      ');
  Writeln('-----------------------------------------------');
  Writeln(' o   Ran for '+TimeRunning);
  Writeln(' o   Starting experience: '+IntToStr(Players[CurrentPlayer].integers[1]));
  Writeln(' o   Experience gained: '+IntToStr(GetExperience-Players[CurrentPlayer].integers[1]));
  Writeln(' o   Starting level: '+IntToStr(Players[CurrentPlayer].integers[2]));
  Writeln(' o   Level(s) gained: '+IntToStr(GetMaxLevel-Players[CurrentPlayer].integers[2]));
  Writeln('-----------------------------------------------');
end;


procedure Walk;
begin
  case random(2) of
    0: Find('startspot1', true);
    1: Find('startspot2', true);
  end;
  flag;
  wutfirelight;
  Find('crossroads', true);
  Flag;
  Find('bank', true);
  Flag;
  wait(1000+random(1000));
  Find('bankbooth', false);
  Bank;
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;


procedure Determine;
begin
  PrntMyPos;
end;

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

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

Woah.. more than half of the script is auto-responder O.o

Holding my vote.

same as zytex

No, first you have to test it's stability, not post a script what even compile.

I'm with Negaal and Zytex!. It looks like a small error in the report that's causing it not to compile so I'll hold my vote.

Its reflection, and half of it is an AutoResponder 0_o Some functions look very, very, good. But try and make a script that, compiles, has (D)DTM's, no reflection, Radial(Road)Walk, Auto color, custom TPA's.
That stuff really helps on your App. Sorry this time its a no…

no sorry i bet it wont even work for 1 thing just looking at it you dont have it set up right to run with reflection


Program NubScript;
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.scar}
{.include SRL/SRL/misc/Smart.scar}

No, even if it would compile, (its just a small error) you walk using reflection, use color, RadialWalk, DDTM's and just TPA's for object finding.

From: sirlaughsalot
No, even if it would compile, (its just a small error) you walk using reflection, use color, RadialWalk, DDTM's and just TPA's for object finding.

Reflection is not a reason to give someone an instant no. Please don't vote no just because someone uses a tool you don't like.

That said, I voted no.

(some of the code I didn't completely do myself BTW the talk back thing - because its stuff I would of put myself but was already written in another script I downloaded)

Umm, yeah, so how do we know what code is yours and what code is someone elses? No credit is given to the original author, which is plagiarism IMO.

90% of the script is the auto talker which, IMO, isn't even all that advanced, it is more of 1000 words strung together to take up space and overwhelm us.

after that, pretty much the only function that does anything useful is the wutfirelight function. and even that is Pretty bad IMO because it doesn't account for the possibility that the matchbox could be in a different location or some random could give you a box or something.

RespondAll is hideous, very unprofessional, a loop there would be much better.

Ultimately, the biggest kicker for me is that I don't know what part of this script is yours and what part is the author you stole from. But I have a suspicion that I could guess original authorship pretty easily by comparing the quality of the procedures/functions.

A good script isn't a long one, generally you can get a feel for how good a script is by quickly glancing over it, this one instantly give the feel of poorly done. Your new, you have only been scripting for a week, You have potential so don't let me discourage you. Come back in two weeks, work on looping, case statements, and learning the difference between good programming and bad programming.

Better luck next time.

sorry no.
responder too big and rest too small :)

No,

Your responder is too long.
You don't have dtms/bitmaps.
You don't show you know how to do better mapwalking.

No sorry good luck,
Cut em2 it

Nuh uh. :)

soz but no u only have a really big auto responder in there… soz good luck next time

Neh.

No, many reasons above.

Because you tried i'll give you a yes. But overall you won't be getting in.

Hey people… The little compile error can easily be solved, and it does not really ruin the code.

But 60% is Auto-Responder 15% is for the report and 25% for the actual thing..

Im not going to vote on this. I want you in, because script do need more anti-ban than it has today, but you also need the script to do the stuff. So im 50% Yes and 50% No.

Good luck ;)

im not fond of your main loop. if this had a different walk apart from reflection ild prob say yes.

I think I'll vote no.. Sorry. Reasons have been posted above..

?

* No Reflection [or backed up heavily with colors]
* (D)DTMs
* TPAs
* 300 lines+ (actual script)

From: Laur€ns
?

* No Reflection [or backed up heavily with colors]
* (D)DTMs
* TPAs
* 300 lines+ (actual script)

300 lines+ should definitely not be a requirement.

A script can be good regardless of how long it is. (even though, this is in few cases)

True, I have an Edgeville Yew Cutter + Banker which is only 182 lines long. It runs for atleast 7 hours.

close this? :S