SRL Archive - Archive

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

What is the meaning to life?
The meaning of life is to make SCRIPTS from SCAR and make the best SCRIPT EVER!!

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


Programming Knowledge
Scar HTML

Other Communitys
gamerzplanet.net mal1t1a.tk runescape.com

How Long have You Played Runescape
along time

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

I'm an Experienced User of the SRL-Forums, i'm also an experieneced user of the SCAR language. I think that SCAR is one of THE best programs ever made, its user friendly, Easy to learn, easy to use, AND FUN!!!! :)

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

program Autoresponse;
{.include srl\srl.scar}
procedure response1;
begin
sleep(10);
if findtext(x,y,'Noob',upchars,1,1,515,336) then
typesend('STFU N00b!!')
if findtext(x,y,'Buying',upchars,1,1,515,336) then
typesend('nfs');
if findtext(x,y,'Buy',upchars,1,1,515,336) then
typesend('NFS')
if findtext(x,y,'lvl',upchars,1,1,515,336) then
typesend('not telling');
if findtext(x,y,'Lvl',upchars,1,1,515,336)  then
typesend('not telling');
sleep(10);
end;
procedure response2;
begin
sleep(10);
if findtext(x,y,'Baa!',upchars,1,1,515,336) then
typesend('Stfu sheep');
if findtext(x,y,'Quack!',upchars,1,1,515,336) then
typesend('Stfu you DUCK!');
if findtext(x,y,'your name',upchars,1,1,515,336) then//enter name HERE!!!
typesend('What?');
if findtext(x,y,'Trade',upchars,1,1,515,336) then
typesend('No');
if findtext(x,y,'tra',upchars,1,1,515,336) then
typesend('no');
sleep(10);
end;
procedure response3;
begin
sleep(10);
if findtext(x,y,'Rofl',upchars,1,1,515,336) then
typesend('yeah,it is funny')
if findtext(x,y,'Lol',upchars,1,1,515,336) then
typesend('yeah its funny')
if findtext(x,y,'How much',upchars,1,1,515,336) then
typesend('NFS')
if findtext(x,y,'Please',upchars,1,1,515,336) then
typesend('NO')
if findtext(x,y,'Moo',upchars,1,1,515,336) then
typesend('STFU cow!');
sleep(10);
end;
begin
repeat
response1
response2
response3
until(false);
end.

OR

 //This is a fun little script i made that automatically WHACKS people//
//ITs Pretty Fun just click play :)                                  //
program Fun_little_script;
{.include srl\srl.scar}
var
Whack,a:integer;
procedure randomM;
begin
mousespeed := 30;
repeat
mouse(random(515),random(336),1,1,false);
until(findbitmap(Whack,x,y));
cleardebug;
a:=a+1;
writeln('People Whacked = ' +inttostr(a));
sleep(500);
mouse(x,y,0,0,true);
sleep(10);
typesend('You just Got Whacked!!');
if findtext(x,y,'chicken',smallchars,1,1,515,336) then
begin
mouse(255,170,1,1,true);
end;
randomM;
end;
begin
cleardebug;
  whack := BitmapFromString2(False, 'aE799C78DAED56490EC3200C' +
       'FC12A16C3D9242FEFFA432392121AC81345C521F46C81A2F13D95' +
       '694526A4F05947F15704117B43B1CD664A08BC004D4C1E06D3FC0' +
       'C381AFCFD0ECF1CE01E837E01BD9FC8644C1C0AF633C2AB3C91AE' +
       '35BEC7198D835C8775233D5693C87895DAF57EEE4AFF7697ADB5D' +
       '60F4B6C654FC159F51C1307B9E5E27A3B5E6F8B5C9DF44665ED1D' +
       'BEBBF9D2E792AE6F685517A87DE51FF5CFEFB76647436D6F8E7AE' +
       '10AF9A9F0DA64F7E9EAFDC2BFE3F44BE0C329FF1CB5546F9A39D7' +
       'C01438');
randomM;
end.

or

//~~~~~~~~~~~~~~~~~~~~Script Made BY: Mal1t1a~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~Login and run script~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~Version NO. 1.1~~~~~~~~~~~~~~~~~~~~~\\
{This Script was made By: Mal1t1a, it currently
works on almost all runescape clients(i have yet
to discover a runescape client it doens't work on
except on moparscape, cause its dumb. Well if you
like this script PM or comment or something please?
and if you try to steal this script i will not
RELEASE any of my GOOD scripts i have made. This
script is just for fun :)
}

program funny_Script;
var
trade,decline,x,y,xx,yy,people:integer;
procedure mainer;
begin
x:=(random(515));
y:=(random(336));
movemousesmoothex(x,y,30,30,30,30,30);
clickmouse(x,y,false);
wait(1000);
if(findbitmap(trade,x,y))then
begin
movemousesmoothex(x,y,30,30,30,30,30);
clickmouse(x,y,true);
wait(1000);
sendkeysvb('accept my trade{enter}',true);
wait(5000);
end;
if(findbitmap(decline,xx,yy))then
begin
people:=people+1
movemousesmoothex(xx,yy,30,30,30,30,30);
wait(100);
clickmouse(xx,yy,true);
wait(100);
clickmouse(xx,yy,true);
wait(500);
sendkeys('you just got fooled!!');
wait(100);
sendkeysvb('{enter}',true);
wait(100);
writeln('people fooled = '+IntToStr(people));
wait(500);
sendkeys('People Fooled = ' +IntToStr(people));
wait(100);
sendkeysvb('{enter}',true);
end;
end;
begin
  trade := BitmapFromString2(False, 'a2278178DAED554B0EC42008' +
       'BD126D05EC52A7E3FD8F34E26A9206E2A7B69BB278699FF279090' +
       '800403C32006F1908BDE0F6C988EE2BC8C2A0A78CAB77F28DE534' +
       '09436B718DC2F32E3FC48B6010862296C0497C4348A6E181CEF19' +
       'D389E1D8AFDC781933DA56824FB55715E454F29AA9FB2BE79D4BC' +
       'AEAAA426CE79CAB4D3D6BC5A25ADF1EB15D92F86FD72B65668DFE' +
       'FE3EB7BFBCE0AFB7A665CD16CDEDE32E38A5ABB6EC67D6DDB6A35' +
       'D7EF5C306DF6FD1FFD5');

  Decline := BitmapFromString2(False, 'a9CD9E78DAE594410E8420' +
       '0C45AFF44528B8940EDEFF48C36712E3CA8C36C390C8E2A56981F' +
       '65300004AACC03A55CC39558624A4AC64699E5C2A057E8FBAD4EC' +
       'A0E4468F386EE39B5F722097B9323ACE916DA1EDCB1E8D2FDA4E9' +
       '461E0C83EE3BFB9F4011AFBD4F04C8D3A8CC6EFDFEFF94CBD589B' +
       '25A39ACFD95EFFB947CDB58DAF11DD35EAADB57D34FEEEAE62E03' +
       'E5EEDCEBD6E5ADE94FD3FFCF00DD86');
repeat
mainer
sleep(10);
until(false);
end.

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

Sorry, has to use SRL and be for RuneScape. NO.

ok i'll post some of my SRL SCRIPT for RuneScape then, i did not know that is what i had to do

yes that's what you had to do ;)

*holds vote until rs script is posted*

//Set USERNAME and PASSWORD on lines 6-7//
program Simple_auto_login;
{.include srl\srl.scar}
const
User = 'USERNAME';
Pass = 'PASSWORD';
procedure login1;
begin
mousespeed := 30;
if FindText(x, y, 'Exist', upchars, 2, 2, 1000, 1000) then
mouse(x,y,1,1,true);
sleep(500);
if findtext(x,y,'Usern',upchars,2,2,1000,1000) then
mouse(x,y,1,1,true);
sleep(500);
writeln('Logging in as: '+ user);
typesend(User);
sleep(250);
typesend(Pass);
sleep(500);
if findtext(x,y,'Login',upchars,1,1,500,500)then
mouse(x,y,1,1,true);
end;
begin
login1
end.

Is this your RS Script? Because, that is like, almost totally copied from SRL..

NO i am sorry but thats no its not a srl script if i dont see a other script i will vote NO

like i have said before…you need to actually make a script…the things you make do nothing really…NO

From: hermpie
NO i am sorry but thats no its not a srl script if i dont see a other script i will vote NO

Congrats on member's..Please be sure to read this.

~RAM

You should read requirments before applyng no

Please, read the tutorial posted by Boreas in the Tutorials section, about becoming SRL Member.

After that, go read the "Tutorial List" by RAM, it has all good tutorials around compiled together.

For now, this topic is Pseudoclosed.

The minimum time between re-applying is one month.

DO NOT apply without having a good knowledge of:

• DTMs / DDTMs
• FailSafes
• RadialWalk / DDTM Walking
• Break out of potential endless loops
• Standards! Without them no one reads script
• MultiPlayer
• Decent complex working script.

'Nuff Said.
Please read the feedback and try again later.
Remember you must wait at least one month before applying again.