Page 1 of 8 123 ... LastLast
Results 1 to 25 of 199

Thread: Deadlys' Air Runecrafter

  1. #1
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Deadlys' Air Runecrafter



    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:


    Recommended Set Ups

    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
    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 View Post
    Progress Report:
    You have been crafting for:5 Hours, 57 Minutes and 9 Seconds
    Exp gained:20925
    Quote Originally Posted by RegisterFree View Post
    " You have been crafting for:6 Hours, 43 Seconds
    Exp gained:22410 Crafted Air runes".
    Quote Originally Posted by Danielius View Post
    You have been crafting for:5 Hours, 5 Minutes and 57 Seconds
    Exp gained:18900
    Last edited by Deadly Serious; 02-17-2012 at 08:33 AM.

  2. #2
    Join Date
    Dec 2011
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  3. #3
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When does it change? I've been running it fine. When it does change, I'll just change it manually in my first post.

  4. #4
    Join Date
    Jul 2010
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

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

  5. #5
    Join Date
    Nov 2011
    Location
    United States
    Posts
    815
    Mentioned
    6 Post(s)
    Quoted
    284 Post(s)

    Default

    Sweet will give it a try tomrrow, my pure needs to level rcing and MSI doesnt work atm. Hopefully this works nicely.

  6. #6
    Join Date
    Dec 2011
    Location
    Texas
    Posts
    348
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  7. #7
    Join Date
    Dec 2011
    Location
    Texas
    Posts
    348
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Edit: Computer double posted sorry

  8. #8
    Join Date
    Feb 2009
    Location
    Hungary (GMT + 1)
    Posts
    1,774
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Last edited by Sabzi; 01-09-2012 at 04:49 PM.

  9. #9
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ?

    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
    Last edited by chowe010; 01-09-2012 at 04:51 PM.

  10. #10
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    I must admit Flight HumanMouse is very nice



    ^^

  11. #11
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by qingqinghd View Post
    [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 View Post
    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 View Post
    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.
    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.
    Last edited by Deadly Serious; 01-10-2012 at 12:30 AM.

  12. #12
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  13. #13
    Join Date
    Nov 2011
    Posts
    83
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

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

  14. #14
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by chowe010 View Post
    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 View Post
    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.

  15. #15
    Join Date
    Feb 2009
    Location
    Hungary (GMT + 1)
    Posts
    1,774
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  16. #16
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Last edited by Deadly Serious; 01-11-2012 at 01:26 AM.

  17. #17
    Join Date
    Jan 2012
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #18
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'ObjectDTM/ObjDTMInclude.Simba' used from ''

  19. #19
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  20. #20
    Join Date
    Feb 2011
    Location
    Vancouver Island
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thankyou

    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.

  21. #21
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mike-gee420 View Post
    thankyou

    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.

  22. #22
    Join Date
    Jan 2012
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mike-gee420 View Post
    thankyou

    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

  23. #23
    Join Date
    Dec 2011
    Posts
    327
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ancient View Post
    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.

  24. #24
    Join Date
    Jan 2012
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Deadly Serious View Post
    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

  25. #25
    Join Date
    Jan 2012
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Deadly Serious View Post
    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

Page 1 of 8 123 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •