whitevans1
2006-05-28 19:33:30
Maybe now it will work for you guys
—-edited the movemouse and clickmouse to just mouse—-
If this doesn't work for everyone can you post me the errors and tell me what I should fix.
/////////////////////////////////////////////////////////////////
// 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 =5278431;//1st Rocks Color
//---------------------------------------------------------------------\\
var
welcome: Integer;
firstlogin: Integer;
secondlogin: Integer;
thirdlogin: Integer;
fourthlogin: Integer;
finallogin: 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
SolveBox;
AntiBan;
FindSandwich;
ClickToContinue;
CloseWindow;
FindLamp('mining');
FindDead;
FindMime;
FindNormalRandoms;
FindMaze;
FindQuiz;
FindFrog;
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!')
pickupmouse;
RunAwayDirection('N');
Wait(9000+random(2000));
WriteLn('Running Back...')
RunBack;
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))
Mouse(x, y, 0, 0, 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))
Mouse(x, y, 0, 0, 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))
Mouse(x, y, 0, 0, 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))
Mouse(x, y, 20, 10, True);
Wait(5500+random(1000));
WriteLn('Logged In');
finallogin := BitmapFromString(22, 20, 'z78DA95966B8EC33008' +
'84AF848D5FF999A4C9FD8FB469864AE36589B6AA84223FE0F3804' +
'D534F5DD6F5DCB66D7D8D438F0E3BDAD8862E6D79AD82EF7C6A55' +
'49F77AC9D72FD52A4D926EA222754D5506465A4DD74019D79A69D' +
'C668FF756ACE9A7E69CE1ADEC65D1C20CA042747C57A9AF7A8004' +
'BB60C18088F00C6BD16FCBE31C1DBBE007A7434426810EAC06683' +
'D899D1AE745DCFBBCF6BDA5FD72436CA6C63D3EF9B9FD4779C178' +
'1BBDF73F18BEB59641CA1DCF224A94176812E585558DAC5FCFD58' +
'21178F66A808D2D93986DB9CBF2ADE5E8B31AADE9F844E4EF2706' +
'3E6F14D1CF7A0D31AE59B3B4227A5EB514307812EF872DFBC4376' +
'C1497D77806AECF490D3AA9278167AB2B5D86267B79683662C07D' +
'E19A6486FF93C0F3719CA56F6C31EE19BC851AFE9E3ED786D5393' +
'1ECCB7E3479669814A0E8D80B0B92B936DE6BFC1DF177937D2223' +
'3EBACF602BADCBA41E48303BC50D6E68F432D8DB480C511E31CB3' +
'A307FA4A13F97BD48D447FEC3C076BA23B732B0BE72BCB78801FD' +
'228A1EE9C639654D8C873A9AAF4C66E0CE6E397DCC1A7758EE6E8' +
'83E91DC2A619679BC67F44D786686E7EE36F514AE58AA70AB1362' +
'30127746F44AFBEF1130705CFE2F14F54726313550218F6AD8495' +
'D3DB056CB5E4E7D213AFF4BF17E10E5F3AAFF6680E5EEC07B7F00' +
'CF5B2778');
if(FindBitmap(finallogin, x, y))then
HoldMouse(x,y, true);
Wait(400+random(300));
ReleaseMouse(x,y, true);
end;
Procedure TurnOffChat;
begin
ChatsOff;
FindPickHeadColor;
end;
procedure power;
begin
repeat
EquipPick:=False;
FindPick;
Wait(200+random(200));
If not loggedin then break;
if(FindObj(x, y, 'Mine', Rock1, 5))then
Mouse(x, y, 10, 10, True);
Antijagex;
Gascheck(x, y);
Wait(500+random(500));
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
boredevery(30);
power;
emptybag;
Report;
If not loggedin then break;
until (false);
end.—-edited the movemouse and clickmouse to just mouse—-
If this doesn't work for everyone can you post me the errors and tell me what I should fix.