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 just scar..for know :P

Other Communitys
sythe and moparisthebest and demonic guardians(a clan, big member there :D)

How Long have You Played Runescape
2 years+ :D

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

Well i recently released my auto miner, and i have just finished my auto coin picker(as promsied :P) and Im starting to make a karajma fisher+banker.
… well ill attach my miner and coin picker here. The address is for the autominer is:
http://www.villavu.com/forum/showthread.php?t=7832?p=83595#post83595

Also im good at maths and computer studies and stuff like that.. :D






well thats around about it thanks-ashur :P


P.S. Sorry for the other applications i forgot to bookmark the applications thread:( so i had to make new ones to see how my app was going :(.

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

My AutoMinerDroper:

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

var
loadz : integer;

const
IronColour=1976901;//Change this if it cannot find the iron ore


procedure DeclarePlayers;
begin
HowManyPlayers := 5; //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 :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;

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 Talk;
begin
SendKeys('Hey, Mining lvls?'+chr(13));//Talking to people!
Wait(3000+random(1000));
Writeln('Talking…')
SendKeys('Ah ok im 52 :S'+chr(13));//Talking about lvl!
end;


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;


procedure Drop;
begin
DropTo(3,28);
Talk;
Writeln('Droping…');
Loadz := Loadz + 1;
end;




begin
SetupSRL;
DeclarePlayers;
LogInPlayer;
repeat
RepeatClicking;
Drop;
until(false);
end.



Also my coin picker:


program AutoCoinPicker;
{.include SRL/SRL.scar}

var
i: Integer;

const
CoinColour=5362427;


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


procedure RepeatClicking;
begin
i:= 0;
repeat
if(FindColor(x,y,CoinColour,100,100,300,300))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
i:= i + 1;
Writeln('This will go on for 10 times then repeat for ever…')
DoAntiRandoms
until(i >= 10);
DoAntiRandoms;
end;


begin
SetupSRL;
repeat
RepeatClicking;
DoAntiRandoms;
until(false);
end.



And thats about it, thanks :P.

:stirthepot: -ashur

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

K, you don't need SetupSRL twice in your miner app, and you should get rid of ur talk procedure, will mostly get you banned, make a DTM dropper that only drops the ores, and I think the script will keep the same player the whole loop. Ther's no next player.

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;

Love it.

From: fourscape

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;

Love it.

ironic or?

i personally think that would get u banned, as for the Talk..
i mean it talks too often…

And you Definately need randomness for your clicking. make it MMouse(x,y,2,2) at least like that. You could make it more if you wanted too. Script is over all to simple, and as said above, it talks to much and it would talk almost at the exact same time during the script. Good try, no from me though.

They are all very simple and need failsaflse.
Try checking for rock text before clicking and dont repeat until invenfull.
Add in antirandoms, antiban and just less detectable procedures.

aw well maby next month when i finish my lobbie fisher…lol

thanks for the replys people :P

Too simple.. Arent u the person selling scripts at sythe too…