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.
——————————————————
<!– END 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 –>