SRL Archive - Other Scripts

Alright so here is a script that tells you what your perfect match is gonna be like !!!! lol setup the setup and enjoy haha have fun and post your perfect matches ;)

program GirlFriendFinder;

var
x, y: integer;
{
                            **************************************************************
                            ** Perfect Girlfriend Finder                                **
                            **                                                          **
                            ** Version: 1.0                                             **
                            ** Author: Insanomano                                       **
                            ** Description: Will Tell You your perfect Girlfriend match **
                            **************************************************************
                             

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++               SETUP               +++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}


Const
Age= 15; //Age
HairColor= 'brown'; //Hair Color
HairType= 'curly'; //Type of hair you have (Curly, straight, long, frizzy)
Height= 6; //Height (Round to nearest foot)

{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++           END OF SETUP           ++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

Procedure AgeChecker;
begin
  ClearDebug
  if((Age) < (12)) then
  Writeln('You Are Way To Young To Have A Girlfriend. :P');
  begin
    if((Age) > (12)) then
    Writeln('You are ' + IntToStr(Age) + ' Years old, You are old enough for this quiz.');
  end;
  wait(4000)
end;

Procedure GirlGenerator;
begin
  ClearDebug;
  Writeln('---------------------------------------');
  wait(700);
  Writeln('Your GirlFriend will be:');
  wait(1500)
  case Random(10) of
    1:  Writeln('Sandy');
    2:  Writeln('Morgan');
    3:  Writeln('Samantha');
    4:  Writeln('meghan');
    5:  Writeln('jasmyn');
    6:  Writeln('vanessa');
    7:  Writeln('natasha');
    8:  Writeln('lana');
    9:  Writeln('britney');
   10:  Writeln('bethany');
  end;
  wait(1500)
  Writeln('Age ' + IntToStr(Age) + '');
  wait(1500);
  Writeln('Hair Color ' + (HairColor) + '');
  wait(1500);
  Writeln('She will have pretty ' + (HairType) + ' hair');
  wait(1500);
  Writeln('She will be around ' + IntToStr(Height) + ',2 ');
  wait(700);
  Writeln('---------------------------------------');
end;


begin
  AgeChecker;
  GirlGenerator;
end.

---------------------------------------
Your GirlFriend will be:
lana
Age 15
Hair Color brown
She will have pretty curly hair
She will be around 6,2 
---------------------------------------

:D:D ENJOY

EDIT: HAHAHA freddy no im pretty sure i didnt put that anywhere in the script !!!, and for the randomness
ok this would be possible lol but this script is just s'posed to be a funny script lol I didn;t put a whole lot of time into it :D:D

Good job on the script, but…
It always is the same as what you imputted:p
Except for hight, that would be ,2 XD
Maybe make it a calculation or something random.
That will make it cooler^^

PvH

I agree with PvH.
Good idea but it needs a lot more randomness :P

Is it supposed to do this?

---------------------------------------
You lonely?
Get used to it, no gf for you!
*muahahahaha*
---------------------------------------

—————————————
Your GirlFriend will be:
lana
Age 15
Hair Color brown
She will have pretty straight hair
She will be around 5,2
—————————————

—————————————
Your GirlFriend will be:
lana
Age 14
Hair Color blonde
She will have pretty straight hair
She will be around 6,2
—————————————

Fail.. :)

From: Freddy1990
Is it supposed to do this?

---------------------------------------
You lonely?
Get used to it, no gf for you!
*muahahahaha*
---------------------------------------

I wonder why it told you that… I wonder.

Your GirlFriend will be:
vanessa
Age 15
Hair Color blonde
She will have pretty straight hair
She will be around 5,2
—————————————

Your GirlFriend will be:
lana
Age 14
Hair Color brown
She will have pretty straight hair
She will be around 6,2

hmmm kinda cool :D

good ideas im impressed
hmmm maybe some more randomness, maybe tell someone they gonan get someone super ugly….
Not that that matters, its whats on the inside that counts… *cough* NOT *cough*

---------------------------------------
You lonely?
Get used to it, no gf for you!
*muahahahaha*
---------------------------------------

:(

Sometimes it returns no name because your case starts at 1 but when it is 0 it has no name there so nothing returns.

Lmao, lol'ed, ides is super lame and funny..Freddy got whaxed! And yea, GoF got really "obvious" point:p