Twiddle[Funny effect for you script]

[CynicRus]

This snippet reproduces the rotation of the symbol as a BSD console when it starts. It turned out funny.


program new;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
TSA:=['|', '/', '-', '\'];
for i :=0 to length(TSA)-1 do
begin
ClearDebug;
WriteLn(TSA[i]);
Wait(100);
end;
end;
begin
repeat
Twiddle;
until(false);
end.


Enjoy!

Cheers,
Cynic.

[Echo_]

That's awesome :D

[Ian]

Mesmerizing :D

program Turbine;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
TSA:=['| / - \', '/ - \ |', '- \ | /', '\ | / -'];
for i :=0 to length(TSA)-1 do
begin
ClearDebug;
WriteLn(TSA[i]);
Wait(100);
end;
end;
begin
repeat
Twiddle;
until(false);
end.

[kyleinkman]

i like this :P lol fun stuff

[Echo_]

Mesmerizing :D

program Turbine;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
TSA:=['| / - \', '/ - \ |', '- \ | /', '\ | / -'];
for i :=0 to length(TSA)-1 do
begin
ClearDebug;
WriteLn(TSA[i]);
Wait(100);
end;
end;
begin
repeat
Twiddle;
until(false);
end.

I could watch that all day

[Gucci]

Lol nice, might actually throw it in a script of mine