SRL Archive - Research & Development Lounge

Well, think about yourself in a situation like this:
You have wrote about +25000 lines long script, and then the only thing left is proggy or introduction and thats the last thing you want to do.

Here comes the help!

IntRoBot

try it to find out more :D

program New;

procedure IntRoBot(Text: string; Style: Integer);
// By n3ss3s
var I: Integer;
begin
  for I := 1 to Length(Text) do
  case Style of
  1: begin
       ClearDebug;
       Writeln(Copy(Text, 1, I));
       Wait(50);
     end;
  2: begin
       Writeln(Copy(Text, I, 1));
       Wait(50);
     end;
  3: begin
       Writeln(Text);
       Break;
     end;
  end;
end;

begin
  IntRoBot('n3ss3s presents, IntRoBot!', 3);
end.

EDIT : WOOOHOOOO IM KBD!!

Pretty funny, nr 2 is a bit too fast though. and nr 3 is easier to do without your function :P

Yup. Maybe ill edit the 3 to have a box around it like

____________
/ \
| |
| |
\____________/

OOps the box collapsed… Well u get the idea :D

I fail to see the point of this, but cool :)

Cool :p

Some other effects and options would make it almost useful :)

Maybe the ability to do that to SCAR's title, or status bar, and the ability to add a character to the end of the string or to use custom wait times

program New;

procedure IntRoBot(Text: string; waits: integer);
// By n3ss3s
var
  I: Integer;
begin
  for I := 1 to Length(Text) - 1 do
  begin
    ClearDebug;
    Writeln(Copy(Text, 1, I) + '_');
    Wait(waits);
  end;
  ClearDebug;
  Writeln(Copy(Text, 1, I));
end;

begin
  IntRoBot('n3ss3s presents, IntRoBot!', random(200) + 50);
end.

@GoF : There is no point. To be honest I needed the 100% chance of gettin sum more activity :)
Well, nobody can say it is spam , because it still is a snippet , had it some use or not :)