whitevans1
2006-07-04 02:26:38
Ok well Ive been working on this powerminer a pretty long while off and on… I'm still not sure if the gas handler works or not so yeah uhh can someone help me get that working and can someone show me how to add in the player array also I'm looking for suggestions on making my script better please help thanks.
/////////////////////////////////////////////////////////////////
// Amazing PowerMiner V3.1 //
// By:Whitevans1 //
// Last Updated July 4,2006 //
// 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. //
// V3.1 Added Better Wait time while mining and human typing //
/////////////////////////////////////////////////////////////////
// Instructions: //
// 1. V-bright, 32bit resolution. //
// 2. Leave All Chats on because the script can turn them off. //
// 3. Keep PickAxe In Inventory slot 1. //
// 4. Fill In Setup Lines 33-35. //
// 5. Fill In Rock Colors (must be same type of ore ex.(copper)//
// 6. 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. //
// 7. Hit Ctrl+Alt+R to run the script //
// 8. Hit Ctrl+Alt+S to stop the script. //
/////////////////////////////////////////////////////////////////
program MyAmazingPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.Scar}
//-------------------setup---------------------------------------------\\
const
Username='';//Your username
Password='';//Your password
Rock1 =6001639;//1st Rocks Color
//---------------------------------------------------------------------\\
var
welcome: Integer;
firstlogin: Integer;
fourthlogin: Integer;
finallogin: Integer;
Loadz: Integer;
Randoms: Integer;
Dropp: Integer;
mined: Integer;
//----------------------------------------------------------------------\\
Procedure Made;
Begin
Status('Amazing PowerMiner Made By Whitevans1');
writeln('');
writeln('<------------------------------------>');
writeln('|| = Amazing PowerMiner = ||');
writeln('|| Script Created by Whitevans1 ||');
writeln('||Contact Msn Whitevans1@hotmail.com||');
writeln('<------------------------------------>');
writeln('');
end;
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;
GasColors(x, y);
SolveGenie('mining');
FindNormalRandoms;
if(FindGas(x,y))then
begin
Mouse(x,y,0,0,true);
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;
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(11, 15, 'z78DA9593410E80200' +
'C04BF44648B7A2411FEFF2413EAA1A4B4D41E36662353BA561C00' +
'1A582F54021E74AA54E82C592AFBBF9599B28BEC253A4AED819A6' +
'82E21B915274C771EA772CB1D37AB9E6543D0C9286733FB789FBB' +
'7FBECC7CA89F83FEBEDAF1A7886CC882A0A6B608EC9B77109C38C' +
'14F754A52690A94B5518BFFC2D8FFCD8644CE8EE717469DE229');
repeat
Wait(100+random(35));
until(FindBitmap(firstlogin,x,y))
Mouse(x, y, 10, 10, True);
Wait(500+random(60));
WriteLn('Logging Into Runescape :) ');
Wait(1800+random(234));
typesend(username);
Wait(850+random(320));
typesend(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);
wait(3000+random(3000))
Antijagex;
until(InvFull)
end;
procedure emptybag;
begin
AntiJagex;
Writeln('Dropping a load...')
DropTo(2,28);
Loadz := Loadz + 1;
Dropp := Dropp + 27;
mined := mined + 27;
AntiJagex;
Writeln('Gross...')
end;
begin
Made;
SetupSRL;
SetupSRLMining;
LoginScreenDetection;
Login;
TurnOffChat;
repeat
boredevery(30);
power;
emptybag;
Report;
If not loggedin then break;
until (false);
end.