SRL Archive - Outdated / Broken

I am going to edit any script YOU made that you'd like me to edit, to make it better at walking for example, or better color finding, better mining etc. Post a script, tell me what you need me to fix or get better, then I will see what i can do.


Probable Results that may happen:

Script will be Very easy and completed
Script may take a long time because of long code, but will still be completed
Script may have some difficult functions i cannot understand, but i will figure it out soon enough.

Script may be completed, but with only satisfatory results (not as good as expected)
Script may take too long before it becomes outdated, or new include comes and will take a very long time.
Script may have functions that cannot be fully understood, meaning the function may not be used properly (rare)

Script is impossible to make it better
Script takes too much time to make (wasting my time (got homework and that))
Script has functions that i cannot understand at all, and cannot be learned (extremely rare)
I am too lazy to edit today, or that week (may take months maximum)

dont give me other people's scripts. They wont be happy about it, plus, its copying and you diddnt get their permission.

Can you pleas eadd full randoms and fix the co ordination on this script?

I have done the co-ords but not the randoms as im still lerning scar scripting :P

Thanks if you can it would be a huge help

This is completly off topic but can I ask you Uber.. you do you have runescapes IP address in your sig? :confused:

Here is your alcher, it now has Normal randoms. Will find fights, boxes, talking rands, any of that :)
[php]program Alcher;
{
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ High and Lower Alcher By Pwnd +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ Instructions: +++
+++ 1: Fill out the setup. +++
+++ 2: Target the client. +++
+++ 3: Press start, and hopefully enjoy. +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ Contact: +++
+++ MSN: Dirtywonker@yahoo.com. +++
+++ AIM: Dirtywonker. +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ }
{.include SRL\SRL.scar}

const
{+++ Setup +++}
HighAlch = True; //True for high alch; False for low alch
Report = 100; //Put the number of times you'd like the report to come out.
{++++++++++++++}

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
var
NoteColor: integer;
RuneColor: integer;
ColorTake: integer;
Exp, ExpGained: integer;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure RWait(Base, Rand: integer);
begin
if((Base > 150) and (Rand > 200))then
begin
Wait(Base + Random(Rand));
end else
Wait(Base * 150 + Random(Rand * 200));
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Alch(AlchA: boolean);
var
Sex, Sey: integer;
x, y, xa, ya: integer;
begin
GameTab(7);
case(AlchA)of
True:
begin
Sex:= 665;
Sey:= 324;
end;
False:
begin
Sex:= 665;
Sey:= 327;
end;
end;
Mouse(Sex, Sey, 2, 2, True);
repeat
RWait(1, 1);
until(GetColor(633, 179) = 2829182)
if(FindColor(x, y, NoteColor, 545, 195, 750, 473) and
FindColor(xa, ya, RuneColor, 545, 195, 750, 473))then
begin
Mouse(x, y, 3, 1, True);
wait(1500) //////Waits a little (responds to server) to look for randoms
FindNormalRandoms; ////////This will look for all of the normal randoms
FindNormalRandoms; ////////Checks for randoms AGAIN, just in case
if (FindFight = True) then //////////If a fight exists (from Findnormalrandoms;) then it will run away.
begin
SetRun(True)
RunAwayDirection('N')
wait(3000 + Random (600))
RunBack;
SetRun(False)
end;
repeat
RWait(15, 5);
until(GetColor(730, 175) = 2829182)
end else
begin
WriteLn('No more notes or runes!');
TerminateScript;
end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Start;
begin
if(ColorTake = 0)then
begin
GameTab(4);
RWait(1, 1);
case(HighAlch)of
True:
Exp:= 65;
False:
Exp:= 31;
end;
NoteColor:= GetColor(576, 236);
RuneColor:= GetColor(621, 233);
Writeln('Note color: ' + IntToStr(NoteColor));
Writeln('Rune color: ' + IntToStr(RuneColor));
end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure ProgressReport;
begin
ClearDebug;
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ Pwnd'#39's High and low Alcher ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ ' + ScriptTime2(2) + ' ++)');
WriteLn('(++ You'#39've alched ' + IntToStr(ExpGained / Exp) + ' items ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ You'#39've gained ' + IntToStr(ExpGained) + ' Exp points ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
begin
SetupSRL;
ActivateClient;
ExpGained:= 0;
RWait(2, 4);
Start;
repeat
Alch(HighAlch);
ExpGained:= ExpGained + Exp;
if((ExpGained / Exp) mod Report = 0)then
ProgressReport;
until(False)
end.[/php]

Yep, thats the real runescape IP address. There are more of them too


And look for comments that i made in your script :) it should also compile. You've made a very good script

Off Topic *again* - But why would people want to know runescapes Ip addresses… there completly useless.

hey, sometimes its faster, sometimes its slower. Different web servers, different webservers;)

From: ub3r |<1||3r
Here is your alcher, it now has Normal randoms. Will find fights, boxes, talking rands, any of that :)
[php]program Alcher;
{
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ High and Lower Alcher By Pwnd +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ Instructions: +++
+++ 1: Fill out the setup. +++
+++ 2: Target the client. +++
+++ 3: Press start, and hopefully enjoy. +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++ Contact: +++
+++ MSN: Dirtywonker@yahoo.com. +++
+++ AIM: Dirtywonker. +++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ }
{.include SRL\SRL.scar}

const
{+++ Setup +++}
HighAlch = True; //True for high alch; False for low alch
Report = 100; //Put the number of times you'd like the report to come out.
{++++++++++++++}

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
var
NoteColor: integer;
RuneColor: integer;
ColorTake: integer;
Exp, ExpGained: integer;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure RWait(Base, Rand: integer);
begin
if((Base > 150) and (Rand > 200))then
begin
Wait(Base + Random(Rand));
end else
Wait(Base * 150 + Random(Rand * 200));
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Alch(AlchA: boolean);
var
Sex, Sey: integer;
x, y, xa, ya: integer;
begin
GameTab(7);
case(AlchA)of
True:
begin
Sex:= 665;
Sey:= 324;
end;
False:
begin
Sex:= 665;
Sey:= 327;
end;
end;
Mouse(Sex, Sey, 2, 2, True);
repeat
RWait(1, 1);
until(GetColor(633, 179) = 2829182)
if(FindColor(x, y, NoteColor, 545, 195, 750, 473) and
FindColor(xa, ya, RuneColor, 545, 195, 750, 473))then
begin
Mouse(x, y, 3, 1, True);
wait(1500) //////Waits a little (responds to server) to look for randoms
FindNormalRandoms; ////////This will look for all of the normal randoms
FindNormalRandoms; ////////Checks for randoms AGAIN, just in case
if (FindFight = True) then //////////If a fight exists (from Findnormalrandoms;) then it will run away.
begin
SetRun(True)
RunAwayDirection('N')
wait(3000 + Random (600))
RunBack;
SetRun(False)
end;
repeat
RWait(15, 5);
until(GetColor(730, 175) = 2829182)
end else
begin
WriteLn('No more notes or runes!');
TerminateScript;
end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure Start;
begin
if(ColorTake = 0)then
begin
GameTab(4);
RWait(1, 1);
case(HighAlch)of
True:
Exp:= 65;
False:
Exp:= 31;
end;
NoteColor:= GetColor(576, 236);
RuneColor:= GetColor(621, 233);
Writeln('Note color: ' + IntToStr(NoteColor));
Writeln('Rune color: ' + IntToStr(RuneColor));
end;
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure ProgressReport;
begin
ClearDebug;
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ Pwnd'#39's High and low Alcher ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ ' + ScriptTime2(2) + ' ++)');
WriteLn('(++ You'#39've alched ' + IntToStr(ExpGained / Exp) + ' items ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
WriteLn('(++ You'#39've gained ' + IntToStr(ExpGained) + ' Exp points ++)');
WriteLn('(++++++++++++++++++++++++++++++++++++)');
end;

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
begin
SetupSRL;
ActivateClient;
ExpGained:= 0;
RWait(2, 4);
Start;
repeat
Alch(HighAlch);
ExpGained:= ExpGained + Exp;
if((ExpGained / Exp) mod Report = 0)then
ProgressReport;
until(False)
end.[/php]

Yep, thats the real runescape IP address. There are more of them too


And look for comments that i made in your script :) it should also compile. You've made a very good script

Err that's Pwnd's? And Yes, he did do a good job in it.

Pwneds??? ok… i'm gonna have to put a new rule… It MUST be your script… Do not ask me to edit someone elses…

lol sorry guys didint no it had to be our own i forgot to give creds to pwned its just i was gonna post in his thread but it hadnt been used in a while and i thought you would be quicker im sorry and thanks for your help :)

Would you edit someone else's script if i have their permission?

is this thread bringing out the leechers?

lol no cos i edited the script he posted to work any way he didint put the randoms in to a procedure and in to he main loop instead he put the anti randoms on the end of the alching procedure :)

i am currently lerning to script sorry of that sounded leachy

Its fine if its at the end of the alching procedure, it will scan whenever it alchs *insertrollingeyessmiley*

yea but it was like just stuck there :p if you made a new procedure and placed it in the main loop after the alching procedure surly that would be better?