soulshooter
2008-10-11 20:13:59
<!– BEGIN TEMPLATE: formanswers –>
soulshooter - SRL Member Application Form
soulshooter
What is the meaning to life?
To enjoy every day of it. to have friends family and spend time with people cuz there not gona be ther for ever
Where you Referred to SRL? If yes, by whom?
no one
Programming Knowledge
Yes
Other Communitys
None
How Long have You Played Runescape
3 to 4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have made two scripts and i plan on makeing morwe hopeing to become 1 of the best scripters.
I auto alot. i am verry active on the forums trying other peoples scripts and working on my ownm
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
soulshooter - SRL Member Application Form
soulshooter
What is the meaning to life?
To enjoy every day of it. to have friends family and spend time with people cuz there not gona be ther for ever
Where you Referred to SRL? If yes, by whom?
no one
Programming Knowledge
Yes
Other Communitys
None
How Long have You Played Runescape
3 to 4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have made two scripts and i plan on makeing morwe hopeing to become 1 of the best scripters.
I auto alot. i am verry active on the forums trying other peoples scripts and working on my ownm
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Program Auto-typer (second script made)
// instructions pretty much everything with (//) in it
{.include srl/srl.scar}
var
times : integer; // make this integer for let it stop after wanted types.
const
howmuch = 20; // how much times to type the text
text1 = 'mesage here'; // mesage you want to send
text2 = 'mesage here'; // mesage 2
text3 = 'mesage here'; // mesage 3
text4 = 'mesage here'; // mesage 4
text5 = 'mesage here'; // mesage 5
text6 = 'mesage here'; // mesage 6
text7 = 'mesage here'; // mesage 7
procedure typing;
begin
case random(3) of // will choose random one of this 3 mesages
0 : typesend(mesage1); // use typesend for not being banned
1 : typesend(mesage2);
2 : typesend(mesage3);
end;
times := times + 1
end;
begin
SetupSRL;
FindWindowBySize(766, 504); // these
Activateclient; //will select the client!
repeat
typing;
wait(2000 + random(500)); // use +random in your wait, i would advise (better for anti ban)
until(times = howmuch)
terminatescript;
end.{ NOTE: this is only my first script so it probably isnt the best)
Program AlchMeBot;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
const
////////////////////////////
Name ='';
Pass ='';
///////////////////////////
SmartWorld = 'world100';
HowMany = 2; // how many high alchemys?
WindowDisguise ='Lime Wire';// The Windows Disguise
var
HowManyAlchemy: integer;
Procedure ClickOnExistingUserButton;
begin
ClearDebug;
Mouse(327,381,1,1,true);
Mouse(381,174,1,1,true);
Wait(500);
end;
Procedure TypeInUserandPass;
Begin
Mouse(324,258,1,1,true);
TypeSend(name);
Wait(500+Random(1000));
Mouse(330,328,1,1,true);
TypeSend(pass);
Mouse(376,368,1,1,true);
Wait(6000+Random(7000));
Mouse(331,351,1,1,true);
Wait(3000+Random(1000));
end;
Procedure ClickOnMageTab;
begin
SetAllChats('on','off','on','on','on');
Mouse(741,185,1,1,true);
wait(1000);
end;
Procedure RotateCompass;
begin
if not LoggedIn then Exit;
case random(9) of
0:MakeCompass('N');
1:MakeCompass('W');
2:MakeCompass('S');
3:MakeCompass('N');
4:MakeCompass('S');
5:MakeCompass('E');
6:MakeCompass('W');
end;
end;
procedure Randoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
Procedure Alch;
var
i: Integer;
begin
i:= 0;
repeat
i:= i + 1;
Mouse(568,364,1,1,true);
Mouse(568,364,1,1,true);
wait(2350);
until(i >= (HowMany));
end;
Procedure WeAreDone;
Begin
mouse(753,11,1,1,true);
wait(500)
Mouse(629,376,1,1,true);
end;
procedure StartUp;
begin
ClearDebug;
writeln('waiting 15 sec for SMART to load');
Disguise('15');
wait(1000)
Disguise('14');
wait(1000)
Disguise('13');
wait(1000)
Disguise('12');
wait(1000)
Disguise('11');
wait(1000)
Disguise('10');
wait(1000)
Disguise('9');
wait(1000)
Disguise('8');
wait(1000)
Disguise('7');
wait(1000)
Disguise('6');
wait(1000)
Disguise('5');
wait(1000)
Disguise('4');
wait(1000)
Disguise('3');
wait(1000)
Disguise('2');
wait(1000)
Disguise('....1');
wait(1000)
Disguise('STARTING!');
Disguise(WindowDisguise);
end;
procedure TotalAlch;
begin
HowManyAlchemy := HowManyAlchemy +(howmany);
end;
procedure Prog;
begin
WriteLn('[====================================================]');
WriteLn('[ ~ Progress Report ~ ]');
WriteLn('[====================================================]');
Writeln('[ Script Worked for ' + TimeRunning);
Writeln('[ Total Alchemy = ' + IntToStr(HowManyAlchemy));
writeln('[ Thanks for using Soulshooters Basic Alchbot SMART V1.0');
writeln('[====================================================]');
end;
procedure NoUserNameOrPass;
Begin
If (name = '') Or (pass = '') Then
Begin
ClearDebug;
WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
WriteLn('|Please enter your Username and/or Password in lines 8 and 9.|');
WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
TerminateScript;
End;
end;
///////////////////////////////////////////////////////
begin
NoUserNameOrPass;
SMARTSetUp((SmartWorld), True, True, False); {World prefix, safe mode, unsigned, RS-HD}
SetTargetDC(SMARTGetDC);
SetUpSRL;
STartUp;
ClickOnExistingUserButton;
TypeInUserandPass;
ActivateClient;
ClickOnMageTab;
RotateCompass;
Alch;
WeAreDone;
TotalAlch;
Prog;
End.
///////////////////////////////////////////////////////——————————————————
<!– END TEMPLATE: formanswers –>