I've got a small problem...

[Jason2gs]

Ok...

I decided to mark my own procedure down in the Login procedures found in the "core" file of SRL.

This is the procedure:

procedure LogMeOut;
begin
  wait(500+random(200));
 if(InChat('pullout'))then
  begin
   Logout;
  end;
end;

This is the procedure in action:

program New;
{.include SRl/SRL.scar}
begin
SetupSRL;
 repeat
  LogMeOut;
   wait(500+random(200));
 until(false)
end.

What my script SHOULD do:

Scan the last chat message area every 500-700 MiliSeconds for the word "pullout." Then it will log the character out.

What my script does:

Only scans the last chat message area on startup, and won't scan again unless I stop and start the script again.

Please help me

[Jason2gs]

*sees orange lettering*

Help is on the way!

EDIT: Perhaps not =/

[whales]

I think yours should work but try this..

procedure LogMeOut;
begin
repeat
  wait(500+random(200));
 if(InChat('pullout'))then
  begin
   Logout;
  end;
until(LogedOutScreen)//not the right function but you can find
end;


program New;
{.include SRl/SRL.scar}
begin
SetupSRL;
LogMeOut;
end.

[Jason2gs]

Your's doesnt' seem to work either.

Would you mind testing mine real quick?

[omgh4x0rz]

try this

if(InChat('ullout')) then

[whales]

If the first letter in the message is caps then it may not work try what Omg posted..

[Jason2gs]

Alrigh. Lemme check.

[Jason2gs]

Not working =/

WHY WON'T IT REPEAT!!!

[Hey321]

program New;
{.include SRl/SRL.scar}

procedure LogMeOut;
begin
  wait(500+random(200));
 if(InChat('pullout'))then
  begin
   Logout;
  end;
end;

begin
SetupSRL;
 repeat
  LogMeOut;
  WriteLn('12');
   wait(500+random(200));
 until(false)
end. 

That works. I added the writeln to make sure it was repeating.

[Jason2gs]

Thanks, Hey =)

[Starblaster100]

You dont even need the extra procedure in there. This is a slightly more efficient way of doing what you wanted to do

Program New;

Begin
  Repeat
    If not(LoggedIn) then TerminateScript;
    Wait(500);
  until (InChat('ullout'))
  Logout;
end. 

[Jason2gs]

program New;
{.include SRl/SRL.scar}

procedure LogMeOut;
begin
  wait(500+random(200));
 if(InChat('pullout'))then
  begin
   Logout;
  end;
end;

begin
SetupSRL;
 repeat
  LogMeOut;
  WriteLn('12');
   wait(500+random(200));
 until(false)
end.

That works. I added the writeln to make sure it was repeating.

*is embarrassed*

So it was working like it should have the whole time? Oops

[Jason2gs]

So I'm unable to add my own procedure? It works when I put the whole procedure in the script, but not when I place the procedure in the Login file of SRL/core, and call it up in the main loop.

Is there a way I can go around doing this? I'd really like to be able to set up my own private procedures

[Starblaster100]

You shouldn't place anything into the SRL files. If you create new procedures, always keep them in your own script.

[Jason2gs]

Darn