home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ALLMODS.ZIP / FMD-32B.ZIP / FMD-32B.MOD < prev   
Encoding:
Text File  |  1995-06-22  |  31.4 KB  |  1,122 lines
  1. Nicolas Leblanc #2 @20302
  2. Sat Jun 10 13:06:01 1995
  3.    ┌┬─── ──  ─   ─  ── ───────────────────────────────────────────────────┬─ ∙∙
  4.    ││                    Alternative Worlds Presents                      │
  5.    └┼─────────────────────────────────────────────────────────────────────┐
  6.    ││ Mod Name       » FMD-32b.MOD                                        │∙
  7.    ││ Difficulty     » ████▒▒▒▒▒▒▒ (4/10)                                 │:
  8.    ││ WWIV Version   » 4.24                                               ││
  9.    ││ Date Affected  » 06/01/95                                           ││
  10.    :│ Files Affected » MMENU.C / MISCCMD.C / LILO.C / COM.C / UEDIT.C     ││
  11.    ∙│                  NEWUSER.C / VARDEC.H                               ││
  12.    ∙│ Description    » Registeries of Users For WWIV                      ││
  13.     └─────────────────────────────────────────────────────────────────────┼┐
  14.     │       A French Mod Division Release - (C) 1995 FMD Software         ││
  15. ∙∙ ─┴─────────────────────────────────────────────────── ──  ─   ─  ── ───└┘
  16.  
  17.  
  18.  ┌┬══════════════════┐
  19.  ││ Long Description ││
  20.   └══════════════════┴┘
  21.  
  22.    This is the real thing, a real user registry just like Major BBS, easy
  23. to install, and very easy to use!
  24.  
  25.    The registry will look like that:
  26.  
  27. ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  28.  ∙                   Digital Republic On-Line User Lookup                   ∙ 
  29. ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  31. Real Name:  Nicolas LeBlanc  Sex: M  Age: 21   Aliases: Spotnick
  32. Makes a Living as:  Student
  33. Sexual Orientation is: Straight
  34. Future Goals in Life: Be Rich!
  35. Favorite Kind of Food: Italian
  36. Favorite TV Show(s): Beverly Hills, 90210
  37. Favorite Movie: Dead Poets Society  Watches Movies: Too Often
  38. Favorite Actor: Ethan Hawke  Favorite Actress: Winona Ryder
  39. Place I'd Like to Live in: California
  40. Favorite Vacation Spot: Florida
  41. Drinking Habits: I'm A Social Drinker
  42. Favorite Music: Alternative
  43. Favorite Activity: Sex!
  44. Opinion on Drugs: No Way
  45. Ideal Date: Anyhow
  46. Financial Status: Below The Red Line (Send WWIVsys Reg!)
  47. As far as Sex Goes?: I'm Going... Going... Gone!
  48. Summary: I'm The SysOp, Gotta Love Me!
  49.  
  50. [PAUSE]D
  51.  
  52.  
  53. Revision A:
  54.  
  55.   Sorry about that, but it seems like there was a left out O_TRUNC sentence
  56.   that was scrambling REGISTRY.DAT, thanks to IceFreezer to point to me that
  57.   I forgot to change it at one place when I did the changes from FMD-32ß to
  58.   FMD-32 Release Version. There was also a missing "un" which was v4.24 code,
  59.   this has been replaced by usernum.
  60.  
  61.   If you are upgrading, just do step 7.
  62.  
  63. Revision B:
  64.  
  65.   - Updated for WWIV v4.24
  66.   - Fixed the newuser bug
  67.   - Fixed the color of text bug
  68.   - Fixed the "Alternative Worlds" is replace by your system name
  69.  
  70.  ┌┬═══════┐
  71.  ││ Tests ││
  72.   └═══════┴┘
  73.  
  74.   This modification has been tested on a virgin WWIV v4.24 source using
  75.   Borland C++ v4.5
  76.  
  77. ──────────────────────────────────────────────────────────────────────────────
  78.                                    Legend
  79.                           ╔═══╤══════════════════┐
  80.                           │ + │ Add This Line    │
  81.                           │ - │ Delete This Line │
  82.                           │ * │ Modify This Line │
  83.                           │ = │ Existing Line    │
  84.                           └═══╧══════════════════╝
  85. ───[Step 1]────────────────────────────────────────────────────────────────────
  86.  
  87. Load VARDEC.H and include this at the end of the file, just after inputpicrec:
  88.  
  89.  
  90. typedef struct {
  91.    char     realname[40],
  92.             sex,
  93.             aliases[81],
  94.             job[81],
  95.             sex_orientation[41],
  96.             goal[81],
  97.             food[81],
  98.             tv_show[81],
  99.             movie[81],
  100.             actor[81],
  101.             actress[81],
  102.             live_in[81],
  103.             vacation[81],
  104.             music[81],
  105.             drug[81],
  106.             alcohol[81],
  107.             date[81],
  108.             finance[81],
  109.             summary[162],
  110.             age[10],
  111.             movie_rate[50],
  112.             activity[81],
  113.             sexg[81];
  114.    int      filled;
  115.    char     res[98];
  116.  
  117. } registry_rec;
  118.  
  119. = /****************************************************************************/
  120. =
  121. = #include "instmsg.h"
  122. =
  123. = /****************************************************************************/
  124. =
  125. = #ifndef bbsmalloc
  126.  
  127. ───[Step 2]────────────────────────────────────────────────────────────────────
  128.  
  129. Load COM.C and look for the following lines:
  130.  
  131. =      case 20:
  132. =        if (echo)
  133. =          ptime();
  134. =        if (menu_on() && rip_pause) {
  135. =          pausescr();
  136. =        }
  137. =        break;
  138. =      case 18:
  139. =        if (echo)
  140. *          look_at_registry();
  141. =        break;
  142. =      case 25:
  143. =        thisuser.sysstatus ^= sysstatus_pause_on_page;
  144. =        break;
  145. =    }
  146.  
  147. Then add the following 2 functions at the end of the file;
  148. (You might already have them from other of our modifications)
  149.  
  150. void litebar(char *fmt, ...)
  151. {
  152.   va_list ap;
  153.   char s[512], s2[250];
  154.   
  155.   va_start(ap, fmt);
  156.   vsprintf(s, fmt, ap);
  157.   va_end(ap);
  158.   
  159.   if (okansi()) 
  160.   {
  161.     npr("\x1B[0;1m%s\r\n", charstr(strlen(s)+6, '▄'));
  162.     sprintf(s2, "\x1B[0;34;47m ∙ %s ∙ \x1B[40m", stripcolors(s));
  163.     pl(s2);
  164.     npr("\x1B[0;1;30m%s\r\n", charstr(strlen(s)+6, '▀'));
  165.   } else
  166.     pl(s);
  167.   ansic(0);
  168. }
  169.  
  170. void litebar3(char *fmt, ...)
  171. {
  172.   int i;
  173.   va_list ap;
  174.   char s[512], s1[512];
  175.   
  176.   va_start(ap, fmt);
  177.   vsprintf(s, fmt, ap);
  178.   va_end(ap);
  179.  
  180.    i=(74-strlen(s))/2;
  181.   if (okansi())
  182.   {
  183.     sprintf(s1,"%s%s%s",charstr(i,' '),stripcolors(s),charstr(i,' '));
  184.     npr("\x1B[0;1;36m%s\r\n",charstr(strlen(s1)+4,'▄'));
  185.     npr("\x1B[0;30;46m ∙%s∙ \x1B[40m\r\n",s1);
  186.     npr("\x1B[0;1;30m%s\r\n",charstr(strlen(s1)+4,'▀'));
  187.   } else {
  188.     npr("%s%s\r\n", charstr(i,' '), s);
  189.   }
  190.   ansic(0);
  191. }
  192.  
  193. ───[Step 3]────────────────────────────────────────────────────────────────────
  194.  
  195. Load MISCCMD.C and copy the following functions at the end of the file:
  196.  
  197. void fill_registry(void)
  198. {
  199.   int i, i2, f;
  200.   char s[81];
  201.   registry_rec r;
  202.  
  203.   prt(7, "Creating registry data file... ");
  204.   sprintf(s,"%sREGISTRY.DAT",syscfg.datadir);
  205.   f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  206.   i2=number_userrecs();
  207.   for (i=1; i<=i2; i++) {
  208.     npr("%-3d", i);
  209.     sh_lseek(f,(long)(i-1)*sizeof(registry_rec),SEEK_SET);
  210.     r.realname[0]=0;
  211.     r.sex=' ';
  212.     r.aliases[0]=0;
  213.     r.job[0]=0;
  214.     r.sex_orientation[0]=0;
  215.     r.goal[0]=0;
  216.     r.food[0]=0;
  217.     r.tv_show[0]=0;
  218.     r.movie[0]=0;
  219.     r.actor[0]=0;
  220.     r.actress[0]=0;
  221.     r.live_in[0]=0;
  222.     r.vacation[0]=0;
  223.     r.music[0]=0;
  224.     r.drug[0]=0;
  225.     r.alcohol[0]=0;
  226.     r.date[0]=0;
  227.     r.finance[0]=0;
  228.     r.summary[0]=0;
  229.     r.movie_rate[0]=0;
  230.     r.age[0]=0;
  231.     r.sexg[0]=0;
  232.     r.activity[0]=0;
  233.     r.filled=0;
  234.     sh_lseek(f,(long)(i-1)*sizeof(registry_rec),SEEK_SET);
  235.     sh_write(f,(void *)&r,sizeof(registry_rec));
  236.     backspace();
  237.     backspace();
  238.     backspace();
  239.   }
  240.   pl("1Done!");
  241.   nl();
  242.   sh_close(f);
  243. }
  244.  
  245. void enter_info(void)
  246. {
  247.   int f;
  248.   char s[81];
  249.   registry_rec r;
  250.  
  251.   sprintf(s,"%sREGISTRY.DAT",syscfg.datadir);
  252.   f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  253.   sh_lseek(f,(long)(usernum-1)*sizeof(registry_rec),SEEK_SET);
  254.   sh_read(f,(void *)&r,sizeof(registry_rec));
  255.   if (r.filled==1) {
  256.     nl();
  257.     pl("6Registry already filled! Use the edit function.");
  258.     nl();
  259.     pausescr();
  260.     sh_close(f);
  261.     return;
  262.   }
  263.   litebar3("%s Registry.", syscfg.systemname);
  264.   ansic(0);
  265.   nl();
  266.   pl("You will now be prompted to enter assorted information for your entry");
  267.   pl("into the Registry Database.  If you prefer not to answer certain");
  268.   pl("questions for personal reasons, type \"N/A\" (for not available).  If you");
  269.   pl("leave the entry questionnaire before completing it all, it will not be");
  270.   pl("SAVED (you may enter X to exit the questionnaire).");
  271.   nl();
  272.   pl("After you complete your entry, you will be able to edit any part of it");
  273.   pl("at any time.  Feel free to update your Information as frequently as you");
  274.   pl("wish.");
  275.   nl();
  276.   pl("1Please Enter your real name:");
  277.   mpl(39);
  278.   inputl(r.realname, 39);
  279.   nl();
  280.   if (r.realname[0]==0)
  281.     strcpy(r.realname, "N/A");
  282.   pl("1What sex are you (M/F):");
  283.   mpl(1);
  284.   r.sex=onek("MF");
  285.   nl();
  286.   pl("1And what is your age?");
  287.   mpl(3);
  288.   input(r.age, 3);
  289.   nl();
  290.   if (r.age[0]==0)
  291.     strcpy(r.age, "N/A");
  292.   pl("1What other handles, nicknames, or aliases do you go by?");
  293.   mpl(40);
  294.   inputl(r.aliases, 40);
  295.   nl();
  296.   if (r.aliases[0]==0)
  297.     strcpy(r.aliases, "N/A");
  298.   pl("1What do you do for a Living (Job, Studies) ?");
  299.   mpl(40);
  300.   inputl(r.job, 40);
  301.   nl();
  302.   if (r.job[0]==0)
  303.     strcpy(r.job, "N/A");
  304.   pl("1What is your sexual orientation?");
  305.   mpl(20);
  306.   inputl(r.sex_orientation, 20);
  307.   nl();
  308.   if (r.sex_orientation[0]==0)
  309.     strcpy(r.sex_orientation, "N/A");
  310.   pl("1What are your Goals in Life?");
  311.   mpl(40);
  312.   inputl(r.goal, 40);
  313.   nl();
  314.   if (r.goal[0]==0)
  315.     strcpy(r.goal, "N/A");
  316.   pl("1What is your favorite kind of food?");
  317.   mpl(40);
  318.   inputl(r.food, 40);
  319.   nl();
  320.   if (r.food[0]==0)
  321.     strcpy(r.food, "N/A");
  322.   pl("1What is (are) your favorite TV show(s)?");
  323.   mpl(40);
  324.   inputl(r.tv_show, 40);
  325.   nl();
  326.   if (r.tv_show[0]==0)
  327.     strcpy(r.tv_show, "N/A");
  328.   pl("1What is your favorite movie?");
  329.   mpl(40);
  330.   inputl(r.movie, 40);
  331.   nl();
  332.   if (r.movie[0]==0)
  333.     strcpy(r.movie, "N/A");
  334.   pl("1How often do you watch movies?");
  335.   mpl(40);
  336.   inputl(r.movie_rate, 40);
  337.   nl();
  338.   if (r.movie_rate[0]==0)
  339.     strcpy(r.movie_rate, "N/A");
  340.   pl("1Who is your favorite actor?");
  341.   mpl(40);
  342.   inputl(r.actor, 40);
  343.   nl();
  344.   if (r.actor[0]==0)
  345.     strcpy(r.actor, "N/A");
  346.   pl("1Who is your favorite actress?");
  347.   mpl(40);
  348.   inputl(r.actress, 40);
  349.   nl();
  350.   if (r.actress[0]==0)
  351.     strcpy(r.actress, "N/A");
  352.   pl("1Where would be your favorite place to live?");
  353.   mpl(40);
  354.   inputl(r.live_in, 40);
  355.   nl();
  356.   if (r.live_in[0]==0)
  357.     strcpy(r.live_in, "N/A");
  358.   pl("1What is your favorite vacation spot?");
  359.   mpl(40);
  360.   inputl(r.vacation, 40);
  361.   nl();
  362.   if (r.vacation[0]==0)
  363.     strcpy(r.vacation, "N/A");
  364.   pl("1What is your Favorite Kind of Music?");
  365.   mpl(40);
  366.   inputl(r.music, 40);
  367.   nl();
  368.   if (r.music[0]==0)
  369.     strcpy(r.music, "N/A");
  370.   pl("1What is your opinion on drugs?");
  371.   mpl(40);
  372.   inputl(r.drug, 40);
  373.   nl();
  374.   if (r.drug[0]==0)
  375.     strcpy(r.drug, "N/A");
  376.   pl("1What are your drinking habits?");
  377.   mpl(40);
  378.   inputl(r.alcohol, 40);
  379.   nl();
  380.   if (r.alcohol[0]==0)
  381.     strcpy(r.alcohol, "N/A");
  382.   pl("1What is your ideal date?");
  383.   mpl(40);
  384.   inputl(r.date, 40);
  385.   nl();
  386.   if (r.date[0]==0)
  387.     strcpy(r.date, "N/A");
  388.   pl("1What is your favorite activity?");
  389.   mpl(40);
  390.   inputl(r.activity, 40);
  391.   nl();
  392.   if (r.activity[0]==0)
  393.     strcpy(r.activity, "N/A");
  394.   pl("1What is your financial status?");
  395.   mpl(40);
  396.   inputl(r.finance, 40);
  397.   nl();
  398.   if (r.finance[0]==0)
  399.     strcpy(r.finance, "N/A");
  400.   pl("1And as far as Sex Goes?");
  401.   mpl(40);
  402.   inputl(r.sexg, 40);
  403.   nl();
  404.   if (r.sexg[0]==0)
  405.     strcpy(r.sexg, "N/A");
  406.   pl("1Ok, now you can enter a Brief (39 characters max.) summary of yourself for");
  407.   pl("1others to see in the directory (option \"D\" from the Registry Menu).");
  408.   nl();
  409.   mpl(39);
  410.   inputl(r.summary, 39);
  411.   nl();
  412.   if (r.sexg[0]==0)
  413.     strcpy(r.sexg, "N/A");
  414.   r.filled=1;
  415.   nl();
  416.   pl("3Ok, your entry has been added to the database.");
  417.   pl("3Thanks for your participation!");
  418.   nl();
  419.   pausescr();
  420.   sh_lseek(f,(long)(usernum-1)*sizeof(registry_rec),SEEK_SET);
  421.   if (!hangup)
  422.     sh_write(f,(void *)&r,sizeof(registry_rec));
  423.   sh_close(f);
  424. }
  425.  
  426. void see_info(int un)
  427. {
  428.  int f, c1;
  429.  char s[81];
  430.  registry_rec r;
  431.  userrec u;
  432.  
  433.  c1=thisuser.colors[0];
  434.  thisuser.colors[0]=15;
  435.  nl();
  436.  prt(1, "Reading Informations...");
  437.  sprintf(s,"%sREGISTRY.DAT", syscfg.datadir);
  438.  f=sh_open1(s,O_RDONLY | O_BINARY);
  439.  sh_lseek(f,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  440.  sh_read(f,(void *)&r,sizeof(registry_rec));
  441.  if (r.filled==0) {
  442.     nl();
  443.     pl("1Sorry, but that user haven't filled his registry yet!");
  444.     nl();
  445.     pausescr();
  446.     sh_close(f);
  447.     thisuser.colors[0]=c1;
  448.     return;
  449.  }
  450.  read_user(un, &u);
  451.  outchr(12);
  452.  litebar3("%s On-Line User Lookup", syscfg.systemname);
  453.  nl();
  454.  npr("0Real Name3:  1%.17s  0Sex3: 1%c  0Age3: 1%s   0Aliases3: 1%.18s\r\n", r.realname, r.sex, r.age, r.aliases);
  455.  npr("0Makes a Living as3: 1 %s\r\n", r.job);
  456.  npr("0Sexual Orientation is3:1 %s\r\n", r.sex_orientation);
  457.  npr("0Future Goals in Life3: 1%s\r\n", r.goal);
  458.  npr("0Favorite Kind of Food3:1 %s\r\n", r.food);
  459.  npr("0Favorite TV Show(s)3: 1%s\r\n", r.tv_show);
  460.  npr("0Favorite Movie3:1 %.30s  0Watches Movies3: 1%.30s\r\n", r.movie, r.movie_rate);
  461.  npr("0Favorite Actor3: 1%.30s  0Favorite Actress3:1 %.30s\r\n", r.actor, r.actress);
  462.  npr("0Place I'd Like to Live in3: 1%s\r\n", r.live_in);
  463.  npr("0Favorite Vacation Spot3: 1%s\r\n", r.vacation);
  464.  npr("0Drinking Habits3: 1%s\r\n", r.alcohol);
  465.  npr("0Favorite Music3: 1%s\r\n", r.music);
  466.  npr("0Favorite Activity3: 1%s\r\n", r.activity);
  467.  npr("0Opinion on Drugs3: 1%s\r\n", r.drug);
  468.  npr("0Ideal Date3: 1%s\r\n", r.date);
  469.  npr("0Financial Status3: 1%s\r\n", r.finance);
  470.  npr("0As far as Sex Goes?3: 1%s\r\n", r.sexg);
  471.  npr("0Summary3: 1%s\r\n",r.summary);
  472.  nl();
  473.  sh_close(f);
  474.  pausescr();
  475.  thisuser.colors[0]=c1;
  476. }
  477.  
  478. void look_at_registry(void)
  479. {
  480.   char s[81], xl[81], cl[81], atr[81], cc;
  481.   unsigned un;
  482.  
  483.   savel(cl, atr, xl, &cc);
  484.   nln(2);
  485.   prt(1,"See the registery of which user?");
  486.   nl();
  487.   outstr(":");
  488.   mpl(30);
  489.   input(s,30);
  490.   un=finduser1(s);
  491.   if (un>0)
  492.     see_info(un);
  493.   else {
  494.     nl();
  495.     pl(get_string(8));
  496.     nl();
  497.   }
  498.   restorel(cl, atr, xl, &cc);
  499. }
  500.  
  501. void registry_menu(void)
  502. {
  503.   int done=0;
  504.   char ch;
  505.  
  506.   do {
  507.     outchr(12);
  508.     litebar("User Registry Menu");
  509.     nln(2);
  510.     pl("7[1E7]nter your registry informations.");
  511.     pl("7[1R7]evise your registry informations.");
  512.     pl("7[1L7]ook-up another user's entry.");
  513.     pl("7[1D7]irectory of available registries.");
  514.     pl("7[1Q7]uit.");
  515.     nln(2);
  516.     prt(2,"Selection: ");
  517.     mpl(1);
  518.     ch=onek("QERLD");
  519.     switch (ch)
  520.     {
  521.       case 'Q': done=1; break;
  522.       case 'L': look_at_registry(); break;
  523.       case 'E': enter_info(); break;
  524.       case 'R': revise_entry(); break;
  525.       case 'D': registry_directory(); break;
  526.      }
  527.   } while (!done && !hangup);
  528. }
  529.  
  530. int check_registry(int un)
  531. {
  532.   char s[81];
  533.   int f;
  534.   registry_rec r;
  535.  
  536.   sprintf(s,"%sREGISTRY.DAT", syscfg.datadir);
  537.   f=sh_open1(s,O_RDONLY | O_BINARY);
  538.   sh_lseek(f,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  539.   sh_read(f,(void *)&r,sizeof(registry_rec));
  540.   sh_close(f);
  541.   if (r.filled==1)
  542.     return(0);
  543.   else
  544.     return(1);
  545. }
  546.  
  547. void registry_directory(void)
  548. {
  549.   int i, f;
  550.   char s[81], s1[81];
  551.   registry_rec r;
  552.   userrec u;
  553.  
  554.   sprintf(s,"%sREGISTRY.DAT", syscfg.datadir);
  555.   f=sh_open1(s,O_RDONLY | O_BINARY);
  556.   outchr(12);
  557.   litebar3("User Directory");
  558.   nl();
  559.   for (i=0; i<status.users; i++) {
  560.     read_user(smallist[i].number, &u);
  561.     strcpy(s1, u.name);
  562.     sh_lseek(f,(long)(smallist[i].number-1)*sizeof(registry_rec),SEEK_SET);
  563.     sh_read(f,(void *)&r,sizeof(registry_rec));
  564.     if (r.filled) {
  565.       npr("1%.30s7%s0%-39.39s\r\n", s1, charstr(40-strlen(s1), '.'), r.summary);
  566.     }
  567.   }
  568.   nl();
  569.   pausescr();
  570.   sh_close(f);
  571.  
  572. }
  573.  
  574. void revise_entry(void)
  575. {
  576.   int f, c1;
  577.   char s[81], ch;
  578.   registry_rec r;
  579.  
  580.   sprintf(s,"%sREGISTRY.DAT",syscfg.datadir);
  581.   f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  582.   sh_lseek(f,(long)(usernum-1)*sizeof(registry_rec),SEEK_SET);
  583.   sh_read(f,(void *)&r,sizeof(registry_rec));
  584.   if (r.filled==0) {
  585.     nl();
  586.     pl("6Registry not filled! Use the enter informations function.");
  587.     nl();
  588.     pausescr();
  589.     sh_close(f);
  590.     return;
  591.   }
  592.   c1=thisuser.colors[0];
  593.   thisuser.colors[0]=15;
  594.   do
  595.   {
  596.     outchr(12);
  597.     npr("7[1A7] 0Real Name3:  1%.17s  7[1B7] 0Sex3: 1%c  7[1C7] 0Age3: 1%s   7[1D7] 0Aliases3: 1%.18s\r\n", r.realname, r.sex, r.age, r.aliases);
  598.     npr("7[1E7] 0Makes a Living as3: 1 %s\r\n", r.job);
  599.     npr("7[1F7] 0Sexual Orientation is3:1 %s\r\n", r.sex_orientation);
  600.     npr("7[1G7] 0Future Goals in Life3: 1%s\r\n", r.goal);
  601.     npr("7[1H7] 0Favorite Kind of Food3:1 %s\r\n", r.food);
  602.     npr("7[1I7] 0Favorite TV Show(s)3: 1%s\r\n", r.tv_show);
  603.     npr("7[1J7] 0Favorite Movie3:1 %.30s  7[1K7] 0Watches Movies3: 1%.30s\r\n", r.movie, r.movie_rate);
  604.     npr("7[1L7] 0Favorite Actor3: 1%.30s  7[1M7] 0Favorite Actress3:1 %.30s\r\n", r.actor, r.actress);
  605.     npr("7[1N7] 0Place I'd Like to Live in3: 1%s\r\n", r.live_in);
  606.     npr("7[1O7] 0Favorite Vacation Spot3: 1%s\r\n", r.vacation);
  607.     npr("7[1P7] 0Drinking Habits3: 1%s\r\n", r.alcohol);
  608.     npr("7[1Q7] 0Favorite Music3: 1%s\r\n", r.music);
  609.     npr("7[1R7] 0Favorite Activity3: 1%s\r\n", r.activity);
  610.     npr("7[1S7] 0Opinion on Drugs3: 1%s\r\n", r.drug);
  611.     npr("7[1T7] 0Ideal Date3: 1%s\r\n", r.date);
  612.     npr("7[1U7] 0Financial Status3: 1%s\r\n", r.finance);
  613.     npr("7[1V7] 0As far as Sex Goes?3: 1%s\r\n", r.sexg);
  614.     npr("7[1W7] 0Summary3: 1%s\r\n",r.summary);
  615.     nl();
  616.     prt(2, "Selection (X=Quit): ");
  617.     mpl(1);
  618.     ch=onek("ABCDEFGHIJKLMNOPQRSTUVWX");
  619.     switch (ch)
  620.     {
  621.        case 'A':
  622.          nl();
  623.          pl("1What is your real name?");
  624.          mpl(39);
  625.          inputl(r.realname, 39);
  626.          nl();
  627.          if (r.realname[0]==0)
  628.            strcpy(r.realname, "N/A");
  629.          break;
  630.        case 'B':
  631.          nl();
  632.          pl("1What is your gender (M/F) ?");
  633.          mpl(1);
  634.          r.sex=onek("MF");
  635.          nl();
  636.          break;
  637.        case 'C':
  638.          nl();
  639.          pl("1What is your age?");
  640.          mpl(3);
  641.          input(r.age, 3);
  642.          nl();
  643.          if (r.age[0]==0)
  644.            strcpy(r.age, "N/A");
  645.          break;
  646.        case 'D':
  647.          nl();
  648.          pl("1What are your other aliases?");
  649.          mpl(40);
  650.          inputl(r.aliases, 40);
  651.          nl();
  652.          if (r.aliases[0]==0)
  653.            strcpy(r.aliases, "N/A");
  654.          break;
  655.        case 'E':
  656.          nl();
  657.          pl("1What is your job?");
  658.          mpl(40);
  659.          inputl(r.job, 40);
  660.          nl();
  661.          if (r.job[0]==0)
  662.            strcpy(r.job, "N/A");
  663.          break;
  664.        case 'F':
  665.          nl();
  666.          pl("1What is your sexual orientation?");
  667.          mpl(20);
  668.          inputl(r.sex_orientation, 20);
  669.          nl();
  670.          if (r.sex_orientation[0]==0)
  671.            strcpy(r.sex_orientation, "N/A");
  672.          break;
  673.        case 'G':
  674.          nl();
  675.          pl("1What are your future goals in life?");
  676.          mpl(40);
  677.          inputl(r.goal, 40);
  678.          nl();
  679.          if (r.goal[0]==0)
  680.            strcpy(r.goal, "N/A");
  681.          break;
  682.        case 'H':
  683.          nl();
  684.          pl("1What is your favorite kind of food?");
  685.          mpl(40);
  686.          inputl(r.food, 40);
  687.          nl();
  688.          if (r.food[0]==0)
  689.            strcpy(r.food, "N/A");
  690.          break;
  691.        case 'I':
  692.          nl();
  693.          pl("1What is your favorite TV show?");
  694.          mpl(40);
  695.          inputl(r.tv_show, 40);
  696.          nl();
  697.          if (r.tv_show[0]==0)
  698.            strcpy(r.tv_show, "N/A");
  699.          break;
  700.        case 'J':
  701.          nl();
  702.          pl("1What is your favorite movie?");
  703.          mpl(40);
  704.          inputl(r.movie, 40);
  705.          nl();
  706.          if (r.movie[0]==0)
  707.            strcpy(r.movie, "N/A");
  708.          break;
  709.        case 'K':
  710.          nl();
  711.          pl("1How often do you watch movies?");
  712.          mpl(40);
  713.          inputl(r.movie_rate, 40);
  714.          nl();
  715.          if (r.movie_rate[0]==0)
  716.            strcpy(r.movie_rate, "N/A");
  717.          break;
  718.        case 'L':
  719.          nl();
  720.          pl("1Who is your favorite actor?");
  721.          mpl(40);
  722.          inputl(r.actor, 40);
  723.          nl();
  724.          if (r.actor[0]==0)
  725.            strcpy(r.actor, "N/A");
  726.          break;
  727.        case 'M':
  728.          nl();
  729.          pl("1Who is your favorite actress?");
  730.          mpl(40);
  731.          inputl(r.actress, 40);
  732.          nl();
  733.          if (r.actress[0]==0)
  734.            strcpy(r.actress, "N/A");
  735.          break;
  736.        case 'N':
  737.          nl();
  738.          pl("1Where would you like to live?");
  739.          mpl(40);
  740.          inputl(r.live_in, 40);
  741.          nl();
  742.          if (r.live_in[0]==0)
  743.            strcpy(r.live_in, "N/A");
  744.          break;
  745.        case 'O':
  746.          nl();
  747.          pl("1Where is your favorite vacation spot?");
  748.          mpl(40);
  749.          inputl(r.vacation, 40);
  750.          nl();
  751.          if (r.vacation[0]==0)
  752.            strcpy(r.vacation, "N/A");
  753.          break;
  754.        case 'P':
  755.          nl();
  756.          pl("1What are your drinking habits?");
  757.          mpl(40);
  758.          inputl(r.alcohol, 40);
  759.          nl();
  760.          if (r.alcohol[0]==0)
  761.            strcpy(r.alcohol, "N/A");
  762.          break;
  763.        case 'Q':
  764.          nl();
  765.          pl("1What is your favorite music?");
  766.          mpl(40);
  767.          inputl(r.music, 40);
  768.          nl();
  769.          if (r.music[0]==0)
  770.            strcpy(r.music, "N/A");
  771.          break;
  772.        case 'R':
  773.          nl();
  774.          pl("1What is your favorite activity?");
  775.          mpl(40);
  776.          inputl(r.activity, 40);
  777.          nl();
  778.          if (r.activity[0]==0)
  779.            strcpy(r.activity, "N/A");
  780.          break;
  781.        case 'S':
  782.          nl();
  783.          pl("1What is your opinion on drugs?");
  784.          mpl(40);
  785.          inputl(r.drug, 40);
  786.          nl();
  787.          if (r.drug[0]==0)
  788.            strcpy(r.drug, "N/A");
  789.          break;
  790.        case 'T':
  791.          nl();
  792.          pl("1What is your ideal date?");
  793.          mpl(40);
  794.          inputl(r.date, 40);
  795.          nl();
  796.          if (r.date[0]==0)
  797.            strcpy(r.date, "N/A");
  798.          break;
  799.        case 'U':
  800.          nl();
  801.          pl("1What is your financial status?");
  802.          mpl(40);
  803.          inputl(r.finance, 40);
  804.          nl();
  805.          if (r.finance[0]==0)
  806.            strcpy(r.finance, "N/A");
  807.          break;
  808.        case 'V':
  809.          nl();
  810.          pl("1As far as Sex Goes?");
  811.          mpl(40);
  812.          inputl(r.sexg, 40);
  813.          nl();
  814.          if (r.sexg[0]==0)
  815.            strcpy(r.sexg, "N/A");
  816.          break;
  817.        case 'W':
  818.          nl();
  819.          pl("1Summary?");
  820.          mpl(39);
  821.          inputl(r.summary, 39);
  822.          nl();
  823.          if (r.summary[0]==0)
  824.            strcpy(r.summary, "N/A");
  825.          break;
  826.        case 'X':
  827.          sh_lseek(f,(long)(usernum-1)*sizeof(registry_rec),SEEK_SET);
  828.          sh_write(f,(void *)&r,sizeof(registry_rec));
  829.          sh_close(f);
  830.          thisuser.colors[0]=c1;
  831.          return;
  832.     }
  833.   } while (!hangup);
  834.   thisuser.colors[0]=c1;
  835. }
  836.  
  837.  
  838. ───[Step 4]────────────────────────────────────────────────────────────────────
  839.  
  840. Load LILO.C and do the following change to void logon
  841.  
  842.  
  843. =    prt(3,get_string(378));
  844. =    nl();
  845. =  }
  846. +  if (check_registry(usernum)) {
  847. +    pl("\77By the way, you haven't filled out your Registry entry yet...");
  848. +    pl("7Just select \"1/I7\" from the MAIN menu to enter the Registry!");
  849. +  }
  850. +  nl();
  851. =  if ((incom) || (sysop1()))
  852. =    broadcast(get_string(1172));
  853.  
  854.  
  855. ───[Step 5]────────────────────────────────────────────────────────────────────
  856.  
  857. Load MMENU.C and do the following modifications to function mainmenu:
  858.  
  859. =      sysoplog(get_stringx(1,12));
  860. =      text_edit();
  861. =    }
  862. +    if (strcmp(s, "RESETREGISTRY")==0)
  863. +      fill_registry();
  864. =    if ((strcmp(s,"UEDIT")==0) || (strcmp(s,"UE")==0)) {
  865.  
  866. and lower...
  867.  
  868. =  if (strcmp(s,"/O")==0) {
  869. =    if (numbatchdl!=0) {
  870. =      nl();
  871. =      outstr(get_string(1324));
  872. =      if (ny())
  873. =        batchdl(1);
  874. =      else
  875. =        hangup=1;
  876. =    } else
  877. =      hangup=1;
  878. =  }
  879. +  if (strcmp(s,"/I")==0)
  880. +    registry_menu();
  881. =  if (strcmp(s,"/R")==0) {
  882. =    if (using_modem) {
  883. =      rip = rip_check();
  884. =      if (rip_on()) {
  885.  
  886. ───[Step 6]────────────────────────────────────────────────────────────────────
  887.  
  888. Load UEDIT.C and do the following change to function deluser:
  889.  
  890. =void deluser(int un)
  891. ={
  892. =  userrec u;
  893. =  int i,i1,f,n;
  894. =  mailrec m;
  895. *  char fn[81], s[81];
  896. =  votingrec v;
  897. =  voting_response vr;
  898. +  registry_rec r;
  899. =
  900. =  read_user(un,&u);
  901. =  if ((u.inact & inact_deleted)==0) {
  902. +    sprintf(s,"%sREGISTRY.DAT",syscfg.datadir);
  903. +    f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  904. +    sh_lseek(f,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  905. +    sh_read(f,(void *)&r,sizeof(registry_rec));
  906. +    r.realname[0]=0;
  907. +    r.sex=' ';
  908. +    r.aliases[0]=0;
  909. +    r.job[0]=0;
  910. +    r.sex_orientation[0]=0;
  911. +    r.goal[0]=0;
  912. +    r.food[0]=0;
  913. +    r.tv_show[0]=0;
  914. +    r.movie[0]=0;
  915. +    r.actor[0]=0;
  916. +    r.actress[0]=0;
  917. +    r.live_in[0]=0;
  918. +    r.vacation[0]=0;
  919. +    r.music[0]=0;
  920. +    r.drug[0]=0;
  921. +    r.alcohol[0]=0;
  922. +    r.date[0]=0;
  923. +    r.finance[0]=0;
  924. +    r.summary[0]=0;
  925. +    r.movie_rate[0]=0;
  926. +    r.age[0]=0;
  927. +    r.sexg[0]=0;
  928. +    r.activity[0]=0;
  929. +    r.filled=0;
  930. +    sh_lseek(f,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  931. +    sh_write(f,(void *)&r,sizeof(registry_rec));
  932. +    sh_close(f);
  933. =    rsm(un,&u,0);
  934. =    dsr(u.name);
  935.  
  936. ───[Step 7]────────────────────────────────────────────────────────────────────
  937.  
  938. Load NEWUSER.C and replace function find_new_usernum:
  939.  
  940. int find_new_usernum(userrec *u, unsigned long *qsc)
  941. {
  942.   char s[81], s1[81];
  943.   int f, f1, nu, un,n;
  944.   userrec tu;
  945.   registry_rec r;
  946.  
  947.   sprintf(s,"%sUSER.LST",syscfg.datadir);
  948.  
  949.   f=-1;
  950.   for (n=0; (f<0) && (n<20); n++) {
  951.     f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  952.     if (f<0) {
  953.       wait1(2);
  954.     }
  955.   }
  956.   if (f<0)
  957.     return(-1);
  958.  
  959.   nu=((int) (filelength(f)/syscfg.userreclen)-1);
  960.   sh_lseek(f, syscfg.userreclen, SEEK_SET);
  961.   un=1;
  962.  
  963.   read_status();
  964.   if (nu == status.users) {
  965.     un=nu+1;
  966.     sh_lseek(f, ((long) syscfg.userreclen) * ((long) un), SEEK_SET);
  967.     sh_write(f, (void *)u, syscfg.userreclen);
  968.     sh_close(f);
  969.     write_qscn(un, qsc, 0);
  970.     isr(un, u->name);
  971.     sprintf(s1,"%sREGISTRY.DAT",syscfg.datadir);
  972.     f1=sh_open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  973.     sh_lseek(f1,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  974.     r.realname[0]=0;
  975.     r.sex=' ';
  976.     r.aliases[0]=0;
  977.     r.job[0]=0;
  978.     r.sex_orientation[0]=0;
  979.     r.goal[0]=0;
  980.     r.food[0]=0;
  981.     r.tv_show[0]=0;
  982.     r.movie[0]=0;
  983.     r.actor[0]=0;
  984.     r.actress[0]=0;
  985.     r.live_in[0]=0;
  986.     r.vacation[0]=0;
  987.     r.music[0]=0;
  988.     r.drug[0]=0;
  989.     r.alcohol[0]=0;
  990.     r.date[0]=0;
  991.     r.finance[0]=0;
  992.     r.summary[0]=0;
  993.     r.movie_rate[0]=0;
  994.     r.age[0]=0;
  995.     r.sexg[0]=0;
  996.     r.activity[0]=0;
  997.     r.filled=0;
  998.     sh_lseek(f1,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  999.     sh_write(f1,(void *)&r,sizeof(registry_rec));
  1000.     sh_close(f1);
  1001.   } else {
  1002.  
  1003.     while (un<=nu) {
  1004.       if (un%25 == 0) {
  1005.         f=sh_close(f);
  1006.         for (n=0; (f<0) && (n<20); n++) {
  1007.           f=sh_open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  1008.           if (f<0) {
  1009.             wait1(2);
  1010.           }
  1011.         }
  1012.         if (f<0)
  1013.           return(-1);
  1014.         sh_lseek(f, ((long) syscfg.userreclen) * ((long) un), SEEK_SET);
  1015.         nu=((int) (filelength(f)/syscfg.userreclen)-1);
  1016.       }
  1017.  
  1018.       sh_read(f, (void *)&tu, syscfg.userreclen);
  1019.  
  1020.       if (tu.inact & inact_deleted) {
  1021.         sh_lseek(f, ((long) syscfg.userreclen) * ((long) un), SEEK_SET);
  1022.         sh_write(f, (void *)u, syscfg.userreclen);
  1023.         sh_close(f);
  1024.         write_qscn(un, qsc, 0);
  1025.         isr(un, u->name);
  1026.         sprintf(s1,"%sREGISTRY.DAT",syscfg.datadir);
  1027.         f1=sh_open(s1,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  1028.         sh_lseek(f1,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  1029.         r.realname[0]=0;
  1030.         r.sex=' ';
  1031.         r.aliases[0]=0;
  1032.         r.job[0]=0;
  1033.         r.sex_orientation[0]=0;
  1034.         r.goal[0]=0;
  1035.         r.food[0]=0;
  1036.         r.tv_show[0]=0;
  1037.         r.movie[0]=0;
  1038.         r.actor[0]=0;
  1039.         r.actress[0]=0;
  1040.         r.live_in[0]=0;
  1041.         r.vacation[0]=0;
  1042.         r.music[0]=0;
  1043.         r.drug[0]=0;
  1044.         r.alcohol[0]=0;
  1045.         r.date[0]=0;
  1046.         r.finance[0]=0;
  1047.         r.summary[0]=0;
  1048.         r.movie_rate[0]=0;
  1049.         r.age[0]=0;
  1050.         r.sexg[0]=0;
  1051.         r.activity[0]=0;
  1052.         r.filled=0;
  1053.         sh_lseek(f1,(long)(un-1)*sizeof(registry_rec),SEEK_SET);
  1054.         sh_write(f1,(void *)&r,sizeof(registry_rec));
  1055.         sh_close(f1);
  1056.         return(un);
  1057.       } else
  1058.         un++;
  1059.     }
  1060.   }
  1061.  
  1062.   if (un <= syscfg.maxusers) {
  1063.     sh_lseek(f, ((long) syscfg.userreclen) * ((long) un), SEEK_SET);
  1064.     sh_write(f, (void *)u, syscfg.userreclen);
  1065.     sh_close(f);
  1066.     write_qscn(un, qsc, 0);
  1067.     isr(un, u->name);
  1068.     return(un);
  1069.   } else {
  1070.     sh_close(f);
  1071.     return(-1);
  1072.   }
  1073. }
  1074.  
  1075.  
  1076. Then lower in NEWUSER.C
  1077.  
  1078. =      input(s,8);
  1079. =      if (strcmp(s,thisuser.pw)==0)
  1080. =        ok=1;
  1081. =    } while ((!ok) && (!hangup));
  1082. =    checkit=0;
  1083. +    nl();
  1084. +    pl("9The user registry is informations about yourself that everyone will be");
  1085. +    pl("9able to view on-line.");
  1086. +    nl();
  1087. +    pl("1Would you like to enter your registry informations? ");
  1088. +    if (yn())
  1089. +      enter_info();
  1090. +    nl();
  1091. =    if (incom) {
  1092. =      if (printfile("FEEDBACK"))
  1093.  
  1094. ───[Step 8]────────────────────────────────────────────────────────────────────
  1095.  
  1096. You now need to do MAKE FCNS, compile & enjoy, you now have a full registry
  1097. system on your BBS. Tell your user and update your menus. First thing to do
  1098. when you'll put your board up is to do a //RESETREGISTRY, that should be the
  1099. only time you need to use that, it will create the empty registry fields.
  1100.  
  1101. /I is to acces the registry menu and CTRL-R anywhere on the
  1102. BBS is to look at other people registry.
  1103.  
  1104.  
  1105. French Proverb: L'amitié est plus forte que l'amour.
  1106.  
  1107. For comments, bug report and suggestion, e-mail at the following address:
  1108.  
  1109. Nicolas LeBlanc  2@20302.WWIVnet (aka Spotnick)
  1110.                  -> spotnick@gamemaster.qc.ca
  1111. Martin Bourdages 242@20306 / 3@20302.WWIVnet (aka Dark Shadow)
  1112.                  -> martin.bourdages@radio.magicnet.com
  1113.  
  1114.                  =>   French Mod Division Support Sub   <=
  1115.                                 SubType: FMD
  1116.                            Host: @20302 (WWIVnet)
  1117.                       Scan sublist for other networks
  1118.  
  1119.         Read PRODUCTS.FMD for the full list of our support systems.
  1120.  
  1121. ───[EOF]──────────────────────────────────────────────────────────────────────
  1122.