Results 1 to 12 of 12

Thread: script wont run

  1. #1
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default script wont run

    hello i have been tryin to run this script and it starts running fine for a little while my guess would be 10-20 minutes then it comes up with this.

    Error: Out Of Range at line 107
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap

    The script is here. i have put this also on the thread of this script and no one has answered it. it will also fight then like 3 seconds later say in debug box that the monster is dead when it isnt and start clicking other mosters. any help would be great thanx.

    Simba Code:
    program Auto_Soulsplit_Fighter;
    {$i srl/srl.simba}

    //This Script Does Not Seem To Work On The SoulSplit Downloadable Client!


    //It Does Work On The Web Client But You Need To Resize The Web Page To Fit The Client!


    //If That Does Not Work You Can Use SwiftKit For Runescape And Open SoulSplit.
    //There Are Details Online On How To Do That. (This Is What I Use)



    //SETUP

    // Please Login To SoulSplit Then Go To The Monster You Want To Kill,
    // Use "Pick A Colour" And Get A Unique Monster Colour And Set A Colour Tolerance.
    // When Ready To Run The Script Press "PAGE DOWN" To Fully Zoom Out And Keep
    // The Camera Angle As Standard Or PixelShift Will NOT Work Properly.

    // PixelShift May Need To Be Adjusted A Bit To Get It Working Perfect For You.

    const
      COLOR =  10922181;  //  Monster Colour
      TOL   =  15;        //  Colour Tolerance

    ///////////////////////////////////////////////////////
    //PLEASE DO NOT TOUCH UNLESS YOU KNOW WHAT YOUR DOING//


    function Click(): boolean;
    var
      x, y, w, h: integer;
      B: TBox;
    begin
      GetMousePos(x, y);
      w := 525;
      h := 338;
      GetClientDimensions(w, h);
      B := IntToBox(x - 15, y - 15, x + 15, y + 15);
      if B.x1 < 0 then B.x1 := 0;
      if B.y1 < 0 then B.y1 := 0;
      if B.x2 > w then B.x2 := w;
      if B.y2 > h then B.y2 := h;
      begin
        if findColorTolerance(x, y, 62713, B.x1, B.y1, B.x2, B.y2, 20) then
        begin
        Result := True
          Exit;
        end;
      end;
    end;


    Function YellowClick: Boolean;
    begin
      Result := Click;
    end;


    Function RedClick: Boolean;
    begin
      Result := Not Click;
    end;


    Function Moving: Boolean;
    var
      MovingBox: Tbox;
    begin
      MovingBox   := IntToBox(259, 133, 272, 151);
      Result := (AveragePixelShift(MovingBox, 500, 300) > 80);
      //Writeln(IntToStr(AveragePixelShift(MovingBox, 500, 300))); //Shows PixelShift in debug

    end;


    Function InFight: Boolean;
    var
      InFightBox: Tbox;
    begin
      InFightBox  := IntToBox(260, 137, 277, 185);
      Result := (AveragePixelShift(InFightBox, 500, 300) > 100);
      //Writeln(IntToStr(AveragePixelShift(InFightBox, 500, 300))); //Shows PixelShift in debug

    end;


    procedure FindMonster;
    var
      I, Kill : Integer;
      Corners, TPA: TPointArray;

    begin
      Corners := [Point(266, 174), Point(0, 0), Point(520, 0), Point(0, 340), Point(520, 340)];// Corners of the client and center point
      I := 0

      begin
        repeat
          if I = 4 then
            Exit;

          if FindColorsSpiralTolerance(Corners[i].X, Corners[i].Y, TPA, COLOR, MSX1, MSY1, MSX2, MSY2, TOL) then
            begin
              MarkTime(Kill);
              Mouse(TPA[i].X, TPA[i].Y, 0, 0, true);
              Writeln('Attempting To Attack!');

              if YellowClick then
                begin
                  Writeln('');
                  Writeln('Missed!');
                  Writeln('Searching Again!');
                  Writeln('');
                  Continue;
                end;

                if RedClick then
                begin
                  Wait(1500);

                if (TimeFromMark(Kill) > 2000) and not Moving then
                  begin
                    Writeln('');
                    Writeln('Monster Already Infight');
                    i := i + 1;
                    Writeln('Searching Again!');
                    Writeln('');
                    Continue;
                  end else

                  if InFight then
                    begin
                      Writeln('Attacking!');
                      begin
                        repeat
                          Wait(200);
                        until not InFight and not Moving or (TimeFromMark(Kill) > 12000);
                      end;
                      Writeln('Monster Dead!');
                      Writeln('');
                      Wait(1500);
                    end;
                  end;
              end;
          until (false);
      end;
    end;



    begin
      SetupSRL;
      ClearDebug;
      begin
        repeat
          FindMonster;
        until (false);
      end;
    end.
    Last edited by bmxgt187; 02-07-2013 at 06:45 PM.

  2. #2
    Join Date
    Sep 2012
    Location
    Here.
    Posts
    2,007
    Mentioned
    88 Post(s)
    Quoted
    1014 Post(s)

    Default

    Please put your script in [simba[ tags for readability reasons. Is this a script you got from Villavu or from a different website?

  3. #3
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    its from villavu.. sorry i am at work i couldnt do it.. i try to get all this done at work so when i get home its all play

  4. #4
    Join Date
    Sep 2012
    Location
    Here.
    Posts
    2,007
    Mentioned
    88 Post(s)
    Quoted
    1014 Post(s)

    Default

    Quote Originally Posted by bmxgt187 View Post
    its from villavu.. sorry i am at work i couldn't do it.. i try to get all this done at work so when i get home its all play
    If you found the script here, you should respond to where the script is actually located so the author can help you. And as far as using Simba tags, I've never had any problem adding them while at work, or even from my phone for that matter.

  5. #5
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by nivek1989 View Post
    If you found the script here, you should respond to where the script is actually located so the author can help you. And as far as using Simba tags, I've never had any problem adding them while at work, or even from my phone for that matter.
    as stated above i have posted it there and no response like 4 days now.. so im trying to find answers else where. i dont know how to use simba tags or i would have

  6. #6
    Join Date
    Sep 2012
    Location
    Here.
    Posts
    2,007
    Mentioned
    88 Post(s)
    Quoted
    1014 Post(s)

    Default

    To use Simba tags, you put [simba[ before the code and [/simba[ after the code. The issue is, the second '[' should be a ']'.

    Have you tried messaging the author? I would offer my help, but I noticed that's a rsps script and I'm not as familiar with those.
    Last edited by Kevin; 02-07-2013 at 06:43 PM.

  7. #7
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    anyone got any tips on this for me? and i tried to do the [simba] and [simba] after the code but i guess im not getting it

  8. #8
    Join Date
    Sep 2012
    Location
    Here.
    Posts
    2,007
    Mentioned
    88 Post(s)
    Quoted
    1014 Post(s)

    Default

    Quote Originally Posted by bmxgt187 View Post
    anyone got any tips on this for me? and i tried to do the [simba] and [simba] after the code but i guess im not getting it
    The second simba is [/simba[

  9. #9
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by nivek1989 View Post
    The second simba is [/simba[
    lol nice!! got it to work wow your right that looks so much better thank you!!

  10. #10
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    The author posted the script in August he won't be getting a response from the author.

  11. #11
    Join Date
    Feb 2013
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    The author posted the script in August he won't be getting a response from the author.
    ya im not sure what to do lolz i would like to just get one that clicks on the color selected and waits like 5 seconds then clicks next color how hard would that be to make on a rsps? and why would it be different for rsps?

  12. #12
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by bmxgt187 View Post
    ya im not sure what to do lolz i would like to just get one that clicks on the color selected and waits like 5 seconds then clicks next color how hard would that be to make on a rsps? and why would it be different for rsps?
    Easy. Look in script tutorials

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
  •