SRL Archive - Archive

me_ntal - SRL Member Application Form


me_ntal

2007-04-22 10:53:15

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

What is the meaning to life?
You cant answer this when applying, My meaning of life is to live

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

Programming Knowledge
vb javascript java html

Other Communitys
Was apart of sythe and mopar

How Long have You Played Runescape
3 years

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

Im a 17 year old australian. Programming is a hoby along with cars.
I feel i can jelp this community and often spend alot of time in the help boards assiting all i can or learning so i can assist.
I think pointing the direction for new people is better than flaming and often offer my email if they need more support.
Ive only been scar scripting a few months and tried and played with everything inclduing forms radial walking and srl functions.
Im always willing to try to help anyone

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


{
__________________________________________________________
|| Me_ntals Willow Cutter ||
|| ||
|| Suggestion? Post it! ||
|| Thanks the SRL team ||
|| Espically starblaster ||
||_______________________________________________________||

}

{.include srl/srl.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
DX, DY, LogDTM, BigXDTM, Willows, i:integer;

const WillowColor = 3160112;
const LogsPerLoad = 27;
const Loadstodo = 50;
const keepercolor = 2575473;

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

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; {3-4 letters of your name}
Players[0].Skill := 'hitpoints'; {Lamp Skill}
Players[0].Active := True; {Use player?}
Players[0].Boolean1 := False; {Powercop?}


end;

procedure DeclareDTM;
begin

LogDTM := DTMFromString('78DA632C66626078CA8002527D75191E02694' +
'620FE0F048CC94035CF18D000231209A4F3806AEE10505343A49A' +
'3744D8F511BF1A00056F0DE4');

BigXDTM := DTMFromString('78DA63E4626060006114C0C8F01F4C3230FC0' +
'7024661208309554541A21B54255407480D0FAA1A676B6D54351C' +
'404218554D88A739AA1A903D1CA86AB2639D51D5B001096654351' +
'35BF251D508E0B78B15880100130BA0');
end;


{__________________________________________
| Sigantures |
|__________________________________________|}
Procedure Siganture;
Begin
Writeln('_______________________________');
Writeln('| Me_ntal"s |');
Writeln('| Edgeville |');
Writeln('| Willow Cutter |');
Writeln('|______________________________|');
end;

procedure Report;
begin
ClearDebug;
Writeln('_______________________________');
Writeln('| |');
Writeln('| Me_ntal"s |');
Writeln('| Edgeville |');
Writeln('| Willow Cutter |');
Writeln('|______________________________|');
Writeln('')
Writeln(' Total Running Time : ' +TimeRunning);
Writeln('')
Writeln(Players[CurrentPlayer].Name);
Writeln('Willows Cut :'+IntToStr(Willows));
Writeln('Exp Gained :'+FloatToStr(Willows*62.5));
end;

procedure Summary;
begin
AddToReport('');
AddToReport(Players[CurrentPlayer].Name)
AddToReport('');
AddToReport('Worked for : '+IntToStr(Players[CurrentPlayer].Worked));
AddToReport('Loads Done : '+IntToStr(Willows));
AddToReport('Exp Gained : '+FloatToStr(Willows*62.5));
AddToReport('Wc level : '+IntToStr(Players[CurrentPlayer].Level[20]));
AddToReport('');
end;



{__________________________________________
| Setups |
|__________________________________________|}

Procedure SetupPlayer;
begin
HighestAngle;
MakeCompass('N');
FindAxeHeadColor;
Report;
end;

{__________________________________________
| Randoms |
|__________________________________________|}
Function FindFastRandoms:Boolean; //By WT-Fakawi.
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;

14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;

{__________________________________________
| AntiBan |
|__________________________________________|}
Procedure WereHuman;
Begin
If not(LoggedIn) then Exit;
Begin
Case Random(20) of
0: HoverSkill('random', false);
1: RandomRClickEvery(2 + Random(8));
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: HoverSkill('Woodcutting', false);
5: BoredEvery(9 + Random(24));
6: Begin
GameTab(1 + Random(12));
Wait(1500 + Random(500));
GameTab(4);
end;
7: SleepAndMoveMouse(1000 + Random(1000));
8: MMouse(Random(MIX2), Random(MIY2), 0, 0);
9: HoverSkill('Firemaking', false);
end;
end
end;

procedure Randomfind;
begin
FindFastRandoms;
FindNormalRandoms;
end;

{__________________________________________
| Selling |
|__________________________________________|}
procedure fromshop;
begin
{Shop to Witch}
if(RadialWalkEx( DX, DY, MMCX, MMCY, RoadColor, 30, 120, 130, 50)) then
begin
mouse(DX,DY,0,0,true);
Flag;
if(RadialWalkEx( DX, DY, MMCX, MMCY, 1784915, 30, 145, 175, 60)) then
begin
mouse(DX,DY,0,0,true);
Flag;
Randomfind;
WriteLn('Returned To Willows');
end;
end;
end;

procedure selllogs;
begin
LowestAngle;
MakeCompass('N');
if(FindColorTolerance(x, y, keepercolor, MSX1, MSY1, MSX2, MSY2,10))then
Begin
MMouse(x, y, 3, 3);
wait(100+random(100));
if(IsUpTextMulti('hop', 'eep', 'per'))then
begin
Mouse(x,y,3,3, false);
Wait(50 + Random(35));
ChooseOption(x, y, 'Trade');
Wait(50 + Random(100));
repeat
if(FindDTM(LogDTM, x, y, 552, 203, 742, 469))then
begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Sell 10');
Mouse(x, y, 2, 2, True);
end;
until(Not(FindDTM(LogDTM, x, y, 552, 203, 742, 469)));
Willows := Willows + LogsPerLoad;
Report;
if(FindDTM(BigXDTM, x, y, 552, 203, 742, 469))then
begin
Mouse(x, y, 2, 2, True);
Wait(100 + Random(100));
WriteLn('Sold A load');
HighestAngle;
end;
end;
end
end;

procedure tooshop;
begin
{Willow to dead}
If(RadialWalkEx( DX, DY, MMCX, MMCY, 1256738, 30, 345, 366, 45)) then
Begin
begin
mouse(DX,DY,0,0,true);
Flag;
if (RadialWalkEx( DX, DY, MMCX, MMCY, 232, 30, 300, 303, 60)) then
Begin
begin
mouse(DX,DY,0,0,true);
Flag;
if (RadialWalkEx( DX, DY, MMCX, MMCY, 602204, 30, 300, 225, 15)) then
begin
mouse(DX,DY,0,0,true);
Flag;
WriteLn('At Shop');
Wait(100 + Random(100));
end
end;
end
end;
end
end;

procedure DropLogs;
begin
if (InvFull) then
begin
repeat
if(FindDTM(LogDTM, x, y, 552, 203, 742, 469))then
begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Drop');
Randomfind;
end;
until(Not(FindDTM(LogDTM, x, y, 552, 203, 742, 469)));
Willows := Willows + LogsPerLoad;
Report;
end else
exit;
end;

procedure bankreq;
begin
if (InvFull) then
begin
If (Players[CurrentPlayer].Boolean1 = False) then
begin
tooshop;
Wait(50 + Random(100));
selllogs;
Wait(50 + Random(100));
fromshop;
end else
DropLogs;
end else
exit;
end;



{__________________________________________
| Main Loop |
|__________________________________________|}
Procedure Doload;
Var
cx, cy: Integer;
begin
if (InvFull) then bankreq;
repeat
begin
If not(LoggedIn)then Exit;
If (FindColorSpiralTolerance(x,y, WillowColor, msx1,msy1,msx2,msy2, 5))and
not(FindColorSpiralTolerance(cx, cy, 515029, MSX1, MSY1, 180, 25, 20))and
not(FindColorSpiralTolerance(cx, cy, 122333, MSX1, MSY1, 123, 15, 10))and
not(FindColorSpiralTolerance(cx, cy, 65535, MSX1, MSY1, 180, 25, 20))then
Begin
MMouse(x, y, 3, 3);
if(IsUpTextMulti('hop', 'own', 'illo'))then
begin
Wait(100 + Random(100));
Mouse(x,y,3,3, false);
Wait(50 + Random(35));
ChooseOption(x, y, 'Chop');
Wait(50 + Random(100));
end;
repeat
begin
If (InvFull) then bankreq;
MMouse(x, y, 3, 3);
wait(500+Random(1000));
FindEnt(3160112);
FindHead;
WereHuman;
end;
until (not(IsUpText('hop')));
Randomfind;
end;
end;
until ((InvFull))
if (InvFull) then bankreq;
end;



{__________________________________________
| Main Loop |
|__________________________________________|}
begin
setupsrl;
DeclareDTM;
ActivateClient;
Willows := 0;
ClearDebug;
Siganture;
DeclarePlayers;
repeat
If (Not(LoggedIn)) then LoginPlayer;
SetupPlayer;
repeat
Doload;
bankreq;
Report;
until (Willows >= Loadstodo)
if(Willows >= Loadstodo)then
begin
GetAllLevels;
Summary;
LogOut;
NextPlayer(True);
Willows := 0;
SetupPlayer;
end;
until False;
end.

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

JAD

2007-04-22 11:20:58

You do not use anywhere near correct standards in your script… There for, I can tell that the anti ban isn't yours. You copied that thinking nobody would notice correct? And, not that this makes a difference, but you have this:

const WillowColor = 3160112;
const LogsPerLoad = 27;
const Loadstodo = 50;
const keepercolor = 2575473;

Why? All you need is this (Which I told you before)

const
WillowColor = 3160112;
LogsPerLoad = 27;
Loadstodo = 50;
keepercolor = 2575473;

No from me.. For the fact you've copied the anti ban (I've seen that exact same one somewhere else anyways) And to the fact you don't have correct standards. You also don't even have a correct randoms procedure… You should have your own one after FindFastRandoms like this:


procedure DoAntiRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;

Rune Hacker

2007-04-22 13:30:33

Im going to have to say no, sorry. Making a script like this is easy, but making it reliable…..that's what makes scripting hard. There is only one failsafe in there which scripts like this need as many as possible.

Also, your standards are WAY off.

And lastly, why do you have a procedure to sell the logs while you also have a procedure to drop the logs in this script?

And, its only been 8 days since you last applied which is way too soon.

Sorry.

me_ntal

2007-04-24 00:51:58

Rune hacker if you completely read through the script you would have noticed that there was an option to powerchop in the declare player function. I just wanted to spice it up a bit and enable it so that the script had many uses.

Johura

2007-04-24 01:14:13

Fix your standards. It should look like this.


{
__________________________________________________________
|| Me_ntals Willow Cutter ||
|| ||
|| Suggestion? Post it! ||
|| Thanks the SRL team ||
|| Espically starblaster ||
||_______________________________________________________||

}

{.include srl/srl.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
DX, DY, LogDTM, BigXDTM, Willows, i: integer;

const
WillowColor = 3160112;
LogsPerLoad = 27;
Loadstodo = 50;
keepercolor = 2575473;

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

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; {3-4 letters of your name}
Players[0].Skill := 'hitpoints'; {Lamp Skill}
Players[0].Active := True; {Use player?}
Players[0].Boolean1 := False; {Powercop?}
end;

procedure DeclareDTM;
begin

LogDTM := DTMFromString('78DA632C66626078CA8002527D75191E02694' +
'620FE0F048CC94035CF18D000231209A4F3806AEE10505343A49A' +
'3744D8F511BF1A00056F0DE4');

BigXDTM := DTMFromString('78DA63E4626060006114C0C8F01F4C3230FC0' +
'7024661208309554541A21B54255407480D0FAA1A676B6D54351C' +
'404218554D88A739AA1A903D1CA86AB2639D51D5B001096654351' +
'35BF251D508E0B78B15880100130BA0');
end;


{__________________________________________
| Sigantures |
|__________________________________________|}

procedure Siganture;
begin
Writeln('_______________________________');
Writeln('| Me_ntal"s |');
Writeln('| Edgeville |');
Writeln('| Willow Cutter |');
Writeln('|______________________________|');
end;

procedure Report;
begin
ClearDebug;
Writeln('_______________________________');
Writeln('| |');
Writeln('| Me_ntal"s |');
Writeln('| Edgeville |');
Writeln('| Willow Cutter |');
Writeln('|______________________________|');
Writeln('')
Writeln(' Total Running Time : ' + TimeRunning);
Writeln('')
Writeln(Players[CurrentPlayer].Name);
Writeln('Willows Cut :' + IntToStr(Willows));
Writeln('Exp Gained :' + FloatToStr(Willows * 62.5));
end;

procedure Summary;
begin
AddToReport('');
AddToReport(Players[CurrentPlayer].Name)
AddToReport('');
AddToReport('Worked for : ' + IntToStr(Players[CurrentPlayer].Worked));
AddToReport('Loads Done : ' + IntToStr(Willows));
AddToReport('Exp Gained : ' + FloatToStr(Willows * 62.5));
AddToReport('Wc level : ' + IntToStr(Players[CurrentPlayer].Level[20]));
AddToReport('');
end;



{__________________________________________
| Setups |
|__________________________________________|}

procedure SetupPlayer;
begin
HighestAngle;
MakeCompass('N');
FindAxeHeadColor;
Report;
end;

{__________________________________________
| Randoms |
|__________________________________________|}

function FindFastRandoms: Boolean; //By WT-Fakawi.
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;

14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;

{__________________________________________
| AntiBan |
|__________________________________________|}

procedure WereHuman;
begin
if not (LoggedIn) then Exit;
begin
case Random(20) of
0: HoverSkill('random', false);
1: RandomRClickEvery(2 + Random(8));
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: HoverSkill('Woodcutting', false);
5: BoredEvery(9 + Random(24));
6: begin
GameTab(1 + Random(12));
Wait(1500 + Random(500));
GameTab(4);
end;
7: SleepAndMoveMouse(1000 + Random(1000));
8: MMouse(Random(MIX2), Random(MIY2), 0, 0);
9: HoverSkill('Firemaking', false);
end;
end
end;

procedure Randomfind;
begin
FindFastRandoms;
FindNormalRandoms;
end;

{__________________________________________
| Selling |
|__________________________________________|}

procedure fromshop;
begin
{Shop to Witch}
if (RadialWalkEx(DX, DY, MMCX, MMCY, RoadColor, 30, 120, 130, 50)) then
begin
mouse(DX, DY, 0, 0, true);
Flag;
if (RadialWalkEx(DX, DY, MMCX, MMCY, 1784915, 30, 145, 175, 60)) then
begin
mouse(DX, DY, 0, 0, true);
Flag;
Randomfind;
WriteLn('Returned To Willows');
end;
end;
end;

procedure selllogs;
begin
LowestAngle;
MakeCompass('N');
if (FindColorTolerance(x, y, keepercolor, MSX1, MSY1, MSX2, MSY2, 10)) then
begin
MMouse(x, y, 3, 3);
wait(100 + random(100));
if (IsUpTextMulti('hop', 'eep', 'per')) then
begin
Mouse(x, y, 3, 3, false);
Wait(50 + Random(35));
ChooseOption(x, y, 'Trade');
Wait(50 + Random(100));
repeat
if (FindDTM(LogDTM, x, y, 552, 203, 742, 469)) then
begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Sell 10');
Mouse(x, y, 2, 2, True);
end;
until (not (FindDTM(LogDTM, x, y, 552, 203, 742, 469)));
Willows := Willows + LogsPerLoad;
Report;
if (FindDTM(BigXDTM, x, y, 552, 203, 742, 469)) then
begin
Mouse(x, y, 2, 2, True);
Wait(100 + Random(100));
WriteLn('Sold A load');
HighestAngle;
end;
end;
end
end;

procedure tooshop;
begin
{Willow to dead}
if (RadialWalkEx(DX, DY, MMCX, MMCY, 1256738, 30, 345, 366, 45)) then
begin
begin
mouse(DX, DY, 0, 0, true);
Flag;
if (RadialWalkEx(DX, DY, MMCX, MMCY, 232, 30, 300, 303, 60)) then
begin
begin
mouse(DX, DY, 0, 0, true);
Flag;
if (RadialWalkEx(DX, DY, MMCX, MMCY, 602204, 30, 300, 225, 15)) then
begin
mouse(DX, DY, 0, 0, true);
Flag;
WriteLn('At Shop');
Wait(100 + Random(100));
end
end;
end
end;
end
end;

procedure DropLogs;
begin
if (InvFull) then
begin
repeat
if (FindDTM(LogDTM, x, y, 552, 203, 742, 469)) then
begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Drop');
Randomfind;
end;
until (not (FindDTM(LogDTM, x, y, 552, 203, 742, 469)));
Willows := Willows + LogsPerLoad;
Report;
end else
exit;
end;

procedure bankreq;
begin
if (InvFull) then
begin
if (Players[CurrentPlayer].Boolean1 = False) then
begin
tooshop;
Wait(50 + Random(100));
selllogs;
Wait(50 + Random(100));
fromshop;
end else
DropLogs;
end else
exit;
end;



{__________________________________________
| Main Loop |
|__________________________________________|}

procedure Doload;
var
cx, cy: Integer;
begin
if (InvFull) then bankreq;
repeat
begin
if not (LoggedIn) then Exit;
if (FindColorSpiralTolerance(x, y, WillowColor, msx1, msy1, msx2, msy2, 5)) and
not (FindColorSpiralTolerance(cx, cy, 515029, MSX1, MSY1, 180, 25, 20)) and
not (FindColorSpiralTolerance(cx, cy, 122333, MSX1, MSY1, 123, 15, 10)) and
not (FindColorSpiralTolerance(cx, cy, 65535, MSX1, MSY1, 180, 25, 20)) then
begin
MMouse(x, y, 3, 3);
if (IsUpTextMulti('hop', 'own', 'illo')) then
begin
Wait(100 + Random(100));
Mouse(x, y, 3, 3, false);
Wait(50 + Random(35));
ChooseOption(x, y, 'Chop');
Wait(50 + Random(100));
end;
repeat
begin
if (InvFull) then bankreq;
MMouse(x, y, 3, 3);
wait(500 + Random(1000));
FindEnt(3160112);
FindHead;
WereHuman;
end;
until (not (IsUpText('hop')));
Randomfind;
end;
end;
until ((InvFull))
if (InvFull) then bankreq;
end;



{__________________________________________
| Main Loop |
|__________________________________________|}

begin
setupsrl;
DeclareDTM;
ActivateClient;
Willows := 0;
ClearDebug;
Siganture;
DeclarePlayers;
repeat
if (not (LoggedIn)) then LoginPlayer;
SetupPlayer;
repeat
Doload;
bankreq;
Report;
until (Willows >= Loadstodo)
if (Willows >= Loadstodo) then
begin
GetAllLevels;
Summary;
LogOut;
NextPlayer(True);
Willows := 0;
SetupPlayer;
end;
until False;
end.

RuneHacker says that you last applied 8 days ago. A good programmers best friend is patience. ;) No sorry.

me_ntal

2007-04-26 01:38:30

Jahuro i dont understand why you can vote no just because i didnt run my script through a standards package. Yeah presentation wise i should have done it but it doesnt change the script.

And the rule of programming i follow is persistence, persistence to solve problems is better than patient to solve a problem.

Johura

2007-04-27 05:54:21

Dam….. I just got owned….

Bam Bam

2007-04-27 14:33:27

Well, I will tell you why I didn't like your application:

Your standards are inconsistent, some parts are right, others are very, very wrong. Inconsistence makes me wonder if you really did code all of this.

Second, Its usually helpful to at least attempt to use proper grammar in a Members Application.

I find your script to be relatively simple, but I think that it shows an understanding of the techniques required for more advanced scripting.

Sorry, but for now, its a no.

Bam Bam

me_ntal

2007-04-27 23:20:34

Bam Bam i completely coded the script myself, their a several help posts were i show the script in dfferent stages of developement. By Inconsistence what do you mean give me an example?

And to everyone thanks alot even if you voted no it forces me to learn more.

rkroxpunk

2007-04-28 04:06:10

I am sorry I am going to vote no as much as I like you and your attitude. Don't worry many people don't get their first app accepted - like me :D but I see you have the potential to become a good scripter and this is a great start. Now you've got a whole month to learn a lot more and improve a lot. the month wait I had between my next app was probly the time I learnt the most. By inconsistencies in standards I think he means that you get it correct sometimes and then other times you don't. For example this

        if(FindDTM(BigXDTM, x, y, 552, 203, 742, 469))then
begin
Mouse(x, y, 2, 2, True);
Wait(100 + Random(100));
WriteLn('Sold A load');
HighestAngle;
end;
end;
end
end;

That's pretty wack lol. Look forward to seeing ur next app but for the moment it's a no. gl

Rune Hacker

2007-04-28 04:20:33

Yeah, you will make it in if you go over the script and add on as you learn.

me_ntal

2007-04-28 07:29:10

I noticed the script had little use and little support. so i decided to start work on a falador cow and hide banker.

n3ss3s

2007-04-28 14:30:51

no from me. I aint going to say anything about standardz because I "HOPE" my standardz are allright :D

WT-Fakawi

2007-05-05 17:36:03

Better luck next time me_ntal!

Closed.