SRL Archive - Test corner

DemiseScythe's OGL Abyssal Scripts
By DemiseScythe

Introduction:

I would like to contribute to the community by releasing scripts and keeping them up to date with updates and bug fixes. My Abyssal scripts will be a collection of OGL scripts written in response to script requests submitted on this thread and published below for all SRL Members to use. I intend to keep them in working order so I will only be releasing a script every 1-2 weeks. My goal is to have the best methods for every skill available on this thread.

Rules:

There are not going to be many rules in regards to the requests but I do expect everyone to follow the following guidelines. I will not do a Dungeoneering script since I already got my hands full with Slayer. Slayer is also out of the question since it will take me a few months to get it back online. I will not do scripts for gold farming methods. The purpose of this collection of scripts is for people to train their accounts safely and reach skill mastery. Profitable methods such as Concentrated Gold mining are alright since the method is geared towards good experience rather than just focused on profitability. I will accept requests based on how interesting I find them as well as if my account has the requirements for it. Choosing a method from one of the skills below will have better odds.

Scripts By Skill:

Magic:


Runecrafting:


Construction:


Agility:


Herblore:


Thieving:


Crafting:


Hunting:


Mining:

Demise PowerMiner:

Setup: Pickaxe in tool belt. Stand between 2 to 3 iron ores. Piscatoris Mine preferred although others work. Empty Inventory.

Requirements: 15 Mining.

Efficiency:


Script:

program DemisePowerMiner;
{$DEFINE SMART}
{$include_once GLX/GLXCore.Simba}
{$include_once GLX/Login.Simba}
{$include_once GLX/Text.Simba}
{$include_once GLX/Bank.Simba}
{$include_once GLX/Inventory.Simba}
{$include_once GLX/Timing.Simba}
{$include_once GLX/Minimap.Simba}
{$include_once GLX/Interfaces.Simba}
{$include_once Demise/DemiseGLZ.Simba}
{$include_once Demise/DemiseGLY.Simba}

(*=====Demise PowerMiner=====*)
(*========OGL Edition========*)
(*========Version 1.0========*)

var
  MT, SXP, AB: Cardinal;

procedure VSettings;
begin
(*Preferences:*)
  PlayersName := '';
  PlayersPass := '';
  BankPin := '1234';
(*Favorite Worlds*)
  World[1] := 1;
  World[2] := 1;
  World[3] := 1;
  World[4] := 1;
  World[5] := 1;
  World[6] := 1;
  World[7] := 1;
  World[8] := 1;
end;

function VMineIron: Boolean;
var
  XP, Minutes: Integer
begin
  repeat
    if not VClickModel(2718818122, IntToBox(604, 318, 746, 406), Mouse_Right, 'Iron') then
      VClickModel(366615370, IntToBox(604, 318, 746, 406), Mouse_Right, 'Iron');
    Wait(300 + Random(50));
    XP := VGetOverallXP - SXP;
    Minutes := Round((GetSystemTime - MT)/60000);
    if (Minutes = 0) then
      Minutes := 1;
    ClearDebug;
    Writeln('Demise PowerMiner GLX V1.0');
    Writeln('Mining Experience Earned: ' + IntToStr(XP));
    Writeln('Time Passed: ' + IntToStr(Minutes) + ' Minutes');
    Writeln('Mining Xp/Hr: ' + IntToStr(Round((XP*60)/Minutes)));
  until (VInvCount > 2) or (not(GL_LoggedIn));
end;

function VDropIron: Boolean;
begin
  repeat
    VClickItem(104295, 1643021, 50, SI, Mouse_Right, 'Drop');
    VClickItem(91290, 329256, 400, SI, Mouse_Right, 'Drop');
  until (VInvEmpty) or (not(GL_LoggedIn));
end;

procedure Antiban;
begin
  Case(Random(100)) of
    0..19:
      begin
        RandomMouseSpeed(1, 18, 25);
      end;
    20..29:
      begin
        MouseOffClient(4);
      end;
    30..39:
      begin
        SmallRandomMouse;
      end;
    40..49:
      begin
        RandomCompass(30, 50, True);
      end;
    50..59:
      begin
        RandomRModel;
      end;
    60..69:
      begin
        HoverSkill(SK_MINING);
      end;
  end;
end;

begin
(*Initiation*)
  ClearDebug;
  Smart.Create(1350, 670, '', ['OpenGL32.dll']);
  GLXMapHooks(Smart.ID);
  VSettings;
  VLogInPlayer;
  VBounds;
  VDrawBounds;
  VSpin;
(*Script Start*)
  VTicket;
  MT := GetSystemTime;
  SXP := VGetOverallXP;
  AB := 0;
  repeat
    repeat
      AB := AB + 1;
      VPlayer;
      VMineIron;
      VTicket;
      VDropIron;
      if (AB > RandomRange(12, 15)) then
      begin
        Antiban;
        AB := 0;
      end;
    until (not(GL_LoggedIn)) or (GL_LobbyScreen);
  until (not(VRestart));
  VSoundBase('End');
  TerminateScript;
end.

Smithing:


Fishing:


Cooking:


Firemaking:


Woodcutting:


Farming:


Summoning:

Lodestone teleports to Taverley -> runs north to cow pen -> kills cows -> collects hides -> lodestone teleports to Al Kharid -> runs to tanner shop -> makes hard leather -> runs to Al Kharid bank -> [could do some crafting here] -> deposits hard leather -> repeat

2/4 of my gold accounts got perm banned this morning. Sigh, that is what I get for running a bugged script. One of them was a nice one too. They were bank sitters and people must have reported them so there is really nothing to do about them. I'll leave the other two alone for a while to see what happens to them.

On my main, I will not do 24/7 and baby sit whenever I can to ensure others dont report me. That script seems too general. That script seems too general. I will do a livid farmer soon.

From: DemiseScythe
2/4 of my gold accounts got perm banned this morning. Sigh, that is what I get for running a bugged script. One of them was a nice one too. They were bank sitters and people must have reported them so there is really nothing to do about them. I'll leave the other two alone for a while to see what happens to them.

On my main, I will not do 24/7 and baby sit whenever I can to ensure others dont report me. That script seems too general. That script seems too general. I will do a livid farmer soon.

I'm not sure if anyone told you, botwatch has improved a lot since you left. Any repetitive task will get you banned.

From: The Mayor
I'm not sure if anyone told you, botwatch has improved a lot since you left. Any repetitive task will get you banned.

It wasn't repetitive tho its not much better than an alchemy script.

That is what I liked about my Slayer script though, it is never doing the same thing or clicking in the same place. Even the camera is never at a fixed angle. It could even do Ranged. I will get it working one of these days.

First Abyssal script released. It is an Iron PowerMiner of the quality of my Slayer script and something I am very proud to use and place my name on. Next plan for mining will probably be to release a Concentraded Gold Miner so that people can use it for the last 19 mining levels. Then everyone would be able to get 99 Mining without issue. Note this script is updated and requires the new OGL include installed.