SRL Archive - Archive

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

What is the meaning to life?
To become the best you can be.

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


Programming Knowledge
HTML, PHP

Other Communitys
None

How Long have You Played Runescape
~3 years

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

Well to start off my name is Kyle. I have been scripting with Scar for around a month to a month and a half. I know I'm not the best at it but I try to make myself useful in other areas as in helping people with S.M.A.R.T. problems or just general scripting help. I have so say that I'm a computer nerd, my dad and I built our own computer when I was 12. By the time I turned 15 I knew HTML and PHP and had already made two websites for my school. During my sophomore year at school I became involved in yearbook, and did that through my senior year. I became very familiar with server maintenance and switching. I built a site for the yearbook staff and linked it from our Mac account. For my Senior project I created a site for my research and still use it. I'm in the process of learning Flash, but have taken a break from it. I'm still new to Scar and I am still learning as much as possible. That is all I can think of to list for myself. Have a great day.

~Camo

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

program RangeGuilder;
{.include srl/srl.scar}

{I have to say thanks to Sand Storm for cleaning up my script and helping me with
cases. He hopped on MSN and taught me the quick way. :D Also, thanks to Tootoot222
for helping me over IRC! Thanks to so many more people over IRC for being patient
and helping me through so many problems.}

const
  Version = 'V0.1';//Don't touch!
  
  SRLStatsID = '';
  SRLStatsPW = '';

var
  x, y, Arrows, Ticket, JudgeColor, RTargetColor, RArrows: Integer;
  ShotTarget, Games, Pop, Ground, GroundColor: Integer;

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

  Players[0].Name := ''; //Runescape account
  Players[0].Pass := ''; //Runescape password
  Players[0].Nick := ''; //3-4 letters of your runscape username
  Players[0].Active := True; //In the script or not
  Players[0].Integers[0] := 3;//Number of games to do
  Players[0].Strings[0] := 'Arrows';//This is all for now.
  
  {Players[1].Name := ''; //Runescape account
  Players[1].Pass := ''; //Runescape password
  Players[1].Nick := ''; //3-4 letters of your runscape username
  Players[1].Active := True; //In the script or not
  Players[1].Integers[0] := 3;//Number of games to do
  Players[1].Strings[0] := 'Arrows';//This is all for now.}

  SetPlayerNameTPAs;
end;

procedure LoadDTMs;
begin
  Arrows := DTMFromString('78DA633CC4C4C0F0880105849A7031F003694' +
       '620FE0F048C1B816ADE32A001462412481F01AA794F40CD79A09A' +
       '3B04D4EC05AAB94940CD71A09A6B04D4EC21EC66005F70103D');
  Ticket := DTMFromString('78DA63CC61626078CC80029AE766317001694' +
       '620FE0F048C5540357719D000231209A4E3816A5E1350930F54F3' +
       '81809A54A09AB704D49400D53C27A02609A8E6090135694035EF0' +
       '8A8C906AA794F404D196618A2AB01005FB5130B');
  RArrows := DTMFromString('78DA63DCC7C0C010C28002424DB8C0342394C' +
       'F780A487830A001465435EB80442C013520BBE209A83986E91E0C' +
       '355B8950731848B81350B38D08F79C001201B8D5B003310071CB0' +
       'A5B');
end;

procedure IfFight;
begin
  if (FindFight) Then
  begin
    RunAway('E', False, 1, 1000 + Random(500));
  end;
end;

procedure AntiRandoms;
begin
  LampSkill := 'Range';
  FindTalk;
  FindNormalRandoms;
  IfFight;
end;

procedure AntiBan;
begin
  case random(7) of
    0 : MMouse(0, 0, 700, 500);
    1 : Hoverskill('Range', false);
    2 : BoredHuman;
    3 : RandomMovement;
    4 : GameTab(1);
    5 : PickupMouse;
  end;
end;

function ResultScreen: Boolean;
var
  CBBM, CBx, CBy: Integer;
begin
  CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
    'CC4D4DC848008320900F6350DC1');
  if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
  begin
    Mouse(CBx, CBy, 4, 4, True);
    Result := True;
  end;
  FreeBitmap(CBBM);
end;

procedure SetColors;
begin
  case Pop of
    0: JudgeColor:= 9866123;
    1: JudgeColor:= 1410467;
    2: JudgeColor:= 4348768;
    3: JudgeColor:= 4490642;
  end
end;

function GetTicketCount: integer;
begin
  Result := ItemAmount('inv', 'dtm', ticket, []);
end;

procedure FindJudge;
var
  Counter : Integer;
begin
  if (not LoggedIn) then
    Exit;
  MakeCompass('E');
  SetColors;
  if FindColorSpiralTolerance(x, y, JudgeColor, MSX1, MSY1, MSX2, MSY2, 10) then
  begin
    MMouse(x, y, 2, 2);
    Wait(100);
    if IsUpText('petition Jud') then
    begin
      Mouse(x, y, 3, 3, False);
      ChooseOption('alk');
      Wait(100 + Random(300));
      ClickToContinue;
      WriteLn('Found Judge');
    end;
  end else
    Inc(Counter);
  if (Counter = 5) then
  begin
    WriteLn('Couldn''t find the judge');
    Logout;
    NextPlayer(False);
  end;
end;

procedure TalkToJudge;
begin
  if (not LoggedIn) then
    Exit;
  Wait(1000 + Random(200));
  if FindNpcChatText('give', ClickLeft) then
  begin
    ClickToContinue;
    Wait(1000 + Random(200));
    ClickToContinue;
    Wait(1000 + Random(200));
    ClickToContinue;
    Wait(1000 + Random(200));
    WriteLn('Sucessfully Talked to Judge');
  end;
end;

procedure EquipArrows;
begin
  if (not LoggedIn) then
    Exit;
  LoadDTMs;
  Wait(100 + Random(500));
  if FindDTM(Arrows, x, y, MIX1, MIY1, MIX2, MIY2)then
  begin
    MMouse(x, y, 5, 5);
    Wait(1000 + Random(40));
  if IsUpText('ield Bronz') then
  begin
    GetMousePos(x, y);
    Mouse(x, y, 2, 2, True);
    WriteLn('Equipped Arrows');
    Exit;
  end;
  end;
    FreeDTM(Arrows);
end;

procedure TargetColor;
begin
  case Random(5) of
    0: RTargetColor := 9866123;
    1: RTargetColor := 8446700;
    2: RTargetColor := 5857214;
    3: RTargetColor := 3431278;
  end;
end;

procedure FireAtTarget;
begin
  if (not LoggedIn) then
    Exit;
  MakeCompass('N');
  TargetColor;
  if FindColorTolerance(x, y, RTargetcolor, MSX1, MSY1, MSX2, MSY2, 10) then
  begin
    MMouse(x, y, 2, 2);
    Wait(100);
  if IsupText('ire') then
    begin
      Wait(100);
      GetMousePos(x, y);
      Mouse(x, y, 2, 2, False);
      ChooseOption('re-a');
      WriteLn('Fired at Target');
    if ShotTarget = 12 then
      ShotTarget := 0;
    end;
  end;
end;

function FindJudgeChat : Boolean;
begin
  if SimilarColors(GetColor(44, 401), 2638151, 5) then
    Result := True
  else
    Result := False;
end;

procedure WalkToTrader;
begin
  if (not LoggedIn) then
    Exit;
  Ground := BitmapFromString(11, 10, 'beNqLcSiKGUXUQAD8wnQF');
  GroundColor := AutoColorThis(Ground,100,MMX1,MMY1,MMX2,MMY2);
  RadialWalk(GroundColor, 305, 321, 60, 4, 4);
  Flag;
  SetAngle(True);
  if (GroundColor = 0) then
  begin
    WriteLn('Couldn''t walk to Trader');
    Logout;
    NextPlayer(False);
  end;
end;

procedure CheckTicketCount;
begin
  if (GetTicketCount >= 2000) then
  begin
    WalkToTrader;
  end;
end;

procedure TradeTrader;
begin
  if (not LoggedIn) then
    Exit;
  if FindColorSpiralTolerance(x, y, 527941, MSX1, MSY1, MSX2, MSY2, 10) then
    MMouse(x, y, 2, 2);
  if IsUpText('icket Merch') then
  begin
    Mouse(x, y, 3, 3, False);
    ChooseOption('rade');
    Wait(1000 + Random(700));
  end;
end;

function CloseTrade: Boolean;
var
  CBBM, CBx, CBy: Integer;
begin
  CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
    'CC4D4DC848008320900F6350DC1');
  if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
  begin
    Mouse(CBx, CBy, 4, 4, True);
    Result := True;
  end;
  FreeBitmap(CBBM);
end;

procedure GetItem;
begin
  if (not LoggedIn) then
    Exit;
  LoadDTM;
  case lowercase(Players[CurrentPlayer].strings[0]) of
    'arrows' : begin
               if FindDTM(RArrows, x, y, MSX1, MSY1, MSX2, MSY2) then
                 begin
                   Wait(200 + Random(500));
                   Mouse(x, y, 2, 2, False);
                   ChooseOption('uy');
                   Wait(100 + Random(300));
                   CloseTrade;
                   FreeDTM(RArrows);
                 end;
               end;
  end
end;

procedure SymbolWalk;
begin
 if FindSymbol(x, y, 'minigame') then
   Mouse(x, y, 2, 2, True);
 SetAngle(False);
end;

procedure WalkNTradeSetup;
begin
  CheckTicketCount;
  TradeTrader;
  GetItem;
  CloseTrade;
  SymbolWalk;
end;


procedure Setup;
begin
  ScriptID := '1103';
  SRLID := SRLStatsID;
  SRLPassword := SRLStatsPW;
  if ( SRLID = '' ) or ( SRLPassword = '' )then
  begin
    Writeln('You Need SRL Stats.');
    Writeln('Go here <url>http://www.stats.srl-forums.com/</url> to get one');
  end;
  Wait(1000);
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  SetAngle(False);
end;

procedure IntroText;
begin
  ClearDebug;
  WriteLn('__________');
  WriteLn('\______   \_____    ____    ____   ____');
  WriteLn(' |       _/\__  \  /    \  / ___\_/ __ \');
  WriteLn(' |    |   \ / __ \|   |  \/ /_/  >  ___/')
  WriteLn(' |____|_  /(____  /___|  /\___  / \___  >');
  WriteLn('        \/      \/     \//_____/      \/ ');
  WriteLn('  ________      .__.__       .___       ');
  WriteLn(' /  _____/ __ __|__|  |    __| _/___________');
  WriteLn('/   \  ___|  |  \  |  |   / __ |/ __ \_  __ \');
  WriteLn('\    \_\  \  |  /  |  |__/ /_/ \  ___/|  | \/');
  WriteLn(' \______  /____/|__|____/\____ |\___  >__|   ');
  WriteLn('        \/                    \/    \/       ');
  WrietLn('                               by Camo Kyle'  );
  Wait(2000);
  ClearDebug;
end;

procedure Proggy;
begin
  ClearDebug;
  Writeln('==========RangeGuilder by Camo Kyle V: ' +Version+ ' ==========');
  Writeln('||===== Time Running : ' +TimeRunning);
  Writeln('||===== Games Completed : ' +IntToStr(Games));
  Writeln('||===== Tickets Earned : ' +IntToStr(GetTicketCount));
  Writeln('||===== GP Spent : ' +IntToStr(Games * 200));
  Writeln('===================================================');
  Writeln('======= Don''t forget to Rep++ if you like ;) ======');
  Writeln('===================================================');
  Writeln('==============NO PROGGY''S NO UPDATES!=============');
  Writeln('===================================================');
  ReportVars[0] := ReportVars[0] + 1;
  ReportVars[1] := ReportVars[1];
  ReportVars[2] := ReportVars[2] + 1;
  SRLRandomsReport;
end;

procedure FireLoop;
begin
  repeat
    TargetColor;
    FireAtTarget;
    AntiRandoms;
    AntiBan;
    Wait(2200 + Random(200));
  if ResultScreen then
  begin
    ShotTarget := ShotTarget+1;
    Wait(500 + Random(100));
  end;
  if FindJudgeChat then
  begin
    ClickToContinue;
    ShotTarget := 0;
    Break;
  end;
  if ShotTarget = 12 then Break;
  until ShotTarget = 11;
    Wait(1000 + Random(400));
    ClickToContinue;
end;

begin
  SetupSRL;
  MouseSpeed := RandomRange(13, 17);
  IntroText;
  Wait(2000);
  SetUp;
  GameTab(4);
  repeat
    FindJudge;
    TalkToJudge;
    EquipArrows;
    Wait(2000);
    FireLoop;
    Games := Games +1;
    begin
      WriteLn(IntToStr(Games));
    end;
    GetTicketCount;
    WalkNTradeSetup;
    Proggy;
  until (AllPlayersInactive);
    Proggy;
    TerminateScript;
end.

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

Get some TPA's and DDTM's and it will be an awesome entry.
Holding my vote.

-The_Shermanator

[Edit]Yes now, looked over it more. Just really try to get a TPA in there.[/Edit]

It looks alright, Yes.

lets see DTM Bitmaps ok but there is not much walking… its basically symbol walk which is easy to make and no TPA so im voting no sorry

good luck

TPA's aren't a requirement to get in…

The script looks good and decently complex. I voted yes, though with some hesitation.

  case lowercase(Players[CurrentPlayer].strings[0]) of
    'arrows' : begin
               if FindDTM(RArrows, x, y, MSX1, MSY1, MSX2, MSY2) then
                 begin
                   Wait(200 + Random(500));
                   Mouse(x, y, 2, 2, False);
                   ChooseOption('uy');
                   Wait(100 + Random(300));
                   CloseTrade;
                   FreeDTM(RArrows);
                 end;
               end;
  end

Why would you make this a case statement? It might as well be a single if statement as there is only one case. Sure if there are more then one then It might be good to have.

All in all the script is good enough IMO.

From: boberman
TPA's aren't a requirement to get in…

The script looks good and decently complex. I voted yes, though with some hesitation.

  case lowercase(Players[CurrentPlayer].strings[0]) of
    'arrows' : begin
               if FindDTM(RArrows, x, y, MSX1, MSY1, MSX2, MSY2) then
                 begin
                   Wait(200 + Random(500));
                   Mouse(x, y, 2, 2, False);
                   ChooseOption('uy');
                   Wait(100 + Random(300));
                   CloseTrade;
                   FreeDTM(RArrows);
                 end;
               end;
  end

Why would you make this a case statement? It might as well be a single if statement as there is only one case. Sure if there are more then one then It might be good to have.

All in all the script is good enough IMO.

He probably wants to add more options later. :)

  if FindNpcChatText('give', ClickLeft) then
  begin
    repeat
      Wait(1000 + Random(200));
    until (not ClickToContinue)
    WriteLn('Sucessfully Talked to Judge');
  end;

could use a couple of failsafes. haven't voted in a long time, i'd say yes, but i'll leave it to the others.

~Rasta

Well, it's a yes from me.
The script itself looks nice, but I like your attitude even more.

Keep it up! :)


Edit: Flash, eh? Mind learning me ActionScript? xD

im sorry, but its a no. it is a great script and does look asif it should work, although sadly it doesnt. i know this because iv tryed it a lot, and edited it a lot. if it was to work a little better. ild say yes. i do like the talking and most things about it. maybe make another one? fix this and add them both.

Wizzup, you are correct. I added the case to make more options later, I just left the arrows in for now because that's the only real valuable item to trade. As for the TPA's I decided to make them to find the Judge and Trader since they are more reliable.

~Camo

hmmm does look quite good standards are there but i think FindColorSpiralTolerance is pretty simple. Also some TPAs would be good.

OFFTOPIC: Is That Sig made here? http://www.network-science.de/ascii/ lol :P

I'm Holding my vote

sorry its a no from me. The script seems ok, but not srl members worthy. Walking is a key part to show your ready for members, and frankly the walking in your script is just too simple. And sorry to say, it doesnt look very complex, with that said, you seem to be a very fast learner, and if you dont get in this time, im sure you wil easily get in the next.

Best of luck,

-Blumblebee

Si signor.

yes from me i like it but it dont work all to good i meen i have edited alot and still doesnt work but it shows your abilitys with scar YES

From: Quickmarch
hmmm does look quite good standards are there but i think FindColorSpiralTolerance is pretty simple. Also some TPAs would be good.

OFFTOPIC: Is That Sig made here? http://www.network-science.de/ascii/ lol :P

I'm Holding my vote

Yes, it is as a matter of fact. :p Thanks to everyone for telling me what I need to do with the script.

~Camo

[X]: DTMs
[X]: DDTMs
[X]: Walking
[X]: Antiban/Antirandom
[X]: Multiplayer
[X]: TPAs/T2DTPAs

I don't like the absence of TPAs.

It's a good script.
You should do a little more though ;)

Sorry. Voting no.

Yes :)

The script may not be amazing, but it's decent. Take that, your (positive) attitude, and how you're active and helpful around the forums == Yes.

From: boberman
TPA's aren't a requirement to get in…

From: TViYH
[X]: DTMs
[X]: DDTMs
[X]: Walking
[X]: Antiban/Antirandom
[X]: Multiplayer
[X]: TPAs/T2DTPAs

I don't like the absence of TPAs.

It's a good script.
You should do a little more though ;)

Sorry. Voting no.

hmm

I never said I voted no because of no TPAs.

if you can show some radial walking, ill go with yes

Edit: I thought about it, and went yes anyway. He's a nice guy, helpful poster.
Script is also pretty ok

From: benjaa
if you can show some radial walking, ill go with yes

I recommend you look at the stickies for voting before you actually do it.

I say yes. Multiplayer's working, he's a good person and he helps out alot in Scripting Help.

From: floor66
I say yes. Multiplayer's working, he's a good person and he helps out alot in Scripting Help.

Make sure you read the stickies!

You use DTMs and BMPs - good
You don't use anything VERY complicated but its good.

Not going to blame you for no TPA's and DDTMs, they wouldn't be much use here.

Tested your script and didn't work… But its alright, maybe from my side.

Your script is better than mine and you use good standars

YES

Dervish, have you been a member for long enough to vote?

GREAT attitude/helper/trusted member…

lended me a account around 15m on it, to test my pcer/and make my pcer off.
this guy is great
script looks great, gave him some tips over msn

tpa-no
dtm-Yes
DDtm-assuming got a idea of that since you noe DTMS
RRW-YES
BAISCS-YES
BMP-YES


and yes simple/straight foward script. which is good sometimes!!!!
if your creative go ahead do as much as you can. like ill say add a sleeping option and on..

just wish he had tpa's in there instead of findcolortol.

Not gonna vote, but I gotta say, he is a good guy… Helpful, active, and willing to learn… Script is pretty good too, seem to have the basics down… Just make sure you keep workin hard (Practice some TPA's too), I have a feeling you'll be a pretty 1337 scripter soon enough… If not, at least we all know you'll be a great community member ;)

From: ~~Joker~~
GREAT attitude/helper/trusted member…

lended me a account around 15m on it, to test my pcer/and make my pcer off.
this guy is great
script looks great, gave him some tips over msn

tpa-no
dtm-Yes
DDtm-assuming got a idea of that since you noe DTMS
RRW-YES
BAISCS-YES
BMP-YES


and yes simple/straight foward script. which is good sometimes!!!!
if your creative go ahead do as much as you can. like ill say add a sleeping option and on..

just wish he had tpa's in there instead of findcolortol.

Thanks :) And you know, if you ever need it again just let me know ;)

From: nose_smasher
Not gonna vote, but I gotta say, he is a good guy… Helpful, active, and willing to learn… Script is pretty good too, seem to have the basics down… Just make sure you keep workin hard (Practice some TPA's too), I have a feeling you'll be a pretty 1337 scripter soon enough… If not, at least we all know you'll be a great community member ;)

Thanks to you too. It really means alot hearing that from yall, especially since yall are way up there compared to me. As for the TPA's I'm going to add them in the next version of this script :)

Oh, btw Joker. You're going to love my Yew finder. Just wait till you see tomorrow.

~Camo

GODDAMNIT ! :(

Just remembered that rule… Will wait 2 Months before I vote now eh ? :(

SORRY !!!

From: Dervish
GODDAMNIT ! :(

Just remembered that rule… Will wait 2 Months before I vote now eh ? :(

SORRY !!!

its 2 weeks bro :P…
lol

In.