SRL Archive - Test corner

lol i decided im so good with the debugbox that i made a script that does all sort of stuff..
Typeln is probly the most handy cause it types around 3x as fast as a human but types one leter at a time

heres whats in this script…

Flash
Scroll
Circle
RandomWriteln
UpDown
Typeln

very simple but kinda fun to play with :p

//////////////////////////////////////////////////
//////////////////////////////////////////////////
procedure flash(Text : string);
  var
    i : integer;
  begin
    repeat
    i:=i+1
    writeln('          '+(text)+'')
    wait(800)
    cleardebug;
    wait(800)
    until(i=10)
  end;
//////////////////////////////////////////////////
//////////////////////////////////////////////////
procedure Scroll(Text : string);
  var
    I : integer;
  begin
    text:='                                                      '+(Text)+' '
    repeat
      cleardebug;
      WriteLn(Copy(Text, i, 50))
      i:= i + 1
      wait(80+random(20))
    until(i > Length(text))
  end;
//////////////////////////////////////////////////
//////////////////////////////////////////////////
procedure circle(Text : String);
  var
    i : integer;
  begin
    text:='                               '+(Text)+''
    repeat
      i:=i+1
      cleardebug;
      WriteLn(Copy(Text, 7, 50))
      wait(150)
      cleardebug;
      writeln('')
      writeln(Copy(Text, 14, 70))
      wait(150)
      cleardebug;
      writeln('')
      writeln('')
      writeln(Copy(Text, 14, 70))
      wait(150)
      cleardebug;
      writeln('')
      writeln('')
      writeln('')
      writeln(Copy(Text, 7, 70))
      wait(150)
      cleardebug;
      writeln('')
      writeln('')
      writeln(Copy(Text, 1, 70))
      wait(150)
      cleardebug;
      writeln('')
      writeln(Copy(Text, 1, 70))
      wait(150)
    until(i=10)
  end;
//////////////////////////////////////////////////
//////////////////////////////////////////////////
procedure write1;
  begin
    writeln('')
  end;

procedure write2;
  begin
    writeln('')
    writeln('')
  end;

procedure write3;
  begin
    writeln('')
    writeln('')
    writeln('')
  end;

procedure write4;
  begin
    writeln('')
    writeln('')
    writeln('')
    writeln('')
  end;

procedure write5;
  begin
    writeln('')
    writeln('')
    writeln('')
    writeln('')
    writeln('')
  end;


procedure RandomWriteln(Text : string);
  begin
    cleardebug;
    text:='                                     '+(text)+''
      case random(4) of
        0:write1
        1:write2
        2:write3
        3:write4
        4:write5
      end;
    Writeln(copy(Text, 1+random(20), 1000))
    wait(400)
  end;
//////////////////////////////////////////////////
//////////////////////////////////////////////////
procedure UpDown(Text : String);
  var
    i : integer;
  begin
    repeat
    i:=i+1
      writeln('          '+(text)+'')
      wait(800)
      cleardebug;
      writeln('')
      writeln('          '+(text)+'')
      wait(800)
      cleardebug;
    until(i=10)
  end;
//////////////////////////////////////////////////
//////////////////////////////////////////////////
Procedure Typeln(Text : String);
  var
    i : integer;
  begin
    text:=''+(Text)+''
      repeat
        cleardebug;
        WriteLn(Copy(Text, 1, i))
        i:= i + 1
        wait(80+random(30))
      until(i > Length(text))
  end;

It's good, I'll read after auto-ing for about 6 hours.

The scripts are ok… ish. I don't see a use for them. I hope someone does though. You might not want to make Flash last forever, also.

Oh these are interesting. :)

Btw, hi everyone!

i find these kinda useless :o but thats cuz i dont use the debug often unless just for proggies.. :p good tho ;)

welcome to the forums Jessica!

welcome jes :p

i find it usefull :p ill show you when i release the script that uses typeln :p

Can't wait to see it, dude ;) You usually release some good stuff, so I'm confident that you have founda useful… use…

I see some usefulness, when your making fancy progress reports or logos and such?