SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
sythe, mopar

How Long have You Played Runescape
year and a half

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

Well, i have made a great Auto-Talker, and i have tried to make an auto-login but when ever i try to change the bitmaps to stings my computer freezes. I think if i can go to my friends(he has a really fast computer) i can make it.

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

//Directions
//Set what u would like it to say(lines 9-12)
//Set how long until says next message(line 47)
//hit play
//press F12 to stop
program AutoTalk;

const
message1='cyan:slide:selling full iron';
message2='white:slide:selling full iron';
message3='Green:slide:selling full iron';
message4='red:slide:selling full iron';

procedure SendText(text: string);
var  i: Integer;
begin
   for i := 1 to Length(Text) do
   begin
     SendKeys(Text[i]);
     Wait(50+random(50));
   end;
   SendKeys(Chr(13));
end;

procedure namechange(wstatus :String);
begin
status(wstatus);
GetApplication.Title:=wstatus;
GetSelf.Caption:=wstatus;
end;


procedure nc4(wstatus:String; time:Integer);
begin
namechange(wstatus);
wait(time);
end;

procedure Talk;
begin
case random(4) of
0:SendText(message1);
1:SendText(message2);
2:SendText(message3);
3:SendText(message4);
end;
wait(2124+random(241));
end;
procedure nc(wstatus:String);
begin
nc4(wstatus, 250);
end;

procedure flashx;
begin
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
nc4('Auto-Talker',200);
nc4('By Diamondhero5',200);
end;

procedure Animate;
begin
nc(' ');
nc('A');
nc('Au');
nc('Aut');
nc('Auto');
nc('Auto- ');
nc('Auto-T');
nc('Auto-Ta');
nc('Auto-Tal');
nc('Auto-Talk');
nc('Auto-Talke');
nc('Auto-Talker');
nc('--------------');
nc('Auto-Talker');
nc('--------------');
nc('By Diamondhero5');
flashx;
nc4('Auto-Talker - By Diamondhero5',5);
end;


procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero5-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

begin
Animate
ActivateClient
Thankyou
repeat
Talk;
until(IsFKeyDown(12))
end.

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

Well, this script is waaay to simple to get into SRL members, and its pretty obvious.

It doesnt even use SRL,
You gotta use SRL to become an SRL member.
We want to see quality coding that takes time and runs well.
Try making a powerminer or powerchopper with antiban, antirandoms, and multiplayer capabilities.

Or just something that runes for a long time and trains any skill.

Learn More,
Try Harder,
Good Luck,
Love,
Yohojo :p

ok ty i'll try…
Edit:ima make a cutter/droper

Plus standards (unless the code tag messed it up)

Check out my wc/droper
http://www.villavu.com/forum/showthread.php?t=6162?t=7077
EDIT: yes it uses srl

Guys, This Guy Is A Fake
He Copied The Wcer From Sythes Forums
And He Even Made A Second Account To Say
"good Job" To Himself.

http://www.sythe.org/showthread.php?t=150940