SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML, xHTML, and Java

Other Communitys
none

How Long have You Played Runescape
about 3 years

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

i have a couple scripts that work very well. i test other ppl's scripts but i dont like to use them . i like the fact that im using a script that i made from scratch

the script below is my most recent but isnt finished yet im going to make it band and deposit logs but im not done w/ it

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

 program FireMakingWillows;
{.include SRL\SRL.scar}

var
a,b: Integer;
x,y: Integer;
i: Integer;



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

  Players[0].Name := '';// Your Username
  Players[0].Pass := '';// Your Password
  Players[0].Nick := 'alch';// 3-4 letters of your Username
  Players[0].Active:= True;//Active True or False
  end;
  
const
LogColor = 1655885;
;

procedure FireMaking;
 begin
 i:= 0;
 repeat
  i:= i + 1;
  FindColor(x,y,LogColor,556, 211,728, 460)
  MoveMouseSmoothEx(x,y +random(0),20,40,25,20,0);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(3000+random(1000));
  MoveMouseSmooth(578, 227);
  Wait(500+random(100));
  ClickMouse(578, 227,true);
  Wait(1500+random(100));
 until(i = 27);
 end;

procedure MapWalk;
begin
 repeat
   RadialRoadWalk(6842479, 88,92,70,-1,0);
 until(FindSymbol(a,b, 'bank'));
end;

procedure Randoms;
begin
 FindNormalRandoms;
end;

procedure SetupScript;
  begin
   ClearDebug;
   SetupSRL;
    DeclarePlayers;
   LoginPlayer;
  end;



begin
 SetupScript;
if(FindColor(x,y,LogColor,556, 211,728, 460))
 then
  begin
   Randoms;
   FireMaking;
   MapWalk;
  end;
end.

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

I voted no.

I think you are rushing a bit too fast here.

All of your clicking is highly detectable unless it is done by SRL. I would try using mouse and go from there. Also, I would write a "more complicated" script where you actually can demonstrate your knowledge.

What factors do you need

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* MultiPlayer
* Break out of potential endless loops
* Standards! Required to get people read your script.
* RadialWalk / DDTM Walking

How do we judge it?

looking at the code, standards, and we imagine it's working

How many lines of code do you need

I would say 300+.
make sure you got fail safes for every possible option what could be going wrong

MoveMouse(, ); {/} ClickMouse(, , {True}{False};

= Banned :(

No, This Script Is Way Too Simple (and what stated above), But I Hope To See You In A Month :D

#1 radial walk laggs out my comp

If radial walk lags your computer then you need a much better computer…

From: wearenot
#1 radial walk laggs out my comp

What u should do is add waits, fail safes to ur script..

Like stated above. No.

procedure mapwalk;
begin
 repeat
   RadialRoadWalk(6842479, 88,92,70,-1,0);
 until(FindSymbol(a,b, 'bank'));
end;

how about?

var RRWC : integer;

Function RRWCO : Boolean;
Begin
  If RRWC = 10 Then
  Begin
    Result := True;
    RRWC := 0;
  end;
end;

procedure mapwalk;
Var RRC, a, b : Integer;
begin
  RRC := FindRoadColor;
  repeat
    RRWC := RRWC + 1;
    If RadialRoadWalk(RRC, 88, 92, 70, -1, 0) Then
    Begin
      Wait(2000);//Just A FailSafe :)
      FFlag(0);
    end else
    begin
      Writeln('No Road Found On Player ' + IntToStr(CurrentPlayer + 1));
      Writeln('Continuing To Next Player');
      NextPlayer(false);
      Writeln('Continued To Next Player');
      Exit;
    end;
  until FindSymbol(a,b, 'bank') Or RRWCO Or Not LoggedIn;
end;

and so then you script should look like this standardised with so fix ups… learn from it

program FireMakingWillows;
{.include SRL\SRL.scar}

var a, b, x, y, i : Integer;

const
LogColor = 1655885;

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

  Players[0].Name := '';// Your Username
  Players[0].Pass := '';// Your Password
  Players[0].Nick := 'alch';// 3-4 letters of your Username
  Players[0].Active:= True;//Active True or False
end;

Procedure RunScriptOver; Forward;

procedure FireMaking;
begin
  i:= 0;
  repeat
    i:= i + 1;
    If FindColorTolerance(x, y, LogColor, 556, 211, 728, 460, 10)Then
    Begin
      Mouse(x, y, 2, 2, True)
      Wait(3000+random(1000));
      Mouse(578, 227, 5, 5, true);
      Wait(3000+random(100));
    end;
    FindNormalRandoms;
  until(i = 27);
end;

var RRWC : integer;

Function RRWCO : Boolean;
Begin
  If RRWC = 10 Then
  Begin
    Result := True;
    RRWC := 0;
  end;
end;

procedure mapwalk;
Var RRC, a, b : Integer;
begin
  RRC := FindRoadColor;
  repeat
    RRWC := RRWC + 1;
    If RadialRoadWalk(RRC, 88, 92, 70, -1, 0) Then
    Begin
      Wait(2000);//Just A FailSafe :)
      FindNormalRandoms;
      FFlag(0);
      FindNormalRandoms;
    end else
    begin
      Writeln('No Road Found On Player ' + IntToStr(CurrentPlayer + 1));
      Writeln('Continuing To Next Player');
      NextPlayer(false);
      Writeln('Continued To Next Player');
      RunScriptOver;
      Exit;
    end;
  until FindSymbol(a, b, 'bank') Or RRWCO Or Not LoggedIn;
  FindNormalRandoms;
end;

procedure SetupScript;
begin
  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  If Not LoggedIn Then LoginPlayer;
end;

Procedure RunScriptOver;
begin
  If Not LoggedIn Then LoginPlayer;
  if FindColor(x,y,LogColor,556, 211,728, 460) then
  begin
    FindNormalRandoms;
    FireMaking;
    MapWalk;
  end;
end;

begin
  SetupScript;
  if FindColor(x,y,LogColor,556, 211,728, 460) then
  begin
    FindNormalRandoms;
    FireMaking;
    MapWalk;
  end;
end.

no. get some fail safes

Noooooo!

No clickmouses!!


Why…. Why?!

no. get some fail safes

Rofl, dude if you'd look at it you would know If Not LoggedIn Then Exit
doesn't like, steal Andrews cookies and make him not ban ya…

Read some tutorials talking about what it takes to become an SRL Member (JAD made a good one I believe?)

^^ What a pic…

Yea.. It's a no from me too, but a good effort.

^^ whahah what a pic…

its a no for now. but its a pretty good start :). keep on learning.

I vote no - for above reasons and I would also like to see improvements on
1. multi-player.
2. commenting.
3. Conistentcy of Indentation and style.

Paul

From: Timer150
What factors do you need

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* MultiPlayer
* Break out of potential endless loops
* Standards! Required to get people read your script.
* RadialWalk / DDTM Walking

How do we judge it?

looking at the code, standards, and we imagine it's working

How many lines of code do you need

I would say 300+.
make sure you got fail safes for every possible option what could be going wrong

MoveMouse(, ); {/} ClickMouse(, , {True}{False};

= Banned :(

No, This Script Is Way Too Simple (and what stated above), But I Hope To See You In A Month :D

post stealer! yours is ugly :)

What factors do you need

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* MultiPlayer
* Break out of potential endless loops
* Standards! Required to get people read your script.
* RadialWalk / DDTM Walking
thanks n3ss3s


How do we judge it?

looking at the code, standaards. and whe inmagen if it's working yes or no


How many lines of code do you need

I would say 300+.
make sure you got fail saves for evry posibel option what could be going wrong


well….

I hope this helped ya. good luck scripting!



so a no from me sorry.

ClickMouse, VoteNo

Closed for Above Reasons.
Take their advice, and then you'll get in =)