SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
delphi,java,c,c++

Other Communitys
Sythe, Fagex, TheTechGuide

How Long have You Played Runescape
3.5 years

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

Hello,
I am Jdud36 and i want to be an srl member. I know that my post count is very low but my scripting experaience is high. As you can see my sprict is very well made and i hope that u see this. I am constantly surfing srl to find scripts to edit or make even better than it was before. I am not a big fan of posting but if that what i have to do to become members then just tell me and i will start making very helpfull posts to anyone that needs help.

Thank you,
And i hope i am accepted into this community.

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

program PieStringer;
{.include SRL/SRL.Scar}
//Instructions
//Have bs in first bank spot bows in second.
//Find a world with not lot of people.

////////////////////////////////////////////
var
xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
: Integer;

const
RunAwayDir = 'S';
BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
Player0 = 0;

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

{///////////////////Set up your player//////////////////////}
Players[0].Name := '';// your user name
Players[0].Pass := '';//your password
Players[0].Nick := '';// your nick name
Players[0].Active := True;
end;

////////////////////////////dont touch please/////////////////////////////
Procedure Loadingbitmap;
begin
xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');

xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
'1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');

allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
'400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');

allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
'9');
end;

Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;

Procedure Randoms;
begin
FindTalk;
wait(10+Random(15));
FindNormalRandoms;
if(FindFight)then
RunAway;
end;

Procedure Bank;
var
x, y, fs, fs2 : Integer;
begin
repeat
randoms;
Flag;
if (FindObj(x, y, 'booth', 607324, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 7243412, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 6324369, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250+random(20));
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100+random(20));
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;



Procedure TakeBowsAndStrings;
begin
FixBank;
Wait(2000+random(250));
Mouse(92,75,3,3,false);
Wait(1000+random(250));
ChooseOption(x,y,'x');
Wait(3000+random(250));
SendKeys('13'+chr(13));
Wait(2000+random(250));
Mouse(142,75,3,3,false);
Wait(1000+random(250));
ChooseOption(x,y,'x');
Wait(1000+random(250));
SendKeys('14'+chr(13));
Mouse(92,75,3,3,true);
Wait(1000+random(250));
Mouse(486,40,2,2,true);
end;

Procedure SetInvInPos;
begin
Wait(3000+random(250));
Mouse(647,187,3,3,true);
end;

Procedure MakeFullBows;
begin
MakeFullBows2 := 0;
Mouse(709,444,3,3,true);
Wait(2000+random(250));
Mouse(666,441,3,3,true);
Wait(1000+random(250));
Mouse(709,444,3,3,true);
Wait(2000+random(250));
Mouse(666,441,3,3,true);
MakeFullBows2 := MakeFullBows2 + 1;
end;

Procedure DepositItAll;
begin
Bank;
Mouse(581,224,3,3,false);
Wait(2000+random(250));
ChooseOption(x,y,'all');
end;

Procedure LetsDebug;
begin
WriteLn(' Running Time: ' + (TimeRunning) + '')
end;

begin
setupSRL;
Loadingbitmap;
declareplayers;
activateclient;
loginplayer;
repeat
Bank;
takebowsandstrings;
setinvinpos;
wait(500);
Repeat
makefullbows;
Until(MakeFullBows2=9);
wait(1500+random(20));
bank;
wait(1000+random(20)) ;
deposititall;
wait(1000+random(20));
until (bowstringed >= bowstodo);
if (bowstringed >= bowstodo) then
begin
Logout;
terminateScript;
end;
end.

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

Please use scar tags when posting scripts so just for that i don't want to read your script and i vote no. + horrible standards.

Too Simple
Please read more and apply again later.
You need
antiban
multiplayer
better standerds
failsafes
and just get better at coding overall.
Thanks,
Try again later,
Yohojo

http://www.srl-forums.com/forum/piestringer-t13218.html?t=13218&highlight=PieStringer