SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
learning different kinds like delphi, but im total noob

Other Communitys
cheatengineforum

How Long have You Played Runescape
3 years

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

I'm new to scar and srl, but i try to learn as much as i can, i can provide nice scripts if im motivated. with this i mean i need ideas, what thing can i bot, how can i create the script to do it.. stuff like that.
so im not trying to learn to script, but sometimes i need a helping hand for some procedures.

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

program SimpleAutocurser;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\magic.scar}
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
//////             Made by: jellehier0                //////
//////             This is my first script            //////
//////             so please, don't flame me          //////
//////             if you have any comments,          //////
//////             please PM me and can someone       //////
//////             explain me how to insert anti-     //////
//////             randoms, how to include the mage   //////
//////             skill of srl into my script?       //////
//////             Thnx alot!                         //////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
// How to use: fill in everything.. stand next to the zamorak mage
//             in varrock castle with enough runes to cast 'curse'

var
i: Integer;
x,y: Integer;





const
spelll= 'curse'; // change curse into weaken, curse of confuse or any other spell
monstername= 'onk'; // part of the name of the monk
ZammonkColor1= 2369640; //colour of 'monk of zamorak'
ZammonkColor2= 3818147; //second colour of the monk
ZammonkColor3= 1909332; //third color of the monk
Runs= 0; // times you want to run the script ( 0 = unlimited)

procedure declareplayers;
begin
     HowManyPlayers :=1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :='name'; //name
     Players[0].Pass :='pass'; // password
     Players[0].Nick :='nick'; // nickname, abriviation of your name.
     Players[0].Active:=True;
end;

procedure antirandoom1;
begin
if clickToContinue = true then
begin
TalkToRand;
end;
end;

procedure antirandoom2;

begin
if FindDead= true then
begin
logout;
end else
if FindMime= true then
begin
logout;
end else
if FindMaze= true then
begin
logout;
end else
if FindQuiz= true then
begin
SolveQuiz;
end else
if FindDemon= true then
begin
SolveDemon;
end;
end;

procedure antirandoom3;
begin
if findtalk then
begin
SolveFrog;
SolveCerter;
SetupSandWich;
GetSandQuestion;
SolveSandWich;
end;
end;

procedure antirandomsolverthing;
begin
antirandoom1;
antirandoom2;
antirandoom3;
end;

procedure runaway;
begin
if (FindFight= true) then
begin
MakeCompass ('n')
RunAwayDirection('s');
wait(5000);
RunBack;
end;
end;

procedure antiiban;
begin
case (7) of


0: ;
1: SendKeys('good way of training magic!'+chr(13));
2: SendKeys('lool...'+chr(13));
3: SendKeys('Booooring!!!!!'+chr(13));
4: SendKeys (+chr(13));
5: SendKeys (+chr(13));
6: ;
7: ;
end;
end;




procedure Curse; //select the curse spell

Begin
cast(spelll);
end;

procedure Findmage; //find the mage of zamorak

Begin
if (findcolor (x,y,ZammonkColor1,0,0,600,600)) then
 begin
 Writeln('Found Zamorak Monk');
 Mouse(x,y,1,3,true);
 end else
if (findcolor (x,y,ZammonkColor2,0,0,600,600)) then
 begin
 Writeln('Found Zamorak Monk ');
 Mouse(x,y,1,3,true);
 end else
if (findcolor (x,y,ZammonkColor3,0,0,600,600)) then
 begin
 Writeln('Found Zamorak Monk');
 MMouse( x,y,5,2);
 end else
if (not(findcolor(x,y,ZammonkColor1,0,0,600,600)) or (findcolor(x,y,ZammonkColor2,0,0,600,600))) then
begin
 Writeln ('Did not found zamorak monk');
 Case random (3) Of
 0: Makecompass ('s')
 1: Makecompass ('n')
 2: Makecompass ('w')
 3: Makecompass ('e')
 end;
end;
end;

begin //mainloop
SetupSRL;
SetupMagic;
DeclarePlayers;
if (not (loggedin)) then
begin
loginplayer;
HighestAngle;
makecompass ('w')
end;
begin
 i:= 0;
 repeat
 i:= i + 1;
 Curse;
 wait(1300+random(100));
 Findmage;
 Runaway;
 antirandomsolverthing;
 wait(700+random(100));
 antiiban
 until(i = runs)
 logout;
 end;
end.

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

Too Simple
No Multiplayer
No Standards
Its mainly just simple findcolors and clicks
No DTMs/Bitmaps Used
Its a good start, but we are looking for better than this in order to get into SRL member.
I will let a few more people post for feedback. Then i will close.

thnx anyway

Good start, more understanding of using antirandoms would be ideal.

Also needs standards + multiplayer.

Voted no

No. Sorry.

sorry, i voted no.
i think you should go through the SRL manual and find out why i voted no.
ill give you a hint though.
look at sendkeys.

edit: that being said, you are doing exeptionally well in regards to script efficiency. better then half the applicants i have seen.

Lol elemental you havn't even begun to see yet. No for everyone else's reasons, it's too simple.

Feed Back Given
Use it Wisely
Follow It All
And you have a greater chance of getting in next time