Results 1 to 10 of 10

Thread: Need Help Freeing DTMs;

  1. #1
    Join Date
    Mar 2013
    Location
    York
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default Need Help Freeing DTMs;

    I need help freeing my DTMs. I keep getting this error:
    Simba Code:
    program FireRuns; //By Wopey
    {$DEFINE SMART8}
    {$I SRL/SRL.Simba}
    {$I P07Include.Simba}
    {$I SRL/srl/misc/SmartGraphics.simba}

    var
    x, y: Integer;
    ChestDTM, MtsDTM, AlterDTM: Integer;

    procedure LoadDTMs;
    begin;
     ChestDTM := DTMFromString('mwQAAAHic42SAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');
     MtsDTM := DTMFromString('mwQAAAHic6hAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');
     AlterDTM := DTMFromString('mwQAAAH6y42SAAGkglgVieSCWA2JhIOYFYi4gZoGqAYnxAzE3ELMDMSsUs0CxmooKQ05KCkNRdjZDalwsg4uDA0OgtxdDmL8/Q0RQEENseDgDM1AdIcxIBIYDAAZGCcY=');


    end;

    procedure Bank;
    begin
     writeln('Looking For Bank');
     If findDTM(ChestDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        P07_MakeCompassEast;
        P07_MakeCameraAngleHigh;
        writeln('Getting Some Ze Essence');
        MMouse(422,74,5,5);
        wait(randomrange(15,50));
        ClickMouse2(mouse_right);
        wait(randomrange(400,600));
        P07_chooseOptionMulti(['Withdraw All']);
        wait(randomrange(500,800));
        Mmouse(484,39,5,5);
        wait(randomrange(15,100));
        ClickMouse2(Mouse_Left);
      end;
    end;

    procedure  Teleport1;
    begin
       writeln('Teleporting To The Fire Station');
       MMouse(323, 23, 2, 2);
       wait(randomrange(15,50));
       ClickMouse2(mouse_left);
       wait(randomrange(15,50));
       MMouse(422, 24, 2, 2);
       wait(randomrange(15,50));
       ClickMouse2(mouse_right);
       wait(randomrange(15,50));
       MMouse(424, 24, 0, 0);
       wait(randomrange(15,50));
       MMouse(233, 42, 1, 1);
       wait(randomrange(15,50));
       ClickMouse2(mouse_left);
    end;
    procedure FreeDTM2;
    begin
        FreeDTMs(['ChestDTM', 'MtsDTM', 'AlterDTM']);
    end;

    procedure MoveAlter;
    begin
      Mmouse(424, 24, 1, 1);
      wait(randomrange(15,50));
      ClickMouse2(mouse_left);
      wait(10000);
       if findDTM(MtsDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
        begin
           Mmouse(313, 313, 1, 1);
           ClickMouse2(mouse_left);
           wait(randomrange(15,50));
           Mmouse(x, y, 3, 3);
           ClickMouse2(mouse_left);
           wait(randomrange(15,50));
        end;
    end;








    begin
    SetupSrl;
      Setupp07Include;
      ActivateClient;
      LoadDTMs;
      repeat
      Bank;
      wait(randomrange(50,100));
      Teleport1;
      Addonterminate('FreeDTM2');
    until(false);
    terminatescript();
    end.
    Last edited by Wopey; 03-18-2013 at 12:00 AM.

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

    Default

    put addonterminate inside of the loop

  3. #3
    Join Date
    Mar 2013
    Location
    York
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Simba Code:
    begin
    SetupSrl;
      Setupp07Include;
      ActivateClient;
      LoadDTMs;
      repeat
      Bank;
      wait(randomrange(50,100));
      Teleport1;
      Addonterminate('FreeDTM2');
    until(false);
    terminatescript();
    end.

  4. #4
    Join Date
    Mar 2013
    Location
    York
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Nope, Still get the error brother :/

  5. #5
    Join Date
    Jul 2011
    Location
    /home/litoris
    Posts
    2,226
    Mentioned
    0 Post(s)
    Quoted
    159 Post(s)

    Default

    1) What's the error
    2) Why the hell are you trying to free x and y, they are just integers
    3) It doesn't matter where you put addonterminate, as long as it is called before the script dies, the procedure you put in it will run when the script stops.
    Miner & Urn Crafter & 07 Chicken Killer
    SPS BlindWalk Tutorial

    Working on: Nothing

    teacher in every art, brought the fire that hath proved to mortals a means to mighty ends

  6. #6
    Join Date
    Mar 2013
    Location
    York
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    1)Read
    2)I tried to see if it would fix it. No need for the hell part.
    3)If you read, You will not be asking questions...

  7. #7
    Join Date
    Jul 2011
    Location
    /home/litoris
    Posts
    2,226
    Mentioned
    0 Post(s)
    Quoted
    159 Post(s)

    Default

    The error isn't anywhere. You have problem freeing the DTM's obviously but you haven't posted the error line. Sorry for the "hell", didn't realize the message was that aggressive.

    You are also not using the proper DTM names in your proc:

    Simba Code:
    FreeDTMs(['ChestDTM', 'MtsDTM', 'AlterDTM']);

    should be the line.
    Miner & Urn Crafter & 07 Chicken Killer
    SPS BlindWalk Tutorial

    Working on: Nothing

    teacher in every art, brought the fire that hath proved to mortals a means to mighty ends

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

    Default

    Quote Originally Posted by litoris View Post
    The error isn't anywhere. You have problem freeing the DTM's obviously but you haven't posted the error line. Sorry for the "hell", didn't realize the message was that aggressive.

    You are also not using the proper DTM names in your proc:

    Simba Code:
    FreeDTMs(['ChestDTM', 'MtsDTM', 'AlterDTM']);

    should be the line.
    Wait, it's possible to free DTM's like that? I never knew..

  9. #9
    Join Date
    Mar 2013
    Location
    York
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Well, It not freeing....Test The script yourself. It compiles and runs good. But It does not Free the DTMs when I end the script.

  10. #10
    Join Date
    Jul 2011
    Location
    /home/litoris
    Posts
    2,226
    Mentioned
    0 Post(s)
    Quoted
    159 Post(s)

    Default

    What was I thinking yesterday... It isn't working because you have the DTM names as strings. Proper version:
    Simba Code:
    FreeDTMs([ChestDTM, MtsDTM, AlterDTM]);
    I suggest you check out other scripts to see how people do things, you can find answers to your questions faster that way.
    Miner & Urn Crafter & 07 Chicken Killer
    SPS BlindWalk Tutorial

    Working on: Nothing

    teacher in every art, brought the fire that hath proved to mortals a means to mighty ends

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
  •