SRL Archive - Other Scripts

The reason I made this script was because my dad and i used to call echother monkey butts… and also because i was bored…:duh:

Reall when it says anylyzing data and all that crap it doesn't need to… i just it'd be kina funny(er)…

anyway i don't like uploading scripts so ima just paste it >,< .

{/////////////////////////
//WHO///VERSION///////////
////DA////////THREE///////
////MUNKEY//////POINT/////
///////BUTT?////////FIVE//
//////////////////////////}

program MonkeyButt;

var
MonkeyButt: Integer;


 begin
  ClearReport
  AddToReport('                        ~,~`~,~`~,~`~,~`~,~`~,~`**PROGRESS REPORT**`~,~`~,~`~,~`~,~`~,~`~,~')
  AddToReport('             ^          Version 1.0: Made The Basic Script.')
  AddToReport('           //~\\        Version 2.0: Added Load Procedures(Even Though It Is Not Required)')
  AddToReport('          //~~~\\       Version 3.0: Made Progress Log And Make Logo In The Report Box.')
  AddToReport('         //~~~~~\\                     Loading Procedures Function *PERFECTED*')
  AddToReport('        //~~~~~~~\\     Version 3.5: Extended waits.')
  AddToReport('       //~~~~~~~~~\\')
  AddToReport('      //~~~~~~~~~~~\\');
  AddToReport('    //|WHO DA MONKEY|\\');
  AddToReport('  <{~~|~`~`BUTT`~`~`|~~}>')
  AddToReport('    \\|VERSION~~~3.5|//')
  AddToReport('      \\~~~~~~~~~~~//')
  AddToReport('       \\~~~~~~~~~//')
  AddToReport('        \\~~~~~~~//')
  AddToReport('         \\~~~~~//')
  AddToReport('          \\~~~//')
  AddToReport('           \\~//')

  ClearDebug
  
  WriteLN(' ===========Starting===========');
    Wait(1000);
    ClearDebug
  
  WriteLN(' ===========Starting.==========');
    wait(1000);
    ClearDebug
  
  WriteLN(' ===========Starting..=========');
    Wait(1000);
    ClearDebug
  
  WriteLN(' ===========Starting...========');
    Wait(1000);
    ClearDebug
  
  WriteLN('==========Done Loading!=========');
    Wait(1000)
     ClearDebug

  WriteLN(' Who Da Munkey Butt Version 1.0');
  WriteLN('*Names The Monkey Butt At Random');
    Wait(2000);
      ClearDebug
  
  WriteLN('Analyzing Data...');
    Wait(2000);
      ClearDebug

  WriteLN('Conclusion Reached And...');
    Wait(2000);
      ClearDebug

  MonkeyButt:= Random(9);



  if(MonkeyButt = 0)then
       WriteLN('*BLANK* Is The Monkey Butt!')//Put your name in the place of *BLANK*
         else
             if(MonkeyButt<8)then
       WriteLN('*BLANK* Is Not The Monkey Butt And');//Same here

  if(MonkeyButt = 1)then
       WriteLN('*BLANK* Is!');//From here on down put names of you friends

  if(MonkeyButt = 2)then
       WriteLN('*BLANK* Is!');
       
  if(MonkeyButt = 3)then
       WriteLN('*BLANK* Is!');

  if(MonkeyButt = 4)then
       WriteLN('*BLANK* Is!');

  if(MonkeyButt = 5)then
       WriteLN('*BLANK* Is!');
       
  if(MonkeyButt = 6)then
       WriteLN('*BLANK* Is!')
       
  if(MonkeyButt = 7)then
       WriteLN('Everyone Else Is!!! Muahahahahahahahahahahaa!!!!')

  if(MonkeyButt = 8)then
       WriteLN('Cannot Reach A Conclusion As To Who Is The Monkey Butt Please Try Again.');
         Wait(3000);
           ClearDebug

  WriteLN('If You Want To Know More About This Program Press 1. Program Will Terminate In 3 Seconds.');
    Wait(5000);
      ClearDebug

  if(IsKeyDown('1'))then
       WriteLN('Made By TurkeyIdFool(Pronounced Turkey Eyed Fool)');
  if(IsKeyDown('1'))then
       WriteLN('For those who wish to see the update log view the Report Box(scroll Right).');



end.

It has instructions in the script on how to set it up. notice i said in…

If you have any suggestions as to how i can improve this script please PM me, comment, or contact me on AIM at xXBirdShotXx.

EEEEE NN NN JJJJJJ OO YY YY
E NNN NN JJ OO OO YY YY
EEE NNNN N JJ OO OO YYYY
E NN NNNN JJ JJ OO OO YY
EEEEE NN NNN JJJJ OO YY

It actually looks like you spent more time making the header than you did on the script. Sorry, but you could actually have optimized this script with constants.

EDIT: And case statements.

I da monkey butt!

:D
-Dunceiam (Had too say it :p)

*MIKE* Is Not The Monkey Butt And
*JAD* Is!

OWNT

*MIKE* Is Not The Monkey Butt And
*Fawki* Is!

DOUBLE OWNT!

cool but you should make the waits longer…i had trouble readin it

okay thanks you guys and how can i have some constants in there? plz gimme detailed feedback!!!