"Hello World"

[Starblaster100]

"Hello World!"

Well JAD gave me the idea for this thread with his "Get better at scripting" post.

Me and bebe started this game and it turned out to be very funny, so i thought it would be a great game to play with the community :) Its a great way to try out different scripting techniques, and see other people's as well. Think of this thread as a side quest to the SRL Scripting Pilgrimage!

How to Play:

Basically, everyone has to make a small script which ends up printing out the words "Hello World" into the debug box, and everyones script has to be different.

The script can be as long and complicated as you like as you like as long as it meets the 1 requirement (Printing "Hello World" lol)

You may only submit 1 entry, so as to give others the ability to post their own (Remember, there are over 25k members here!) Please don't edit your script after you have submitted it!

Please remember to surround your script in tags!

Examples:

The possibilities are endless lol. You have Repeat until, For to do, Labels, Arrays, Integers, Chars, forms, using delimiters, webpages, forwards, encrypt and decrypt, with do, while do, types... the list goes on and on! Be as creative as you can possibly be!!!

I'll post the basic ones to start us off:



Program StarsHelloWorld;

Procedure HelloWorld;
Begin
Writeln('Hello World');
end;

Begin
HelloWorld;
end;




Program StarsHelloWorld;

Function HelloWorld: String;
Begin
Result := 'Hello World';
end;

Begin
Writeln(HelloWorld);
end;


I ended up making a huge script which reversed a string of numbers, decrypted them, separated them by delimiters, added them to an array, rearranged them in order of size, added the chars together and eventually printed out the words "Hello World"

GO!

[Santa_Clause]

Cool! I'll have mine soon.

[ZephyrsFury]

Hmm... let me see....


program New;
var
i : Integer;

begin
i := 0;
if (i = 0) then
Writeln('Hello World!!');
end;



WOW its the best script ever... don't you think I deserve SRL Developer status??? :eek: I've got another idea so I'll release that soon. ;)

[Starblaster100]

O hell yea lol.

[Wizzup?]

program New;
begin
if true then
writeln('hello world');
end.

program New;
begin
if not false then
writeln('hello world');
end.

program helloo;
{$Define HW}
begin
{$IfDef HW}
WriteLn('Hello World');
{$Else}
WriteLn('Bye World');
{$EndIf}
end.

Edit: Sorry Star!

[Starblaster100]

Oi i said one lol.

nice one :)

[Buckleyindahouse]

program New;
Var
I : Integer;
begin
I := Random(1000);
If(I = 0 ) Or (I < 1000)Then
WriteLn('Hello World!');
end.
Rawr.

[Markus]

Used my own string obfuscator:

program HelloAll;
begin
writeln(chr(72)+chr(101)+chr(108)+chr(108)+#111+ch r(-64+96)+chr(87)+'o'+chr(114)+chr(279-171)+chr(-80+180)+chr(135-102));
end.

[~alex~]

program New;
var
hello:array[0..11] of string;
i:integer;

procedure makeHelloWorld;
begin
hello[0] := 'H'
hello[1] := 'e'
hello[3] := 'l'
hello[4] := 'l'
hello[5] := 'o'
hello[7] := 'W'
hello[8] := 'o'
hello[9] := 'r'
hello[10] := 'l'
hello[11] := 'd'
end;


begin
makehelloworld;
writeln('')
for i:=0 to 11 do
begin
writeln(hello[i])
end;
end.


I get some retarded space between E and L though..

[n3ss3s]

Hmm



procedure HelloWorld;
var
I, C: Integer;
S, SubString: string;
begin
S := 'HelloWorld!';
for C := 1 to 5 do
begin
case C of
1: for I := 1 to Length(S) do
begin
Writeln(Copy(S, I, 1));
end;
2: Writeln(S);
3: begin
for I := 1 to Length(S) do
begin
SubString := SubString + Copy(S, I, 1);
end;
Writeln(SubString);
end;
4: begin
SubString := '';
for I := Length(S) downto 1 do
begin
SubString := SubString + Copy(S, I, 1);
end;
Writeln(SubString);
end;
5: begin
for I := 1 to Length(S) do
begin
Writeln(Copy(S, 1, I));
end;
end;
end;
end;
end;


:) Sorry for crappy indents, im too lazy to format..

[Santa_Clause]

Time for mine...I'm not good at keeping code clear :p

program HelloWorld;
{.include SRL/SRL.scar}

var
SantyForm : TForm;
Label1 : TLabel;
Button1, Start : TButton;
TypeMessage : TEdit;
b : Integer;
Background : TImage;

procedure ReportBug(Senders : TObject);
begin
DisguiseScar('Reporting Bug!')
WriteLn(' ');
OpenWebPage('http://www.srl-forums.com/forum/private.php?do=newpm&u=3288');
end;

procedure StartScript(Senders : TObject);
begin
if (not(TypeMessage.text = 'Hello World')) then
begin
SantyForm.Hide;
DisguiseScar('Wrong Message!');
Wait(5000);
DisguiseScar('Reverting To Correct Message');
Wait(5000);
SantyForm.Show;
TypeMessage.Text := 'Hello World!';
SantyForm.Hide;
SantyForm.Show;
Wait(5000);
SantyForm.ModalResult := MrCancel;
WriteLn('Hello World');
end;
end;

procedure HelloWorldForm;
begin
SantyForm := CreateForm;
with SantyForm do
begin
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize,biSystemMenu];
ClientWidth := 392;
ClientHeight := 237;
Caption := 'Hello World!!';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
end;

Background := TImage.Create(SantyForm);
with Background do
begin
Parent := SantyForm;
SetBounds(0, 0, 696, 465);
end;

Label1 := TLabel.Create(SantyForm);
with Label1 do
begin
Parent := SantyForm;
SetBounds(87, 14, 225, 25);
Caption := 'SANTY'#39'S HELLO WORLD!';
Font.Color := clYellow;
Font.Height := -21;
Font.Name := 'Monotype Corsiva';
Font.Style := [];
ParentFont := False;
end;

Button1 := TButton.Create(SantyForm);
with Button1 do
begin
Parent := SantyForm;
SetBounds(164, 138, 75, 25);
Caption := 'Report Bugs';
TabOrder := 8;
OnClick := @ReportBug;
end;

TypeMessage := TEdit.Create(SantyForm);
with TypeMessage do
begin
Parent := SantyForm;
SetBounds(141, 86, 121, 21);
TabOrder := 9;
Text := 'TypeMessage';
Font.Color := clRed;
end;

Start := TButton.Create(SantyForm);
with Start do
begin
Parent := SantyForm;
SetBounds(164, 175, 75, 25);
Caption := 'Start';
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 10;
OnClick := @StartScript;
end;

b := BitmapFromString(696, 1, 'z78DAD597DB4E262110845F8933C3' +
'250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C 798B' +
'79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1 D30A' +
'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65 B904' +
'83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C03360 1864' +
'7BC0306018E46DC030F06AC030F00430131F260C138609C38 461E' +
'2C38467C233F164C236619B4370FE0095A70BDE726F157F2E F173' +
'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F 2BF6' +
'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655 C3AA' +
'61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B6 1A8F' +
'6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE5 44B7' +
'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788 982E' +
'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E 8AA8' +
'284945BCD448F5D31F9AB9E47580A14479356028E6BC26170 C579' +
'357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1 CC5D' +
'89F3891C266E495C9FF030C19FE04FF047CE479823CC11E60 8738' +
'43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3 EC61' +
'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE 1B7F' +
'05BF82DFC162B8B95C5CA6280E9FBB8DC23CC488157914062 3730' +
'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D 38BF' +
'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F5297 2AF5' +
'1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B 60EA' +
'3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328 FD75' +
'49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A9 9215' +
'166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D 4D66' +
'6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F8 7E7D' +
'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAA DFFF' +
'7107687263979D44F563453F417CCEA2A22ABB503F3BD207F DA87' +
'254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796 C76E' +
'3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7A DDE7' +
'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F9 8E33' +
'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176 471B' +
'8E575F0E735F903257356ED');

SafeCopyCanvas(GetBitmapCanvas(B),Background.Canva s,0,0,669,1,0,0,1300,465);
end;

procedure SafeHelloWorldForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('HelloWorldForm', V);
end;

procedure ShowHelloWorldFormModal;
begin
SantyForm.ShowModal;
end;

procedure SafeShowHelloWorldFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowHelloWorldFormModal', V);
end;

procedure MainHelloWorldForm;
begin
try
SafeHelloWorldForm;
SafeShowHelloWorldFormModal;
finally
FreeForm(SantyForm);
except
WriteLn('An error seems to have occurred in: HelloWorldForm');
end;
end;

begin
ClearDebug;
GetSelf.WindowState := wsMinimized;
MainHelloWorldForm;
GetSelf.WindowState := wsNormal;
end.

[ZephyrsFury]

program New;
var
hello:array[0..11] of string;
i:integer;

procedure makeHelloWorld;
begin
hello[0] := 'H'
hello[1] := 'e'
hello[3] := 'l'
hello[4] := 'l'
hello[5] := 'o'
hello[7] := 'W'
hello[8] := 'o'
hello[9] := 'r'
hello[10] := 'l'
hello[11] := 'd'
end;


begin
makehelloworld;
writeln('')
for i:=0 to 11 do
begin
writeln(hello[i])
end;
end.


I get some retarded space between E and L though..

Its because you are missing a '2'. It goes from 1 to 3 :) Heres another one I made. Just remember to set the client window again after you run it....


program New;

procedure SetupStuff;
begin
SetClientWindowHandle(GetSelf.Handle);
ActivateClient;
end;

procedure ClearDebug2;
begin
ClickMouse(75, 454, true);
KeyDown(17)
Wait(10);
KeyDown(65);
Wait(10);
KeyUp(17)
Wait(10);
KeyUp(65);
KeyDown(46);
Wait(100);
KeyUp(46);
end;

procedure TypeStuff;
begin
KeyDown(16)
Wait(10);
KeyDown(72)
Wait(10);
KeyUp(72);
Wait(10);
KeyUp(16);
Wait(200);
KeyDown(69)
Wait(10);
KeyUp(69);
Wait(200);
KeyDown(76)
Wait(10);
KeyUp(76);
Wait(200);
KeyDown(76)
Wait(10);
KeyUp(76);
Wait(200);
KeyDown(79)
Wait(10);
KeyUp(79);
Wait(200);
KeyDown(32)
Wait(10);
KeyUp(32);
Wait(200);
KeyDown(16)
Wait(10);
KeyDown(87)
Wait(10);
KeyUp(87);
Wait(10);
KeyUp(16);
Wait(200);
KeyDown(79)
Wait(10);
KeyUp(79);
Wait(200);
KeyDown(82)
Wait(10);
KeyUp(82);
Wait(200);
KeyDown(76)
Wait(10);
KeyUp(76);
Wait(200);
KeyDown(68)
Wait(10);
KeyUp(68);
Wait(200);
SendKeys('!');
Wait(200);
end;

begin
SetupStuff;
Wait(1000);
ClearDebug2;
TypeStuff;
end.

[Nitro]

Hmm..

program HelloWorld;

procedure Say(S: string);
begin
Writeln(S);
end;

begin
Say('Hello World!');
end.

Simple is best :D

[Starblaster100]

excellent guys!

[JuKKa]

Program Hello;

Var
Hello: Array [0..4] of String;
World: Array [0..5] of String;
HelloWorld: String;
I: Integer;

Procedure HelloWorldey;
Begin
Hello[0]:= 'H';
Hello[1]:= 'E';
Hello[2]:= 'L';
Hello[3]:= 'L';
Hello[4]:= 'O';
World[0]:= ' ';
World[1]:= 'W';
World[2]:= 'O';
World[3]:= 'R';
World[4]:= 'L';
World[5]:= 'D';
End;

Function PlusHello: String;
Begin
For I:= 0 To Length(Hello)-1 Do
Begin
HelloWorld:= HelloWorld + Hello[I];
End;
For I:= 0 To Length(World)-1 Do
Begin
HelloWorld:= HelloWorld + World[I];
End;
Result:= HelloWorld;
End;

Begin
HelloWorldey;
Writeln(PlusHello);
End.

[Spky]

var
HelloWorld : string;
Index, I : Integer;
Stack : array [0..1024] of Integer;

procedure Push(Int : Integer);
begin
try
Stack[Index]:= Int;
finally
Index:= Index + 1;
end;
end;

function Pop : Integer;
begin
try
Result:= Stack[Index - 1];
finally
Index:= Index - 1;
end;
end;

begin
HelloWorld:= 'Hello, World';

for I:= Length(HelloWorld) downto 1 do
Push(Ord(HelloWorld[I]));

for I:= Index - 1 downto 0 do
Writeln(Chr(Stack[I]));
end.

[Skalla]

program New;

Procedure Write;
begin
If(isfkeydown(2)) then
WriteLn('Hello World');
End;

Procedure BBQ;
Begin
Repeat
Write;
Until(IsFKeyDown(2));
end;
End.

Dont know why it dosnt work but it was an idea :bart: (Kinda new to Scar) rofl

[Starblaster100]

program New;

Procedure Write;
begin
If(isfkeydown(2)) then
WriteLn('Hello World');
End;

Procedure BBQ;
Begin
Repeat
Write;
Until(IsFKeyDown(2));
end;
End.

Dont know why it dosnt work but it was an idea :bart: (Kinda new to Scar) rofl

You need to add a little wait into your loop (I think)

program New;

Procedure Write;
begin
If(isfkeydown(2)) then
WriteLn('Hello World');
End;

Procedure BBQ;
Begin
Repeat
Write;
Wait(10);
Until(IsFKeyDown(2));
end;
End.

[Dan Cardin]

this should work right?program hi;

var toot,woot,hoot,loot,boop,e,f,g:integer;

procedure ThisIsPointless(g:string);//<<<<<;p!!!
begin
toot:=654545/1564+123165-65421*8716545-54*654+54564/65421
woot:=789456123-789546122+6999/7*9-8000+2/2
hoot:=6579546/654*654+321687949-654987/6*654987546/5646546
loot:=687987987987987987987979-8974654564162123165*654/65
if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
writeln(g)
end;

procedure ThisIsPointless1(f:string);
begin
toot:=6579546/654*654+321687949-654987/6*654987546/5646546
woot:=654545/1564+123165-65421*8716545-54*654+54564/65421
hoot:=687987987987987987987979-8974654564162123165*654/65
loot:=789456123-789546122+6999/7*9-8000+2/2
if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
writeln(f)
end;

procedure Thisispointless2(e:string);
begin
toot:=789456123-789546122+6999/7*9-8000+2/2
woot:=687987987987987987987979-8974654564162123165*654/65
hoot:=6579546/654*654+321687949-654987/6*654987546/5646546
loot:=654545/1564+123165-65421*8716545-54*654+54564/65421
if toot/hoot*woot-loot+hoot*woot/15*toot-475+loot >=5 then
writeln(e);
end;

begin
boop:=10
cleardebug;
wait(2000);
repeat
case random(3) of
0:begin
thisispointless('hell')
boop:=boop-3
end;
1:begin
thisispointless1('o wo')
boop:=boop*2
end;
2:begin
thisispointless2('rld')
boop:=boop+5
end;
end;
if not boop = 6 then boop:=10
until boop=6
Clickmouse(579,613,true);
keydown(38)
wait(100)
keyup(38)
keydown(38)
wait(100)
keyup(38)
keydown(38)
wait(100)
keyup(38)
keydown(13)
wait(100)
keyup(13)
end.

[Boreas]

program New;


procedure WriteWord(TheString:string);
var GoodString,RanLetter:string;
i:integer;
begin
for i:=1 to Length(TheString) do
begin
repeat
cleardebug;
RanLetter:=chr(random(26)+65);
if random(2)=1 then
RanLetter:=lowercase(RanLetter);
if random(53)=1 then
RanLetter:=' ';
writeln(GoodString+RanLetter);
wait(10);
until RanLetter=TheString[i];
GoodString:=GoodString+ranLetter;
end;
end;

begin
WriteWord('Hello World');
Writeln('Successfully executed');
wait(3000);
Writeln('Just kidding, now I'+chr(39)+'m really done');
end.

[Rikje]

lol @boreas.. :p

ill make on to. edit my post later. :D

[Starblaster100]

lol, very clever Boreas :p

[Hugolord]

program New;


procedure WriteWord(TheString:string);
var GoodString,RanLetter:string;
i:integer;
begin
for i:=1 to Length(TheString) do
begin
repeat
cleardebug;
RanLetter:=chr(random(26)+65);
if random(2)=1 then
RanLetter:=lowercase(RanLetter);
if random(53)=1 then
RanLetter:=' ';
writeln(GoodString+RanLetter);
wait(10);
until RanLetter=TheString[i];
GoodString:=GoodString+ranLetter;
end;
end;

begin
WriteWord('Hello World');
Writeln('Successfully executed');
wait(3000);
Writeln('Just kidding, now I'+chr(39)+'m really done');
end.

rofl haha lmfao!!!!

[Nitro]

You need to add a little wait into your loop (I think)

program New;

Procedure Write;
begin
If(isfkeydown(2)) then
WriteLn('Hello World');
End;

Procedure BBQ;
Begin
Repeat
Write;
Wait(10);
Until(IsFKeyDown(2));
end;
End.

I fixed it for you :) Actually compiles now.

program New;

Procedure Write;
begin
If(isfkeydown(2)) then
WriteLn('Hello World');
End;

Begin
Repeat
Write;
Wait(10);
Until(IsFKeyDown(2));
End.

[Starblaster100]

o haha, nice catch, didn't see that :p

[WT-Fakawi]

program HelloWorld;
var
WeirdString:String;
i:Integer;

begin
WeirdString:='Ifmmp!Xpsme'
for i:= 1 to Length(WeirdString) do
WeirdString[i] := Chr(Ord(WeirdString[i]) - 1);
Writeln(WeirdString);
end.

[Rikje]

program HelloWorld;

var
i, HelloWorldWiki, x, y: integer;
Hello: array [0..14] of String;

procedure GetPage;
begin
OpenWebPage('http://www.google.com');
end;

procedure LoadKeys;
begin
HelloWorldWiki := DTMFromString('78DA633CC7C0C050C2C80002101204CEC0F 9F' +
'F8180F131909187A9E63F129F7103767350D43411614E3A90 2825' +
'A0C61EC82A20640E905548404D1690554140CD2722DCDC498 47B4' +
'E01896C026A7819089BD30F6415E35703004B2E277F');

Hello[0]:='';
Hello[1]:='H';
Hello[2]:='e';
Hello[3]:='l';
Hello[4]:='l';
Hello[5]:='o';
Hello[6]:=' ';
Hello[7]:='W';
Hello[8]:='a';
Hello[9]:='l';
Hello[10]:='o';
Hello[11]:='r';
Hello[12]:='l';
Hello[13]:='d';
Hello[14]:='!';
end;

procedure Google;
begin
Wait(2000);
if (FindDTM(HelloWorldWiki, x, y, 0, 0, 950, 600)) then
begin
WriteLn('We googled....')
Wait(1000);
ClickMouse(x, y, True);
WriteLn('Where at the page that give you a link to a lot of knowlenge..')
WriteLn('Where at a page that goes about ''Hello World'' world. =]');
WriteLn('the topic you came from is learing you that to. My way:');
begin
WriteLn('Hello World');
end;
end else
begin
WriteLn('Did not found google... doent matter, there noobs they cant google either..');
WriteLn('Hello World');
end;
FreeDTM(HelloWorldWiki);
end;

procedure Write;
begin
for i:= 1 to 14 do
begin
SendKeys(Hello[i]);
Wait(200);
If i = 8 or 9 then
begin
SendKeysVB('{BKSP}', True);
SendKeysVB('{BKSP}', True);
end;
end;
SendKeys(+chr(13));
end;

{ Main Loop }
begin
Getpage;
Wait(3000);
CleardeBug;
LoadKeys;
Write;
Google;
end.


i was learing arrays...
my real one:

program HelloWorld;
begin
WriteLn('Hello World');
end.


edit: @spky, thx. ive allways done that :o

[Spky]

rikjess, don't put semi-colons after begins.

[Harry]

Haha, I like Boreases. I am too st00pid to make one diff, everyone has t00ken my ideas :S I am sucha nub c@k3

[Sp0rky]

5 RoflCakes and you're dead.


program HellWorld;
var
EatenRoflCake, TimesStrokedYourFace : Integer;

Function YourFaceIsUgly : Boolean;
begin
if EatenRoflCake >= 5 then
Result := True
else
Result := False;
end;

Procedure StrokeYourBeautifulFace;
begin
TimesStrokedYourFace := TimesStrokedYourFace +1;
Writeln('Stroking Your Face. Times Stroked: '+IntToStr(TimesStrokedYourFace))
end;

Function BloodEverywhere : Boolean;
begin
case random(2) of
0: begin
Result := True;
Writeln('Yay I killed myself');
end;
1: begin
Result := False;
Writeln('I fail at even killing myself.');
end;
end;
end;

Function YouDoItProperly : Boolean;
begin
if BloodEverywhere then
begin
Result := True;
Writeln('Omg im dead.')
end
else
begin
Writeln('Trying To kill myself again.')
Writeln('Need more food for energy to kill myself.')
end
end;

Procedure Death;
begin
Writeln('Hello World.');
ClearReport;
AddToReport('Hello World.');
Writeln('Or should I say bye bye world?');
TerminateScript;
end;

Procedure CutWristsWideOpen;
begin
if YouDoItProperly then
Death;
end;

Procedure SlashWrists;
begin
Writeln('Im so ugly :( Time to die.');
wait(10);
CutWristsWideOpen;
end;

Procedure EatSomeCake;
begin
EatenRoflCake := EatenRoflCake +1;
Writeln('Eating a roflcake: Growing fat and ugly.');
wait(50);
end;

Procedure MainLoop;
begin
EatSomeCake
if YourFaceIsUgly = True then
SlashWrists
else
StrokeYourBeautifulFace
end;

begin
ClearDebug;
repeat
MainLoop;
until False;
end.

[Janilabo]

Nice topic :D

Here you go:


program HelloWorld;

procedure HelloWorld(var HW: string);
begin
HW:= 'Hello World';
end;

var
tehHelloWorld: string;

begin
ClearDebug;
HelloWorld(tehHelloWorld);
WriteLn(tehHelloWorld);
end.

[Starblaster100]

O come on lol. You guys are all doing the same thing!



program New;

procedure Write(Text: string);
begin
Writeln(Text);
end;

procedure Run(proc: procedure(s: string); Text: string);
begin
proc(Text);
end;

begin
ClearDebug;
Run(@Write, 'Hello World!');
end.

[Sp0rky]

I love Boreas's. Its like the matrix =o

[WhiteShadow]

program New;
var
i: integer;
begin
if (i = 2) xor (i = 1)then
Writeln('HelloWorld');
end.

[WT-Fakawi]

This could grow into a considerable collection. Hello World hasnt left my mind this day.

[3Garrett3]

Spork, Yours made me lol when i was looking it through, heres a proggy :p


Eating a roflcake: Growing fat and ugly.
Stroking Your Face. Times Stroked: 1
Eating a roflcake: Growing fat and ugly.
Stroking Your Face. Times Stroked: 2
Eating a roflcake: Growing fat and ugly.
Stroking Your Face. Times Stroked: 3
Eating a roflcake: Growing fat and ugly.
Stroking Your Face. Times Stroked: 4
Eating a roflcake: Growing fat and ugly.
Im so ugly :( Time to die.
I fail at even killing myself.
Trying To kill myself again.
Need more food for energy to kill myself.
Eating a roflcake: Growing fat and ugly.
Im so ugly :( Time to die.
I fail at even killing myself.
Trying To kill myself again.
Need more food for energy to kill myself.
Eating a roflcake: Growing fat and ugly.
Im so ugly :( Time to die.
Yay I killed myself
Omg im dead.
Hello World.
Or should I say bye bye world?
Successfully executed

[Sp0rky]

Lol, yeah I was in a random mood.

[stupedspam]

Compared with some I have seen so far mine isn't so great...

program HelloWorld;
const
Doit = 1; //pick between 1 or 2 ;
timewait =1000; //in milliseconds

procedure Writethis(text:string;waittime:integer);
begin
writeln(text)
wait(waittime)
end;

procedure Typeitout(a,b,c,d,e,f,g,h,i,j,k:string; timespace:integer);
begin
WriteLn(a)
wait(timespace+ Random(100))
WriteLn(b)
wait(timespace+ Random(100))
WriteLn(c)
wait(timespace+ Random(100))
WriteLn(d)
wait(timespace+ Random(100))
WriteLn(e)
wait(timespace+ Random(100))
WriteLn(f)
wait(timespace+ Random(100))
WriteLn(g)
wait(timespace+ Random(100))
WriteLn(h)
wait(timespace+ Random(100))
WriteLn(i)
wait(timespace+ Random(100))
WriteLn(j)
wait(timespace+ Random(100))
WriteLn(k)
end;

Procedure PickOne(level:integer);
begin
case level of
1:Writethis('Hello World', timewait);
2:Typeitout('H','E','L','L','O',' ','W','O','R','L','D',timewait);
end;
end;

begin
PickOne(Doit)
end.

Can someone tell me how to split a string into just its letters from 'hey' to 'h' 'e' 'y'?

~Stupedspam

Edit: I could have done an array...
Edit2: Nvm I don't know how...

[Spky]

function SetWindowText(HWnd: LongInt; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
function FindWindow(ClassName, WindowName: PChar): Longint; external 'FindWindowA@user32.dll stdcall' ;
function FindWindowEx(Parent, Child : LongInt; ClassName, WindowName : PChar) : LongInt; external 'FindWindowExA@user32.dll stdcall' ;
function SendMessage(HWnd, Msg, wParam, lParam : LongInt) : LongInt; external 'SendMessageA@user32 stdcall';
function MoveWindow(HWnd: LongInt; X, Y, nWidth, nHeight: Integer; Repaint: Boolean): Boolean; external 'MoveWindow@user32 stdcall';
function GetWindowRect(HWnd : LongInt; var Rect : TRect) : Boolean; external 'GetWindowRect@user32.dll stdcall' ;

var
StartBtnHandle : LongInt;
StartBtnRect : TRect;

begin
StartBtnHandle:= FindWindowEx(FindWindow('Shell_TrayWnd', ''), 0, 'Button', '');
GetWindowRect(StartBtnHandle, StartBtnRect);
SetWindowText(StartBtnHandle, 'Hello, World!');
MoveWindow(StartBtnHandle, 0, 0, 160, StartBtnRect.Bottom - StartBtnRect.Top, True);
SendMessage(StartBtnHandle, $0200, 0, 0);
end.

[bullzeye95]

Whoa lol I guess I should've read the script before I ran that :p

I had windowblinds (whatever that thing's called) and it stretched my button to like three times it size...

I don't feel like thinking today.
Nice one star, I learned something! Also, this question has be bugging me, but I don't wanna make a topic for it: Are arrays of procedures possible?

EDIT: (A quick restart of explorer.exe fixed it...)

[Cheesehunk]

Hehe, fun..;)


function HelloWorld: String;
var S: String;
begin
S := GetPage('http://www.google.ca/search?hl=en&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial&hs=xNG&q=first+world+program&btnG=Search&meta=');
S := Between('UI', 'pro', S);
Delete(S, Pos('<b>', S), 3);
Result := S;
end;

begin
WriteLn(HelloWorld);
end.

[WT-Fakawi]

Hehe, fun..;)


function HelloWorld: String;
var S: String;
begin
S := GetPage('http://www.google.ca/search?hl=en&client=firefox-a&rls=org.mozilla%3Aen-US%3Aofficial&hs=xNG&q=first+world+program&btnG=Search&meta=');
S := Between('UI', 'pro', S);
Delete(S, Pos('<b>', S), 3);
Result := S;
end;

begin
WriteLn(HelloWorld);
end.


New Favourite! Its gonna be tough beating this one. :)

Skills...

[bullzeye95]

I'm surprised nobody's done this:
program New;
begin
GetDebugCanvas.Font.Size:= 50;
GetDebugCanvas.Font.Color:= clRed;
DisplayDebugImgWindow(GetDebugCanvas.TextWidth('HE LLO WORLD!'), GetDebugCanvas.TextHeight('HELLO WORLD!'));
GetDebugCanvas.TextOut(0, 0, 'HELLO WORLD!');
end.

EDIT: Why do you have to run it twice for it to work right?

[~alex~]

I'm surprised nobody's done this:
program New;
begin
GetDebugCanvas.Font.Size:= 50;
GetDebugCanvas.Font.Color:= clRed;
DisplayDebugImgWindow(GetDebugCanvas.TextWidth('HE LLO WORLD!'), GetDebugCanvas.TextHeight('HELLO WORLD!'));
GetDebugCanvas.TextOut(0, 0, 'HELLO WORLD!');
end.

EDIT: Why do you have to run it twice for it to work right?

[Runtime Error] : Canvas does not allow drawing in line 5 in script

:O

[bullzeye95]

Oopsie, here.
program New;
begin
DisplayDebugImgWindow(1, 1);
GetDebugCanvas.Font.Size:= 50;
GetDebugCanvas.Font.Color:= clRed;
DisplayDebugImgWindow(GetDebugCanvas.TextWidth('HE LLO WORLD!'), GetDebugCanvas.TextHeight('HELLO WORLD!'));
GetDebugCanvas.TextOut(0, 0, 'HELLO WORLD!');
end.

[Town]

program New;

var
i: Array[0..10] of String;

procedure HelloArray;
var
p: Integer;
begin
for p := 0 to 11 do
begin
case p of
0: i[p] := 'h';
1: i[p] := 'e';
2: i[p] := 'l';
3: i[p] := 'l';
4: i[p] := 'o';
5: i[p] := ' ';
6: i[p] := 'w';
7: i[p] := 'o';
8: i[p] := 'r';
9: i[p] := 'l';
10: i[p] := 'd';
end;
end;
end;

function Hello: String;
var
z: Integer;
begin
HelloArray;
For z := 0 to 10 do
Result := Result + i[z];
end;

begin
WriteLN(Capitalize(Hello));
end.

[Spky]

Ok it won't screw with your start button this time. Wooo.
{ Enable API Calls }

function SetWindowText(HWnd: LongInt; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
function FindWindow(ClassName, WindowName: PChar): Longint; external 'FindWindowA@user32.dll stdcall' ;
function FindWindowEx(Parent, Child: LongInt; ClassName, WindowName : PChar) : LongInt; external 'FindWindowExA@user32.dll stdcall' ;

begin
SetWindowText(FindWindowEx(FindWindowEx(FindWindow Ex(FindWindowEx(FindWindow('TMainForm', ''), 0, 'TPanel', ''), 0, 'TPageControl', ''), 0, 'TTabSheet', ''), 0, 'TSynMemo', ''), 'begin'#13' Writeln('#39'Hello, World'#39');'#13'end.');
end.

Lmao. My code makes me laugh. Weird. (h)

[Cheesehunk]

Ok it won't screw with your start button this time. Wooo.
{ Enable API Calls }

function SetWindowText(HWnd: LongInt; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
function FindWindow(ClassName, WindowName: PChar): Longint; external 'FindWindowA@user32.dll stdcall' ;
function FindWindowEx(Parent, Child: LongInt; ClassName, WindowName : PChar) : LongInt; external 'FindWindowExA@user32.dll stdcall' ;

begin
SetWindowText(FindWindowEx(FindWindowEx(FindWindow Ex(FindWindowEx(FindWindow('TMainForm', ''), 0, 'TPanel', ''), 0, 'TPageControl', ''), 0, 'TTabSheet', ''), 0, 'TSynMemo', ''), 'begin'#13' Writeln('#39'Hello, World'#39');'#13'end.');
end.

Lmao. My code makes me laugh. Weird. (h)
I keep getting this:


Line 4: [Error] (4:1): Semicolon (';') expected in script

[bullzeye95]

Notice the "{ Enable API Calls }" ;)

[Starblaster100]

This could grow into a considerable collection. Hello World hasnt left my mind this day.

Good, I am glad you like it lol.

Nice on Spky, love it :)

[JuKKa]

Program HelloWorld;

Procedure HelloWorld;
Var
Hello: Array [0..10] Of String;
I: Integer;
Begin
Hello[0]:='H';
Hello[1]:='HE';
Hello[2]:=' EL';
Hello[3]:=' LL';
Hello[4]:=' LO';
Hello[5]:=' O_';
Hello[6]:=' _W';
Hello[7]:=' WO';
Hello[8]:=' OR';
Hello[9]:=' RL';
Hello[10]:=' LD';
For I:= 0 To Length('Hello World')-1 Do
Begin
ClearDeBug;
Writeln(Hello[I]);
Wait(100);
End;
End;

Begin
Repeat
HelloWorld;
Wait(10);
Until(false);
End.


ANIMATION!

[Cheesehunk]

Notice the "{ Enable API Calls }" ;)
LOL!
Whoops, I never messed with API calls before, I thought that was just commenting for the script, didn't know it was instructions. My bad..:redface:

[Bebe]

Haha, Nice one Star :D



Function DidISayit(S: String): Boolean;
Begin
if (Lowercase(s) = 'hello world') then
begin
Result := true;
Writeln('Hello World!');
end;
end;


program HloDer;
label loop;
var
count : integer;
begin
count := 1;
loop: writeln('Hello World!');
count := count + 1;
if(count <= 10)then goto loop
end.

[RAM]

Enjoy :)

{ Best to Maxamize Debug Window (Close Report and Function List) }

Program New;Procedure BabBle;Begin WriteLn(' ** ** ** ** ** ** ** **'
);WriteLn('/** /** /** /** /** /** /** /**'
);WriteLn('/** /** ***** /** /** ****** /** * /** ****** ****** /** /**'
);WriteLn('/********** **///** /** /** **////** /** *** /** **////**//**//* /** ******'
);WriteLn('/**//////**/******* /** /**/** /** /** **/**/**/** /** /** / /** **///**'
);WriteLn('/** /**/**//// /** /**/** /** /**** //****/** /** /** /**/** /**'
);WriteLn('/** /**//****** *** ***//****** /**/ ///**//****** /*** ***//******'
);WriteLn('// // ////// /// /// ////// // // ////// /// /// //////'
);Wait(3000);Cleardebug;WriteLn('# # # # # # # #');WriteLn
('# # ### # # ### # # ### ### # ###');WriteLn('### ## # # # # ### # # # # # #'
);WriteLn('# # ### ## ## ### ### ### # ## ###');WriteLn('# # # #'
);Wait(3000);Cleardebug;WriteLn(' // / /');WriteLn(' //___ / / ___ // // ___'
);WriteLn(' / ___ / //___) ) // // // ) )');WriteLn(' // / / // // // // / /'
);WriteLn('// / / ((____ // // ((___/ /');WriteLn(' '
);WriteLn(' ');WriteLn('|| / | / /');WriteLn('|| / | / / ___ __ // ___ /'
);WriteLn('|| / /||/ / // ) ) // ) ) // // ) /');WriteLn('||/ / | / // / / // // // / /'
);WriteLn('| / | / ((___/ / // // ((___/ /');Wait(3000);Cleardebug;WriteLn
(' o o o o');WriteLn(' <|> <|> <|> <|>'
);WriteLn(' < > < > / \ / \');WriteLn(' | | o__ __o \o/ \o/ o__ __o'
);WriteLn(' o__/_ _\__o /v |> | | /v v\');WriteLn(' | | /> // / \ / \ /> <\'
);WriteLn(' <o> <o> \o o/ \o/ \o/ \ / ');WriteLn(' | | v\ /v __o | | o o'
);WriteLn(' / \ / \ <\/> __/> / \ / \ <\__ __/>');Wait(2000);Cleardebug
;WriteLn(' o o o o');WriteLn(' <|> <|> <|> <|>'
);WriteLn(' / \ / \ / \ < \');WriteLn
(' \o/ \o/ o__ __o \o__ __o \o/ o__ __o/');WriteLn(' | | /v v\ | |> | /v | '
);WriteLn(' < > < > /> <\ / \ < > / \ /> / \');WriteLn
(' \o o/\o o/ \ / \o/ \o/ \ \o/');WriteLn(' v\ /v v\ /v o o | | o | '
);WriteLn(' <\/> <\/> <\__ __/> / \ / \ <\__ / \');Wait(3000
);Cleardebug;WriteLn(' ::: ::: :::::::::: ::: ::: :::::::: '
);WriteLn(' :+: :+: :+: :+: :+: :+: :+:');WriteLn(' +:+ +:+ +:+ +:+ +:+ +:+ +:+'
);WriteLn(' +#++:++#++ +#++:++# +#+ +#+ +#+ +:+ ');WriteLn
(' +#+ +#+ +#+ +#+ +#+ +#+ +#+');WriteLn(' #+# #+# #+# #+# #+# #+# #+# '
);WriteLn('### ### ########## ########## ########## ########');WriteLn(' ::: ::: :::::::: ::::::::: ::: :::::::::'
);WriteLn(' :+: :+: :+: :+: :+: :+: :+: :+: :+: ');WriteLn
(' +:+ +:+ +:+ +:+ +:+ +:+ +:+ +:+ +:+ ');WriteLn(' +#+ +:+ +#+ +#+ +:+ +#++:++#: +#+ +#+ +:+'
);WriteLn('+#+ +#+#+ +#+ +#+ +#+ +#+ +#+ +#+ +#+ +#+ ');WriteLn
('#+#+# #+#+# #+# #+# #+# #+# #+# #+# #+# ');WriteLn('### ### ######## ### ### ########## ######### '
);Wait(3000);Cleardebug;WriteLn('::: ::: :::::::::: ::: ::: :::::::: '
);WriteLn(':+: :+: :+: :+: :+: :+: :+: ');WriteLn(
'+:+ +:+ +:+ +:+ +:+ +:+ +:+ ');WriteLn('+#++:++#++ +#++:++# +#+ +#+ +#+ +:+'
);WriteLn('+#+ +#+ +#+ +#+ +#+ +#+ +#+ ');WriteLn
('#+# #+# #+# #+# #+# #+# #+#');WriteLn('### ### ########## ########## ########## ######## '
);WriteLn('::: ::: :::::::: ::::::::: ::: ::::::::: ');WriteLn
(':+: :+: :+: :+: :+: :+: :+: :+: :+:');WriteLn('+:+ +:+ +:+ +:+ +:+ +:+ +:+ +:+ +:+ '
);WriteLn('+#+ +:+ +#+ +#+ +:+ +#++:++#: +#+ +#+ +:+');WriteLn('+#+ +#+#+ +#+ +#+ +#+ +#+ +#+ +#+ +#+ +#+ '
);WriteLn(' #+#+# #+#+# #+# #+# #+# #+# #+# #+# #+# ');WriteLn
(' ### ### ######## ### ### ########## ######### ');Wait(3000);Cleardebug
;WriteLn('H H l l W W l d ');WriteLn('H H l l W W l d '
);WriteLn('HHHH eee l l ooo W W W ooo rrr l ddd ');WriteLn('H H e e l l o o W W W o o r l d d'
);WriteLn('H H ee l l ooo W W ooo r l ddd ');Wait(3000);Cleardebug;
WriteLn(' _ _____ _ _ ____ _ ____ ____ _ ____ ');WriteLn
('/ \ /|/ __// \ / \ / _ \ / \ /|/ _ \/ __\/ \ / _ \ ');WriteLn('| |_||| \ | | | | | / \| | | ||| / \|| \/|| | | | \|'
);WriteLn('| | ||| /_ | |_/\| |_/\| \_/| | |/\||| \_/|| /| |_/\| |_/| ')
;WriteLn('\_/ \|\____\\____/\____/\____/ \_/ \|\____/\_/\_\\____/\____/');Wait(
3000);Cleardebug;WriteLn('# # # #');WriteLn
('# # ###### # # #### # # # #### ##### # #####');WriteLn
('# # # # # # # # # # # # # # # # # ')
;WriteLn('####### ##### # # # # # # # # # # # # # #'
);WriteLn('# # # # # # # # # # # # ##### # # # '
);WriteLn('# # # # # # # # # # # # # # # # # '
);WriteLn('# # ###### ###### ###### #### ## ## #### # # ###### #####'
);Wait(3000);Cleardebug;WriteLn('><< ><< ><< ><<');WriteLn('><< ><< ><< ><< '
);WriteLn('><< ><< ><< ><< ><< ><<');WriteLn('><<<<<< ><< >< ><< ><< ><< ><< ><< '
);WriteLn('><< ><<><<<<< ><< ><< ><<><< ><<');WriteLn('><< ><<>< ><< ><< ><< ><< '
);WriteLn('><< ><< ><<<< ><<<><<< ><<');WriteLn(' '
);WriteLn('><< ><< ><< ><< ');WriteLn('><< ><< ><< ><<'
);WriteLn('><< >< ><< ><< >< ><<< ><< ><< ');WriteLn('><< ><< ><< ><< ><< ><< ><< ><< ><<'
);WriteLn('><< >< ><< ><<><< ><< ><< ><<>< ><< ');WriteLn('>< >< ><<<< ><< ><< ><< ><<>< ><< '
);WriteLn('><< ><< ><< ><<< ><<< ><< ><< ');Wait(3000);Cleardebug;WriteLn
(' _ _ _ _ __ __ _ _ ');WriteLn('| | | | | | | \ \ / / | | | | '
);WriteLn('| |__| | ___| | | ___ \ \ /\ / /__ _ __| | __| |');WriteLn('| __ |/ _ \ | |/ _ \ \ \/ \/ / _ \| __| |/ _` | '
);WriteLn('| | | | __/ | | (_) | \ /\ / (_) | | | | (_| |');WriteLn('|_| |_|\___|_|_|\___/ \/ \/ \___/|_| |_|\__,_| '
);Wait(3000);Cleardebug;WriteLn('_| _| _| _|');WriteLn('_| _| _|_| _| _| _|_| '
);WriteLn('_|_|_|_| _|_|_|_| _| _| _| _|');WriteLn('_| _| _| _| _| _| _| '
);WriteLn('_| _| _|_|_| _| _| _|_|');WriteLn(' '
);WriteLn(' ');WriteLn('_| _| _| _|'
);WriteLn('_| _| _|_| _| _|_| _| _|_|_| ');WriteLn('_| _| _| _| _| _|_| _| _| _|'
);WriteLn(' _| _| _| _| _| _| _| _| _| ');WriteLn(' _| _| _|_| _| _| _|_|_|'
);Wait(3000);Cleardebug;WriteLn(' _ _ _ _ _ _ _ _ _ _ ');WriteLn
(' / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ ');WriteLn('( H | e | l | l | o ) ( W | o | r | l | d )'
);WriteLn(' \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ ');Wait(3000);Cleardebug
;WriteLn(' _ _ ____ __ __ _____ _ _ _____ ____ __ ____');WriteLn
('( )_( )( ___)( ) ( ) ( _ ) ( \/\/ )( _ )( _ \( ) ( _ \ ');WriteLn
(' ) _ ( )__) )(__ )(__ )(_)( ) ( )(_)( ) / )(__ )(_) )');WriteLn(
'(_) (_)(____)(____)(____)(_____) (__/\__)(_____)(_)\_)(____)(____/ ');Wait(3000
);Cleardebug;WriteLn(' ##### ## ### ### ');WriteLn
(' ###### / #### / ### ###');WriteLn(' /# / / ####/ ## ## '
);WriteLn('/ / / # # ## ##');WriteLn(' / / # ## ## '
);WriteLn(' ## ## # /## ## ## /###');WriteLn(' ## ## # / ### ## ## / ### / '
);WriteLn(' ## ######## / ### ## ## / ###/');WriteLn(' ## ## # ## ### ## ## ## ## '
);WriteLn(' ## ## ## ######## ## ## ## ## ');WriteLn(
' # ## ## ####### ## ## ## ##');WriteLn(' / ## ## ## ## ## ## '
);WriteLn(' /##/ ## #### / ## ## ## ## ');
WriteLn(' / ##### ## ######/ ### / ### / ######');WriteLn('/ ## ##### ##/ ##/ ####'
);WriteLn('#');WriteLn(' ## ');WriteLn(' '
);Wait(2000);Cleardebug;WriteLn(' '
);WriteLn(' '
);WriteLn(' ##### / ## ### ### ##');WriteLn
(' ###### / ##### ### ### ## ');WriteLn
(' /# / / ##### ### ## ##');WriteLn('/ / ## # ## ## ## ## '
);WriteLn(' / ### # ## ## ##');WriteLn
(' ## ## # ## /### ### /### ## ### ## ');WriteLn
(' ## ## # ## / ### / ###/ #### / ## #########');WriteLn(' ## ## # ## / ###/ ## ###/ ## ## #### '
);WriteLn(' ## ## # ## ## ## ## ## ## ##');WriteLn
(' ## ## # ## ## ## ## ## ## ## ');WriteLn
(' ## ## # ## ## ## ## ## ## ## ');WriteLn
(' ## # # / ## ## ## ## ## ##');WriteLn(' ### /## / ## ## ## ## ## /# '
);WriteLn(' #######/ #######/ ###### ### ### / ####/ '
);WriteLn(' #### #### #### ### ##/ ###');Wait(3000
);Cleardebug;WriteLn('_// _// _// _//');WriteLn('_// _// _// _// '
);WriteLn('_// _// _// _// _// _//');WriteLn('_////// _// _/ _// _// _// _// _// '
);WriteLn('_// _//_///// _// _// _//_// _// ');WriteLn('_// _//_/ _// _// _// _//'
);WriteLn('_// _// _//// _///_/// _// ');WriteLn(' '
);WriteLn('_// _// _// _// ');WriteLn('_// _// _// _// '
);WriteLn('_// _/ _// _// _/ _/// _// _//');WriteLn('_// _// _// _// _// _// _// _// _// '
);WriteLn('_// _/ _// _//_// _// _// _//_/ _//');WriteLn('_/ _/ _//// _// _// _// _//_/ _// '
);WriteLn('_// _// _// _/// _/// _// _// ');Wait(3000);Cleardebug
;WriteLn(' _______ __ __ ________ __ __ ');WriteLn
('| | |.-----.| | |.-----. | | | |.-----.----.| |.--| |');WriteLn('| || -__|| | || _ | | | | || _ | _|| || _ | '
);WriteLn('|___|___||_____||__|__||_____| |________||_____|__| |__||_____|');Wait
(3000);Cleardebug;WriteLn('O)) O)) O)) O))');WriteLn('O)) O)) O)) O)) '
);WriteLn('O)) O)) O)) O)) O)) O))');WriteLn('O)))))) O)) O) O)) O)) O)) O)) O)) '
);WriteLn('O)) O))O))))) O)) O)) O))O)) O))');WriteLn('O)) O))O) O)) O)) O)) O)) '
);WriteLn('O)) O)) O)))) O)))O))) O))');WriteLn(' '
);WriteLn('O)) O)) O)) O)) ');WriteLn('O)) O)) O)) O))'
);WriteLn('O)) O) O)) O)) O) O))) O)) O)) ');WriteLn('O)) O)) O)) O)) O)) O)) O)) O)) O))'
);WriteLn('O)) O) O)) O))O)) O)) O)) O))O) O)) ');WriteLn('O) O) O)))) O)) O)) O)) O))O) O))'
);WriteLn('O)) O)) O)) O))) O))) O)) O)) ');Wait(3000);Cleardebug
;WriteLn('. . .. . . . .');WriteLn('|__| _ || _ | | _ ._.| _| '
);WriteLn('| |(/,||(_) |/\|(_)[ |(_] ');Wait(3000);Cleardebug;WriteLn('.%%..%%..%%%%%%. .%%......%%.......%%%%..'
);WriteLn('.%%..%%..%%......%%......%%......%%..%% . ');WriteLn('.%%%%%%..%%%%....%%......%%......%%..% %. '
);WriteLn('.%%..%%..%%......%%......%%......%%..%% . ');WriteLn('.%%..%%..%%%%%%..%%%%%%..%%%%%%...%%%% ..'
);WriteLn('....................................... . ');WriteLn('.%%...%%...%%%%...%%%%%...%%......%%%% %.. '
);WriteLn('.%%...%%..%%..%%..%%..%%..%%......%%..% %.');WriteLn('.%%.%.%%..%%..%%..%%%%%...%%......%% ..%%. '
);WriteLn('.%%%%%%%..%%..%%..%%..%%..%%......%%..% %.');WriteLn('..%%.%%....%%%%...%%..%%..%%%%%%..%% %%%.. '
);WriteLn('....................................... .. ');Wait(3000);
Cleardebug;WriteLn(' _ _ _______ _____ ');WriteLn(' |_____| |______ | | | |'
);WriteLn(' | | |______ |_____ |_____ |_____| ');WriteLn(' '
);WriteLn(' _ _ _ _____ ______ ______ ');WriteLn(' | | | | | |_____/ | | \ '
);WriteLn(' |__|__| |_____| | \_ |_____ |_____/');Wait(3000);Cleardebug;WriteLn
('_ _ ____ _ _ ____ _ _ _ ____ ____ _ ___');WriteLn('|__| |___ | | | | | | | | | |__/ | | \ '
);WriteLn('| | |___ |___ |___ |__| |_|_| |__| | \ |___ |__/ ');Wait(3000
);Cleardebug;WriteLn(' _ _ ____ _ _ ____ _ _ ____ ____ _ ___');WriteLn
(' |--| |=== |___ |___ [__] |/\| [__] |--< |___ |__> ');Wait(3000);Cleardebug
;WriteLn('/\\ /\\ /\\ /\\');WriteLn('/\\ /\\ /\\ /\\ '
);WriteLn('/\\ /\\ /\\ /\\ /\\ /\\ ');WriteLn('/\\\\\\ /\\ /\ /\\ /\\ /\\ /\\ /\\'
);WriteLn('/\\ /\\/\\\\\ /\\ /\\ /\\/\\ /\\ ');WriteLn('/\\ /\\/\ /\\ /\\ /\\ /\\'
);WriteLn('/\\ /\\ /\\\\ /\\\/\\\ /\\ ');WriteLn(' '
);WriteLn('/\\ /\\ /\\ /\\');WriteLn('/\\ /\\ /\\ /\\ '
);WriteLn('/\\ /\ /\\ /\\ /\ /\\\ /\\ /\\ ');WriteLn('/\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ /\\ '
);WriteLn('/\\ /\ /\\ /\\/\\ /\\ /\\ /\\/\ /\\');WriteLn('/\ /\ /\\\\ /\\ /\\ /\\ /\\/\ /\\ '
);WriteLn('/\\ /\\ /\\ /\\\ /\\\ /\\ /\\ ');Wait(3000
);Cleardebug;WriteLn('+-+-+-+-+-+ +-+-+-+-+-+ ');WriteLn('|H|e|l|l|o| |W|o|r|l|d|'
);WriteLn('+-+-+-+-+-+ +-+-+-+-+-+ ');Wait(3000);Cleardebug;WriteLn(' _ _ _ _ _ _ _ _ '
);WriteLn('| | | | | | | | | | | | | | | ');WriteLn('| |_| | ___| | | ___ | | | | ___ _ __| | __| |'
);WriteLn('| _ |/ _ \ | |/ _ \ | |/\| |/ _ \| __| |/ _` | ');WriteLn('| | | | __/ | | (_) | \ /\ / (_) | | | | (_| |'
);WriteLn('\_| |_/\___|_|_|\___/ \/ \/ \___/|_| |_|\__,_| ');Wait(3000
);Cleardebug;WriteLn(' _ _ _ _ _ _ ');WriteLn('(_) (_) (_)(_) (_)(_) '
);WriteLn('(_) (_) _ _ _ _ (_) (_) _ _ _');WriteLn('(_) _ _ _ (_) (_)(_)(_)(_)_ (_) (_) _ (_)(_)(_) _ '
);WriteLn('(_)(_)(_)(_)(_)(_) _ _ _ (_) (_) (_) (_) (_) ');WriteLn
('(_) (_)(_)(_)(_)(_)(_) (_) (_) (_) (_)');WriteLn('(_) (_)(_)_ _ _ _ _ (_) _ _ (_) _(_) _ _ _ (_) '
);WriteLn('(_) (_) (_)(_)(_)(_)(_)(_)(_)(_)(_)(_) (_)(_)(_)');WriteLn(' '
);WriteLn(' ')
;WriteLn(' _ _ _ _ _ ');WriteLn
('(_) (_) (_)(_) (_) ');WriteLn('(_) (_) _ _ _ _ _ _ (_) _ _ _ (_)'
);WriteLn('(_) _ (_) _ (_)(_)(_) _(_)_ _ (_)(_)(_) _(_)(_)(_)(_) ');
WriteLn('(_) _(_)_ (_)(_) (_) (_)(_) (_) (_) (_)');WriteLn
('(_) (_) (_) (_)(_) (_) (_) (_) (_) (_) ');WriteLn('(_)_(_) (_)_(_)(_) _ _ _ (_) (_) _ (_) _(_)_ _ _ (_) '
);WriteLn(' (_) (_) (_)(_)(_) (_) (_)(_)(_) (_)(_)(_)(_)');Wait
(3000);Cleardebug;WriteLn(' _ _ _ _ _ _ _ _ _');WriteLn
('| | | ___ | || | ___ | | | | ___ _ _ | | _| | ');WriteLn('| |/ ._>| || |/ . \ | | | |/ . \| _>| |/ . | '
);WriteLn('|_|_|\___.|_||_|\___/ |__/_/ \___/|_| |_|\___|');Wait(3000);Cleardebug
;WriteLn(' _ _ _ _ _ ');WriteLn('| U |_||||_ | | | |_ _ ||||');WriteLn
('| /o\||/o\ | V V /o\/_||/o| ');WriteLn('|_n_\(L|L\_/ \_n_/\_/L| L\_| ')
;Wait(3000);Cleardebug;WriteLn(' _ _ _');WriteLn('[]-|ello \\/\/orld');
Wait(3000);Cleardebug;WriteLn('( )( ) ( )( ) ( ) ( ) ( ) ( )')
;WriteLn('| L| | ___ | || | ___ | |__| | ___ __ | | _| | ');WriteLn('( __ )( o_)( )( )( o ) ( ` )( o )( _)( )/ o )'
);WriteLn('/_\/_\ \( /_\/_\ \_/ \_/\_/ \_/ /_\ /_\\___\ ');Wait(3000);Cleardebug
;WriteLn(' _ _ _ _ _ _ _ _ _ ');WriteLn(' )L`) __ )) )) __ ))`)`) __ __ )) __)) '
);WriteLn('(( ( (( (( (( ((_) ((,(,, ((_)(| (( ((_(');Wait(3000);Cleardebug;WriteLn
(' _______ _ _ _______ ');WriteLn('|\ /|( ____ \( \ ( \ ( ___ )'
);WriteLn('| ) ( || ( \/| ( | ( | ( ) | ');WriteLn('| (___) || (__ | | | | | | | |'
);WriteLn('| ___ || __) | | | | | | | | ');WriteLn('| ( ) || ( | | | | | | | |'
);WriteLn('| ) ( || (____/\| (____/\| (____/\| (___) | ');WriteLn('|/ \|(_______/(_______/(_______/(_______)'
);WriteLn(' ');WriteLn(' _______ _______ _ ______ '
);WriteLn('|\ /|( ___ )( ____ )( \ ( __ \ ');WriteLn('| ) ( || ( ) || ( )|| ( | ( \ )'
);WriteLn('| | _ | || | | || (____)|| | | | ) | ');WriteLn('| |( )| || | | || __)| | | | | |'
);WriteLn('| || || || | | || (\ ( | | | | ) | ');WriteLn('| () () || (___) || ) \ \__| (____/\| (__/ )'
);WriteLn('(_______)(_______)|/ \__/(_______/(______/');Wait(3000);Cleardebug;WriteLn
('| | || | | | | |');WriteLn('|--|/~/||/~\ | | |/~\|/~\|/~~| '
);WriteLn('| |\/_||\_/ \/ \/ \_/| |\__|');Wait(3000);Cleardebug;WriteLn(' ___ _ __ ____ ______ ___ '
);WriteLn('\ | | / \ ___) \ | \ | ) (');WriteLn(' | \_/ | | (__ | | | | / \ '
);WriteLn(' | _ | | __) | | | | ( ) ');WriteLn(' | / \ | | (___ | |__ | |__ \ / '
);WriteLn('/ |___| \_/ )_/ )_/ )___) (___ ');WriteLn(' ____ ___ ___ ___ ____ ___'
);WriteLn('| | | | ) ( | \ \ | | \ ');WriteLn('| | | | / \ | ) | | | |'
);WriteLn('| | | | ( ) | / | | | | ');WriteLn(' \ \/\/ / \ / | |\ \ | |__ | |'
);WriteLn('__\ /_____) (___| |_\ \_/ )_| /__ ');Wait(3000);Cleardebug
;WriteLn(' ___ ___ .__ .__ __ __ .__ .___'
);WriteLn(' / | \ ____ | | | | ____ / \ / \___________| | __| _/ '
);WriteLn('/ ~ \_/ __ \| | | | / _ \ \ \/\/ / _ \_ __ \ | / __ |'
);WriteLn('\ Y /\ ___/| |_| |_( <_> ) \ ( <_> ) | \/ |__/ /_/ | '
);WriteLn(' \___|_ / \___ >____/____/\____/ \__/\ / \____/|__| |____/\____ |'
);WriteLn(' \/ \/ \/ \/ '
);Wait(3000);Cleardebug;WriteLn(' ____ ___) __ __)');WriteLn
(' (, / / /) /) (, ) | / /) /)');WriteLn(' /---/ _ // // ___ | /| / _____ // _(/ '
);WriteLn(' ) / (___(/_(/_(/_(_) |/ |/ (_)/ (_(/_(_(_ ');WriteLn('(_/ / | '
);Wait(3000);Cleardebug;WriteLn(' ___ ___ ___ ___ ___ '
);WriteLn(' /\__\ /\ \ /\__\ /\__\ /\ \ ')
;WriteLn(' /:/ / /::\ \ /:/ / /:/ / /::\ \');WriteLn(' /:/__/ /:/\:\ \ /:/ / /:/ / /:/\:\ \ '
);WriteLn(' /::\ \ ___ /::\~\:\ \ /:/ / /:/ / /:/ \:\ \');WriteLn
(' /:/\:\ /\__\ /:/\:\ \:\__\ /:/__/ /:/__/ /:/__/ \:\__\ ');WriteLn(
' \/__\:\/:/ / \:\~\:\ \/__/ \:\ \ \:\ \ \:\ \ /:/ /');WriteLn(' \::/ / \:\ \:\__\ \:\ \ \:\ \ \:\ /:/ / '
);WriteLn(' /:/ / \:\ \/__/ \:\ \ \:\ \ \:\/:/ / ');WriteLn
(' /:/ / \:\__\ \:\__\ \:\__\ \::/ /');WriteLn(' \/__/ \/__/ \/__/ \/__/ \/__/ '
);WriteLn(' ___ ___ ___ ___ ___');WriteLn
(' /\__\ /\ \ /\ \ /\__\ /\ \ ');WriteLn(' /:/ _/_ /::\ \ /::\ \ /:/ / /::\ \'
);WriteLn(' /:/ /\__\ /:/\:\ \ /:/\:\ \ /:/ / /:/\:\ \ ')
;WriteLn(' /:/ /:/ _/_ /:/ \:\ \ /::\~\:\ \ /:/ / /:/ \:\__\');WriteLn
(' /:/_/:/ /\__\ /:/__/ \:\__\ /:/\:\ \:\__\ /:/__/ /:/__/ \:|__| ');WriteLn
(' \:\/:/ /:/ / \:\ \ /:/ / \/_|::\/:/ / \:\ \ \:\ \ /:/ / ');WriteLn(
' \::/_/:/ / \:\ /:/ / |:|::/ / \:\ \ \:\ /:/ /');WriteLn(' \:\/:/ / \:\/:/ / |:|\/__/ \:\ \ \:\/:/ / '
);WriteLn(' \::/ / \::/ / |:| | \:\__\ \::/__/');WriteLn
(' \/__/ \/__/ \|__| \/__/ ~~');Wait(3000);Cleardebug
;WriteLn(' ___ ___ ___ ');
WriteLn(' /\ \ /\__\ /\ \');WriteLn
(' \:\ \ /:/ _/_ /::\ \ ');WriteLn
(' \:\ \ /:/ /\__\ /:/\:\ \ ');WriteLn
(' ___ /::\ \ /:/ /:/ _/_ ___ ___ ___ ___ /:/ \:\ \');WriteLn
(' /\ /:/\:\__\ /:/_/:/ /\__\ /\ \ /\__\ /\ \ /\__\ /:/__/ \:\__\ ');WriteLn
(' \:\/:/ \/__/ \:\/:/ /:/ / \:\ \ /:/ / \:\ \ /:/ / \:\ \ /:/ / ');WriteLn
(' \::/__/ \::/_/:/ / \:\ /:/ / \:\ /:/ / \:\ /:/ /');WriteLn
(' \:\ \ \:\/:/ / \:\/:/ / \:\/:/ / \:\/:/ / ');WriteLn
(' \:\__\ \::/ / \::/ / \::/ / \::/ / ');
WriteLn(' \/__/ \/__/ \/__/ \/__/ \/__/');WriteLn
(' ___ ___ ___ ');WriteLn
(' /\ \ /\ \ /\ \ _____ ');WriteLn
(' _\:\ \ /::\ \ /::\ \ /::\ \');WriteLn(' /\ \:\ \ /:/\:\ \ /:/\:\__\ /:/\:\ \ '
);WriteLn(' _\:\ \:\ \ /:/ \:\ \ /:/ /:/ / ___ ___ /:/ \:\__\'
);WriteLn(' /\ \:\ \:\__\ /:/__/ \:\__\ /:/_/:/__/___ /\ \ /\__\ /:/__/ \:|__| '
);WriteLn(' \:\ \:\/:/ / \:\ \ /:/ / \:\/:::::/ / \:\ \ /:/ / \:\ \ /:/ / '
);WriteLn(' \:\ \::/ / \:\ /:/ / \::/~~/~~~~ \:\ /:/ / \:\ /:/ /'
);WriteLn(' \:\/:/ / \:\/:/ / \:\~~\ \:\/:/ / \:\/:/ / '
);WriteLn(' \::/ / \::/ / \:\__\ \::/ / \::/ / '
);WriteLn(' \/__/ \/__/ \/__/ \/__/ \/__/');Wait
(3000);Cleardebug;WriteLn(' ___ ___ ___'
);WriteLn(' /__/\ / /\ / /\ ')
;WriteLn(' \ \:\ / /:/_ / /::\');WriteLn
(' \__\:\ / /:/ /\ ___ ___ ___ ___ / /:/\:\ ');WriteLn
(' ___ / /::\ / /:/ /:/_ /__/\ / /\ /__/\ / /\ / /:/ \:\');WriteLn
(' /__/\ /:/\:\ /__/:/ /:/ /\ \ \:\ / /:/ \ \:\ / /:/ /__/:/ \__\:\');WriteLn
(' \ \:\/:/__\/ \ \:\/:/ /:/ \ \:\ /:/ \ \:\ /:/ \ \:\ / /:/');WriteLn
(' \ \::/ \ \::/ /:/ \ \:\/:/ \ \:\/:/ \ \:\ /:/');WriteLn
(' \ \:\ \ \:\/:/ \ \::/ \ \::/ \ \:\/:/');WriteLn(
' \ \:\ \ \::/ \__\/ \__\/ \ \::/ ');WriteLn
(' \__\/ \__\/ \__\/ ');WriteLn(' ___ ___ ___ _____ '
);WriteLn(' /__/\ / /\ / /\ / /::\ '
);WriteLn(' _\_ \:\ / /::\ / /::\ / /:/\:\ '
);WriteLn(' /__/\ \:\ / /:/\:\ / /:/\:\ ___ ___ / /:/ \:\ '
);WriteLn(' _\_ \:\ \:\ / /:/ \:\ / /:/~/:/ /__/\ / /\ /__/:/ \__\:|'
);WriteLn(' /__/\ \:\ \:\ /__/:/ \__\:\ /__/:/ /:/___ \ \:\ / /:/ \ \:\ / /:/'
);WriteLn(' \ \:\ \:\/:/ \ \:\ / /:/ \ \:\/:::::/ \ \:\ /:/ \ \:\ /:/'
);WriteLn(' \ \:\ \::/ \ \:\ /:/ \ \::/~~~~ \ \:\/:/ \ \:\/:/')
;WriteLn(' \ \:\/:/ \ \:\/:/ \ \:\ \ \::/ \ \::/ ');
WriteLn(' \ \::/ \ \::/ \ \:\ \__\/ \__\/ '
);WriteLn(' \__\/ \__\/ \__\/ ');
Wait(3000);Cleardebug;WriteLn(' ___ ___ ___ ___ ___ '
);WriteLn(' / /\ / /\ / /\ / /\ / /\ ');WriteLn
(' / /:/ / /::\ / /:/ / /:/ / /::\');WriteLn(' / /:/ / /:/\:\ / /:/ / /:/ / /:/\:\ '
);WriteLn(' / /::\ ___ / /::\ \:\ / /:/ / /:/ / /:/ \:\ ');WriteLn
(' /__/:/\:\ /\ /__/:/\:\ \:\ /__/:/ /__/:/ /__/:/ \__\:\');WriteLn(' \__\/ \:\/:/ \ \:\ \:\_\/ \ \:\ \ \:\ \ \:\ / /:/ '
);WriteLn(' \__\::/ \ \:\ \:\ \ \:\ \ \:\ \ \:\ /:/');WriteLn
(' / /:/ \ \:\_\/ \ \:\ \ \:\ \ \:\/:/ ');WriteLn(' /__/:/ \ \:\ \ \:\ \ \:\ \ \::/'
);WriteLn(' \__\/ \__\/ \__\/ \__\/ \__\/ ');
WriteLn(' ___ ___ ___ ___ ___');WriteLn(
' / /\ / /\ / /\ / /\ / /\ ');WriteLn(
' / /:/_ / /::\ / /::\ / /:/ / /::\ ');WriteLn(
' / /:/ /\ / /:/\:\ / /:/\:\ / /:/ / /:/\:\');WriteLn(' / /:/ /:/_ / /:/ \:\ / /::\ \:\ / /:/ / /:/ \:\ '
);WriteLn(' /__/:/ /:/ /\ /__/:/ \__\:\ /__/:/\:\_\:\ /__/:/ /__/:/ \__\:| ')
;WriteLn(' \ \:\/:/ /:/ \ \:\ / /:/ \__\/~|::\/:/ \ \:\ \ \:\ / /:/');WriteLn
(' \ \::/ /:/ \ \:\ /:/ | |:|::/ \ \:\ \ \:\ /:/ ');WriteLn
(' \ \:\/:/ \ \:\/:/ | |:|\/ \ \:\ \ \:\/:/ ');WriteLn
(' \ \::/ \ \::/ |__|:|~ \ \:\ \__\::/');WriteLn(' \__\/ \__\/ \__\| \__\/ ~~ '
);Wait(3000);Cleardebug;WriteLn(' )__/_ // ( / _ /_/');WriteLn('/ /(-((() |/|/()/ ((/ '
);Wait(3000);Cleardebug;WriteLn(' __ __ ___ ___ ');WriteLn('/\ \/\ \ /\_ \ /\_ \'
);WriteLn('\ \ \_\ \ __\//\ \ \//\ \ ____');WriteLn(' \ \ _ \ / __`\\ \ \ \ \ \ / __`\'
);WriteLn(' \ \ \ \ \/\ __/ \_\ \_ \_\ \_/\ \L\ \ ');WriteLn(' \ \_\ \_\ \____\/\____\/\____\ \____/ '
);WriteLn(' \/_/\/_/\/____/\/____/\/____/\/___/');WriteLn(' '
);WriteLn(' ');WriteLn(' __ __ ___ __ '
);WriteLn('/\ \ __/\ \ /\_ \ /\ \ ');WriteLn('\ \ \/\ \ \ \ ___ _ __\//\ \ \_\ \ '
);WriteLn(' \ \ \ \ \ \ \ / __`\/\` __\\ \ \ / _` \');WriteLn(' \ \ \_/ \_\ \/\ \L\ \ \ \/ \_\ \_/\ \L\ \ '
);WriteLn(' \ `\___x___/\ \____/\ \_\ /\____\ \___,_\');WriteLn(' \/__//__/ \/___/ \/_/ \/____/\/__,_ / '
);Wait(3000);Cleardebug;WriteLn(' _/ _/ _/ _/');WriteLn(' _/ _/ _/_/ _/ _/ _/_/ '
);WriteLn(' _/_/_/_/ _/_/_/_/ _/ _/ _/ _/');WriteLn(' _/ _/ _/ _/ _/ _/ _/ '
);WriteLn('_/ _/ _/_/_/ _/ _/ _/_/');WriteLn(' '
);WriteLn(' ');WriteLn(' '
);WriteLn(' _/ _/ _/ _/');WriteLn(' _/ _/ _/_/ _/ _/_/ _/ _/_/_/ '
);WriteLn('_/ _/ _/ _/ _/ _/_/ _/ _/ _/');WriteLn(' _/ _/ _/ _/ _/ _/ _/ _/ _/ '
);WriteLn(' _/ _/ _/_/ _/ _/ _/_/_/');Wait(3000);Cleardebug
;WriteLn('HH HH lll lll WW WW lll dd');WriteLn
('HH HH eee lll lll oooo WW WW oooo rr rr lll dd ');WriteLn
('HHHHHHH ee e lll lll oo oo WW W WW oo oo rrr r lll dddddd');WriteLn('HH HH eeeee lll lll oo oo WW WWW WW oo oo rr lll dd dd '
);WriteLn('HH HH eeeee lll lll oooo WW WW oooo rr lll dddddd');
Wait(3000);Cleardebug;WriteLn('/ \ | | / \ | |');WriteLn
('|=| /=\ | | /=\ | =|= | /=\ /= | /=| ');WriteLn('\ / \= \= \= \=/ \/ \/ \=/ | \= \=| '
);Wait(3000);Cleardebug;WriteLn('.:: .:: .:: .::');WriteLn('.:: .:: .:: .:: '
);WriteLn('.:: .:: .:: .:: .:: .:: ');WriteLn('.:::::: .:: .: .:: .:: .:: .:: .::'
);WriteLn('.:: .::.::::: .:: .:: .::.:: .:: ');WriteLn('.:: .::.: .:: .:: .:: .::'
);WriteLn('.:: .:: .:::: .:::.::: .:: ');WriteLn(' '
);WriteLn('.:: .:: .:: .::');WriteLn('.:: .:: .:: .:: '
);WriteLn('.:: .: .:: .:: .: .::: .:: .::');WriteLn('.:: .:: .:: .:: .:: .:: .:: .:: .:: '
);WriteLn('.:: .: .:: .::.:: .:: .:: .::.: .::');WriteLn('.: .: .:::: .:: .:: .:: .::.: .:: '
);WriteLn('.:: .:: .:: .::: .::: .:: .::');Wait(3000);Cleardebug;WriteLn
('| | || | | | | |');WriteLn('|--|/~/||/~\ | | |/~\|/~\|/~~| '
);WriteLn('| |\/_||\_/ \/ \/ \_/| |\__|');Wait(3000);Cleardebug;WriteLn(' | _ | | _ | |'
);WriteLn(' |\ |/ | | | ||/ | | | \| ');Wait(3000);Cleardebug;WriteLn('|_| _ || _ \ / _ ._ | _|'
);WriteLn('| |(/_||(_) \/\/ (_)| |(_| ');Wait(3000);Cleardebug;WriteLn('{__ {__ {__ {__ '
);WriteLn('{__ {__ {__ {__ ');WriteLn('{__ {__ {__ {__ {__ {__ '
);WriteLn('{______ {__ {_ {__ {__ {__ {__ {__ ');WriteLn('{__ {__{_____ {__ {__ {__{__ {__'
);WriteLn('{__ {__{_ {__ {__ {__ {__ ');WriteLn('{__ {__ {____ {___{___ {__ '
);WriteLn(' ');WriteLn('{__ {__ {__ {__ '
);WriteLn('{__ {__ {__ {__');WriteLn('{__ {_ {__ {__ {_ {___ {__ {__ '
);WriteLn('{__ {__ {__ {__ {__ {__ {__ {__ {__ ');WriteLn('{__ {_ {__ {__{__ {__ {__ {__{_ {__ '
);WriteLn('{_ {_ {____ {__ {__ {__ {__{_ {__ ');WriteLn('{__ {__ {__ {___ {___ {__ {__ '
);Wait(3000);Cleardebug;WriteLn('ooooo ooooo o888 o888 '
);WriteLn(' 888 888 ooooooooo8 888 888 ooooooo');WriteLn(' 888ooo888 888oooooo8 888 888 888 888 '
);WriteLn(' 888 888 888 888 888 888 888');WriteLn('o888o o888o 88oooo888 o888o o888o 88ooo88'
);WriteLn(' ');WriteLn('oooo oooo o888 oooo '
);WriteLn(' 88 88 88 ooooooo oo oooooo 888 ooooo888');WriteLn(' 88 888 88 888 888 888 888 888 888 888 '
);WriteLn(' 888 888 888 888 888 888 888 888');WriteLn(' 8 8 88ooo88 o888o o888o 88ooo888o '
);Wait(3000);Cleardebug;WriteLn(' _ _ __ __ _ _'
);WriteLn(' /\ /\___| | | ___ / / /\ \ \___ _ __| | __| | ');WriteLn(' / /_/ / _ \ | |/ _ \ \ \/ \/ / _ \| __| |/ _` |'
);WriteLn('/ __ / __/ | | (_) | \ /\ / (_) | | | | (_| | ');WriteLn('\/ /_/ \___|_|_|\___/ \/ \/ \___/|_| |_|\__,_| '
);Wait(3000);Cleardebug;WriteLn(' _ _ __ __ _ _ __ _ '
);WriteLn('(_) (_) ____ (__) (__) (_) _ (_) _ (__) (_) '
);WriteLn('(_)___(_) (____) (_) (_) ___ (_) (_) (_) ___ (_)__ (_) __(_)'
);WriteLn('(_______)(_)_(_) (_) (_) (___) (_) (_) (_) (___) (____)(_) (____) '
);WriteLn('(_) (_)(__)__ (_) (_)(_)_(_) (_)_(_)_(_)(_)_(_)(_) (_)(_)_(_)'
);WriteLn('(_) (_) (____)(___)(___)(___) (__) (__) (___) (_) (___)(____) '
);Wait(3000);Cleardebug;WriteLn('/^^ /^^ /^^ /^^');WriteLn('/^^ /^^ /^^ /^^ '
);WriteLn('/^^ /^^ /^^ /^^ /^^ /^^ ');WriteLn('/^^^^^^ /^^ /^ /^^ /^^ /^^ /^^ /^^ '
);WriteLn('/^^ /^^/^^^^^ /^^ /^^ /^^/^^ /^^ ');WriteLn('/^^ /^^/^ /^^ /^^ /^^ /^^'
);WriteLn('/^^ /^^ /^^^^ /^^^/^^^ /^^ ');WriteLn(' '
);WriteLn('/^^ /^^ /^^ /^^ ');WriteLn('/^^ /^^ /^^ /^^'
);WriteLn('/^^ /^ /^^ /^^ /^ /^^^ /^^ /^^ ');WriteLn('/^^ /^^ /^^ /^^ /^^ /^^ /^^ /^^ /^^'
);WriteLn('/^^ /^ /^^ /^^/^^ /^^ /^^ /^^/^ /^^ ');WriteLn('/^ /^ /^^^^ /^^ /^^ /^^ /^^/^ /^^ '
);WriteLn('/^^ /^^ /^^ /^^^ /^^^ /^^ /^^ ');Wait(3000);Cleardebug
;WriteLn('o O o o o `O o o '
);WriteLn('O o O O O o O O')
;WriteLn('o O o o o O o o '
);WriteLn('OoOooOOo O O O O O o')
;WriteLn('o O .oOo. o o .oOo. o o o .oOo. `OoOo. o .oOoO '
);WriteLn('O o OooO O O O o O O O O o o O o O')
;WriteLn('o o O o o o O `o O o O o O O o O o '
);WriteLn('o O `OoO Oo Oo `OoO `OoO `OoO `OoO o Oo `OoO.o'
);Wait(3000);Cleardebug;WriteLn(' /_/_ //_ | | |_ _/ _/ ');WriteLn('/ //_ ///_/ |/|//_////_/'
);Wait(3000);Cleardebug;WriteLn('@@@ @@@ @@@@@@@@ @@@ @@@ @@@@@@'
);WriteLn('@@@ @@@ @@@@@@@@ @@@ @@@ @@@@@@@@ ');WriteLn('@@! @@@ @@! @@! @@! @@! @@@ '
);WriteLn('!@! @!@ !@! !@! !@! !@! @!@');WriteLn('@!@!@!@! @!!!:! @!! @!! @!@ !@! '
);WriteLn('!!!@!!!! !!!!!: !!! !!! !@! !!! ');WriteLn('!!: !!! !!: !!: !!: !!: !!!'
);WriteLn(':!: !:! :!: :!: :!: :!: !:! ');WriteLn(':: ::: :: :::: :: :::: :: :::: ::::: ::'
);WriteLn(' : : : : :: :: : :: : : : :: : : : : : ');Wait(2000);Cleardebug
;WriteLn('@@@ @@@ @@@ @@@@@@ @@@@@@@ @@@ @@@@@@@ ');WriteLn('@@@ @@@ @@@ @@@@@@@@ @@@@@@@@ @@@ @@@@@@@@'
);WriteLn('@@! @@! @@! @@! @@@ @@! @@@ @@! @@! @@@ ');WriteLn('!@! !@! !@! !@! @!@ !@! @!@ !@! !@! @!@'
);WriteLn('@!! !!@ @!@ @!@ !@! @!@!!@! @!! @!@ !@! ');WriteLn('!@! !!! !@! !@! !!! !!@!@! !!! !@! !!!'
);WriteLn('!!: !!: !!: !!: !!! !!: :!! !!: !!: !!! ');WriteLn(':!: :!: :!: :!: !:! :!: !:! :!: :!: !:!'
);WriteLn(' :::: :: ::: ::::: :: :: ::: :: :::: :::: :: ');WriteLn(' :: : : : : : : : : : : :: : : :: : :'
);Wait(3000);Cleardebug;WriteLn(' _ _ _ _ _ _ _ _'
);WriteLn('( ) ( ) (_ ) (_ ) ( ) _ ( ) (_ ) ( )'
);WriteLn('| |_| | __ | | | | _ | | ( ) | | _ _ __ | | _| | '
);WriteLn('| _ | / __`\ | | | | / _`\ | | | | | | / _`\ ( __)| | / _` | '
);WriteLn('| | | |( ___/ | | | | ( (_) ) | (_/ \_) |( (_) )| | | | ( (_| |'
);WriteLn('(_) (_)`\____)(___)(___)`\___/ `\___x___/ `\___/ (_) (___)`\__,_) '
);Wait(3000);Cleardebug;WriteLn(' ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ '
);WriteLn(' /H\ /e\ /l\ /l\ /o\ /W\ /o\ /r\ /l\ /d\');WriteLn('<___><___><___><___><___> <___><___><___><___><___> '
);Wait(3000);Cleardebug;WriteLn(' _____ _ _ _ _ _ _ _');WriteLn
('| | |___| | |___ | | | |___ ___| |_| | ');WriteLn('| | -_| | | . | | | | | . | _| | . |'
);WriteLn('|__|__|___|_|_|___| |_____|___|_| |_|___| ');Wait(3000);Cleardebug;WriteLn
('________________________________________________ _______');WriteLn('/~~\__/~~\_/~~~~~~~~\_/~~\_______/~~\________/~~~~~~\__ '
);WriteLn('/~~\__/~~\_/~~\_______/~~\_______/~~\_______/~~\__/~~\_ ');WriteLn('/~~~~~~~~\_/~~~~~~\___/~~\_______/~~\_______/~~\__/~~\_'
);WriteLn('/~~\__/~~\_/~~\_______/~~\_______/~~\_______/~~\__/~~\_ ');WriteLn
('/~~\__/~~\_/~~~~~~~~\_/~~~~~~~~\_/~~~~~~~~\__/~~~~~~\__');WriteLn('_____________________________ __________________________ '
);WriteLn('_______________________________________ __________________ ');WriteLn('/~~\/~~\/~~\__/~~~~~~\__/~~~~~~~\__/~~\_______/~~~~~~~\__ '
);WriteLn('/~~\/~~\/~~\_/~~\__/~~\_/~~\__/~~\_/~~\_______/~~\__/~~\_');WriteLn('/~~\/~~\/~~\_/~~\__/~~\_/~~~~~~~\__/~~\_______/~~\__/~~\_ '
);WriteLn('/~~\/~~\/~~\_/~~\__/~~\_/~~\__/~~\_/~~\_______/~~\__/~~\_');WriteLn('_/~~~~~~~~\___/~~~~~~\__/~~\__/~~\_/~~~~~~~~\_/~~~~~~~\__ '
);WriteLn('_______________________________________ __________________ ');Wait(3000
);Cleardebug;WriteLn('\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\ '
);WriteLn('/// \\/// \///////// \/// \\\\\\\/// \\\\\\\\/////// \\ ');WriteLn
('/// \\/// \/// \\\\\\\/// \\\\\\\/// \\\\\\\/// \\/// \ ');WriteLn('///////// \/////// \\\/// \\\\\\\/// \\\\\\\/// \\/// \'
);WriteLn('/// \\/// \/// \\\\\\\/// \\\\\\\/// \\\\\\\/// \\/// \ ');WriteLn
('/// \\/// \///////// \///////// \///////// \\/////// \\ ');WriteLn('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\ '
);WriteLn('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\ ');WriteLn
('/// /// /// \\/////// \\//////// \\/// \\\\\\\//////// \\');WriteLn('/// /// /// \/// \\/// \/// \\/// \/// \\\\\\\/// \\/// \ '
);WriteLn('/// /// /// \/// \\/// \//////// \\/// \\\\\\\/// \\/// \');WriteLn('/// /// /// \/// \\/// \/// \\/// \/// \\\\\\\/// \\/// \ '
);WriteLn('\///////// \\\/////// \\/// \\/// \///////// \//////// \\');WriteLn('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\ '
);Wait(3000);Cleardebug;WriteLn('================= ===============');WriteLn('= ==== ========= == ======== '
);WriteLn('= ==== ========= == ========');WriteLn('= ==== ========= == ======== '
);WriteLn('= ==== === === == === == ');WriteLn('= == = == == == = '
);WriteLn('= ==== == == == == = = ');WriteLn('= ==== == ===== == == = ='
);WriteLn('= ==== == = == == == = = ');WriteLn('= ==== === === == === == '
);WriteLn('================================');Writ eLn('==========================================='
);WriteLn('= ==== ==== ================== ===== = ');WriteLn('= ==== ==== ================== ===== = '
);WriteLn('= ==== ==== ================== ===== = ');WriteLn('= ==== ==== === === = === ===== = '
);WriteLn('= == == === == = == === = ');WriteLn('== == == === = == ======= == = = '
);WriteLn('== == == === = == ======= == = = ');WriteLn('=== == ==== = == ======= == = = '
);WriteLn('==== ==== ====== === ======= === =');WriteLn('===================================== ====== '
);Wait(3000);Cleardebug;WriteLn('ooooo ooooo oooo oooo');WriteLn('`888 `888 `888 `888 '
);WriteLn(' 888 888 .ooooo. 888 888 .ooooo.');WriteLn(' 888ooooo888 d88 `88b 888 888 d88 `88b '
);WriteLn(' 888 888 888ooo888 888 888 888 888');WriteLn(' 888 888 888 .o 888 888 888 888 '
);WriteLn('o888o o888o `Y8bod8P o888o o888o `Y8bod8P');WriteLn(' '
);WriteLn(' ');WriteLn
('oooooo oooooo oooo oooo .o8');WriteLn(' `888. `888. .8 `888 "888 '
);WriteLn(' `888. .8888. .8 .ooooo. oooo d8b 888 .oooo888');WriteLn(
' `888 .8 `888. .8 d88 `88b `888""8P 888 d88 `888 ');WriteLn(' `888.8 `888.8 888 888 888 888 888 888'
);WriteLn(' `888 `888 888 888 888 888 888 888 ');WriteLn
(' `8 `8 `Y8bod8P d888b o888o `Y8bod88P"');Wait(3000);Cleardebug
;WriteLn(' _ _ _ _ _ _ _ _ _');WriteLn('(_) (_) | | | (_)(_)(_) | | | | '
);WriteLn(' _______ _____| | | ___ _ _ _ ___ ____| | __| |');WriteLn('| ___ | ___ | | |/ _ \ | || || |/ _ \ / ___) |/ _ | '
);WriteLn('| | | | ____| | | |_| | | || || | |_| | | | ( (_| |');WriteLn('|_| |_|_____)\_)_)___/ \_____/ \___/|_| \_)____| '
);Wait(3000);Cleardebug;WriteLn(' dMP dMP dMMMMMP dMP dMP .aMMMb ')
;WriteLn(' dMP dMP dMP dMP dMP dMP"dMP');WriteLn(' dMMMMMP dMMMP dMP dMP dMP dMP '
);WriteLn(' dMP dMP dMP dMP dMP dMP.aMP');WriteLn('dMP dMP dMMMMMP dMMMMMP dMMMMMP VMMMP" '
);WriteLn(' ');WriteLn(' dMP dMP dMP .aMMMb dMMMMb dMP dMMMMb '
);WriteLn(' dMP dMP dMP dMP"dMP dMP.dMP dMP dMP VMP');WriteLn(' dMP dMP dMP dMP dMP dMMMMK" dMP dMP dMP '
);WriteLn('dMP.dMP.dMP dMP.aMP dMP"AMF dMP dMP.aMP');WriteLn('VMMMPVMMP" VMMMP" dMP dMP dMMMMMP dMMMMP" '
);Wait(3000);Cleardebug;WriteLn('888 888 888 888 ');WriteLn
('888 888 ,e e, 888 888 e88 88e ');WriteLn('8888888 d88 88b 888 888 d888 888b'
);WriteLn('888 888 888 , 888 888 Y888 888P ');WriteLn('888 888 "YeeP" 888 888 "88 88'
);WriteLn(' ');WriteLn(' '
);WriteLn('Y8b Y8b Y888P 888 888 ');WriteLn(' Y8b Y8b Y8P e88 88e 888,8, 888 e88 888'
);WriteLn(' Y8b Y8b Y d888 888b 888 " 888 d888 888 ');WriteLn(' Y8b Y8b Y888 888P 888 888 Y888 888'
);WriteLn(' Y8P Y "88 88" 888 888 "88 888');Wait(3000);Cleardebug;WriteLn
(' @@@ @@@ @@@@@@@@ @@@ @@@ @@@@@@ ');WriteLn(' @@! @@@ @@! @@! @@! @@! @@@ '
);WriteLn(' @!@!@!@! @!!!:! @!! @!! @!@ !@! ');WriteLn(' !!: !!! !!: !!: !!: !!: !!!'
);WriteLn(' : : : : :: ::: : ::.: : : ::.: : : :. : ');WriteLn(' '
);WriteLn(' @@@ @@@ @@@ @@@@@@ @@@@@@@ @@@ @@@@@@@ ');WriteLn(' @@! @@! @@! @@! @@@ @@! @@@ @@! @@! @@@ '
);WriteLn(' @!! !!@ @!@ @!@ !@! @!@!!@! @!! @!@ !@! ');WriteLn(' !: !!: !! !!: !!! !!: :!! !!: !!: !!!'
);WriteLn(' ::.: ::: : :. : : : : : ::.: : :: : :');Wait(3000);Cleardebug
;WriteLn(' , _ _ _ _ ');WriteLn('/| | | | | | (_| | |_/ | | | '
);WriteLn(' |___| _ | | | | __ | | | __ ,_ | | __|');WriteLn(' | |\|/ |/ |/ / \_ | | |/ \_/ | |/ / | '
);WriteLn(' | |/|__/|__/|__/\__/ \_/ \_/ \__/ |_/|__/\_/|_/');Wait(3000
);Cleardebug;WriteLn(' _ _ ___ __ __ __ _ _ __ ___ __ ___'
);WriteLn('( )( )( _)( ) ( ) / \ ( \/\/ )/ \( ,) ( ) ( \ ');WriteLn
(' )__( ) _) )(__ )(__( () ) \ /( () )) \ )(__ ) ) )');WriteLn('(_)(_)(___)(____)(____)\__/ \/\/ \__/(_)\_)(____)(___/'
);Wait(3000);Cleardebug;WriteLn(' | | | | \ \ / | |'
);WriteLn(' | | _ \ | | _ \ \ \ \ / _ \ __| | _` | ');WriteLn(' ___ | __/ | | ( | \ \ \ / ( | | | ( |'
);WriteLn('_| _|\___|_|_|\___/ \_/\_/ \___/ _| _|\__,_| ');Wait(3000);Cleardebug
;WriteLn('|_| _ || | | | | | ');WriteLn('| |(/_||() \|\|()|`|(|');Wait(3000
);Cleardebug;WriteLn(' __ __ ____ _ __ __ __')
;WriteLn(' / / / /__ / / /___ | | / /___ _____/ /___/ / ');WriteLn(' / /_/ / _ \/ / / __ \ | | /| / / __ \/ ___/ / __ /'
);WriteLn(' / __ / __/ / / /_/ / | |/ |/ / /_/ / / / / /_/ / ');WriteLn
('/_/ /_/\___/_/_/\____/ |__/|__/\____/_/ /_/\__,_/');Wait(3000);Cleardebug;
WriteLn('## || #| #| ## || #| H|');WriteLn('## || #H| #| #| #H| ## H || #H| ## H|#| H| '
);WriteLn('##HH||##HH|#| #|## H| ###HH||## H|##H| #| #HH|');WriteLn('## ||## #| #|## H| ### H||## H|## #|## H| '
);WriteLn('## || #HH|#H|#H|#H| ## || #H| ## #H|#HH|');Wait(3000);Cleardebug
;WriteLn(' _ , _ _ _ _ _ ');WriteLn(' ) / // // ) / // /'
);WriteLn(' /--/ _ // // __ / / /__ __ // __/ ');WriteLn('/ (_</_</_</_(_) (_(_/(_)/ (_</_(_/_'
);Wait(3000);Cleardebug;WriteLn(' _ _ _ _ __ __ _ _ ');WriteLn
('| || |___| | |___ \ \ / /__ _ _| |__| | ');WriteLn('| __ / -_) | / _ \ \ \/\/ / _ \ _| / _` |'
);WriteLn('|_||_\___|_|_\___/ \_/\_/\___/_| |_\__,_| ');Wait(3000);Cleardebug;
WriteLn(' ___ ___ ___ ___ ___ ');WriteLn(' /\__\ /\ \ /\__\ /\__\ /\ \ '
);WriteLn(' /:/__/_ /::\ \ /:/ / /:/ / /::\ \');WriteLn(' /::\/\__\ /::\:\__\ /:/__/ /:/__/ /:/\:\__\ '
);WriteLn(' \/\::/ / \:\:\/ / \:\ \ \:\ \ \:\/:/ /');WriteLn(' /:/ / \:\/ / \:\__\ \:\__\ \::/ / '
);WriteLn(' \/__/ \/__/ \/__/ \/__/ \/__/ ');WriteLn(' ___ ___ ___ ___ ___ '
);WriteLn(' /\__\ /\ \ /\ \ /\__\ /\ \ ');WriteLn(' /:/\__\ /::\ \ /::\ \ /:/ / /::\ \'
);WriteLn(' /:/:/\__\ /:/\:\__\ /::\:\__\ /:/__/ /:/\:\__\ ');WriteLn(' \::/:/ / \:\/:/ / \;:::/ / \:\ \ \:\/:/ / '
);WriteLn(' \::/ / \::/ / |:\/__/ \:\__\ \::/ /');WriteLn(' \/__/ \/__/ \|__| \/__/ \/__/'
);Wait(3000);Cleardebug;WriteLn(' ____ ____ ____ ____ ____ _________ ____ ____ ____ ____ ____ '
);WriteLn('||H |||e |||l |||l |||o ||| |||W |||o |||r |||l |||d ||');WriteLn
('||__|||__|||__|||__|||__|||_______|||__|||__|||_ _|||__|||__|| ');WriteLn('|/__\|/__\|/__\|/__\|/__\|/_______\|/__\|/__\|/__\|/__\|/__\|'
);Wait(3000);Cleardebug;WriteLn(' , ');WriteLn('/| | _ |\ |\ _ (| | |_/_ ,_ |\ _|'
);WriteLn(' |--| |/ |/ |/ / \_ | | | / \_/ | |/ / | ');WriteLn(' | |)|_/|_/|_/\_/ \/ \/ \_/ |/|_/\/|_/'
);Wait(3000);Cleardebug;WriteLn(' | | | | \ \ / | |')
;WriteLn(' __ | -_) | | _ \ \ \ \ / _ \ _| | _` | ');WriteLn('_| _|\___|_|_|\___/ \_/\_/\___/_| _|\__,_|'
);Wait(3000);Cleardebug;WriteLn(' __ __ ____ _ __ __ __'
);WriteLn(' / // /__ / / /__ | | /| / /__ ____/ /__/ / ');WriteLn(' / _ / -_) / / _ \ | |/ |/ / _ \/ __/ / _ /'
);WriteLn('/_//_/\__/_/_/\___/ |__/|__/\___/_/ /_/\_,_/ ');Wait(3000);Cleardebug
;WriteLn('______ __ ___________ ___ __ ______________ '
);WriteLn('___ / / /_______ /__ /_____ __ | / /_______________ /_____ /'
);WriteLn('__ /_/ /_ _ \_ /__ /_ __ \ __ | /| / /_ __ \_ ___/_ /_ __ / '
);WriteLn('_ __ / / __/ / _ / / /_/ / __ |/ |/ / / /_/ / / _ / / /_/ /'
);WriteLn('/_/ /_/ \___//_/ /_/ \____/ ____/|__/ \____//_/ /_/ \__,_/ '
);Wait(3000);Cleardebug;WriteLn(' _ _ _ _ __ __ _ _'
);WriteLn('| | | | ___| | | ___ \ \ / /__ _ __| | __| | ');WriteLn('| |_| |/ _ \ | |/ _ \ \ \ /\ / / _ \| __| |/ _` |'
);WriteLn('| _ | __/ | | (_) | \ V V / (_) | | | | (_| | ');WriteLn('|_| |_|\___|_|_|\___/ \_/\_/ \___/|_| |_|\__,_|'
);Wait(3000);Cleardebug;WriteLn(' __ __ _______ __ __ ______ '
);WriteLn('| | | | | ____|| | | | / __ \ ');WriteLn('| |__| | | |__ | | | | | | | |'
);WriteLn('| __ | | __| | | | | | | | | ');WriteLn('| | | | | |____ | `----.| `----.| `-- |'
);WriteLn('|__| |__| |_______||_______||_______| \______/ ');WriteLn(' '
);WriteLn('____ __ ____ ______ .______ __ _______ ');WriteLn
('\ \ / \ / / / __ \ | _ \ | | | \');WriteLn(' \ \/ \/ / | | | | | |_) | | | | .--. | '
);WriteLn(' \ / | | | | | / | | | | | |');WriteLn
(' \ /\ / | `-- | | |\ \----.| `----.| -- | ');WriteLn(' \__/ \__/ \______/ | _| `._____||_______||_______/'
);Wait(3000);Cleardebug;WriteLn('`.. `.. `.. `.. ');WriteLn('`.. `.. `.. `.. '
);WriteLn('`.. `.. `.. `.. `.. `.. ');WriteLn('`...... `.. `. `.. `.. `.. `.. `.. '
);WriteLn('`.. `..`..... `.. `.. `..`.. `.. ');WriteLn('`.. `..`. `.. `.. `.. `.. '
);WriteLn('`.. `.. `.... `...`... `.. ');WriteLn(' '
);WriteLn('`.. `.. `.. `..');WriteLn('`.. `.. `.. `.. '
);WriteLn('`.. `. `.. `.. `. `... `.. `..');WriteLn('`.. `.. `.. `.. `.. `.. `.. `.. `.. '
);WriteLn('`.. `. `.. `..`.. `.. `.. `..`. `.. ');WriteLn('`. `. `.... `.. `.. `.. `..`. `..'
);WriteLn('`.. `.. `.. `... `... `.. `.. ');Wait(3000);Cleardebug
;WriteLn(' _ _ _ _ _ _ _ _ _ ');WriteLn('| | | | | | | | || || | | | | | '
);WriteLn('| |__ | | ____| | | ___ | || || | ___ ____| | _ | |');WriteLn('| __)| |/ _ ) | |/ _ \ | ||_|| |/ _ \ / ___) |/ || | '
);WriteLn('| | | ( (/ /| | | |_| | | |___| | |_| | | | ( (_| |');WriteLn('|_| |_|\____)_|_|\___/ \______|\___/|_| |_|\____| '
);Wait(3000);Cleardebug;WriteLn('|__| _|| _ | | _ _| _|');WriteLn('| |(-||(_) |/\|(_)| |(_| '
);Wait(3000);Cleardebug;WriteLn('. . . . . . . . . .');WriteLn
('| | | | \ \ / / | | ');WriteLn('|---| .-. | | .-. \ \ /.-. .--.| .-.| '
);WriteLn('| |(.- | |( ) \/ \/( )| |( |');WriteLn('. . `--.`-`-`- . . `-. . `-`-.`- '
);Wait(3000);Cleardebug;WriteLn('H) hh l)L l)L W) ww l)L d) '
);WriteLn('H) hh l) l) W) ww l) d) '
);WriteLn('H)hhhhhh e)EEEEE l) l) o)OOO W) ww ww o)OOO r)RRR l) d)DDDD'
);WriteLn('H) hh e)EEEE l) l) o) OO W) ww ww o) OO r) RR l) d) DD '
);WriteLn('H) hh e) l) l) o) OO W) ww ww o) OO r) l) d) DD'
);WriteLn('H) hh e)EEEE l)LL l)LL o)OOO W)ww www o)OOO r) l)LL d)DDDD '
);Wait(3000);Cleardebug;WriteLn('|_| _ || _ \ / _ _| _|');WriteLn('| |(/_||(_) \/\/ (_)| |(_| '
);Wait(3000);Cleardebug;WriteLn('_/\/\____/\/\______________/\/\____/\/\_______________ '
);WriteLn('_/\/\____/\/\____/\/\/\____/\/\____/\/\______/\/\/\___ ');WriteLn('_/\/\/\/\/\/\__/\/\/\/\/\__/\/\____/\/\____/\/\__/\/\_ '
);WriteLn('_/\/\____/\/\__/\/\________/\/\____/\/\____/\/\__/\/\_');WriteLn('_/\/\____/\/\____/\/\/\/\__/\/\/\__/\/\/\____/\/\/\___ '
);WriteLn('_______________________________________ _______________ ');WriteLn('_/\/\______/\/\__________________________/\/\__________/\/\_ '
);WriteLn('_/\/\__/\__/\/\____/\/\/\____/\/\__/\/\__/\/\__________/\/\_');WriteLn
('_/\/\/\/\/\/\/\__/\/\__/\/\__/\/\/\/\____/\/\______/\/\/\/\_ ');WriteLn('_/\/\/\__/\/\/\__/\/\__/\/\__/\/\________/\/\____/\/\__/\/\_'
);WriteLn('_/\/\______/\/\____/\/\/\____/\/\________/\/\/\____/\/\/\/\_ ');WriteLn
('________________________________________________ ____________');Wait(3000);Cleardebug
;WriteLn(' _/\/\____/\/\______________/\/\____/\/\_______________ ');WriteLn
(' _/\/\____/\/\____/\/\/\____/\/\____/\/\______/\/\/\___ ');WriteLn(' _/\/\/\/\/\/\__/\/\/\/\/\__/\/\____/\/\____/\/\__/\/\_ '
);WriteLn(' _/\/\____/\/\__/\/\________/\/\____/\/\____/\/\__/\/\_ ');WriteLn
(' _/\/\____/\/\____/\/\/\/\__/\/\/\__/\/\/\____/\/\/\___ ');WriteLn('______________________________________ ________________'
);WriteLn(' _/\/\______/\/\__________________________/\/\__________/\/\_');WriteLn
(' _/\/\__/\__/\/\____/\/\/\____/\/\__/\/\__/\/\__________/\/\_ ');WriteLn(
' _/\/\/\/\/\/\/\__/\/\__/\/\__/\/\/\/\____/\/\______/\/\/\/\_ ');WriteLn(' _/\/\/\__/\/\/\__/\/\__/\/\__/\/\________/\/\____/\/\__/\/\_ '
);WriteLn(' _/\/\______/\/\____/\/\/\____/\/\________/\/\/\____/\/\/\/\_ ');WriteLn
('________________________________________________ ____________');Wait(3000);Cleardebug
;WriteLn('o o o o o o o o');WriteLn('| | | | | | | | '
);WriteLn('O--O o-o | | o-o o o o o-o o-o | o-O');WriteLn('| | |- | | | | \ / \ / | | | | | | '
);WriteLn('o o o-o o o o-o o o o-o o o o-o ');Wait(3000);Cleardebug
;WriteLn(' _,_ __, _, _, _, _ _ _, __, _, __, ');WriteLn(' |_| |_ | | / \ | | / \ |_) | | \ '
);WriteLn(' | | | | , | , \ / |/\| \ / | \ | , |_/ ');WriteLn(' ~ ~ ~~~ ~~~ ~~~ ~ ~ ~ ~ ~ ~ ~~~ ~ '
);Wait(3000);Cleardebug;WriteLn(' dBP dBP dBBBP dBP dBP dBBBBP ');WriteLn
(' dBP.BP ');WriteLn(' dBBBBBP dBBP dBP dBP dBP.BP '
);WriteLn(' dBP dBP dBP dBP dBP dBP.BP ');WriteLn(' dBP dBP dBBBBP dBBBBP dBBBBP dBBBBP '
);WriteLn(' ');WriteLn(' dBPdBPdBP dBBBBP dBBBBBb dBP dBBBBb '
);WriteLn(' dBP.BP dBP dBP ');WriteLn(' dBPdBPdBP dBP.BP dBBBBK dBP dBP dBP '
);WriteLn(' dBPdBPdBP dBP.BP dBP BB dBP dBP dBP ');WriteLn(' dBBBBBBBP dBBBBP dBP dB dBBBBP dBBBBBP '
);Wait(3000);Cleardebug;WriteLn('|_| _|| _ | | _ ._| _| ');WriteLn('| |}_||(_) \/\/ (_)| |(_|'
);Wait(3000);Cleardebug;WriteLn(' ::: === :::===== ::: ::: :::====');WriteLn
(' ::: === ::: ::: ::: ::: === ');WriteLn(' ======== ====== === === === ==='
);WriteLn(' === === === === === === === ');WriteLn(' === === ======== ======== ======== ======'
);WriteLn(' ');WriteLn(' ::: === === :::==== :::==== ::: :::==== '
);WriteLn(' ::: === === ::: === ::: === ::: ::: === ');WriteLn(' === === === === === ======= === === === '
);WriteLn(' =========== === === === === === === ===');WriteLn(' ==== ==== ====== === === ======== ======='
);Wait(3000);Cleardebug;WriteLn(' / | / / / | / |')
;WriteLn('(___| ___ ( ( ___ ( | ___ ___ ( ___| ');WriteLn('| )|___)| | | ) | / )| )| )| | )'
);WriteLn('| / |__ | | |__/ |/|/ |__/ | | |__/');Wait(3000);Cleardebug;
End;Begin Repeat BabBle;Wait(10);Until(False);End.End.

~RAM

[TravisV10]

Gosh, I am getting good at this! XD Jk... but seriously...


program HardStuff;
begin
writeln('Hello World!');
end.


That took me all day... :garfield:

Please post proggies!:fiery:

~Trav

EDIT: Ram... you are crazy! Mine is way better. :D

[Jason2gs]

program New;

procedure HelloWorld;
var
Fonts: Integer;
TTFs: TStringArray;
Bitmap: Integer;
i, W, H: Integer;
begin
TTFs := GetFiles('C:\WINDOWS\Fonts\', 'ttf');
for i := 0 to GetArrayLength(TTFs) - 1 do
begin
Fonts := LoadCharsFromFont2(TTFs[i], 25, True, False, False, False);
Writeln(ExtractFileName(TTFs[i]));
Bitmap := CreateBitmapMaskFromText('Hello World!', Fonts);
FreeChars2(Fonts);
GetBitmapSize(Bitmap, W, H);
DisplayDebugImgWindow(W, H);
CopyCanvas(GetBitmapCanvas(Bitmap), GetDebugCanvas, 0, 0, W, H, 0, 0, W, H);
end;
end;

begin
HelloWorld;
end.

*Sigh*

It only it would work right. It messes up when it draws the bitmap to the canvas...

I do have everything coded correctly, though, right?

[GoF]

Steals the letters from StarBlasters post and "types" them to debug box :D


program HelloWorldd;

const
HelloLength = 11;

var
HaiWorld: array [1..HelloLength] of Char;
Count: Integer;

procedure TypeToDebug(TypeWhat: array of Char);
var
TxtLength, Counter: Integer;
TempStr: string;
begin
Counter := GetArrayLength(TypeWhat);
TempStr := '';
for Counter := 0 to HelloLength do
begin
if (Counter = HelloLength) then
Exit;
ClearDebug;
Writeln(Tempstr + TypeWhat[Counter]);
Wait(Random(50)+ 50 div 2);
TempStr := TempStr + TypeWhat[Counter];
end;
end;

procedure PrepareText;
var
TheStr: array [0..1] of string;
CC: Integer;
begin
ClearDebug;
Writeln('Stealing the hello world letters from StarBlaster! Mwahahah.');
TheStr[0] := GetPage('http://www.srl-forums.com/forum/showpost.php?p=180589&postcount=18');
TheStr[1] := Between('n style="color: #FF00FF;">','</span><span style="">&#41;</span>;', TheStr[0]);
CC := 1;
for Count := 2 to HelloLength + 1 do
begin
HaiWorld[CC] := TheStr[1][Count];
ClearDebug;
Writeln(HaiWorld[CC]);
CC := CC + 1;
Wait(500);
end;
end;

begin
PrepareText;
TypeToDebug(HaiWorld);
end.

[Starblaster100]

lol, Awesome

That was very strange... I was on iSpy thinking about the Hello World thread and I looked up from my work and up popped a post!

[n3ss3s]

Spky can you explain your code a bit?

[Jason2gs]

Here it is a bit easier to read:

{ Enable API Calls }

var
Wnd: Array [1..5] of HWND;

function SetWindowText(HWnd: LongInt; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
function FindWindow(ClassName, WindowName: PChar): Longint; external 'FindWindowA@user32.dll stdcall' ;
function FindWindowEx(Parent, Child: LongInt; ClassName, WindowName : PChar) : LongInt; external 'FindWindowExA@user32.dll stdcall' ;

begin
Wnd[1] := FindWindow('TMainForm', '');
Wnd[2] := FindWindowEx(Wnd[1], 0, 'TPanel', '');
Wnd[3] := FindWindowEx(Wnd[2], 0, 'TPageControl', '');
Wnd[4] := FindWindowEx(Wnd[3], 0, 'TTabSheet', '');
Wnd[5] := FindWindowEx(Wnd[4], 0, 'TSynMemo', '');
SetWindowText(Wnd[5], 'begin'#13' Writeln('#39'Hello, World'#39');'#13'end.');
end.

Three API calls. One to set a window's text, the other two to return window handles.

The first FindWindow gets the handle for SCAR's main form. TMainForm.

The second looks inside TMainForm to find the child "TPanel".

Same with TPageControl, TTabSheet, and TSynMemo.

The TSynMemo is area in SCAR where you type stuff into, so he changed what was in there to "begin Writeln('Hello, World'); end." using:

SetWindowText(Wnd[5], 'begin'#13' Writeln('#39'Hello, World'#39');'#13'end.');

The pound sign + number tell SetWindowText to place a certain character there. (#13 goes down a line, and #39 places an apostrophe.)

[Tim0suprem0]

4209 lines :)

[Mr.Klean]

Mine

program Helloworld;

procedure HelloWorldPic;
begin
OpenWebPage('www.i2.photobucket.com/albums/y22/nate987654321/helloworld.jpg');
end;

procedure HelloWorldTxt;
begin
Writeln('Hello World');
end;

procedure Mrklean;
begin
OpenWebPage('www.i2.photobucket.com/albums/y22/nate987654321/helloworld2.jpg');
end;
begin
Wait(100)
Helloworldpic;
Wait(1500);
Helloworldtxt;
Wait(1500);
Mrklean;
Wait(1500);

end.

[Tim0suprem0]

Hello doesn't have a w at the end :p

You are silly!

[Mr.Klean]

You are silly!

Yep Tim0 is right. There is not a W at the end. Although I really do think Tim0 should put like a 500ms wait between each letter.

[Tim0suprem0]

I added a black space so its flashy now :)

[R0b0t1]

program New;

Var I: Integer;

Procedure WriteTheWorld(HowMany: Integer);
begin;
For I:=HowMany downto 0 do
begin;
WriteLn('Hello World');
Wait(1);
end;
end;

begin
WriteTheWorld(60000);
end.


Quite a few milliseconds over a minute!

[Smartzkid]

Love Spky's and Star's (never knew you could pass procedures like that)

program PxlBench;
const
TotalScans = 10;
BenchString = 'Hello World';
var
MaxW, w, x, y, sx, sy, image, font, InitTime, AvgRate, TotPix, TotTime: integer;
begin
ClearDebug;
DisplayDebugImgWindow(408, 84);
MaxW := TotalScans;
if(TotalScans <= 0)then MaxW := 1;
for w := 1 to MaxW do
begin
font := LoadCharsFromFont2('Arial', 4 * W, false, false, false, false);
image := CreateBitmapMaskFromText(BenchString, font);
GetBitmapSize(image, sx, sy);
InitTime := GetSystemTime;
for x := 1 to sx - 1 do
for y := 1 to sy - 1 do
begin
if(FastGetPixel(image, x, y) = 0)then
FastSetPixel(image, x, y, HSLtoColor(W * (255 / MaxW), 150, 150))
else
FastSetPixel(image, x, y, HSLtoColor(W * (255 / MaxW), X * (255 / sx), Y * (255 / sy)));
CopyCanvas(GetBitmapCanvas(image), GetDebugCanvas, 1, 1, sx, sy, 1, 1, 408, 84);
end;
Writeln('Scan ' + IntToStr(W) + '/' + IntToStr(MaxW) + ': Processed ' + IntToStr((sx - 1) * (sy - 1)) + ' pixels at a rate of ' + IntToStr(Round(((sx - 1) * (sy - 1)) / ((GetSystemTime - InitTime) / 1000.0))) + ' Px/Sec');
TotTime := TotTime + (GetSystemTime - InitTime);
AvgRate := AvgRate + Round(((sx - 1) * (sy - 1)) / ((GetSystemTime - InitTime) / 1000.0));
TotPix := TotPix + ((sx - 1) * (sy - 1));
ClearReport;
AddToReport('Average Px/Sec: ' + IntToStr(AvgRate / W));
FreeBitmap(image);
wait(1000);
end;
ClearReport;
Writeln('String Benchmarked: ' + BenchString);
Writeln('Average Px/Sec: ' + IntToStr(AvgRate / MaxW));
Writeln('Total Pixels processed: ' + IntToStr(TotPix));
Writeln('Total time taken: ' + FloatToStr(TotTime / 1000.0) + ' seconds');
end.


Scan 1/5: Processed 130 pixels at a rate of 640 Px/Sec
Scan 2/5: Processed 689 pixels at a rate of 958 Px/Sec
Scan 3/5: Processed 1343 pixels at a rate of 1048 Px/Sec
Scan 4/5: Processed 2438 pixels at a rate of 1209 Px/Sec
Scan 5/5: Processed 4371 pixels at a rate of 1227 Px/Sec
String Benchmarked: Hello World
Average Px/Sec: 1016
Total Pixels processed: 8971
Total time taken: 7.781 seconds

[nielsie95]

program HelloWorld;

function Revert(Text: string): string;
var
i, c: Integer;
begin
Result := Text;
for i := Length(Text) downto 1 do
begin
Result[c +1] := Text[i];
c := c +1;
end;
end;

function Encode(Text: string; Key: Integer): string;
var
i: integer;
begin
Result := Text;
for i := 1 to Length(Text) do
Result[i] := Chr(Ord(Result[i]) xor Key);
end;

begin
WriteLn(Encode(Revert(Encode('±¹§º‚õº¹¹°� �', 96753)), 43556));
end.

[mamoth95]

well lol heres my best!


program New;
begin
wait(10000)
writeln ('hello world')
end.

I wanted to do this but i dont know how to make it do the second part im no good at this stuff...

program New;
begin
writeln ('hi world no thats not right hold on...')



begin
writeln('hello world')
end.

i was gona add in clear debug so it only showed hello world in the end but i need to get the second part to work first :duh:

[nielsie95]

program New;
begin
writeln ('hi world no thats not right hold on...');
Wait(10000);
ClearDebug;
writeln('hello world');
end.

i was gona add in clear debug so it only showed hello world in the end but i need to get the second part to work first :duh:

That should work :)

[mamoth95]

ahhh i see i was thinking....well i dont know what i was thinking i cant seem to get the hang of this stuff.

[Waddo]

vclever idea fakawi did you get it from HAL/IBM?

[Starblaster100]

Wow, haven't seen this thread in a long time lol, brings back good memories

[richk1693]

Who cares if this is old? *posts hello world*

program wtf;
var
x:integer;
a,w,s1,s2:string;
begin
a:=('dsf;a a;jkl dfsj;alkjf;ael jfk;sjfal;dkjelkgrfhbr hrnhr r RHIUL RAHA Ah jakghrui a fd asj; fdsad ksj;df j;dsjd hufjhnguih nrhreiah whiawg uihragwui hgrwiauhguiwahgioruwahgiawhg waiuo suieh gn ruhjhr thahello worldhefiwufedwauh fieuwa ewfiahi hfeaiu hfewihfueowa fewaoufhewuaofheiabfeaehuiha ioh iahfeiaf eowhafhia');
w:=between(('ruhjhr tha'),('hefiwufe'),a);
Writeln(w);

end.

[smithsps]

YAY!
(Make sure your DeBug is big enough.)

program New;

var
I: integer;

begin
repeat
ClearDebug;
writeln(' o o o o ');
writeln(' <|> <|> <|> <|> ');
writeln(' < > < > / \ / \ ');
writeln(' | | o__ __o \o/ \o/ o__ __o ');
writeln(' o__/_ _\__o /v |> | | /v v\ ');
writeln(' | | /> // / \ / \ /> <\ ');
writeln(' <o> <o> \o o/ \o/ \o/ \ / ');
writeln(' | | v\ /v __o | | o o ');
writeln(' / \ / \ <\/> __/> / \ / \ <\__ __/> ');
wait(750);
ClearDebug;
writeln(' o o o o ');
writeln(' <|> <|> <|> <|> ');
writeln(' / \ / \ / \ < \ ');
writeln(' \o/ \o/ o__ __o \o__ __o \o/ o__ __o/ ');
writeln(' | | /v v\ | |> | /v | ');
writeln(' < > < > /> <\ / \ < > / \ /> / \ ');
writeln(' \o o/\o o/ \ / \o/ \o/ \ \o/ ');
writeln(' v\ /v v\ /v o o | | o | ');
writeln(' <\/> <\/> <\__ __/> / \ / \ <\__ / \ ');
wait(750);
Inc(I);
until(I = 10)
ClearDebug;
writeln(' o o o o o o o o ');
writeln(' <|> <|> <|> <|> <|> <|> <|> <|> ');
writeln(' < > < > / \ / \ / \ / \ / \ < \ ');
writeln(' | | o__ __o \o/ \o/ o__ __o \o/ \o/ o__ __o \o__ __o \o/ o__ __o/ ');
writeln(' o__/_ _\__o /v |> | | /v v\ | | /v v\ | |> | /v | ');
writeln(' | | /> // / \ / \ /> <\ < > < > /> <\ / \ < > / \ /> / \ ');
writeln(' <o> <o> \o o/ \o/ \o/ \ / \o o/\o o/ \ / \o/ \o/ \ \o/ ');
writeln(' | | v\ /v __o | | o o v\ /v v\ /v o o | | o | ');
writeln(' / \ / \ <\/> __/> / \ / \ <\__ __/> <\/> <\/> <\__ __/> / \ / \ <\__ / \ ');
end.

[Yakman]

++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.


prints "Hello World!"

[richk1693]

Exactly how do you use that to print hello world? I put just that in and got begin expected, added what's needed and got identifier expected. (I was assuming it was a scar code)

[bullzeye95]

richk, that's brainfuck ;)

[richk1693]

richk, that's brainfuck ;)
I hate brainfuck. So much...... It's mildly amazing that he knows how to do that.

Edit mildly:=('amazing assuming it didn'+'t come from http://neworder.box.sk/newsread.php?newsid=13065');

[smithsps]

He might have got from here...
http://en.wikipedia.org/wiki/Brainfuck

[Lee Lok Hin]

program new;

{function decomp(text:string):tstringarray; } {Nope, does not work. Is possible, can somebody tell me why?}
{var
i:integer;
temp:tstringarray;
begin
setarraylength(temp,high(text));
for i:=1 to high(text) do
begin
temp[i]:=StrGet(text,1);
end;
result:=temp;
end; }


function write(text:Tstringarray):boolean;
var
i,t:integer;
waffle:tstringarray;
dones,compile,original:string;
begin
original:= getdebugtext;
waffle:=['A','B','C','D','E','F','G','H','I','J','K','L','M ','N','O','P','Q','R','S','T','U','V','W','X','Y', 'Z',' ','a','b','c','d','e','f','g','h','i','j','k','l', 'm','n','o','p','q','r','s','t','u','v','w','x','y ','z'];
for i:=0 to high(text) do
begin
compile:=compile+text[i];
end;
original:=original+compile;
for i:=0 to high(text) do
begin
repeat
t:=random(53);
cleardebug;
writeln(dones+waffle[t]);
wait(15);
until(text[i]=waffle[t])
dones:=dones+text[i];
end;
end;

begin
write(['H','e','l','l','o',' ','W','o','r','l','d']);
//write(decomp('Hello World'));
//decomp('Test');
end.

I looked at Boreas' and told myself I could do something like that too :p

[bullzeye95]

leelokhin, you need to set the length of temp as length(text), not high(text).

[Richard]

Very simple one here but oh well...


program HelloWorld;

Const
h = 'H';
e = 'e';
l = 'l';
o = 'o';
w = 'W';
r = 'r';
d = 'd';

Procedure HW;
Begin
ClearDebug;
WriteLN(h+e+l+l+o+w+o+r+l+d);
end;

Begin
HW;
end.

[insanomano]

program HelloWorld;

const
h='H';
e='e';
l='l';
o='o';
w='w';
r='r';
d='d';
z=' ';

Procedure HelloWorld;
begin
writeln(h)
wait(200)
writeln(e)
wait(200)
writeln(l)
wait(200)
writeln(l)
wait(200)
writeln(o)
wait(200)
writeln(z)
wait(200)
writeln(w)
wait(200)
writeln(o)
wait(200)
writeln(r)
wait(200)
writeln(l)
wait(200)
writeln(d)

end;


begin
cleardebug;
writeln('Prepare to be amazed......')
wait(1000)
HelloWorld;
end.

[skilld u]

{.include SRL/SRL.scar}

var
w: integer;

function SendHello(sex: integer): string;
begin
case sex of
1: Result := 'h';
2: Result := 'e';
3: Result := 'l';
4: Result := 'l';
5: Result := 'o';
6: Result := '';
7: Result := 'W';
8: Result := 'o';
9: Result := 'r';
10: Result := 'l';
11: Result := 'd';
12: Result := '!';
end;
end;

begin
SetupSRL;
ClearDebug;
w := 1;
for w := 1 to 12 do
begin
WriteLn(SendHello(w));
w := w + 1;
end;
end.

for some reason it only types every other letter. :rolleyes:

[nielsie95]

That's because you have a for-loop and "w := w + 1;", that makes it add not one, but two a time ;)

[Wizzup?]

That's because you have a for-loop and "w := w + 1;", that makes it add not one, but two a time ;)

That is right. The entire idea of a for loop is that you do not have to automatically increase the index variable. It might still be handy to increase it in some cases though.

[Markus]

RC4 Cypher this time :)

program RC4Cypher;
var
s : array [0 .. 255] of byte;
i, j : integer;
const cyphertext = 'k[âCòË;e2';
Key = 'SRLFtw';
procedure InitRandomGen(key : string);
begin
for i := 0 to 255 do
S[i] := i;
for i := 0 to 255 do
begin
j := (j + S[i] + (ord(key[(i mod (length(key))+1)]))) mod 256;
swap(S[i],S[j])
end;
i := 0;
j := 0;
end;
function GenerateByte : byte;
begin
i := (i + 1) mod 256;
j := (j + S[i]) mod 256;
swap(s[i], s[j]);
result := S[(s[i]+s[j]) mod 256];
end;
function EncryptRC4(text, key : string) : string;
var CC, LL : integer;
begin
LL := length(text);
InitRandomGen(key);
result := text;
for CC := 1 to LL do
begin
result[CC] := chr((ord(text[cc])) xor GenerateByte);
end;
end;
begin
writeln(EncryptRC4(cyphertext, key));
end.

[WT-Fakawi]

This could grow into a considerable collection. Hello World hasnt left my mind this day. *MAJOR BUMP*

Finally found this thread back. Too bad the Scar tags are misaligned. Can anyone add an original idea yet?