#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
$ver = "verdana";
$fon = 3;
print "";
print "calling library... ";
require "getVocab.lib";
print "OPENINGS Demonstrates dynamic vocabulary construction defined by user and agent parameters
";
print "should be prompted by key words 'go on'
";
###############################################################
#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, 51);
&newVerb_vocab("adjectives.", 40);
#&newVerb_vocab("verbs.", 40);
&newVerb_vocab("nouns.", 40);
###################################################
##should be conditional: ie if(neuro_index>5){print this etc}
print "I was ";
&getNeuro_Verb(3);
print " so ";
&getNeuro_Verb(30);
print " and";
&getNeuro_Verb(8);
print ".";
####################################################
# 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
#
#####################################################
###CALl THE NEUROTIC INTRODUCTIONS:
&getNeuro_Osentence(3); #full opening sentences
&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, ";
close(TXT);
#print "
";
foreach $line(@text)
{
#print "$line
";
#print " $line ";
}
print " $text[$extent_of]";
}
##############
sub getNeuro_Osentence{
$extent_of = $_[0];
open(TXT, ";
close(TXT);
#print "
";
foreach $line(@text)
{
#print "$line
";
#print " $line ";
}
print " $text[$extent_of]";
}
############
sub getNeuro_Verb{
$extent_of = $_[0];
open(TXT, ";
close(TXT);
#print "
";
foreach $line(@text)
{
#print "$line
";
#print " $line ";
}
print " $text[$extent_of]";
}
##############
sub getAd{ $extent_of = $_[0];
open(TXT, ";
close(TXT);
#print "
";
foreach $line(@text)
{
#print "$line
";
#print " $line ";
}
print " $text[$extent_of]";
}
#####################
sub getNoun{
$extent_of = $_[0];
open(TXT, ";
close(TXT);
#print "
";
foreach $line(@text)
{
#print "$line
";
#print " $line ";
}
print " $text[$extent_of]";
}