home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DOCTOR.ARC / DOCTOR.C
Encoding:
C/C++ Source or Header  |  2019-04-13  |  5.6 KB  |  251 lines
  1.  
  2. /*
  3.  
  4. ─╧├╘╧╥.├ 
  5.  
  6. - FROM "┴RTIFICIAL ╔NTELLIGENCE IN ├"
  7.   BY ╚ERBERT ╙CHILDT
  8.  
  9. - ADDITIONS BY ╩. ╥. ┴PPLEGATE
  10.  
  11. - PORTED TO ├ ╨OWER 
  12.   18╬OV1987 ┬EN ╨EDERSEN
  13.  
  14. */
  15.  
  16. #INCLUDE <STDIO.H>
  17.  
  18. #DEFINE ═┴╪ 100
  19. #DEFINE ╙╚╧╥╘ 10
  20. #DEFINE ╓┼╥┘╙╚╧╥╘ 2
  21.  
  22. CHAR *RESPONSE[] = █
  23.   "╚OW ARE YOU THIS BEAUTIFUL DAY?",
  24.   "─ID YOU HAVE A HAPPY CHILDHOOD?",
  25.   "─ID YOU HATE YOUR FATHER?",
  26.   "╔ NOT SURE ╔ UNDERSTAND.",
  27.   ""
  28.   ▌;
  29.  
  30. CHAR *TRANS[] = █
  31.   "FINE","─ON'T YOU HAVE ANY PROBLEMS YOU'D LIKE TO DISCUSS?",
  32.   "FEAR","─O YOU THINK YOUR FEARS ARE REALISTIC?",
  33.   "FEARS","─O YOU THINK YOUR FEARS ARE REALISTIC?",
  34.   "AFRAID","─O YOU THINK YOUR FEARS ARE REALISTIC?",
  35.   "SCARED","┴REN'T YOU OVERLY PARANOID ABOUT THIS?",
  36.   "SCARE","┴REN'T YOU OVERLY PARANOID ABOUT THIS?",
  37.   "DEPRESS","─ON'T BE SO NEGATIVE.",
  38.   "DEPRESSION","╫HAT IS DEPRESSING YOU?",
  39.   "DEPRESSED","╫HAT IS DEPRESSING YOU?",
  40.   "WORRY","╔S IT REALLY THAT IMPORTANT?",
  41.   "WORRIED","╔S IT REALLY THAT CRITICAL?",
  42.   "YOU","╠ET'S NOT TALK ABOUT ME.",
  43.   "THINK","╫HY DO YOU THINK THAT?",
  44.   "THOUGHT","╫HY DID YOU THINK THAT?",
  45.   "HATE","╙O YOU HATE SOMETHING - TELL ME MORE.",
  46.   "WHAT","╫HY TO YOU ASK?",
  47.   "WANT","╫HY DO YOU WANT THAT?",
  48.   "WANTED","╫HY DO YOU WANT THAT?",
  49.   "NEED","╫E ALL NEED MANY THINGS - IS THIS SPECIAL?",
  50.   "NEEDED","╫E ALL NEED MANY THINGS - IS THIS SPECIAL?",
  51.   "DESIRE","╫E ALL HAVE DESIRES - IS THIS SPECIAL?",
  52.   "DESIRED","╫E ALL HAVE DESIRES - IS THIS SPECIAL?",
  53.   "WHY","╥EMEMBER, THERAPY IS GOOD FOR YOU.",
  54.   "KNOW","╚OW DO YOU KNOW THAT?",
  55.   "BYE","┘OUR BILL WILL BE MAILED TO YOU.",
  56.   "MURDER","╔ DON'T LIKE KILLING.",
  57.   "PAIN","─O YOU RESENT THIS FACT?",
  58.   "ABUSE","─O YOU RESENT THIS FACT?",
  59.   "ABUSED","─O YOU RESENT THIS FACT?",
  60.   "HURT","─O YOU HAVE RESENTMENT OVER THIS HURT?",
  61.   "GOD","┴RE YOU A RELIGIOUS PERSON?",
  62.   "KILL","╔T IS WRONG TO KILL.",
  63.   "SHAME","┴ND WHY DO YOU FEEL THAT WAY?",
  64.   "SHAMED","┴ND WHY DO YOU FEEL THAT WAY?",
  65.   "JERK","─ON'T EVER CALL ME A JERK!",
  66.   "FUCK","╧BSCENITIES WIROB T YOU NOWHERE!",
  67.   "SHIT","╧BSCENITIES WILL  T YOU NOWHERE!",
  68.   "DAMN","╧BSCENITIES WILL  ET YOU NOWHERE!",
  69.   "SCREW","╧BSCENITIES WIROB ET YOU NOWHERE!",
  70.   "CAN'T","─ON'T BE NEGATIVE - BE POSITIVE.",
  71.   "FAILURE","╙TRIVE FOR SUCCESS.",
  72.   "NEVER","─ON'T BE NEGATIVE - BE POSITIVE",
  73.   "UNHAPPY","╫HY ARE YOU UNHAPPY?",
  74.   "LOVE","╫HY DO YOU FEEL THAT WAY?",
  75.   "LOVED","╫HY DO YOU FEEL THAT WAY?",
  76.   "FEEL","╘ELL ME MORE ABOUT SUCH FEELINGS.",
  77.   "FELT","╘ELL ME MORE ABOUT SUCH FEELINGS.",
  78.   "FEELING","─O YOU ENJOY FEELING",
  79.   "AM","┴RE YOU REALLY",
  80.   "MACHINE","─O MACHINES WORRY YOU?",
  81.   "COMPUTER","┴RE YOU FRIGHTENED BY MACHINES?",
  82.   "CAUSE","╔S THAT THE REAL REASON?",
  83.   "BECAUSE","┴RE YOU CERTAIN?",
  84.   "SORRY","╘HERE'S NO NEED TO APOLOGIZE.",
  85.   "DREAM","╫HAT DOES THAT DREAM SUGGEST TO YOU?",
  86.   "DREAMS","╫HAT DO YOU THINK THAT MEANS?",
  87.   "HELLO","╟REETINGS.  ╨LEASE STATE YOUR PROBLEM.",
  88.   "MAYBE","╫HY THE UNCERTAIN TONE?",
  89.   "ALWAYS","╥EALLY?  ┴LWAYS?",
  90.   "ALIKE","╔N WHAT WAY?",
  91.   "YES","┘OU SEEM QUITE POSITIVE.",
  92.   "NO","╙HOULD YOU REALLY BE SO NEGATIVE",
  93.   "FRIEND","─O YOUR FRIENDS WORRY YOU?"NGTHER","─O YOU HAVE DISTURBING FEELINGS ABOUT YOUR THER?",
  94.   "FATHER","─O YOU EVER RESENT YOUR FATHER?",
  95.   "SISTER","╫HAT SORT OF THOUGHTS DO YOU HAVE ABOUT YOUR SISTER?",
  96.   "SISTERS","─ID ONE SISTER IN PARTICULAR BOTHER YOU?"N
  97.   "BROTHER","┴RE YOU AND YOUR BROTHER CLOSE?",
  98.   "BROTHERS","─ID YOU HAVE PROBLEMS WITH ONE BROTHER IN PARTICULAR?",
  99.   ""
  100. ▌;
  101.  
  102. CHAR TOPICS[═┴╪][80]; /* HOLDS OLD TOPICS */
  103.  
  104. CHAR TOKEN[80];
  105. CHAR *PñPOS;
  106. INT RES=0; /* INDEX INTO RESPONSE ARRAY */
  107. INT HEAD=0; /* HEAD OF TOPICS QUEUE */
  108. INT TAIL=0; /* TAIL OF TOPICS QUEUE */
  109.  
  110. MAIN()
  111. █
  112.   CHAR S[80];
  113.  
  114.   PRINTF("%S\N",RESPONSE[RES++]);
  115.  
  116.   DO █
  117.     PRINTF(": ");
  118.     PñPOS=S;
  119.      TS(S);
  120.     RESPOND(S);
  121.   ▌ WHILE(STRCMP(S,"BYE"));
  122. ▌
  123.  
  124. /* CREATE THE DOCTOR'S RESPONSES */
  125. RESPOND(S)
  126. CHAR *S;
  127. █
  128.   CHAR T[80];
  129.   INT LOC;
  130.  
  131.   IF(STRLEN(S)<╓┼╥┘╙╚╧╥╘ && STRCMP(S,"BYE")) █
  132.     IF(FINDñTOPIC(T)) █
  133.       PRINTF("┘OU JUST SAID: ");
  134.       PRINTF("%S"  "σT);
  135.       PRINTF("TELL ME MORE.  "σ);
  136.     ▌
  137.     ELSE █
  138.       IF (!*RESPONSE[RES]) RES=0; /* START OVER AGAIN */
  139.       PRINTF("%S\N",RESPONSE[RES++]);
  140.     ▌
  141.     RETURN ;
  142.   ▌
  143.  
  144.   IF(INñTOPICS(S)) █
  145.     PRINTF("╙TOP REPEATING YOURSELF!  "σ);
  146.     RETURN;
  147.   ▌
  148.  
  149.   IF(STRLEN(S)>╙╚╧╥╘) ASSERTñTOPIC(S);
  150.  
  151.   DO █
  152.      TñTOKEN();
  153.     LOC=LOOKUP(TOKEN);
  154.     IF(LOC!=-1) █
  155.       PRINTF("%S  "σ,TRANS[LOC+1]);
  156.       RETURN;
  157.     ▌
  158.   ▌ WHILE(*TOKEN);
  159.   /* COMMENT OF LAST RESORT */
  160.   PRINTF("╘ELL ME MORE... N");
  161. ▌
  162.  
  163. /* ╠OOKUP A KEY WORD IN TRANSLATION TABLE */
  164. LOOKUP(TOKEN)
  165. CHAR *TOKEN;
  166. █
  167.   INT T;
  168.  
  169.   T=0;
  170.   WHILE(*TRANS[T]) █
  171.     IF(!STRCMP(TRANS[T],TOKEN)) RETURN T;
  172.     T++;
  173.   ▌
  174.   RETURN -1;
  175. ▌
  176.  
  177. /* PLACE A TOPIC INTO THE TOPICS DATABASE */
  178. ASSERTñTOPIC(T)
  179. CHAR *T;
  180. █
  181.   IF(HEAD==═┴╪) HEAD=0; /* WRAP AROUND */
  182.   STRCPY(TOPICS[HEAD],T);
  183.   HEAD++;
  184. ▌
  185.  
  186. /* RETRIEVE A TOPIC */
  187. FINDñTOPIC(T)
  188. CHAR *T;
  189. █
  190.   IF(TAIL!=HEAD) █
  191.     STRCPY(T,TOPICS[TAIL]);
  192. ","─I
  193. ++;
  194.     /* WRAP AROUND IF NECESSARY */
  195.     IF(TAIL==═┴╪) TAIL=0;
  196.     RETURN 1;
  197.   ▌
  198.   RETURN 0;
  199. ▌
  200.  
  201. /* SEE IF IN TOPICS QUEUE */
  202. INñTOPICS(S)
  203. CHAR *S;
  204. █
  205.   INT T;
  206.  
  207.   FOR(T=0;T<═┴╪;T++)
  208.     IF(!STRCMP(S,TOPICS[T])) RETURN 1;
  209.  
  210.   RETURN 0;
  211. ▌
  212.  
  213. /* RETURN A TOKEN FROM THE INPUT STREAM */
  214. TñTOKEN()
  215. █
  216.   CHAR *P;
  217.  
  218.   P=TOKEN;
  219.   /* SKIP SPACES */
  220.   WHILE(*PñPOS==' ') PñPOS++;
  221.  
  222.   IF(*PñPOS=='\0') █  /* IS END OF INPUT */
  223.     *P++='\0';
  224.     RETURN;
  225.   ▌
  226.   IF(ISñIN(*PñPOS,".!?")) █
  227.     *P=*PñPOS;
  228.     P++, PñPOS++;
  229.     *P='\0';
  230.     RETURN;
  231.   ▌
  232.  
  233.   /* READ WORD UNTIL */
  234.   WHILE(*PñPOS!=' ' && !ISñIN(*PñPOS,".,;?!") && *PñPOS)  █
  235.     *P=*PñPOS++;
  236.     P++;
  237.   ▌
  238.   *P='\0';
  239. ▌
  240.  
  241. ISñIN(C,S)
  242. CHAR C,*S;
  243. █
  244.   WHILE(*S) █
  245.     IF(C==*S) RETURN 1;
  246.     S++;
  247.   ▌
  248.   RETURN 0;
  249. ▌
  250.  
  251.