SRL Archive - The Bashing Club / BBQ Pit

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:

[php]
Program StarsHelloWorld;

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

Begin
HelloWorld;
end;
[/php]

[php]
Program StarsHelloWorld;

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

Begin
Writeln(HelloWorld);
end;
[/php]

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!

Cool! I'll have mine soon.

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. ;)

O hell yea lol.

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!

Oi i said one lol.

nice one :)

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

Rawr.

Used my own string obfuscator:

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

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..

Hmm

[PHP]
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;

[/PHP]
:) Sorry for crappy indents, im too lazy to format..

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' +
        '250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C798B' +
        '79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1D30A' +
        'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65B904' +
        '83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C033601864' +
        '7BC0306018E46DC030F06AC030F00430131F260C138609C38461E' +
        '2C38467C233F164C236619B4370FE0095A70BDE726F157F2EF173' +
        'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F2BF6' +
        'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655C3AA' +
        '61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B61A8F' +
        '6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE544B7' +
        'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788982E' +
        'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E8AA8' +
        '284945BCD448F5D31F9AB9E47580A14479356028E6BC26170C579' +
        '357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1CC5D' +
        '89F3891C266E495C9FF030C19FE04FF047CE479823CC11E608738' +
        '43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3EC61' +
        'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE1B7F' +
        '05BF82DFC162B8B95C5CA6280E9FBB8DC23CC4881579140623730' +
        'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D38BF' +
        'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F52972AF5' +
        '1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B60EA' +
        '3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328FD75' +
        '49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A99215' +
        '166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D4D66' +
        '6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F87E7D' +
        'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAADFFF' +
        '7107687263979D44F563453F417CCEA2A22ABB503F3BD207FDA87' +
        '254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796C76E' +
        '3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7ADDE7' +
        'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F98E33' +
        'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176471B' +
        '8E575F0E735F903257356ED');

      SafeCopyCanvas(GetBitmapCanvas(B),Background.Canvas,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.

From: ~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..

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.

Hmm..

program HelloWorld;

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

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

Simple is best :D

excellent guys!

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.

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.

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

From: 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

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.

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.

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.

lol @boreas.. :p

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

lol, very clever Boreas :p

From: 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.

rofl haha lmfao!!!!

From: Starblaster100
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.

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

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.

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('78DA633CC7C0C050C2C80002101204CEC0F9F' +
       'F8180F131909187A9E63F129F7103767350D43411614E3A902825' +
       'A0C61EC82A20640E905548404D1690554140CD2722DCDC49847B4' +
       '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

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

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

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.

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.

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

[php]
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.
[/php]

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

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

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

[offtopic] Spork, Yours made me lol when i was looking it through, heres a proggy :p
[php]
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
[/php]
[/offtopic]

Lol, yeah I was in a random mood.

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…

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.

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…)

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.

From: 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.

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

Skills…

I'm surprised nobody's done this:

program New;
begin
  GetDebugCanvas.Font.Size:= 50;
  GetDebugCanvas.Font.Color:= clRed;
  DisplayDebugImgWindow(GetDebugCanvas.TextWidth('HELLO 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?

From: bullzeye95
I'm surprised nobody's done this:

program New;
begin
  GetDebugCanvas.Font.Size:= 50;
  GetDebugCanvas.Font.Color:= clRed;
  DisplayDebugImgWindow(GetDebugCanvas.TextWidth('HELLO 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

Oopsie, here.

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

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.

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(FindWindowEx(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)

From: 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(FindWindowEx(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

Notice the "{ Enable API Calls }" ;)

From: WT-Fakawi
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 :)

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!

From: bullzeye95
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:

Haha, Nice one Star :D


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

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

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('================================');WriteLn('==========================================='
);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

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

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?

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.

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!

Spky can you explain your code a bit?

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.)

4209 lines :)

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.

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

You are silly!

From: tim0suprem0
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.

I added a black space so its flashy now :)

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!

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

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.

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:

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 :)

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

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

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

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.

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.

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

prints "Hello World!"

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)

richk, that's brainfuck ;)

From: bullzeye95
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');

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

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

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

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.

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.

{.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:

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

From: nielsie95
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.

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.

From: 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?