View ¡m../sdba/impages/ELIZA2.im¡n
<% # Array of responses: @responses = ("Very interesting, Tell me more.", "How does that really make you feel?", "$VISITOR, that is not very normal.", "Please go on.", "Does anyone else know that?" ); #see if their response has a "yes" or "no" if ($INCOMINGMSG =~ /yes|no/i){ include (ELIZAyn.im); } else { #choose a random response imecho $responses[rand($#responses)]; $NEXTPAGE = "ELIZA2.im"; } X; %> 'X' to exit.