home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs_src.exe / SBBS / SMM / SMM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-25  |  102.3 KB  |  3,992 lines
  1. /* SMM.C */
  2.  
  3. /* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */
  4.  
  5. /* Synchronet Match Maker */
  6.  
  7. #include "xsdk.h"
  8. #include "crc32.h"
  9. #include "smmdefs.h"
  10. #include "smmvars.c"
  11.  
  12. /* RCIOLL.ASM */
  13.  
  14. int  rioini(int com,int irq);          /* initialize com,irq */
  15. int  setbaud(int rate);                /* set baud rate */
  16. int  rioctl(int action);               /* remote i/o control */
  17. int  dtr(char onoff);                  /* set/reset dtr */
  18. int  outcom(int ch);                   /* send character */
  19. int  incom(void);                      /* receive character */
  20. int  ivhctl(int intcode);              /* local i/o redirection */
  21.  
  22. /************************/
  23. /* Remote I/O Constants */
  24. /************************/
  25.  
  26.                             /* i/o mode and state flags */
  27. #define CTSCK 0x1000         /* check cts (mode only) */
  28. #define RTSCK 0x2000        /* check rts (mode only) */
  29. #define TXBOF 0x0800        /* transmit buffer overflow (outcom only) */
  30. #define ABORT 0x0400         /* check for ^C (mode), aborting (state) */
  31. #define PAUSE 0x0200         /* check for ^S (mode), pausing (state) */
  32. #define NOINP 0x0100         /* input buffer empty (incom only) */
  33.  
  34.                             /* status flags */
  35. #define RIODCD    0x80        /* DCD on */
  36. #define RI        0x40        /* Ring indicate */
  37. #define DSR     0x20        /* Dataset ready */
  38. #define CTS     0x10           /* CTS on */
  39. #define FERR     0x08        /* Frameing error */
  40. #define PERR     0x04        /* Parity error */
  41. #define OVRR     0x02        /* Overrun */
  42. #define RXLOST     0x01           /* Receive buffer overflow */
  43.  
  44. /* rioctl() arguments */
  45. /* returns mode or state flags in high 8 bits, status flags in low 8 bits */
  46.  
  47.                             /* the following return mode in high 8 bits */
  48. #define IOMODE 0            /* no operation */
  49. #define IOSM 1              /* i/o set mode flags */
  50. #define IOCM 2              /* i/o clear mode flags */
  51.                             /* the following return state in high 8 bits */
  52. #define IOSTATE 4           /* no operation */
  53. #define IOSS 5              /* i/o set state flags */
  54. #define IOCS 6              /* i/o clear state flags */
  55. #define IOFB 0x308          /* i/o buffer flush */
  56. #define IOFI 0x208          /* input buffer flush */
  57. #define IOFO 0x108          /* output buffer flush */
  58. #define IOCE 9              /* i/o clear error flags */
  59.  
  60.                             /* return count (16bit)    */
  61. #define RXBC    0x0a        /* get receive buffer count */
  62. #define TXBC    0x0b        /* get transmit buffer count */
  63. #define TXSYNC  0x0c        /* sync transmition (seconds<<8|0x0c) */
  64. #define IDLE    0x0d        /* suspend communication routines */
  65. #define RESUME  0x10d        /* return from suspended state */
  66. #define RLERC    0x000e        /* read line error count and clear */
  67. #define CPTON    0x0110        /* set input translation flag for ctrl-p on */
  68. #define CPTOFF    0x0010        /* set input translation flag for ctrl-p off */
  69. #define GETCPT    0x8010        /* return the status of ctrl-p translation */
  70. #define MSR     0x0011        /* read modem status register */
  71. #define FIFOCTL 0x0012        /* FIFO UART control */
  72. #define TSTYPE    0x0013        /* Time-slice API type */
  73. #define GETTST  0x8013      /* Get Time-slice API type */
  74.  
  75.  
  76. #define I14DB    0x001d        /* DigiBoard int 14h driver */
  77. #define I14PC    0x011d        /* PC int 14h driver */
  78. #define I14PS    0x021d        /* PS/2 int 14h driver */
  79. #define I14FO   0x031d      /* FOSSIL int 14h driver */
  80.  
  81.  
  82.                             /* ivhctl() arguments */
  83. #define INT29R 1             /* copy int 29h output to remote */
  84. #define INT29L 2            /* Use _putlc for int 29h */
  85. #define INT16  0x10          /* return remote chars to int 16h calls */
  86. #define INTCLR 0            /* release int 16h, int 29h */
  87.  
  88. #define CLREOL        256     /* Character to erase to end of line        */
  89. #define HIGH        8       /* High intensity for curatr             */
  90.  
  91. extern uint riobp;
  92. extern int mswtyp;
  93.  
  94. unsigned _stklen=16000;     /* Set stack size in code, not header */
  95.  
  96. int cbreakh(void);            /* ctrl-break handler */
  97.  
  98. char getage(char *birth);
  99. char long_user_info(user_t user);
  100. void main_user_info(user_t user);
  101.  
  102. char *nulstr="";
  103. char *wday[]={"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
  104. char *mon[]={"Jan","Feb","Mar","Apr","May","Jun"
  105.             ,"Jul","Aug","Sep","Oct","Nov","Dec"};
  106. char tmp[256],door_sys[128];
  107.  
  108. char io_int=0;
  109. struct date date;
  110. struct time curtime;
  111. time_t now;
  112. int smm_pause=1,node_scrnlen;
  113. questionnaire_t *que[5];
  114. int total_ques;
  115. user_t useron,tmpuser;
  116. ixb_t ixb;
  117. ulong useron_record,system_crc;
  118. FILE *stream,*index,*trashfile;
  119.  
  120. char *PrevReadSendQuitOrMore="\r\n\1n\1b\1h[\1cP\1b]revious screen, "
  121.     "[\1cR\1b]ead profile, [\1cS\1b]end telegram, [\1cQ\1b]uit, or "
  122.     "[\1cM\1b]ore: \1w";
  123.  
  124. int intocm(int in)
  125. {
  126. return(in*2.538071);
  127. }
  128.  
  129. int cmtoin(int cm)
  130. {
  131.     int i;
  132.  
  133. i=cm*0.394;
  134. if(((float)cm*0.394)-(float)i>=.5)
  135.     i++;
  136. return(i);
  137. }
  138.  
  139. int kgtolp(int kg)
  140. {
  141. return(kg*2.2046);
  142. }
  143.  
  144. int lptokg(int lp)
  145. {
  146.     int i;
  147.  
  148. i=lp*0.453597;
  149. if(((float)lp*0.453597)-(float)i>=.5)
  150.     i++;
  151. return(i);
  152. }
  153.  
  154. /****************************************************************************/
  155. /* Performs printf() through local assembly routines                        */
  156. /* Called from everywhere                                                   */
  157. /****************************************************************************/
  158. int lprintf(char *fmat, ...) {
  159.     char sbuf[256];
  160.     int chcount;
  161.  
  162. chcount=vsprintf(sbuf,fmat,_va_ptr);
  163. lputs(sbuf);
  164. return(chcount);
  165. }
  166.  
  167. /*****************************************************************************/
  168. /* Returns command line generated from instr with %c replacments             */
  169. /*****************************************************************************/
  170. char *cmdstr(char *instr, char *fpath, char *fspec, char *outstr)
  171. {
  172.     static char static_cmd[128];
  173.     char str[256],str2[128],*cmd;
  174.     int i,j,len;
  175.  
  176. if(outstr==NULL)
  177.     cmd=static_cmd;
  178. else
  179.     cmd=outstr;
  180. len=strlen(instr);
  181. for(i=j=0;i<len && j<128;i++) {
  182.     if(instr[i]=='%') {
  183.         i++;
  184.         cmd[j]=0;
  185.         switch(toupper(instr[i])) {
  186.             case 'A':   /* User alias */
  187.                 strcat(cmd,user_name);
  188.                 break;
  189.             case 'B':   /* Baud (DTE) Rate */
  190.                 strcat(cmd,ultoa(com_rate,str,10));
  191.                 break;
  192.             case 'C':   /* Connect Description */
  193.                 strcat(cmd,ultoa(user_dce,str,10));
  194.                 break;
  195.             case 'F':   /* File path */
  196.                 strcat(cmd,fpath);
  197.                 break;
  198.             case 'G':   /* Temp directory */
  199.                 strcat(cmd,temp_dir);
  200.                 break;
  201.             case 'I':   /* UART IRQ Line */
  202.                 strcat(cmd,itoa(com_irq,str,10));
  203.                 break;
  204.             case 'J':
  205.                 strcat(cmd,data_dir);
  206.                 break;
  207.             case 'K':
  208.                 strcat(cmd,ctrl_dir);
  209.                 break;
  210.             case 'N':   /* Node Directory (same as SBBSNODE environment var) */
  211.                 strcat(cmd,node_dir);
  212.                 break;
  213.             case 'O':   /* SysOp */
  214.                 strcat(cmd,sys_op);
  215.                 break;
  216.             case 'P':   /* COM Port */
  217.                 strcat(cmd,itoa(com_port,str,10));
  218.                 break;
  219.             case 'Q':   /* QWK ID */
  220.                 strcat(cmd,sys_id);
  221.                 break;
  222.             case 'R':   /* Rows */
  223.                 strcat(cmd,itoa(user_rows,str,10));
  224.                 break;
  225.             case 'S':   /* File Spec */
  226.                 strcat(cmd,fspec);
  227.                 break;
  228.             case 'T':   /* Time left in seconds */
  229.                 strcat(cmd,itoa(time(NULL)-starttime,str,10));
  230.                 break;
  231.             case 'U':   /* UART I/O Address (in hex) */
  232.                 strcat(cmd,itoa(com_base,str,16));
  233.                 break;
  234.             case 'W':   /* Time-slice API type (mswtype) */
  235. #ifndef __OS2__
  236.                 strcat(cmd,itoa(mswtyp,str,10));
  237. #endif
  238.                 break;
  239.             case '&':   /* Address of msr */
  240.                 sprintf(str,"%lu",&riobp-1);
  241.                 strcat(cmd,str);
  242.                 break;
  243.             case 'Z':
  244.                 strcat(cmd,text_dir);
  245.                 break;
  246.             case '!':   /* EXEC Directory */
  247.                 strcat(cmd,exec_dir);
  248.                 break;
  249.             case '#':   /* Node number (same as SBBSNNUM environment var) */
  250.                 sprintf(str,"%d",node_num);
  251.                 strcat(cmd,str);
  252.                 break;
  253.             case '*':
  254.                 sprintf(str,"%03d",node_num);
  255.                 strcat(cmd,str);
  256.                 break;
  257.             case '$':   /* Credits */
  258.                 strcat(cmd,ultoa(user_cdt,str,10));
  259.                 break;
  260.             case '%':   /* %% for percent sign */
  261.                 strcat(cmd,"%");
  262.                 break;
  263.             default:    /* unknown specification */
  264.                 if(isdigit(instr[i])) {
  265.                     sprintf(str,"%0*d",instr[i]&0xf,user_number);
  266.                     strcat(cmd,str); }
  267.                 break; }
  268.         j=strlen(cmd); }
  269.     else
  270.         cmd[j++]=instr[i]; }
  271. cmd[j]=0;
  272.  
  273. return(cmd);
  274. }
  275.  
  276. char *base41(unsigned int i, char *str)
  277. {
  278.     char c;
  279.     unsigned int j=41*41,k;
  280.  
  281. for(c=0;c<3;c++) {
  282.     k=i/j;
  283.     str[c]='0'+k;
  284.     i-=(k*j);
  285.     j/=41;
  286.     if(str[c]>=':')
  287.         str[c]='A'+(str[c]-':');
  288.     if(str[c]>='[')
  289.         str[c]='#'+(str[c]-'['); }
  290. str[c]=0;
  291. return(str);
  292. }
  293.  
  294. /****************************************************************************/
  295. /* Updates 16-bit "rcrc" with character 'ch'                                */
  296. /****************************************************************************/
  297. void ucrc16(uchar ch, ushort *rcrc) {
  298.     ushort i, cy;
  299.     uchar nch=ch;
  300.  
  301. for (i=0; i<8; i++) {
  302.     cy=*rcrc & 0x8000;
  303.     *rcrc<<=1;
  304.     if (nch & 0x80) *rcrc |= 1;
  305.     nch<<=1;
  306.     if (cy) *rcrc ^= 0x1021; }
  307. }
  308.  
  309. /****************************************************************************/
  310. /* Returns 16-crc of string (not counting terminating NULL)                 */
  311. /****************************************************************************/
  312. ushort crc16(char *str)
  313. {
  314.     int     i=0;
  315.     ushort  crc=0;
  316.  
  317. ucrc16(0,&crc);
  318. while(str[i])
  319.     ucrc16(str[i++],&crc);
  320. ucrc16(0,&crc);
  321. ucrc16(0,&crc);
  322. return(crc);
  323. }
  324.  
  325.  
  326. int cdt_warning(long cdt)
  327. {
  328. if(cdt==0)
  329.     return(1);
  330. if(cdt>0) {
  331.     bprintf("\1m\1hYou will receive \1w%luk\1m in credits for this action!\r\n"
  332.         ,cdt/1024L);
  333.     return(1); }
  334.  
  335. bprintf("\1m\1hThis action will cost you \1w%luk\1m in credits.",(-cdt)/1024L);
  336. if(user_cdt+cdt_adjustment<-cdt) {
  337.     bprintf("\r\n\r\n\1r\1hSorry, you only have \1w%luk\1m in credits.\r\n"
  338.         ,(user_cdt+cdt_adjustment)/1024L);
  339.     return(0); }
  340. return(!noyes(" Continue"));
  341. }
  342.  
  343. void adjust_cdt(long cdt)
  344. {
  345. if(cdt==0)
  346.     return;
  347. cdt_adjustment+=cdt;
  348. }
  349.  
  350. int got_flags(char *req, char *got)
  351. {
  352.     int i,j;
  353.  
  354. for(i=0;req[i];i++) {
  355.     for(j=0;got[j];j++)
  356.         if(req[i]==got[j])
  357.             break;
  358.     if(!got[j])
  359.         break; }
  360. if(!req[i])
  361.     return(1);
  362. return(0);
  363. }
  364.  
  365. int can_add()
  366. {
  367.     uchar age=getage(user_birth);
  368.  
  369. if(user_level<min_level || (age && getage(user_birth)<min_age)
  370.     || !got_flags(req_flags1,user_flags1)
  371.     || !got_flags(req_flags2,user_flags2)
  372.     || !got_flags(req_flags3,user_flags3)
  373.     || !got_flags(req_flags4,user_flags4)
  374.     )
  375.     return(0);
  376. return(1);
  377. }
  378.  
  379.  
  380. int trash(char *instr)
  381. {
  382.     char str[128],word[128];
  383.  
  384. if(!trashfile)
  385.     return(0);
  386. strcpy(str,instr);
  387. strupr(str);
  388. rewind(trashfile);
  389. while(!ferror(trashfile)) {
  390.     if(!fgets(word,125,trashfile))
  391.         break;
  392.     truncsp(word);
  393.     if(!word[0])
  394.         continue;
  395.     strupr(word);
  396.     if(strstr(str,word))
  397.         return(1); }
  398. return(0);
  399. }
  400.  
  401. long fdate_dir(char *filespec)
  402. {
  403.     struct ffblk f;
  404.     struct date fd;
  405.     struct time ft;
  406.  
  407. if(findfirst(filespec,&f,FA_RDONLY|FA_HIDDEN|FA_SYSTEM|FA_DIREC)==NULL) {
  408.     fd.da_day=f.ff_fdate&0x1f;
  409.     fd.da_mon=(f.ff_fdate>>5)&0xf;
  410.     fd.da_year=1980+((f.ff_fdate>>9)&0x7f);
  411.     ft.ti_hour=(f.ff_ftime>>11)&0x1f;
  412.     ft.ti_min=(f.ff_ftime>>5)&0x3f;
  413.     ft.ti_sec=(f.ff_ftime&0xf)*2;
  414.     return(dostounix(&fd,&ft)); }
  415. else return(NULL);
  416. }
  417.  
  418. /****************************************************************************/
  419. /* Generates a 24 character ASCII string that represents the time_t pointer */
  420. /* Used as a replacement for ctime()                                        */
  421. /****************************************************************************/
  422. char *timestr(time_t *intime)
  423. {
  424.     static char str[256];
  425.     char mer[3],hour;
  426.     struct tm *gm;
  427.  
  428. gm=localtime(intime);
  429. if(gm->tm_hour>=12) {
  430.     if(gm->tm_hour==12)
  431.         hour=12;
  432.     else
  433.         hour=gm->tm_hour-12;
  434.     strcpy(mer,"pm"); }
  435. else {
  436.     if(gm->tm_hour==0)
  437.         hour=12;
  438.     else
  439.         hour=gm->tm_hour;
  440.     strcpy(mer,"am"); }
  441. sprintf(str,"%s %s %02d %4d %02d:%02d %s"
  442.     ,wday[gm->tm_wday],mon[gm->tm_mon],gm->tm_mday,1900+gm->tm_year
  443.     ,hour,gm->tm_min,mer);
  444. return(str);
  445. }
  446.  
  447.  
  448. void puttgram(int usernumber, char *strin)
  449. {
  450.     char str[256];
  451.     int file,i;
  452.  
  453. sprintf(str,"%4.4u.MSG",usernumber);
  454. if((file=nopen(str,O_WRONLY|O_CREAT|O_APPEND))==-1) {
  455.     printf("\7Error opening/creating %s for creat/append access\n",str);
  456.     return; }
  457. i=strlen(strin);
  458. if(write(file,strin,i)!=i) {
  459.     close(file);
  460.     printf("\7Error writing %u bytes to %s\n",i,str);
  461.     return; }
  462. close(file);
  463. }
  464.  
  465.  
  466. int send_telegram(user_t user)
  467. {
  468.     uchar str[256],line[256],buf[1024];
  469.     int i;
  470.  
  471. if(!useron.number) {
  472.     bputs("\r\n\1h\1rYou must create a profile first.\r\n");
  473.     pause();
  474.     return(1); }
  475.  
  476. if(user_level<telegram_level) {
  477.     bputs("\r\n\1h\1rYou have insufficient access to send telegrams."
  478.         "\r\n");
  479.     pause();
  480.     return(1); }
  481.  
  482. main_user_info(user);
  483. CRLF;
  484. if(!cdt_warning(telegram_cdt))
  485.     return(0);
  486. if(telegram_cdt)
  487.     CRLF;
  488. bprintf("\1n\1hSending a telegram to \1y%s\1w:\r\n\r\n"
  489.     ,user.name);
  490. now=time(NULL);
  491. memset(buf,0,512);
  492. sprintf(buf,"\1n\1c\1hMatch Maker\1b telegram from \1c%s\1b "
  493.     "on %s:\1y\r\n"
  494.     ,useron.name,timestr(&now));
  495. for(i=0;i<5 && !aborted;i++) {
  496.     bprintf("\1n\1h\1g%u of 5: \1n\1g",i+1);
  497.     if(!getstr(line,70,i==4 ? K_MSG:K_MSG|K_WRAP))
  498.         break;
  499.     sprintf(str,"\1n\1g%4s%s\r\n",nulstr,line);
  500.     strcat(buf,str); }
  501. if(!i || aborted || !yesno("\r\nSave"))
  502.     return(0);
  503. if(!(user.misc&USER_FROMSMB)) {
  504.     putsmsg(user.number,TGRAM_NOTICE);
  505.     puttgram(user.number,buf); }
  506. else {
  507.     if((i=nopen("TELEGRAM.DAB",O_WRONLY|O_CREAT|O_APPEND|SH_DENYNO))
  508.         ==-1) {
  509.         bprintf("\r\n\1r\1h\1iError writing telegram!\r\n");
  510.         pause();
  511.         return(1); }
  512.     write(i,useron.system,sizeof(useron.system));
  513.     write(i,user.system,sizeof(user.system));
  514.     write(i,&user.number,sizeof(user.number));
  515.     write(i,buf,512);
  516.     close(i); }
  517. adjust_cdt(telegram_cdt);
  518. if(notify_user && notify_user!=user_number) {
  519.     sprintf(str,"\1n\1hSMM: \1y%s\1m sent a telegram to \1y%s\1m "
  520.         "from the Match Maker\r\n",user_name,user.name);
  521.     if(node_dir[0])
  522.         putsmsg(notify_user,str);
  523.     else
  524.         puttgram(notify_user,str); }
  525. return(1);
  526. }
  527.  
  528. /****************************************************************************/
  529. /* Returns 32-crc of string (not counting terminating NULL)                 */
  530. /****************************************************************************/
  531. ulong crc32(char *str)
  532. {
  533.     int i=0;
  534.     ulong crc=0xffffffffUL;
  535.  
  536.     while(str[i])
  537.         crc=ucrc32(str[i++],crc);
  538.     crc=~crc;
  539.     return(crc);
  540. }
  541.  
  542.  
  543. /****************************************************************************/
  544. /* Converts unix time format (long - time_t) into a char str MM/DD/YY        */
  545. /****************************************************************************/
  546. char *unixtodstr(time_t unix, char *str)
  547. {
  548.  
  549. if(!unix)
  550.     strcpy(str,"00/00/00");
  551. else {
  552.     unixtodos(unix,&date,&curtime);
  553.     if((unsigned)date.da_mon>12) {      /* DOS leap year bug */
  554.         date.da_mon=1;
  555.         date.da_year++; }
  556.     if((unsigned)date.da_day>31)
  557.         date.da_day=1;
  558.     sprintf(str,"%02u/%02u/%02u",date.da_mon,date.da_day
  559.         ,date.da_year>=2000 ? date.da_year-2000 : date.da_year-1900); }
  560. return(str);
  561. }
  562.  
  563. /****************************************************************************/
  564. /* Converts a date string in format MM/DD/YY into unix time format            */
  565. /****************************************************************************/
  566. time_t dstrtounix(char *str)
  567. {
  568.  
  569. if(!strcmp(str,"00/00/00") || !str[0])
  570.     return(NULL);
  571. curtime.ti_hour=curtime.ti_min=curtime.ti_sec=0;
  572. if(str[6]<'7')
  573.     date.da_year=2000+((str[6]&0xf)*10)+(str[7]&0xf);
  574. else
  575.     date.da_year=1900+((str[6]&0xf)*10)+(str[7]&0xf);
  576. date.da_mon=((str[0]&0xf)*10)+(str[1]&0xf);
  577. date.da_day=((str[3]&0xf)*10)+(str[4]&0xf);
  578. return(dostounix(&date,&curtime));
  579. }
  580.  
  581. /****************************************************************************/
  582. /* Returns the age derived from the string 'birth' in the format MM/DD/YY    */
  583. /****************************************************************************/
  584. char getage(char *birth)
  585. {
  586.     char age;
  587.  
  588. if(birth[0]<=SP)
  589.     return(0);
  590. getdate(&date);
  591. age=(date.da_year-1900)-(((birth[6]&0xf)*10)+(birth[7]&0xf));
  592. if(atoi(birth)>12 || atoi(birth+3)>31)
  593.     return(0);
  594. if(((birth[0]&0xf)*10)+(birth[1]&0xf)>date.da_mon ||
  595.     (((birth[0]&0xf)*10)+(birth[1]&0xf)==date.da_mon &&
  596.     ((birth[3]&0xf)*10)+(birth[4]&0xf)>date.da_day))
  597.     age--;
  598. if(age<0)
  599.     return(0);
  600. return(age);
  601. }
  602.  
  603. char marital_ch(char user_marital)
  604. {
  605. switch(user_marital) {
  606.     case MARITAL_SINGLE:
  607.         return('S');
  608.     case MARITAL_DIVORCED:
  609.         return('D');
  610.     case MARITAL_MARRIED:
  611.         return('M');
  612.     case MARITAL_WIDOWED:
  613.         return('W');
  614.     case MARITAL_OTHER:
  615.         return('O'); }
  616. if(user_marital)
  617.     return('*');
  618. return(SP);
  619. }
  620.  
  621. char race_ch(char user_race)
  622. {
  623. switch(user_race) {
  624.     case RACE_WHITE:
  625.         return('W');
  626.     case RACE_BLACK:
  627.         return('B');
  628.     case RACE_HISPANIC:
  629.         return('H');
  630.     case RACE_AMERINDIAN:
  631.         return('I');
  632.     case RACE_ASIAN:
  633.         return('A');
  634.     case RACE_MIDEASTERN:
  635.         return('M');
  636.     case RACE_OTHER:
  637.         return('O'); }
  638. if(user_race)
  639.     return('*');
  640. return(SP);
  641. }
  642.  
  643. char *hair(char user_hair)
  644. {
  645. switch(user_hair) {
  646.     case HAIR_BLONDE:
  647.         return("BLN");
  648.     case HAIR_BROWN:
  649.         return("BRN");
  650.     case HAIR_RED:
  651.         return("RED");
  652.     case HAIR_BLACK:
  653.         return("BLK");
  654.     case HAIR_GREY:
  655.         return("GRY");
  656.     case HAIR_OTHER:
  657.         return("OTH"); }
  658. if(user_hair)
  659.     return("*");
  660. return(nulstr);
  661. }
  662.  
  663. char *eyes(char user_eyes)
  664. {
  665. switch(user_eyes) {
  666.     case EYES_BLUE:
  667.         return("BLU");
  668.     case EYES_BROWN:
  669.         return("BRN");
  670.     case EYES_GREEN:
  671.         return("GRN");
  672.     case EYES_HAZEL:
  673.         return("HAZ");
  674.     case EYES_OTHER:
  675.         return("OTH"); }
  676. if(user_eyes)
  677.     return("*");
  678. return(nulstr);
  679. }
  680.  
  681. char *marital(char user_marital)
  682. {
  683. switch(user_marital) {
  684.     case MARITAL_SINGLE:
  685.         return("Single");
  686.     case MARITAL_MARRIED:
  687.         return("Married");
  688.     case MARITAL_DIVORCED:
  689.         return("Divorced");
  690.     case MARITAL_WIDOWED:
  691.         return("Widowed");
  692.     case MARITAL_OTHER:
  693.         return("Other"); }
  694. if(user_marital)
  695.     return("*");
  696. return(nulstr);
  697. }
  698.  
  699. char *race(char user_race)
  700. {
  701. switch(user_race) {
  702.     case RACE_WHITE:
  703.         return("White");
  704.     case RACE_BLACK:
  705.         return("Black");
  706.     case RACE_HISPANIC:
  707.         return("Hispanic");
  708.     case RACE_ASIAN:
  709.         return("Asian");
  710.     case RACE_AMERINDIAN:
  711.         return("American Indian");
  712.     case RACE_MIDEASTERN:
  713.         return("Middle Eastern");
  714.     case RACE_OTHER:
  715.         return("Other"); }
  716. if(user_race)
  717.     return("*");
  718. return(nulstr);
  719. }
  720.  
  721. ushort getzodiac(char *birth)
  722. {
  723. if((!strncmp(birth,"03",2) && atoi(birth+3)>=21)
  724.     || (!strncmp(birth,"04",2) && atoi(birth+3)<=19))
  725.     return(ZODIAC_ARIES);
  726. if((!strncmp(birth,"04",2) && atoi(birth+3)>=20)
  727.     || (!strncmp(birth,"05",2) && atoi(birth+3)<=20))
  728.     return(ZODIAC_TAURUS);
  729. if((!strncmp(birth,"05",2) && atoi(birth+3)>=21)
  730.     || (!strncmp(birth,"06",2) && atoi(birth+3)<=20))
  731.     return(ZODIAC_GEMINI);
  732. if((!strncmp(birth,"06",2) && atoi(birth+3)>=21)
  733.     || (!strncmp(birth,"07",2) && atoi(birth+3)<=22))
  734.     return(ZODIAC_CANCER);
  735. if((!strncmp(birth,"07",2) && atoi(birth+3)>=23)
  736.     || (!strncmp(birth,"08",2) && atoi(birth+3)<=22))
  737.     return(ZODIAC_LEO);
  738. if((!strncmp(birth,"08",2) && atoi(birth+3)>=23)
  739.     || (!strncmp(birth,"09",2) && atoi(birth+3)<=22))
  740.     return(ZODIAC_VIRGO);
  741. if((!strncmp(birth,"09",2) && atoi(birth+3)>=23)
  742.     || (!strncmp(birth,"10",2) && atoi(birth+3)<=22))
  743.     return(ZODIAC_LIBRA);
  744. if((!strncmp(birth,"10",2) && atoi(birth+3)>=23)
  745.     || (!strncmp(birth,"11",2) && atoi(birth+3)<=21))
  746.     return(ZODIAC_SCORPIO);
  747. if((!strncmp(birth,"11",2) && atoi(birth+3)>=22)
  748.     || (!strncmp(birth,"12",2) && atoi(birth+3)<=21))
  749.     return(ZODIAC_SAGITTARIUS);
  750. if((!strncmp(birth,"12",2) && atoi(birth+3)>=22)
  751.     || (!strncmp(birth,"01",2) && atoi(birth+3)<=19))
  752.     return(ZODIAC_CAPRICORN);
  753. if((!strncmp(birth,"01",2) && atoi(birth+3)>=20)
  754.     || (!strncmp(birth,"02",2) && atoi(birth+3)<=18))
  755.     return(ZODIAC_AQUARIUS);
  756. if((!strncmp(birth,"02",2) && atoi(birth+3)>=19)
  757.     || (!strncmp(birth,"03",2) && atoi(birth+3)<=20))
  758.     return(ZODIAC_PISCES);
  759. return(0xff);
  760. }
  761.  
  762. char *zodiac(short user_zodiac)
  763. {
  764. switch(user_zodiac)
  765. {
  766.     case ZODIAC_ARIES:
  767.         return("Aries");
  768.     case ZODIAC_TAURUS:
  769.         return("Taurus");
  770.     case ZODIAC_GEMINI:
  771.         return("Gemini");
  772.     case ZODIAC_CANCER:
  773.         return("Cancer");
  774.     case ZODIAC_LEO:
  775.         return("Leo");
  776.     case ZODIAC_VIRGO:
  777.         return("Virgo");
  778.     case ZODIAC_LIBRA:
  779.         return("Libra");
  780.     case ZODIAC_SCORPIO:
  781.         return("Scorpio");
  782.     case ZODIAC_SAGITTARIUS:
  783.         return("Sagittarius");
  784.     case ZODIAC_CAPRICORN:
  785.         return("Capricorn");
  786.     case ZODIAC_AQUARIUS:
  787.         return("Aquarius");
  788.     case ZODIAC_PISCES:
  789.         return("Pisces"); }
  790. return(nulstr);
  791. }
  792.  
  793. short ans2bits(char *str)
  794. {
  795.     int i,j;
  796.     ushort bits=0;
  797.  
  798. j=strlen(str);
  799. for(i=0;i<j;i++) {
  800.     if(str[i]=='*')
  801.         return(0xffff);
  802.     bits|=(1<<str[i]-'A'); }
  803. return(bits);
  804. }
  805.  
  806. uchar ans2uchar(char *str)
  807. {
  808.     int i,j;
  809.     uchar bits=0;
  810.  
  811. j=strlen(str);
  812. for(i=0;i<j;i++) {
  813.     if(str[i]=='*')
  814.         return(0xff);
  815.     bits|=(1<<str[i]-'A'); }
  816. return(bits);
  817. }
  818.  
  819.  
  820. void bits2ans(ushort bits, char *str)
  821. {
  822.     char    tmp[25];
  823.     int     i;
  824.  
  825. str[0]=0;
  826. if(bits==0xffff) {
  827.     strcpy(str,"*");
  828.     return; }
  829. for(i=0;i<16;i++)
  830.     if(bits&(1<<i)) {
  831.         tmp[0]='A'+i;
  832.         tmp[1]=0;
  833.         strcat(str,tmp); }
  834. }
  835.  
  836. void bits2str(ushort user, char *str)
  837. {
  838.     int     i;
  839.  
  840. str[0]=0;
  841. if(user==0xffff) {
  842.     strcpy(str,"*");
  843.     return; }
  844. for(i=0;i<16;i++)
  845.     if(user&(1<<i))
  846.         str[i]='A'+i;
  847.     else
  848.         str[i]=SP;
  849. str[i]=0;
  850. }
  851.  
  852. void uchar2ans(uchar bits, char *str)
  853. {
  854.     char    tmp[25];
  855.     int     i;
  856.  
  857. str[0]=0;
  858. if(bits==0xff) {
  859.     strcpy(str,"*");
  860.     return; }
  861. for(i=0;i<8;i++)
  862.     if(bits&(1<<i)) {
  863.         tmp[0]='A'+i;
  864.         tmp[1]=0;
  865.         strcat(str,tmp); }
  866. }
  867.  
  868. int basic_match(user_t user, user_t mate)
  869. {
  870.     int max=0,match=0,age=getage(mate.birth),zodiac=getzodiac(mate.birth);
  871.  
  872. if(user.pref_sex!='*' && user.pref_sex!=mate.sex
  873.     && !(user.misc&USER_FRIEND))
  874.     return(0);
  875.  
  876. if(zodiac&user.pref_zodiac) match++;
  877. else if(user.misc&USER_REQZODIAC)
  878.     return(0);
  879. if(zodiac==user.pref_zodiac) match++;
  880. max+=2;
  881.  
  882. if(stricmp(mate.zipcode,user.min_zipcode)>=0
  883.     && stricmp(mate.zipcode,user.max_zipcode)<=0) match+=2;
  884. else if(user.misc&USER_REQZIP) return(0);
  885. max+=2;
  886.  
  887. if(mate.marital&user.pref_marital) match++;
  888. else if(user.misc&USER_REQMARITAL)
  889.     return(0);
  890. if(mate.marital==user.pref_marital) match++;
  891. max+=2;
  892.  
  893. if(mate.race&user.pref_race) match++;
  894. else if(user.misc&USER_REQRACE)
  895.     return(0);
  896. if(mate.race==user.pref_race) match++;
  897. max+=2;
  898.  
  899. if(mate.hair&user.pref_hair) match++;
  900. else if(user.misc&USER_REQHAIR)
  901.     return(0);
  902. if(mate.hair==user.pref_hair) match++;
  903. max+=2;
  904.  
  905. if(mate.eyes&user.pref_eyes) match++;
  906. else if(user.misc&USER_REQEYES)
  907.     return(0);
  908. if(mate.eyes==user.pref_eyes) match++;
  909. max+=2;
  910.  
  911. if(age>=user.min_age
  912.     && (!user.max_age || age<=user.max_age)) match+=2;
  913. else {
  914.     if(user.misc&USER_REQAGE) return(0);
  915.     if(age<user.min_age-((user.max_age-user.min_age)/2)
  916.         || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/2)))
  917.         match-=4;
  918.     else if(age<user.min_age-((user.max_age-user.min_age)/3)
  919.         || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/3)))
  920.         match-=3;
  921.     else if(age<user.min_age-((user.max_age-user.min_age)/4)
  922.         || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/4)))
  923.         match-=2;
  924.     else if(age<user.min_age-((user.max_age-user.min_age)/5)
  925.         || (user.max_age && age>user.max_age+((user.max_age-user.min_age)/5)))
  926.         match--; }
  927.  
  928. max+=2;
  929.  
  930. if(mate.weight>=user.min_weight
  931.     && (!user.max_weight || mate.weight<=user.max_weight)) match+=2;
  932. else {
  933.     if(user.misc&USER_REQWEIGHT) return(0);
  934.     if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/2)
  935.         || (user.max_weight
  936.         && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/2)))
  937.         match-=4;
  938.     else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/3)
  939.         || (user.max_weight
  940.         && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/3)))
  941.         match-=3;
  942.     else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/4)
  943.         || (user.max_weight
  944.         && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/4)))
  945.         match-=2;
  946.     else if(mate.weight<user.min_weight-((user.max_weight-user.min_weight)/5)
  947.         || (user.max_weight
  948.         && mate.weight>user.max_weight+((user.max_weight-user.min_weight)/5)))
  949.         match--; }
  950. max+=2;
  951.  
  952. if(mate.height>=user.min_height
  953.     && (!user.max_height || mate.height<=user.max_height)) match+=2;
  954. else {
  955.     if(user.misc&USER_REQHEIGHT) return(0);
  956.     if(mate.height<user.min_height-((user.max_height-user.min_height)/2)
  957.         || (user.max_height
  958.         && mate.height>user.max_height+((user.max_height-user.min_height)/2)))
  959.         match-=4;
  960.     else if(mate.height<user.min_height-((user.max_height-user.min_height)/3)
  961.         || (user.max_height
  962.         && mate.height>user.max_height+((user.max_height-user.min_height)/3)))
  963.         match-=3;
  964.     else if(mate.height<user.min_height-((user.max_height-user.min_height)/4)
  965.         || (user.max_height
  966.         && mate.height>user.max_height+((user.max_height-user.min_height)/4)))
  967.         match-=2;
  968.     else if(mate.height<user.min_height-((user.max_height-user.min_height)/5)
  969.         || (user.max_height
  970.         && mate.height>user.max_height+((user.max_height-user.min_height)/5)))
  971.         match--; }
  972. max+=2;
  973.  
  974. if(mate.income>=user.min_income
  975.     && (!user.max_income || mate.income==0xffffffffUL
  976.     || mate.income<=user.max_income)) match++;
  977. else {
  978.     if(user.misc&USER_REQINCOME) return(0);
  979.     if(mate.income<user.min_income-((user.max_income-user.min_income)/2)
  980.         || (user.max_income
  981.         && mate.income>user.max_income+((user.max_income-user.min_income)/2)))
  982.         match-=4;
  983.     else if(mate.income<user.min_income-((user.max_income-user.min_income)/3)
  984.         || (user.max_income
  985.         && mate.income>user.max_income+((user.max_income-user.min_income)/3)))
  986.         match-=3;
  987.     else if(mate.income<user.min_income-((user.max_income-user.min_income)/4)
  988.         || (user.max_income
  989.         && mate.income>user.max_income+((user.max_income-user.min_income)/4)))
  990.         match-=2;
  991.     else if(mate.income<user.min_income-((user.max_income-user.min_income)/5)
  992.         || (user.max_income
  993.         && mate.income>user.max_income+((user.max_income-user.min_income)/5)))
  994.         match--; }
  995. max++;
  996.  
  997. if(match<=0)
  998.     return(0);
  999.  
  1000. return(((float)match/max)*100.0);
  1001. }
  1002.  
  1003. int sys_quenum(char *name)
  1004. {
  1005.     int i;
  1006.  
  1007. for(i=0;i<total_ques;i++)
  1008.     if(!stricmp(que[i]->name,name))
  1009.         break;
  1010. if(i<total_ques)
  1011.     return(i);
  1012. return(-1);
  1013. }
  1014.  
  1015. int user_quenum(char *name, user_t user)
  1016. {
  1017.     int i;
  1018.  
  1019. for(i=0;i<5;i++)
  1020.     if(!stricmp(user.queans[i].name,name))
  1021.         break;
  1022. if(i<5)
  1023.     return(i);
  1024. return(-1);
  1025. }
  1026.  
  1027. int total_match(user_t user, user_t mate)
  1028. {
  1029.     int i,j,s,u,match1,match2,quematches=0,quemax=0,quematch;
  1030.  
  1031. match1=basic_match(user,mate);
  1032. if(!match1) return(0);
  1033. match2=basic_match(mate,user);
  1034. if(!match2) return(0);
  1035.  
  1036. for(i=0;i<5;i++) {
  1037.     if(!user.queans[i].name[0])
  1038.         continue;
  1039.     s=sys_quenum(user.queans[i].name);
  1040.     if(s==-1)
  1041.         continue;
  1042.     u=user_quenum(user.queans[i].name,mate);
  1043.     if(u==-1)
  1044.         continue;
  1045.     for(j=0;j<que[s]->total_ques;j++) {
  1046.         if(user.queans[u].pref[j]&mate.queans[i].self[j]) quematches+=4;
  1047.         if(user.queans[u].pref[j]==mate.queans[i].self[j]) quematches+=2;
  1048.         if(user.queans[u].self[j]&mate.queans[i].pref[j]) quematches+=2;
  1049.         if(user.queans[u].self[j]==mate.queans[i].pref[j]) quematches++;
  1050.         quemax+=9; } }
  1051.  
  1052. if(!quemax)     /* no questionnaires in common */
  1053.     return((match1+match1+match1+match1+match2+match2)/6);
  1054.  
  1055. quematch=((float)quematches/quemax)*100.0;
  1056. return((match1+match1+match1+match1+match2+match2+quematch)/7);
  1057. }
  1058.  
  1059.  
  1060. void main_user_info(user_t user)
  1061. {
  1062.     char str[128],min[64],max[64];
  1063.     int i;
  1064.  
  1065. attr(LIGHTGRAY);
  1066. cls();
  1067. if(SYSOP)
  1068.     bprintf("\1n\1gReal: \1h%.25s #%lu (%.40s)\r\n"
  1069.         ,user.realname,user.number,user.system);
  1070. bprintf("\1n\1gName: \1h%-25.25s     \1b%-10s   \1c%-15s  \1m%s\r\n"
  1071.     ,user.name
  1072.     ,marital(user.marital),race(user.race)
  1073.     ,user.sex=='M' ? "Male":"Female");
  1074. if(smm_misc&SMM_METRIC)
  1075.     sprintf(str," %-4u",intocm(user.height));
  1076. else
  1077.     sprintf(str,"%2u'%-2u",user.height/12,user.height%12);
  1078. bprintf("\1n\1gHair: \1h%3s  \1n\1gEyes: \1h%3s  \1n\1gHeight:"
  1079.     "\1h%s  \1n\1gWeight: \1h%-3u  \1n\1gAge: \1h%-3u "
  1080.     "\1n\1gZodiac: \1h%s\r\n"
  1081.     ,hair(user.hair),eyes(user.eyes),str
  1082.     ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
  1083.     ,getage(user.birth),zodiac(getzodiac(user.birth)));
  1084. bprintf("\1n\1gFrom: \1h%-30.30s   \1n\1gZip: \1h%-10.10s    "
  1085.     "\1n\1gIncome: \1h$%sK\1n\1g/year\r\n"
  1086.     ,user.location,user.zipcode
  1087.     ,user.income==0xffffffffUL ? "?":ultoa(user.income/1000UL,tmp,10));
  1088. if(smm_misc&SMM_METRIC) {
  1089.     sprintf(min,"%u",intocm(user.min_height));
  1090.     sprintf(max,"%u",intocm(user.max_height)); }
  1091. else {
  1092.     sprintf(min,"%u'%u",user.min_height/12,user.min_height%12);
  1093.     sprintf(max,"%u'%u",user.max_height/12,user.max_height%12); }
  1094. bprintf("\1n\1gPref: \1h\1%c%c\1%c%c\1m%c \1%c%3u\1n\1g-\1h\1%c%u\1n\1h  "
  1095.     "\1%c%s \1n\1ghair  \1h\1%c%s \1n\1geyes  \1h\1%c%s\1n\1g-\1h\1%c%s  "
  1096.     "\1%c%u\1n\1g-\1h\1%c%u\1n\1glbs  \1h\1%c$%luK\1n\1g-\1h\1%c%luK\1n\1%c  "
  1097.     "\1h%.3s\r\n"
  1098.     ,user.misc&USER_REQMARITAL ? 'w':'b'
  1099.     ,marital_ch(user.pref_marital)
  1100.     ,user.misc&USER_REQRACE ? 'w':'g'
  1101.     ,race_ch(user.pref_race)
  1102.     ,user.pref_sex
  1103.     ,user.misc&USER_REQAGE    ? 'w':'g'
  1104.     ,user.min_age
  1105.     ,user.misc&USER_REQAGE    ? 'w':'g'
  1106.     ,user.max_age
  1107.     ,user.misc&USER_REQHAIR  ? 'w':'g'
  1108.     ,hair(user.pref_hair)
  1109.     ,user.misc&USER_REQEYES  ? 'w':'g'
  1110.     ,eyes(user.pref_eyes)
  1111.     ,user.misc&USER_REQHEIGHT  ? 'w':'g'
  1112.     ,min
  1113.     ,user.misc&USER_REQHEIGHT  ? 'w':'g'
  1114.     ,max
  1115.     ,user.misc&USER_REQWEIGHT  ? 'w':'g'
  1116.     ,smm_misc&SMM_METRIC ? lptokg(user.min_weight) : user.min_weight
  1117.     ,user.misc&USER_REQWEIGHT  ? 'w':'g'
  1118.     ,smm_misc&SMM_METRIC ? lptokg(user.max_weight) : user.max_weight
  1119.     ,user.misc&USER_REQINCOME  ? 'w':'g'
  1120.     ,user.min_income/1000L
  1121.     ,user.misc&USER_REQINCOME  ? 'w':'g'
  1122.     ,user.max_income/1000L
  1123.     ,user.misc&USER_REQZODIAC  ? 'w':'g'
  1124.     ,zodiac(user.pref_zodiac));
  1125.  
  1126. bprintf("\1r\1i%s\1n\1w\1h\r\n",user.misc&USER_PHOTO ? "PHOTO":nulstr);
  1127. for(i=0;i<5;i++) {
  1128.     if(!user.note[i][0])
  1129.         break;
  1130.     bprintf("%15s%.50s\r\n",nulstr,user.note[i]); }
  1131. }
  1132.  
  1133. char long_user_info(user_t user)
  1134. {
  1135.     char str[128],fname[128],path[128],ch;
  1136.     int i,j,k,s,u,max,match1,match2,user_match,mate_match;
  1137.  
  1138. while(1) {
  1139. checkline();
  1140. main_user_info(user);
  1141.  
  1142. CRLF;
  1143. /**
  1144. if(user.misc&USER_FROMSMB)
  1145.     bprintf("\1r\1hImported via message base from \1w%s\1r.\r\n"
  1146.         ,user.system);
  1147. **/
  1148. bprintf("\1h\1mThis user meets your profile preferences:\1w%3u%%            "
  1149.     ,match1=basic_match(useron,user));
  1150. bprintf("\1n\1gCreated: \1h%s\r\n",unixtodstr(user.created,str));
  1151. bprintf("\1h\1mYou meet this user's profile preferences:\1w%3u%%            "
  1152.     ,match2=basic_match(user,useron));
  1153. bprintf("\1n\1gUpdated: \1h%s\r\n",unixtodstr(user.updated,str));
  1154.  
  1155. if(!smm_pause)
  1156.     lncntr=0;
  1157.  
  1158. CRLF;
  1159. bputs("\1n\1b\1hQuestionnaires:\r\n");
  1160. for(i=0;i<5;i++) {
  1161.     max=mate_match=user_match=0;
  1162.     if(!user.queans[i].name[0])
  1163.         continue;
  1164.     s=sys_quenum(user.queans[i].name);
  1165.     if(s==-1)
  1166.         continue;
  1167.     if(que[s]->req_age>getage(useron.birth))
  1168.         continue;
  1169.     if(match1 && match2)
  1170.         u=user_quenum(user.queans[i].name,useron);
  1171.     else
  1172.         u=-1;
  1173.     bprintf("\1h\1c%-25s ",que[s]->desc);
  1174.     if(u==-1) {
  1175.         CRLF;
  1176.         continue; }
  1177.     for(j=0;j<que[s]->total_ques;j++) {
  1178.         if(useron.queans[u].pref[j]&user.queans[i].self[j]) user_match+=2;
  1179.         if(useron.queans[u].pref[j]==user.queans[i].self[j]) user_match++;
  1180.         if(useron.queans[u].self[j]&user.queans[i].pref[j]) mate_match+=2;
  1181.         if(useron.queans[u].self[j]==user.queans[i].pref[j]) mate_match++;
  1182.         max+=3; }
  1183.     bprintf("\1n\1c%s matches your pref:\1h%3u%%  "
  1184.             "\1n\1cYou match %s pref:\1h%3u%%\r\n"
  1185.             ,user.sex=='M' ? "He":"She"
  1186.             ,(int)(((float)user_match/max)*100.0)
  1187.             ,user.sex=='M' ? "his":"her"
  1188.             ,(int)(((float)mate_match/max)*100.0)); }
  1189.  
  1190. bprintf("\r\n\1r\1hOverall match: \1w%u%%",total_match(useron,user));
  1191. if(user.purity)
  1192.     bprintf("        \1r\1hPurity test: \1w%u%%",user.purity);
  1193. if(user.mbtype[0])
  1194.     bprintf("        \1r\1hPersonality type: \1w%s",user.mbtype);
  1195. CRLF;
  1196.  
  1197. if(aborted) {
  1198.     aborted=0;
  1199.     return(0); }
  1200. if(!smm_pause) {
  1201.     if(kbhit())
  1202.         return(0);
  1203.     return(1); }
  1204. nodesync();
  1205. if(lncntr>=user_rows-2)
  1206.     lncntr=0;
  1207. CRLF;
  1208. bputs("\1h\1b[\1cV\1b]iew questionnaires, ");
  1209. if(user.misc&USER_PHOTO)
  1210.     bputs("[\1cD\1b]ownload photo, ");
  1211. bputs("[\1cS\1b]end telegram, [\1cQ\1b]uit, or [Next]: \1c");
  1212. strcpy(str,"VSQN\r");
  1213. if(user.misc&USER_PHOTO)
  1214.     strcat(str,"D");
  1215. if(SYSOP)
  1216.     strcat(str,"+");
  1217. switch(getkeys(str,0)) {
  1218.     case '+':
  1219.         user.misc|=USER_PHOTO;
  1220.         break;
  1221.     case 'Q':
  1222.         return(0);
  1223.     case CR:
  1224.     case 'N':
  1225.         return(1);
  1226.     case 'D':
  1227.         if(!useron.number) {
  1228.             bputs("\r\n\1h\1rYou must create a profile first.\r\n");
  1229.             pause();
  1230.             break; }
  1231.         if(!(useron.misc&USER_PHOTO)) {
  1232.             bputs("\r\n\1h\1rYou cannot download photos until your photo is "
  1233.                 "added.\r\n");
  1234.             pause();
  1235.             break; }
  1236.         for(i=0;user.system[i];i++)
  1237.             if(isalnum(user.system[i]))
  1238.                 break;
  1239.         if(!user.system[i])
  1240.             fname[0]='~';
  1241.         else
  1242.             fname[0]=user.system[i];
  1243.         for(i=strlen(user.system)-1;i>0;i--)
  1244.             if(isalnum(user.system[i]))
  1245.                 break;
  1246.         if(i<=0)
  1247.             fname[1]='~';
  1248.         else
  1249.             fname[1]=user.system[i];
  1250.         fname[2]=0;
  1251.         strupr(user.system);
  1252.         strcat(fname,base41(crc16(user.system),tmp));
  1253.         strcat(fname,base41(user.number,tmp));
  1254.         strcat(fname,".JPG");
  1255.         strupr(fname);
  1256.         sprintf(path,"PHOTO\\%s",fname);
  1257.         if(!fexist(path)) {
  1258.             bputs("\r\n\1n\1hUnpacking...");
  1259.             sprintf(str,"%spkunzip photo %s photo",exec_dir,fname);
  1260.             system(str);
  1261.             bputs("\r\n");
  1262.             if(!fexist(path)) {
  1263.                 bputs("\r\n\1n\1h\1i\1rUnpacking failed!\1n\r\n");
  1264.                 pause();
  1265.                 break; } }
  1266.         if(com_port) {
  1267.             cmdstr(zmodem_send,path,path,str);
  1268.             ivhctl(INTCLR);
  1269.             ivhctl(INT29L);
  1270.             system(str);
  1271.             ivhctl(INTCLR);
  1272.             i=INT29L;
  1273.             i|=(INT29R|INT16);
  1274.             ivhctl(i); }
  1275.         else
  1276.             system(cmdstr(local_view,path,path,str));
  1277.         pause();
  1278.         break;
  1279.  
  1280.  
  1281.     case 'S':
  1282.         send_telegram(user);
  1283.         break;
  1284.     case 'V':
  1285.  
  1286.         if(user_level<que_level) {
  1287.             bputs("\r\n\1h\1rYou have insufficient access to read "
  1288.                 "questoinnaires.\r\n");
  1289.             pause();
  1290.             break; }
  1291.  
  1292.         for(i=0;i<5;i++) {
  1293.             aborted=0;
  1294.             if(!user.queans[i].name[0])
  1295.                 continue;
  1296.             s=sys_quenum(user.queans[i].name);
  1297.             if(s==-1)
  1298.                 continue;
  1299.             if(que[s]->req_age>getage(useron.birth))
  1300.                 continue;
  1301.             if(match1 && match2)
  1302.                 u=user_quenum(user.queans[i].name,useron);
  1303.             else
  1304.                 u=-1;
  1305.             sprintf(str,"\r\nDo you wish to view the \1w%s\1b questionnaire"
  1306.                 ,que[s]->desc);
  1307.             if(!yesno(str))
  1308.                 continue;
  1309.             if(!cdt_warning(que_cdt))
  1310.                 continue;
  1311.             adjust_cdt(que_cdt);
  1312.             for(j=0;j<que[s]->total_ques && !aborted;) {
  1313.                 cls();
  1314.                 bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
  1315.                     "\1y%d \1mof \1y%d  \1h\1b(Ctrl-C to Abort)\r\n\r\n"
  1316.                     ,que[s]->desc,j+1,que[s]->total_ques);
  1317.                 bprintf("\1w\1h%s\r\n\r\n",que[s]->que[j].txt);
  1318.                 for(k=0;k<que[s]->que[j].answers;k++)
  1319.                     bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k
  1320.                         ,que[s]->que[j].ans[k]);
  1321.                 bits2str(user.queans[i].self[j],str);
  1322.                 bprintf("\1n\1g\r\n%25s: \1h%-16s "
  1323.                     ,user.name,str);
  1324.                 bits2str(user.queans[i].pref[j],str);
  1325.                 bprintf("\1n\1g %15s: \1h%s","Preferred mate",str);
  1326.                 if(u!=-1) {
  1327.                     bits2str(useron.queans[u].pref[j],str);
  1328.                     bprintf("\1n\1g\r\n%25s: \1h%-16s "
  1329.                         ,"Your preferred mate",str);
  1330.                     bits2str(useron.queans[u].self[j],str);
  1331.                     bprintf("\1n\1g %15s: \1h%s","You",str); }
  1332.                 CRLF;
  1333.                 if(!aborted) {
  1334.                     lncntr=0;
  1335.                     bputs("\r\n\1h\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
  1336.                         "or [Next]: \1c");
  1337.                     ch=getkeys("PQN\r",0);
  1338.                     if(ch=='P') {
  1339.                         if(j) j--;
  1340.                         continue; }
  1341.                     if(ch=='Q')
  1342.                         break;
  1343.                     j++; } } }
  1344.         break;
  1345.  
  1346.     } }
  1347. return(0);
  1348. }
  1349.  
  1350.  
  1351. /* Returns 0 if aborted, 1 if continue, negative if previous */
  1352. int short_user_info(user_t user)
  1353. {
  1354.     char str[128],height[64],ch;
  1355.     int i,match;
  1356.     int records;
  1357.     ulong  name_crc;
  1358.     static char name[26],lastname[26],highmatch;
  1359.     static long topixb,topdab,lastixb,lastdab;
  1360.     static int count;
  1361.  
  1362. if(!lncntr && smm_pause) {
  1363.     topdab=ftell(stream)-sizeof(user_t);
  1364.     topixb=ftell(index)-sizeof(ixb_t);
  1365.     if(!topdab)
  1366.         lastdab=lastixb=0;
  1367.     count=0;
  1368.     printfile("LIST_HDR.ASC");
  1369.     strcpy(lastname,name);
  1370.     name[0]=highmatch=0; }
  1371. if(user.number) {
  1372.     match=total_match(useron,user);
  1373.     if(!match) str[0]=0;
  1374.     else if(match>=90) sprintf(str,"\1w%u%%",match);
  1375.     else if(match>=80) sprintf(str,"\1c%u%%",match);
  1376.     else if(match>=70) sprintf(str,"\1y%u%%",match);
  1377.     else if(match>=60) sprintf(str,"\1g%u%%",match);
  1378.     else if(match>=50) sprintf(str,"\1m%u%%",match);
  1379.     else if(match>=40) sprintf(str,"\1r%u%%",match);
  1380.     else if(match>=30) sprintf(str,"\1b%u%%",match);
  1381.     else if(match>=20) sprintf(str,"\1n\1g%u%%",match);
  1382.     else if(match>=10) sprintf(str,"\1n\1c%u%%",match);
  1383.     else sprintf(str,"\1n%u%%",match);
  1384.     if(smm_misc&SMM_METRIC)
  1385.         sprintf(height," %-4u",intocm(user.height));
  1386.     else
  1387.         sprintf(height,"%2u'%-2u",user.height/12,user.height%12);
  1388.     bprintf("\1n\1h%c\1n\1g%c\1h\1c%c\1b%3u \1g%3s \1m%3s\1r%s \1y%-3u "
  1389.         "\1n\1g%-25.25s\1r\1h\1i%c\1n\1h%-25.25s%s\r\n"
  1390.         ,user.sex==user.pref_sex ? 'G':user.sex=='*' ? 'B'
  1391.             : marital_ch(user.marital)
  1392.         ,race_ch(user.race)
  1393.         ,user.sex
  1394.         ,getage(user.birth)
  1395.         ,hair(user.hair)
  1396.         ,eyes(user.eyes)
  1397.         ,height
  1398.         ,smm_misc&SMM_METRIC ? lptokg(user.weight) : user.weight
  1399.         ,user.location
  1400.         ,user.misc&USER_PHOTO ? '+':SP
  1401.         ,user.name
  1402.         ,str
  1403.         );
  1404.     if(match &&
  1405.         (!name[0] || !stricmp(name,lastname)
  1406.         || (stricmp(user.name,lastname) && match>highmatch))) {
  1407.         highmatch=match;
  1408.         sprintf(name,"%.25s",user.name);
  1409.         strupr(name); }
  1410.     }
  1411.  
  1412. if(lncntr>=user_rows-2 || !user.number) {
  1413.     lncntr=0;
  1414.     bputs(PrevReadSendQuitOrMore);
  1415.     ch=getkey(K_UPPER);
  1416.     if(ch=='Q') {
  1417.         cls();
  1418.         aborted=1; }
  1419.     else if(ch=='P') {
  1420.         cls();
  1421.         records=((ftell(stream)-topdab)/sizeof(user_t));
  1422.         fseek(stream,lastdab,SEEK_SET);
  1423.         fseek(index,lastixb,SEEK_SET);
  1424.         lastdab-=(records)*sizeof(user_t);
  1425.         lastixb-=(records)*sizeof(ixb_t);
  1426.         if(lastdab<0) lastdab=0;
  1427.         if(lastixb<0) lastixb=0;
  1428.         return(-count); }
  1429.     else if(ch=='R' || ch=='G' || ch=='S') {
  1430.         bprintf("\1n\r\1>\1y\1hUser name: ");
  1431.         if(getstr(name,25,K_NOCRLF|K_LINE|K_EDIT|K_AUTODEL|K_UPPER)) {
  1432.             truncsp(name);
  1433.             name_crc=crc32(name);
  1434.             cls();
  1435.             rewind(index);
  1436.             while(!feof(index)) {
  1437.                 if(!fread(&ixb,sizeof(ixb_t),1,index))
  1438.                     break;
  1439.                 if(!ixb.number)    /* DELETED */
  1440.                     continue;
  1441.                 if(ixb.name!=name_crc)
  1442.                     continue;
  1443.                 fseek(stream
  1444.                     ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  1445.                     *sizeof(user_t),SEEK_SET);
  1446.                 if(!fread(&user,sizeof(user_t),1,stream))
  1447.                     continue;
  1448.                 if(ch=='S' && send_telegram(user))
  1449.                     break;
  1450.                 if(ch!='S' && !long_user_info(user))
  1451.                     break; } }
  1452.         fseek(stream,topdab,SEEK_SET);
  1453.         fseek(index,topixb,SEEK_SET);
  1454.         cls();
  1455.         return(-1); }
  1456.     else {
  1457.         lastixb=topixb;
  1458.         lastdab=topdab;
  1459.         cls(); } }
  1460.  
  1461. count++;
  1462. if(aborted)
  1463.     return(0);
  1464. return(1);
  1465. }
  1466.  
  1467.  
  1468. int get_your_det(user_t *user)
  1469. {
  1470.     char    str[128],*p,*hdr;
  1471.     int     i;
  1472.  
  1473. while(1) {
  1474. checkline();
  1475. cls();
  1476. bputs("\1h\0014 Your Detailed Personal Information \1n  \1h\1b"
  1477.     "(Ctrl-C to Abort)\r\n\r\n");
  1478.  
  1479. nodesync();
  1480. bputs("\1h\1bPlease enter your name or alias: ");
  1481. strcpy(str,user->name);
  1482. if(!getstr(str,25,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
  1483.     return(0);
  1484. truncsp(str);
  1485. if(trash(str)) {
  1486.     bprintf("\r\n\1h\1rSorry, you can't use that name.\r\n\r\n\1p");
  1487.     continue; }
  1488. strcpy(user->name,str);
  1489.  
  1490. CRLF;
  1491. nodesync();
  1492. bprintf("\1h\1gPlease enter your height in %s: "
  1493.     ,smm_misc&SMM_METRIC ? "centimeters" : "feet'inches (example: 5'7)");
  1494. if(user->height) {
  1495.     if(smm_misc&SMM_METRIC)
  1496.         sprintf(str,"%u",intocm(user->height));
  1497.     else
  1498.         sprintf(str,"%u'%u",user->height/12,user->height%12); }
  1499. else
  1500.     str[0]=0;
  1501. if(!getstr(str,4,K_LINE|K_EDIT|K_AUTODEL))
  1502.     return(0);
  1503. if(smm_misc&SMM_METRIC)
  1504.     user->height=cmtoin(atoi(str));
  1505. else {
  1506.     user->height=atoi(str)*12;
  1507.     p=strchr(str,'\'');
  1508.     if(p) user->height+=atoi(p+1); }
  1509.  
  1510. CRLF;
  1511. nodesync();
  1512. bprintf("\1h\1mPlease enter your weight (in %s): "
  1513.     ,smm_misc&SMM_METRIC ? "kilograms":"pounds");
  1514. if(user->weight)
  1515.     sprintf(str,"%u"
  1516.         ,smm_misc&SMM_METRIC ? lptokg(user->weight) : user->weight);
  1517. else
  1518.     str[0]=0;
  1519. if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL|K_LINE))
  1520.     return(0);
  1521. if(smm_misc&SMM_METRIC)
  1522.     user->weight=kgtolp(atoi(str));
  1523. else
  1524.     user->weight=atoi(str);
  1525.  
  1526. CRLF;
  1527. nodesync();
  1528. bputs("\1h\1rPlease enter your annual income in dollars (ENTER=undisclosed): ");
  1529. if(user->income && user->income!=0xffffffff)
  1530.     sprintf(str,"%luK",user->income/1000);
  1531. else
  1532.     str[0]=0;
  1533. getstr(str,6,K_UPPER|K_EDIT|K_AUTODEL|K_LINE);
  1534. if(aborted)
  1535.     return(0);
  1536. if(strchr(str,'K'))
  1537.     user->income=atol(str)*1000L;
  1538. else if(str[0]==0)
  1539.     user->income=0xffffffffUL;
  1540. else
  1541.     user->income=atol(str);
  1542.  
  1543. CRLF;
  1544. nodesync();
  1545. bputs("\1h\1cPlease enter your location (city, state): ");
  1546. strcpy(str,user->location);
  1547. if(!getstr(str,30,K_LINE|K_EDIT|K_AUTODEL|K_UPRLWR))
  1548.     return(0);
  1549. truncsp(str);
  1550. if(trash(str)) {
  1551.     bprintf("\r\n\1r\1hSorry, you can't use that location.\r\n\r\n\1p");
  1552.     continue; }
  1553. strcpy(user->location,str);
  1554.  
  1555.  
  1556. CRLF;
  1557. nodesync();
  1558. bputs("\1h\1gPlease enter your zip/postal code: ");
  1559. if(!getstr(user->zipcode,10,K_LINE|K_EDIT|K_AUTODEL))
  1560.     return(0);
  1561.  
  1562. CRLF;
  1563. nodesync();
  1564. for(i=0;i<5;i++) {
  1565.     bprintf("\1n\1gPersonal text - Line %u of 5: ",i+1);
  1566.     if(wordwrap[0])
  1567.         user->note[i][0]=0;
  1568.     strcpy(str,user->note[i]);
  1569.     if(!getstr(str,50,i==4 ? K_LINE|K_EDIT:K_LINE|K_EDIT|K_WRAP))
  1570.         break;
  1571.     if(trash(str)) {
  1572.         bprintf("\r\n\1r\1hSorry, you can't use that text.\r\n\r\n");
  1573.         i--;
  1574.         continue; }
  1575.     strcpy(user->note[i],str); }
  1576. while(i++<5)
  1577.     user->note[i][0]=0;
  1578. aborted=0;
  1579. nodesync();
  1580. if(yesno("\r\nIs the above information correct"))
  1581.     break; }
  1582. return(1);
  1583. }
  1584.  
  1585. int get_pref_det(user_t *user)
  1586. {
  1587.     char str[128],*p,*hdr;
  1588.     int i;
  1589.  
  1590. while(1) {
  1591. checkline();
  1592. cls();
  1593. bputs("\1h\0014 Detailed Information on Your Preferred Mate \1n  "
  1594.     "\1h\1b(Ctrl-C to Abort)\r\n\r\n");
  1595.  
  1596. nodesync();
  1597. bputs("\1n\1cPlease enter the minimum age of your preferred mate: \1h");
  1598. if(user->min_age)
  1599.     sprintf(str,"%u",user->min_age);
  1600. else
  1601.     str[0]=0;
  1602. getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
  1603. if(aborted)
  1604.     return(0);
  1605. user->min_age=atoi(str);
  1606.  
  1607. nodesync();
  1608. bputs("\1h\1cPlease enter the maximum age of your preferred mate: \1h");
  1609. if(user->max_age)
  1610.     sprintf(str,"%u",user->max_age);
  1611. else
  1612.     str[0]=0;
  1613. getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
  1614. if(aborted)
  1615.     return(0);
  1616. user->max_age=atoi(str);
  1617. if(user->min_age) {
  1618.     strcpy(str,"Do you require your mate's age fall within this range");
  1619.     if(user->misc&USER_REQAGE)
  1620.         i=yesno(str);
  1621.     else
  1622.         i=!noyes(str);
  1623.     if(i)
  1624.         user->misc|=USER_REQAGE;
  1625.     else
  1626.         user->misc&=~USER_REQAGE; }
  1627. else
  1628.     user->misc&=~USER_REQAGE;
  1629. if(aborted)
  1630.     return(0);
  1631.  
  1632. CRLF;
  1633. nodesync();
  1634. bprintf("\1n\1gPlease enter the minimum height of your preferred mate "
  1635.     "in %s: \1w\1h",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
  1636. if(user->min_height) {
  1637.     if(smm_misc&SMM_METRIC)
  1638.         sprintf(str,"%u",intocm(user->min_height));
  1639.     else
  1640.         sprintf(str,"%u'%u",user->min_height/12,user->min_height%12); }
  1641. else
  1642.     str[0]=0;
  1643. getstr(str,4,K_EDIT|K_AUTODEL);
  1644. if(aborted)
  1645.     return(0);
  1646. if(smm_misc&SMM_METRIC)
  1647.     user->min_height=cmtoin(atoi(str));
  1648. else {
  1649.     user->min_height=atoi(str)*12;
  1650.     p=strchr(str,'\'');
  1651.     if(p) user->min_height+=atoi(p+1); }
  1652. nodesync();
  1653. bprintf("\1h\1gPlease enter the maximum height of your preferred mate "
  1654.     "in %s: \1w",smm_misc&SMM_METRIC ? "centimeters":"feet'inches");
  1655. if(user->max_height) {
  1656.     if(smm_misc&SMM_METRIC)
  1657.         sprintf(str,"%u",intocm(user->max_height));
  1658.     else
  1659.         sprintf(str,"%u'%u",user->max_height/12,user->max_height%12); }
  1660. else
  1661.     str[0]=0;
  1662. getstr(str,4,K_EDIT|K_AUTODEL);
  1663. if(aborted)
  1664.     return(0);
  1665. if(smm_misc&SMM_METRIC)
  1666.     user->max_height=cmtoin(atoi(str));
  1667. else {
  1668.     user->max_height=atoi(str)*12;
  1669.     p=strchr(str,'\'');
  1670.     if(p) user->max_height+=atoi(p+1); }
  1671. strcpy(str,"Do you require your mate's height fall within this range");
  1672. if(user->misc&USER_REQHEIGHT)
  1673.     i=yesno(str);
  1674. else
  1675.     i=!noyes(str);
  1676. if(i)
  1677.     user->misc|=USER_REQHEIGHT;
  1678. else
  1679.     user->misc&=~USER_REQHEIGHT;
  1680. if(aborted)
  1681.     return(0);
  1682.  
  1683.  
  1684. CRLF;
  1685. nodesync();
  1686. bprintf("\1n\1mPlease enter the minimum weight of your preferred mate in %s:"
  1687.     " \1w\1h",smm_misc&SMM_METRIC ? "kilograms":"pounds");
  1688. if(user->min_weight) {
  1689.     if(smm_misc&SMM_METRIC)
  1690.         sprintf(str,"%u",lptokg(user->min_weight));
  1691.     else
  1692.         sprintf(str,"%u",user->min_weight); }
  1693. else
  1694.     str[0]=0;
  1695. getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
  1696. if(aborted)
  1697.     return(0);
  1698. if(smm_misc&SMM_METRIC)
  1699.     user->min_weight=kgtolp(atoi(str));
  1700. else
  1701.     user->min_weight=atoi(str);
  1702.  
  1703. nodesync();
  1704. bprintf("\1h\1mPlease enter the maximum weight of your preferred mate in %s:"
  1705.     " \1w",smm_misc&SMM_METRIC ? "kilograms":"pounds");
  1706. if(user->max_weight) {
  1707.     if(smm_misc&SMM_METRIC)
  1708.         sprintf(str,"%u",lptokg(user->max_weight));
  1709.     else
  1710.         sprintf(str,"%u",user->max_weight); }
  1711. else
  1712.     str[0]=0;
  1713. getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL);
  1714. if(aborted)
  1715.     return(0);
  1716. if(smm_misc&SMM_METRIC)
  1717.     user->max_weight=kgtolp(atoi(str));
  1718. else
  1719.     user->max_weight=atoi(str);
  1720. if(user->max_weight) {
  1721.     strcpy(str,"Do you require your mate's weight fall within this range");
  1722.     if(user->misc&USER_REQWEIGHT)
  1723.         i=yesno(str);
  1724.     else
  1725.         i=!noyes(str);
  1726.     if(i)
  1727.         user->misc|=USER_REQWEIGHT;
  1728.     else
  1729.         user->misc&=~USER_REQWEIGHT; }
  1730. else
  1731.     user->misc&=~USER_REQWEIGHT;
  1732. if(aborted)
  1733.     return(0);
  1734.  
  1735.  
  1736. CRLF;
  1737. nodesync();
  1738. bputs("\1h\1cPlease enter the lowest zip/postal code of your preferred "
  1739.     "mate: \1w");
  1740. getstr(user->min_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
  1741. if(aborted)
  1742.     return(0);
  1743. bputs("\1h\1bPlease enter the highest zip/postal code of your preferred "
  1744.     "mate: \1w");
  1745. getstr(user->max_zipcode,10,K_EDIT|K_AUTODEL|K_UPPER);
  1746. if(aborted)
  1747.     return(0);
  1748. strcpy(str,"Do you require your mate's zip/postal code fall within this range");
  1749. if(user->misc&USER_REQZIP)
  1750.     i=yesno(str);
  1751. else
  1752.     i=!noyes(str);
  1753. if(i)
  1754.     user->misc|=USER_REQZIP;
  1755. else
  1756.     user->misc&=~USER_REQZIP;
  1757. if(aborted)
  1758.     return(0);
  1759.  
  1760.  
  1761. CRLF;
  1762. nodesync();
  1763. bputs("\1h\1gPlease enter the minimum annual income of your "
  1764.     "mate in dollars: \1w");
  1765. if(user->min_income)
  1766.     sprintf(str,"%lu",user->min_income);
  1767. else
  1768.     str[0]=0;
  1769. getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
  1770. if(aborted) return(0);
  1771. user->min_income=atol(str);
  1772.  
  1773. nodesync();
  1774. bputs("\1h\1yPlease enter the maximum annual income of your "
  1775.     "mate in dollars: \1w");
  1776. if(user->max_income)
  1777.     sprintf(str,"%lu",user->max_income);
  1778. else
  1779.     str[0]=0;
  1780. getstr(str,6,K_NUMBER|K_EDIT|K_AUTODEL);
  1781. if(aborted) return(0);
  1782. user->max_income=atol(str);
  1783. if(user->min_income) {
  1784.     strcpy(str,"Do you require that your mate's income fall within this range");
  1785.     if(user->misc&USER_REQINCOME)
  1786.         i=yesno(str);
  1787.     else
  1788.         i=!noyes(str);
  1789.     if(i)
  1790.         user->misc|=USER_REQINCOME;
  1791.     else
  1792.         user->misc&=~USER_REQINCOME; }
  1793. else
  1794.     user->misc&=~USER_REQINCOME;
  1795. if(aborted)
  1796.     return(0);
  1797.  
  1798.  
  1799. nodesync();
  1800. if(yesno("\r\nIs the above information correct"))
  1801.     break; }
  1802. return(1);
  1803. }
  1804.  
  1805. int get_your_multi(user_t *user)
  1806. {
  1807.     char str[128],*hdr,*p;
  1808.  
  1809. while(1) {
  1810. checkline();
  1811. hdr="\1n\1l\1h\0014 Your Profile \1n  \1h\1b(Ctrl-C to Abort)\r\n\r\n";
  1812. bputs(hdr);
  1813. bputs("\1n\1h\1cYour Marital Status:\r\n\r\n");
  1814. mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
  1815.     "~E) Other\r\n");
  1816. nodesync();
  1817. bputs("\r\n\1y\1hWhich: \1w");
  1818. uchar2ans(user->marital,str);
  1819. if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
  1820.     return(0);
  1821. if(str[0]<='E')
  1822.     break; }
  1823. user->marital=ans2uchar(str);
  1824.  
  1825. while(1) {
  1826. checkline();
  1827. bputs(hdr);
  1828. bputs("\1n\1h\1cYour Race:\r\n\r\n");
  1829. mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
  1830.     "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n");
  1831. nodesync();
  1832. bputs("\r\n\1y\1hWhich: \1w");
  1833. uchar2ans(user->race,str);
  1834. if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
  1835.     return(0);
  1836. if(str[0]<='G')
  1837.     break; }
  1838. user->race=ans2uchar(str);
  1839.  
  1840. while(1) {
  1841. checkline();
  1842. bputs(hdr);
  1843. bputs("\1n\1h\1cYour Hair Color:\r\n\r\n");
  1844. mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
  1845.     "~E) Grey\r\n~F) Other\r\n");
  1846. nodesync();
  1847. bputs("\r\n\1y\1hWhich: \1w");
  1848. uchar2ans(user->hair,str);
  1849. if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
  1850.     return(0);
  1851. if(str[0]<='F')
  1852.     break; }
  1853. user->hair=ans2uchar(str);
  1854.  
  1855. while(1) {
  1856. checkline();
  1857. bputs(hdr);
  1858. bputs("\1n\1h\1cYour Eye Color:\r\n\r\n");
  1859. mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
  1860.     "~E) Other\r\n");
  1861. nodesync();
  1862. bputs("\r\n\1y\1hWhich: \1w");
  1863. uchar2ans(user->eyes,str);
  1864. if(!getstr(str,1,K_ALPHA|K_LINE|K_EDIT|K_AUTODEL|K_UPPER))
  1865.     return(0);
  1866. if(str[0]<='E')
  1867.     break; }
  1868. user->eyes=ans2uchar(str);
  1869. return(1);
  1870. }
  1871.  
  1872. int get_pref_multi(user_t *user)
  1873. {
  1874.     char str[128],*hdr,*p;
  1875.     int i;
  1876.  
  1877. while(1) {
  1878. checkline();
  1879. hdr="\1n\1l\1h\0014 Profile of Your Preferred Mate \1n  \1h\1b"
  1880.     "(Ctrl-C to Abort)\r\n\r\n";
  1881. bputs(hdr);
  1882. bputs("\1n\1h\1cSex of Your Preferred (Intimate/Romantic) Mate:\r\n\r\n");
  1883. mnemonics("~M) Male\r\n~F) Female\r\n~*) Either\r\n");
  1884. nodesync();
  1885. bputs("\r\n\1y\1hWhich: ");
  1886. str[0]=user->pref_sex;
  1887. str[1]=0;
  1888. if(!getstr(str,1,K_UPPER|K_EDIT|K_AUTODEL|K_LINE))
  1889.     break;
  1890. if(user->sex==str[0] && noyes("\r\nYou are homosexual"))
  1891.     continue;
  1892. if(str[0]=='M' || str[0]=='F' || str[0]=='*')
  1893.     break; }
  1894. user->pref_sex=str[0];
  1895. if(aborted) return(0);
  1896.  
  1897. strcpy(str,"\r\nAre you seeking an any-sex (non-romantic) friendship");
  1898. if(user->misc&USER_FRIEND)
  1899.     i=yesno(str);
  1900. else
  1901.     i=!noyes(str);
  1902. if(i)
  1903.     user->misc|=USER_FRIEND;
  1904. else
  1905.     user->misc&=~USER_FRIEND;
  1906.  
  1907. bputs(hdr);
  1908. bputs("\1n\1h\1cMarital Status of Your Preferred Mate:\r\n\r\n");
  1909. mnemonics("~A) Single\r\n~B) Married\r\n~C) Divorced\r\n~D) Widowed\r\n"
  1910.     "~E) Other\r\n~*) Any of the above\r\n");
  1911. nodesync();
  1912. bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
  1913. uchar2ans(user->pref_marital,str);
  1914. if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  1915.     return(0);
  1916. user->pref_marital=ans2uchar(str);
  1917. if(user->pref_marital!=0xff) {
  1918.     strcpy(str,"\r\nDo you require your mate have the martial status you "
  1919.         "indicated");
  1920.     if(user->misc&USER_REQMARITAL)
  1921.         i=yesno(str);
  1922.     else
  1923.         i=!noyes(str);
  1924.     if(i)
  1925.         user->misc|=USER_REQMARITAL;
  1926.     else
  1927.         user->misc&=~USER_REQMARITAL; }
  1928. else
  1929.     user->misc&=~USER_REQMARITAL;
  1930. if(aborted) return(0);
  1931.  
  1932. bputs(hdr);
  1933. bputs("\1n\1h\1cRace of Your Preferred Mate:\r\n\r\n");
  1934. mnemonics("~A) White\r\n~B) Black\r\n~C) Hispanic\r\n~D) Asian\r\n"
  1935.     "~E) American Indian\r\n~F) Middle Eastern\r\n~G) Other\r\n"
  1936.     "~*) Any of the above\r\n");
  1937. nodesync();
  1938. bputs("\r\n\1y\1hPlease enter up to 6 answers: ");
  1939. uchar2ans(user->pref_race,str);
  1940. if(!getstr(str,6,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  1941.     return(0);
  1942. user->pref_race=ans2uchar(str);
  1943. if(user->pref_race!=0xff) {
  1944.     strcpy(str,"\r\nDo you require your mate be of the race"
  1945.         " you indicated");
  1946.     if(user->misc&USER_REQRACE)
  1947.         i=yesno(str);
  1948.     else
  1949.         i=!noyes(str);
  1950.     if(i)
  1951.         user->misc|=USER_REQRACE;
  1952.     else
  1953.         user->misc&=~USER_REQRACE; }
  1954. else
  1955.     user->misc&=~USER_REQRACE;
  1956. if(aborted) return(0);
  1957.  
  1958. bputs(hdr);
  1959. bputs("\1n\1h\1cHair Color of Your Preferred Mate:\r\n\r\n");
  1960. mnemonics("~A) Blonde\r\n~B) Brown\r\n~C) Red\r\n~D) Black\r\n"
  1961.     "~E) Grey\r\n~F) Other\r\n~*) Any of the Above\r\n");
  1962. nodesync();
  1963. bputs("\r\n\1y\1hPlease enter up to 5 answers: ");
  1964. uchar2ans(user->pref_hair,str);
  1965. if(!getstr(str,5,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  1966.     return(0);
  1967. user->pref_hair=ans2uchar(str);
  1968. if(user->pref_hair!=0xff) {
  1969.     strcpy(str,"\r\nDo you require your mate have the hair color"
  1970.         " you indicated");
  1971.     if(user->misc&USER_REQHAIR)
  1972.         i=yesno(str);
  1973.     else
  1974.         i=!noyes(str);
  1975.     if(i)
  1976.         user->misc|=USER_REQHAIR;
  1977.     else
  1978.         user->misc&=~USER_REQHAIR; }
  1979. else
  1980.     user->misc&=~USER_REQHAIR;
  1981. if(aborted) return(0);
  1982.  
  1983.  
  1984. bputs(hdr);
  1985. bputs("\1n\1h\1cEye Color of Your Preferred Mate:\r\n\r\n");
  1986. mnemonics("~A) Blue\r\n~B) Green\r\n~C) Hazel\r\n~D) Brown\r\n"
  1987.     "~E) Other\r\n~*) Any of the above\r\n");
  1988. nodesync();
  1989. bputs("\r\n\1y\1hPlease enter up to 4 answers: ");
  1990. uchar2ans(user->pref_eyes,str);
  1991. if(!getstr(str,4,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  1992.     return(0);
  1993. user->pref_eyes=ans2uchar(str);
  1994. if(user->pref_eyes!=0xff) {
  1995.     strcpy(str,"\r\nDo you require your mate have the eye color"
  1996.         " you indicated");
  1997.     if(user->misc&USER_REQEYES)
  1998.         i=yesno(str);
  1999.     else
  2000.         i=!noyes(str);
  2001.     if(i)
  2002.         user->misc|=USER_REQEYES;
  2003.     else
  2004.         user->misc&=~USER_REQEYES; }
  2005. else
  2006.     user->misc&=~USER_REQEYES;
  2007. if(aborted) return(0);
  2008.  
  2009. bputs(hdr);
  2010. bputs("\1n\1h\1cZodiac Sign of Your Preferred Mate:\r\n\r\n");
  2011. mnemonics("~A) Aries\r\n~B) Taurus\r\n~C) Gemini\r\n~D) Cancer\r\n"
  2012.     "~E) Leo\r\n~F) Virgo\r\n~G) Libra\r\n~H) Scorpio\r\n");
  2013. mnemonics("~I) Sagittarius\r\n~J) Capricorn\r\n~K) Aquarius\r\n"
  2014.     "~L) Pisces\r\n~*) Any of the above\r\n");
  2015. nodesync();
  2016. bputs("\r\n\1y\1hPlease enter up to 11 answers: ");
  2017. bits2ans(user->pref_zodiac,str);
  2018. if(!getstr(str,11,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  2019.     return(0);
  2020. user->pref_zodiac=ans2bits(str);
  2021. if(user->pref_zodiac!=0xffff) {
  2022.     strcpy(str,"\r\nDo you require your mate have the zodiac sign"
  2023.         " you indicated");
  2024.     if(user->misc&USER_REQZODIAC)
  2025.         i=yesno(str);
  2026.     else
  2027.         i=!noyes(str);
  2028.     if(i)
  2029.         user->misc|=USER_REQZODIAC;
  2030.     else
  2031.         user->misc&=~USER_REQZODIAC; }
  2032. else
  2033.     user->misc&=~USER_REQZODIAC;
  2034. if(aborted) return(0);
  2035.  
  2036. return(1);
  2037. }
  2038.  
  2039. void mbtype_desc(char *mbtype)
  2040. {
  2041.     char str[128],type[128];
  2042.  
  2043. while(1) {
  2044.     checkline();
  2045.     cls();
  2046.     printfile("MB-TYPE.ASC");
  2047.     nodesync();
  2048.     bprintf("\r\n\1y\1hYour Type: \1w%s\r\n",mbtype);
  2049.     bputs("\1y\1hLetter or Type to define: ");
  2050.     memset(type,0,5);
  2051.     if(!getstr(type,4,K_ALPHA|K_UPPER|K_LINE))
  2052.         break;
  2053.     sprintf(str,"MB-%s.ASC",type);
  2054.     if(!fexist(str)) {
  2055.         bputs("\r\nInvalid Letter or Type!\r\n\r\n");
  2056.         pause();
  2057.         continue; }
  2058.     cls();
  2059.     printfile(str);
  2060.     if(lncntr && !aborted)
  2061.         pause(); }
  2062. }
  2063.  
  2064.  
  2065. int get_mbtype(user_t *user)
  2066. {
  2067.     char str[256];
  2068.     int file,i=0,e=0,n=0,s=0,f=0,t=0,p=0,j=0,q=0,ch;
  2069.     FILE *stream;
  2070.  
  2071. aborted=0;
  2072. cls();
  2073. printfile("MB-INTRO.ASC");
  2074. if(aborted)
  2075.     return(0);
  2076. bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
  2077.     "Only your personality type will be visible to other users.\r\n\r\n");
  2078. nodesync();
  2079. if(!yesno("Continue with test"))
  2080.     return(0);
  2081.  
  2082. if((file=nopen("MB-TYPE.QUE",O_RDONLY))==-1 ||
  2083.     (stream=fdopen(file,"r"))==NULL) {
  2084.     bputs("\7\r\i\hCan't open MBTYPE.QUE\r\n\1p");
  2085.     return(0); }
  2086. while(!feof(stream)) {
  2087.     if(!fgets(str,200,stream))
  2088.         break;
  2089.     str[57]=0;
  2090.     truncsp(str);
  2091.     if(!str[0])
  2092.         break;
  2093.     cls();
  2094.     nodesync();
  2095.     bprintf("\1y\1hMyers-Briggs Personality Test  \1bQuestion #\1w%u  "
  2096.         "\1b(Ctrl-C to Abort)\r\n"
  2097.         "\r\n%s:\r\n\r\n"
  2098.         "[\1wA\1b] %.44s\r\n"
  2099.         "[\1wB\1b] %.44s\r\n"
  2100.         "[\1wC\1b] cannot decide\r\n\r\n"
  2101.         "Which: \1w"
  2102.         ,q+1,str,str+58,str+102);
  2103.     ch=getkeys("ABC",0);
  2104.     if(aborted) {
  2105.         fclose(stream);
  2106.         return(0); }
  2107.     if(ch=='C') {
  2108.         q++;
  2109.         continue; }
  2110.  
  2111.     if(ch=='A')
  2112.         ch=str[146];
  2113.     else
  2114.         ch=str[147];
  2115.  
  2116.     switch(ch) {
  2117.         case 'E':
  2118.             e++;
  2119.             break;
  2120.         case 'I':
  2121.             i++;
  2122.             break;
  2123.         case 'S':
  2124.             s++;
  2125.             break;
  2126.         case 'N':
  2127.             n++;
  2128.             break;
  2129.         case 'T':
  2130.             t++;
  2131.             break;
  2132.         case 'F':
  2133.             f++;
  2134.             break;
  2135.         case 'J':
  2136.             j++;
  2137.             break;
  2138.         case 'P':
  2139.             p++;
  2140.             break; }
  2141.     q++; }
  2142.  
  2143. fclose(stream);
  2144.  
  2145. if(i>e)
  2146.     user->mbtype[0]='I';
  2147. else if(i==e)
  2148.     user->mbtype[0]='*';
  2149. else
  2150.     user->mbtype[0]='E';
  2151.  
  2152. if(s>n)
  2153.     user->mbtype[1]='S';
  2154. else if(s==n)
  2155.     user->mbtype[1]='*';
  2156. else
  2157.     user->mbtype[1]='N';
  2158.  
  2159. if(t>f)
  2160.     user->mbtype[2]='T';
  2161. else if(t==f)
  2162.     user->mbtype[2]='*';
  2163. else
  2164.     user->mbtype[2]='F';
  2165.  
  2166. if(p>j)
  2167.     user->mbtype[3]='P';
  2168. else if(p==j)
  2169.     user->mbtype[3]='*';
  2170. else
  2171.     user->mbtype[3]='J';
  2172.  
  2173. bprintf("\1l\1y\1hYour Myers-Briggs Personality Type is \1w%s\r\n\r\n"
  2174.     ,user->mbtype);
  2175.  
  2176. if(yesno("Would you like to see the personality type descriptions"))
  2177.     mbtype_desc(user->mbtype);
  2178. return(1);
  2179. }
  2180.  
  2181.  
  2182. int get_purity(user_t *user)
  2183. {
  2184.     char str[128];
  2185.     int file,no_ans=0,pos_ans=0;
  2186.     FILE *stream;
  2187.  
  2188. aborted=0;
  2189. if(!fexist("PURITY.QUE") || purity_age>getage(user->birth))
  2190.     return(0);
  2191. cls();
  2192. printfile("PURITY.ASC");
  2193. if(aborted)
  2194.     return(0);
  2195. bputs("\1n\1hYour answers will be kept secret.\r\n\r\n"
  2196.     "Only your purity score will be visible to other users.\r\n\r\n");
  2197. nodesync();
  2198. if(!yesno("Continue with test"))
  2199.     return(0);
  2200. if((file=nopen("PURITY.QUE",O_RDONLY))==-1 ||
  2201.     (stream=fdopen(file,"r"))==NULL) {
  2202.     bputs("\7\r\i\hCan't open PURITY.QUE\r\n\1p");
  2203.     return(0); }
  2204. while(!feof(stream)) {
  2205.     if(!fgets(str,81,stream))
  2206.         break;
  2207.     truncsp(str);
  2208.     cls();
  2209.     if(str[0]=='*') {
  2210.         printfile(str+1);
  2211.         if(lncntr && !aborted)
  2212.             pause();
  2213.         if(aborted)
  2214.             break;
  2215.         continue; }
  2216.     nodesync();
  2217.     bprintf("\1y\1hPurity Test  \1bQuestion #\1w%u  \1b(Ctrl-C to Abort)\r\n"
  2218.         "\r\nHave you ever:\r\n\r\n"
  2219.         ,++pos_ans);
  2220.     if(noyes(str))
  2221.         no_ans++;
  2222.     if(aborted)
  2223.         break; }
  2224.  
  2225. fclose(stream);
  2226. if(aborted)
  2227.     return(0);
  2228.  
  2229. user->purity=((float)no_ans/pos_ans)*100.0;
  2230. bprintf("\1l\1y\1hCongratulations, you are \1w%u%%\1y pure!\r\n\r\n"
  2231.     ,user->purity);
  2232. pause();
  2233. return(1);
  2234. }
  2235.  
  2236. int get_que(int i, user_t *inuser)
  2237. {
  2238.     char str[128];
  2239.     int j,k,x,y,u;
  2240.     user_t user=*inuser;
  2241.  
  2242. if(que[i]->req_age>getage(inuser->birth))
  2243.     return(0);
  2244. for(j=0;j<que[i]->total_ques && !aborted;j++) {
  2245.  
  2246.     u=user_quenum(que[i]->name,user);
  2247.     if(u==-1) {             /* not already answered */
  2248.         for(u=0;u<5;u++)    /* search for unused questionnaire slot */
  2249.             if(sys_quenum(user.queans[u].name)==-1)
  2250.                 break;
  2251.         if(u==5) {        /* All questionnaire slots used!?? */
  2252.             bputs("\r\n\7Questionnaire error, inform sysop!\r\n");
  2253.             pause();
  2254.             return(0); } }
  2255.     strcpy(user.queans[u].name,que[i]->name);
  2256.     cls();
  2257.     bprintf("\1n\1m\1hQuestionnaire: \1y%-25s \1mQuestion: "
  2258.         "\1y%d \1mof \1y%d  \1h\1b(Ctrl-C to Abort)\r\n\r\n"
  2259.         ,que[i]->desc,j+1,que[i]->total_ques);
  2260.     bprintf("\1w\1h%s\r\n\r\n",que[i]->que[j].txt);
  2261.     for(k=0;k<que[i]->que[j].answers;k++)
  2262.         bprintf("\1h\1b%c\1w) \1g%s\r\n",'A'+k,que[i]->que[j].ans[k]);
  2263.     nodesync();
  2264.     bprintf("\1n\1g\r\nChoose %s%d answer%s to describe "
  2265.         "\1hyourself\1n\1g%s: "
  2266.         ,que[i]->que[j].allowed > 1 ? "up to ":""
  2267.         ,que[i]->que[j].allowed,que[i]->que[j].allowed > 1 ? "s":""
  2268.         ,j ? " or \1h-\1n\1g to go back" : "");
  2269.     bits2ans(user.queans[u].self[j],str);
  2270.     getstr(str,que[i]->que[j].allowed,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
  2271.     if(aborted)
  2272.         return(0);
  2273.     truncsp(str);
  2274.     if(!str[0]) {
  2275.         j--;
  2276.         continue; }
  2277.     if(str[0]=='-') {
  2278.         if(j) j-=2;
  2279.         else j--;
  2280.         continue; }
  2281.     y=strlen(str);
  2282.     for(x=0;x<y;x++)
  2283.         if(!isalpha(str[x]) || str[x]-'A'>que[i]->que[j].answers-1)
  2284.             break;
  2285.     if(x<y) {
  2286.         j--;
  2287.         continue; }
  2288.     user.queans[u].self[j]=ans2bits(str);
  2289.     nodesync();
  2290.     bprintf("\1n\1g\r\n%s%d answer%s to describe your \1hpreferred mate"
  2291.         "\1n\1g or \1h*\1n\1g for any: "
  2292.         ,que[i]->que[j].answers > 1 ? "Up to ":""
  2293.         ,que[i]->que[j].answers,que[i]->que[j].answers > 1 ? "s":"");
  2294.     if(user.queans[u].pref[j])
  2295.         bits2ans(user.queans[u].pref[j],str);
  2296.     getstr(str,que[i]->que[j].answers,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
  2297.     if(aborted)
  2298.         return(0);
  2299.     truncsp(str);
  2300.     if(!str[0]) {
  2301.         j--;
  2302.         continue; }
  2303.     y=strlen(str);
  2304.     for(x=0;x<y;x++)
  2305.         if(isalpha(str[x]) && str[x]-'A'>que[i]->que[j].answers-1)
  2306.             break;
  2307.     if(x<y) {
  2308.         j--;
  2309.         continue; }
  2310.     user.queans[u].pref[j]=ans2bits(str); }
  2311. *inuser=user;
  2312. return(1);
  2313. }
  2314.  
  2315. /* Gets/updates profile from user. Returns 0 if aborted. */
  2316.  
  2317. char get_user_info(user_t *user)
  2318. {
  2319.     char str[128],*p,*hdr;
  2320.     int i,j,k,x,y;
  2321.  
  2322. while(1) {
  2323.     checkline();
  2324.     timeleft=0xffff;
  2325.     aborted=0;
  2326.     main_user_info(*user);
  2327.     CRLF;
  2328.     bputs("\1n\1h");
  2329.     bputs("\1b[\1wA\1b] Your name, height, weight, income, location, and "
  2330.             "text\r\n"
  2331.           "\1b[\1wB\1b] Your marital status, race, hair color, and eye "
  2332.             "color\r\n"
  2333.           "\1b[\1wC\1b] Preferred age, height, weight, location, and income\r\n"
  2334.           "\1b[\1wD\1b] Preferred sex, marital status, race, hair color, eye "
  2335.             "color, and zodiac\r\n"
  2336.           );
  2337.     for(i=0;i<total_ques;i++) {
  2338.         if(que[i]->req_age>getage(user->birth))
  2339.             continue;
  2340.         bprintf("\1b[\1w%u\1b] \1w%s \1bquestionnaire\1b (%u questions) \1w%s\r\n"
  2341.             ,i+1,que[i]->desc,que[i]->total_ques
  2342.             ,user_quenum(que[i]->name,*user)==-1 ? "[Unanswered]":"[Answered]");
  2343.             }
  2344.     bprintf("\1b[\1wM\1b] Myers-Briggs personality test (70 questions) "
  2345.         "\1w[%s]\r\n",user->mbtype[0] ? user->mbtype : "Unanswered");
  2346.     if(fexist("PURITY.QUE") && purity_age<=getage(user->birth))
  2347.         bprintf("\1b[\1wP\1b] Purity test \1w(%u%% pure)\r\n"
  2348.             ,user->purity);
  2349.     bputs("\r\n\1bWhich or [\1wQ\1b]uit: \1w");
  2350.     i=getkeys("ABCDMPQ",total_ques);
  2351.     if(i&0x8000) {
  2352.         i&=~0x8000;
  2353.         i--;
  2354.         get_que(i,user);
  2355.         continue; }
  2356.  
  2357.     switch(i) {
  2358.         case 'A':
  2359.             get_your_det(user);
  2360.             break;
  2361.         case 'C':
  2362.             get_pref_det(user);
  2363.             break;
  2364.         case 'B':
  2365.             get_your_multi(user);
  2366.             break;
  2367.         case 'D':
  2368.             get_pref_multi(user);
  2369.             break;
  2370.         case 'M':
  2371.             get_mbtype(user);
  2372.             break;
  2373.         case 'P':
  2374.             get_purity(user);
  2375.             break;
  2376.         case 'Q':
  2377.             return(1); } }
  2378. }
  2379.  
  2380. void write_user()
  2381. {
  2382.     char str[256];
  2383.  
  2384. if(auto_update && time(NULL)-useron.updated>(long)auto_update*24L*60L*60L)
  2385.     useron.updated=time(NULL);
  2386. fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
  2387. fwrite(&useron,sizeof(user_t),1,stream);
  2388. fflush(stream);
  2389.  
  2390. ixb.updated=useron.updated;
  2391. if(useron.misc&USER_DELETED)
  2392.     ixb.number=0;
  2393. else
  2394.     ixb.number=useron.number;
  2395. strcpy(str,useron.name);
  2396. strupr(str);
  2397. ixb.name=crc32(str);
  2398. ixb.system=system_crc;
  2399. fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
  2400. fwrite(&ixb,sizeof(ixb_t),1,index);
  2401. fflush(index);
  2402. if(!ixb.number) {
  2403.     sprintf(str,"%04u.MSG",useron.number);
  2404.     remove(str); }
  2405. }
  2406.  
  2407.  
  2408. void add_userinfo()
  2409. {
  2410.     static user_t user;
  2411.     char str[128];
  2412.     ushort tleft=timeleft;
  2413.     int i;
  2414.  
  2415. if(!cdt_warning(profile_cdt))
  2416.     return;
  2417. timeleft=0xffff;
  2418. user.number=user_number;
  2419. user.sex=user_sex;
  2420. strcpy(user.name,user_name);
  2421. strcpy(user.realname,user_name);
  2422. strcpy(user.system,system_name);
  2423. strcpy(user.birth,user_birth);
  2424. strcpy(user.zipcode,user_zipcode);
  2425. sprintf(user.min_zipcode,"%c0000",user_zipcode[0]);
  2426. sprintf(user.max_zipcode,"%c9999",user_zipcode[0]);
  2427. strcpy(user.location,user_location);
  2428. if(user.sex!='M' && user.sex!='F') {
  2429.     if(yesno("Are you of male gender"))
  2430.         user.sex='M';
  2431.     else
  2432.         user.sex='F'; }
  2433. if(!getage(user.birth))
  2434.     while(1) {
  2435.         checkline();
  2436.         cls();
  2437.         bputs("\1l\1y\1hYour birthdate (MM/DD/YY): ");
  2438.         if(!getstr(user.birth,8,K_UPPER|K_LINE))
  2439.             return;
  2440.         if(getage(user.birth))
  2441.             break; }
  2442.  
  2443. user.pref_sex=user.sex=='M' ? 'F' : 'M';
  2444. user.created=time(NULL);
  2445. if(!get_your_det(&user) || !get_your_multi(&user) || !get_pref_multi(&user)
  2446.     || !get_pref_det(&user)) {
  2447.     timeleft=tleft;
  2448.     return; }
  2449. for(i=0;i<total_ques;i++) {
  2450.     aborted=0;
  2451.     if(que[i]->req_age>getage(user.birth))
  2452.         continue;
  2453.     timeleft=0xffff;
  2454.     cls();
  2455.     bprintf("\1w\1h%s Questionnaire: \1y%u questions\r\n\r\n"
  2456.         "\1cAnswers will be viewable by other users.\r\n\r\n"
  2457.         ,que[i]->desc,que[i]->total_ques);
  2458.     if(yesno("Continue with questionnaire"))
  2459.         get_que(i,&user); }
  2460. timeleft=0xffff;
  2461. get_mbtype(&user);
  2462. timeleft=0xffff;
  2463. get_purity(&user);
  2464. if(!get_user_info(&user)) {
  2465.     timeleft=tleft;
  2466.     return; }
  2467. user.updated=time(NULL);
  2468. useron=user;
  2469. bputs("\1n\1h\r\nSaving...");
  2470. rewind(index);
  2471. while(!feof(index)) {
  2472.     if(!fread(&ixb,sizeof(ixb_t),1,index))
  2473.         break;
  2474.     if(!ixb.number) {      /* Deleted User */
  2475.         fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
  2476.         break; } }
  2477.  
  2478. useron_record=ftell(index)/sizeof(ixb_t);
  2479.  
  2480. write_user();
  2481. adjust_cdt(profile_cdt);
  2482.  
  2483. if(notify_user && notify_user!=user_number) {
  2484.     sprintf(str,"\1n\1hSMM: \1y%s \1madded %s profile to the Match Maker.\r\n"
  2485.         ,user_name,user_sex=='M' ? "his":"her");
  2486.     if(node_dir[0])
  2487.         putsmsg(notify_user,str);
  2488.     else
  2489.         puttgram(notify_user,str); }
  2490.  
  2491. timeleft=tleft;
  2492. }
  2493.  
  2494. void delphoto(user_t user)
  2495. {
  2496.     char fname[64],path[128];
  2497.     int i;
  2498.     struct ffblk ff;
  2499.  
  2500. if(!(user.misc&USER_PHOTO))
  2501.     return;
  2502. for(i=0;user.system[i];i++)
  2503.     if(isalnum(user.system[i]))
  2504.         break;
  2505. if(!user.system[i])
  2506.     fname[0]='~';
  2507. else
  2508.     fname[0]=user.system[i];
  2509. for(i=strlen(user.system)-1;i>0;i--)
  2510.     if(isalnum(user.system[i]))
  2511.         break;
  2512. if(i<=0)
  2513.     fname[1]='~';
  2514. else
  2515.     fname[1]=user.system[i];
  2516. fname[2]=0;
  2517. strupr(user.system);
  2518. strcat(fname,base41(crc16(user.system),tmp));
  2519. strcat(fname,base41(user.number,tmp));
  2520. strcat(fname,".*");
  2521. strupr(fname);
  2522. sprintf(path,"PHOTO\\%s",fname);
  2523. i=findfirst(path,&ff,0);
  2524. if(i)
  2525.     return;
  2526. sprintf(path,"PHOTO\\%s",ff.ff_name);
  2527. if(remove(path))
  2528.     bprintf("\1r\1h\7%s couldn't be removed!\1n\r\n",path);
  2529. else
  2530.     bprintf("\1r\1hPhoto removed.\r\n");
  2531. }
  2532.  
  2533.  
  2534. void smm_exit()
  2535. {
  2536.     char str[128];
  2537.     int i;
  2538.     FILE *in,*out;
  2539.  
  2540. if(io_int) {
  2541.     io_int=0;
  2542.     ivhctl(0); }
  2543. if(com_port) {
  2544.     for(i=0;i<5;i++)
  2545.         if(!rioctl(TXBC))        /* wait for rest of output */
  2546.             break;
  2547.         else
  2548.             mswait(1000);
  2549.     rioini(0,0); }
  2550. if(useron.number) {
  2551.     useron.lastin=time(NULL);
  2552.     write_user(); }
  2553. if(stream)
  2554.     fclose(stream);
  2555. if(cdt_adjustment) {
  2556.     if(node_dir[0]) {
  2557.         sprintf(str,"%sMODUSER.DAT",node_dir);
  2558.         if((out=fopen(str,"wt"))==NULL) {
  2559.             bprintf("Error opening %s for write\r\n",str);
  2560.             return; }
  2561.         fprintf(out,"%ld",cdt_adjustment);
  2562.         fclose(out); }
  2563.     else {                            /* Write back credits to DOOR.SYS */
  2564.         strcpy(str,door_sys);
  2565.         str[strlen(str)-1]='_';
  2566.         remove(str);
  2567.         rename(door_sys,str);
  2568.         if((in=fopen(str,"rb"))==NULL) {
  2569.             bprintf("Error opening %s for read\r\n",str);
  2570.             return; }
  2571.         if((out=fopen(door_sys,"wb"))==NULL) {
  2572.             bprintf("Error opening %s for write\r\n",door_sys);
  2573.             return; }
  2574.         for(i=0;!feof(in);i++) {
  2575.             if(!fgets(tmp,128,in))
  2576.                 break;
  2577.             if(i+1==30)
  2578.                 fprintf(out,"%ld\r\n",-(cdt_adjustment/1024L));
  2579.             else if(i+1==31)
  2580.                 fprintf(out,"%ld\r\n",(user_cdt+cdt_adjustment)/1024L);
  2581.             else
  2582.                 fprintf(out,"%s",tmp); }
  2583.         fclose(in);
  2584.         fclose(out);
  2585.         remove(str);
  2586.         } }
  2587. }
  2588.  
  2589. time_t checktime()
  2590. {
  2591.     struct tm tm;
  2592.  
  2593. memset(&tm,0,sizeof(tm));
  2594. tm.tm_year=94;
  2595. tm.tm_mday=1;
  2596. return(mktime(&tm)^0x2D24BD00L);
  2597. }
  2598.  
  2599. void statusline(void)
  2600. {
  2601.     int col,row;
  2602.  
  2603. col=lclwx();
  2604. row=lclwy();
  2605. lclxy(1,node_scrnlen);
  2606. lclatr(CYAN|HIGH|(BLUE<<4));
  2607. lputs("  ");
  2608. lprintf("%-25.25s %02d %-25.25s  %02d %c %s"
  2609.     ,user_name,user_level,user_realname[0] ? user_realname : user_location
  2610.     ,getage(user_birth)
  2611.     ,user_sex ? user_sex : SP
  2612.     ,user_phone);
  2613. lputc(CLREOL);
  2614. lclatr(LIGHTGRAY);
  2615. lclxy(col,row);
  2616. }
  2617.  
  2618.  
  2619. int minor_protection(user_t user)
  2620. {
  2621. if(!user_number || !age_split || SYSOP)
  2622.     return(0);
  2623. if(getage(user_birth)<age_split && getage(user.birth)>=age_split)
  2624.     return(1);
  2625. if(getage(user_birth)>=age_split && getage(user.birth)<age_split)
  2626.     return(1);
  2627. return(0);
  2628. }
  2629.  
  2630. void main(int argc, char **argv)
  2631. {
  2632.     char    str[512],name[128],desc[128],gotoname[128],*p,ext,ch;
  2633.     int     i,j,k,file,match,found;
  2634.     uint    base=0xffff;
  2635.     ushort    tleft;
  2636.     long    l,offset;
  2637.     ulong    name_crc,sys_crc,*crc_lst,ul;
  2638.     FILE    *fp,*que_lst;
  2639.     user_t    user;
  2640.     wall_t    wall;
  2641.     struct    ffblk ff;
  2642.  
  2643. nodefile=-1;
  2644. node_misc=NM_LOWPRIO;
  2645. com_port=-1;
  2646. com_base=0;
  2647. com_irq=com_rate=0;
  2648. node_dir[0]=exec_dir[0]=temp_dir[0]=ctrl_dir[0]=door_sys[0]=system_name[0]=0;
  2649. sys_name[0]=0;
  2650.  
  2651. p=getenv("SBBSNODE");
  2652. if(p) {
  2653.     strcpy(node_dir,p);
  2654.     if(node_dir[strlen(node_dir)-1]!='\\')
  2655.         strcat(node_dir,"\\");
  2656.     initdata(); }
  2657.  
  2658. gotoname[0]=0;
  2659. for(i=1;i<argc;i++) {
  2660.     if(argv[i][0]=='/') {
  2661.         switch(toupper(argv[i][1])) {
  2662.             case 'P':
  2663.                 com_port=atoi(argv[i]+2);
  2664.                 break;
  2665.             case 'I':
  2666.                 com_irq=atoi(argv[i]+2);
  2667.                 break;
  2668.             case 'C':
  2669.                 com_base=ahtoul(argv[i]+2);
  2670.                 break;
  2671.             case 'R':
  2672.                 com_rate=atol(argv[i]+2);
  2673.                 break;
  2674.             case 'T':
  2675.                 mswtyp=atoi(argv[i]+2);
  2676.                 break;
  2677.             case 'N':
  2678.                 node_dir[0]=0;
  2679.                 break;
  2680.             default:
  2681.                 printf("\nusage: SMM [DOOR.SYS] [/option] [/option] [...] [user name]\n");
  2682.                 printf("\n");
  2683.                 printf("where:\n");
  2684.                 printf("       DOOR.SYS is the path and filename of DOOR.SYS\n");
  2685.                 printf("\n");
  2686.                 printf("       /p# sets com port\n");
  2687.                 printf("       /i# sets com irq\n");
  2688.                 printf("       /c# sets com I/O address (or DIGI or FOSSIL)\n");
  2689.                 printf("       /r# sets com rate\n");
  2690.                 printf("       /t# sets time-slice API support\n");
  2691.                 printf("\n");
  2692.                 printf("       user name (if specified) is user to look-up\n");
  2693.                 exit(1); }
  2694.         continue; }
  2695.     if(!node_dir[0] && !door_sys[0]) {
  2696.         strcpy(door_sys,argv[i]);
  2697.         continue; }
  2698.     if(gotoname[0])
  2699.         strcat(gotoname," ");
  2700.     strcat(gotoname,argv[i]); }
  2701.  
  2702. if(!node_dir[0] && !door_sys[0]) {
  2703.     printf("\n\7SBBSNODE environment variable not set and DOOR.SYS not "
  2704.         "specified.\n");
  2705.     exit(1); }
  2706.  
  2707. if(door_sys[0]) {
  2708.     #ifdef __TURBOC__
  2709.         ctrlbrk(cbreakh);
  2710.     #endif
  2711.  
  2712.     #ifdef __WATCOMC__
  2713.         putenv("TZ=UCT0");
  2714.         setvbuf(stdout,NULL,_IONBF,0);
  2715.         setvbuf(stderr,NULL,_IONBF,0);
  2716.     #endif
  2717.  
  2718.     if(setmode(fileno(stderr),O_BINARY)==-1) {     /* eliminate LF expansion */
  2719.         printf("\n\7Can't set stderr to BINARY\n");
  2720.         exit(1); }
  2721.  
  2722.     starttime=time(NULL);            /* initialize start time stamp */
  2723.     wordwrap[0]=0;                    /* set wordwrap to null */
  2724.     attr(LIGHTGRAY);                /* initialize color and curatr to plain */
  2725.     mnehigh=LIGHTGRAY|HIGH;         /* mnemonics highlight color */
  2726.     mnelow=GREEN;                    /* mnemonics normal text color */
  2727.     sec_warn=180;                    /* seconds till inactivity warning */
  2728.     sec_timeout=300;                /* seconds till inactivity timeout */
  2729.     tos=lncntr=0;                    /* init topofscreen and linecounter to 0 */
  2730.     lastnodemsg=0;                    /* Last node to send message to */
  2731.     aborted=0;                        /* Ctrl-C hit flag */
  2732.  
  2733.     fp=fopen(door_sys,"rb");
  2734.     if(!fp) {
  2735.         printf("\n\7ERROR opening %s\n",door_sys);
  2736.         exit(2); }
  2737.     user_misc=user_flags2[0]=user_flags3[0]=user_flags4[0]=0;
  2738.     user_rest[0]=user_exempt[0]=0;
  2739.     user_sex=user_address[0]=user_zipcode[0]=user_realname[0]=0;
  2740.     str[0]=0;
  2741.     fgets(str,81,fp);                // 01: COM port - if local
  2742.     if(com_port==-1)
  2743.         com_port=atoi(str+3);
  2744.     str[0]=0;
  2745.     fgets(str,81,fp);                // 02: DCE Rate
  2746.     user_dce=atoi(str);
  2747.     fgets(str,81,fp);                // 03: Data bits
  2748.     str[0]=0;
  2749.     fgets(str,81,fp);                // 04: Node num
  2750.     node_num=atoi(str);
  2751.     str[0]=0;
  2752.     fgets(str,81,fp);                // 05: DTE rate
  2753.     if(!com_rate)
  2754.         com_rate=atol(str);
  2755.     fgets(str,81,fp);                // 06: Screen display
  2756.     fgets(str,81,fp);                // 07: Printer toggle
  2757.     fgets(str,81,fp);                // 08: Page bell
  2758.     fgets(str,81,fp);                // 09: Caller alarm
  2759.     str[0]=0;
  2760.     fgets(str,81,fp);                // 10: User name
  2761.     sprintf(user_name,"%.25s",str);
  2762.     truncsp(user_name);
  2763.     str[0]=0;
  2764.     fgets(str,81,fp);                // 11: User location
  2765.     sprintf(user_location,"%.30s",str);
  2766.     truncsp(user_location);
  2767.     str[0]=0;
  2768.     fgets(str,81,fp);                // 12: Home phone
  2769.     sprintf(user_phone,"%.12s",str);
  2770.     truncsp(user_phone);
  2771.     fgets(str,81,fp);                // 13: Work phone
  2772.     fgets(str,81,fp);                // 14: Password
  2773.     str[0]=0;
  2774.     fgets(str,81,fp);                // 15: Security Level
  2775.     user_level=atoi(str);
  2776.     fgets(str,81,fp);                // 16: Total logons
  2777.     fgets(str,81,fp);                // 17: Last on date
  2778.     str[0]=0;
  2779.     fgets(str,81,fp);                // 18: Time left in seconds
  2780.     timeleft=atoi(str);
  2781.     fgets(str,81,fp);                // 19: Time left in minutes
  2782.     str[0]=0;
  2783.     fgets(str,81,fp);                // 20: Graphics
  2784.     if(!strnicmp(str,"GR",2))
  2785.         user_misc|=(COLOR|ANSI);
  2786.     str[0]=0;
  2787.     fgets(str,81,fp);                // 21: Screen length
  2788.     user_rows=atoi(str);
  2789.     if(user_rows<10)
  2790.         user_rows=24;
  2791.     fgets(str,81,fp);                // 22: Expert?
  2792.     str[0]=0;
  2793.     fgets(str,81,fp);                // 23: Registered conferences
  2794.     sprintf(user_flags1,"%.26s",str);
  2795.     truncsp(user_flags1);
  2796.     fgets(str,81,fp);                // 24: Conference came from
  2797.     str[0]=0;
  2798.     fgets(str,81,fp);                // 25: User's expiration date
  2799.     user_expire=dstrtounix(str);
  2800.     str[0]=0;
  2801.     fgets(str,81,fp);                // 26: User's number
  2802.     user_number=atoi(str);
  2803.     fgets(str,81,fp);                // 27: Default protocol
  2804.     fgets(str,81,fp);                // 28: Total uploads
  2805.     fgets(str,81,fp);                // 29: Total downloads
  2806.     fgets(str,81,fp);                // 30: Kbytes downloaded today
  2807.     str[0]=0;
  2808.     fgets(str,81,fp);                // 31: Max Kbytes to download today
  2809.     user_cdt=atol(str)*1024UL;
  2810.     str[0]=0;
  2811.     fgets(str,81,fp);                // 32: Birthday
  2812.     truncsp(str);
  2813.     sprintf(user_birth,"%.8s",str);
  2814.     fgets(str,81,fp);                // 33: Path to MAIN
  2815.     fgets(str,81,fp);                // 34: Path to GEN
  2816.     str[0]=0;
  2817.     fgets(str,81,fp);                 // 35: Sysop's name
  2818.     sprintf(sys_op,"%.40s",str);
  2819.     truncsp(sys_op);
  2820.     fclose(fp);
  2821.     con_fp=stderr;
  2822.     if(setmode(fileno(con_fp),O_BINARY)==-1) {     /* eliminate LF expansion */
  2823.         printf("Can't set console output to BINARY\n");
  2824.         exit(1); }
  2825.     }
  2826.  
  2827. if(!user_number) {
  2828.     printf("\7\nERROR: Invalid user number (%u)\n",user_number);
  2829.     exit(5); }
  2830.  
  2831. if(*(&riobp-1)!=23) {
  2832.     printf("Wrong rciol.obj\n");
  2833.     exit(1); }
  2834.  
  2835. node_scrnlen=lclini(0xd<<8);      /* Tab expansion, no CRLF expansion */
  2836. lclini(node_scrnlen-1);
  2837.  
  2838. if(com_port) {
  2839.     lprintf("\r\nInitializing COM port %u: ",com_port);
  2840.     switch(com_base) {
  2841.         case 0xb:
  2842.             lputs("PC BIOS");
  2843.             rioctl(I14PC);
  2844.             if(!com_irq) com_irq=com_port-1;
  2845.             break;
  2846.         case 0xffff:
  2847.         case 0xd:
  2848.             lputs("DigiBoard");
  2849.             rioctl(I14DB);
  2850.             if(!com_irq) com_irq=com_port-1;
  2851.             break;
  2852.         case 0xe:
  2853.             lputs("PS/2 BIOS");
  2854.             rioctl(I14PS);
  2855.             if(!com_irq) com_irq=com_port-1;
  2856.             break;
  2857.         case 0xf:
  2858.             lputs("FOSSIL");
  2859.             rioctl(I14FO);
  2860.             if(!com_irq) com_irq=com_port-1;
  2861.             break;
  2862.         case 0:
  2863.             base=com_port;
  2864.             lputs("UART I/O (BIOS), ");
  2865.             if(com_irq)
  2866.                 lprintf("IRQ %d",com_irq);
  2867.             else lputs("default IRQ");
  2868.             break;
  2869.         default:
  2870.             base=com_base;
  2871.             lprintf("UART I/O %Xh, ",com_base);
  2872.             if(com_irq)
  2873.                 lprintf("IRQ %d",com_irq);
  2874.             else lputs("default IRQ");
  2875.             break; }
  2876.  
  2877.     if(base==0xffff)
  2878.         lprintf(" channel %u",com_irq);
  2879.     i=rioini(base,com_irq);
  2880.     if(i) {
  2881.         lprintf(" - Failed! (%d)\r\n",i);
  2882.         exit(1); }
  2883.     if(mdm_misc&MDM_FLOWCTRL)
  2884.         rioctl(IOSM|CTSCK|RTSCK); /* set rts/cts chk */
  2885.     if(com_rate)
  2886.         setbaud((uint)(com_rate&0xffffL));
  2887.     msr=&riobp-1; }
  2888.  
  2889. /* STATUS LINE */
  2890. statusline();
  2891.  
  2892. rioctl(TSTYPE|mswtyp);     /* set time-slice API type */
  2893.  
  2894. rioctl(CPTON);            /* ctrl-p translation */
  2895.  
  2896. i=INT29L;
  2897. if(com_port)
  2898.     i|=(INT29R|INT16);
  2899. ivhctl(i);
  2900. io_int=1;
  2901.  
  2902. atexit(smm_exit);
  2903.  
  2904. printf("\r\nSynchronet Match Maker  v%s  Developed 1995-1997 Rob Swindell\n\n"
  2905.     ,SMM_VER);
  2906.  
  2907. if(checktime()) {
  2908.     printf("Time problem!\n");
  2909.     return; }
  2910.  
  2911. if((file=nopen("SMM.CFG",O_RDONLY))==-1) {
  2912.     bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
  2913.     exit(1); }
  2914. if((stream=fdopen(file,"w+b"))==NULL) {
  2915.     bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
  2916.     exit(1); }
  2917. str[0]=0;
  2918. fgets(str,128,stream);
  2919. purity_age=atoi(str);
  2920. str[0]=0;
  2921. fgets(str,128,stream);
  2922. min_age=atoi(str);
  2923. str[0]=0;
  2924. fgets(str,128,stream);
  2925. min_level=atoi(str);
  2926.  
  2927. req_flags1[0]=0;
  2928. fgets(req_flags1,128,stream);
  2929. req_flags1[27]=0;
  2930. truncsp(req_flags1);
  2931.  
  2932. req_flags2[0]=0;
  2933. fgets(req_flags2,128,stream);
  2934. req_flags2[27]=0;
  2935. truncsp(req_flags2);
  2936.  
  2937. req_flags3[0]=0;
  2938. fgets(req_flags3,128,stream);
  2939. req_flags3[27]=0;
  2940. truncsp(req_flags3);
  2941.  
  2942. req_flags4[0]=0;
  2943. fgets(req_flags4,128,stream);
  2944. req_flags4[27]=0;
  2945. truncsp(req_flags4);
  2946.  
  2947. str[0]=0;
  2948. fgets(str,128,stream);
  2949. profile_cdt=atol(str);
  2950. str[0]=0;
  2951. fgets(str,128,stream);
  2952. telegram_cdt=atol(str);
  2953. str[0]=0;
  2954. fgets(str,128,stream);
  2955. auto_update=atoi(str);
  2956. str[0]=0;
  2957. fgets(str,128,stream);
  2958. notify_user=atoi(str);
  2959.  
  2960. fgets(str,128,stream);        // regnum
  2961.  
  2962. str[0]=0;
  2963. fgets(str,128,stream);
  2964. telegram_level=atoi(str);
  2965.  
  2966. str[0]=0;
  2967. fgets(str,128,stream);
  2968. que_level=atoi(str);
  2969.  
  2970. str[0]=0;
  2971. fgets(str,128,stream);
  2972. wall_level=atoi(str);
  2973.  
  2974. str[0]=0;
  2975. fgets(str,128,stream);
  2976. wall_cdt=atol(str);
  2977.  
  2978. str[0]=0;
  2979. fgets(str,128,stream);
  2980. que_cdt=atol(str);
  2981.  
  2982. fgets(zmodem_send,128,stream);
  2983. if(!zmodem_send[0])
  2984.     strcpy(zmodem_send,DEFAULT_ZMODEM_SEND);
  2985. truncsp(zmodem_send);
  2986.  
  2987. str[0]=0;
  2988. fgets(str,128,stream);
  2989. smm_misc=atol(str);
  2990.  
  2991. fgets(str,128,stream);
  2992. sprintf(system_name,"%.40s",str);
  2993. truncsp(system_name);
  2994.  
  2995. fgets(local_view,128,stream);
  2996. truncsp(local_view);
  2997.  
  2998. str[0]=0;
  2999. fgets(str,128,stream);
  3000. sysop_level=atoi(str);
  3001. if(!sysop_level)
  3002.     sysop_level=90;
  3003.  
  3004. str[0]=0;
  3005. fgets(str,128,stream);
  3006. wall_age=atoi(str);
  3007.  
  3008. str[0]=0;
  3009. fgets(str,128,stream);
  3010. age_split=atoi(str);
  3011.  
  3012. fclose(stream);
  3013.  
  3014. if(!system_name[0] && sys_name[0])
  3015.     strcpy(system_name,sys_name);
  3016. if(!system_name[0]) {
  3017.     printf("\7\nERROR: System name not specified\n");
  3018.     exit(3) ; }
  3019.  
  3020. sprintf(str,"%.25s",system_name);
  3021. strupr(str);
  3022. system_crc=crc32(str);
  3023.  
  3024. if((file=open("SMM.DAB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
  3025.     ,S_IWRITE|S_IREAD))==-1) {
  3026.     bprintf("\r\n\7Error opening/creating SMM.DAB\r\n");
  3027.     exit(1); }
  3028. if((stream=fdopen(file,"w+b"))==NULL) {
  3029.     bprintf("\r\n\7Error converting SMM.DAB file handle to stream\r\n");
  3030.     exit(1); }
  3031. setvbuf(stream,0L,_IOFBF,4096);
  3032.  
  3033. if((file=open("SMM.IXB",O_RDWR|O_BINARY|SH_DENYNO|O_CREAT
  3034.     ,S_IWRITE|S_IREAD))==-1) {
  3035.     bprintf("\r\n\7Error opening/creating SMM.IXB\r\n");
  3036.     exit(1); }
  3037. if((index=fdopen(file,"w+b"))==NULL) {
  3038.     bprintf("\r\n\7Error converting SMM.IXB file handle to stream\r\n");
  3039.     exit(1); }
  3040. setvbuf(stream,0L,_IOFBF,1024);
  3041.  
  3042. trashfile=NULL;
  3043. if((file=open("SMM.CAN",O_RDONLY|SH_DENYNO))!=-1) {
  3044.     trashfile=fdopen(file,"rb");
  3045.     setvbuf(trashfile,NULL,_IOFBF,4096); }
  3046.  
  3047. total_ques=0;
  3048. i=nopen("QUE.LST",O_RDONLY);
  3049. if(i!=-1)
  3050.     que_lst=fdopen(i,"rb");
  3051. else
  3052.     que_lst=NULL;
  3053. i=0;
  3054. while(que_lst && !feof(que_lst) && i<5) {
  3055.     if(!fgets(name,81,que_lst))
  3056.         break;
  3057.     truncsp(name);
  3058.     strupr(name);
  3059.     sprintf(str,"%s.QUE",name);
  3060.     if(!fgets(desc,81,que_lst))
  3061.         break;
  3062.     truncsp(desc);
  3063.     if(!fgets(tmp,81,que_lst))
  3064.         break;
  3065.     truncsp(tmp);
  3066.     if((file=nopen(str,O_RDONLY))!=-1) {
  3067.         fp=fdopen(file,"rb");
  3068.         total_ques++;
  3069.         if((que[i]=(questionnaire_t *)MALLOC(sizeof(questionnaire_t)))==NULL) {
  3070.             bprintf("Can't malloc questionnaires!\r\n");
  3071.             exit(1); }
  3072.         sprintf(que[i]->name,"%.8s",name);
  3073.         sprintf(que[i]->desc,"%.25s",desc);
  3074.         que[i]->req_age=atoi(tmp);
  3075.         fgets(str,128,fp);
  3076.         que[i]->total_ques=atoi(str);
  3077.         if(que[i]->total_ques<1 || que[i]->total_ques>20) {
  3078.             bprintf("Invalid number of questions (%d) in questionnaire #%d\r\n"
  3079.                 ,que[i]->total_ques,i+1);
  3080.             exit(1); }
  3081.         for(j=0;j<que[i]->total_ques;j++) {
  3082.             if(!fgets(str,128,fp))
  3083.                 break;
  3084.             truncsp(str);
  3085.             if(!str[0])
  3086.                 break;
  3087.             str[80]=0;
  3088.             strcpy(que[i]->que[j].txt,str);
  3089.             fgets(str,128,fp);
  3090.             que[i]->que[j].answers=atoi(str);
  3091.             if(que[i]->que[j].answers<1 || que[i]->que[j].answers>16) {
  3092.                 bprintf("Invalid number of answers (%d) in question #%d "
  3093.                     "of questionnaire #%d\r\n"
  3094.                     ,que[i]->que[j].answers,j+1,i+1);
  3095.                 exit(1); }
  3096.             fgets(str,128,fp);
  3097.             que[i]->que[j].allowed=atoi(str);
  3098.             for(k=0;k<que[i]->que[j].answers;k++) {
  3099.                 if(!fgets(str,128,fp))
  3100.                     break;
  3101.                 truncsp(str);
  3102.                 if(!str[0])
  3103.                     break;
  3104.                 str[60]=0;
  3105.                 strcpy(que[i]->que[j].ans[k],str); }
  3106.             que[i]->que[j].answers=k; }
  3107.  
  3108.         que[i]->total_ques=j; }
  3109.     fclose(fp);
  3110.     i++; }
  3111. fclose(que_lst);
  3112.  
  3113. lncntr=0;
  3114. getsmsg(user_number);
  3115. if(lncntr)
  3116.     pause();
  3117.  
  3118. memset(&useron,0,sizeof(user_t));
  3119.  
  3120. atexit(smm_exit);
  3121.  
  3122. bputs("\1n\1hSearching for your profile...");
  3123. rewind(index);
  3124. while(!feof(index)) {
  3125.     if(!fread(&ixb,sizeof(ixb_t),1,index))
  3126.         break;
  3127.     if(ixb.system==system_crc && ixb.number==user_number) {
  3128.         useron_record=(ftell(index)-sizeof(ixb_t))/sizeof(ixb_t);
  3129.         fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
  3130.         fread(&user,sizeof(user_t),1,stream);
  3131.         if(stricmp(user.realname,user_name)) {    /* new name, so delete it */
  3132.             user.misc|=USER_DELETED;
  3133.             fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
  3134.             fwrite(&user,sizeof(user_t),1,stream);
  3135.             fseek(stream,0,SEEK_CUR);
  3136.             fseek(index,ftell(index)-sizeof(ixb_t),SEEK_SET);
  3137.             ixb.number=0;
  3138.             fwrite(&ixb,sizeof(ixb_t),1,index);
  3139.             sprintf(str,"%04u.MSG",user_number);
  3140.             remove(str);
  3141.             continue; }
  3142.         useron=user;        /* name matches, same user */
  3143.         break; } }
  3144. fflush(stream);
  3145. fflush(index);
  3146. CRLF;
  3147.  
  3148. if(useron.number && useron.sex!='M' && useron.sex!='F') {
  3149.     if(yesno("Are you of male gender"))
  3150.         useron.sex='M';
  3151.     else
  3152.         useron.sex='F';
  3153.     write_user();
  3154.     user_sex=useron.sex; }
  3155.  
  3156. if(!useron.number && user_sex!='M' && user_sex!='F' && can_add()) {
  3157.     if(yesno("Are you of male gender"))
  3158.         user_sex='M';
  3159.     else
  3160.         user_sex='F'; }
  3161.  
  3162. if(!useron.number && can_add()) {
  3163.     sprintf(str,"%04u.MSG",user_number);
  3164.     remove(str);
  3165.     printfile("SMM_LOGO.ASC");
  3166.     if(yesno("\r\nYour profile doesn't exist. Create it now"))
  3167.         add_userinfo(); }
  3168.  
  3169. if(gotoname[0]) {
  3170.     strupr(gotoname);
  3171.     name_crc=crc32(gotoname);
  3172.     rewind(index);
  3173.     i=0;
  3174.     while(!feof(index)) {
  3175.         if(!fread(&ixb,sizeof(ixb_t),1,index))
  3176.             break;
  3177.         if(!ixb.number)    /* DELETED */
  3178.             continue;
  3179.         if(ixb.name!=name_crc)
  3180.             continue;
  3181.         fseek(stream
  3182.             ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  3183.             *sizeof(user_t),SEEK_SET);
  3184.         if(!fread(&user,sizeof(user_t),1,stream))
  3185.             continue;
  3186.         if(minor_protection(user))
  3187.             continue;
  3188.         i=1;
  3189.         if(!long_user_info(user))
  3190.             break; }
  3191.     if(!i) {
  3192.         bprintf("\r\n\1n\1h%s \1rnot found.\r\n",gotoname);
  3193.         pause(); }
  3194.     return; }
  3195.  
  3196. /*********************************************/
  3197. /* ALL User Messages (from Digital Dynamics) */
  3198. /*********************************************/
  3199. for(i=findfirst("ALL*.MSG",&ff,0);!i;i=findnext(&ff)) {
  3200.     if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
  3201.         bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
  3202.         pause();
  3203.         continue; }
  3204.     if((fp=fdopen(j,"rb"))==NULL) {
  3205.         bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
  3206.         pause();
  3207.         continue; }
  3208.     str[0]=0;
  3209.     fgets(str,128,fp);
  3210.     truncsp(str);
  3211.     ul=ahtoul(str);    /* Expiration date */
  3212.     ul^=0x305F6C81UL;
  3213.     attr(LIGHTGRAY);
  3214.     cls();
  3215.     while(!feof(fp)) {
  3216.         if(!fgets(str,128,fp))
  3217.             break;
  3218.         bputs(str); }
  3219.     fclose(fp);
  3220.     CRLF;
  3221.     if(ul<=time(NULL))
  3222.         remove(ff.ff_name); }
  3223.  
  3224. /**************************************************/
  3225. /* One-time User Messages (from Digital Dynamics) */
  3226. /**************************************************/
  3227. for(i=findfirst("ONE*.MSG",&ff,0);!i;i=findnext(&ff)) {
  3228.     if(fdate_dir(ff.ff_name)<useron.lastin)
  3229.         continue;
  3230.     if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
  3231.         bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
  3232.         pause();
  3233.         continue; }
  3234.     if((fp=fdopen(j,"rb"))==NULL) {
  3235.         bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
  3236.         pause();
  3237.         continue; }
  3238.     str[0]=0;
  3239.     fgets(str,128,fp);
  3240.     truncsp(str);
  3241.     ul=ahtoul(str);    /* Expiration date */
  3242.     ul^=0x305F6C81UL;
  3243.     attr(LIGHTGRAY);
  3244.     cls();
  3245.     while(!feof(fp)) {
  3246.         if(!fgets(str,128,fp))
  3247.             break;
  3248.         bputs(str); }
  3249.     fclose(fp);
  3250.     CRLF;
  3251.     if(ul<=time(NULL))
  3252.         remove(ff.ff_name); }
  3253.  
  3254. /******************************************/
  3255. /* Sysop Messages (from Digital Dynamics) */
  3256. /******************************************/
  3257. for(i=findfirst("SYS*.MSG",&ff,0);SYSOP && !i;i=findnext(&ff)) {
  3258.     if((j=nopen(ff.ff_name,O_RDONLY))==-1) {
  3259.         bprintf("\1n\1r\1hCan't open \1w%s\r\n",ff.ff_name);
  3260.         pause();
  3261.         continue; }
  3262.     if((fp=fdopen(j,"rb"))==NULL) {
  3263.         bprintf("\1n\1r\1hCan't fdopen \1w%s\r\n",ff.ff_name);
  3264.         pause();
  3265.         continue; }
  3266.     str[0]=0;
  3267.     fgets(str,128,fp);
  3268.     truncsp(str);
  3269.     ul=ahtoul(str);    /* Expiration date */
  3270.     ul^=0x305F6C81UL;
  3271.     attr(LIGHTGRAY);
  3272.     cls();
  3273.     while(!feof(fp)) {
  3274.         if(!fgets(str,128,fp))
  3275.             break;
  3276.         bputs(str); }
  3277.     fclose(fp);
  3278.     CRLF;
  3279.     if(ul<=time(NULL) || !noyes("Delete message"))
  3280.         remove(ff.ff_name); }
  3281.  
  3282. statusline();
  3283. while(1) {
  3284.     checkline();
  3285.     aborted=0;
  3286.     attr(LIGHTGRAY);
  3287.     cls();
  3288.  
  3289.     bprintf("\1n  \1b\1hSynchronet \1cMatch Maker  \1bv%s (XSDK v%s)  "
  3290.         "Developed 1995-1997 Rob Swindell\1n\r\n\r\n",SMM_VER,xsdk_ver);
  3291.     printfile("SMM_LOGO.ASC");
  3292.     CRLF;
  3293.  
  3294.     l=filelength(fileno(stream));
  3295.     if(l<0) l=0;
  3296.     sprintf(str,"\1n\1cThere are \1h%lu\1n\1c entries in the user profile "
  3297.         "database.\r\n",l/(long)sizeof(user_t));
  3298.     center(str);
  3299.  
  3300.     sprintf(str,"%04u.MSG",user_number);
  3301.     if(fexist(str))
  3302.         center("\1h\1mYou have awaiting telegrams!\r\n");
  3303.  
  3304.     if(flength("WALL.DAB")>0)
  3305.         center("\1h\1cThere is writing on the Wall.\r\n");
  3306.  
  3307.     if(!useron.number)
  3308.         center("\1h\1rYou have not yet created a profile!\r\n");
  3309.  
  3310.     printfile("SMM_MAIN.ASC");
  3311.  
  3312.     nodesync();             /* Display any waiting messages */
  3313.  
  3314.     bprintf("\r\n%32s\1b\1hWhich or [\1wQ\1b]uit: \1h\1w",nulstr);
  3315.     ch=getkey(K_UPPER);
  3316. //      bprintf("%c\r\n",ch);
  3317.     bputs("\r\1>");
  3318.     switch(ch) {
  3319.         case '?':
  3320.             break;
  3321.         case '*':
  3322.             if(!SYSOP)
  3323.                 break;
  3324.             bputs("\1n\1hSearching...");
  3325.             rewind(stream);
  3326.             while(!feof(stream) && !aborted) {
  3327.                 if(!fread(&user,sizeof(user_t),1,stream))
  3328.                     break;
  3329.                 if(user.misc&USER_DELETED) {
  3330.                     sprintf(str,"\r\nUndelete \1c%s \1b(\1c%s@%s\1b)"
  3331.                         ,user.name,user.realname,user.system);
  3332.                     if(!yesno(str))
  3333.                         continue;
  3334.                     fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
  3335.                     user.misc&=~USER_DELETED;
  3336.                     fwrite(&user,sizeof(user_t),1,stream);
  3337.                     fseek(stream,0,SEEK_CUR);
  3338.                     fseek(index
  3339.                         ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
  3340.                         *sizeof(ixb_t),SEEK_SET);
  3341.                     strcpy(str,user.name);
  3342.                     strupr(str);
  3343.                     ixb.name=crc32(str);
  3344.                     sprintf(str,"%.25s",user.system);
  3345.                     strupr(str);
  3346.                     ixb.system=crc32(str);
  3347.                     ixb.updated=user.updated;
  3348.                     ixb.number=user.number;
  3349.                     fwrite(&ixb,sizeof(ixb_t),1,index);
  3350.                     } }
  3351.             fflush(stream);
  3352.             fflush(index);
  3353.             break;
  3354.         case '!':
  3355.             if(!SYSOP)
  3356.                 break;
  3357.             cls();
  3358.             bputs("\1n\1hSystems Participating in Your Database:\r\n\r\n\1m");
  3359.             crc_lst=NULL;
  3360.             j=0;
  3361.             rewind(stream);
  3362.             while(!feof(stream) && !aborted) {
  3363.                 if(!fread(&user,sizeof(user_t),1,stream))
  3364.                     break;
  3365.                 if(user.misc&USER_DELETED || !(user.misc&USER_FROMSMB))
  3366.                     continue;
  3367.                 if(!smm_pause)
  3368.                     lncntr=0;
  3369.                 sprintf(str,"%.25s",user.system);
  3370.                 strupr(str);
  3371.                 sys_crc=crc32(str);
  3372.                 for(i=0;i<j;i++)
  3373.                     if(sys_crc==crc_lst[i])
  3374.                         break;
  3375.                 if(i==j) {
  3376.                     crc_lst=REALLOC(crc_lst,(j+1)*sizeof(ulong));
  3377.                     if(crc_lst==NULL) {
  3378.                         printf("REALLOC error!\n");
  3379.                         pause();
  3380.                         break; }
  3381.                     crc_lst[j++]=sys_crc;
  3382.                     bprintf("%s\r\n",user.system); } }
  3383.             if(crc_lst)
  3384.                 FREE(crc_lst);
  3385.             if(j)
  3386.                 bprintf("\1n\r\n\1h%u systems listed.\r\n",j);
  3387.             pause();
  3388.             break;
  3389.         case '\\':
  3390.             if(!SYSOP)
  3391.                 break;
  3392.             bprintf("Rebuilding Index...");
  3393.             rewind(stream);
  3394.             rewind(index);
  3395.             while(!feof(stream)) {
  3396.                 if(!fread(&user,sizeof(user_t),1,stream))
  3397.                     break;
  3398.                 if(user.misc&USER_DELETED)
  3399.                     ixb.number=0;
  3400.                 else
  3401.                     ixb.number=user.number;
  3402.                 strupr(user.name);
  3403.                 ixb.name=crc32(user.name);
  3404.                 strupr(user.system);
  3405.                 user.system[25]=0;
  3406.                 ixb.system=crc32(user.system);
  3407.                 ixb.updated=user.updated;
  3408.                 fwrite(&ixb,sizeof(ixb_t),1,index); }
  3409.             break;
  3410.         case 'R':
  3411.             if(useron.number) {
  3412.                 bputs("\1y\1hMinimum match percentage: \1w");
  3413.                 sprintf(str,"%u",useron.min_match);
  3414.                 if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
  3415.                     break;
  3416.                 useron.min_match=atoi(str);
  3417.                 if(useron.min_match>100)
  3418.                     useron.min_match=100; }
  3419.             rewind(stream);
  3420.             bprintf("\1n\1l\1hSearching...");
  3421.             while(!feof(stream) && !aborted) {
  3422.                 if(!fread(&user,sizeof(user_t),1,stream))
  3423.                     break;
  3424.                 if(user.misc&USER_DELETED)
  3425.                     continue;
  3426.                 if(minor_protection(user))
  3427.                     continue;
  3428.                 if(useron.min_match && useron.number) {
  3429.                     match=total_match(useron,user);
  3430.                     if(match<useron.min_match)
  3431.                         continue; }
  3432.                 if(!long_user_info(user))
  3433.                     break;
  3434.                 if(!smm_pause)
  3435.                     lncntr=0;
  3436.                 bprintf("\1n\1l\1hSearching..."); }
  3437.             break;
  3438.         case 'F':
  3439.             bputs("\1y\1hText to search for: ");
  3440.             if(!getstr(str,25,K_UPPER|K_LINE))
  3441.                 break;
  3442.             ext=yesno("\r\nDisplay extended profiles");
  3443.             cls();
  3444.             if(!smm_pause && !ext)
  3445.                 printfile("LIST_HDR.ASC");
  3446.             rewind(stream);
  3447.             i=0;
  3448.             while(!aborted) {
  3449.                 bprintf("\1n\1l\1hSearching...");
  3450.                 while(!feof(stream) && !aborted) {
  3451.                     if(!fread(&user,sizeof(user_t),1,stream))
  3452.                         break;
  3453.                     if(user.misc&USER_DELETED)
  3454.                         continue;
  3455.                     if(minor_protection(user))
  3456.                         continue;
  3457.                     tmpuser=user;
  3458.                     sprintf(tmp,"%lu",user.number);
  3459.                     strupr(user.name);
  3460.                     strupr(user.realname);
  3461.                     strupr(user.system);
  3462.                     strupr(user.location);
  3463.                     strupr(user.note[0]);
  3464.                     strupr(user.note[1]);
  3465.                     strupr(user.note[2]);
  3466.                     strupr(user.note[3]);
  3467.                     strupr(user.note[4]);
  3468.                     if(strstr(user.name,str)
  3469.                         || strstr(user.location,str)
  3470.                         || strstr(user.mbtype,str)
  3471.                         || strstr(user.note[0],str)
  3472.                         || strstr(user.note[1],str)
  3473.                         || strstr(user.note[2],str)
  3474.                         || strstr(user.note[3],str)
  3475.                         || strstr(user.note[4],str)
  3476.                         || (SYSOP && strstr(user.realname,str))
  3477.                         || (SYSOP && strstr(user.system,str))
  3478.                         || (SYSOP && !strcmp(tmp,str))
  3479.                         ) {
  3480.                         i=1;
  3481.                         if(ext && !long_user_info(tmpuser))
  3482.                             break;
  3483.                         if(!ext && short_user_info(tmpuser)==0)
  3484.                             break;
  3485.                         if(!smm_pause)
  3486.                             lncntr=0; } }
  3487.                 if(aborted || ext || !lncntr)
  3488.                     break;
  3489.                 user.number=0;
  3490.                 if(short_user_info(user)>=0)
  3491.                     break; }
  3492.             if(!i)
  3493.                 bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
  3494.             break;
  3495.         case 'G':
  3496.             bputs("\1y\1hUser name: ");
  3497.             if(!getstr(str,25,K_UPPER|K_LINE))
  3498.                 break;
  3499.             truncsp(str);
  3500.             name_crc=crc32(str);
  3501.             rewind(index);
  3502.             i=0;
  3503.             while(!feof(index)) {
  3504.                 if(!fread(&ixb,sizeof(ixb_t),1,index))
  3505.                     break;
  3506.                 if(!ixb.number)    /* DELETED */
  3507.                     continue;
  3508.                 if(ixb.name!=name_crc)
  3509.                     continue;
  3510.                 fseek(stream
  3511.                     ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  3512.                     *sizeof(user_t),SEEK_SET);
  3513.                 if(!fread(&user,sizeof(user_t),1,stream))
  3514.                     continue;
  3515.                 if(minor_protection(user))
  3516.                     continue;
  3517.                 i=1;
  3518.                 if(!long_user_info(user))
  3519.                     break; }
  3520.             if(!i)
  3521.                 bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
  3522.             break;
  3523.         case 'L':
  3524.             if(useron.number) {
  3525.                 bputs("\1y\1hMinimum match percentage: \1w");
  3526.                 sprintf(str,"%u",useron.min_match);
  3527.                 if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
  3528.                     break;
  3529.                 useron.min_match=atoi(str);
  3530.                 if(useron.min_match>100)
  3531.                     useron.min_match=100; }
  3532.             cls();
  3533.             if(!smm_pause)
  3534.                 printfile("LIST_HDR.ASC");
  3535.             rewind(stream);
  3536.             while(!aborted) {
  3537.                 while(!feof(stream) && !aborted) {
  3538.                     if(!fread(&user,sizeof(user_t),1,stream))
  3539.                         break;
  3540.                     if(user.misc&USER_DELETED)
  3541.                         continue;
  3542.                     if(minor_protection(user))
  3543.                         continue;
  3544.                     if(useron.min_match && useron.number) {
  3545.                         match=total_match(useron,user);
  3546.                         if(match<useron.min_match)
  3547.                             continue; }
  3548.                     if(!short_user_info(user))
  3549.                         break;
  3550.                     if(!smm_pause)
  3551.                         lncntr=0; }
  3552.                 if(aborted || !lncntr)
  3553.                     break;
  3554.                 user.number=0;
  3555.                 if(short_user_info(user)>=0)
  3556.                     break; }
  3557.             break;
  3558.  
  3559.         case 'N':
  3560.             while(1) {
  3561.                 checkline();
  3562.                 bputs("\1y\1hLast update (MM/DD/YY): ");
  3563.                 if(useron.number)
  3564.                     unixtodstr(useron.lastin,str);
  3565.                 else
  3566.                     str[0]=0;
  3567.                 if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  3568.                     break;
  3569.                 if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
  3570.                     && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
  3571.                     && isdigit(str[6]) && isdigit(str[7]))
  3572.                     break;
  3573.                 bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
  3574.             if(!str[0] || aborted)
  3575.                 break;
  3576.             l=dstrtounix(str);
  3577.             if(useron.number) {
  3578.                 bputs("\1y\1h\r\nMinimum match percentage: \1w");
  3579.                 sprintf(str,"%u",useron.min_match);
  3580.                 if(!getstr(str,3,K_NUMBER|K_EDIT|K_AUTODEL) || aborted)
  3581.                     break;
  3582.                 useron.min_match=atoi(str);
  3583.                 if(useron.min_match>100)
  3584.                     useron.min_match=100; }
  3585.             ext=!noyes("\r\nDisplay extended profiles");
  3586.             if(aborted)
  3587.                 break;
  3588.             cls();
  3589.             if(!ext && !smm_pause)
  3590.                 printfile("LIST_HDR.ASC");
  3591.             rewind(index);
  3592.             while(!aborted) {
  3593.                 while(!feof(index) && !aborted) {
  3594.                     if(!smm_pause)
  3595.                         lncntr=0;
  3596.                     if(!fread(&ixb,sizeof(ixb_t),1,index))
  3597.                         break;
  3598.                     if(!ixb.number)     /* DELETED */
  3599.                         continue;
  3600.                     if(ixb.updated>=l) {
  3601.                         fseek(stream
  3602.                             ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  3603.                             *sizeof(user_t),SEEK_SET);
  3604.                         if(!fread(&user,sizeof(user_t),1,stream))
  3605.                             continue;
  3606.                         if(minor_protection(user))
  3607.                             continue;
  3608.                         if(useron.min_match && useron.number) {
  3609.                             match=total_match(useron,user);
  3610.                             if(match<useron.min_match)
  3611.                                 continue; }
  3612.                         if(ext && !long_user_info(user))
  3613.                             break;
  3614.                         if(!ext && short_user_info(user)==0)
  3615.                             break;
  3616.                         continue; } }
  3617.                 if(aborted || ext || !lncntr)
  3618.                     break;
  3619.                 user.number=0;
  3620.                 if(short_user_info(user)>=0)
  3621.                     break; }
  3622.             break;
  3623.  
  3624.         case 'U':
  3625.         case 'W':       /* Create/Edit Profile */
  3626.             if(!can_add()) {
  3627.                 bprintf("\1h\1rYou have insufficient access to create a "
  3628.                     "profile.\r\n\r\n");
  3629.                 break; }
  3630.  
  3631.             if(!useron.number) {
  3632.                 add_userinfo();
  3633.                 break; }
  3634.  
  3635.             user=useron;
  3636.             tleft=timeleft;
  3637.             if(!get_user_info(&user)) {
  3638.                 timeleft=tleft;
  3639.                 break; }
  3640.  
  3641.             if(!memcmp(&user,&useron,sizeof(user_t))) {
  3642.                 timeleft=tleft;
  3643.                 break; }
  3644.  
  3645.             if(!yesno("Save changes")) {
  3646.                 timeleft=tleft;
  3647.                 break; }
  3648.             timeleft=tleft;
  3649.             user.updated=time(NULL);
  3650.             useron=user;
  3651.             write_user();
  3652.             break;
  3653.  
  3654.         case 'D':
  3655.             if(SYSOP) {
  3656.                 bputs("Name to Delete: ");
  3657.                 if(useron.number) {
  3658.                     strcpy(str,useron.name);
  3659.                     strupr(str); }
  3660.                 else
  3661.                     str[0]=0;
  3662.                 getstr(str,25,K_UPPER|K_LINE|K_EDIT|K_AUTODEL);
  3663.                 rewind(stream);
  3664.                 while(!feof(stream)) {
  3665.                     if(!fread(&user,sizeof(user_t),1,stream))
  3666.                         break;
  3667.                     strcpy(tmp,user.name);
  3668.                     strupr(tmp);
  3669.                     if(!(user.misc&USER_DELETED) && strstr(tmp,str)) {
  3670.                         sprintf(tmp,"Delete %s (%s@%s)"
  3671.                             ,user.name,user.realname,user.system);
  3672.                         i=noyes(tmp);
  3673.                         if(aborted)
  3674.                             break;
  3675.                         if(i)
  3676.                             continue;
  3677.                         fseek(stream,ftell(stream)-sizeof(user_t),SEEK_SET);
  3678.                         fseek(index
  3679.                             ,((ftell(stream)-sizeof(user_t))/sizeof(user_t))
  3680.                             *sizeof(ixb_t),SEEK_SET);
  3681.                         user.misc|=USER_DELETED;
  3682.                         fwrite(&user,sizeof(user_t),1,stream);
  3683.                         fseek(stream,0,SEEK_CUR);
  3684.                         memset(&ixb,0,sizeof(ixb_t));
  3685.                         fwrite(&ixb,sizeof(ixb_t),1,index);
  3686.                         fflush(stream);
  3687.                         fflush(index);
  3688.                         delphoto(user);
  3689.                         if(user.number==user_number
  3690.                             && !stricmp(user.system,system_name))
  3691.                             useron.number=0;
  3692.                         break; } }
  3693.                 if(aborted)
  3694.                     break;
  3695.                 break; }
  3696.             if(!useron.number) {
  3697.                 bputs("\1h\1rYour profile doesn't exist.\r\n\r\n");
  3698.                 break; }
  3699.             if(noyes("Are you sure you want to delete your profile"))
  3700.                 break;
  3701.             if(!cdt_warning(-profile_cdt))
  3702.                 break;
  3703.             sprintf(str,"%04u.MSG",user_number);
  3704.             remove(str);
  3705.             fseek(stream,useron_record*sizeof(user_t),SEEK_SET);
  3706.             useron.misc|=USER_DELETED;
  3707.             fwrite(&useron,sizeof(user_t),1,stream);
  3708.             fflush(stream);
  3709.             memset(&ixb,0,sizeof(ixb_t));
  3710.             fseek(index,useron_record*sizeof(ixb_t),SEEK_SET);
  3711.             fwrite(&ixb,sizeof(ixb_t),1,index);
  3712.             fflush(index);
  3713.             delphoto(user);
  3714.             useron.number=0;
  3715.             aborted=0;
  3716.             bputs("\r\n\1h\1r\1iProfile deleted.\r\n");
  3717.             adjust_cdt(-profile_cdt);
  3718.             break;
  3719.         case 'P':
  3720.             smm_pause=!smm_pause;
  3721.             bprintf("\1r\1hScreen pause is now \1w%s\r\n\r\n"
  3722.                 ,smm_pause ? "ON":"OFF");
  3723.             break;
  3724.         case 'M':
  3725.             mbtype_desc(useron.mbtype);
  3726.             break;
  3727.         case 'H':
  3728.             cls();
  3729.             printfile("SMM_HELP.ASC");
  3730.             break;
  3731.         case 'O':
  3732.             if(noyes("Hang-up now"))
  3733.                 break;
  3734.             dtr(5);
  3735.             if(node_dir) {
  3736.                 sprintf(str,"%sHANGUP.NOW",node_dir);
  3737.                 fopen(str,"wb");
  3738.                 nodesync(); }
  3739.             return;
  3740.         case 'S':
  3741.             bputs("\1y\1hUser name: ");
  3742.             if(!getstr(str,25,K_UPPER|K_LINE))
  3743.                 break;
  3744.             truncsp(str);
  3745.             name_crc=crc32(str);
  3746.             rewind(index);
  3747.             i=0;
  3748.             while(!feof(index)) {
  3749.                 if(!fread(&ixb,sizeof(ixb_t),1,index))
  3750.                     break;
  3751.                 if(!ixb.number)    /* DELETED */
  3752.                     continue;
  3753.                 if(ixb.name!=name_crc)
  3754.                     continue;
  3755.                 fseek(stream
  3756.                     ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  3757.                     *sizeof(user_t),SEEK_SET);
  3758.                 if(!fread(&user,sizeof(user_t),1,stream))
  3759.                     continue;
  3760.                 if(minor_protection(user))
  3761.                     continue;
  3762.                 i=1;
  3763.                 if(send_telegram(user))
  3764.                     break; }
  3765.             if(!i)
  3766.                 bprintf("\r\n\1n\1h%s \1rnot found.\r\n",str);
  3767.             break;
  3768.         case 'T':
  3769.             sprintf(str,"%04u.MSG",user_number);
  3770.             if(!fexist(str)) {
  3771.                 bputs("\1r\1hYou have no telegrams waiting.\r\n\r\n");
  3772.                 break; }
  3773.             cls();
  3774.             printfile(str);
  3775.             if(noyes("\r\nDelete all telegrams waiting for you"))
  3776.                 break;
  3777.             remove(str);
  3778.             break;
  3779.         case 'V':   /* Visit the wall */
  3780.             if(getage(user_birth)<wall_age && !SYSOP) {
  3781.                 bputs("\1r\1hSorry, you're too young to view the wall.\r\n");
  3782.                 pause();
  3783.                 break; }
  3784.             while(1) {
  3785.                 checkline();
  3786.                 bputs("\1y\1hView writing since (MM/DD/YY): ");
  3787.                 if(useron.number)
  3788.                     unixtodstr(useron.lastin,str);
  3789.                 else
  3790.                     str[0]=0;
  3791.                 if(!getstr(str,8,K_UPPER|K_LINE|K_EDIT|K_AUTODEL))
  3792.                     break;
  3793.                 if(isdigit(str[0]) && isdigit(str[1]) && str[2]=='/'
  3794.                     && isdigit(str[3]) && isdigit(str[4]) && str[5]=='/'
  3795.                     && isdigit(str[6]) && isdigit(str[7]))
  3796.                     break;
  3797.                 bputs("\r\n\1h\1rInvalid date!\r\n\r\n"); }
  3798.             if(aborted)
  3799.                 break;
  3800.             l=dstrtounix(str);
  3801.             ext=yesno("\r\nDisplay extended information when available");
  3802.             if(aborted)
  3803.                 break;
  3804.             strcpy(str,"WALL.DAB");
  3805.             if((file=sopen(str,O_RDWR|O_BINARY|O_CREAT,SH_DENYNO
  3806.                 ,S_IREAD|S_IWRITE))==-1) {
  3807.                 bprintf("\r\nError opening %s\r\n",str);
  3808.                 break; }
  3809.             cls();
  3810.             offset=0L;
  3811.             while(!eof(file) && !aborted) {
  3812.                 if(read(file,&wall,sizeof(wall_t))!=sizeof(wall_t))
  3813.                     break;
  3814.                 if(wall.imported<l)
  3815.                     continue;
  3816.                 strcpy(str,wall.name);
  3817.                 strupr(str);
  3818.                 name_crc=crc32(str);
  3819.                 sprintf(str,"%.25s",wall.system);
  3820.                 strupr(str);
  3821.                 sys_crc=crc32(str);
  3822.                 rewind(index);
  3823.                 i=0;
  3824.                 user.sex=0;
  3825.                 while(ext && !feof(index) && !aborted) {
  3826.                     if(!fread(&ixb,sizeof(ixb_t),1,index))
  3827.                         break;
  3828.                     if(!ixb.number)    /* DELETED */
  3829.                         continue;
  3830.                     if(ixb.name!=name_crc || ixb.system!=sys_crc)
  3831.                         continue;
  3832.                     fseek(stream
  3833.                         ,((ftell(index)-sizeof(ixb_t))/sizeof(ixb_t))
  3834.                         *sizeof(user_t),SEEK_SET);
  3835.                     if(!fread(&user,sizeof(user_t),1,stream))
  3836.                         continue;
  3837.                     if(minor_protection(user))
  3838.                         break;
  3839.                     main_user_info(user);
  3840.                     if(useron.number) {
  3841.                         CRLF;
  3842.                         bprintf("\1h\1mThis user meets your profile "
  3843.                             "preferences:\1w%3u%%            "
  3844.                             ,basic_match(useron,user));
  3845.                         bprintf("\1n\1gCreated: \1h%s\r\n"
  3846.                             ,unixtodstr(user.created,str));
  3847.                         bprintf("\1h\1mYou meet this user's profile "
  3848.                             "preferences:\1w%3u%%            "
  3849.                             ,basic_match(user,useron));
  3850.                         bprintf("\1n\1gUpdated: \1h%s\r\n"
  3851.                             ,unixtodstr(user.updated,str)); }
  3852.  
  3853.                     i=1;
  3854.                     CRLF;
  3855.                     break; }
  3856.                 if(!i) {
  3857.                     if(ext)
  3858.                         cls();
  3859.                     bprintf("\1n\1h%s ",wall.name); }
  3860.                 bprintf("\1n\1h\1cWrote on %s:\r\n"
  3861.                     ,timestr(&wall.written));
  3862.                 for(j=0;j<5;j++) {
  3863.                     if(!wall.text[j][0])
  3864.                         break;
  3865.                     bprintf("\1n\1%c%5s%s\r\n"
  3866.                         ,user.sex=='F'?'m':'g',"",wall.text[j]); }
  3867.                 if(aborted)
  3868.                     break;
  3869.                 if(ext) {
  3870.                     nodesync();
  3871.                     if(i) {
  3872.                         bputs(PrevReadSendQuitOrMore);
  3873.                         ch=getkey(K_UPPER);
  3874.                         if(ch=='R')
  3875.                             long_user_info(user);
  3876.                         if(ch=='S')
  3877.                             send_telegram(user);
  3878.                         if(ch=='R' || ch=='S')  /* Don't move forward */
  3879.                             lseek(file,tell(file)-sizeof(wall_t),SEEK_SET); }
  3880.                     else {
  3881.                         bputs("\r\n\1n\1hProfile not found.\r\n\r\n");
  3882.                         bputs("\1b[\1cP\1b]revious, [\1cQ\1b]uit, "
  3883.                             "or [\1cM\1b]ore: \1c");
  3884.                         ch=getkey(K_UPPER); }
  3885.                     if(ch=='P') {
  3886.                         lseek(file,offset,SEEK_SET);
  3887.                         if(tell(file))
  3888.                             lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
  3889.                         offset=tell(file);
  3890.                         continue; }
  3891.                     if(ch=='Q') {
  3892.                         cls();
  3893.                         break; }
  3894.                     offset=tell(file); }
  3895.                 else if(lncntr+7>=user_rows || eof(file)) {
  3896.                     lncntr=0;
  3897.                     bputs(PrevReadSendQuitOrMore);
  3898.                     ch=getkey(K_UPPER);
  3899.                     if(ch=='Q')
  3900.                         break;
  3901.                     else if(ch=='S' || ch=='R') {
  3902.                         bprintf("\1n\r\1>\1y\1hUser name: ");
  3903.                         if(getstr(name,25,K_UPPER|K_LINE|K_NOCRLF)) {
  3904.                             truncsp(name);
  3905.                             name_crc=crc32(name);
  3906.                             rewind(index);
  3907.                             i=0;
  3908.                             while(!feof(index)) {
  3909.                                 if(!fread(&ixb,sizeof(ixb_t),1,index))
  3910.                                     break;
  3911.                                 if(!ixb.number)    /* DELETED */
  3912.                                     continue;
  3913.                                 if(ixb.name!=name_crc)
  3914.                                     continue;
  3915.                                 fseek(stream
  3916.                                     ,((ftell(index)
  3917.                                         -sizeof(ixb_t))/sizeof(ixb_t))
  3918.                                     *sizeof(user_t),SEEK_SET);
  3919.                                 if(!fread(&user,sizeof(user_t),1,stream))
  3920.                                     continue;
  3921.                                 if(minor_protection(user))
  3922.                                     continue;
  3923.                                 i=1;
  3924.                                 if(ch=='S' && send_telegram(user))
  3925.                                     break;
  3926.                                 if(ch=='R' && !long_user_info(user))
  3927.                                     break;    }
  3928.                             if(!i)
  3929.                                 bprintf("\r\n\1n\1h%s \1rnot found.\r\n",name);
  3930.                                 }
  3931.                         lseek(file,offset,SEEK_SET); }
  3932.                     else if(ch=='P') {
  3933.                         lseek(file,offset,SEEK_SET);
  3934.                         for(i=0;i<4;i++)
  3935.                             if(tell(file))
  3936.                                 lseek(file,tell(file)-sizeof(wall_t),SEEK_SET);
  3937.                         }
  3938.                     cls();
  3939.                     offset=tell(file); } }
  3940.             cls();
  3941.             if(user_level<wall_level) {
  3942.                 close(file);
  3943.                 bputs("\r\n\1h\1rYou have insufficient access to write on the "
  3944.                     "wall.\r\n");
  3945.                 pause();
  3946.                 break; }
  3947.             if(aborted || noyes("Write on the Wall")) {
  3948.                 close(file);
  3949.                 break; }
  3950.             if(!useron.number) {
  3951.                 bputs("\r\n\1h\1rYou must create a profile first.\r\n");
  3952.                 close(file);
  3953.                 break; }
  3954.             if(!cdt_warning(wall_cdt)) {
  3955.                 close(file);
  3956.                 break; }
  3957.             memset(&wall,0,sizeof(wall_t));
  3958.             strcpy(wall.name,useron.name);
  3959.             strcpy(wall.system,system_name);
  3960.             wall.written=wall.imported=time(NULL);
  3961.             bputs("\1l\1n\1hWriting on the Wall:\r\n\r\n");
  3962.             for(i=0;i<5 && !aborted;i++) {
  3963.                 bprintf("\1n\1h\1%c%u of 5: \1n\1%c"
  3964.                     ,useron.sex=='F'?'m':'g',i+1,useron.sex=='F'?'m':'g');
  3965.                 if(!getstr(wall.text[i],70,i==4 ? K_MSG:K_MSG|K_WRAP))
  3966.                     break;
  3967.                 if(trash(wall.text[i])) {
  3968.                     bprintf("\r\n\1r\1hSorry, you can't use that text."
  3969.                         "\r\n\r\n");
  3970.                     i--;
  3971.                     continue; } }
  3972.             if(!i || aborted || !yesno("\r\nSave")) {
  3973.                 close(file);
  3974.                 break; }
  3975.             lseek(file,0L,SEEK_END);
  3976.             write(file,&wall,sizeof(wall_t));
  3977.             close(file);
  3978.             adjust_cdt(wall_cdt);
  3979.             if(notify_user && notify_user!=user_number) {
  3980.                 sprintf(str,"\1n\1hSMM: \1y%s\1m wrote on the Match Maker "
  3981.                     "Wall\r\n",user_name);
  3982.                 if(node_dir[0])
  3983.                     putsmsg(notify_user,str);
  3984.                 else
  3985.                     puttgram(notify_user,str); }
  3986.             break;
  3987.         case 'Q':
  3988.             return; } }
  3989. }
  3990.  
  3991. /* End of SMM.C */
  3992.