Pure1993
2008-02-04 14:42:21
Stur Pure - SRL Member Application Form
Stur Pure
What is the meaning to life?
Why are you asking me? I am only a registered user… (now, that can be changed, and so can my answer XD :D XD :D XD)
Where you Referred to SRL? If yes, by whom?
yes
Toterache reffered me to this site. We both played RS, and somehow we just stumbled across cheating, and he told me of this site. (For which i am still very thankful :D)
Programming Knowledge
Nope, only Scar/srl
Other Communitys
N/A
How Long have You Played Runescape
For about 3 Years (3 Years of wasted Life :mad:)
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Oh gee, I just had to write a 15 page essay for school, and now I am supposed to write even more, oh well, if it can't be helped, here is some info about me:
- Well, as you can see on my longtitivity bar, but I consider myself a quick learnen (You can judge that how you want it, but I think my script prooves my point quite a bit (looking at what some other people wrote XD)). I have worked my way through all the beginner tuts, and all of the intermedian tuts, too.
- You might have read my thread introducing myself, there I said that I want to have a challenge, and I believe the is a member script section (correct me if I am wrong), and I believe that those scripts are much more advanced than all the others, and I want to learn from them and understand them, not use them, like I already said in my introduction Thread.
- Now, why do I want to be an srl member you might ask? Well, being a registered user is just a title to which everyone looks down to. You can't really help people the way I would like to help them, because they would first listen to the members, and then listen to the registered users. The same with tutorials, the tuts of members are more often read then those of normal users. (And another reason is I created myself a little Icon which I wanna use for my avater :D lol)
*ouch* well, i hope this is enough, cause my fingers are getting all cold now (you won't believe how cold the fingers get from typing all day :p).
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Well, here is my super awsome DTMCreator helper, there is just no way you can deny my srl membership because of this one :D
{
The instructions are SIMPLE: start the program, and you can move your mouse
anywhere with the arrow keys! Depending on how long the "wait" is, the easier
you can get on the exact pixel, but the mouse will move slower.
How to use: With one Scar window, press "DTM Editor...", then open this one,
and press "Run Script". Now Move your mouse down to the start menue bar, and
click, but pushing down the left mouse button on your mouse. Then move up to
the part where you are deciding the point for the dtm. Now, you can move your
mouse pixel by pixel, and click on the ones you need. This is muxh simpler
than trying to move your mouse to a specific location, especially if you still
have an old wheel mouse. The Script will end when you press the "e" key.
}
program SturPuresDTMHelper;
{.include SRL/SRL.scar}
var
x,y,c: Integer;
begin
ActivateClient;
x := 0;
y := 0;
Repeat
If IsArrowDown(0) then
y := y - 1;
If IsArrowDown(2) then
y := y + 1;
If IsArrowDown(1) then
x := x + 1;
If IsArrowDown(3) then
x := x - 1;
MoveMouse(x,y);
wait(30);
c := c + 1;
Until IsKeyDown('e') or (c = 4000);
end.
Well, are ya all stumped because of the uber-godly script? XD XD XD XD
Well, I have had my fun :D :), here is the script I want to apply with, just forget the one I mentioned above :D :
{
-First of, I would like to thanks Toterache for lending me his character
with 81 Woodcutting, because I didn't have a character with high enough
Woodcutting (it was at 65, but that went so slow, that it took hours in
order to supervise a few loads), and for helping me with the cutting procedure.
-Next I wanted to thank all the people from who's tut I learned, some of them
are:
- JAD (For his error solving "Guide")
- WhoCares357 (For his awsome beginner's Guide)
- Method (For His Anti Random and Anti Bann Guide)
- Pancakes (For his FindObjCustom Guide)
- ZephyrsFury (For his MapWalking, now my favorite thing to do :D )
If I left anyone out who thinks should be one here, please let me know.
-Last, but probably most important: The Instructions!
In order to start this script, all players should be in the Lumbridge bank.
It doesn't have to be right in front of the booth, but it should be in that
little bank building, otherwise it might not find the ladder. Then just
make this window smaller, and drag the cross hair on the Runescape Screen.
After that you can press play. Once the signature is done, and the line:
"Lumbridge Gravard Chopper" appeared, you have to click on the runescape
screen, prefferably on something like the Inventory tab, so this screen
moves into the background. After that, I would stay around for a bit to
check if it is working correctly. After about 2 or 3 loads, you can leave
your PC and do something else. :D
ENJOY
}
program StursDarkGraveyardYewChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
{.include SRL/SRL/Skill/Fighting.scar}
const
YewColor = 808008;
YewColor2 = 2704957;
YewColor3 = 802353;
EntColor = 1979370;
EntColor2 = 1715145;
EntColor3 = 3623163;
StairColor = 603469;
StairColor2 = 334632;
StairColor3 = 803424;
BoothColor1 = 8229788;
BoothColor2 = 6128528;
BoothColor3 = 6325907;
var
x,y,z,TotalStairs,RoundStairs: Integer;
YewSym, LadderColor, EntCount, walked, tries, time: Integer;
ContinueBMP, LoadsPerPlayer, Lost, TotalLoads, Running: Integer;
DidRandomHappen: Boolean;
Procedure UniversalBMP;
begin
ContinueBMP := BitmapFromString(60, 15, 'beNqVlkFuwkAMR' +
'bn/HhakqlCPUVTUCnVVFkWw6G1aE4efn2+PO0gW8hiP58X2ONlvrx' +
'9PXXJ8ucmoX943vVtKh/NhqI2m+3JS/guYMpwPuxybnqiHFmyI41Q' +
'Q8VyQP8jc8+8UdlyuVr8mraopgEegX0b9fttg6f4/n89FM9TVLBwS' +
'YA+7DI5daZ5NHHhmDhFaWZ2jpf6U244eGzhpUv1Ijn+nbHuNqJRTQ' +
'e9Us+W+nd2YUOwufnrcAiS4sQ5miWPMJkgaThcMRkWiUp+Y5PGsHU' +
'5HJjO3gU+BG8O7cmOOGFT6gpMTJZDiJpwCg6Vkhu0ch3tmwZwZO/k' +
'5bMrJyUwfTXQB5kEdaxcr1dTHIDZsGbJoG8Y47be2tL3c+bDzQZE5' +
'Xjcx8tWO90v8RRc3uWvWonLXONVyc+feyKZlHJ4y/LnBtNmWrwwhE' +
'bEkI88+GaJPMb1b3wCpVM+VfTnIRs6zvO+gfL2uTbxVXOo3exz7nc' +
'M/fhu0npcV52Fms2ApzPyYMTLmYWel9I3ZTrXoYPbcmtEtwnz6Ax5' +
'jIyE=');
end;
Procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
end;
Procedure MySignature;
begin
Writeln('________ ________ ___ ');
Wait(500);
Writeln('| ______| | _ \ | |');
Wait(500);
Writeln('| | | | \ | \_|');
Wait(500);
Writeln('| |_____ _____ | |__| |');
Wait(500);
Writeln('|_____ | |_____|| ____/ _______ ');
Wait(500);
Writeln(' | | | | | ___|');
Wait(500);
Writeln('_____| | | | |___ |');
Wait(500);
Writeln('|______| |__| |_____|');
Wait(500);
Writeln(' -Lumbrdigde Graveyard Chopper');
Wait(3000);
end;
Procedure Proggy;
begin
ClearDebug;
Writeln('===========PROGRESS REPORT==========');
Writeln('|| Please post your proggy so I');
Writeln('|| can improve this script. ');
Writeln('|| Also, please feel free to ');
Writeln('|| post any suggestions to make it');
Writeln('|| more user-friendly and safer. ');
Writeln('===========Information==============');
Writeln('|| Worked For ' + IntToStr(TimeFromMark(Running)) + ' Milliseconds.');
Writeln('|| Chopped and banked: ' + IntToStr(TotalLoads) + ' Load(s).');
Writeln('|| Stairs Climed: ' + IntToSTR(TotalStairs) + ' stair(s).');
Writeln('|| Got Lost: ' + IntToStr(Lost) +' time(s).');
Writeln('|| I hope you enjoyed using: ');
Writeln('|| "StursDarkGraveyardYewChopper".');
Writeln('====================================');
end;
Procedure DeathAndDeadEndSolver; //My own little idea, a sort of deathwalk,
var //which is adjusted to my script =)
HomeSpell, Spells, NPCDTM: Integer; //This thing is why I am so proud of
Label //this script. :D
DoItOver;
begin
NPCDTM := DTMFromString('78DA63AC656260B06640019BF6EC60F80FA41' +
'981F83F103082D428A1AAF9F38789210AAA0604C06A5419D00023' +
'1209A46B806A5408A8A9C36F0E18D7133607009FD70D72');
HomeSpell := BitmapFromString(43, 28, 'beNr7/38UjAL8gIGBEQ3' +
'R3/a+3s9wRDc3YFpNT2cg2y4qpIeGaO0GTNurqn7AER3cgGw7stVo' +
'zoC7gUbeR/a7qUkeHKGFA3UDAZft//79g0gBGTR1A2bgA62D2At3A' +
'JBEdgN1IwLNARDbMR0AdwM9HQAH9HTAgETBwCbCAc+Gg6EgGgxF8Y' +
'BXRoOhOh4MDZJB0iQbBSMCAAAsPdC0');
Spells := BitmapFromString(43, 33, 'beNrtlbFKA0EQhuNTWJ1gaR' +
'UVBdE0EgiChUQQBIsUKQzaCCpYRRSxlKCN2IhY2tiIlSD4ED5O/PC' +
'HYdhEPNi9S3PDT7i93M337+zs7XBYRRVV5IlabUqaFP3j9bbXrLfm' +
'Zsp34umN2elOuyGVY8PozdVlTz/Y2/A2CiqL6He9rZ31utHP24tmQ' +
'+Kvk+2V55vDQb+b0IPRVXzj2ty9EzzwGOKtLMtS0QfHHU8H/XK9Jv' +
'W7mwyly6NdhAeUxIDRoUC3iQv9cLokyQNoKo/UD9lvpKKz9J5uaMQ' +
'QtH5F/3p7jJ/+WDo4DFzszxt6LP378z7SgKez9DZ3iZvWAFp0q7zo' +
'709XasIYA+pk0YUQa1TYCOhcULSYIvDuWWsBWfE9zi7Y79ryf9EjD' +
'ZCHhKRFsqFSB0pOlwE2HSIhaQMbtjoSWz4t3Q5cMpOQtIEN7tOHtC' +
'j15/PIMC09OPTVBoEN86AKJKcrSGUeRm3oe1scPaeNoun/2uDwTXj' +
'w5bcBFLSnl2PA21D7pTp2Y7ZJydMPSjFBehWFxA/6eHTo');
if (tries = 1) then
begin
If FindBitmap(Spells,x,y) Then
begin
Mouse(x,y,2,2,true);
wait(750 + Random(100));
If FindBitmap(HomeSpell,x,y) then
begin
Mouse(x,y,2,2,true);
If IsChatBlackTextAnyLine('need to wait another') then
begin
Nextplayer(false);
end;
wait(10000)
DoItOver:
LadderColor := FindLadderColor;
If FindColor(x,y,ladderColor,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,0,0,true);
wait(500);
Flag;
repeat
If (FindObjCustom(x,y, ['limb','imb-','mb-u'], [StairColor, StairColor2, StairColor3], 3)) or
(FindObjCustom(x,y, ['airc','irca','rcase'], [StairColor, StairColor2, StairColor3], 3)) then
begin
Mouse(x,y,2,2,False);
ClickOption('Climb-down', 1);
wait(2000);
end;
TotalStairs := TotalStairs + 1;
RoundStairs := RoundStairs + 1;
Until RoundStairs = 2;
RoundStairs := 0;
If FindDTM(NPCDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,2,2,true);
FFlag(0);
Lost := Lost + 1;
Tries := 0;
Exit;
end;
end;
end;
end;
end;
If IsChatBlackTextAnyLine('you are dead') then
begin
Goto DoItOver;
end;
end;
Procedure EscapeFromRandomAtTree; //A sub for RunAway which Only works for
begin //This Script.
RoadColor := FindRoadColor;
SetRun(true);
RadialWalk(RoadColor,260,300,70,0,0);
FFlag(5);
RoadColor := FindRoadColor;
RadialWalk(RoadColor,340,380,30,0,0);
FFlag(0);
Wait(5000+random(1480)-random(1831));
RoadColor := FindRoadColor;
RadialWalk(RoadColor,160,200,30,0,0);
FFlag(0);
RoadColor := FindRoadColor;
RadialWalk(RoadColor,80,150,70,0,0);
FFlag(0);
end;
Function AnnoyingRandoms: Boolean;
begin
If FindTalk Then
Result := True;
If FindInventoryRandoms Then
Result := True;
If FindNonInventoryRandoms Then
Result := True;
If FindNormalRandoms Then
Result := True;
If InFight Then
begin
Result := True;
EscapeFromRandomAtTree;
end;
end;
Procedure GetToThatTreeSoldier;
begin
RoadColor := FindRoadColor;
LadderColor := FindLadderColor;
SendArrowSilentWait(0,2156);
MakeCompass('S')
If Not FindColor(x,y,ladderColor,MMX1, MMY1, MMX2, MMY2) then
begin
Writeln('did not find the color');
TerminateScript;
end;
If FindColor(x,y,ladderColor,MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x,y,3,2,true);
Wait(1000 +random(550));
Flag;
Repeat
if (FindObjCustom(x,y, ['limb','imb-','mb-d'], [StairColor, StairColor2, StairColor3], 3)) or
(FindObjCustom(x,y, ['limb','imb S','mb St'], [StairColor, StairColor2, StairColor3], 3)) then
begin
Mouse(x,y,0,0,false);
ClickOption('Climb-down', 1);
wait(2000)
end;
TotalStairs := TotalStairs + 1;
RoundStairs := RoundStairs + 1;
Until RoundStairs = 2;
RoundStairs:= 0;
MakeCompass('N')
RoadColor := FindRoadColor
If RadialWalk(RoadColor, 180, 75, 72, 1, 1) then
begin
wait(500);
FFlag(0);
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
RoadColor := FindRoadColor;
If RadialWalk(RoadColor, 180, 75, 72, 1, 1) then
begin
wait(5000)
Flag;
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
RoadColor := FindRoadColor;
If RadialWalk(RoadColor, 80, 120, 72, 1, 1) then
begin
wait(2000)
Flag;
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
end;
end;
function CutDownTheYew: boolean;
Label
ChopAgain;
begin
ChopAgain:
repeat
If Not LoggedIn then
begin
Exit;
end;
begin
if (FindObjCustom(x,y, ['hop d', 'op do', 'p dow', 'down'], [Yewcolor, Yewcolor2, Yewcolor3], 3)) then
begin
Mouse(x,y,2,3,true);
wait(500);
Flag;
Wait(2000);
repeat
If (InvFull) or (ClickToContinue) Then
Exit;
if (AnnoyingRandoms = True) then
break;
FindNormalRandoms;
HoverSkill('Woodcutting', false);
wait(105 + random (15))
If InChat('Hi') or InChat('sup?') then
case random(3) of
0: TypeSend('Hey');
1: TypeSend('Hi');
2: Typesend('Yo');
end;
If InChat('wc') or InChat('Wc') then
Case random(3) of
0: TypeSend('65 atm');
1: TypeSend('65, u?');
2: TypeSend('65 atm, u?');
end;
SleepAndMoveMouse(2671 + random(1709));
If InChat('Hi') or InChat('sup?') then
case random(3) of
0: TypeSend('Hey');
1: TypeSend('Hi');
2: Typesend('Yo');
end;
If InChat('wc') or InChat('Wc') then
Case random(3) of
0: TypeSend('65 atm');
1: TypeSend('65, u?');
2: TypeSend('65 atm, u?');
end;
If InChat('here') or InChat('I') then
Case random(3) of
0: TypeSend('not bad');
1: TypeSend('cool');
2: TypeSend('nice');
end;
FindNormalRandoms;
if InvFull then
exit;
SleepAndMoveMouse(2671 + random(1709));
If InChat('Hi') or InChat('sup?') then
case random(3) of
0: TypeSend('Hey');
1: TypeSend('Hi');
2: Typesend('Yo');
end;
If InChat('wc') or InChat('Wc') then
Case random(3) of
0: TypeSend('65 atm');
1: TypeSend('65, u?');
2: TypeSend('65 atm, u?');
end;
If InChat('here') or InChat('I') then
Case random(3) of
0: TypeSend('not bad');
1: TypeSend('cool');
2: TypeSend('nice');
end;
until Not (FindObjCustom(x,y, ['hop d', 'op do', 'p dow', 'down'], [Yewcolor, Yewcolor2, Yewcolor3], 3));
end;
If (AnnoyingRandoms = True) then
break;
if (InvFull) or FindBitmap(ContinueBMP,x,y) then
Exit;
wait(750+random(250));
FindNormalRandoms;
If Not (FindObjCustom(x,y, ['hop d', 'op do', 'p dow', 'down'], [Yewcolor, Yewcolor2, Yewcolor3], 3)) then
begin
repeat
SendArrowSilentWait(2,3652 + random(668));
SleepAndMoveMouse(2671 + random(1709));
wait(10+random(3))
SendArrowSilentWait(1,1556 + random(468));
wait(10+random(3))
SleepAndMoveMouse(2671 + random(1709));
SendArrowSilentWait(3,2656 + random(768));
wait(10+random(3))
SendArrowSilentWait(0,3656 + random(868));
wait(10+random(3))
SleepAndMoveMouse(2671 + random(1709));
until (FindObjCustom(x,y, ['hop d', 'op do', 'p dow', 'down'], [Yewcolor, Yewcolor2, Yewcolor3], 3));
MakeCompass('N')
end;
end;
until (InvFull);
If (AnnoyingRandoms = True) then
Goto ChopAgain;
end;
Procedure BackToBankSoldier;
var
MyY: Integer;
begin
RoadColor := FindRoadColor;
If RadialWalk(RoadColor, 260, 290, 72, 0, 0) then
begin
wait(5000);
Flag;
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
RoadColor := FindRoadColor;
If RadialWalk(RoadColor, 280, 330, 72, 0, 0) then
begin
wait(5000);
Flag;
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
RoadColor := FindRoadColor;
MakeCompass('E');
If RadialWalk(RoadColor, 150, 190, 50, 0, 0) then
begin
wait(5000);
Flag;
end else
begin
Tries := 1;
DeathAndDeadEndSolver;
end;
MyY := MMY1 - 15;
LadderColor := FindLadderColor;
If FindColor(x,y,ladderColor,MMX1,MyY,MMX2,MMY2) then
begin
Mouse(x,y,2,2,true);
wait(500);
Flag;
wait(200 + random(50));
MakeCompass('W');
Repeat
If (FindObjCustom(x,y, ['Clim','limb','imb-'], [StairColor, StairColor2, StairColor3], 3)) or
(FindObjCustom(x,y, ['airc','irca','rcase'], [StairColor, StairColor2, StairColor3], 3)) then
begin
Mouse(x,y,2,2,False);
wait(500);
ChooseOption('up')
RoundStairs := Roundstairs +1;
TotalStairs := TotalStairs +1;
Wait(2000 + random (500));
If (RoundStairs = 1) Then
Flag;
end;
until (RoundStairs = 2)
RoundStairs := 0
end;
end;
function Banking: boolean;
var
YewLogDTM, NPCDTM: Integer;
Label
BankFailsafe;
begin
YewLogDTM := DTMFromString('78DA637CC6C4C0B099910119F858728269982' +
'8E317A09AEDA86A60B27035F7816AF61350730DD32E0C35EF816A' +
'5610507307A8661501351F806AD61250F30AA866370135D7816A7' +
'61150F394B07B001A0410B4');
NPCDTM := DTMFromString('78DA63AC656260B06640019BF6EC60F80FA41' +
'981F83F103082D428A1AAF9F38789210AAA0604C06A5419D00023' +
'1209A46B806A5408A8A9C36F0E18D7133607009FD70D72');
MakeCompass('N');
If FindDTM(NPCDTM,x,y,MMX1,MMY1,MMX2,MMY2) then
begin
Mouse(x,y,0,0,true)
Wait(250);
FFlag(0);
end;
BankFailsafe:
If (FindObjCustom(x,y, ['boot','ooth','ank'], [BoothColor1, BoothColor2, BoothColor3], 3)) then
begin
Mouse(x,y,0,0,False);
Wait(250);
ChooseOption('quickly');
Wait(250);
FFlag(0);
wait(2000);
If FindDTM(YewLogDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(x,y,2,2,false)
Wait(100);
ChooseOption('All');
Result := true;
If (Result = true) then
begin
LoadsPerPlayer := LoadsPerPlayer + 1;
TotalLoads := TotalLoads + 1;
end;
end;
CloseBank;
wait(349 + random(60))
end else
begin
x := x + 3;
Goto BankFailsafe;
end;
end;
Procedure SettingUpMyScript;
begin
MouseSpeed:= (9+ Random(2));
ClearDebug;
SetupSRL;
MySignature;
wait(3000);
UniversalBMP;
DeclarePlayers;
SymbolAccuracy := 50;
end;
begin
SettingUpMyScript;
If Not LoggedIn then
LoginPlayer;
MarkTime(Running);
repeat
GetToThatTreeSoldier;
CutDownTheYew;
BackToBankSoldier;
Banking;
If (LoadsPerPlayer=10) then
NextPlayer(true);
Proggy;
until (false)
end.BTW: This script might take two runs in order to bank, which means it might not find the Bank on the first shot, so that it returns to the tree, finds out that it has full inv again, runs back to bank, and tries again. Just let it perform that running back and forth, the chances are at 84% that it will find the bank in the next run, if it didn't find it in the first one. :)
EDIT: Please, for anyone who can't really decide, or has a reason like: My scripting isn't good enough, or I will just take the scripts and run if I get members and not contribute again, PLEASE check out page 3 of this thread, there I have two example parts of my new script, if you would take a look at that before voting, I'd be greatful. :)
——————————————————
<!– END TEMPLATE: formanswers –>