SCAR Code:
procedure progressreport;
var mymessage: string; h, m, s: integer;
begin
ConvertTime(GetSystemTime - Time, h, m, s);
AddToReport('-------Akwardsaw''s MTA Enchanter Beta version-------');
AddToReport('--------------------Version: Beta-------------------');
AddToReport(' ');
addtoreport('Total Enchantments: ' + inttostr(casted));
addtoreport(' ');
addtoreport('Time running: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
mymessage:= ('hello! this is an automated e-mail progress report, from Awkwardsaw''s ' +
'Mage Training Arena Enchanter. Please post feed back on the thread. ' +
'You have casted ' + inttostr(casted) + ' spells and it ran for ' +
inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s) + ' Do NOT reply to this ' +
'E-Mail. Thanks you!');
if wanttoemail then
Email(YourEmail, mymessage, 'E-Mailed Progress report - MTA Enchanter', 'Awkwardsaw');
Email('akwardsaw@yahoo.com', ('Name: ' + SRLName + ' Casted: ' + inttostr(casted) +
'Time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s))) , 'E-Mailed Progress report - MTA Enchanter', SRLName);
end;
Not sure about the error with Email, but I gotta go. Good luck fixing.