SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
nope

Other Communitys
Sythe, Fagex.

How Long have You Played Runescape
2 years+

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

Well…My name is ashur, im good at maths :D I am active at SRL forums..
My auto fisher is below…I have other scripts…a power miner, coin picker, auto talker and a auto fighter… i am also making a karajama lobbie fisher and banker which is nearly finished and an Eye of newt buyer which is almost finished as well… I do know all most of the basics if not all..I do know radial walk and Map walk…
Here is an example of it my Eye of newt buyer…

program AutoEyeOfNewtBuyer;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}


procedure CatsOff;
var
  x, y, setx, sety, i: Integer;

begin
  for i := 0 to 2 do
  begin
    setx := 55 + (i * 135);
    sety := 490;
    while (FindColor(x, y, 16776960, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
      Wait(500+random(100));
    while (FindColor(x, y, 65280, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
      Wait(500+random(100));
    while (FindColor(x, y, 65535, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
      Wait(500+random(100));
  end;
end;


procedure PefectNorth;
begin
  MakeCompass('N');
  Wait(500 + Random(500));
  MakeCompass('N');
  Wait(500 + Random(500));
  MakeCompass('N');
  Wait(500 + Random(500));
  SendArrowSilentWait(0, 1000 + Random(500));
  ActivateClient;
end;


procedure RadialWalk1;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 190, 200, 50, 0, 1);
end;


procedure RadialWalk2;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 180, 190, 62, 0, 1);
end;


procedure RadialWalk3;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 160, 175, 60, 0, 1);
end;


procedure RadialWalk4;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 170, 185, 58, 0, 1);
end;


procedure RadialWalk5;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 170, 180, 70, 0, 1);
end;


procedure RadialWalk6;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 90, 120, 60, 0, 1);
end;


procedure RadialWalk7;
begin
SetupSRL;
 RadialWalk(FindRoadColor, 185, 200, 64, 0, 1);
end;





begin
CatsOff;
PefectNorth;
RadialWalk1;
RadialWalk2;
RadialWalk3;
RadialWalk4;
RadialWalk5;
RadialWalk6;
RadialWalk7;
end.

But rember this is not finished… this will NOT compile… i will be adding way more later…


So as you can see I am in the intermediate level which i think is enough to become an SRL member?

P.S: Here are the addresses for my scripts:
PowerMiner:
http://www.villavu.com/forum/showthread.php?t=7832
PowerFisher:
http://www.villavu.com/forum/showthread.php?t=8111?p=89848#post89848
AutoTalker:
http://www.villavu.com/forum/showthread.php?t=8357?p=89864#post89864
AutoCoinPicker:
http://www.villavu.com/forum/showthread.php?t=8110
AutoFighter:
http://www.villavu.com/forum/showthread.php?t=8156




well thanks -Ashur

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

program BarbPowerFisher;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{.Includes/SRL/SRL/Core/Symbol.scar}
var

fish: String;
mins: Integer;
Skill: string;
Click: Boolean;
row, col: Integer;

const
FishingSpotColour=16576760;
TrourtColour=11382456;
SalmonColour=7109311;


procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//Password Goes Here
Players[0].Nick :='ser nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not


End;


procedure LoggingIn;

begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;

end;


procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;


procedure CatsOff;
var
  x, y, setx, sety, i: Integer;
begin
  for i := 0 to 2 do
  begin
    setx := 55 + (i * 135);
    sety := 490;
    while (FindColor(x, y, 16776960, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
    while (FindColor(x, y, 65280, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
    while (FindColor(x, y, 65535, setx - 10, sety - 10, setx + 10, sety + 10))
      do
      Mouse(x, y, 5, 5, True);
  end;
end;


procedure PefectNorth;
begin
  MakeCompass('N');
  Wait(500 + Random(500));
  MakeCompass('N');
  Wait(500 + Random(500));
  MakeCompass('N');
  Wait(500 + Random(500));
  SendArrowSilentWait(0, 1000 + Random(500));
  ActivateClient;
end;


procedure HghestAngle;
begin
  if (LoggedIn) then
  begin
    KeyDown(38);
    Sleep(1000 + Random(100) + Random(200));
    KeyUp(38);
    Wait(1000 + Random(100));
  end;
end;


procedure HndleWhirlPool;
begin
  if (FindMSDtm(x, y, WhirlPoolDTM)) then
  begin
    Status('Whirlpool found!');
    WhirlPools := WhirlPools + 1;
    Mouse(647, 82, 2, 2, True);
    FTWait(50 + Random(15));
    repeat
      HoverSkill('fishing', False);
      if (not (LoggedIn)) then Exit;
      FTWait(2 + Random(2));
    until (not (FindMSDtm(x, y, WhirlPoolDTM)));
  end;
end;


procedure AmostLogout;
var e,f,TempMouseSpeed:integer;
begin
GameTab(10);
TempMouseSpeed:=MouseSpeed;
MouseSpeed:=MouseSpeed + 20;
e:=5+random(6);
for f:=0 to e do
 begin
  case random(3) of
   0,1:MMouse(583+random(120),361+random(20),0,0);
   2:IdleTime(300+random(300),500,0.5);
  end
 wait(500+random(1000));
 end
MouseSpeed:=TempMouseSpeed;
GameTab(4);
end;



procedure RoateEvery;
begin
  if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(RotateMark);
    SendArrowSilentWait(Random(4), 500 + Random(500));
    SendArrowSilentWait(Random(4), 500 + Random(500));
    MakeCompass('n');
    SendArrowSilentWait(0, 1400 + Random(100));
  end;
end;


procedure RadomRClick;
var
  m: Integer;
begin
  if (not (LoggedIn)) then Exit;
  m := MouseSpeed;
  MouseSpeed := 7;
  ActivateClient;
  case Random(7) of
    0: MouseBox(533, 7, 757, 200, 2);
    1: MouseBox(521, 3, 553, 496, 2);
    2: MouseBox(743, 3, 764, 497, 2);
    3: MouseBox(4, 467, 763, 498, 2);
    4: MouseBox(499, 343, 552, 496, 2);
    5: MouseBox(3, 343, 521, 355, 2);
    6: MouseBox(2, 346, 14, 499, 2);
  end;
  MouseSpeed := m;
end;


procedure HoverSkil;

begin
  case LowerCase(skill) of
  'fishing':
      begin
        row := 3;
        col := 3;
      end;
       end;
  GameTab(2);
  case Click of
  False:
      begin
        MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
          Wait(5000 + Random(5000));
      end;
  end;
end;


function FindAndClickSymbol(Fish: String): Boolean;
begin
  repeat
    Wait(50+random(100))
  until(FindSymbol(x, y, fish))
  Mouse(x, y, 5, 5, true)
  Flag;
  Result:=True;
end;


procedure RepatClicking;
begin
repeat
if FindObj(x,y,'ure',FishingSpotColour,5)then
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
DoAntiRandoms;
HndleWhirlPool;
Writeln('Fishing...');
Wait(15000+random(1000));
until(InvFull);
end;


begin
repeat
SetupSRL;
DeclarePlayers;
LoginPlayer;
DoAntiRandoms;
CatsOff;
PefectNorth;
HighestAngle;
RepatClicking;
AmostLogout;
RoateEvery;
RadomRClick;
HoverSkil;
until(false)
end.

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

Also this is my REAL app….well its my best one :D so please only focus on this one :D












P.S im a Lesser Demon :D I'm so proud :D lol

Hmm.. Seems that uve put SRL procedures in ur script? Why..? Also the fisher over there is a bit simple and mostly seems to be SRL procedures with different names (pefectnorth,amostlogout,roateevery)..

From: GoF
Hmm.. Seems that uve put SRL procedures in ur script? Why..? Also the fisher over there is a bit simple and mostly seems to be SRL procedures with different names (pefectnorth,amostlogout,roateevery)..

Well thats because it is from SRL :D…aren't i aloud to use them?
I do no how to modify them to make them different if im not aloud to..


-ashur:stirthepot: &#1612;

Yea.. But why to put them in ur script when u can just use them by including SRL.scar to ur script? Just seems that u tried to make ur script longer, cause its very short without the useless procedures (copied SRL procedures).

From: GoF
Yea.. But why to put them in ur script when u can just use them by including SRL.scar to ur script? Just seems that u tried to make ur script longer, cause its very short without the useless procedures (copied SRL procedures).

lol..are you against me? :(

You just copied procedures from SRL to make it look longer, NO from me.

Well, you got a lot of script, but you didnt take ANY advice from you last app which ISNT EVEN A MONTH OLD YET

You still have these retarded loops

procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,IronColour,200,200,300,300))then
MMouse(x,y,0,0);
wait(1000+random(100));
Mouse(x,y,0,0,true);
DoAntiRandoms;
Writeln('Mining...');
Wait(1000+random(100));
Talk;
until(InvFull);
end;

During that hole time i never checks for randoms or anything, just clicks and clicks and clicks and gets you banned.

No from me.

You need to add a FindFastRandoms in the loop or just change it all together.
Also you dont even use standards….

Remember
Indent 2 spaces after each begin and stuff like that…

And its obvious which procedures you took from SRL because they are standardized….

I looked down the application list and I see 4 applications from Ashur. It is fine that you show enthusiasm and want to be a part of SRL, but you need to prove you actually want to learn and not just have access to the scripts. Since you didn't follow any of yohojo's advice, It seems like you aren't that interested in getting better, so a no from me.

No from me for several reasons
1:What YoHo said
2:No failsafes
3:The loop goes on forever, what if I get logged out. It will keep looking for whatever it is doing and it will do nothing.
4:Not really multiplayer

The procedures you use and just renamed ones from SRL,
The few ones that YOU wrote are very simple and have no standardization.
No from me.

ok, ok, ok relax…And no i don't want to be a member for the scripts -.-.
Yeah i admitted ages ago ..i do use procedures from srl..who doesn't?






-ashur:stirthepot:

Ofcourse you use procedures from srl. Like you said, everyone does; except you don't have to copy them into your script. That's the beauty of includes.

If everyone copied all the SRL procedures into their scripts like that, the script's would be thousands and thousands of lines longer than they should be.

you don't….so all you have to do is include in ure main loop?

omg all this time..lol

Sorry, no from me. As others said its kinda simple and the procedure things…
you could just include srl/srl.scar and when needed, type handlefishingspot;
or whatever …

Well.. For example u dont need to put Mouse procedure to ur script to use it.. So u dont need to copy other procedures from SRL either

EDIT: Im not always againts u.. But currently there isnt much of a option.

From: GoF
Well.. For example u dont need to put Mouse procedure to ur script to use it.. So u dont need to copy other procedures from SRL either

EDIT: Im not always againts u.. But currently there isnt much of a option.

kk thanks :stirthepot: