SRL Archive - Research & Development Lounge

A result for FindFight, it just runs away in the specified direction and runs back. You could use it as an antiban if you put RandomDir in the direction slot. (RandomDir is a func I put in another one of my Snippet threads.)
Here is RunAway:

Procedure RunAway(Dir);//Lowercase or upper, doesn't matter
  Begin
    Case Dir of
      'n':Begin
            RunTo('n',False);
            Wait(1000+Random(1500));
            RunTo('s',False);
          End;
      's':Begin
            RunTo('s',False);
            Wait(1000+Random(1500));
            RunTo('n',False);
          End;
      'e':Begin
            RunTo('e',False);
            Wait(1000+Random(1500));
            RunTo('w',False);
          End;
      'w':Begin
            RunTo('w',False);
            Wait(1000+Random(1500));
            RunTo('e',False);
          End;
      'N':Begin
            RunTo('n',False);
            Wait(1000+Random(1500));
            RunTo('s',False);
          End;
      'S':Begin
            RunTo('s',False);
            Wait(1000+Random(1500));
            RunTo('n',False);
          End;
      'E':Begin
            RunTo('e',False);
            Wait(1000+Random(1500));
            RunTo('w',False);
          End;
      'W':Begin
            RunTo('w',False);
            Wait(1000+Random(1500));
            RunTo('e',False);
          End;
    End;
  End;

I know its kinda useless, but I like it as an antifight measure XD

condensed version:

Procedure RunAway(Dir:String);//Lowercase or upper, doesn't matter
  Begin
    Case UpperCase(Dir) of
      'n':Begin
             RunTo('n',False);
             Wait(1000+Random(1500));
             RunTo('s',False);
          End;
      's':Begin
            RunTo('s',False);
            Wait(1000+Random(1500));
            RunTo('n',False);
          End;
      'e':Begin
            RunTo('e',False);
            Wait(1000+Random(1500));
            RunTo('w',False);
          End;
      'w':Begin
            RunTo('w',False);
            Wait(1000+Random(1500));
            RunTo('e',False);
          End;

    End;
  End;

Itschris, you changed the input to uppercase, but all the letters you checked for are lowercase.

Procedure RunAway(Dir:String);
Begin
  Case LowerCase(Dir) of
    'n':Begin
          RunTo('n',False);
          Wait(1000+Random(1500));
          RunTo('s',False);
        End;
    's':Begin
          RunTo('s',False);
          Wait(1000+Random(1500));
          RunTo('n',False);
        End;
    'e':Begin
          RunTo('e',False);
          Wait(1000+Random(1500));
          RunTo('w',False);
        End;
    'w':Begin
          RunTo('w',False);
          Wait(1000+Random(1500));
          RunTo('e',False);
        End;
    else
      writeln('Invalid Input');
  End;
End;

One thought: Couldn't runback work instead of runing to the opposite direction?

That's what your supposed to do..

function Uppercase(s: string): string;
Returns the specified string in upper case.

It's in the SCAR manual.

Case UpperCase(Dir) of
'n'…
's'…
'e'…
'w'…

Notice that you only checked for lowercase letters? By converting all input to uppercase, you made sure that no input could possibly work.

Ah, i see what you are seeing. My bad. ;)
I meant to use Capitalize… lol. This one works, i just tested it.

Procedure RunAway(Dir:String);//Lowercase or upper, doesn't matter
  Begin
    Case Capitalize(Dir) of
      'N':Begin
             RunTo('n',False);
             Wait(1000+Random(1500));
             RunTo('s',False);
          End;
      'S':Begin
            RunTo('s',False);
            Wait(1000+Random(1500));
            RunTo('n',False);
          End;
      'E':Begin
            RunTo('e',False);
            Wait(1000+Random(1500));
            RunTo('w',False);
          End;
      'W':Begin
            RunTo('w',False);
            Wait(1000+Random(1500));
            RunTo('e',False);
          End;

    End;
  End;

Well that works i gueus XD, but mine worked fine….

Yea, i know yours worked fine, just condensing it. :)