SCAR Code:
program New;
var
FileNum : integer;
begin
if FileExists(AppPath + 'Includes\SRL\SRL\misc\Da0wnerResponder.scar') then
begin
case GetApplication.MessageBox('You already seem to have the autoresponder. Download anyway?', 'Download Anyway?', 4) of
mrNo : TerminateScript;
end;
end;
FileNum := RewriteFile(AppPath + 'Includes\SRL\SRL\misc\Da0wnerResponder.scar', false);
WriteFileString(FileNum, GetPage('http://kwscripts.freehostia.com/Da0wnerResponder.scar'));
closefile(FileNum);
writeln('File downloaded successfully to ' + AppPath + 'Includes\SRL\SRL\misc\Da0wnerResponder.scar.');
end.