whitevans1
2006-06-27 20:26:28
can you help me with my script someone gets this error it doesn't work on other people computers but works on mine fine…
Line 70: [Error] (11802:1): Unknown identifier 'SolveBox' in script < someone told me they got that error… thanks if you can help
Line 70: [Error] (11802:1): Unknown identifier 'SolveBox' in script < someone told me they got that error… thanks if you can help
/////////////////////////////////////////////////////////////////
// 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 =5935847;//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
SolveBox;
AntiBan;
FindSandwich;
ClickToContinue;
CloseWindow;
FindLamp('mining');
FindDead;
FindMime;
FindNormalRandoms;
FindMaze;
FindQuiz;
FindFrog;
FindDemon;
FindPick;
FindMod;
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(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));
SendKeysSilent(username);
Wait(850+random(320));
SendKeys(chr(13));
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
Made;
SetupSRL;
SetupSRLMining;
LoginScreenDetection;
Login;
TurnOffChat;
repeat
boredevery(30);
power;
emptybag;
Report;
If not loggedin then break;
until (false);
end.