SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
4 Years

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

Im A Great Scar Scripter, and i can do lots of things including Bitmaps,
DTMs, Auto Color, Banking, and More! Umm… I'v Been Scar Scripting For about a Year
Now and I'd love to help out any one that needs help with SRL or SRL scrips, and i really wanna be a SRL member for 3 Reasons!:

1: I would Like To scare Some Procedures.
2: I thinks im a Great Scar Scripter
3: I would like to show that im someone that is willing to help people to help with scar scripting. and… Thats About It!

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

This Is My Latest Script, and no Ones Helped
me On it so its all mine, im saying that because
on my thread it says that me and 3Garrrett3
Have made this together, thats another Version… Coming…

Program IdentifeHerbs;

{.include SRL\SRL.scar}
                                                                                                                                                                                                                                                                                                                                                                                                                                                 {
[ Start In Draynor Bank Logged In ]
[ With All The Herbs To Itentifie In The 1st row next to eash other so when it Runs Out ]
[ 1 the next herbs are there  ]

[ By: Timer150 and 3Garrett3 ]                                                                                                                                                                                                                                                                                }

Const Prytyrt = '0000';//Pin Number, Leave 0000 if you dont have 1...

Var x,y,trysbank:integer;
    Noherbs:Boolean;


Procedure DeclarePlayers;
begin

  HowManyPlayers  := 4;
  NumberOfPlayers( HowManyPlayers );
  CurrentPlayer := 0;//Start Player

     Players[0].Name      := '';
     Players[0].Pass      := '';
     Players[0].Nick      := ''; // 3-4 letters of username
     Players[0].Active    := True;

     Players[1].Name      := '';
     Players[1].Pass      := '';
     Players[1].Nick      := ''; // 3-4 letters of username
     Players[1].Active    := false;

     Players[2].Name      := '';
     Players[2].Pass      := '';
     Players[2].Nick      := ''; // 3-4 letters of username
     Players[2].Active    := false;

     Players[3].Name      := '';
     Players[3].Pass      := '';
     Players[3].Nick      := ''; // 3-4 letters of username
     Players[3].Active    := false;

end;

Procedure EnterPin(pin: string);
var
  iNumber: Integer;
begin
  if (PinScreen) then
  begin
    for iNumber := 1 to Length(pin) do
    begin
      MMouse(395, 175, 10, 10);
      Wait(200 + Random(200));
      ClickText(pin[iNumber], upchars, 1, 1, 512, 336, True);
      Wait(500 + Random(500));
    end;
    repeat
      Wait(100);
    until BankScreen or not LoggedIn;
  end;
end;


Procedure GTExitBank;
Begin
If(BankScreen)then
  Begin
  CloseBank;
  end;
end;

Procedure GTOpenBank2;
Begin
If BankScreen then
Begin
Exit;
end;
 if (Pinscreen) then
  begin
  EnterPin(Prytyrt);
  Exit;
  end;
If(FindColorTolerance(x,y,5461593,12,47,522,378,20))then
  Begin
  MMouse(x,y,0,0)
  Wait(2000)
  if (FindObj(x, y, 'Use Bank', 539728, 10)) then
    Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,false)
    ChooseOption('qui')
    Wait(5000)
      If(BankScreen)Then
        Begin
        MMouse(474,66,0,0)
        Wait(1000)
        HoldMouse(474,66,true)
        Wait(12000)
        Mouse(474,66,0,0,true)
        Wait(3000)
        end;
    end;
  end;
end;

Procedure GTOpenBank;
Begin
If BankScreen then
Begin
Exit;
end;
 if (Pinscreen) then
  begin
  EnterPin(Prytyrt);
  Exit;
  end;
If(FindColorTolerance(x,y,5461593,12,47,522,378,20))then
  Begin
  MMouse(x,y,0,0)
  Wait(2000)
  if (FindObj(x, y, 'Use Bank', 539728, 10)) then
    Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,false)
    ChooseOption('qui')
    Wait(5000)
    If(Not(BankScreen))Then
      Begin
      Repeat
      Wait(3000)
      GTOpenBank2;
      trysbank:=trysbank+1;
      Until(bankscreen) or (trysbank=10)
      end;
      If(BankScreen)Then
        Begin
        MMouse(474,66,0,0)
        Wait(1000)
        HoldMouse(474,66,true)
        Wait(12000)
        Mouse(474,66,0,0,true)
        Wait(3000)
        end;
    end;
  end;
end;

Procedure GTGetHerbs;
var
  rx, ry,x1,y1,x2: Integer;
begin
rx := 35 + (1 * 49);
ry := 27 + (1 * 38);
if (BankScreen) then
  begin
  Mouse(rx, ry, 0, 0, False);
  If Not FindText(x, y, 'Herbs', upchars, x1, y1, x2, 502) then
  Begin
  NoHerbs:=True;
  Exit;
  end;
  ChooseOption('Withdraw X');
  Wait(3000 + Random(100));
  TypeSend('28');
  end;
end;

Procedure GTIdentifiHerbs1;
Begin
MMouse(x,y,0,0);
Mouse(x,y,0,0,true);
end;

Procedure GTIdentifiHerbs2;
Begin
MMouse(x,y,0,0);
Mouse(x,y,0,0,false);
ChooseOption('Ident');
end;

Procedure GTIdentifiHerbs;
Begin
if Noherbs then
Begin
Exit;
end;
While FindColorTolerance(x,y,944393,551,203,731,463,10) Do
  Begin
  Case Random(12) Of
  0,1,2,3,4,5,6,7,8,9,10: GTIdentifiHerbs1;
  11: GTIdentifiHerbs2;
    end;
  end;
end;

Procedure GTGiveHerbsToBank;
Begin
 Case Random(2) Of
  0: DepositAll;
  1: Deposit(1,28,1)
  end;
end;

Procedure BankOpen;
Begin
If Noherbs then
begin
Exit;
end;
GTOpenBank;
Wait(2000)
GTGetHerbs;
Wait(2000)
GTExitBank;
Wait(5000)
end;

Procedure BankClose;
Begin
If Noherbs Then
Begin
Exit;
end;
GTOpenBank2;
Wait(2000)
GTGiveHerbsToBank;
Wait(2000)
GTExitBank;
Wait(2000)
end;

Function Done:Boolean;
//var i:integer;
Begin
{For i:= 0 to 3 Do
If  Not Players[i].Active Then
  Begin
  Result:=True;
  end;
end;}//Didn't Work Right... I don't know why
If  Not Players[0].Active
and Not Players[1].Active
and Not Players[2].Active
and Not Players[3].Active
Then
  Begin
  Result:=True;
  end;
end;


Begin
SetupSRL;
ActivateClient;
DeclarePlayers;
Wait(2000)
MouseSpeed:=15;
If Not LoggedIn Then
  Begin
  LoginPlayer;
  end;
Repeat
Repeat
BankOpen;
GTIdentifiHerbs;
BankClose;
FindNormalRandoms;
Until(Noherbs)
NextPlayer(false)
Until(Done)
End.

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

Standards - 0 points

Umm, SRL has a pin entering procedure which is way more leet than yours :)

It isnt too crowded with failsafes..

Lot places where SRL could'ed been used more.

Look at good working scripts, read tuts and come back after month.

Ok… :(

function  InPin(pin: string): Boolean;  //That enters pin

function CloseBank: Boolean;//heres your exit bank
var
  i, Timer, Points: Integer;
begin
  if(BankScreen)then
  begin
    MarkTime(Timer);
    repeat
      Mouse(485, 41, 4, 4, True);
      for i := 0 to 30 do
      begin
        Wait(100);
        Points := CountColorTolerance(2070783, 177, 30, 337, 52, 5);
        if(Points < 170)then
        begin
          Result := True;
          Break;
        end;
      end;
    until(Points < 170)or(TimeFromMark(Timer) > 8000)
  end;
end;

+ there are many open bank functions that work fine in scar

Procedure BankOpen;
Begin
If Noherbs then
begin
Exit;
end;
GTOpenBank;
Wait(2000)
GTGetHerbs;
Wait(2000)
GTExitBank;
Wait(5000)
end;
 
Procedure BankClose;
Begin
If Noherbs Then
Begin
Exit;
end;
GTOpenBank2;
Wait(2000)
GTGiveHerbsToBank;
Wait(2000)
GTExitBank;
Wait(2000)
end;

bad standards and waiting a set time is unreliable theres hardly any failsafes sorry but its too simple for me. no.

i think they covered mostly all of it, failsafe was the big thing for me i noticed, and the standards would help a lot

no standards
no failsafes
not good use of some SRL

This is a useful script, but it isn't quite up to SRL Member standards, I would recommend spicing it up by maybe adding a procedure to say what herb you just identified, but any script that you make for SRL NEEDs its standards, and fail-safes, it was a good attempt and I will not vote.

do what everyone above has stated and in a month you will get my vote but for now its a no

for now its a no. but with a little bit work. mostenly on the this there allready said you will get in.

Good luck. ;)

this is a good oportunity to explore srl a little bit more.

When i was learning, i just upoeing up my includes/srl/ folder and read through all the scripts in there.

There is some really cool stuff :D.

If you dont feel like looking at code, you can also just read the srl manual, its on this site if you cant find it, it lists all of the srl functions in catagories for you.

Good attempt, but and srl froum member should use a bit more srl. I dont hink youl have any problem in the future though.

Procedure BankOpen;
Begin
If Noherbs then
begin
Exit;
end;

You don't need the begin and end around the Exit.

Im A Great Scar Scripter, and i can do lots of things including Bitmaps,
DTMs, Auto Color, Banking, and More! Umm… I'v Been Scar Scripting For about a Year
Now and I'd love to help out any one that needs help with SRL or SRL scrips, and i really wanna be a SRL member for 3 Reasons!:

1: I would Like To scare Some Procedures.
2: I thinks im a Great Scar Scripter
3: I would like to show that im someone that is willing to help people to help with scar scripting. and… Thats About It!

You say you're a great scar scripter? Sorry, but arrogance isn't going to cut it for me.

From: SantaClause
You say you're a great scar scripter? Sorry, but arrogance isn't going to cut it for me.

It's called Self Esteem.

The script could of used SRL a lot more, and could have better Standards.
Also the multiplayer isn't up to par. It is close to becoming SRL Member material if you fix/remove a few things, keep it up.

From: Tails111
This is a useful script, but it isn't quite up to SRL Member standards, I would recommend spicing it up by maybe adding a procedure to say what herb you just identified, but any script that you make for SRL NEEDs its standards, and fail-safes, it was a good attempt and I will not vote.

Well said.

Lots of feedback.
Its a NO.
You get the point.
Good try, get more advanced and PLEASE APPLY AGAIN later.