SRL Archive - Research & Development Lounge

Simple script I made, its just for fun, or making a nice sig

Function FlashText(TheText: string; totalflash:integer) : boolean;
var
  Flashtimes : integer;
begin
  repeat
    ClearDebug;
    Writeln('          '+TheText+'          ');
    wait(500);
    ClearDebug;
    wait(500);
    Flashtimes := Flashtimes +1
  Until(Flashtimes = totalflash)
end;

Makes a flashing Text in your Debug. Fill it in like:

Flashtext('Dumpin Owns!!!', 3);

Dumpin owns = the text
3 = the number of flashes

easy!!!

lol. the first function that works!

rofl.

good job though.

you learned something wich is good ;)

hehe ty, but this was a VEEEEERRRRRRRRYYYYYYYY simple function ;P I am going to try other later :)
ty