Metagen
2007-10-10 22:18:15
<!– BEGIN TEMPLATE: formanswers –>
metagen - SRL Member Application Form
metagen
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
i know some VB a little c++
Other Communitys
just this one
How Long have You Played Runescape
since about 2002
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've always been pretty good at math and programming. I started learning c++ when i was 7 years old. Now i'm 16. however this does not mean im good at c++ lol. But i'm basically sleeping through computer science class (that or going around security and posting on the forums). Lol last time i applied i made a little mistake by accidentally copy/pasting the wrong script here lol. I clicked on scar and copied all of wizzups auto ess miner into here… I felt pretty stupid after that. So in any case, mind if we wipe that one clean? i meant to post my auto-walker to varrock script. I'm currently grade 12 in highschool and have taken every math course other than data management. that ones next semester with mrs. karbonazi. Anyways, i feel that by becoming an srl member, i can not only benifit from the scripts in the forums, but also advance my own contributions to the community. I felt after i downloaded a few scripts that i should make some so that im not just a leecher. So i did, i have this one (i just posted it in the auto-fighter section). and my walker.
AND SRL IS SOOO COOL! ur all my heros.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
metagen - SRL Member Application Form
metagen
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
i know some VB a little c++
Other Communitys
just this one
How Long have You Played Runescape
since about 2002
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've always been pretty good at math and programming. I started learning c++ when i was 7 years old. Now i'm 16. however this does not mean im good at c++ lol. But i'm basically sleeping through computer science class (that or going around security and posting on the forums). Lol last time i applied i made a little mistake by accidentally copy/pasting the wrong script here lol. I clicked on scar and copied all of wizzups auto ess miner into here… I felt pretty stupid after that. So in any case, mind if we wipe that one clean? i meant to post my auto-walker to varrock script. I'm currently grade 12 in highschool and have taken every math course other than data management. that ones next semester with mrs. karbonazi. Anyways, i feel that by becoming an srl member, i can not only benifit from the scripts in the forums, but also advance my own contributions to the community. I felt after i downloaded a few scripts that i should make some so that im not just a leecher. So i did, i have this one (i just posted it in the auto-fighter section). and my walker.
AND SRL IS SOOO COOL! ur all my heros.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
// Metagen's Fleshy Pounder.
// This script uses SCAR Divi 3.12 and SRL 4
// The basic idea is that it doesnt actually click on the monster, but
// the monster attacks you, very quickly.
//FEATURES
//Lots of antirandom
//Auto-Eating
//Automatically walks down tunnel and comes back to reaggrivate
//Auto-opens rickety doors
//Some Anti-Ban stuff
//Later Updates To Come
// Multiplayer
// Auto-Responder
// A few more failsafes for the walk (works pretty well)
// How to use:
//1. go to the second level of the stronghold of secity and go the the most
// south-east corner room. Set ur guy somewhere in the middle, logged in.
// 2. Make sure runescape is running on Low-Detail, and highest brightness
// 3. set the food color in line 35
// 4. Set the client window.
// 5. Click the shiney green arrow (while you are logged in)
program New;
{.include srl/srl.scar}
var
x, y, misscount, xpcount, x2, y2, y3, direction, EatHp,
EatCheckRandom : integer;
const
x4 = 238;
y4 = 157;
text = 'ickety door';
foodColor = 7435663; //Set this using the color picker
procedure EatCheck;
begin
if (gethp < 60) then
begin
writeln('eating');
gametab(4);
if findcolorspiraltolerance(x,y, foodColor, 552, 209, 729, 460, 5) then
begin
Mouse(x, y, 0, 0, true);
misscount := 0;
end else
begin
misscount := misscount + 1;
end;
if misscount > 2 then
begin
perfectnorth;
mouse(593,119, 0, 0, true);
wait(2000);
mouse(593,119, 0, 0, true);
wait(3000);
logout;
exit;
end;
end;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure randoms;
begin
findfastRandoms;
findNormalRandoms;
end;
procedure ScanName; // by me
begin
for x2:= x4 to x4+100 do
begin
EatCheck;
Randoms;
x2 := x2+5;
for y2:= y4 to y4+60 do
begin
y2 := y2 + 20;
if direction = 0 then
begin
y3 := 2*y4-y2
end else
begin
y3 := y2 - 41
end;
movemousesmooth(x2, y3);
wait(100);
if(IsUpText(text)) then
begin
wait(random(499)+100);
mouse(x2, y3, 0, 0, true);
exit;
end;
end;
end;
end;
procedure WalkHall;
begin
RadialWalk(0, 380, 300,60, 0, 0);
EatCheck;
Randoms;
RadialWalk(0, 380, 300,60, 0, 0);
EatCheck;
Randoms;
MakeCompass('E');
RadialWalk(0, 345, 400,60, 0, 0);
EatCheck;
Randoms;
RadialWalk(0, 345, 400,60, 0, 0);
EatCheck;
Randoms;
mouse(325, 464, 0, 0, true);
fflag(0);
end;
procedure FirstDoorOpen;
begin
direction := 0;
ScanName;
wait(3000+random(234));
end;
procedure SecondDoorOpen;
begin
mouse(616, 47, 4, 4, true); //walk to door
fflag(0);
direction := 1;
ScanName;
wait(2000+random(500));
repeat
if not isuptext(text) then
begin
break;
end else
begin
mouse(x2, y3, 0, 0, true);
wait(2000+random(300));
end;
until loggedin = false
end;
procedure RunDownHall;
begin
//-------------------Ignore all this... but it works------------------//
writeln('Walking Down Hall');
SetRun(true);
perfectnorth;
radialWalk(0, 270, 180, 50, 0, 0);
makecompass('W');
FirstDoorOpen;
SecondDoorOpen;
WalkHall;
FirstDoorOpen;
SecondDoorOpen;
mouse(630, 68, 0, 0, true);
fflag(0);
end;
procedure AggressiveCheck;
begin
highestangle;
if findfight then
begin
xpcount := 0;
end else
begin
xpcount := xpcount + 1;
writeln(inttostr(xpcount));
end;
if xpcount > 3 then
begin
RunDownHall;
wait(random(2000));
xpcount := 0;
end;
end;
procedure RandomTab;
begin
if random(15) = 1 then
begin
gametab(random(random(14))); //causes unevenness in tabs
if random(9) = 1 then
begin
wait(300+random(432));
gametab(random(random(14))); //causes unevenness in tabs
wait(random(500));
gametab(random(random(14))); //causes unevenness in tabs
end;
wait2(3000, false);
end;
end;
//Main Program
begin
setupSrl;
activateclient;
perfectnorth;
repeat
AggressiveCheck;
Wait2(500+random(500), false);
If random(4) = 1 then
begin
EatCheck;
end;
Wait2(5000+random(500), false);
RandomTab;
if random(5) = 1 then
begin
Randoms;
end;
until loggedin = false
end.
——————————————————
<!– END TEMPLATE: formanswers –>
