whitevans1
2006-05-05 17:47:10
I don't think its very good tell me what you think you guys need some constructive critizism and help. plz rep me..
/////////////////////////////////////////////////////////////////
// Amazing PowerMiner V3.0 //
// By: Whitevans1 //
// And Thanks To SRL Community For Help. //
// //
// V1.0 Randoms and Powermines. //
// V2.0 Randoms , Progress Report, Faster Powermining. //
// V3.0 Randoms , Finds Gas, And Updated progress report //
// showing more Info. //
/////////////////////////////////////////////////////////////////
// Instructions: //
// 1. V-bright, 32bit resolution. //
// 2. Leave All Chats on because the script can turn them off. // //
// 3. Keep PickAxe In Inventory. //
// 4. Type In Username. //
// 5. Type In Password. //
// 6. Fill In Rock Colors (must be same type of ore ex.(copper)// //
// 7. If you want the progress report to be correct go down to //
// It and where it says "Writeln('Gained '+IntToStr(Dropp*17//
// ) + 'xp'); And change the 17 to the xp value of the ore //
// you are mining. //
// 8. Hit Ctrl+Alt+R. //
/////////////////////////////////////////////////////////////////
program MyAmazingPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.Scar}
//-------------------setup---------------------------------------------\\
const
Username='';//Your username
Password='';//Your password
Rock1 =5607655;//1st Rocks Color
//---------------------------------------------------------------------\\
var
welcome: Integer;
firstlogin: Integer;
secondlogin: Integer;
thirdlogin: Integer;
fourthlogin: Integer;
finallogin: Integer;
Chat: Integer;
Chat1: Integer;
Chat2: Integer;
i: integer;
Loadz: Integer;
Randoms: Integer;
Dropp: Integer;
mined: Integer;
//----------------------------------------------------------------------\\
Procedure Report;
begin
Writeln('[]-------------Progress-Report---------------[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Mined : '+IntToStr(mined) + ' Ores');
Writeln('Mined/Dropped : '+ IntToStr(Loadz) + ' Loads');
Writeln('Gained About : '+IntToStr(Dropp*17) + ' xp');
Writeln('Randoms Found/Solved : '+ IntToStr(Randoms));
Writeln('[]-------------------------------------------[]');
end;
procedure Antijagex;
begin
AntiBan;
ClickToContinue;
CloseWindow;
FindLamp('mining');
FindDead;
FindMime;
FindNormalRandoms;
FindMaze;
FindQuiz;
FindFrog;
FindDoctor;
FindDemon;
FindPick;
FindMod;
FixChat;
FindTalk;
if(FindGas(x,y))then
begin
RunAwayDirection('N');
Wait(1950+random(230));
RunBack;
WriteLn('Gas Rock Found!')
Randoms := Randoms + 1;
end;
if(FindFight)then
begin
WriteLn('We Are Being Attacked!')
RunAwayDirection('N');
Wait(9000+random(2000));
WriteLn('Running Back...')
RunBack;
Randoms := Randoms + 1;
end;
if(FindNewBox)then
begin
WriteLn('Found New Box Logging Out :(')
Logout;
Randoms := Randoms + 1;
end;
if(FindFrog)then
begin
WriteLn('Found Frog Logging Out :(')
Logout;
Randoms := Randoms + 1;
end;
if(FindDemon)then
begin
SolveDemon;
Randoms := Randoms + 1;
end;
end;
function LoginScreenDetection: boolean;
var
x, y: integer;
begin
welcome := BitmapFromString(13, 13, 'z78DA9D93CD0E80200C835' +
'F09B39AC8117F78FF47D2300F25B344EDA18705BE6CA36041990D' +
'1B8E3977EE75E5130CFB83474E64F2F956A997527207F7F3AB07A' +
'6B9BED26CB78AECFE401B7388C61C49A33DC46DB033474E2AB6CA' +
'52CCAF34D583A259B115166F4567F9ADF734A5F1A44C1BBFC29D5' +
'27A5FB58198F3341477C875954F95B198932E99ED2F9CE800DF4B' +
'');
if(FindBitmap(welcome, x, y))then
begin
WriteLn('At the login screen...');
Result:= True;
end else
begin
WriteLn('Not at the login screen.');
Result:= False;
end;
end;
Procedure Login;
begin
firstlogin := BitmapFromString(17, 10, 'z78DA8D52410AC0200C' +
'FB92CC08DB5198FEFF4903DD21254B590F456A4D93D43AEAC4850' +
'3C0C089DE801BB3F5F7BCEB92EB7AC5D975DABCF1D3293CEBD7AD' +
'62B2A2952705D7C35BC74D6E039A702B148C36D350E41D014D701' +
'CAB9286EBE4CD6A0FBB9AAB705A7483F9947D76CC73C79CF3ECA4' +
'DB7EEEA42A725AB49EEF373017EDF68F99FA07F2EA79000394E77' +
'4');
repeat
Wait(100+random(35));
until(FindBitmap(firstlogin,x,y))
MoveMouse(x,y);
ClickMouse(x,y, true);
Wait(500+random(60));
WriteLn('Logging Into Runescape :) ');
secondlogin := BitmapFromString(20, 10, 'z78DABD933B0E80300' +
'C43AF048A91602CBFFB1F09A9ED90C84955C4278307E3E6A551C1' +
'08C18E6E955D4E2C3D8A19691247A98FA1A88C4926592155DB67A' +
'30E34DBD951CC2D3DA33C6FACFA441C72B51DEEA393EDBCDEC95D' +
'6E71A2B3D13CDF71B9F4065EE36E38A625A21822BDB1E75CA63BA' +
'F4B718D939527344EEEEFDCA2287D756ECD7FD9EF7A01BC4C129D' +
'');
repeat
Wait(100+random(50));
until(FindBitmap(secondlogin,x,y))
MoveMouse(x,y);
ClickMouse(x,y, true);
Wait(1800+random(234));
SendKeysSilent(username);
Wait(850+random(320));
thirdlogin := BitmapFromString(17, 5, 'z78DA737343000324606' +
'268626CE20221DD30D4608A183B1A3B99181BBB18BB9958229B03' +
'11C169BE8589A3A9B11B0E3760B1056C1A84447621B23B31DD8FC' +
'B17F8C5719103600B3894304937BC0097EDC8B600006C1D7452');
repeat
Wait(100+random(200));
until(FindBitmap(thirdlogin,x,y))
MoveMouse(x,y);
ClickMouse(x,y, true);
SendKeysSilent(password)
Wait(704+random(140));
fourthlogin := BitmapFromString(12, 7, 'z78DA9591410AC0200C' +
'04BF24660BED51C1FCFF49051370254D69F73087A8434C5457CA0' +
'C2A808113ED8073566488E2F2D3407DF790C1D9A403910F1E3244' +
'6E862A22DD98F6C36FA913FD10F36CBF480C859279FE4E32F5F0A' +
'688D94DABDCA53C746D');
repeat
Wait(100+random(100));
until(FindBitmap(fourthlogin,x,y))
MoveMouse(x,y);
ClickMouse(x,y, true);
Wait(5500+random(1000));
WriteLn('Logged In');
finallogin := BitmapFromString(39, 10, 'z78DA8D954B8EC3300C' +
'43AF242775DA2EA79FDCFF4803985A3C8391512F8C4026F597723' +
'FF76DDB8EDE22FAF16AEF78EABBF738A2A5FCBB45EBFABE3D628B' +
'48E4B853026472A14D98FED77A3C241766D23690F7E10F6FBED2C' +
'F0B245ED3A279324547B9B1269D60251739A106C5A8FBF9BE9DFB' +
'47F2FD157BC4A413B99A22B55BAF6E57726916322D8ED7D38EC77' +
'2F16AB5D67D16A7CAA12325CF48879549CF90E8D5E5CAA7770B91' +
'314E65D191CA1B2B2E2B55A462FD6E9DB55E2303473E783F3B529' +
'E3BD735674FA2E729A93CF13A4EB6069712AFE99AEBB3468BF461' +
'EA1CCC451529319C9A8B6A62222EB481EBBBE89718739AB001DCA' +
'2F0CC404681FD50FA56ECC62AD26A16A60DC68D54E4CDB3C79C73' +
'D7D1226BEA3D29D6BA46DC84556698F32A6FDE7555F7B2F7C8E54' +
'6626F784D3971B2524D16BD22B7AADA7ABF91CB1E5EEF73B7EB33' +
'E835F54CAE23ADF457F875A4E4AEFF5CD53F82FA39A792FC03E7B' +
'F057B');
if(FindBitmap(finallogin, x, y))then
HoldMouse(x,y, true);
Wait(400+random(300));
ReleaseMouse(x,y, true);
end;
Procedure TurnOffChat;
begin
Wait(2000+random(200));
chat := BitmapFromString(33, 8, 'z78DAA594C10AC3300C437F69' +
'38CE588FD958FFFF9356AA8B8AAAE0301F44116EA287EB66B4117' +
'B9E8A7A9C95057FAEEDD522367E37BE31229D6A279CF95BD07C1F' +
'7776E8252D3978BEF125B9FA5AA06375145075F4CC9E39DA87B37' +
'169FE1B5E64363E3B28C75299053B7C2628A07AA3F6B8A9552874' +
'468E62CEA5D379C691AE2B052757759DEE9B5C9D5A9D8B29A0DCC' +
'33EEB5F148B53AB70415729B45FB78CE97653978D2B53300B9766' +
'AB5370BFDB23E6D2E2E920B96E90FBC3F3393F5592606B');
if(FindBitmap(chat, x, y))then
For i := 1 To 2 Do
begin
antijagex;
MoveMouse(x,y);
Wait(700+random(323));
ClickMouse(x,y, true);
end;
chat1 := BitmapFromString(22, 10, 'z78DAAD93410E80201003BF8' +
'405133DA291FF3F49C35E6A9A1A23F6B09A80DDA1AC3850513050' +
'5B17867DC61952D73787BC64608DFA1B03304DC77B87825C11368' +
'D79A236916318D9C30C7116A54A2475E06F593A2DCE27DEA32F33' +
'30894ABBB879D0554E98796EDDB7EB392B9BEE57379D2B770A4E3' +
'83A3A0697CC33834E54326292B9949AF7E8CEF5F92EDCF4EABFE6' +
'7C3867C7C029A9381FBD3526D155D609CCAB26E8');
if(FindBitmap(chat1, x, y))then
For i := 1 To 2 Do
begin
MoveMouse(x,y);
Wait(900+random(100));
ClickMouse(x,y, true);
end;
chat2 := BitmapFromString(21, 7, 'z78DA8D92510AC0200C43AF24' +
'B58EEDD30DBCFF9126465820AB988F22B5F8D2DAD63EF9ED964B1' +
'49B280DF5BB6A2DAAC96736BB34F20B1032C5BDE687237BE3CA49' +
'272E9CE89BC82B3DEA88B9382B2BCC601A23EEE4B5A3C33AB3A81' +
'F76A574154F83B93883A2AC7DBA6654737FA4EB68F2EA6AFD47EC' +
'E16702B2BD6929A623EE54F2868413A0ED7D011C3DC6EB');
if(FindBitmap(chat2, x, y))then
For i := 1 To 2 Do
begin
MoveMouse(x,y);
Wait(1000+random(200));
ClickMouse(x,y, true);
end;
end;
procedure power;
begin
repeat
EquipPick:=False;
AntiJagex;
FixChat;
FindPick;
Wait(500+random(200));
If not loggedin then break;
if(FindObj(x, y, 'Mine', Rock1, 5))then
Mouse(x, y, 1, 1, true);
if(FindGas(x,y))then
begin
RunAwayDirection('N');
Wait(3000+random(230));
RunBack;
WriteLn('Gas Rock Found!')
Randoms := Randoms + 1;
end;
Wait(1000+random(500));
AntiJagex;
AntiBan;
until(InvFull)
end;
procedure emptybag;
begin
AntiJagex;
DropTo(2,28);
Writeln('Dropping a load...')
Loadz := Loadz + 1;
Dropp := Dropp + 27;
mined := mined + 27;
AntiJagex;
Writeln('Gross...')
end;
begin
SetupSRL;
SetupSRLMining;
LoginScreenDetection;
Login;
TurnOffChat;
repeat
power;
emptybag;
Report;
If not loggedin then break;
until (false);
end.