SRL Archive - Help and Support

some more ?'s

whitevans1

2006-04-30 19:27:31

k how can I make my script find my pickaxe If It breaks and attach It. and how come when i use DropTo(2,28); it doesn't always click every ore?.. and how can I make It solve the box,frog and all my other randoms???

procedure Randoms;
begin//
  ClickToContinue;
  CloseWindow;
  FindLamp('mining');
  FindDead;
  FindMime;
  FindNormalRandoms;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindDemon;
  FindPick;
  FindMod;
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
    if(FindNewBox)then
    begin
      Logout;
      if(FindFrog)then
      begin
        Logout;
      end;
    end;
  end;
end;

Also I was wondering how I could make my Progress Report Show exp because I would only know how to make it show it for 1 type of rock and i don't know how to tell the script which type of rock you want to mine so that i wouldn't know how to make it pick out which rock exp to display…

/////////////////////////////////////////////////////////////////
//                   Amazing PowerMiner                        //
//                    By: Whitevans1                           //
/////////////////////////////////////////////////////////////////
//                     Instructions:                           //
// 1. Type In Username                                         //
// 2. Type In Password                                         //
// 3. Hit Ctrl+Alt+R                                           //
/////////////////////////////////////////////////////////////////

program MyAmazingPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.Scar}

//---------------------------------------------------------------------\\
const
Username='';//Your username
Password='';//Your password
Rock =;
//---------------------------------------------------------------------\\

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;

//----------------------------------------------------------------------\\
procedure Antijagex;
begin//
  ClickToContinue;
  CloseWindow;
  FindLamp('mining');
  FindDead;
  FindMime;
  FindNormalRandoms;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindDemon;
  FindPick;
  FindMod;
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
    if(FindNewBox)then
    begin
    Randoms := Randoms + 1;
      Logout;
      if(FindFrog)then
      begin
      Randoms := Randoms + 1;
        Logout;
      end;
    end;
  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
SetupSRL;
setupSRLMining;
  firstlogin := BitmapFromString(17, 10, 'z78DA8D52410AC0200C' +
       'FB92CC08DB5198FEFF4903DD21254B590F456A4D93D43AEAC4850' +
       '3C0C089DE801BB3F5F7BCEB92EB7AC5D975DABCF1D3293CEBD7AD' +
       '62B2A2952705D7C35BC74D6E039A702B148C36D350E41D014D701' +
       'CAB9286EBE4CD6A0FBB9AAB705A7483F9947D76CC73C79CF3ECA4' +
       'DB7EEEA42A725AB49EEF373017EDF68F99FA07F2EA79000394E77' +
       '4');
  repeat
    Wait(100);
     until(FindBitmap(firstlogin,x,y))
      MoveMouse(x,y);
  ClickMouse(x,y, true);
Wait(500);
 WriteLn('Logging Into Runescape');
secondlogin := BitmapFromString(20, 10, 'z78DABD933B0E80300' +
       'C43AF048A91602CBFFB1F09A9ED90C84955C4278307E3E6A551C1' +
       '08C18E6E955D4E2C3D8A19691247A98FA1A88C4926592155DB67A' +
       '30E34DBD951CC2D3DA33C6FACFA441C72B51DEEA393EDBCDEC95D' +
       '6E71A2B3D13CDF71B9F4065EE36E38A625A21822BDB1E75CA63BA' +
       'F4B718D939527344EEEEFDCA2287D756ECD7FD9EF7A01BC4C129D' +
       '');
  repeat
    Wait(100);
     until(FindBitmap(secondlogin,x,y))
   MoveMouse(x,y);
  ClickMouse(x,y, true);
Wait(2000);
SendKeysSilent(username);
    Wait(1000);
thirdlogin := BitmapFromString(17, 5, 'z78DA737343000324606' +
       '268626CE20221DD30D4608A183B1A3B99181BBB18BB9958229B03' +
       '11C169BE8589A3A9B11B0E3760B1056C1A84447621B23B31DD8FC' +
       'B17F8C5719103600B3894304937BC0097EDC8B600006C1D7452');
  repeat
    Wait(100);
     until(FindBitmap(thirdlogin,x,y))
   MoveMouse(x,y);
  ClickMouse(x,y, true);
 SendKeysSilent(password)
Wait(704);
fourthlogin := BitmapFromString(12, 7, 'z78DA9591410AC0200C' +
       '04BF24660BED51C1FCFF49051370254D69F73087A8434C5457CA0' +
       'C2A808113ED8073566488E2F2D3407DF790C1D9A403910F1E3244' +
       '6E862A22DD98F6C36FA913FD10F36CBF480C859279FE4E32F5F0A' +
       '688D94DABDCA53C746D');
  repeat
   Wait(100);
    until(FindBitmap(fourthlogin,x,y))
  MoveMouse(x,y);
 ClickMouse(x,y, true);
Wait(6000);
 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
  ClickMouse(x,y, true);
   end;
Procedure TurnOffChat;
begin
Wait(2000);
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(1000);
        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(1000);
        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);
        ClickMouse(x,y, true);
      end;
end;
procedure Mine;
begin
  repeat
  EquipPick:=False;
  AntiJagex;
    Wait(100 + random(200));
    If not loggedin then break;
    if(FindObj(x, y, 'Mine', Rock, 5))then
      Mouse(x, y, 1, 1, true);
      Wait(4000 + random(1000));
      AntiJagex;
  until(InvFull)
end;
procedure emptybag;
begin
AntiJagex;
DropTo(2,28);
Loadz := Loadz + 1;
AntiJagex;
end;
Procedure Report;
begin
  Writeln('[]-------------Progress-Report---------------[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Mined/Dropped '+ IntToStr(Loadz) + ' Loads');
  Writeln('[]-------------------------------------------[]');
end;
begin
LoginScreenDetection;
Login;
TurnOffChat;
repeat
Mine;
emptybag;
Report;
 If not loggedin then break;
until (false);
end.

thats my script so far if that helps at all..(also if you wanna give some suggestions on the script overall that would be appreciated to… I owe you guys alot I will put a special thanks in the begining of it for you all.) thanks again if you can help

Starblaster100

2006-04-30 19:39:08

Change your randoms to that


procedure Randoms;
begin
  ClickToContinue;
  CloseWindow;
  FindPick;     // Looks for a broken Pick - Works best when Wielded
  FindLamp('mining');
  FindDead;
  FindMime;
  FindNormalRandoms;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindDemon;
  FindPick;
  FindMod;
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
  end;
  if(FindNewBox)then
    Logout;
  if(FindFrog)then
    Logout;
end;

At the start of your main loop put:
SetupSRLMining;
FindPickHeadColor;

make sure you include Mining.Scar
{.include srl\srl\skill\mining.scar}

There maybe a bug with the dropping procedure, ill try and fix for the next version
The box and Frog are unsolved randoms so far

WT-Fakawi

2006-04-30 19:50:12

Shorter and the same :)

procedure Randoms;
begin
  FindPick;     // Looks for a broken Pick - Works best when Wielded
  FindNormalRandoms;
  if(FindFight)then
  begin
    RunAwayDirection('N');
    Wait(9000+random(2000));
    RunBack;
  end;
// you might also want to add NoGameTab and InBlack
end;

I think I left out CloseWindow from FindNormalRandoms, not sure though…

whitevans1

2006-04-30 21:01:44

How do i get my progress report to show xp?

Procedure Report;
begin
  Writeln('[]-------------Progress-Report---------------[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Mined/Dropped : '+ IntToStr(Loadz) + ' Loads');
  Writeln('Gained '+inttostr((Dropp*27)*(17.5)+' exp');
  Writeln('Randoms Found/Solved : '+ IntToStr(Randoms));
  Writeln('[]-------------------------------------------[]');
end;

thats what i got and its not working.

Dankness

2006-04-30 21:08:07

From: whitevans1
How do i get my progress report to show xp?

Procedure Report;
begin
  Writeln('[]-------------Progress-Report---------------[]');
  Writeln('Worked For : ' + ScriptTime2(2))
  Writeln('Mined/Dropped : '+ IntToStr(Loadz) + ' Loads');
  Writeln('Gained '+inttostr((Dropp*27)*(17.5)+' exp');
  Writeln('Randoms Found/Solved : '+ IntToStr(Randoms));
  Writeln('[]-------------------------------------------[]');
end;

thats what i got and its not working.

did you ever set Dropp as a varable? Looks to me like it should be

[php]
( Loads * 27 * 17.5 )
[/php]

or to make your script cleaner id Remove the varable Loadz and use the global SRL varable Banks since its already declared.