SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
stol3n - SRL Member Application Form
stol3n

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge


Other Communitys
RuneCMS

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I use to be very active playing RS.

Then i found out about RuneCMS. which i then became fairly active with posting feed back etc. I found slr-forums agers ago but wasnt active until month ago. because i no longer played RS. then i found srl-forums again and decided to start macroing for a couple of days.

Then decided to learn how to script myself. =]

Which started off looking hard, but after much fuss. i finally sat down and relised its not that hard =]

I started with a Auto Miner.

Which Mines and Drops fairly well.

I have had a couple 2+ hour proggies
training my noob miners, then stoping to change picks and ore, then starting again.


I now have no desire playing RS what so ever, except tp script. where satisfaction comes from the script being succesful rather than the RS levels obtained.

* I have not had much feedback on script, nor help =[

So I Hope It Is Good Enough.


If It Not Please Send Message With Whats Wrong =]

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

 {*******************************************************************************
*     _____ _        _ ____        _                                           *
*    / ____| |      | |___ \      ( )                                          *
*   | (___ | |_ ___ | | __) |_ __ |/ ___                                       *
*    \___ \| __/ _ \| ||__ <| '_ \  / __|                                      *
*    ____) | || (_) | |___) | | | | \__ \                                      *
*   |_____/ \__\___/|_|____/|_| |_| |___/                                      *
*                                                                              *
*                                                                              *
*        _____                                 _                               *
*       |  __ \                               (_)                              *
*       | |__) |____      _____ _ __ _ __ ___  _ _ __   ___ _ __               *
*       |  ___/ _ \ \ /\ / / _ \ '__| '_ ` _ \| | '_ \ / _ \ '__|              *
*       | |  | (_) \ V  V /  __/ |  | | | | | | | | | |  __/ |                 *
*       |_|   \___/ \_/\_/ \___|_|  |_| |_| |_|_|_| |_|\___|_|                 *
********************************************************************************}
Program Miner;
{.include SRL/SRL.Scar}
{.include SRL/SRL/skill/mining.scar}

Const
  StartPlayer     =   0;           // Dont Forget 0
  NumberOfUsers   =   6;           // Number Of Players Using
  MaxLoads        =   50;           // Max Drops Per Player
  MaxRandomLoads  =   2;           // + Random Loads
  RunDir          = 'N';           // Run Direction. (Set With Care)
  ClickRock       =   5;           // How Long Until Next Click (seconds)
  OreTol          =   1;           // OreTol For Ores Mined
  RandomMouse     =   False;       // Mouse Antiban, (Not Working Yet)

Const
  CopperColor     =   3430271;     // CopperColor Constant
  TinColor        =   8487565;     // TinColor Constant
  IronColor       =   1779011;     // IronColor Constant
  SilverColor     =   10921650;    // SilverColor Constant
  CoalColor       =   2636603;     // CoalColor Constant
  MithrilColor    =   7556941;     // MithrilColor Constant


Var
  SecondsToWait, DropLoads, GasAvoided,
  RandomLoads, TotalOres, bmpOreMask, i, H, G : Integer;
  
//----------------------------------------------------------------------------//
Const VersionNumber        = 'Powerminer 0.40.0';
//----------------------------------------------------------------------------//


//----------------------------------------------------------------------------//
//--------------------------------SETUP!--------------------------------------//
//----------------------------------------------------------------------------//

procedure DeclarePlayers;

 begin

     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     NumberOfPlayers(HowManyPlayers);


     Players[0].Name     :='Username'; // Username
     Players[0].Pass     :='password'; // Password
     Players[0].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[0].String1  :='Iron';     // Name Of Ore
     Players[0].Boolean1 := False;     // Is Pick Equiped?
     Players[0].Active   := True;
     
     Players[1].Name     :='Username'; // Username
     Players[1].Pass     :='Password';  // Password
     Players[1].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[1].String1  :='Iron';     // Name Of Ore
     Players[1].Active   := True;

     Players[2].Name     :='Username'; // Username
     Players[2].Pass     :='Password';  // Password
     Players[2].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[2].String1  :='Iron';     // Name Of Ore
     Players[2].Active   := True;

     Players[3].Name     :='Username'; // Username
     Players[3].Pass     :='Password';  // Password
     Players[3].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[3].String1  :='Iron';     // Name Of Ore
     Players[3].Active   := True;


     Players[4].Name     :='Username'; // Username
     Players[4].Pass     :='Password';  // Password
     Players[4].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[4].String1  :='Iron';     // Name Of Ore
     Players[4].Active   := True;


     Players[5].Name     :='Username'; // Username
     Players[5].Pass     :='Password';  // Password
     Players[5].Nick     :='Nick';     // Nick (3-4 Letter of User)
     Players[5].String1  :='Iron';     // Name Of Ore
     Players[5].Active   := True;


end;

//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//

procedure ProgressReport;
begin
  WriteLn(' ');
  WriteLn(' ');
  WriteLn('<==============================================================>');
  Writeln('<===================== Stol3ns PowerMiner =====================>');
  Writeln('<============= -'+VersionNumber+'- Progress Report ==============>');
  Writeln('<==============================================================>');
  Writeln('    Worked for '+ TimeRunning);
  Writeln('    Mined ' + IntToStr(TotalOres) + ' ores.');
  if(GasAvoided > 0)then Writeln('Avoided gas '+IntToStr(GasAvoided)+ ' times.');
  Writeln('<==============================================================>');
  Writeln('    Name       : '+Players[CurrentPlayer].Name);
  Writeln('    Worked for : '+ TimeRunning);
  WriteLn('    Dropped    : '+IntToStr(DropLoads)+ ' Loads');
  Writeln('<==============================================================>');
  SRLRandomsReport;
end;

//---------------------------------------------------------------------------//

procedure SetUpOres;

begin
  case Lowercase(Players[CurrentPlayer].String1) Of
    'copper'  : Begin OreColor1 := CopperColor; End;
    'tin'     : Begin OreColor1 := TinColor; End;
    'iron'    : Begin OreColor1 := IronColor; End;
    'silver'  : Begin OreColor1 := SilverColor; End;
    'coal'    : Begin OreColor1 := CoalColor; End;
    'mithril' : Begin OreColor1 := MithrilColor; End;
 end;
end;


//----------------------------------------------------------------------------//

{--> Name         : procedure FindOre                                    }
{--> Description  : Finds Ores                                           }
{--> From         : Wizzup or WT-Fakawi                                  }

Function FindOre(MaxTol:Integer):Boolean;

Var
Tol,Ex,Ey:Integer;

Begin
H:=H+1;
  For G := 1 to H do
   Begin
    Case G Of

      1: Begin OreColor:= OreColor1; SecondsToWait := 5; End;

    End;
   End;

  While (Not (FindColorTolerance(Ex, Ey, OreColor, MSX1, MSY1, MSX2, MSY2, Tol))
  And Not (Tol > MaxTol)) Do
    Begin
      Tol:=Tol+1;
    End;
  If ((FindColorTolerance(Ex, Ey, OreColor, MSX1,MSY1 ,MSX2, MSY2, Tol))
  And Not (Tol > MaxTol)) Then Result:=True;
  Tol:=1;
  Wait(10);
 End;

//----------------------------------------------------------------------------//

procedure Login;

begin
 if(not (LoggedIn)) then
  LoginPlayer;
end;

//----------------------------------------------------------------------------//

function GasFinder(Gx,Gy:Integer):Boolean;

begin
if FindGas(Gx,Gy-20) then
 begin
  Mouse(x+10,y+10,2,2,true)
   Result:=True;
   Wait(1000+Random(100));
  RunBack;
   GasAvoided := GasAvoided + 1;
 end;
end;

//----------------------------------------------------------------------------//

procedure RunAway;

begin
 SetRun(True);
 RunTo(RunDir,False);
 Wait(2000+Random(100));
 RunBack;
 SetRun(False);
end;

//----------------------------------------------------------------------------//

procedure RandomsMouse;  //Not Being Used Yet.

 Begin
    if(RandomMouse)=True then
    Begin
  case Random(3) of
    0 : Wait(1000 + Random(100));
    1 : Wait(1000 + Random(250));
    2 : Wait(1000 + Random(350));
    Else
   Exit;
  End;
 End;
End;

//----------------------------------------------------------------------------//

procedure DeclarePick;

begin
 if(EquipPick)=True then
  begin
  i := 29;
  end;
 begin
   if(EquipPick)=False Then
  begin
   i := 28;
  end;
 end;
end;

//----------------------------------------------------------------------------//

procedure MineOre;

begin
 MarkTime(Mark);
 repeat
  if FindOre(OreTol) then
  Wait (25)
  if FindObjOre(x, y, 'ine', OreColor, 10, 4) then
   begin
   Getmousepos (x, y);
    if not(Loggedin) then Exit;
    if (NoPick)=True then NextPlayer(False);
   end;
    if Not GasFinder(x, y) then
     begin
      if Random (9) < 7
      then
      Mouse(x, y, 2, 2, True)
     else
      if Not GasFinder(x, y) then
       Mouse(x, y, 2, 2, False);
       ChooseOption(x, y, 'Mine');
     end;
      wait (100+(100))
       begin
       FindPick
       FindNormalRandoms
       GasFinder(x, y)
       If FindFight Then
        begin RunAway; Exit;
         end;
         end;
    until (TimeFromMark(Mark) >= ClickRock * 500 + (200));
     MarkTime(Mark);
    repeat
     wait (45)
     until (TimeFromMark(Mark) >= ClickRock * 500 +(200))
      begin
       Exit;
      end;
end;
    
//----------------------------------------------------------------------------//

{--> Name         : procedure DropOres                                    }
{--> Description  : Drops ores                                            }
{--> From         : Sumilion                                              }

procedure DropOres;
var
  i, ax, ay: Integer;
begin
  GameTab(4);
  TotalOres := TotalOres + CountItemBmpMaskTol(bmpOreMask, 5, 5);
  ReportVars[0] := ReportVars[0] + CountItemBmpMaskTol(bmpOreMask, 5, 5);
  while(FindBitmapMaskTolerance(bmpOreMask, ax, ay, MIX1, MIY1, MIX2, MIY2, 10, 5))and
       (i < 5)do
  begin
    ClickAllItemsBmpMaskTolWait('Drop', bmpOreMask, 5, 5, 300);
    if(FindColor(ax, ay, 16777215, MIX1, MIY1, MIX2, MIY2))then
      Mouse(ax, ay, 5, 5, false);
    ChooseOption(x, y, 'cel');
    i := i + 1;
  end;
  if(FindColor(ax, ay, 16777215, MIX1, MIY1, MIX2, MIY2))then
    Mouse(ax, ay, 5, 5, false);
  ChooseOption(ax, ay, 'cel');
  DropLoads := DropLoads + 1;

end;

//----------------------------------------------------------------------------//

{--> Name         : procedure LoadImages                                    }
{--> Description  : LoadsBMP                                            }
{--> From         : Sumilion                                              }

procedure LoadImages;

begin
  bmpOreMask := BitmapFromString(9, 8, 'z78DA333040076E6080C9C60' +
       'F064A17F17A71E9C2AFD70D03E09725DE4CF2DC0F00DCD05C59');
end;
       
//----------------------------------------------------------------------------//

procedure Mining;
begin
 repeat
  while(InvCount < i) do
   begin
      FindNormalRandoms;
     wait(25);
      FindPick;
       Wait(25);
    MineOre;
   Wait(25);
   GasFinder(x, y)
end;
  DropOres;
   ProgressReport;
   if (NoPick)=True then NextPlayer(False);
  until(not LoggedIn)or(DropLoads = MaxLoads + RandomLoads);
   NextPlayer(Players[CurrentPlayer].Active);
    EquipPick:= Players[CurrentPlayer].Boolean1;
     FindPickHeadColor
      DeclarePick;
  end;

//----------------------------------------------------------------------------//

procedure Setup;

begin
     SetupSRL;
     SetUpSRLMining;
     ActivateClient;
     DeclarePlayers;
     BenMouse:=False;
     MouseSpeed:=5;
     GasAvoided := 0
     TotalOres := 0;
     DropLoads := 0;
     RandomLoads := Random(MaxRandomLoads);
     EquipPick:= Players[CurrentPlayer].Boolean1;
     Login;
     DeclarePick;
     SetUpOres;
     LoadImages;
 End;



//----------------------------------------------------------------------------//
//-----------------------------Main Loop--------------------------------------//
//----------------------------------------------------------------------------//

begin
    Setup;
    ClearDebug;
    MakeCompass('N')
    SetRun(False);
    HighestAngle;
    FindPickHeadColor
   repeat
     Login;
     Antiban;
     Mining;
     if (NoPick)=True then NextPlayer(False);
    if (not (Loggedin)) then
     Begin
     NextPlayer(Players[CurrentPlayer].Active);
      EquipPick:= Players[CurrentPlayer].Boolean1;
       FindPickHeadColor
        DeclarePick;
    end;
  until(False)
 End.

——————————————————
<!– END TEMPLATE: formanswers –>

Im not really sure what to say.
Powerminers thse days are just pieces of otther peoples put together to make one.

This looks like one of those.
Im happy you credited and all, but it just looks very generic and a lot like other ones.

Im gona have to look though this one a while, for now im jut not gonna vote.

From: YoHoJo

Powerminers thse days are just pieces of other peoples put together to make one.

Ya, I also think we have enough powerminers

ahh!

Maybe PowerMiners and powerchoppers etc.

are easy to start learning with.

i tried atleast.

Guess its not going to be good enough =[

I think you know how to script. and if you learn more in here, you can script even better.
And that script has multiplayers, which most of people doesnt include when applying!
So Im going to vote yes! :D

Thankyou Pentti

=]

Yohojo, I thought you get into SRL for knowing the basics of scripting? Maybe he can demonstrate some RadialWalking. But otherwise…

MultiPlayer
AntiRandoms
AntiBan (I think)
Progress Report

Etc.


Anywayyyyyyyyyyyyyyyyy……………………..


If you add a Bitmap/DTM ore dropper, as in, you can have more than one pick in your inventory. I'll vote yes.

Hehe, learn to spell SRL forums :)

Well I think you know how to script, good enough reason to get my vote.

In.