SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
A year or so

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

Im not very Experienced, but i can write Simple Scripts. I dont seem to be able to Attach Anything so the script is in the Sample Section

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

const
URL = false;//use random logging in and out?
username = '';username
password = '';password
LampSkill = 'mining';//Skill if get a lamp
RockType = 3;//1.Copper 2.Tin 3.Iron
RoadColor = 5592411;
BankSymbol = 3060683;
MineSymbol = 4412257;

var RockColor:integer;
Mined,sst,cst,wst,wet,awt,awth,srt,tih,tim,tis:integer;
Stop,GetPick,log1,log2,log3,log4,log5:boolean;

procedure RandomLog;
begin
if(not log1)and((srt/60)>40)and((srt/60)<50)then
begin
log1:=true;
logout;
wait(45000+random(5000));
login(username,password);
end;
if(not log2)and((srt/60)>100)and((srt/60)<110)then
begin
log2:=true;
logout;
wait(45000+random(5000));
login(username,password);
end;
if(not log3)and((srt/60)>190)and((srt/60)<200)then
begin
log3:=true;
logout;
wait(45000+random(5000));
login(username,password);
end;
if(not log4)and((srt/60)>340)and((srt/60)<350)then
begin
log4:=true;
logout;
wait(45000+random(5000));
login(username,password);
end;
if(not log5)and((srt/60)>420)and((srt/60)<430)then
begin
log5:=true;
logout;
wait(45000+random(5000));
login(username,password);
end;
end;

procedure ProgReport;
begin
Writeln('—–===Varrock Miner By HatlessCow===—–');
Writeln('———=====Progress Report=====———');
cst:=getsystemTime;
srt:=(cst-sst)/1000;
tih:=srt/3600;
tim:=(srt/60)-tih*60;
tis:=srt-tim*60-tih*3600;
awth:=awth+(wet-wst);
awt:=awth/Mined;
Writeln('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
Writeln('Mining 1 ore every '+inttostr(awt/1000)+' Seconds');
Writeln('Mined '+inttostr(Mined)+' Ores');
Writeln('Gained '+inttostr(Mined*35)+' xp');
if(drfordcnt>0)then writeln('Solved '+inttostr(drfordcnt)+' Dr. Ford random.');
if(srt>=60)then
begin
Writeln('Mining Approximately '+inttostr(Mined/(srt/60))+' Ores Per Minute');
Writeln('Mining Approximately '+inttostr((Mined/(srt/60))*60)+' Ores Per Hour');
end;
Writeln('———=====Progress Report=====———');
end;

procedure SetRColor;
begin
if(RockType=1)then
RockColor:=4812955;
if(RockType=2)then
RockColor:=9013650;
if(RockType=3)then
RockColor:=2503250;
end;

Procedure MouseFlag(x,y,rx,ry:integer);
begin
Mouse(x,y,rx,ry,true);
Flag;
end;

procedure bag;
begin
Mouse(651,187,3,3,true);
end;

procedure RunFF;
begin
Run(true);
MouseFlag(650,150,0,0);
wait(6000);
MouseFlag(642,19,0,0);
Run(false);
bag;
end;

procedure MiningRandoms;
begin
if(Fight)then
begin
Stop:=true;
RunFF;
end;
if(HeadGone)then
Stop:=true;
if(PickBroke)then
GetPick:=true;
findtext;
eyetest;
FindBox;
UseLamp(lampskill);
FindMiscRandoms;
if(dead)then
Logout;
end;

procedure Randoms;
begin
if(Fight)then
begin
runff;
end
findtext;
eyetest;
FindBox;
UseLamp(lampskill);
FindMiscRandoms;
if(dead)then
Logout;
end;

procedure ToBank;
var rwalk:integer;
begin
randoms;
Run(true);
Bag;
MouseFlag(694,57,2,2);
for RWalk:=0 to 2 do
begin
If(FindColorSpiral(x,y,RoadColor,602,8,679,41))then
MouseFlag(x,y,1,1);
end;
repeat
If(FindColorSpiral(x,y,RoadColor,602,8,679,41))then
MouseFlag(x,y,1,1);
until(FindColorSpiral(x,y,RoadColor,570,19,602,107))
repeat
If(FindColorSpiral(x,y,RoadColor,570,19,602,107))then
MouseFlag(x,y,1,1);
until(FindColorSpiral(x,y,BankSymbol,572,8,725,160))
If(FindColorSpiral(x,y,BankSymbol,572,8,725,160))then
MouseFlag(x,y,1,1);
end;

procedure ToMine;
begin
randoms;
Run(true);
Bag;
MouseFlag(692,55,3,3);
MouseFlag(708,89,3,3);
MouseFlag(675,129,3,3);
if(FindColorSpiral(x,y,RoadColor,593,24,716,107))then
MouseFlag(x,y,1,1);
repeat
if(FindColorSpiral(x,y,RoadColor,614,115,686,160))then
MouseFlag(x,y,1,1);
until(FindColorSpiral(x,y,MineSymbol,572,8,725,160))
If(FindColorSpiral(x,y,MineSymbol,572,8,725,160))then
MouseFlag(x,y,1,1);
end;

procedure Bank;
begin
randoms;
OpenBank;
Deposit(1,1,1);
DepositAll;
Withdraw(1,1,1);
CloseWindow;
randoms;
end;

procedure findblack;
begin
x:=0
y:=0
if(findcolorspiral(x,y,0,40,119,211,264)then
begin
eyetest;
end;
end;

Function FindRock:boolean;
begin
if(FindObj('Mine',rockcolor,5))and(not(GasFound(rockcolor)))then
result:=true;
end;

procedure MineRock;
var tx,ty,qx,qy,ifail,itrack:integer;
begin
Stop:=false;
ifail:=0;
if(FindRock)then
begin
Mouse(x,y,4,4,true);
tx:=x; ty:=y;
repeat
wait(100+random(600));
FindColorSpiralTolerance(tx,ty,RockColor,tx-10,ty-10,tx+10,ty+10,5)
if(not(FlagPresent))then
itrack:=itrack+1;
until(not(FlagPresent))and(itrack>=20)
repeat
ifail:=ifail+1;
wait(150+random(400));
MiningRandoms;
until(ifail>45)or(Stop)or(GetPick)or(InventoryCount=28)or(not(FindColorSpiralTolerance(qx,qy,RockColor,tx-10,ty-10,tx+10,ty+10,5)))
end;
end;

begin
LoadLibrary('Internet Explorer');
LoadMRI;
SetRColor;
Run(false);
SetBrightness('vbright');
SetChat('off');
Bag;
GetHeadColorPick;
sst:=getsystemtime;
repeat
wst:=getsystemtime;
repeat
MiningRandoms;
findblack;
MineRock;
MiningRandoms;
until(GetPick)or(InventoryCount=28)
wet:=getsystemtime;
Mined:=Mined+InventoryCount-1;
ProgReport;
randoms;
ToBank;
Bank;
ToMine;
if(URL)then
RandomLog;
until(false)
end.

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

Firsttime poster? You shud probably post aroun abit more. ill wait on yohojo's verification but im still undecided

"procedure ProgReport;
begin
Writeln('—–===Varrock Miner By HatlessCow===—–');
Writeln('———=====Progress Report=====———');"

No, even before I saw that.

But honestly, you think you will get away with copying? We have TONS of people that look at your script DAILY and many people who check specifically for that.

You sir, fail at life.

In Yohojos words…

SILLY GOOSE!

well lets see…..first time poster, script not in tags……u even left in the bit about who really made the script….WTF were u when God was giving out brains and Abyssal u forgot the BUSTED bit :)

From: rkroxpunk
WTF were u when God was giving out brains

Maybe he lost them? :spot:

..Not ur work = No.

Almost forgot…

What a tit…

Haha, before I noticed the copying, I was about to say "Got no bawls to make a case god damit?!?!" That SetRColor

^^ That pretty much says it all…

no.

hahaha Désolé de gaspiller votre Temps je veux dire Dieu, im seulement quatorze, aide de paroles creuses, mais essai

Mein Freund orderte mich heraus, das schade zu tun. das Verlassen jetzt

&#1071; &#1076;&#1091;&#1084;&#1072;&#1102; &#1103; &#1044;&#1091;&#1088;&#1072;&#1095;&#1080;&#1074;&#1096;&#1080;&#1081; ~alex ~ &#1093;&#1086;&#1090;&#1103;

got english?

hahaha Yea i do

Considering im only 14 i think i did ok lol

How do you think you did ok if you coppied a script…
Doenst matter how old you are…
I made my first script when i was like 12 or 13

Durachivshiy??

Anyway, how did you do ok? you copied some1s script.. And Im only 15.. age doesnt matter.

Mein Freund orderte mich heraus, das schade zu tun. das Verlassen jetzt

Roughly translates to:
My friend ordered me out to do unfortunate a leaving now

Lol, your friend FORCED you, haha. Whatever…
At least it wasn't you 'brother' :p

Yes VERY Roughly and lol I make scripts, just very Basic ones, hahaha u need a better Translator actualy Order = Dare hahaha i Like english better

Well than maybe u should learn to speak it better…….and how can u think u did ok from copying a script….ur obviously a dumbass seeing u left in the persons name who did it….that's something a 10 year old might do

Hören Sie auf, um eine bessere Schriftart zu reden und zu schreiben.

Stop talking, and write a better script.

Besessen.

Owned.

Bullshit im ~alex~'s age -3 and without any hesitating I can say u GO HOME NOOB!! BTW, dont copy - you will be catched easy. If u copy, copy properly.
Get rid of evidence :D

Ok, i know I'm not fluent in french, but what are you trying to say?

hahaha Désolé de gaspiller votre Temps je veux dire Dieu, im seulement quatorze, aide de paroles creuses, mais essai

I got this:
"hahaha sorry to waste your time I want to say God, im only fourteen,"

Now this part I don't get:
"help of empty words, but I will try "

huh?

I'm going to Vote YES …. that She gets IP Banned :f: RAM

Closed.