SRL Archive - Archive

lefamaster - SRL Member Application Form


lefamaster

2007-03-28 12:44:40

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

What is the meaning to life?


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


Programming Knowledge
PHP, SQL, HTML (if that counts)

Other Communitys
Was a dev for awhile at the-merchant.co.uk

How Long have You Played Runescape
4 years

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

I think over the last few months I have carved a niche for myself here at SRL. I have attempted to learn as much as I can about SCAR, SRL, and the community. I feel that I have reached a point where I would could expand my knowledge of SRL by becoming a member. For me, the mebership isn't really a status, or achievment, but more of a tool to become better at what I find to be a intellectual hobby.

Perhaps I could have spent a bit more time on my cut_and_burn project, but it has served me well in laying the foundation for my future scripting projects.

About myself? well, I am not the average "Lesser Demon". I am a bit older, have a family, a job, real life stuff. Here is where I come to forget the majority of that, and try and learn something new every day. I find pleasure in assisting in a non-senseical project. Some people have a hard time understanding what I do, and why.

"You don't make any money off it?", they ask,

what good is money. Some of the greatest things in my life have been free. Hard to explain to most.

I digress…Here is my application, please review at your liesure.
I highly anticipate the response.

Thank you,
Lefa

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

I couldn't get the file attachment to work :(
So i posted it all here.
You can also download under First Scripts.
It said I wasn't privlaged enough.


{
********************************************************************************
~~~~~~~~~~~~~~~~~~~~~~~~LEFAMASTER's~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
______ | |\ | |
| __|__ | \ | |
| | | | | \ | |_ __ | | |__ |___
| | | | | \ | | | | | | | | |
|_____ |____| | | \| |_ __| |___| | | |
********************************************************************************
built off WTH I SP4ANK's Tree Sp4nk 2.0
credits to Arrow for his Auto-Responder.
********************************************************************************
********************************************************************************
~~~~~~~~~~~~~~~~~~~~~INTRUCTIONS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Fill out setup (lines 27-38)
Only need to set the colors three sides of tree.
********************************************************************************
********************************************************************************
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~PROGGY~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~




Put your best proggy here




********************************************************************************
}
program CutAndBurn;

var
Loads : integer;

{.include SRL\SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
{.include SRL/SRL/skill/FireMaking.scar}

{
********************************************************************************
********************************SETUP*******************************************
********************************************************************************
}
const
StartPlayer = 0;
TreeColor1=1929312;//color of tree1 from highest view
TreeColor2=876624;//color of tree2 from highest view
TreeColor3=1454128;//color of tree3 from highest view
TreeWait=1900;//time to wait until cutting another tree
FireWait=2500;//time to wait for fire to be made
TreeToCut='Tree';//which tree your cutting
AxeWielded='2'; // 1 if weilded, 2 if not
LoadsToFinish=1; // set it to how many you wish
Username='';
Nick='';
YourSRLSTATSID = '189'; // Stats ID.
YourSRLSTATSPASS = 'J5gqYnarqz'; // Stats Pass.
YourRCMASTER = 'name goes here'; // Remote Control Master.
{
********************************END OF SETUP************************************
}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 5; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := StartPlayer; // CurrentPlayer = Array Index


Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3 or 4 letters username
Players[0].Boolean1 := True; //True for weilded, false not
Players[0].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[0].Active := True;

Players[1].Name := ''; //Username
Players[1].Pass := ''; //Password
Players[1].Nick := ''; //3 or 4 letters username
Players[1].Boolean1 := True; //True for weilded, false not
Players[1].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[1].Active := True;

Players[2].Name := ''; //Username
Players[2].Pass := ''; //Password
Players[2].Nick := ''; //3 or 4 letters username
Players[2].Boolean1 := True; //True for weilded, false not
Players[2].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[2].Active := True;

Players[3].Name := ''; //Username
Players[3].Pass := ''; //Password
Players[3].Nick := ''; //3 or 4 letters username
Players[3].Boolean1 := True; //True for weilded, false not
Players[3].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[3].Active := True;

Players[4].Name := 'arms d3aler'; //Username
Players[4].Pass := 'ace420'; //Password
Players[4].Nick := 'rms'; //3 or 4 letters username
Players[4].Boolean1 := True; //True for weilded, false not
Players[4].Skill := 'Woodcutting'; //The skill for when you get a lamp
Players[4].Active := True;

Writeln( IntToStr ( HowManyPlayers ) + ' Players' );


End;



Procedure beginscript;
Begin
cleardebug
ScriptID :='95';
DeclarePlayers;
ActivateClient;
DisguiseScar('WAMP:Beastie Boys Track 6_Fruit Loop');
Writeln('LLL EEEEEEEEEE FFFFFFFF')
Writeln('LLL EEE FFFFFFF AAAAAA')
Writeln('LLL EEEEEEEEE FFF AAA A AA ')
Writeln('LLL EEE FFFFFFFF AA A AA ')
Writeln('LLLLLLL EEEEEEEEEE FFF AAAAAA AA ')
Writeln('--->Version 0.66')
Writeln('--->Credits to the Power Cutter Core by Wtf I Sp4nk ')
Writeln('a serious work in progress at learning SRL ')
HighestAngle;
SRLRandomsReport;
End;


{
********************************************************************************
***************Arrows Auto Responder********************************************
********************************************************************************
}
Procedure Responder;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;

if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;

if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;

if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;

if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;

if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;

if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;

if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;

if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;

if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;

if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;

if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;

if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;

if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;

if (InChat(UserName + '?')) then
begin
TypeSend('Yeah?')
end;

if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
end;

if (InChat('Hi' + UserName) or
InChat('Hey' + UserName) or
InChat('Hello' + UserName)) Then
begin
TypeSend('Hi')
end;

if (InChat('You are a noob' + UserName) or
InChat( UserName + 'you are a noob')) then
begin
TypeSend('kewl')
end;

if (InChat('What music do you people like?') or
InChat('Wat music do you guys like?') or
InChat('What music you ppl like?') or
InChat('Wat music do yoo peeps like')) then
begin
TypeSend('i am deaf')
end;
end;


Procedure Ban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(120)
case NoBan of
1: RandomRClickEvery(2 + Random(30));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));


end;
begin
if not loggedin then
RandomNextPlayer(True);
If Not(loggedin) Then
LoginPlayer;

end;
end;

procedure FindCenter;
Var
center_map, Cx, Cy : Integer;

Begin
center_map := DTMFromString('78DA6314646060E06440018C8C8C0CFF41341' +
'0FF07024666EC6A18A06AC034489E99801A2E202148400D0B90E0' +
'C3AF060013C90574');

If(FindDTM(center_map, Cx, Cy ,1 ,1 ,700 ,700))Then
Begin
Mouse(Cx,Cy,1,1,true)
Writeln('we are center found dtm.');
End else
Writeln('unable to find center dtm....away you go...far far away...');
End;


procedure FindCenter2;
Var

center_map2, C2x, C2y : Integer;
Begin

center_map2 := BitmapFromString(10, 10, 'z78DAB5904B0A80300C05A' +
'F94D0169ECB571AEF7F24B1BAA8446AB370330492C98F46B0B0D3' +
'B2AA546BA926DC71277651510E959E731706E0CB75FCDDC52678D' +
'9D65824B7B93B76885A9E97B5EE3E36EFF1FAACE897A2F79E39D1' +
'037EE18AE7');
If(FindBitmap(center_map2, C2x, C2y))Then
Begin
Mouse(C2x,C2y,1,1,true)
Writeln('we are center found bitmap instead.');
End else
Writeln('unable to find center bitmap....that was our last chance');
End;

Procedure FindCenter3;
begin
If (FindSymbol(x,y, 'dungeon')) then
begin
SetRun(true)
wait(500+random(117))
Mouse(x,y,1,1,true)
Flag;
end
end;




procedure Burn2;
Var
tbox, Tx, Ty : Integer;
log, Lx, Ly : Integer;
log2, Llx, Lly : Integer;
zz : Integer;
Begin
tbox := DTMFromString('78DA63E4666060606340038C0CFFC12403C37' +
'F20609401325830D52048202D09244409A8E100121204D4080109' +
'19FC6A00283005B8');


log := DTMFromString('78DA6314646060E06140012DA9B60CFF81342' +
'310FF0702463E208395010D302291409A0548701150C30E242408' +
'A8110212E204D44812B60B00C7E406DC');

log2 := DTMFromString('78DA6394646060E06240038C482490E60712A' +
'C04D4B00009314C35BFD0D5E0B18B09448B623707458D1C901020' +
'A0861DBF9B416A0011B901DC');

begin
repeat
If(FindDTM(tbox, Tx, Ty, 1,1 ,761,600))Then
Begin
wait(1500)
mouse(Tx, Ty,1,1, true) //True = Left click, False = Right Click.
Writeln('we have tbox');
End else
Writeln('we do not have tbox');
If (IsChatMessage('you can''t light a fire here.')=true) or
(IsChatMessage(' a fire here.')=true)
then
begin
wait(FireWait+random(500))
Mouse(219,154,1,1,true)
Writeln('MOVE to left to the left');
zz := zz+1;
If zz > 7 then
begin
Mouse(276,207,1,1,true)
Writeln('Move to the right.');
end;
end else

wait (1000)
If(FindDTM(log, Lx, Ly, 551, 137 ,760, 500))Then
Begin
wait(1500)
mouse(Lx, Ly,1,1, true) //True = Left click, False = Right Click.
wait(1500)
Writeln('we have logs');
end else
Writeln('we do not have logs');
until (not(findDTM(log, Lx, Ly, 551, 137, 760, 500)));
Mouse(712,72,1,1,true)
wait(5500)
End;
End;



procedure Burn3;
Var
tbbox, Tbx, Tby : Integer;
oak, Ox, Oy : Integer;
z : Integer;
Begin
tbbox := DTMFromString('78DA63E464606010644001894E9C0C2780342' +
'310FF0702462E20839D010D302291409A194808A0AA58B36001AA' +
'1A7E202145408D3490E0415533A5B313530D13AA9A98B0305435A' +
'240420455CDA2E9D351D40000234A0EAA')


oak := DTMFromString('78DA63E4626060606340038C482490960112C' +
'C04D4C801095E5415B1AE0AA86A148184080173588850C30724A4' +
'71AB01399591154888E157030000DF01C8')
z := 0;
begin
repeat
If(FindDTM(tbbox, Tbx, Tby, 1,1 ,761,600))Then
Begin

wait(1500)
mouse(Tbx, Tby,1,1, true) //True = Left click, False = Right Click.
Writeln('we have tbox');
End;
If (IsChatMessage('you can''t light a fire here.')=true) or
(IsChatMessage(' a fire here.')=true)
then
begin
wait(FireWait+random(500))
Mouse(219,154,1,1,true)
Writeln('MOVE to left to the left');
z := z+1;
begin
If z > 5 then
Mouse(276,207,1,1,true)
Writeln('Move to the right.');
end;

end else

wait (1000)
If(FindDTM(oak, Ox, Oy, 551, 137 ,760, 500))Then
Begin

wait(1500)
mouse(Ox, Oy,1,1,true) //True = Left click, False = Right Click.
wait(1500)
Writeln('we have logs');
end;
until (not(findDTM(oak, Ox, Oy, 551, 137, 760, 500)));
End;
End;


procedure cuttree;
begin
repeat
highestangle;
Responder;
Ban;
FindNormalRandoms;

if FindMSColor(x,y,Treecolor1)or
FindMSColor(x,y,Treecolor2)or
FindMSColor(x,y,Treecolor3) then

mmouse(x,y,3,3)
Until IsUpTextMulti('hop','own',TreeToCut)
If IsUpTextMulti('hop','own',TreeToCut) Then
Begin
GetMousePos(x,y)
mouse(x,y,1,1,true)
FindNormalRandoms;
FindEnt(TreeColor1);
wait(TreeWait+random(500))
FindNormalRandoms;
Writeln('Cut down one log...')
end;
End;


procedure dropit;
begin
if (Players[Currentplayer].boolean1) Then
Begin
Ban;
Responder;
DropTo(20,28);
FindNormalRandoms;
Loads:= Loads + 1;
Mouse(505,161,1,1,true)
End else
if (not(Players[Currentplayer].boolean1)) Then
Begin
Ban;
Responder;
DropTo(20,28);
FindNormalRandoms;
Loads:= Loads + 1;
begin
if not loggedin then
RandomNextPlayer(True);
Mouse(505,161,1,1,true)
end;
end;
End;


procedure ProgressReport;
begin
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Writeln('~~~~~~~LEFAMASTER~~~~~~~~~~~');
Writeln('~~~~~~~CUT N BURN~~~~~~~~~~');
Writeln('Worked for: '+ScriptTime2(2));
Writeln('Cut and Burnt: '+IntToStr(Loads));
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
SRLRandomsReport;
end;

begin
SetUpSRL;
DeclarePlayers;
ScriptID :='95';
beginscript;

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

REPEAT
If Not(loggedin) Then
LoginPlayer;
If (LoggedIn) Then
Begin
FindCenter;
FindCenter2;
FindCenter3;
Repeat
Repeat
cuttree;
until(Invfull)
burn2;
burn3;
dropit;
wait(5500)
Mouse(712,72,1,1,true)
wait(5500)
dropit;
FindCenter;
FindCenter2;
FindCenter3;
wait(5500)
ProgressReport;
Until(LoadsToFinish <= Loads)
if (LoadsToFinish <= Loads) Then
Begin
ProgressReport;
Writeln('Logging on to next player...')
ProgressReport;
Logout;
NextPlayer(true);
begin
if not loggedin then
LoginPlayer;
end;
end;
end;
UNTIL(FALSE);
End.

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

Secet

2007-03-28 13:06:48

I got in with worse application so I really hope you get in too, you look very promising and good guy.

Good luck.

Wizzup?

2007-03-28 13:09:30

I say you should get a bit more familiar with Multiplayer.

Username =''; 
Passworld = '';

What that doing in there, because you added DeclarePlayers; too…
I didn't see a NextPlayer(False); :)

Also:

AxeWielded='2'; // 1 if weilded, 2 if not

AxeWielded = True // Or False, might be better.

Booleans. ;)

It's not too bad though, if you promise you will look into the things I mentioned I will vote yes. (already voted yes, just make sure you understand them)

JAD

2007-03-28 13:19:40

Well, agreed with the above. But your standards are pretty off, and as wissup? said, no player switching and those little things he pointed out. I'm really on the fence with this one, but I think I'm going to have to vote no do to the fact of what I said above, and that a lot of this script is just an auto responder. Its a good script though, keep at it, you may still get accepted even with my vote being no ;)

Hey321

2007-03-28 14:38:07

From: JAD
Well, agreed with the above. But your standards are pretty off, and as wissup? said, no player switching and those little things he pointed out. I'm really on the fence with this one, but I think I'm going to have to vote no do to the fact of what I said above, and that a lot of this script is just an auto responder. Its a good script though, keep at it, you may still get accepted even with my vote being no ;)


A few things.

First of all:

It's Wizzup? not wissup?.

Second of all:

It's due not do.

Third, Wizzup voted yes, and other then the things he pointed out, its decent, so i will vote yes to ^_^.

JuKKa

2007-03-28 15:09:44


Repeat
cuttree;
until(Invfull)

add


Repeat
if not loggedin then break;
cuttree;
until(Invfull)

just a small fail safe :)

YoHoJo

2007-03-28 16:12:38

I say no.
It needs lots of failsafes.
The chopping and lighting procedures mainly need them.
And also, almost all of this script is just like Wtf i sp4nk's.
You just added a lighter procedure and 'center finder'.
Except for those, everythign seems the same to me.
Try making a script ALL by yourself.
Try not looking an atnother script and see if you can get your own idea.

At least you credited ;p
I know you didnt 'copy' or antyhing, but these two scripts are just too similar.

JAD

2007-03-28 17:52:08

From: hey321
A few things.

First of all:

It's Wizzup? not wissup?.

Second of all:

It's due not do.

Third, Wizzup voted yes, and other then the things he pointed out, its decent, so i will vote yes to ^_^.


Hey, you don't need to be dissing me bro. I don't know why your correcting me like that. like WT-Fakawi for instance. I see a LOT of people call him fawki, which is in correct. and wizzup? is called wissup? all the time. if he was offended by me calling him that, then he would probably say so himself so you don't need to try to embarrass me about my improper spelling. This thread is for voting yes or no to accept somebody for membership, not give me a grammar lesson. And its not like I'm being over tough on accepting him as being a member as you make it seem.. Yohojo voted no also.

Hey321

2007-03-28 18:29:41

From: JAD
Hey, you don't need to be dissing me bro. I don't know why your correcting me like that. like WT-Fakawi for instance. I see a LOT of people call him fawki, which is in correct. and wizzup? is called wissup? all the time. if he was offended by me calling him that, then he would probably say so himself so you don't need to try to embarrass me about my improper spelling. This thread is for voting yes or no to accept somebody for membership, not give me a grammar lesson. And its not like I'm being over tough on accepting him as being a member as you make it seem.. Yohojo voted no also.



Dude, i'm only pointing out that you spelled something wrong. Not saying your being tough on him. Maybe next time wait until i say something about being tough on him, THEN get mad because of it?

JAD

2007-03-28 18:37:29

From: hey321
Dude, i'm only pointing out that you spelled something wrong. Not saying your being tough on him. Maybe next time wait until i say something about being tough on him, THEN get mad because of it?


Whatever dude.. You didn't need to point out my spelling mistakes and be a jerk like that though. all I'm saying.

WT-Fakawi

2007-03-28 19:11:52

TW-Fawaki says: On Topic!

Number One! You do more then just running scripts :) Sure, I think you are one of our most freakiest registrees, I will vote for you. Part of the family already.

Boreas

2007-03-28 22:33:23

From: lefamaster

I couldn't get the file attachment to work :(
So i posted it all here.
You can also download under First Scripts.
It said I wasn't privlaged enough.


It's ok, we like to able to look at it quickly to make voting easier.

Speaking of making it easier to vote on scripts, work on your standards.




Lol @ facky

WT-Fakawi

2007-03-31 15:13:09

In!