home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ACE003.ZIP / ACE003.MOD next >
Encoding:
Text File  |  1995-06-27  |  2.5 KB  |  98 lines
  1. Emperor Ace #1 @11714
  2. Thu Jun 22 23:34:26 1995
  3. ╓─────────────────────────────────────────────────────────────────────────────╖
  4. ║ Mod Name      : ACE0003.424   Author:  Emperor ACE  1@1     SilverNET       ║
  5. ║ Difficulty    : ▒▒▒▒▒▒▒▒▒ (0/10)  [Block Copy]      1@11714 WWIVnet         ║
  6. ║ WWIV Version  : 4.24                                1@7700  TerraNET        ║
  7. ║ Mod Date      : 06/22/95                            1@7707  IceNet          ║
  8. ║ Files Affected: QWK.C QWK.ANS QWK.MSG                                       ║
  9. ║ Description   : Adds a hang up command to the QWK area.                     ║
  10. ╙─────────────────────────────────────────────────────────────────────────────╜
  11.  
  12. Long Description:
  13.      One of my users asked for this, so here it is.  Basically, it will allow
  14. you to hang up from the QWK area.
  15.  
  16. Disclaimer:
  17.      If your BBS gets fried, I didn't do it, nobody saw me do it, you can't
  18. prove anything.  In other words, it was probably your fault, and I'm not
  19. responsible for it.
  20.  
  21. Legend:
  22.  
  23. = Original Line
  24. + Add This Line
  25. - Delete This Line
  26. * Change This Line
  27.  
  28. Step 1:
  29.  
  30. Back up your source.  This should be automatic but....
  31. The following line will back up your source.  Type SAVE xxxxxxx, where xxxxxx
  32. is a date or something that you want it saved under.
  33. PKZIP -ex %1.ZIP *.C *.H *.MAK
  34.  
  35. Step 2:
  36.  
  37. Load QWK.C and in void qwk_menu(void) change the following as indicated:
  38.  
  39. =     if(qwk_percent)
  40. =     {
  41. =       ansic(3);
  42. =       nl();
  43. =       npr("%s %d%%\r\n", get_string(1636), qwk_percent);
  44. =     }
  45. =     nl();
  46. *     strcpy(temp, "7[3Q1DCUBSH%");      //Added H0
  47. =     if(so())
  48. =       strcat(temp, "1");
  49. =     strcat(temp, "7] ");0
  50. =     outstr(temp);
  51. =     mpl(1);
  52. =
  53. *     strcpy(temp, "Q\r?CDUBSH%");          //Added H
  54. =     if(so())
  55. =       strcat(temp, "1");
  56. =     key=onek(temp);
  57. =     if (rip_on())
  58. =
  59.  
  60.  
  61. Step 3:
  62.  
  63. Still in void qwk_menu(void) insert the following code:
  64.  
  65. =       case 'C':
  66. =         sysoplog(get_stringx(1,127));
  67. =         config_qwk();
  68. =         break;
  69. =
  70. +       case 'H':
  71. +         if (numbatchdl!=0) {
  72. +           nl();
  73. +           outstr(get_string(1324));
  74. +           if (ny())
  75. +             batchdl(1);
  76. +           else
  77. +             hangup=1;
  78. +         } else
  79. +           hangup=1;
  80. +         break;
  81. +
  82. =       case '%':
  83.  
  84.  
  85.  
  86. Step 4:
  87.  
  88. Save QWK.C and in your GFILES directory edit QWK.ANS and QWK.MSG to reflect
  89. the new command.
  90.  
  91.  
  92. Step 5:
  93.  
  94. Compile your board.  Then send me e-mail or something if you used it, or can
  95. improve it.
  96.  
  97. 9E1mperor 9A1CE0
  98.