#!/usr/bin/perl


print "Content-type:text/html\r\n\r\n";

$ver = "verdana";
$fon = 3;
print "<html><font size=$fon face=$ver>";
print "calling library...  ";

require "getVocab.lib";
print "<html><h2>Demonstrates dynamic vocabulary construction defined by user and agent parameters</h2></html>";

###############################################################
#initial construction of vocabulary and extent  from getVocab.lib
#    so need something like:
#   if(neuro_index>5){$vocabo  = "neuroVerb." }
#    ...so that I could make a call to:
#      &newVerb_vocab(Svocabo, 20);
#            see below for start:
$vocabo  = "neuroVerb.";
$vocabo2  = "neuroOpening.";


&newVerb_vocab($vocabo, 72);
&newVerb_vocab($vocabo2, 11);
&newVerb_vocab("adjectives.", 40);
#&newVerb_vocab("verbs.", 40);
&newVerb_vocab("nouns.", 40);

###################################################
####################################################
# next I want to make conditional
# whether its a neurotic vocab, mild or positive
# each vocab set is individual to character
# and to frame? ie eastern side of dip, in cafe etc
#
#####################################################

 &getNeuro_Osentence(3);  #full opening sentences
#get individual words from each vocab:
#print "I felt such ";
&getNeuro_Verb(2);
#print " that";
&getNeuro_Verb(12);
#print " afternoon.";
print "<br>";
getNeuro_Verb(3);
&getVerb(10);
&getAd(2);
&getNoun(3);
print".";
print " ";
#print "<br>";
#print "  ";
&getVerb(5);
&getAd(6);

&getVerb(7);
&getAd(8);
&getNoun(9);
########
&getVerb(3);
&getAd(2);
&getNoun(1);
      print "<br>";
       &getNeuro_Osentence(4);
  ####
#  next have descriptions
#extent of which are defined by  parameters
#also historical dscriptions  0f 1986
####################
sub getVerb{
$extent_of = $_[0];
open(TXT, "<Averbs.txt");

@text = <TXT>;
close(TXT);

#print "<br>";
foreach $line(@text)
{
#print "$line <br/>";
#print "  $line ";
}
print " $text[$extent_of]";
}
##############

sub getNeuro_Osentence{
$extent_of = $_[0];
open(TXT, "<AneuroOpening.txt");

@text = <TXT>;
close(TXT);

#print "<br>";
foreach $line(@text)
{
#print "$line <br/>";
#print "  $line ";
}
print " $text[$extent_of]";
          }
############
sub getNeuro_Verb{
$extent_of = $_[0];
open(TXT, "<AneuroVerb.txt");

@text = <TXT>;
close(TXT);

#print "<br>";
foreach $line(@text)
{
#print "$line <br/>";
#print "  $line ";
}
print " $text[$extent_of]";
}
##############
sub getAd{  $extent_of = $_[0];
open(TXT, "<Aadjectives.txt");

@text = <TXT>;
close(TXT);

#print "<br>";
foreach $line(@text)
{
#print "$line <br/>";
#print "  $line ";
}
print " $text[$extent_of]";
}
#####################
sub getNoun{
$extent_of = $_[0];
open(TXT, "<Anouns.txt");

@text = <TXT>;
close(TXT);

#print "<br>";
foreach $line(@text)
{
#print "$line <br/>";
#print "  $line ";
}
print " $text[$extent_of]";
}