SCAR Code:
program New;
{.include srl/srl.scar}
var
salmon:integer;
procedure LOADDTMS;
begin
salmon := DTMFromString('78DA639CC9C4C0F08C0105ECAFCA651001D28' +
'C40FC1F0818A701D5DC6140038C482490EE00AA794740CD5422D4' +
'CC07AA794C40CD42A09A1BF8D5000076370EB9');
end;
begin
cleardebug;
setupsrl;
activateclient;
LOADDTMS;
wait(3000);
ItemAmount('inv', 'dtm', salmon, []);
salmon := salmon + ItemAmount('inv', 'dtm', salmon, []);
writeln('salmons = ' + inttostr(salmon) + '.')
freedtm(salmon);
end.
y does it keep access violating??plz help and explain ty