Deadlys' Air Runecrafter

Printable View

Show 40 post(s) from this thread on one page

01-08-2012, 10:56 PM
Deadly Serious

Deadlys' Air Runecrafter
http://i.imgur.com/39RQK.gif

It is fully functional with SRL5

You need to download this to be able to use the script: http://villavu.com/forum/showthread....objdtm+walking
Follow the instructions at the bottom of this page on how to download and install it correctly.

This is my first script, it crafts air runes and runs back to the bank to withdraw more rune essence.
To be able to bank the air runes, so you can get an extra essence. Take out the // in the "depositall; which is in the banking procedure.

Important
Make sure your rune essence is visible in your bank when you first open it up, make sure there is no other runes visible in the bank/ bank tabs.

Start Point:
http://i43.tinypic.com/2rgcsa1.png

Recommended Set Ups
http://i40.tinypic.com/25jbh4z.png
Light weight gear and air tiara equipped

Current Features
Rests at the musician when run energy is below 50%

Future Updates
Progress Reports (How long the script has been running, how many trips you've made and eventually runecrafting exp gained, airs crafted, cash gained.)
Auto Updater.

Known Bugs
Fixed: It uses the banker next to the one that it's at. It might be from the angles I've selected.
Fixed: Occasionally gets stuck in a loop listening to the musician. I believe it is from the while not RunEnergy(50) do screwing up.

Current Version:
Version 1.7: Currently flawless and I've sped it up.
Version 1.6: It should be working with the new update.
Version 1.5: Cleaned the script up a bit.
Version 1.4: Made a fail safe for the alter room.
Version 1.3: Added a pretty crappy progress report system, will it make it more cosmetic later.
I would appreciate it a lot if you could post all your long progress reports here.
Version 1.2: I've sped up the script, since flag detection is now working :D
Version 1.1: I've fixed both of the bugs with help from this community. I've also added in more accurate finding systems, TPA, Bitmap. I made it faster without ruining its accuracy.
Version 1: Just released. Cleaned up by Sabzi, implementing new finding object functions by tomorrow. It should compile with SRL5. I've taken out right clicking on the Enter, alter and leave for the time being since they seem to be a bit temperamental after the update.

Progress Reports:
All future long progress reports will go here.
Quote:
Originally Posted by Surfing

Progress Report:

You have been crafting for:5 Hours, 57 Minutes and 9 Seconds Exp gained:20925
Quote:

Originally Posted by RegisterFree

" You have been crafting for:6 Hours, 43 Seconds
Exp gained:22410 Crafted Air runes".

Quote:

Originally Posted by Danielius

You have been crafting for:5 Hours, 5 Minutes and 57 Seconds
Exp gained:18900
01-09-2012, 03:05 AM
Grihmm

Everything that ends with .scar will have to be changed to .simba to work with SRL5. Experienced users will be able to run this, but newbies probably won't. Just letting you know.
01-09-2012, 04:45 AM
Deadly Serious

When does it change? I've been running it fine. When it does change, I'll just change it manually in my first post.
01-09-2012, 07:22 AM
qingqinghd

[Error] (48:1): Unknown identifier 'ObjDTM_Setup' at line 47
Compiling failed.
01-09-2012, 07:55 AM
Itankbots

Sweet will give it a try tomrrow, my pure needs to level rcing and MSI doesnt work atm. Hopefully this works nicely.
01-09-2012, 02:40 PM
Jhangir

I noticed you dont have a bank pin option. Check my script out and it will tell you how to use one. Its very easy takes like 10 seconds.
01-09-2012, 02:47 PM
Jhangir

Edit: Computer double posted sorry

I just want to mention that the script by the looks of it seems unstable.
I hoped others would point things out, but oh well:
You got at least one function that you don't even use and that's for a mining script if I am not mistaken. The CheckAndClick function that is.

You seem to miss quiet a lot begin/end after certain ifs so check them out, if you don't have a begin/end only the first line(or better say, instruction) after an if statement will or won't run depending on the outcome of the statement.

I see you like FindObjCustom, which is bad in my opinion, take a look at other methods, such as TPA/ATPA object finding. I see you already tried dtms for items, you can also try bitmaps, but TPAs should work too. Dtms, I think, should work tho.

I am not sure how you gathered the colors, it's best way to use ACA while changing servers(or whatever to update the colors). There is even a video tutorial by YoHoJo about using it.

To tell the truth at the half of the script I lost patience because of the ugly, horrible standards, so I gave up, I highly suggest you to correct that.

EDIT: Okay, I took the time to fix up standards:

Simba Code:

program Deadlys_AirCrafter;

{$i SRL/SRL.simba}
{DEFINE SMART}
//{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL/SRL/misc/paintsmart.simba}
{$i ObjectDTM/ObjDTMInclude.Simba}


Const         //Yoho's
  SERVER  = ('54');     // Enter "0" to pick a random server.
  MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
  SRLStats_Username = ''; // Your SRL Stats Username
  SRLStats_Password = ''; // Your SRL Stats Password
  NumbOfPlayers= 1;     //How many players are you using
  StartPlayer=   0;     //Player to start auoting with! (0 means first char)



{*******************************************************************************
procedure DeclarePlayers;
By: SRL
Description: SRL's Player Setup
*******************************************************************************}
procedure DeclarePlayers;
var
  i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := 'Username';     //Player username.
    Pass        := 'Password';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
  end;
end;

Procedure ObjSetup;   //Euph's
begin;
  ObjDTM_Setup;
end;

Procedure StatsGuise(wat:String); //Yoho's
Begin
  Status(wat);
  Disguise(wat);
End;

//Function CheckAndClick(X,Y:Integer):Boolean;
//By: YoHoJo
//Description: Moves mouse to x,y, checks for uptext, and clikcs if found
//*******************************************************************************}
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
  MMouse(x, y, 5, 5);
  {Wait(100 + Random(50));
  If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
  If WaitUpTextMulti(['Mine','ine'], 150) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
  End;
End;

Procedure FailSafe(Reason:String);     //Yoho's
begin
  Players[CurrentPlayer].Loc:=reason;
  Logout;
  Terminatescript;
end;

Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
  var
    randSpeed: extended;
    X,Y,X2,Y2,A,Dist,MP: integer;
  begin
    A := MouseSpeed;
    GetMousePos(X, Y);
    Dist := Distance(X, Y, eX, eY);
    MP := Round(Dist/150);
    if MP < 0 then
      MP := 1;

    randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
    X2 := RandomRange(eX-(A*MP), eX+(A*MP));
    Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
    WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
    GetMousePos(X, Y);
    MMouse(eX, eY, ranX, ranY);
    MouseSpeed := A;
  end;

 Procedure Loadvars;
 begin;
  MouseSpeed := RandomRange(14, 18);
 end;

Procedure Antiban;   //I liked a few of Yoho's antibans, I implemented them here
Begin
  Case Random(192) Of
    0: HoverSkill('runecrafting', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
    6: RandomMovement;
  End;
end;

Procedure WithdrawEss;
var
  x, y:integer; //esssdtm

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  SetAngle(SRL_ANGLE_HIGH);
  If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [5662832, 5927290, 6323335, 6584191], 2)) Then
    Mouse(x, y, 5, 5, False);

  Wait(300+random(250));
  ChooseOption('Use-quickly');
  Wait(2500+random(500));
  Wait(300+random(400));

  //EsssDTM := DTMFromString('mwQAAAHic42RgYDjAyMBwGIjPA/EhIN4MxDuB+DQQnwXibUCcDVQXwwChK4E4E4jjgTgRiIuAuBSI3ZydgSQTXgw0iioYDgALlQuK');
  //if FindDTM(EsssDTM,x, y, 1, 1, 200, 200) then
  If (FindObjCustom(x,y,['ithdraw'], [4408134, 5066065, 4802892], 1)) Then
    Mouse(x, y, 5, 5, False);

  Wait(300+random(250));
  ChooseOption('All');
  Wait(500+random(250));
  //FreeDTM(EsssDTM);
end;

function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;
var
  i, x, y, rx, ry: Integer;
  TPA: TPointArray;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
  SortTPAFrom(TPA, SortFrom);

  for i := 0 to High(TPA) do
  begin
    x := TPA[i].x;
    y := TPA[i].y;

    rx := RandomRange(-6, 6);
    ry := RandomRange(-6, 6);
    if (not rs_OnMinimap(x + rx, y + ry)) then
      Continue;

    Mouse(x + rx, y + ry, 0, 0, true);
    FFlag(0);
    Wait(200 + Random(500));
    Result := True;
    Break;
  end;
end;

Procedure Walkies;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  if (Walking(2570554, 15, Point(583, 38))) then
    Wait(3000+Random(500));
end;

procedure Resting;
var
  X,Y: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  while not RunEnergy(50) do   //WTF? This must be wrong ...
  If FindObjCustom(x, y, ['Talk', 'alk'], [14464635, 9469760, 4297607], 10) then
  begin
    Writeln('Listening to the blissful music')
    Getmousepos(x, y)
    Mouse(x, y, 3, 3, False);
    Waitoption('isten', 3000);
    Wait(10000+Random(5000));
    RunEnergy(70);
  end;
end;

procedure WalkToAlter;    //Mine, that's rare
var
  Path: TStringArray;
  I: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  Path:= ['570:108:4:1:7:584:129:1:7:610:111:1:7:602:150:1:7:623:133'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(3000+Random(500));
  Resting;
  Path:= ['572:124:4:5:7:569:77:1:7:558:100:1:7:579:95:1:7:557:78'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(2500+Random(500));
  Path:= ['566:117:4:1:7:576:103:3:7:582:128:1:7:593:103:1:7:606:115'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(5000+Random(1000));
end;


Procedure Enter;
var
  X,Y: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  If FindObjCustom(x, y, ['Ent', 'Enter'], [16631951, 16629135, 16171659, 14925721, 16499851], 30) then
  begin
    Writeln('Entered into the Mysterious rock formation')
    Getmousepos(x, y)

    Case random(11) of
      0..8: mouse(x, y, 8, 8, true);
      9..10:
      begin;
        Mouse(x, y, 5, 5, False);
        Waitoption('nter', 3000);
      end;
    end;
  end;
end;

Procedure Crafting;
Var
  x,y: integer;
begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  If FindObjCustom(x, y, ['raft', 'Rune'], [5591380, 5920344, 5723222, 5525587, 5525843, 5722966, 5723222], 3) then
  begin
  Writeln('Crafted Air runes')
  Getmousepos(x, y)

  Case random(11) of
    0..8: mouse(x, y, 15, 15, True);
    9..10:
    begin;
      Mouse(x, y, 15, 15, False)
      Waitoption('raft', 3000);
    end;
  end;
  end;
end;

Procedure Waiting;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  Wait(4500+random(600));
end;

Procedure Leave;
var
  X,Y: Integer;

Begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  If FindObjCustom(x, y, ['Ent', 'Enter'], [6594721, 4884104], 10) then
  begin
    Writeln('Leaving the Mysterious rock formation')
    Getmousepos(x, y)

    Case random(11) of
      0..8: mouse(x, y, 2, 2, true);
      9..10:
      begin;
        Mouse(x, y, 2, 2, false)
        Waitoption('nter', 3000);
      end;
    end;
  end;
end;

Procedure BackToTheBank;
var
  Path: TStringArray;
  I: Integer;

Begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  Case Random(5) Of

    0..4:
    begin
      Path:= ['685:61:4:3:7:631:39:1:7:673:69:1:7:676:39:1:7:661:77'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(2500+Random(500));
      Path:= ['684:52:4:1:7:693:78:5:7:634:38:1:7:643:56:1:7:623:39'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(3500+Random(500));
      Resting;
      Path:= ['675:49:4:1:7:666:69:1:7:678:90:1:7:642:85:1:7:658:104'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(1000+Random(200));
      Path:= ['685:56:4:0:7:650:114:1:7:650:66:1:7:635:22:1:7:618:104'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(5500+Random(500));
    end;
  end;
end;

begin
  //Here should be smart settings if I'm not mistaken.
  SetupSRL;
  Declareplayers;
  Loadvars;
  ObjSetup;
  Repeat
    Withdrawess;
    Walkies;
    WalkToAlter;
    Enter;
    Waiting;
    Crafting;
    Waiting;
    Leave;
    Waiting;
    BackToTheBank;
  Until(false)
end.

It's interesting why there is only one space where I used tab, but if you paste this back to simba it should be okay, I tired.

Please note that I didn't changed anything in the program flow, everything should be the same as before, I have only removed unnecessary begins and ends, there were a lot at obscure places. I may have made mistakes of course.

You are using DidRedClick in a bad way, it should be like:

Simba Code:

if DidRedClick then
  DoStuff;

It's seems a butchered together script if you ask me, which is not bad with proper crediting which you seem to do IF you understand what you do which you don't seem to do. Prove me wrong, I would be happy.

EDIT EDIT: Oh, I think I made it SRL-5 I think, not sure, it compiled for me, but that's all I checked.

01-09-2012, 04:46 PM
chowe010

?

when i try to run
this script i get the error
Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.simba' used from ''

how do i fix this
01-09-2012, 05:12 PM
Mat

I must admit Flight HumanMouse is very nice :)

Quote:

Originally Posted by qingqinghd

[Error] (48:1): Unknown identifier 'ObjDTM_Setup' at line 47
Compiling failed.

I'm going to change the script around a bit, so it should be fixed by today or tomorrow. It should really compile for you now though >.<

Quote:

Originally Posted by Jhangir

I noticed you dont have a bank pin option. Check my script out and it will tell you how to use one. Its very easy takes like 10 seconds.

I'll add this in as well, I forgot to put it in with declare players.

Quote:

Originally Posted by Sabzi

Simba Code:

program Deadlys_AirCrafter;

{$i SRL/SRL.simba}
{DEFINE SMART}
//{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL/SRL/misc/paintsmart.simba}
{$i ObjectDTM/ObjDTMInclude.Simba}


Const         //Yoho's
  SERVER  = ('54');     // Enter "0" to pick a random server.
  MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
  SRLStats_Username = ''; // Your SRL Stats Username
  SRLStats_Password = ''; // Your SRL Stats Password
  NumbOfPlayers= 1;     //How many players are you using
  StartPlayer=   0;     //Player to start auoting with! (0 means first char)



{*******************************************************************************
procedure DeclarePlayers;
By: SRL
Description: SRL's Player Setup
*******************************************************************************}
procedure DeclarePlayers;
var
  i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := 'Username';     //Player username.
    Pass        := 'Password';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;
  end;
end;

Procedure ObjSetup;   //Euph's
begin;
  ObjDTM_Setup;
end;

Procedure StatsGuise(wat:String); //Yoho's
Begin
  Status(wat);
  Disguise(wat);
End;

//Function CheckAndClick(X,Y:Integer):Boolean;
//By: YoHoJo
//Description: Moves mouse to x,y, checks for uptext, and clikcs if found
//*******************************************************************************}
Function CheckAndClick(X,Y:Integer):Boolean;
Begin
  MMouse(x, y, 5, 5);
  {Wait(100 + Random(50));
  If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
  If WaitUpTextMulti(['Mine','ine'], 150) Then
  Begin
    Result:=True;
    GetMousePos(x, y);
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
  End;
End;

Procedure FailSafe(Reason:String);     //Yoho's
begin
  Players[CurrentPlayer].Loc:=reason;
  Logout;
  Terminatescript;
end;

Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
  var
    randSpeed: extended;
    X,Y,X2,Y2,A,Dist,MP: integer;
  begin
    A := MouseSpeed;
    GetMousePos(X, Y);
    Dist := Distance(X, Y, eX, eY);
    MP := Round(Dist/150);
    if MP < 0 then
      MP := 1;

    randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
    X2 := RandomRange(eX-(A*MP), eX+(A*MP));
    Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
    WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
    GetMousePos(X, Y);
    MMouse(eX, eY, ranX, ranY);
    MouseSpeed := A;
  end;

 Procedure Loadvars;
 begin;
  MouseSpeed := RandomRange(14, 18);
 end;

Procedure Antiban;   //I liked a few of Yoho's antibans, I implemented them here
Begin
  Case Random(192) Of
    0: HoverSkill('runecrafting', False);
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: IdleTime(100+random(700), 100+Random(100), 0.2+RandomE/2);
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
    6: RandomMovement;
  End;
end;

Procedure WithdrawEss;
var
  x, y:integer; //esssdtm

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  SetAngle(SRL_ANGLE_HIGH);
  If (FindObjCustom(x,y,['Bank','nk','booth','oot'], [5662832, 5927290, 6323335, 6584191], 2)) Then
    Mouse(x, y, 5, 5, False);

  Wait(300+random(250));
  ChooseOption('Use-quickly');
  Wait(2500+random(500));
  Wait(300+random(400));

  //EsssDTM := DTMFromString('mwQAAAHic42RgYDjAyMBwGIjPA/EhIN4MxDuB+DQQnwXibUCcDVQXwwChK4E4E4jjgTgRiIuAuBSI3ZydgSQTXgw0iioYDgALlQuK');
  //if FindDTM(EsssDTM,x, y, 1, 1, 200, 200) then
  If (FindObjCustom(x,y,['ithdraw'], [4408134, 5066065, 4802892], 1)) Then
    Mouse(x, y, 5, 5, False);

  Wait(300+random(250));
  ChooseOption('All');
  Wait(500+random(250));
  //FreeDTM(EsssDTM);
end;

function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;
var
  i, x, y, rx, ry: Integer;
  TPA: TPointArray;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
  SortTPAFrom(TPA, SortFrom);

  for i := 0 to High(TPA) do
  begin
    x := TPA[i].x;
    y := TPA[i].y;

    rx := RandomRange(-6, 6);
    ry := RandomRange(-6, 6);
    if (not rs_OnMinimap(x + rx, y + ry)) then
      Continue;

    Mouse(x + rx, y + ry, 0, 0, true);
    FFlag(0);
    Wait(200 + Random(500));
    Result := True;
    Break;
  end;
end;

Procedure Walkies;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  if (Walking(2570554, 15, Point(583, 38))) then
    Wait(3000+Random(500));
end;

procedure Resting;
var
  X,Y: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  while not RunEnergy(50) do   //WTF? This must be wrong ...
  If FindObjCustom(x, y, ['Talk', 'alk'], [14464635, 9469760, 4297607], 10) then
  begin
    Writeln('Listening to the blissful music')
    Getmousepos(x, y)
    Mouse(x, y, 3, 3, False);
    Waitoption('isten', 3000);
    Wait(10000+Random(5000));
    RunEnergy(70);
  end;
end;

procedure WalkToAlter;    //Mine, that's rare
var
  Path: TStringArray;
  I: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  Path:= ['570:108:4:1:7:584:129:1:7:610:111:1:7:602:150:1:7:623:133'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(3000+Random(500));
  Resting;
  Path:= ['572:124:4:5:7:569:77:1:7:558:100:1:7:579:95:1:7:557:78'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(2500+Random(500));
  Path:= ['566:117:4:1:7:576:103:3:7:582:128:1:7:593:103:1:7:606:115'];

  for I := 0 to 0 do
    ObjDTM_Walk(Path[i], 0, 100, 80, True);

  Wait(5000+Random(1000));
end;


Procedure Enter;
var
  X,Y: Integer;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  If FindObjCustom(x, y, ['Ent', 'Enter'], [16631951, 16629135, 16171659, 14925721, 16499851], 30) then
  begin
    Writeln('Entered into the Mysterious rock formation')
    Getmousepos(x, y)

    Case random(11) of
      0..8: mouse(x, y, 8, 8, true);
      9..10:
      begin;
        Mouse(x, y, 5, 5, False);
        Waitoption('nter', 3000);
      end;
    end;
  end;
end;

Procedure Crafting;
Var
  x,y: integer;
begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  If FindObjCustom(x, y, ['raft', 'Rune'], [5591380, 5920344, 5723222, 5525587, 5525843, 5722966, 5723222], 3) then
  begin
  Writeln('Crafted Air runes')
  Getmousepos(x, y)

  Case random(11) of
    0..8: mouse(x, y, 15, 15, True);
    9..10:
    begin;
      Mouse(x, y, 15, 15, False)
      Waitoption('raft', 3000);
    end;
  end;
  end;
end;

Procedure Waiting;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  Wait(4500+random(600));
end;

Procedure Leave;
var
  X,Y: Integer;

Begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  If FindObjCustom(x, y, ['Ent', 'Enter'], [6594721, 4884104], 10) then
  begin
    Writeln('Leaving the Mysterious rock formation')
    Getmousepos(x, y)

    Case random(11) of
      0..8: mouse(x, y, 2, 2, true);
      9..10:
      begin;
        Mouse(x, y, 2, 2, false)
        Waitoption('nter', 3000);
      end;
    end;
  end;
end;

Procedure BackToTheBank;
var
  Path: TStringArray;
  I: Integer;

Begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;

  Case Random(5) Of

    0..4:
    begin
      Path:= ['685:61:4:3:7:631:39:1:7:673:69:1:7:676:39:1:7:661:77'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(2500+Random(500));
      Path:= ['684:52:4:1:7:693:78:5:7:634:38:1:7:643:56:1:7:623:39'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(3500+Random(500));
      Resting;
      Path:= ['675:49:4:1:7:666:69:1:7:678:90:1:7:642:85:1:7:658:104'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(1000+Random(200));
      Path:= ['685:56:4:0:7:650:114:1:7:650:66:1:7:635:22:1:7:618:104'];

      for I := 0 to 0 do
        ObjDTM_Walk(Path[i], 0, 100, 80, True);

      Wait(5500+Random(500));
    end;
  end;
end;

begin
  //Here should be smart settings if I'm not mistaken.
  SetupSRL;
  Declareplayers;
  Loadvars;
  ObjSetup;
  Repeat
    Withdrawess;
    Walkies;
    WalkToAlter;
    Enter;
    Waiting;
    Crafting;
    Waiting;
    Leave;
    Waiting;
    BackToTheBank;
  Until(false)
end.

Simba Code:

if DidRedClick then
  DoStuff;

Yes, it is a butchered script. I quickly edited it from my astral crafter to this script you see before you. I needed to get 1-43 runecrafting on my pure. You'd actually be surprised how stable it is. The only problem I had was that it occasionally looped the rest at musician part.
Thank you for taking the time to comment back and make suggestions and fix some of my problems.
I'm not just abandoning this script, I'm going to make it better and improve the findobjcustom. I only used that because I couldn't get my dtms working at the time which I had no clue why it wasn't working.
Edit: The check and click function was on another script, I didn't use it in this one unfortunately. I edited it out just then.

01-10-2012, 04:34 AM
chowe010

it still wont work it will compile with no errors but it wont do anything but sit there and wont start a client ?
01-10-2012, 04:48 AM
Mink

Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ' '
Quick Fix? Sorry for leeching, I need the rc.
01-10-2012, 05:16 AM
Deadly Serious

Quote:

Originally Posted by chowe010

it still wont work it will compile with no errors but it wont do anything but sit there and wont start a client ?

Ahh, the same thing happens to me. I believe it is because we don't have srl5 or Sabzi might have changed something by accident.

Quote:

Originally Posted by Mink

Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ' '
Quick Fix? Sorry for leeching, I need the rc.

Wait, I'll fix it in a few hours. I'm a bit busy at the moment.
01-10-2012, 09:49 AM
Sabzi

Well, it was not meant to fix anything but the standards and the little changes I made are at the including/define part which I did from memory and I haven't scripted in a while so I might did something wrong, it's very possible. Sorry :/. I thought you will just use it as a base to further improve the script.
01-11-2012, 12:59 AM
Deadly Serious

Nah, it's fine. I'm sure it's just a small fix. I'll get onto it right now. Fixed it, I just changed a few things around. This script will be back up and running soon. Just implementing bitmap for finding the ess. I'll improve it more later on.
01-11-2012, 11:12 PM
chowe010

[Error] C:\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(578:7): Unknown identifier 'SMART_DrawPolygons' at line 577
Compiling failed.
01-11-2012, 11:59 PM
mike-gee420

Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ''
01-12-2012, 12:20 AM
Deadly Serious

If you receive the ObjectDTM error, you need to download this: http://villavu.com/forum/showthread....objdtm+walking

thankyou :D

Simba Code:

[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'KMTARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'ITARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'X' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'Y' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'NOBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'YESBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2631:3): Variable 'PRINTSTRINGS' never used at line 2630
Compiled successfully in 1782 ms.
Successfully executed.

Now this keeps happening, and it just sits doing nothing while its running.

Quote:

Originally Posted by mike-gee420

thankyou :D

Simba Code:

[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'KMTARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'ITARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'X' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'Y' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'NOBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'YESBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2631:3): Variable 'PRINTSTRINGS' never used at line 2630
Compiled successfully in 1782 ms.
Successfully executed.

Now this keeps happening, and it just sits doing nothing while its running.

Have you updated SPS, SRL, ODSTM, etc?
It clicks the banker for me and doesn't click "Use-Quickly" but that's because I don't think they've updated simba fully.
The "Hints" aren't from my script, they're from the inbuilt scripts.

Quote:

Originally Posted by mike-gee420

thankyou :D

Simba Code:

[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'KMTARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2114:3): Variable 'ITARGET' never used at line 2113
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'X' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2629:3): Variable 'Y' never used at line 2628
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'NOBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2630:3): Variable 'YESBMP' never used at line 2629
[Hint] E:\Programs\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(2631:3): Variable 'PRINTSTRINGS' never used at line 2630
Compiled successfully in 1782 ms.
Successfully executed.

Now this keeps happening, and it just sits doing nothing while its running.

yea, i got the same :s

01-12-2012, 01:06 AM
Deadly Serious

Quote:

Originally Posted by Ancient

yea, i got the same :s

Have you copied and pasted my script from today into simba? I've made a few changes today, so, you need to copy and paste it every time I make a change.
I'm going to have a download link to it soon and I'll apply an auto updater to it so it isn't as much of a hassle.
01-12-2012, 01:08 AM
Ancient

Quote:

Originally Posted by Deadly Serious

Have you updated SPS, SRL, ODSTM, etc?
It clicks the banker for me and doesn't click "Use-Quickly" but that's because I don't think they've updated simba fully.
The "Hints" aren't from my script, they're from the inbuilt scripts.

yes, fully update
01-12-2012, 01:09 AM
Ancient

Quote:

Originally Posted by Deadly Serious

Have you copied and pasted my script from today into simba? I've made a few changes today, so, you need to copy and paste it every time I make a change.
I'm going to have a download link to it soon and I'll apply an auto updater to it so it isn't as much of a hassle.

yea, i copy paste it like 5 sec ago.
And that whould be great :)
01-12-2012, 05:21 AM
Deadly Serious

Quote:

Originally Posted by Ancient

yea, i copy paste it like 5 sec ago.
And that whould be great :)

It should be completely functional with SRL5.
01-12-2012, 06:07 AM
Ancient

its working now, bot another problem.
afther he banks he runs north-west from the bank (the way to the ge)
and thn he can find next dtm spot :s
and maybe get the mousespead a little faster?
the bot is clicking, waiting until he stand on that spot and click on next dtm .
01-12-2012, 06:24 AM
Deadly Serious

Quote:

Originally Posted by Ancient

its working now, bot another problem.
afther he banks he runs north-west from the bank (the way to the ge)
and thn he can find next dtm spot :s
and maybe get the mousespead a little faster?
the bot is clicking, waiting until he stand on that spot and click on next dtm .

I've never seen that happen before, if it happens again tell me.
It isn't the mouse speed it is because I've made it have a wait time. The flag detection for dtm walking isn't working very well and sometimes it automatically looks for a spot after walking. So, it might choose another random spot aborting and thus stopping the script.
Also when the bot is running it sucks at clicking on an object, so it mis-clicks a lot.
I haven't made any fail safes to detect where it is, as soon as I find a tutorial, I'll make fail safes and speed up the script.

now this keeps popping up..

Simba Code:

[Error] (130:10): Duplicate identifier 'RUNENERGY' at line 129
Compiling failed.

01-12-2012, 09:29 AM
Deadly Serious
Quote:
Originally Posted by mike-gee420

now this keeps popping up..

Simba Code:

[Error] (130:10): Duplicate identifier 'RUNENERGY' at line 129
Compiling failed.
Yeah, I'm getting help to fix the musician from looping, it won't work for now. I'll post an update when I fix it.
I added in a temporary fix, I don't know if I've fixed the musician looping yet.
01-12-2012, 09:56 AM
fre

lol
you have no login function.
Might wanna add that :p
01-12-2012, 11:06 AM
Deadly Serious

Quote:

Originally Posted by fre

lol
you have no login function.
Might wanna add that :p

Jeeze, you just need to spoon feed people these days :P
I'll add one tomorrow.
01-12-2012, 04:33 PM
mike-gee420

Quote:

Originally Posted by fre View Post
lol
you have no login function.
Might wanna add that

lol

Quote:

Jeeze, you just need to spoon feed people these days :P
I'll add one tomorrow.

But its greatly appreciated :]
01-12-2012, 05:30 PM
Ancient

look, i start script @ bank, script banks, take all rune ess and click north west of the bank and then spams it in client "Did not find Object DTM."

But you doing a great job Deadly Serious !

http://img855.imageshack.us/img855/3671/airrunner.png
01-12-2012, 08:05 PM
Biologically

[Error] (472:17): Unknown identifier 'IntToPoint' at line 471
Compiling failed.

[Error] C:\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(485:7): Unknown identifier 'SMART_DrawPolygons' at line 484
Compiling failed.
01-12-2012, 09:58 PM
sfs
Quote:

look, i start script @ bank, script banks, take all rune ess and click north west of the bank and then spams it in client "Did not find Object DTM."

I think the coordinates are off here:
Simba Code:
```
Procedure Walkies;

begin
  if not loggedin then exit;
  FindNormalRandoms;
  Antiban;
  DidRedClick;
  if (Walking(2570554, 15, Point(583, 38))) then
    Wait(3000+Random(500));
end;
```
01-13-2012, 01:47 AM
Deadly Serious
Quote:

Originally Posted by Ancient

look, i start script @ bank, script banks, take all rune ess and click north west of the bank and then spams it in client "Did not find Object DTM."

But you doing a great job Deadly Serious !

http://img855.imageshack.us/img855/3671/airrunner.png

Thanks, are you starting off right next to the first banker?(It shows you in my first post where to start it) You need to start there or it might choose a random point like that.

Quote:

Originally Posted by Biologically

[Error] (472:17): Unknown identifier 'IntToPoint' at line 471
Compiling failed.

[Error] C:\Simba\Includes\ObjectDTM/ObjDTMInclude.Simba(485:7): Unknown identifier 'SMART_DrawPolygons' at line 484
Compiling failed.

You need to have updated to srl5 and have objtdm in your extensions menu and then update ODTM. I showed you a link on how to do it in my first post.

I ran it for a few hours last night and the only problem I've seen is that it sometimes misses the leaving portal by a few pixels and then has to wait there for a few mins until it comes across that function again.
It also sometimes misclicks "Use-Quickly," which I'm guessing is something to do with the new update and they haven't perfected it yet.
Quote:
Originally Posted by sfs

I think the coordinates are off here:

Simba Code:

Procedure Walkies;

begin
if not loggedin then exit;
FindNormalRandoms;
Antiban;
DidRedClick;
if (Walking(2570554, 15, Point(583, 38))) then
Wait(3000+Random(500));
end;
No, they're correct. I think he started it in the wrong place.
01-14-2012, 12:18 AM
Drax

Hey bro i have followed the instructions of installing step by step but when i try update it says 'no update available' thus meaning the directory objectDTM/objectDTM.simba isnt being created so no scripts can work. When i try to do a force update by override i get an access vilolation telling me that i either have to kill the program or riss corrupting data, PLEASE HELP SOMEONE
01-14-2012, 12:26 AM
Deadly Serious

Quote:

Originally Posted by Surfing

Hey bro i have followed the instructions of installing step by step but when i try update it says 'no update available' thus meaning the directory objectDTM/objectDTM.simba isnt being created so no scripts can work. When i try to do a force update by override i get an access vilolation telling me that i either have to kill the program or riss corrupting data, PLEASE HELP SOMEONE

It always says "Risk corrupting data" when instead of pressing the stop button you click exit and a box appears and you press okay. Just press the "cancel" button on the box that appears and then just exit out of simba and re-open.
Are you clicking update on the ODTM extension?
01-14-2012, 12:42 AM
Drax

Quote:

Originally Posted by Deadly Serious

It always says "Risk corrupting data" when instead of pressing the stop button you click exit and a box appears and you press okay. Just press the "cancel" button on the box that appears and then just exit out of simba and re-open.
Are you clicking update on the ODTM extension?

Thanks for the quick reply! But i solved the problem. It was my antivirus system (NOD32) blocking the domain *alt-f4.co.cc* for some stupid reason :\ i just allowed it and then OMFG it works! :P

Show 40 post(s) from this thread on one page