SRL Archive - Other Scripts

Who thinks that creating Debug Movies is a good idea? It is a competition, and at the end of next January, the community will decide which is the best Debug Movie out there.

Ok, so here is my 2 (It is just a basic one to show you what):
When the FINGER meet's the WORD!:

program FU;

procedure Motion1;
begin
  ClearDebug;
  Writeln('            FFFFF    U   U    CCCCC    K   K');
  Writeln('            F        U   U    C        K  K');
  Writeln('            FFFF     U   U    C        K K');
  Writeln(' _ _ _ _    F        U   U    C        KKK');
  Writeln('| | | | |   F        U   U    C        K  K');
  Writeln('| | | | |   F        UUUUU    CCCCC    K   K');
end;

procedure Motion2;
begin
  ClearDebug;
  Writeln('   _        Y   Y    OOOOO    U   U');
  Writeln('  | |        Y Y     O   O    U   U ');
  Writeln('  | |         Y      O   O    U   U');
  Writeln(' _| |_ _      Y      O   O    U   U ');
  Writeln('| | | | |     Y      O   O    U   U');
  Writeln('| | | | |     Y      OOOOO    UUUUU');
end;

procedure LoadStartup;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  When the FINGER meet''s the WORD!');
  Writeln('');
  Writeln('Please wait, the movie is loading.');
end;

procedure LoadStartup2;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  When the FINGER meet''s the WORD!');
  Writeln('');
  Writeln('Please wait, the movie is loading..');
end;

procedure LoadStartup3;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  When the FINGER meet''s the WORD!');
  Writeln('');
  Writeln('Please wait, the movie is loading...');
end;

function CheckLoaded:Boolean;
begin
  Sleep(3000);
  Result:=True;
end;

begin
  repeat
    LoadStartup;
    Wait(350);
    LoadStartup2;
    Wait(350);
    LoadStartup3;
    Wait(350);
  Until(CheckLoaded);
  repeat
    Motion1;
    Wait(500);
    Motion2;
    Wait(700);
  Until(False);
end.

A walk in the park!:

program WalkInThePark;

procedure Motion1;
begin
  ClearDebug;
  Writeln('  ___ ');
  Writeln(' /   \');
  Writeln('| o o |');
  Writeln(' \___/ ');
  Writeln('  _|_');
  Writeln('   |');
  Writeln('  / \');
  Writeln(' /   \');
end;

procedure Motion2;
begin
  ClearDebug;
  Writeln('   ___ ');
  Writeln('  /   \');
  Writeln(' | o o |');
  Writeln('  \___/ ');
  Writeln('   _|_');
  Writeln('    |');
  Writeln('   / \');
  Writeln('  /   \');
end;

procedure Motion3;
begin
  ClearDebug;
  Writeln('    ___ ');
  Writeln('   /   \');
  Writeln('  | o o |');
  Writeln('   \___/ ');
  Writeln('    _|_');
  Writeln('    |');
  Writeln('    / \');
  Writeln('   /   \');
end;

procedure Motion4;
begin
  ClearDebug;
  Writeln('     ___ ');
  Writeln('    /   \');
  Writeln('   | o o |');
  Writeln('    \___/ ');
  Writeln('     _|_');
  Writeln('      |');
  Writeln('     / \');
  Writeln('    /   \');
end;

procedure Motion5;
begin
  ClearDebug;
  Writeln('      ___ ');
  Writeln('     /   \');
  Writeln('    | o o |');
  Writeln('     \___/ ');
  Writeln('      _|_');
  Writeln('       |');
  Writeln('      / \');
  Writeln('     /   \');
end;

procedure Motion6;
begin
  ClearDebug;
  Writeln('       ___ ');
  Writeln('      /   \');
  Writeln('     | o o |');
  Writeln('      \___/ ');
  Writeln('       _|_');
  Writeln('        |');
  Writeln('       / \');
  Writeln('      /   \');
end;

procedure Motion7;
begin
  ClearDebug;
  Writeln('        ___ ');
  Writeln('       /   \');
  Writeln('      | o o |');
  Writeln('       \___/ ');
  Writeln('        _|_');
  Writeln('         |');
  Writeln('        / \');
  Writeln('       /   \');
end;

procedure Motion8;
begin
  ClearDebug;
  Writeln('         ___ ');
  Writeln('        /   \');
  Writeln('       | o o |');
  Writeln('        \___/ ');
  Writeln('         _|_');
  Writeln('          |');
  Writeln('         / \');
  Writeln('        /   \');
end;

procedure Motion9;
begin
  ClearDebug;
  Writeln('          ___ ');
  Writeln('         /   \');
  Writeln('        | o o |');
  Writeln('         \___/ ');
  Writeln('          _|_');
  Writeln('           |');
  Writeln('          / \');
  Writeln('         /   \');
end;

procedure Motion10;
begin
  ClearDebug;
  Writeln('           ___     _____');
  Writeln('          /   \   / o o \');
  Writeln('         | o o | |   ^   |');
  Writeln('          \___/   \_ -__/   < BOO!');
  Writeln('           _|_      _|_');
  Writeln('            |        |');
  Writeln('           / \      / \');
  Writeln('          /   \    /   \');
end;

procedure Motion11;
begin
  ClearDebug;
  Writeln('            _?_ ');
  Writeln('           /   \');
  Writeln('          | 0 0 |');
  Writeln('           \_o_/    ');
  Writeln('            _|_');
  Writeln('             |');
  Writeln('            / \');
  Writeln('           /   \');
end;

procedure Motion12;
begin
  ClearDebug;
  Writeln('             _?_ ');
  Writeln('            /   \');
  Writeln('           | 0 0 |');
  Writeln('            \_o_/     ');
  Writeln('             _|_');
  Writeln('              |');
  Writeln('             / \');
  Writeln('            /   \');
end;

procedure Motion13;
begin
  ClearDebug;
  Writeln('              _?_ ');
  Writeln('             /   \');
  Writeln('            | 0 0 |');
  Writeln('             \_o_/     ');
  Writeln('              _|_');
  Writeln('               |');
  Writeln('              / \');
  Writeln('             /   \');
end;

procedure Motion14;
begin
  ClearDebug;
  Writeln('               _?_ ');
  Writeln('              /   \');
  Writeln('             | 0 0 |');
  Writeln('              \_o_/     ');
  Writeln('               _|_');
  Writeln('                |');
  Writeln('               / \');
  Writeln('              /   \');
end;

procedure Motion15;
begin
  ClearDebug;
  Writeln('                _?_ ');
  Writeln('               /   \');
  Writeln('              | 0 0 |');
  Writeln('               \_o_/     ');
  Writeln('                _|_');
  Writeln('                 |');
  Writeln('                / \');
  Writeln('               /   \');
end;

procedure Motion16;
begin
  ClearDebug;
  Writeln('                 _?_ ');
  Writeln('                /   \');
  Writeln('               | 0 0 |');
  Writeln('                \_o_/     ');
  Writeln('                 _|_');
  Writeln('                  |');
  Writeln('                 / \');
  Writeln('                /   \');
end;

procedure Motion17;
begin
  ClearDebug;
  Writeln('                  _?_ ');
  Writeln('                 /   \');
  Writeln('                | 0 0 |');
  Writeln('                 \_o_/ ');
  Writeln('                  _|_');
  Writeln('                   |');
  Writeln('                  / \');
  Writeln('                 /   \');
end;

procedure Motion18;
begin
  ClearDebug;
  Writeln('                   _?_ ');
  Writeln('                  /   \');
  Writeln('                 | 0 0 |');
  Writeln('                  \_o_/ ');
  Writeln('                   _|_');
  Writeln('                    |');
  Writeln('                   / \');
  Writeln('                  /   \');
end;

procedure Motion19;
begin
  ClearDebug;
  Writeln('                    _?_ ');
  Writeln('                   /   \');
  Writeln('                  | 0 0 |');
  Writeln('                   \_o_/ ');
  Writeln('                    _|_');
  Writeln('                     |');
  Writeln('                    / \');
  Writeln('                   /   \');
end;

procedure Motion20;
begin
  ClearDebug;
  Writeln('                     _?_ ');
  Writeln('                    /   \');
  Writeln('                   | 0 0 |');
  Writeln('                    \_o_/ ');
  Writeln('                     _|_');
  Writeln('                      |');
  Writeln('                     / \');
  Writeln('                    /   \');
end;

procedure Motion21;
begin
  ClearDebug;
  Writeln('                      _?_ ');
  Writeln('                     /   \');
  Writeln('                    | 0 0 |');
  Writeln('                     \_o_/ ');
  Writeln('                      _|_');
  Writeln('                       |');
  Writeln('                      / \');
  Writeln('                     /   \');
end;

procedure Motion22;
begin
  ClearDebug;
  Writeln('                       _?_ ');
  Writeln('                      /   \');
  Writeln('                     | 0 0 |');
  Writeln('                      \_o_/ ');
  Writeln('                       _|_');
  Writeln('                        |');
  Writeln('                       / \');
  Writeln('                      /   \');
end;

procedure LoadStartup;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  A walk in the park!');
  Writeln('');
  Writeln('Please wait, the movie is loading.');
end;

procedure LoadStartup2;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  A walk in the park!');
  Writeln('');
  Writeln('Please wait, the movie is loading..');
end;

procedure LoadStartup3;
begin
  ClearDebug;
  Writeln('IP-Drowner''s Procudtion''s Present''s:');
  Writeln('  A walk in the park!');
  Writeln('');
  Writeln('Please wait, the movie is loading...');
end;

function CheckLoaded:Boolean;
begin
  Result:=True;
end;

begin
  repeat
    LoadStartup;
    Wait(100);
    LoadStartup2;
    Wait(100);
    LoadStartup3;
    Wait(100);
    LoadStartup;
    Wait(800);
  Until(CheckLoaded);
  repeat
    Motion1;
    Wait(100);
    Motion2;
    Wait(100);
    Motion3;
    Wait(100);
    Motion4;
    Wait(100);
    Motion5;
    Wait(100);
    Motion6;
    Wait(100);
    Motion7;
    Wait(100);
    Motion8;
    Wait(100);
    Motion9;
    Wait(100);
    Motion10;
    Wait(850);
    Motion11;
    Wait(100);
    Motion12;
    Wait(100);
    Motion13;
    Wait(100);
    Motion14;
    Wait(100);
    Motion15;
    Wait(100);
    Motion16;
    Wait(100);
    Motion17;
    Wait(100);
    Motion18;
    Wait(100);
    Motion19;
    Wait(100);
    Motion20;
    Wait(100);
    Motion21;
    Wait(100);
  Until(False);
end.

Well, i'll be posting more later, but only if other people contribute as-well.

im making one now.

EDIT:

here are some charaters that can be used in these movies.

BLOONS
            _
           (*)                                       oooo
            #                                      OOOOOOOO
                       @@@@@                _      OOOOOOOO
                  :::::::::::::::          (&)      oooooo
               @@@@@@@@@@@@@@@@@@@@@=       #        \  /
              :::::::::::::::::::::::==               ##
              @@@@@@@@@@@@@@@@@@@@@@@==
               :::::::::::::::::::::==
                @@@@@@@@@@@@@@@@@@@ /               &&%&&
                  ::::::::::::::: ##           &&%%&&%%%&&%%&&
   ====             @@@@@@@@@@@             &&&&%%&&&%%%&&&%%&&&&
 ========            \ ::::: /             &&&&&%%&&&%%%&&&%%&&&&&
 ========              \ _ /           ::::&&&&&%%&&&%%%&&&%%&&&&&
  ======                |O|          :::::::&&&&%%&&&%%%&&&%%&&&&
   \  /                 ###          ::::::::&&&%%&&&%%%&&&%%&&&
    ##                  ###           ::::::   &&%%&&%%%&&%%&&
                                       \  /      &&%&&%&&%&&
                                        ##        \ &&%&& /
                                                    \ _ /
                                                     |*|
    .....                                            ###
 !!!!!!!!!!!!!                                       ###
 """"""""""""""""
 }}}}}}}}}}}}}}}}}                       xxxxx
 (((((((((((((((((                  XXXXXXXXXXXXXXX
 ,,,,,,,,,,,,,,,,                xxxxxxxxxxxxxxxxxxxxx
 ===============  oooo          XXXXXXXXXXXXXXXXXXXXXXX
 +++++++++++++  OOOOOOOO        xxxxxxxxxxxxxxxxxxxxxxx
 ooooooooooo    OOOOOOOO         XXXXXXXXXXXXXXXXXXXXX
  \ ----- /      oooooo           xxxxxxxxxxxxxxxxxxx
    \ _ /         \  /              XXXXXXXXXXXXXXX
     |^|           ##                 xxxxxxxxxxx
     ###                               \ XXXXX /      .....
     ###                     :==::==::==:\ _ /   !!!!!!!!!!!!!!!
      *****             :==::==::==::==::==::=/////////////////////
 \\\\\\\\\\\\\\\     =::==::==::==::==::==::==::=}}}}}}}}}}}}}}}}}}}
 %%%%%%%%%%%%%%%%%% =::==::==::==::==::==::==::==:((((((((((((((((((
 @@@@@@@@@@@@@@@@@@@::==::==::==::==::==::==::==::,,,,,,,,,,,,,,,,,
 }}}}}}}}}}}}}}}}}}}:==::==::==::==::==::==::==::=\\\\\\\\\\\\\\\\
 ------------------  =::==::==::==::==::==::==::=+++++++++++++++
 <<<<<<<<<<<<<<<<<    :==::==::==::==::==::==::=   ooooooooooo
 '''''''''''''''        ::==::==::==::==::==::      \ ^^^^^ /
   VVVVVVVVVVV            =::==::==::==::==:          \ _ /
    \ MMMMM /              \  ::==::==::  /            |*|
      \ _ /                  \  \    /  /              ###
       |o|                     \  \/  /                ###
       ###                      |~~~~|
       ###                      |    |
                                ######
                                ######
                                ######
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Rooster
                  .".".".
                (`       `)               _.-=-.
                 '._.--.-;             .-`  -'  '.
                .-'`.o )  \           /  .-_.--'  `\
               `;---) \    ;         /  / ;' _-_.-' `
                 `;"`  ;    \        ; .  .'   _-' \
                  (    )    |        |  / .-.-'    -`
                   '-.-'     \       | .' ` '.-'-\`
                    /_./\_.|\_\      ;  ' .'-'.-.
                    /         '-._    \` /  _;-,
                   |         .-=-.;-._ \  -'-,
                   \        /      `";`-`,-"`)
                    \       \     '-- `\.\
                     '.      '._ '-- '--'/
                       `-._     `'----'`;
                           `"""--.____,/
                                  \\  \
                                  // /`
                              ___// /__
                            (`(`(---"-`)

Elephant
                                  .' `'.__
                                /      \ `'"-,
               .-''''--...__..-/ .     |      \
             .'               ; :'     '.  a   |
            /                 | :.       \     =\
           ;                   \':.      /  ,-.__;.-;`
          /|     .              '--._   /-.7`._..-;`
         ; |       '                |`-'      \  =|
         |/\        .   -' /     /  ;         |  =/
         (( ;.       ,_  .:|     | /     /\   | =|
          ) / `\     | `""`;     / |    | /   / =/
            | ::|    |      \    \ \    \ `--' =/
           /  '/\    /       )    |/     `-...-`
          /    | |  `\    /-'    /;
          \  ,,/ |    \   D    .'  \
           `""`   \  nnh  D_.-'L__nnh
                   `"""`

Face
                       , ; ,   .-'"""'-.   , ; ,
                       \\|/  .'         '.  \|//
                        \-;-/   ()   ()   \-;-/
                        // ;               ; \\
                       //__; :.         .; ;__\\
                      `-----\'.'-.....-'.'/-----'
                             '.'.-.-,_.'.'
                               '(  (..-'
                                 '-'
House
                    ( Y )
                     \ /
                      \          /^\
                        )       //^\\
                     (         //   \\
                       )      //     \\
                      __     //       \\
                     |=^|   //    _    \\
                   __|= |__//    (+)    \\
                  /LLLLLLL//      ~      \\
                 /LLLLLLL//               \\
                /LLLLLLL//                 \\
               /LLLLLLL//  |~[|]~| |~[|]~|  \\
               ^| [|] //   | [|] | | [|] |   \\
                | [|] ^|   |_[|]_| |_[|]_|   |^
             ___|______|                     |
            /LLLLLLLLLL|_____________________|
           /LLLLLLLLLLL/LLLLLLLLLLLLLLLLLLLLLL\
          /LLLLLLLLLLL/LLLLLLLLLLLLLLLLLLLLLLLL\
          ^||^^^^^^^^/LLLLLLLLLLLLLLLLLLLLLLLLLL\
           || |~[|]~|^^||^^^^^^^^^^||^|~[|]~|^||^^
           || | [|] |  ||  |~~~~|  || | [|] | ||
           || |_[|]_|  ||  | [] |  || |_[|]_| ||
           ||__________||  |   o|  ||_________||
         .'||][][][][][||  | [] |  ||[][][][][||.'.
        ."'||[][][][][]||_-`----'-_||][][][][]||"."
      .(')^(.)(').( )'^@/-- -- - --\@( )'( ).(( )^(.)^
     '( )^(`)'.(').( )@/-- -- - -- -\@ (.)'(.),( ).(').
     ".'.'." ." '.". @/- - --- -- - -\@ '.".'.".'.".'."
        '' ".".".'.'@/ - -- -- -- -- -\@".'..'".'."'.'.'
    '.".".''.".''."@/ -- --- --- -- - -\@.".''.".''.".'".

Chair
                           .-""-._
                          / ___/  \         _&_
                    _.--""|/    `\|        // \\
                  .'      ( ^/ ^  )'.     / / \ \
                 /         | _   |   \   // / \ \\
                 |        _\____/    |  /_/_/_\_\_\
                 |      .' \____/-._ |     .-"-.
                 |     /            `;    /#    \
                 |    /  /     _|_.---\   |     |
                 |.-.;   :--.-(_/.____/.-""\___/"-.
                 /    \ / ~~/   /\   \{"=.______.="}
                /--. ; /___/_~~/ ; .--\"=...__...="}
               /    \-/  `\______|/    \-.______..-;
               |    /`|   |       \    |   ||||   ||
               |   /_ |   |_______/    |   ||||   ||
               |   \_/|   |-------'    |--'||'--._||
               |      |   |            |   ||     |>
               |______|   |____________|._ || _..-;|
               |      [___]            |  `||()   ||
               |______ |\/|____________|   ||     ()
                (__)   \__/        (__)    ()
          
Cat
   _
  ( \
   \ \                  
   / /                 /\     
  / /     .-""""-.   / ^'-.    
  \ \    /         \_/  {|} 'o   
   \ \  /   .---.   \\ _  ,--'   
    \ \/   /     \,  \( '^^^
     \   \/\      (\  )
      \   ) \     ) \ \
       ) /__ \__ ) (\ \___
      (___)))__))(__))(__)))

Beach Woman
                              ___.-"""-.
                             (  (___,/\ \
                              \(  |')' ) )
                               \)  \=_/  (
                         ___   / _,'  \   )
                       .'  \|-(.(_|_   ; (
                      /   //.     (_\, |  )
            /`'---.._/   /.\_ ____..'| |_/
           | /`'-._     /  |         '_|
            `      `;-"`;  |         /,'
                     `'.__/         ( \
                                    '\/
Teddy Bear
             ___
           {~._.~}
            ( Y )
           ()~*~()
           (_)-(_)

Foot

          oooO
          (  )     
           \ (       
            \_)       

Angel


                    (\       /)
                    ( \  __ / )
                    (  \( )/ )
                     ( /  \ )    		
                     (/ \/ \)   		
                     /      \    		
                    (        )    		
                       ____
Crayon

()__CRAYOLA___(>

Cassette tape 

|*-*|

Band-Aid

(::[]::)

Dead Fish

<*}}}>

Cigarette

(_____((___SRL-forums.com___() ~~~~

 H /       \  H:':':':':':':':':':':':':':':':':':':':':':':':':':':
 H'     '   `\H':':':':':':':':':':':':':':':':':':':':':':':':':':'
 H   '   '   /H:':':':':':':':':':':':':'###':###:'###':':':':':':':
 H`\   '   /' H':':':':':':':':':':':':':# #:'# #':# #:':':':':':':'
 H  `\   /'   H:':':':':':':':':':':':':'###':###:'###':':':':':':':
 H    `X'     H':':':':':':':':':':':':':':':':':':':':':':':':':':'
 H   /' `\    H:':':':':':'#########################################
 H /'   ' `\  H':':':':':':':|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|:'
 H'   '   ' `\H:':':':':':':'|~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~|':
 ===============:':':':':':':|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|~~~|:'
 :':':':':':':':':':':':':':'|~|~~~|~~~|~~~~~~~~~~~~~~~|~~~|~~~|~|':
 ':':':':':':':':':':':':':':|~~~|~~~|~|     (     )   |~|~~~|~~~|:'
 :':':':':':':':':':':':':':'|~|~~~|~~~|      )))((    |~~~|~~~|~|':
 ':':':':':':':':':':':':':':|~~~|~~~|~|     (((( ))   |~|~~~|~~~|:'
 :':':':':':':':':':':':':':'|~|~~~|~~~|  (@)~~~~~~~)  |~~~|~~~|~|':
 ':':':':':':':':':':':':':':|~~~|~~~|~|     ~~~~~~~   |~|~~~|~~~|:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/|@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@/___________________________________/ /@
 @@@@@@@@@@@@@@@@@@@@@@@@@@|___|___|___|___|___|___|___|___|___| /@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

Tonnes More Images here and Here

They don't look like anything?

@goider put them in scar tags. space don't work ;)

damn eh
thx rik

Lol I made one (used ur people IP-Drowner)

program Two_Gay_Guys;

procedure Motion1;
begin
  ClearDebug;
  Writeln('           ___     ___      ');
  Writeln('          /   \   /   \    ');
  Writeln('         | 0 0 | | 0 0 |     ');
  Writeln('          \_o_/   \_o_/   GO!   ');
  Writeln('           _|_     _|_       ');
  Writeln('           |___   ___|     ');
  Writeln('          / \       / \     ');
  Writeln('          /   \   /   \     ');;
end;

procedure Motion2;
begin
  ClearDebug;
  Writeln('           ___     ___      ');
  Writeln('          /   \   /   \    ');
  Writeln('         | 0 0 | | 0 0 |   YES!  ');
  Writeln('          \_o_/   \_o_/      ');
  Writeln('           _|_     _|_       ');
  Writeln('             |_____|      ');
  Writeln('            / \   / \     ');
  Writeln('          /   \   /   \     ');;
end;

procedure Motion3;
begin
  ClearDebug;
  ClearDebug;
  Writeln('           ___     ___      ');
  Writeln('          /   \   /   \    ');
  Writeln('         | 0 0 | | 0 0 |  AHH   ');
  Writeln('          \_o_/   \_o_/      ');
  Writeln('           _|_     _|_       ');
  Writeln('           |___   ___|     ');
  Writeln('          / \       / \     ');
  Writeln('          /   \   /   \     ');;
end;

procedure LoadStartup1;
begin
  ClearDebug;
  Writeln('Rwj4reals pictures presents');
  writeln('2 guys who fucked');
  writeln('loading..');
end;

procedure LoadStartup2;
begin
  ClearDebug;
  Writeln('loading...');
end;

function CheckLoaded:Boolean;
begin
  Sleep(3000)
  Result:=True;
end;

begin
  repeat
    LoadStartup1;
    Wait(350)
    LoadStartup2;
    Wait(350)
  Until(CheckLoaded);
  repeat
    Motion1;
    Wait(500)
    Motion2;
    Wait(500)
    Motion3
    wait(700)
  Until(False);
end.