Dumpin
11-04-2007, 07:28 PM
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!!!
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!!!