By: Jim Robertson
To: Fredric Rice

/*      ROLLINS.C
        Source code for Charles Rollins simulator
        Copyright 1996 by Captain Fuck
*/

#include        <stdio.h>
#include        <stdlib.h>
#include        <conio.h>
#include        <string.h>
#include        <ctype.h>

char message[1000];


static char *foul[] = {
"FUCK", "SHIT", " ASS", " CUNT", " DICK"
};

static char *goddam[] = {
"GOD DAM", "GODDAM", "GODDAMN", "GOD DAMN", "GOD DAMNED"
};

static char *lookup[] = {
"REFERENCE", "HOMEWORK", "EVIDENCE", "PROOF", "PROVE"
};

static char *god[] = {
"GOD", "JESUS", "RELIGION ", "BIBLE ", "CHRISTIAN "
};

static char *decent[] = {
"MORAL", "LANGUAGE", "DECENT", "WORD", "PROFANITY"
};

static char *freedom[] = {
"FREE", "RIGHT", "CONSTITUTION", "SPEECH", "POLITIC"
};

static char *smoke[] = {
"SMOKE", "ECHO", "FIDO", "SMOKE", "ECHO"
};

static char *tencom[] = {
"TEN COMMANDMENTS", "LAW", "KILL", "COUNTRY", "STEAL"
};

static char *hist[] = {
"HISTORY", "CENSOR", "FOUNDING", "BOOKS", "PRINT"
};


static char *rollins_talk[] = {
        "I'm a born again Christian and I live by the teachings of Jesus\n\r\
Christ and the New Testament.",
        "Was you ever born again, did you ever receive the Holy Spirit?",
        "I've read study after study that shows that people who use profanity\
have a low vocabulary and are unable to use more appropriate words.",
        "God's last name is not damn.",
        "I'm not going to do your homework for you dude...",
        "I'm one of many millions who just want decency and morality to come\n
back to the public.",
        "Freedom is not to do as you want..America used to be great but the \n
liberals who got into power brought it down.",
        "I have been on and off Holysmoke for about 2 years now and nothing\n\
has changed..I would be happy to talk and discuss but I refuse to\n\r\
discuss and talk to anyone who cannot show self restraint and\n\r\
bridle their tongue to discuss things knowing they are in a public\n\r\
place.",
        "Our laws, the laws of society are after the Ten Commandments, not to
murder, not to steal, not to commit adultery..etc...",
        "Censorship is rampant..whether you know it or not, the religious\n\r\
history and heritage of this country has been censored out of the\n\r\
history books so the children are not learning the whole truth of\n\r\
the founding of our country.",
        "I'm outta here on this subject.",
        "I know your kind and the way you think.",
        "Such twisting of words and such is so typical of you people..."
};

int spurt( int last_choice ) {

        int i,r;

        textattr(15);
        cprintf("What would you like to say to Chuckles?\n\r>");
        cgets(message);


        for(i=0; i<strlen(message); i++) message[i] = toupper(message[i]);

        for(i=0; i<5; i++) {
                if( strstr(message,foul[i]) ) {
                        r=2; i=5;
                }
                else if( strstr(message,goddam[i]) ) {
                        r=3; i=5;
                }
                else if( strstr(message,lookup[i]) ) {
                        r=4; i=5;
                }
                else if( strstr(message,god[i]) ) {
                        r=random(2); i=5;
                }
                else if( strstr(message,decent[i]) ) {
                        r=5; i=5;
                }
                else if( strstr(message,freedom[i]) ) {
                        r=6; i=5;
                }
                else if( strstr(message,smoke[i]) ) {
                        r=7; i=5;
                }
                else if( strstr(message,tencom[i]) ) {
                        r=8; i=5;
                }
                else if( strstr(message,hist[i]) ) {
                        r=9; i=5;
                }

/////////////////////////////////////
                else r=random(3)+10;
        }

        if(r==last_choice) r=random(3)+10;
/////////////////////////////////////

        textattr(14);
        cprintf("\n\r\n\rChuckles answers...\n\r\n\r%s\n\r\n\r",
          rollins_talk[r]);

        return r;
}

void main( void )
{
        int r;

        r=69;
        strcpy(message,"skladjskla");

        randomize();

        textattr(9);
        clrscr();
        cprintf("\n\r================== ");
        textattr(14);
        cprintf("Charles Rollins Simulator by Captain Fuck ");
        textattr(9);
        cprintf("==================");
        window(1,4,80,24);

        while(strlen(message)>1)r=spurt(r);
}