SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge
HTML

Other Communitys
Gotbuddy, ForbiddenArmy

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've been macroing for about a year, an thn about a month ago i started trying to learn how to write scripts. i took a course on HTML during the school year and got pretty good at the basic format writing.

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

//——————————————————————————-//
//——————————————————————————-//
//——————–Anime's Al Kharid Guard Killer—————————-//
//——————————————————————————-//
//——————————————————————————-//
//——– Play with 32 bit color, low detail, and max brightness ———-//
//——— Place Character in Palace in Al Kharid Near Warriors ———-//
//—— Fill out Line 13 and set skill you want to train in the game ——-//
//——————————————————————————-//
//——————————————————————————-//
//——————————————————————————-//
//——————————————————————————-//


program GuardMurder;
{.include SRL/SRL.Scar}
// * Load SRL Include.

const
Kills = 500;

var
i, Killed, Randomz: integer;


procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[0].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[1].Skill := 'Strength';

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[2].Skill := 'Strength';

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[3].Skill := 'Strength';

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[4].Skill := 'Strength';

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
Players[5].Skill := 'Strength';

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

End;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
Randomz:= Randomz + 1;
end;



procedure DoAntiRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
if not LoggedIn then NextPlayer(False);
end;
end;



procedure SetsFightMode;
begin
GameTab(1);
if Players[CurrentPlayer].Skill = 'Attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'Strength'then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'Defence' then SetFightMode(4);
FindTalk;
end;



procedure Kill;
begin
if (FindColorTolerance(x, y, 8326527, 4, 24, 766, 521, 10))then // * Use tol.
begin
MMouse(x, y, 3, 3); // * Never use "MoveMouseSmooth(x,y)" ez to get banned. 3, 3 random off x, y
Wait(150 + random(100));
if (IsUpText('Attack'))then // * Check UpText for "Attack"
begin
GetMousePos(x, y); // Get current mouse position.
Mouse(x, y, 0, 0, true); // * Never use ClickMouse(x, y, true); ez to get banned.
Wait(7500 + random(1500)); // Try using another method.
DoAntiRandoms;
Killed:= Killed + 1;
end;
end;
end;


procedure ProgReport;
begin
Writeln('[]///////////////////////////////////////////[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Killed '+ IntToStr(Killed) + ' Ali Guards');
Writeln('Got '+ IntToStr(Randomz) + ' Randomz');
Writeln('[]///////////////////////////////////////////[]');
end;




begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
SetsFightMode;
i:= 0;
repeat
Kill;
i:= i + 1;
until (i >= Kills);
if (Kills = 0) then
repeat
kill;
Until(False);
end.

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

Sorry, you must learn to script VERY well with all the requirements to become a SRL member.

To see what all the requirements are, check out Boreas's tutorial How to become a SRL member. Then check out my tut (links in sig) Learning the things to become a SRL member. That should teach you all the things you need to know to become one :)

So just read tutorials, (mine :p) study scripts and just soak in as much information and ideas on scripting as you can in the next month, then apply again.

Sorry, but for now, it's a no.

Eh its pretty basic. Doesn't eat, doesn't even include Multi-player(you included DeclarePlayers but you didn't make the script switch players), and you base the script on time to kill. What if the script takes longer than 9.5 seconds to kill?
No SCAR tags…
Also, in your anti randoms you have

if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
if not LoggedIn then NextPlayer(False);
end;

FindFight? Arn't you making a autofighter…? Do you want the script to run away every time it is in a fight lol?

No from me…

I voted no because you didnt use scar tags.

From: tim46
Eh its pretty basic. Doesn't eat, doesn't even include Multi-player(you included DeclarePlayers but you didn't make the script switch players), and you base the script on time to kill. What if the script takes longer than 9.5 seconds to kill?
No SCAR tags…
Also, in your anti randoms you have

if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
if not LoggedIn then NextPlayer(False);
end;

FindFight? Arn't you making a autofighter…? Do you want the script to run away every time it is in a fight lol?

No from me…

http://www.villavu.com/forum/showthread.php?t=12320?t=13686

Someone added that for him, rofl. :p

Lol. So that script is like 10% his? :p

he/she was an srl member before but got kicked of like a week ago

why may i ask?

Because he was one of those people who got automatic member. (i think)

He was. If only all the people that automatically became members were kicked…no offence to them though.

He also has Until(False) which means an endless loop. I believe that's one of the golden rules of SRL.

From: SantaClause
He was. If only all the people that automatically became members were kicked…no offence to them though.

He also has Until(False) which means an endless loop. I believe that's one oft he golden rules of SRL.

As long as you break out of a loop it's fine :) Take a look at Wizzup?'s Draynor netter. He has until(False)'s everywhere, in his FindFishingSpot (or whatever the function is called) function, and he just breaks out of the loop with a mark timer and if some other conditions happen.

In main loops though everybody uses it, but all you need is before the until(False) have if(not(LoggedIn))then NextPlayer(False) and your good :)

[OFFTOPIC] Nich, are u WhiteShadow?? If u r how did u change name?[/OFFTOPIC]

From: n3ss3s
[OFFTOPIC] Nich, are u WhiteShadow?? If u r how did u change name?[/OFFTOPIC]

[Offtopic]He is :p Same cups, same longtivity, about same activity, [WhiteShadow] next to his name, and an admin would do that for him :p [/Offtopic]

From: n3ss3s
[OFFTOPIC] Nich, are u WhiteShadow?? If u r how did u change name?[/OFFTOPIC]

Nich[WhiteShadow]
SRL Member
King Black Dragon

he probally asked a admin to change his name. EDIT: jad said it b4 me

Whoa! You people know everything about everything about the forums. I'm really behind.

Lol, for you guys: [/offtopic]

I'm gonna vote no, because you need to learn more about the whole scripting dealy bobber.
And use scar tags :o

Keep it up!