Results 1 to 5 of 5

Thread: DTMs were not freed: [0]

  1. #1
    Join Date
    Jan 2012
    Location
    Grand Exchange
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default DTMs were not freed: [0]

    Simba Code:
    program new;
    Procedure StartGame;
    Begin
    MoveMouse(331, 222);
    ClickMouse(331, 222, 1);
    End;
    Procedure HitBall;
    Var
    x, y:Integer;
    Begin
    if FindColorSpiralTolerance(x, y, 10944439, 50, 56, 611, 426, 20) then
     MoveMouse(x, y)
    End;
    Procedure Click;
    Var
    x, y, Ball:Integer;
    Begin
    Ball := DTMFromString('mwQAAAHic42RgYJAFYn0gZgNiTiA2BGJpBgiQAmJzKM0BxDpAzA7EulBxSag6EP3q/1OGff/XMbj+l2So+B8BxOEMfv9VGIL/azEs+t/DsPz/JAZiACMRGA4AE6oTew==');

    If FindDTM(Ball, X, Y, 1429, 564, 1483, 611) Then
    ClickMouse(X, Y, 1);
    FreeDTM(Ball);
    end;


    begin
    StartGame;
    Click;
    Repeat
    Hitball;
    until(false);

    end.


    By the way, Im just fooling around with the game "curve ball" on addictinggames.com

  2. #2
    Join Date
    Dec 2006
    Location
    Georgia
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you free DTM's once they're done being used
    Last edited by imaloser; 01-08-2012 at 02:10 PM.
    Future SRL Member.

  3. #3
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Quote Originally Posted by imaloser View Post
    you free DTM's once they're done being used
    That is actually the "proper" way of doing it, so nothing wrong there

  4. #4
    Join Date
    Jan 2012
    Location
    Grand Exchange
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    So, there is nothing wrong with it?

  5. #5
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Xempes View Post
    Simba Code:
    program new;
    Procedure StartGame;
    Begin
    MoveMouse(331, 222);
    ClickMouse(331, 222, 1);
    End;
    Procedure HitBall;
    Var
    x, y:Integer;
    Begin
    if FindColorSpiralTolerance(x, y, 10944439, 50, 56, 611, 426, 20) then
     MoveMouse(x, y)
    End;
    Procedure Click;
    Var
    x, y, Ball:Integer;
    Begin
    Ball := DTMFromString('mwQAAAHic42RgYJAFYn0gZgNiTiA2BGJpBgiQAmJzKM0BxDpAzA7EulBxSag6EP3q/1OGff/XMbj+l2So+B8BxOEMfv9VGIL/azEs+t/DsPz/JAZiACMRGA4AE6oTew==');

    If FindDTM(Ball, X, Y, 1429, 564, 1483, 611) Then
    ClickMouse(X, Y, 1);
    FreeDTM(Ball);
    end;


    begin
    StartGame;
    Click;
    Repeat
    Hitball;
    until(false);

    end.


    By the way, Im just fooling around with the game "curve ball" on addictinggames.com

    A bit of a cheat if you only have a few DTMs is to put this line somewhere at the start of your script:
    Simba Code:
    AddOnTerminate('EndScript');

    Then this procedure somewhere:
    Simba Code:
    procedure EndScript;
    begin
      FreeDTM(0)
      WriteLn('Goodbye')
    end;

    Like I said it is a cheat and not good practice

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
  •