home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / TD001.ZIP / TD001.MOD < prev   
Encoding:
Text File  |  1995-06-17  |  3.5 KB  |  163 lines
  1. Tonedef #1 @5479 1-3+5*7[9THe SWiTCH - (919)781-06197]5*3+1-
  2. Fri Jun 16 13:26:41 1995
  3. ┌────────────────────────────────────────────────────────────────────────────┐
  4. │ Mod Name      : TD001.MOD            Mod Author:  ToneDef                  │
  5. │ Difficulty    : ██▒▒▒▒▒▒▒▒                              1 @ 1    SilNet    │
  6. │ WWIV Version  : 4.24                                    1 @ 5479 WWIVNet   │
  7. │ Mod Date      : 06/05/95                                1 @ 7512 FIITAnet  │
  8. │ Files Affected: NEWUSER.C                               1 @ 2    CompNet   │
  9. │ Description   : Allows it so that new users may leave feedback when they   │
  10. │                   input an invalid New User Password.                      │
  11. └────────────────────────────────────────────────────────────────────────────┘
  12.  
  13. ══[ Description ]═════════════════════════════════════════════════════════════
  14.  
  15. This MOD allows new users to leave feedback to the sysop if they get the NUP
  16.   wrong.
  17.  
  18. ══[ Disclaimer ]══════════════════════════════════════════════════════════════
  19.  
  20. Don't complain to me if your board crashes, your hard drive grows legs and
  21.   walks away or the green mother sings the song of chaos. The code in this
  22.   mod should be harmless, but I can't guarantee it will work for you.  It
  23.   works on my board and thats all I care about.
  24.  
  25. ══[ Step 1 ]══════════════════════════════════════════════════════════════════
  26.  
  27. Please back up your source code.  Even the best programmers make mistakes.
  28.  
  29. ══[ Step 2 ]══════════════════════════════════════════════════════════════════
  30.  
  31. Insert into NEWUSER.C in the void newuser function,
  32.   replacing the if ((syscfg.newuserpw[0]!=0) && (incom)) { loop.
  33.   NOTE:  some lines around the beginning and end of the MOD's part
  34.     have been removed, please use your mind.
  35.  
  36.  
  37.   if ((syscfg.newuserpw[0]!=0) && (incom)) {
  38.     nln(2);
  39.     ok=0;
  40.     i=0;
  41.     do {
  42.       outstr(get_string(563));
  43.       input(s,20);
  44.       if (strcmp(s,syscfg.newuserpw)==0)
  45.     ok=1;
  46.       else {
  47.     sprintf(s1,get_stringx(1,26),s);
  48.     sl1(0,s1);
  49.       }
  50.     } while ((!ok) && (!hangup) && (i++<4));
  51.     /*BEGIN TD001.MOD*/
  52.     if (!ok) {
  53.       npr("6Do you want to leave feedback to the SysOp? (Y/n)0");
  54.       if (ny()) {
  55.     if (curatr!=7)
  56.       reset_colors();
  57.     nl();
  58.     npr("1Your Name: 0");
  59.     mpl(30);
  60.     input(s,30);
  61.     if (!(s[0]==0)) {
  62.       strcpy(thisuser.name,s);
  63.       usernum=finduser(s);
  64.       strcpy(irt,"Bad NUP Feedback");
  65.       irt_name[0]=0;
  66.       nl();
  67.     }
  68.     email(1,0,1,0);
  69.       }
  70.       nln(2);
  71.       write_inst(INST_LOC_LOGOFF,0,INST_FLAGS_NONE);
  72.       outchr(12);
  73.       if (rip_on())
  74.     random_screen("goodbye");
  75.       outstr(get_string(29));
  76.       pl(ctim(timer()-timeon));
  77. #ifdef RIPDRIVE
  78.       rd_coff();
  79. #endif
  80.       existprint(get_string(1036));
  81.       hangup=1;
  82.     }
  83.   }
  84.   /*END TD001.MOD*/
  85.   if (!hangup) {
  86.     input_ansistat();
  87.     if (incom) {
  88.       if (printfile("SYSTEM"))
  89.         sl1(0,get_stringx(1,27));
  90.       pausescr();
  91.       if (printfile("NEWUSER"))
  92.         sl1(0,get_stringx(1,28));
  93.     }
  94.  
  95.  
  96. ══[ Step 3 ]══════════════════════════════════════════════════════════════════
  97.  
  98. Save your source and compile.  You're done...check it out.
  99.  
  100. ══[ Credits ]═════════════════════════════════════════════════════════════════
  101.  
  102. ToneDef
  103. 1 @ 1     SilNet
  104. 1 @ 5479  WWIVNet
  105. 1 @ 7512  FIITANet
  106. 1 @ 2     CompNet
  107.  
  108. ══[ END ]═════════════════════════════════════════════════════════════════════
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.