freeing DTM's

[Ivar]

What's up guys,

I have a question about dtm's. Should they be called and freed every time u use one? Or is it all right if they get called before starting the mainloop and freed before the script stops?

[Kasi]

Or is it all right if they get called before starting the mainloop and freed before the script stops?

Yes, you can do that.

[Dan the man]

What's up guys,

I have a question about dtm's. Should they be called and freed every time u use one? Or is it all right if they get called before starting the mainloop and freed before the script stops?

Good practice is to add this line after you loaded the DTMs, before your main loop:

Addonterminate('StopScript');

StopScript is the name of a procedure you create. It can be called anything really, so long as there is a procedure that corresponds with the name.

This will fire every time the script is terminated. Anything you want to happen before the script stops, put it in this procedure.

Here is an example extract from my NMZ script:

procedure StopScript;
var
  SessionXP: integer;
begin
  freeDTM(Item_AbsorbPot.DTM);
  freeDTM(Item_RockCake.DTM);
  freeDTM(Item_AbsorbPotion.DTM);
  freeDTM(Item_RangedPot.DTM);
  freeDTM(Item_Overload.DTM);
  XPH := Round((CurrentSkillXp) / (GetTimeRunning / 3600000.0));
  SessionXP := GetSkillXP(SkilLToTrain) - StartingXP;
  AddReport('Script Terminated', True);
  AddReport('Elapsed time: ' + msToTime(GetTimeRunning, Time_Formal), True);
  AddReport('Experience gained: ' + IntToStr(SessionXP), True);
  AddReport('Experience gained per hour: ' +IntToStr(XPH), True);
 end;

The benefit of this over simply putting FreeDTM at the bottom of your script, is that it will fire even if the script encounters an error, or is manually stopped.

[Ivar]

Yes, you can do that.

Good practice is to add this line after you loaded the DTMs, before your main loop:

Addonterminate('StopScript');

StopScript is the name of a procedure you create. It can be called anything really, so long as there is a procedure that corresponds with the name.

This will fire every time the script is terminated. Anything you want to happen before the script stops, put it in this procedure.

Here is an example extract from my NMZ script:

procedure StopScript;
var
  SessionXP: integer;
begin
  freeDTM(Item_AbsorbPot.DTM);
  freeDTM(Item_RockCake.DTM);
  freeDTM(Item_AbsorbPotion.DTM);
  freeDTM(Item_RangedPot.DTM);
  freeDTM(Item_Overload.DTM);
  XPH := Round((CurrentSkillXp) / (GetTimeRunning / 3600000.0));
  SessionXP := GetSkillXP(SkilLToTrain) - StartingXP;
  AddReport('Script Terminated', True);
  AddReport('Elapsed time: ' + msToTime(GetTimeRunning, Time_Formal), True);
  AddReport('Experience gained: ' + IntToStr(SessionXP), True);
  AddReport('Experience gained per hour: ' +IntToStr(XPH), True);
 end;

The benefit of this over simply putting FreeDTM at the bottom of your script, is that it will fire even if the script encounters an error, or is manually stopped.

And I won't have to worry about memory leaks? I read somewhere that that can make stop scripts.
I will definitely use the addOnTerminate, tyvm for explaining it thoroughly.

[Kasi]

Yes, even so, Simba still frees DTMs + Bitmaps on termination unless interrupted.

[Ivar]

Yes, even so, Simba still frees DTMs + Bitmaps on termination unless interrupted.

Big thanks for helping