SRL Archive - Research & Development Lounge

I have placed this here so that people will stop asking for one. I need this tested but, in theory, it should work well.

Copy this code into SCAR and hit play.

program WriteAutoResponder;

// By Da Owner... Modded by myself.

var
  I : integer;

begin
  try
    I := RewriteFile(AppPath + 'Includes\SRL\SRL\core\CAutoRespond.scar', false);
    WriteFileString(I, GetPage('http://www.geocities.com/nava2@ymail.com/CAutoRespond.txt'));
    CloseFile(I);
    writeln('File downloaded successfully to ' + AppPath + 'Includes\SRL\SRL\misc\CAutoRespond.scar.');
  except
    Writeln('Could not download.');
  end;
end.

To use, copy the SetupAutoResponder procedure, and fill it in. Also, after SetupSRL, write UseRespond := true; As well, make sure you declare if you are using SMART by setting RespSMART to true.

After Setup, there is no need to call the procedure, SRL does it for us! :). It calls it in FindNormalRandoms.

Enjoy, PLEASE post comments and suggestions.

Added file downloader, to keep up with competition. Also, fixed some errors I found.

I belive it should be

program WriteAutoResponder;

var
  FileNum : integer;

begin
  try
    FileNum := RewriteFile(AppPath + 'Includes\SRL\SRL\core\CAutoRespond.scar', false);
    WriteFileString(FileNum, GetPage('http://www.geocities.com/nava2@ymail.com/CAutoRespond.txt'));
    CloseFile(I);
    writeln('File downloaded successfully to ' + AppPath + 'Includes\SRL\SRL\misc\CAutoRespond.scar.');
  except
    Writeln('Could not download.');
  end;
end.

Yes dallas is correct. You did not declare FileNum.

From: Da 0wner
Yes dallas is correct. You did not declare FileNum.

But dallas also didn't declare I ;) Just replace all FileNum's with an I and it will work.

Dallas changed the I to FileNum…Use Dallas's, but change

CloseFile(I);

to

CloseFile(FileNum);

From: TheVoiceInYourHead
Dallas changed the I to FileNum…Use Dallas's, but change

CloseFile(I);

to

CloseFile(FileNum);

Thank you to everyone, but dan was right. I just changed the one filenum to I and it worked. :)

Large Update, included FrOzn SOuls TypeSend2 which creates mistakes etc in typing. Good update IMO! :)

// By Da Owner… Modded by myself.

??? :p

From: Da 0wner
??? :p

It was yours, I just fixed it. :D

K, there wasn't a problem with it you just improved it :) with a simple try/except.

Good catch on my grammar ;)

Line 13: [Error] (16370:1): Duplicate identifier 'OldMessage' in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Core\CAutoRespond.scar
Failed when compiling
Line 301: [Error] (9312:21): Unknown identifier 'OldMessage' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/CAutoRespond.scar
Failed when compiling

i tried removing the OldMessage var in the CAutoRespond but then i get Unknown Identifier, and if i add it back in i get Duplicate. Thats just gay, what the hell is the matter with SCAR.

Of course if you remove it it will be an unknown identifier…

Oh nvm, found out i put {.Include SRL\SRL\Core\CAutoRespond.Scar} But SRL.Scar already does that :D

SRL includes the entire core folder ;).

:)

I was worried it was a glitch like the result glitch. Like so:

program new;
var
  result : boolean;

begin
end.

Run that, then remove the variable, and run it again.
Oops?

Result is already a hidden variable used for functions that you don't need to declare.

Still, its an unknown identifier when you don't put it in. But, when you put it in, its a duplicate. ;).

Just strange :)

No its because i added

program Blah;
{.Include CAutoRespond}
{.Include SRL}

I realized that SRL already provided that include. Therefor if i had 2 CAutoRespond includes, it gets me that funny litte error ;p Duplicate, them Unknown ;p

Oh, I know. That error only happens with result. So either way, the responder does work though? :)