While I understand what you're saying i'm not sure how that'd work in my case since i'm using DDTMs. I'll just explain out everything.
SCAR Code:
procedure SetRockDTM;
begin
case Lowercase(Players[CurrentPlayer].string1) of
'copper': SetCopperRockDTM;
'tin' : SetTinRockDTM;
'iron' : SetIronRockDTM;
'gold' : SetGoldRockDTM;
end;
end;
That calls the procedure which sets up the DDTM, only one is called.
SCAR Code:
procedure FreeRockDTM;
begin
case Lowercase(Players[CurrentPlayer].string1) of
'copper': FreeDTM(CopperRockDTM);
'tin' : FreeDTM(TinRockDTM);
'iron' : FreeDTM(IronRockDTM);
'gold' : FreeDTM(GoldRockDTM);
end;
end;
Frees the same one that gets called, but later on.
SCAR Code:
procedure SetWhichImagesAndText;
begin
case Lowercase(Players[CurrentPlayer].string1) of
'copper':
begin
WhichMMDTM := CopperRockDTM;
WhichMMBMP := MMCopperRocks;
RockText := 'copper';
end;
'tin':
begin
WhichMMDTM := TinRockDTM;
WhichMMBMP := MMTinRocks;
RockText := 'tin';
end;
'iron':
begin
WhichMMDTM := IronRockDTM;
WhichMMBMP := MMIronRocks;
RockText := 'iron';
end;
'gold':
begin
WhichMMDTM := GoldRockDTM;
WhichMMBMP := MMGoldRocks;
RockText := 'gold';
end;
end;
end;
Ignore the RockText part, that's something i use later. Now, after i call SetRockDTM i call that, which sets it up for me. Ignore the BMP one for now, i just wanna focus on the DDTM aspect of it. If i used all of the above, would i call FreeDTM(WhichMMDTM) or not?