nrb33
2008-09-21 17:13:41
<!– BEGIN TEMPLATE: formanswers –>
nrb33 - SRL Member Application Form
nrb33
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Can't remember where / who referred me, but it was a while back.
Programming Knowledge
Visual Basic ( partially)
Other Communitys
Fagex , sythe , freddy1990
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Began Coding with scar a year or so after i began runescape. still progressing slowly, but i still am. i hope to get better and make a script that i can leave going when i go to school / sleep.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is not intended for running while not by the computer, i made a while back so i can get my mining up while i do homework / watch tv.
——————————————————
<!– END TEMPLATE: formanswers –>
nrb33 - SRL Member Application Form
nrb33
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Can't remember where / who referred me, but it was a while back.
Programming Knowledge
Visual Basic ( partially)
Other Communitys
Fagex , sythe , freddy1990
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Began Coding with scar a year or so after i began runescape. still progressing slowly, but i still am. i hope to get better and make a script that i can leave going when i go to school / sleep.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = IronPower Miner
# Author = Nrb33
# Description = Mines and drops iron ores
# Version = 1
# Date = 9/21/2008
# Comments = Have pickaxe in inv or equipped.
/Script Info}
program Poweminer;
{.include SRl/SRl.Scar}
Var x,y,ax,ay,OresDropped,Mine_Rocks,Dropiron,IronOre,Timerun:integer;
Const
RockColor=2832990;
OresNeeded=250;
LoginPassword=' ';//Accounts Username
LoginName='';// Accounts password
Procedure DeclareDtms;
Begin
IronOre := DTMFromString('78DA632C646660F8C8C8800C6A52DD19E4803' +
'448F43F1030C600D5FC4655539FEE095703028C2940354C4CF8D5' +
'6400D5FC4035C7CF5015450D00B1F50D37');
Mine_Rocks := DTMFromString('78DA635CCBC8C0D006C448E0FFFFFF0C72409' +
'A11C2FECFB81CBF1A10605C42849A8D40562FAA1A104051B307C8' +
'EA2160CE7120AB1B554D6C883BAA9A13986A18D0CD3986450DBA7' +
'B406A3A099803B2AB95809A234056330135CF8970F33D22D45C25' +
'42CD0522D49C04B25A08A8B943D85F00105C3D42');
Dropiron:= DTMFromString('78DA63B465666078C4C8800CFEFFFFCF2007A' +
'41921ECFF8C9640358F71AB0101463BA09A2704D480CCB943408D' +
'0B50CD4354352080A2C619530D86391E40354F09A8F127424D08A' +
'61A0CF70412614E0C96F099E080AA261E4B5CA0AB49C5E2776C6A' +
'1E13509347849A2222DC5C44847B7289509346849A282CE9074D0' +
'D00212A492A');
end;
Procedure MineOres;
begin
If(FindColorSpiralTolerance(x,y,rockColor,0,0,515,334,5))then
begin
Mouse(x,y,2,2,false)
Wait(1000+random(1500))
If(FindDtm(Mine_Rocks,x,y,0,0,515,334))Then
Begin
Mouse(x,y,2,2,True)
Wait(1000+random(3500))
End;
If(Not(FindDtm(Mine_Rocks,x,y,0,0,515,334)))Then
MMouse(291,183,100,100)
End;
end;
Procedure DropOres_AntiBan;
Begin
case random(10) of
0,1,2,3,4,5,6,7,8:
Begin
Mouse(x,y,2,2,False)
Wait(1000+random(1500))
FindDtm(Dropiron,ax,ay,522, 174,763, 500)
Mouse(ax,ay,2,2,True)
End;
8,9,10:
If(FindDtm(IronOre,x,y,548, 207,734, 463))Then
Begin
HoverSkill('Mining',False)
Gametab(4)
Mouse(x,y,2,2,False)
Wait(1000+random(1500))
FindDtm(Dropiron,ax,ay,522, 174,763, 500)
Mouse(ax,ay,2,2,True)
End;
End;
End;
Procedure LogoutNSLeepNWake;
Begin
If(GetTimeRunning > (TimeRun+(900000+random(100000))))then
Begin
mouse(753,11,2,2,True)
Wait(1000+random(1500))
mouse(643, 374,10,2,True)
TimeRun:= TimeRun -50000+random(10000)
Sleep(50000+random(10000))
Mouse(386,171,2,2,True)
Wait(2500)
SendKeysSilent(LoginName)
Wait(1000)
Mouse(370,327,2,2,True)
SendKeysSilent(LoginPassword)
Wait(1000)
Mouse(382,371,2,2,True)
Wait(5000)
Mouse(382,371,2,2,True)
end;
end;
//Main Code\\
begin
setupSrl;
DeclareDtms;
Repeat
MineOres;
if(FindDtm(IronOre,x,y,548, 207,734, 463))Then
DropOres_AntiBan;
LogoutNSleepNWake;
Until(oresDropped = OresNeeded)
end.This is not intended for running while not by the computer, i made a while back so i can get my mining up while i do homework / watch tv.
——————————————————
<!– END TEMPLATE: formanswers –>