SRL Archive - Research & Development Lounge

Hey guys! Whoa! It's been a long time! Well, I'm working on a new Runespan script, that will rival those over at Powerbot! (SudoRunespan)
I wanted to make the thread now, to one, keep you guys updated, and two, have it ready, just because. Well, The features?

Support on ALL Monsters/nodes.
Island hopping. Detects your level and goes to the appropriate floor.
All floor support.
Amazing antiban, that will make sense for what you're doing.(Runescrafting)
TPAs.
Multiplayer support.
As much as you guys can thing of!

Edit1: Update!!! Yay! Hey, guys, I got my TPAs down! Woohoo! http://villavu.com/forum/showthread.php?t=35504 <– learned them from this AMAZING tut! ..Anyway, I got the Air Esslings down, Now, all I have to do is get the rest of them! So much more work, but it'll be fun, nonetheless.

Code so far:

program TrollnRuneSpan;
{$DEFINE SMART}
{$IFDEF SMART}
{$i SRL/SRL/Misc/Smart.simba}
 {$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '5.3'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

procedure DeclarePlayers;
 var
  i: Integer;
 begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
  begin
   Players[0].Name   := '';       // Your Username.
   Players[0].Pass   := '';       // Your Password.
   Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
   Players[0].Active := True;     // Are you using this player?
   Players[0].Member := True;     // Are you a member?
  end;
 end;

function AirEsslings(X, y: Integer): Boolean;
var
 CTS, I: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS := GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(3.47, 1.75);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAToATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Air', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   Break;
   case Random(2) of
    0: ClickMouse2(True);
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Air', 'ssling']);
       end;
   end;
  end;
 end;
end;

begin
end. 

Guys, if there's anything wrong with what I have so far, let me know, I'll fix it. I want this script to be better then what PB, or EB has to offer! Help me make it so!

edit2:

program TrollnRuneSpan;
//{$DEFINE SMART}
//{$IFDEF SMART}
//{$i SRL/SRL/Misc/Smart.simba}
 //{$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '5.3'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

procedure DeclarePlayers;
 var
  i: Integer;
 begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
  begin
   Players[0].Name   := '';       // Your Username.
   Players[0].Pass   := '';       // Your Password.
   Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
   Players[0].Active := True;     // Are you using this player?
   Players[0].Member := True;     // Are you a member?
  end;
 end;

procedure Startup;
begin
 Smart_Server := 97;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 SetupSRL;
 //DeclarePlayers;
 //LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

function AirEsslings: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(3.47, 1.75);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)// or
 ColorToleranceSpeed(CTS);
 ATPA:= TPAToATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Air', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        Wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Air', 'ssling']);
        Wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;


function Cyclone: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(1.46, 1.81);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1516323, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'yclone']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(60000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','yclone']);
        Wait(60000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function EarthEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.09, 0.68);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5334428, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'arth', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','arth', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

begin
 Startup;
 AirEsslings;
 EarthEssling;
 Cyclone;
end.

It works! Yay! I'm using the runescape client to test. You guys try it and tell me how it works. I'll start working on island hopping when I get to monsters that are on other islands. Hey, you guys, Should I livestream?

Edit2:

program TrollnRuneSpan;
//{$DEFINE SMART}
//{$IFDEF SMART}
//{$i SRL/SRL/Misc/Smart.simba}
 //{$ENDIF}
{$i SRL/SRL.simba}

const
 SRLStats_Username  = '';    //SRL Stats User
 SRLStats_Pass      = '';    //SRL Stats Pass
 BreakEvery         = '60';  //Break Every Log, Or Never.
 BreakFor           = '7';   //Break For How long, Now?
 Version            = '5.3'; // Don't Touch.
 NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
 StartPlayer        = 0;     //Start Which Player?

procedure DeclarePlayers;
 var
  i: Integer;
 begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
  begin
   Players[0].Name   := '';       // Your Username.
   Players[0].Pass   := '';       // Your Password.
   Players[0].Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
   Players[0].Active := True;     // Are you using this player?
   Players[0].Member := True;     // Are you a member?
  end;
 end;

procedure Startup;
begin
 Smart_Server := 97;
 Smart_Members := False;
 Smart_Signed := False;
 Smart_SuperDetail := False;
 SetupSRL;
 //DeclarePlayers;
 //LogInPlayer;
 MouseSpeed := 21;
 wait(100+random(100));
end;

function AirEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(3.47, 1.75);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)// or
 ColorToleranceSpeed(CTS);
 ATPA:= TPAToATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Air', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        Wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Air', 'ssling']);
        Wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;


function Cyclone: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(1.46, 1.81);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1516323, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'yclone']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(60000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','yclone']);
        Wait(60000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function EarthEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.09, 0.68);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5334428, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'arth', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','arth', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function WaterEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(2.69, 0.70);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5194866, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'ater', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','ater', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function FireEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.10, 0.75);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5194866, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Fire', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Fire', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function MindEssling: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(0.35, 0.48);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5194866, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Mind', 'ssling']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Mind', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function BodyEsshound: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers(2.40, 0.83);
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 7093602, MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'Body', 'sshound']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','Mind', 'ssling']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

function CosmicEsshound: Boolean;
var
 X, y, I: Integer;
 CTS: Integer;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
begin
 CTS:= GetColorToleranceSpeed;
 ColorToleranceSpeed(2);
 SetColorSpeed2Modifiers();
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, , MSX1, MSY1, MSX2, MSY2, 7);
 ColorToleranceSpeed(CTS);
 ATPA:= TPAtoATPAEx(TPA, 15, 15);
 for I := 0 to High(ATPA) do
 begin
  MiddleTPAEx(ATPA[I], X, y);
  MMouse(X, y, 2, 2);
  if IsUpTextMultiCustom(['iphon', 'osmic', 'sshound']) then
  begin
   Result:= True;
   GetMousePos(X, y);
   case Random(2) of
    0: begin
        ClickMouse2(True);
        wait(30000);
       end;
    1: begin
        ClickMouse2(False);
        ChooseOptionMulti(['iphon','osmic', 'sshound']);
        wait(30000);
     begin
      Break;
     end;
    end;
   end;
  end;
 end;
end;

begin
 Startup;
 AirEssling;
 EarthEssling;
 WaterEssling;
 FireEssling;
 MindEssling;
 Cyclone;
end.

<– How's it looking so far, guys? I worked on it all day yesterday, and I got quite a bit done. Thought it deserved an update. Tell me how this one works, guys!

Hey, guys, sorry I haven't updated in a while, but I have an update. I did a complete re-code after following a bunch of tutorials, and this is what I have so far!

program TrollnRunespan;
{$DEFINE SMART}
{$i SRL/SRL.simba}

const
  SRLStats_Username  = '';    //SRL Stats User
  SRLStats_Pass      = '';    //SRL Stats Pass
  BreakEvery         = '60';  //Break Every Log, Or Never.
  BreakFor           = '7';   //Break For How long, Now?
  Version            = '3.0'; // Don't Touch.
  NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
  StartPlayer        = 0;     //Start Which Player?
  Forcenew           = False; //Force a New Client When Starting or not?
  Essling            = 'Air'; //Type the Element of Essling you want to siphon Air, Earth, Fire etc

var
   x,y:integer;

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name   := '';       // Your Username.
    Pass   := '';       // Your Password.
    Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
    WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := Skill_Slayer;
    Active      := True;
  end;
end;

Procedure SiphonEssling(EsslingUpText:TStringArray; Color, Tol:integer; Hue, Sat:extended);
var
 Data:TIntegerArray;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
 Box:Tbox;
begin
  SetLength(Data, 4);
  Data[3]:=GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(3.47, 1.75);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)
  ColorToleranceSpeed(Data[3]);
  ATPA:= TPAToATPAEx(TPA, 15, 15);
  Data[1]:=High(ATPA);
  for Data[0] := 0 to Data[1] do
  begin
    MiddleTPAEx(ATPA[Data[0]], x, y);
    Box.X1:=x;
    Box.Y1:=y;
    Box.X2:=x+2;
    Box.Y2:=y+2;
    MouseTBox(Box, Move);
    if WaitUpTextMulti(EsslingUptext, 300) then
    begin
      case Random(2) of
        0: begin
             ClickMouse2(True);
             if(DidRedClick())then
               Wait(RandomRange(28000, 32000));
               Break;
           end;
        1: begin
             ClickMouse2(False);
             if(WaitOptionMulti(['iphon','Air', 'ssling'], 300))then
               Wait(Randomrange(28000, 30000))
             else
               Break;
           end;
      end;
   end;
  end;
end;

begin
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 72;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ELSE}
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    {$ENDIF}
  {$ENDIF}
  if(Forcenew)then
    ForcenewC:=true;
  DeclarePlayers;
  SetupSRL;
  mousespeed:=25+random(5);
  if(not(Loggedin))then
  begin
    LoginPlayerToLob;
    ChangeWorld(RandomWorld(True, False));
    sleep(4000+Random(3000));
    Setangle(0);
    if(FindColorTolerance(x,y,3978996,485, 58,506, 79, 5))then
    begin
      Mmouse(x,y,3,3);
      Sleep(100+Random(100));
      Clickmouse2(True);
      Sleep(100+Random(100));
    end;
  end;
  repeat
    FindNormalRandoms;
    Case Essling of
      'Air':   begin SiphonEssling(['iphon Air', 'hon Air', 'hon Air Essling'], 6442547, 7, 3.47, 1.75); end;
      'Fire':  begin SiphonEssling(['iphon Fire', 'hon Fire', 'hon Fire Essling'], 5194866, 7, 0.10, 0.75); end;
      'Earth': begin SiphonEssling(['iphon Earth', 'hon Earth', 'hon Earth Essling'], 5334428, 7, 0.09, 0.68); end;
      'Water': begin SiphonEssling(['iphon Water', 'hon Water', 'hon Water Essling'], 5194866, 7, 2.69, 0.70); end;
    End;
  until not LoggedIn;
end.

Only does esslings right now, but I'm going to add more today!

program TrollnRunespan;
{$DEFINE SMART}
{$i SRL/SRL.simba}

const
  Version            = '3.0'; // Don't Touch.
  NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
  StartPlayer        = 0;     //Start Which Player?
  Forcenew           = False; //Force a New Client When Starting or not?
  RuneSpanSiphonType = 'Esshound'; //Essling, Esshound, Nebula,
  Element            = 'Air'; //Esslings: Air, Water, Fire, Earth, Mind.
                              //Esshound: Body, Law, Cosmic, Nature.
                              //Esswraith: Blood, Death, Soul.

var
  Color, Tol:integer;
  Hue, Sat:Extended;
  UptextArray:TstringArray;
  x, y: Integer;
  Ess, Exp: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name   := '';       // Your Username.
    Pass   := '';       // Your Password.
    Pin    := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
    WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := Skill_Slayer;
    Active      := True;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  Wait(3000);
end;

function Siphon(EsslingUpText:TStringArray; Color, Tol:integer; Hue, Sat:extended): Boolean;
var
 Data:TIntegerArray;
 TPA: TPointArray;
 ATPA: Array of TPointArray;
 Box:Tbox;
 x,y: Integer;
begin
  SetLength(Data, 4);
  Data[3]:=GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(3.47, 1.75);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)
  ColorToleranceSpeed(Data[3]);
  ATPA:= TPAToATPAEx(TPA, 15, 15);
  Data[1]:=High(ATPA);
  for Data[0] := 0 to Data[1] do
  begin
    MiddleTPAEx(ATPA[Data[0]], x, y);
    Box.X1:=x;
    Box.Y1:=y;
    Box.X2:=x+2;
    Box.Y2:=y+2;
    MouseTBox(Box, Move);
    if WaitUpTextMulti(EsslingUptext, 300) then
    begin
      case Random(2) of
        0: begin
             ClickMouse2(True);
             if(DidRedClick())then
               Wait(RandomRange(28000, 32000));
               Break;
           end;
        1: begin
             ClickMouse2(False);
             if(WaitOptionMulti(['iphon','Air', 'ssling'], 300))then
               Wait(Randomrange(28000, 30000))
             else
               FindRandoms;
               Break;
           end;
      end;
      begin
        Result:= True;
      end;
    end;
  end;
end;

procedure SetupArguments;
begin
  case RuneSpanSiphonType of
    'Essling':
    begin
      case Element of
        'Air':   begin UpTextArray:=['iphon Air', 'hon Air', 'hon Air Essling']; Color:=6442547; Tol:=7; Hue:=3.47; Sat:=1.75; FindRandoms; end;
        'Fire':  begin UpTextArray:=['iphon Fire', 'hon fire', 'hon Fire Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
        'Earth': begin UpTextArray:=['iphon earth', 'hon earth', 'hon earth Essling']; Color:=5334428; Tol:=7; Hue:=0.09; Sat:=0.68; FindRandoms; end;
        'Water': begin UpTextArray:=['iphon Water', 'hon Water', 'hon Water Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
        'Mind':  begin UpTextArray:=['iphon Mind', 'hon mind', 'hon mind Essling']; Color:=5194866; Tol:=7; Hue:=0.35; Sat:=0.48; FindRandoms; end;
      end;
    end;
    'Esshound':
    begin
      case Element of
        'body':   begin UpTextArray:=['iphon  body', 'body', 'hon body Esshound']; Color:=7093602; Tol:=7; Hue:=2.40; Sat:=0.83; FindRandoms; end;
        'law':    begin UpTextArray:=['iphon law', 'hon law', 'hon law Esshound']; Color:=16771982; Tol:=7; Hue:=0.68; Sat:=1.28; FindRandoms; end;
        'astral': begin UpTextArray:=['iphon astral', 'hon astral', 'hon astral Esshound']; Color:=13346751; Tol:=7; Hue:=1.07; Sat:=0.35; FindRandoms; end;
      end;
    end;
    {'Esswraith':
    begin
      'blood': begin UpTextArray:=['iphon  Esswraith', 'hon blood', 'hon blood Esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; end;
      'soul': begin UpTextArray:=['iphon soul', 'hon soul', 'hon soul esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; end;
      'death': begin UpTextArray:=['iphon death', 'hon death', 'hon death Esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; end;
    end;}
  end;
end;

 begin
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 72;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ELSE}
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    {$ENDIF}
  {$ENDIF}
  if(Forcenew)then
    ForcenewC:=true;
  DeclarePlayers;
  SetupSRL;
  mousespeed:=25+random(5);
  if(not(Loggedin))then
  begin
    LoginPlayerToLob;
    ChangeWorld(RandomWorld(True, False));
    sleep(4000+Random(3000));
    Setangle(0);
    if(FindColorTolerance(x,y,3978996,485, 58,506, 79, 5))then
    begin
      Mmouse(x,y,3,3);
      Sleep(100+Random(100));
      Clickmouse2(True);
      Sleep(100+Random(100));
    end;
  end;
  SetupArguments;
  repeat
    FindNormalRandoms;
    Siphon(UpTextArray, Color, Tol, Hue, Sat)
  until not LoggedIn;
end.

Update! Yay! Added FindNormanRandoms; and made it where, no matter what you're doing, it'll check. Also added full support for Esshounds. Commented out Esswraiths, I have yet to get those colors. Critique?

program TrollnRunespan;
{$DEFINE SMART}
{$i SRL/SRL.simba}

const
  Version            = '3.0'; // Don't Touch.
  NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
  StartPlayer        = 0;     //Start Which Player?
  Forcenew           = False; //Force a New Client When Starting or not?
  RuneSpanSiphonType = 'Essling'; //Essling, Esshound, Nebula,
  Element            = 'air'; //Esslings: Air, Water, Fire, Earth.
                              //Esshound: Body, Law, Cosmic, Nature.
                              //Esswraith: Blood, Death, Soul.

var
  Color, Tol:integer;
  Hue, Sat:Extended;
  UptextArray:TstringArray;
  x, y: Integer;
  Exp, StartEXP, EXPH, TP: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name        := '';       // Your Username.
    Pass        := '';       // Your Password.
    Pin         := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
    WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := Skill_Runecrafting;
    Active      := True;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  Wait(3000);
end;

procedure FindEssence;
var
  x, y: integer;
begin
  if FindObjCustom(x, y, ['coll', 'ect'], [5263955, 3750459], 7) then
  begin
    MMouse(x, y, 3, 3);
    ClickMouse2(2);
  end;
end;

procedure DTMWalk;
var
  x, y, DTM: Integer;

begin
  DTM := DTMFromString('mggAAAHicY2NgYJBiYmDQBeKPjAwMu4B4AhAnArEHEN8Cyj8H4v9ALAnkKwNxRrIeBKfrMaTE6zBU1pozTFnkwYALMOLAEAAANmAMyA==');
  if(FindDTM(DTM, X,Y, MIX1, MIY1, MIX2, MIY2)) then
  begin
   MMouse(x, y, 3, 3);
   ClickMouse2(2);
  end;
end;

function Siphon(EsslingUpText:TStringArray; Color, Tol:integer; Hue, Sat:extended): Boolean;
var
 Data:TIntegerArray;
 TPA: TPointArray;
 ATPA:T2DPointArray;
 Box: Tbox;
 x,y: Integer;
begin
  SetLength(Data, 4);
  Data[3]:=GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(3.47, 1.75);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)
  ColorToleranceSpeed(Data[3]);
  ATPA:= TPAToATPAEx(TPA, 15, 15);
  Data[1]:=High(ATPA);
  for Data[0] := 0 to Data[1] do
  begin
    MiddleTPAEx(ATPA[Data[0]], x, y);
    Box.X1:=x;
    Box.Y1:=y;
    Box.X2:=x+2;
    Box.Y2:=y+2;
    MouseTBox(Box, Move);
    if WaitUpTextMulti(EsslingUptext, 300) then
    begin
      case Random(2) of
        0: begin
             ClickMouse2(True);
             if FindBlackChatMessage('You do not have the Rune Essence required to Siphon from the creature.') then
             begin
               FindEssence;
             end else
             if(DidRedClick())then
               Wait(RandomRange(28000, 32000));
               DTMWalk;
               Break;
           end;
        1: begin
             ClickMouse2(False);
             Wait(Randomrange(28000, 30000));
             DTMWalk;
             FindRandoms;
             Break;
           end;
      end;
      begin
        Result:= True;
      end;
    end;
  end;
end;

procedure SetupArguments;
begin
  case RuneSpanSiphonType of
    'Essling':
    begin
      case Element of
        'Air':   begin UpTextArray:=['iphon Air', 'hon Air', 'hon Air Essling']; Color:=6442547; Tol:=7; Hue:=3.47; Sat:=1.75; FindRandoms; end;
        'Fire':  begin UpTextArray:=['iphon Fire', 'hon fire', 'hon Fire Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
        'Earth': begin UpTextArray:=['iphon earth', 'hon earth', 'hon earth Essling']; Color:=5334428; Tol:=7; Hue:=0.09; Sat:=0.68; FindRandoms; end;
        'Water': begin UpTextArray:=['iphon Water', 'hon Water', 'hon Water Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
      end;
    end;
    'Esshound':
    begin
      case Element of
        'body':   begin UpTextArray:=['iphon  body', 'body', 'hon body Esshound']; Color:=7093602; Tol:=7; Hue:=2.40; Sat:=0.83; FindRandoms; end;
        'law':    begin UpTextArray:=['iphon law', 'hon law', 'hon law Esshound']; Color:=16771982; Tol:=7; Hue:=0.68; Sat:=1.28; FindRandoms; end;
        'astral': begin UpTextArray:=['iphon astral', 'hon astral', 'hon astral Esshound']; Color:=13346751; Tol:=7; Hue:=1.07; Sat:=0.35; FindRandoms; end;
      end;
    end;
    {'Esswraith':
    begin
      'blood': begin UpTextArray:=['iphon  blood', 'hon blood', 'hon blood Esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; FindRandoms; end;
      'soul': begin UpTextArray:=['iphon soul', 'hon soul', 'hon soul esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; FindRandoms; end;
      'death': begin UpTextArray:=['iphon death', 'hon death', 'hon death Esswraith']; Color:=; Tol:=7; Hue:=; Sat:=; FindRandoms; end;
    end;}
  end;
  begin
    DTMWalk;
  end;
end;

procedure Proggy;
begin  //Credits to Kyle, he made the actual thing. I cbf to go look at a tut now. <3 u Kyle! ;P ////This is temporary, going to do an On-screen proggie, soon.
  ClearDebug();
  EXP := (GetXPBarTotal - StartEXP);
  EXPH:= Round(((EXP) / (GetTimeRunning / 1000)) * 3600);
  Writeln('+++++++++++++++++ Vinyl''s Everything Runecrafter -----------------');
  WriteLn('Version ' + Version);
  Writeln('Time Running: ' + TimeRunning);
  Writeln('Experience Earned: ' + IntToStr(EXP));
  Writeln('Experience/Hour: ' + IntToStr(EXPH));
  Writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');
  MarkTime(TP);
end;

 begin
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 72;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ELSE}
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    {$ENDIF}
  {$ENDIF}
  if(Forcenew)then
    ForcenewC:=true;
  DeclarePlayers;
  SetupSRL;
  mousespeed:=25+random(5);
  if(not(Loggedin))then
  begin
    LoginPlayerToLob;
    ChangeWorld(RandomWorld(True, False));
    sleep(4000+Random(3000));
    Setangle(0);
    if(FindColorTolerance(x,y,3978996,485, 58,506, 79, 5))then
    begin
      Mmouse(x,y,3,3);
      Sleep(100+Random(100));
      Clickmouse2(True);
      Sleep(100+Random(100));
    end;
  end;
  SetupArguments;
  repeat
    FindNormalRandoms;
    Siphon(UpTextArray, Color, Tol, Hue, Sat)
  until not LoggedIn;
end.

Added some new stuff, DTM walking, Proggie (I know, it's from Kyle's Esswraith Extractor. It's temporary. Going to do an on-screen proggie.) What do I need to do? Ideas on Island hopping?

program TrollnRunespan;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SRL/SRL/misc/Debug.simba}

const
  Version            = '3.0'; // Don't Touch.
  NumbOfPlayers      = 1;     //Number of Players That You Will Be using.
  StartPlayer        = 0;     //Start Which Player?
  Forcenew           = False; //Force a New Client When Starting or not?
  RuneSpanSiphonType = 'Essling'; //Essling, Esshound, Nebula,
  Element            = 'air'; //Esslings: Air, Water, Fire, Earth.
                              //Esshound: Body, Law, Cosmic, Nature.
                              //Esswraith: Blood, Death, Soul.

var
  Color, Tol:integer;
  Hue, Sat:Extended;
  UptextArray:TstringArray;
  x, y: Integer;
  Exp, StartEXP, EXPH, TP: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name        := 'presmanpeace@gmail.com';       // Your Username.
    Pass        := 'yesman2';       // Your Password.
    Pin         := '';       // Your Bank Pin.    (Leave Blank If You Don't Have One.)
    WorldInfo   := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
    BoxRewards  := ['XP','xp','lamp'];
    LampSkill   := Skill_Runecrafting;
    Active      := True;
  end;
end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  Wait(3000);
end;

procedure Proggy;
begin  //Credits to Kyle, he made the actual thing. I cbf to go look at a tut now. <3 u Kyle! ;P ////This is temporary, going to do an On-screen proggie, soon.
  ClearDebug();
  Stats_Commit;
  EXP := (GetXPBarTotal - StartEXP);
  EXPH:= Round(((EXP) / (GetTimeRunning / 1000)) * 3600);
  Writeln('+++++++++++++++++ Vinyl''s Everything RuneSpan -----------------');
  WriteLn('Version ' + Version);
  Writeln('Time Running: ' + TimeRunning);
  //Writeln('Experience Earned: ' + IntToStr(EXP));
  //Writeln('Experience/Hour: ' + IntToStr(EXPH));
  Writeln('±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±');
  MarkTime(TP);
end;

procedure FindEssence;
var
  x, y: integer;
begin
  if FindObjCustom(x, y, ['coll', 'ect'], [5263955, 3750459], 7) then
  begin
    MMouse(x, y, 3, 3);
    ClickMouse2(2);
  end;
end;

procedure DTMWalk;
var
  x, y, WalkDTM: Integer;
begin
  WalkDTM := DTMFromString('mggAAAHicY2NgYJBiYmDQBeKPjAwMu4B4AhAnArEHEN8Cyj8H4v9ALAnkKwNxRrIeBKfrMaTE6zBU1pozTFnkwYALMOLAEAAANmAMyA==');
  if(FindDTM(WalkDTM, X,Y, MIX1, MIY1, MIX2, MIY2)) then
  begin
   MMouse(x, y, 3, 3);
   ClickMouse2(2);
  end;
end;

function Siphon(EsslingUpText:TStringArray; Color, Tol:integer; Hue, Sat:extended): Boolean;
var
 Data:TIntegerArray;
 TPA: TPointArray;
 ATPA:T2DPointArray;
 Box: Tbox;
 x,y: Integer;
begin
  SetLength(Data, 4);
  Data[3]:=GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(3.47, 1.75);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6442547, MSX1, MSY1, MSX2, MSY2, 7)
  ColorToleranceSpeed(Data[3]);
  ATPA:= TPAToATPAEx(TPA, 15, 15);
  Data[1]:=High(ATPA);
  for Data[0] := 0 to Data[1] do
  begin
    MiddleTPAEx(ATPA[Data[0]], x, y);
    Box.X1:=x;
    Box.Y1:=y;
    Box.X2:=x+2;
    Box.Y2:=y+2;
    MouseTBox(Box, Move);
    if WaitUpTextMulti(EsslingUptext, 300) then
    begin
      case Random(2) of
        0: begin
             ClickMouse2(True);
             if FindBlackChatMessage('You do not have the Rune Essence required to Siphon from the creature.') then
             begin
               FindEssence;
             end else
             if(DidRedClick())then
               Wait(RandomRange(28000, 32000));
               //DTMWalk;
               Break;
           end;
        1: begin
             ClickMouse2(False);
             WaitOptionMulti(['iphon', 'air', 'ssling'], 300);
             Wait(Randomrange(28000, 30000));
             DTMWalk;
             FindRandoms;
             Break;
           end;
      end;
      begin
        Result:= True;
        Proggy;
      end;
    end;
  end;
end;

procedure SetupArguments;
begin
  case RuneSpanSiphonType of
    'Essling':
    begin
      case Element of
        'Air':   begin UpTextArray:=['iphon Air', 'hon Air', 'hon Air Essling']; Color:=6442547; Tol:=7; Hue:=3.47; Sat:=1.75; FindRandoms; end;
        'Fire':  begin UpTextArray:=['iphon Fire', 'hon fire', 'hon Fire Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
        'Earth': begin UpTextArray:=['iphon earth', 'hon earth', 'hon earth Essling']; Color:=5334428; Tol:=7; Hue:=0.09; Sat:=0.68; FindRandoms; end;
        'Water': begin UpTextArray:=['iphon Water', 'hon Water', 'hon Water Essling']; Color:=5194866; Tol:=7; Hue:=0.10; Sat:=0.75; FindRandoms; end;
      end;
    end;
    'Esshound':
    begin
      case Element of
        'body':   begin UpTextArray:=['iphon  body', 'body', 'hon body Esshound']; Color:=7093602; Tol:=7; Hue:=2.40; Sat:=0.83; FindRandoms; end;
        'law':    begin UpTextArray:=['iphon law', 'hon law', 'hon law Esshound']; Color:=16771982; Tol:=7; Hue:=0.68; Sat:=1.28; FindRandoms; end;
        'astral': begin UpTextArray:=['iphon astral', 'hon astral', 'hon astral Esshound']; Color:=13346751; Tol:=7; Hue:=1.07; Sat:=0.35; FindRandoms; end;
      end;
    end;
    'Esswraith':
    begin
      'blood': begin UpTextArray:=['iphon  blood', 'hon blood', 'hon blood Esswraith']; Color:=3826285; Tol:=7; Hue:=0.39; Sat:=0.93; FindRandoms; end;
      'soul':  begin UpTextArray:=['iphon soul', 'hon soul', 'hon soul esswraith']; Color:=8026467; Tol:=7; Hue:=4.16; Sat:=0.24; FindRandoms; end;
      'death': begin UpTextArray:=['iphon death', 'hon death', 'hon death Esswraith']; Color:=7692132; Tol:=7; Hue:=1.69; Sat:=0.24; FindRandoms; end;
    end;
  end;
  begin
    DTMWalk;
  end;
end;

{procedure FreDTMs;
begin
  FreeDTM(WalkDTM);
end;}

{procedure Proggy2;
begin
  AddOnTerminate(Proggy);
end;}

begin
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 72;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ELSE}
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    {$ENDIF}
  {$ENDIF}
  if(Forcenew)then
    ForcenewC:=true;
  DeclarePlayers;
  SetupSRL;
  mousespeed:=25+random(5);
  if(not(Loggedin))then
  begin
    LoginPlayerToLob;
    ChangeWorld(RandomWorld(True, False));
    sleep(4000+Random(3000));
    Setangle(0);
    if(FindColorTolerance(x,y,3978996,485, 58,506, 79, 5))then
    begin
      Mmouse(x,y,3,3);
      Sleep(100+Random(100));
      Clickmouse2(True);
      Sleep(100+Random(100));
    end;
  end;
  SetupArguments;
  repeat
    FindNormalRandoms;
    Siphon(UpTextArray, Color, Tol, Hue, Sat);
  until not LoggedIn;
  if not LoggedIn then
  //FreDTMs;
  Proggy; //else
  //Proggy2;
end.

Finally! Got Esswraiths done, general idea of the script is coming together. Still trying to figure out how to island hop without ref, or injection.Going to look at some tuts on on-screen proggies, because that's nicer. I'm planning on applying after I finish this script. I might not be able to do island hopping, sorry guys. But yeah, tell me how this works for you. if it works well, I'm going to iron it out, and release it to the public. <3

E: I left that username and pasword in on accident, but it won't matter, no good stats, just a test account to keep my main from getting stolen. Thank you all for not changing the pass or taking anything, you guys are awesome!

This is to make up for my past mistakes. I hope all of you forgive me!

First post/Good luck with this bro!!

Good luck and ill test when you release

Resource and developement lounge?

No. I don liek it ter. it skeree in der.

Sorry for double posting, but I want to let you guys know.. I give up… Ahh.. Who the hay am I kidding?! UPDATE, Beaches!

Well it seems you're back…..I just hope you actually learn something this time. You can do almost anything if you put your mind to it. :)

Can't wait :). Saw someone running that powerbot script and the island hopping was pretty damn sexy. If you can get that, oh lord. Be ready to make changes after the nuke though.

Goodness Troll you make me laugh :) Welcome back and good luck!

From: P1nky
Goodness Troll you make me laugh :) Welcome back and good luck!

:'D I'm a good widdel boy!

From: Phyaskou
Well it seems you're back…..I just hope you actually learn something this time. You can do almost anything if you put your mind to it. :)

I did learn. I was an idiot, and I hate what I did. I want to pay the community back, and this is how I'm doing it!


OT: How it coming so far? I think I did the TPAs alright. I could be wrong, though.. lol.

GL with this!

Thanks, man. I'm working on it now. It's going to do all of the Monsters. It'll be really freaking cool. I'll update it when I'm done with this part.

Update! Yay! Tell me how it works for you guys!

Hey! ANOTHER UPDATE! Jeez.. I'm working hard on this for you guys, and All I get is ignored? Help me help you! I need help with how it works for other people. C'mon, guys!

^^^Mind not double posting ;)

And Ill be testing this soon. Looks good by just looking at it :thumbsup:

Sorry for double post, lol. Thanks for testing it, though, I need some people to test it.

From: xXTrollXx
Sorry for double post, lol. Thanks for testing it, though, I need some people to test it.

S'all good buddy, Anyway, your CosmicEsshound function has some errors, look at the:

SetColorSpeed2Modifiers();
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, MSX1, MSY1, MSX2, MSY2, 7);    

Should be:

SetColorSpeed2Modifiers(0.00, 0.00);    

Also, put the color in for FindColorSpiralTolerance, its missing :)

Edit: Goes Bonkers!!!

Oops! Forgot to get those colors! Honest mistake! Thanks for catching this, I forgot the HueMod and Satmod.. lol

What do you mean, goes bonkers?

I think it's great that you're scripting and putting so much effort into this. But don't we already have a couple really good runespan scripts that compete with PB?? I went from 30-99 in two weeks with one of them.

They don't Island hop, do they? (I'm not being sarcastic I haven't used any of them, lol)

no only island hop by mistake i think?

Alright, thanks. Once I finish all of the monsters, I'll work on Island hopping.

XTroll dude, have you tried it out yourself?
Before asking others to test, you should try it lol.

Where is your anti-ban in this?

Yes, Joey, I've tried it. Lol, I'm using a VPN to test it, my comp's Cooling Fan bearings are going out, can't make it run to hot, or it warps the MotherBoard. But, yes, I've tested it. As for your question on AntiBan, I'm not expecting someone to post that they got it to run for 24hrs. I just want them to see if it works for them.

Ahh I see….
Well Keep working on it, long way to go :P

Update! Complete re-code, because the other way wasn't effecient at all!

New code Looks Nice, Good Luck with the rest of the development bro.

nuhnuhnuhnuhnuhnice work.

Thanks, Leet, and Joe. I'm going to get it to do esshounds, and esswaiths.

Good luck :P

Some stuff I found, other than that it is looking good :)

ATPA: Array of TPointArray;

can be changed to

ATPA: T2DPointArray;

Case Essling of
      'Air':   begin SiphonEssling(['iphon Air', 'hon Air', 'hon Air Essling'], 6442547, 7, 3.47, 1.75); end;
      'Fire':  begin SiphonEssling(['iphon Fire', 'hon Fire', 'hon Fire Essling'], 5194866, 7, 0.10, 0.75); end;
      'Earth': begin SiphonEssling(['iphon Earth', 'hon Earth', 'hon Earth Essling'], 5334428, 7, 0.09, 0.68); end;
      'Water': begin SiphonEssling(['iphon Water', 'hon Water', 'hon Water Essling'], 5194866, 7, 2.69, 0.70); end;
    End;

can be changed to

case Essling of
  'Air':   SiphonEssling(['iphon Air', 'hon Air', 'hon Air Essling'], 6442547, 7, 3.47, 1.75);
  'Fire':  SiphonEssling(['iphon Fire', 'hon Fire', 'hon Fire Essling'], 5194866, 7, 0.10, 0.75);
  'Earth': SiphonEssling(['iphon Earth', 'hon Earth', 'hon Earth Essling'], 5334428, 7, 0.09, 0.68);
  'Water': SiphonEssling(['iphon Water', 'hon Water', 'hon Water Essling'], 5194866, 7, 2.69, 0.70);
end; 

Changing it now! Thanks, J J!

Update. Sorry for double post, but wanted to let you guys know there's new stuff here! <3

Looks very promising! Good luck!

"Update! Yay! Added FindNormanRandoms; and made it where, no matter what you're doing, it'll check. Also added full support for Esshounds. Commented out Esswraiths, I have yet to get those colors. Critique?"

Should be "Update! Yay! Added FindNormalRandoms; and made it where, no matter what you're doing, it'll check. Also added full support for Esshounds. Commented out Esswraiths, I have yet to get those colors. Critique?"

From: Phyaskou
"Update! Yay! Added FindNormanRandoms; and made it where, no matter what you're doing, it'll check. Also added full support for Esshounds. Commented out Esswraiths, I have yet to get those colors. Critique?"

Should be "Update! Yay! Added FindNormalRandoms; and made it where, no matter what you're doing, it'll check. Also added full support for Esshounds. Commented out Esswraiths, I have yet to get those colors. Critique?"

Lol. Thanks. Now, critique on the script?

You stopped trolling and started scratching Cars i see… ;)

From: Vinyl Scratch
Lol. Thanks. Now, critique on the script?

I dont really script anymore but I guess it looks good :p

Lol, Thanks. Almost done with the Esswraiths, then going to let you guys see, and maybe apply for SRL Mems, But after some time going to take this down.


Edit: Update! Still haven't gotten the esswraiths, because I'm lazy, but oh well. Got a proggie. (It's from Kyle's Esswraith Extractor, I know. It's temporary. Just so you guys can give me proggies.)
Also added a little DTM Walking, going to finish up esswraiths, then doing island hopping. Any ideas how I'm going to do island hopping, guys?

Sweet Code! :) Looking forward to more improvements

Thanks! I'm trying to figure out how I'm going to island hop.
Hmm..

From: Vinyl Scratch
Thanks! I'm trying to figure out how I'm going to island hop.
Hmm..

Its not the actual island hopping its the fact you need to know when and where to island hop in realtime. Injection bots can do it decently because they scan things off screen in a decent radius, but you cant do that with colour.

Troll you got any pics of this running

Going to make a vid soon.

From: Vinyl Scratch
Going to make a vid soon.

Proggies? I could make a video of something running for 10mins when in theory everyone would much rather see a 6hr proggy.

Good point. I'll do proggies, then. Thanks, Olly.

Update! Almost done!! Now, I really have to work on island hopping.
Grr..

Critique?

Goodluck with this. Great progress.

Thanks! Hmm.. Wondering how I'm going to detect when to go to the next island.

Be more specific, I can lay some options for you.

He wants to know when to hop to the next little piece of land, that holds more of the things to siphon.

Thanks, NKN. P1nky, NKN, any ideas on detection method?

I'm curious about this, i'll be well over 99 when this launches fully.
But i'll test it anyhow, just to compare to the one i'm using now.

Sweet. Let me know how it works.

So what happened to this…. dead project? I really want to see this fully released!

From: Ollybest
So what happened to this…. dead project? I really want to see this fully released!

This I got told like 2 week back about getting to test :(
Mat

He's busy.
Don't try to fuck with him I know you are.
Leave him alone if you're going to rip on him.
@Olly

From: NKN
He's busy.
Don't try to fuck with him I know you are.
Leave him alone if you're going to rip on him.
@Olly

Lol? I want to see some competition for Zmons. Also are you his personal assistant?

From: Ollybest
Lol? I want to see some competition for Zmons. Also are you his personal assistant?

No, but you're trying to start a third episode with him. Isn't that why he left skype, to get away from you, you just continue to follow him to provoke arguments.

From: NKN
No, but you're trying to start a third episode with him. Isn't that why he left skype, to get away from you, you just continue to follow him to provoke arguments.

Pretty sure he left skype because actually he noticed what he said was totally wrong regardless this isn't the place to be talking about this. peace

From: Ollybest
Pretty sure he left skype because actually he noticed what he said was totally wrong regardless this isn't the place to be talking about this. peace

No, I left the Skype Group because I'm tired of your Sh*t. Btw, after this, I'm ending it.

Can't see your posts anymore, bro.


@Mods, Sorry for the flame war. I'm ending it here.

I think you should have a look into making an SPS map for each level using this: http://runescape.wikia.com/wiki/Map:Runespan_Lower_Level
as a guide and then from there are you could get your position and determine whether or not you can island hop.

Just a thought, I'd also take a look at J J's function for separating dungeoneering rooms on the minimap, I believe that could quite easily be translated using MMtoMS to work out what is on your island for siphoning.

Just a thought, don't globally declare X,Y. It looks bad on applications.

I'm going to do another re-code, for Lape. It's faster, and more reliable. I'll do SPS maps when SPS is implemented into it. I'll start on the re-code soon.