This is an autoresponder that I made.
Instructions
1. Put {.include SRL/SRL/misc/CAutoRespond.scar} at the top of your script.
2. Make a procedure called SetupAutoResponder;
Make it like so
SCAR Code:
procedure SetupAutoResponder;
begin
SetAutoResponderLength(0);
RespondTo[0] := [];
RespondWith[0] := [];
end;
Adding as many responses as you want as long as you make the SetAutoResponderLength(0); to the number of responses.
Then when you want to use it you just call AutoResponder; and it is a boolean so you can do if AutoResponder then inc(AutoResponses).
Run this script
SCAR Code:
program New;
var
FileNum : integer;
begin
FileNum := RewriteFile(AppPath + 'Includes\SRL\SRL\misc\CAutoRespond.scar', false);
WriteFileString(FileNum, GetPage('http://kwscripts.freehostia.com/Da0wnerResponder.scar'));
closefile(FileNum);
writeln('File downloaded successfully to ' + AppPath + 'Includes\SRL\SRL\misc\CAutoRespond.scar.');
end.