IEatJ00erBaybees
2007-04-14 18:55:26
<!– BEGIN TEMPLATE: formanswers –>
IEatJ00erBaybees - SRL Member Application Form
IEatJ00erBaybees
What is the meaning to life?
Uhh..I didn't see this question on there..But..To program? :P
Where you Referred to SRL? If yes, by whom?
yes
I cannot remember the person who first told me to download SRL to get scripts to compile. The place I got it from was here, though.
Programming Knowledge
Only Web Development like HTML, CSS, etc..
Other Communitys
I used to be a member at Moparisthebest, and I visit Sythe, but don't really post or anything.
How Long have You Played Runescape
Since September 2005
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, my friend and I got into macroing about..hmm..2/3 a year ago, give or take a little bit.
We started with and I don't remember it's name, but a macro that was used for RSC. It was made in Delphi I believe, and had lots of tabs. It did actually work, but it only did one load, and then we had to drop ourselves.
We then moved onto GhostMouse and other recording type macros.
Then, I heard about color-clicking macros. I found a link on Tip.it Runescape Fan Site that Starblaster100 had showed leading to Moparisthebest. There, I tested out and of course, started out as a leecher. Then I started posting progress reports. And learned of RSTools.net, which recently was shut down and Sythe.org. I used mostly Mopar. The way I heard of SRL-Forums was because that's where I had to go to get SRL. I though did not post or visit SRL-Forums at the time of getting SRL.
I now use this forum the most out of the 3. I've read lots of tutorials and such on how to script. And I think I'm ready to have a legitimate shot at SRL Membership, hopefully.
As for non scripting, I'm 13 years old and from New England, USA. I'm a huge sports fan and get honors in school. I don't think I've pissed anybody on this forum off…yet :D.
I'm sorry that this was more than a paragraph, but it was about my experience in the area =)
Thank you for giving me the chance to become an SRL Member,
IEJB
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
^^It even solved a box for me *tear* :P
——————————————————
<!– END TEMPLATE: formanswers –>
IEatJ00erBaybees - SRL Member Application Form
IEatJ00erBaybees
What is the meaning to life?
Uhh..I didn't see this question on there..But..To program? :P
Where you Referred to SRL? If yes, by whom?
yes
I cannot remember the person who first told me to download SRL to get scripts to compile. The place I got it from was here, though.
Programming Knowledge
Only Web Development like HTML, CSS, etc..
Other Communitys
I used to be a member at Moparisthebest, and I visit Sythe, but don't really post or anything.
How Long have You Played Runescape
Since September 2005
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, my friend and I got into macroing about..hmm..2/3 a year ago, give or take a little bit.
We started with and I don't remember it's name, but a macro that was used for RSC. It was made in Delphi I believe, and had lots of tabs. It did actually work, but it only did one load, and then we had to drop ourselves.
We then moved onto GhostMouse and other recording type macros.
Then, I heard about color-clicking macros. I found a link on Tip.it Runescape Fan Site that Starblaster100 had showed leading to Moparisthebest. There, I tested out and of course, started out as a leecher. Then I started posting progress reports. And learned of RSTools.net, which recently was shut down and Sythe.org. I used mostly Mopar. The way I heard of SRL-Forums was because that's where I had to go to get SRL. I though did not post or visit SRL-Forums at the time of getting SRL.
I now use this forum the most out of the 3. I've read lots of tutorials and such on how to script. And I think I'm ready to have a legitimate shot at SRL Membership, hopefully.
As for non scripting, I'm 13 years old and from New England, USA. I'm a huge sports fan and get honors in school. I don't think I've pissed anybody on this forum off…yet :D.
I'm sorry that this was more than a paragraph, but it was about my experience in the area =)
Thank you for giving me the chance to become an SRL Member,
IEJB
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program PowerminingBeast;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
//Start script logged out.
//This is the SRL Apply for Membership Test version. My public version will have anti-ban, better mining procedures, and hopefully better Random-Detection.
//If I don't make it, then I will of course, try again a little better and come back with something better =)
//IEatJ00erBaybees
//Thanks so much to everybody who helped me!
//For all those scripts that I learned from, Thanks! Same for Tutorials, especially JAD!
//Hey321 helped me with all of my newbie bug fixes up til around Line 134..Thanks a ton for teaching me cases!
//Setup on lines 19-22, 27-68.
//This is my first actual SRL Script
//I hope it all works. Should have anti-randoms, auto-responder, etc..
//If you are not wielding your pick, make sure it's in THE FIRST SLOT in your inventory.
//Enjoy! Feedback is appreciated!
const
HowManyOresToMine = 1000; //Per Player
TimeBetweenOres = 5000; //1000 = 1 Second. Time between clicks of ores.
TheOreColor = 4549267; //Currently set as Copper
TimeToRunScript = 180; // In Minutes :)
//////////////////////////////////////////
procedure DeclarePlayers; //Make sure that you put a { and } around the players that you will not be using.
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyplayers);
CurrentPlayer := 0;
Players[0].Name := 'Username'; //Self Explanitory
Players[0].Pass := 'Password'; //Self Explanitory
Players[0].Nick := 'ick'; //Important to anti-randoms. 3 Letters of Your Name
Players[0].Active := True;
Players[0].Boolean1 := True; // True if Wielding Pick / False if Not Wielding Pick
Players[0].Loc := ''; //DON'T CHANGE!
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'ick';
Players[1].Active := True;
Players[1].Boolean1 := True;
Players[1].Loc := '';
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'ick';
Players[2].Active := True;
Players[2].Boolean1 := True;
Players[2].Loc := '';
Players[3].Name := 'Username';
Players[3].Pass := 'Password';
Players[3].Nick := 'ick';
Players[3].Active := True;
Players[3].Boolean1 := True;
Players[3].Loc := '';
Players[4].Name := 'Username';
Players[4].Pass := 'Password';
Players[4].Nick := 'ick';
Players[4].Active := True;
Players[4].Boolean1 := True;
Players[4].Loc := '';
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
/////////DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOU ARE DOING!\\\\\\\\\
var Ores, Drops, RandomReply, Level, DropDTM: Integer;
procedure Sig;
begin
WriteLn('This script is brought to you by Geico--Oh Wait, I mean:');
WriteLn(' _ _ _ ');
WriteLn('--------- --------- ----------- | \ ');
WriteLn(' | | | | \ ');
WriteLn(' | |------ | |------- ');
WriteLn(' | | \ | | / ');
WriteLn('--------- -------- \/ |_ _ _ / ');
end;
//////////////////////////////////////////////////////////////////////
procedure Reports;
begin
SRLRandomsReport;
WriteLn('=================Powerminer Beast=================');
WriteLn('===============By IEatJ00erBaybees================');
WriteLn('======================Report======================');
WriteLn('Powerminer Beast has been running '+ScriptTime2(2) );
WriteLn('You have mined '+IntToStr(HowManyOresToMine)+' total ores.');
WriteLn('You have finished '+IntToStr(Drops)+' loads. ');
WriteLn('Please post your reports, if you can! ');
WriteLn('=============That''s The Basic Report!============');
ClearDebug;
end;
//////////////////////////////////////////////////////////////////////
procedure loadthedtms;
begin
DropDTM := DTMFromString('78DA63B4676260D0666440064901160C9C401' +
'A26CA680B54A386AA06260B576307546342408D0B508D15013581' +
'4498E30354A340404D00508D267E3500A3D50444');
end;
//////////////////////////////////////////////////////////////////////
procedure autotalking;
begin
if(InChat('Lol')) or (InChat('Rofl')) or (InChat('Lmao')) or (InChat('Lmfao')) or (InChat('Lool')) or (InChat('Haha'))then
Case RandomReply of
1 : TypeSend('lol');
2 : TypeSend('rofl');
3 : TypeSend('lmfao');
4 : TypeSend('Hilarious');
5 : TypeSend('lool');
6 : TypeSend('lmao');
7 : TypeSend('roflmao');
8 : TypeSend('haha');
9 : TypeSend('hehe');
end;
if(InChat('Mining lvl')) or (InChat('Mining')) or (InChat('Lvl?')) or (InChat('Level')) or (InChat('Mining level')) or (InChat('Lvlz'))then
begin
Level := (GetSkillLevel('mining'));
Case RandomReply of
1 : TypeSend('Lvl '+IntToStr(Level));
2 : TypeSend('I''m level '+IntToStr(Level)+' mining');
3 : TypeSend(+IntToStr(Level));
4 : TypeSend('I''m '+IntToStr(Level));
end;
end;
if(InChat('Hey')) or (InChat('Hi')) or (InChat('Yo'))then
begin
Case RandomReply of
1 : TypeSend('Hey');
2 : TypeSend('yo');
3 : TypeSend('wassup?');
4 : TypeSend('what''s up?');
5 : TypeSend('hello');
6 : TypeSend('Hey, what''s going on?');
7 : TypeSend('Hey, how''s it going?');
8 : TypeSend('Hey wassup?');
9 : TypeSend('Hey what''s up?');
end;
end;
end;
//////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
procedure mining;
begin
repeat
FindNormalRandoms;
AutoTalking;
FindPickHeadColor;
if(FindColorTolerance(x, y, TheOreColor, 2, 2, 510, 330, 9))then
begin
MMouse(x, y, 2, 2);
If(IsUpText('ine'))then
begin
GasColors(x,y);
Mouse(x, y, 2, 2, true);
FindPick;
Ores:= Ores+1;
Reports;
wait(TimeBetweenOres+random(2000));
end;
end;
until(InvFull);
end;
///////////////////////////////////////////////////////////////////
procedure nowletsdrop;
begin
FindNormalRandoms;
repeat
if(FindDTM(DropDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
Begin
MMouse(x, y, 2, 2);
wait(1000+random(500));
Mouse(x, y, 2, 2, false);
ChooseOption(x, y, 'rop');
end;
Drops := Drops+1;
if(Drops > HowManyOresToMine)then
begin
NextPlayer(True);
end;
until(not(FindDTM(DropDTM, x, y, MIX1, MIY1, MIX2, MIY2)));
end;
///////////////////////////////////////////////////////////////////
procedure garbagetime;
begin
ClearDebug;
Sig;
SetupSRL;
DeclarePlayers;
ActivateClient;
end;
//////////////////////MAIN LOOP!!!/////////////////////////////////
begin
GarbageTime;
LoginPlayer;
HighestAngle;
MakeCompass('N');
Loadthedtms;
repeat
Mining;
NowLetsDrop;
Reports;
If(Drops > HowManyOresToMine)then
Begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
end;
until(HowManyOresToMine < Drops) or (Scripttime(2) > TimeToRunScript);
TerminateScript;
end.^^It even solved a box for me *tear* :P
——————————————————
<!– END TEMPLATE: formanswers –>