home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / JLP-003.ZIP / JLP-003.MOD < prev   
Encoding:
Text File  |  1995-06-23  |  1.7 KB  |  57 lines
  1. Jean-Luc Picard #1 @6227
  2. Tue Jun 20 18:19:23 1995
  3. JLP-003.MOD : Pause on demand.
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name: jlp-003.mod             Date: June 20, 1995                      │
  6. │ Difficulty:  █▒▒▒▒▒▒▒▒▒▒          Mod Authors:  Jean-Luc Picard            │
  7. │ WWIV Version:  4.2x               Nets: 1@6227.WWIVNET                     │
  8. │                                         1@6571.ICENET                      │
  9. │ Files Affected: Com.C                                                      │
  10. │ Description:  This mod will allow the SysOp or user cause a pause using    │
  11. │               a char 19 (CTRL+S in TheDraw or the !! charcter).  Great for │
  12. │               putting pauses in ANSI files.                                │
  13. └────────────────────────────────────────────────────────────────────────────┘
  14.  
  15. Disclaimer:
  16.  
  17.      If this mod blows up your computer, then I am not responsible.
  18.  
  19. Legend:
  20.     + Add this line
  21.     - Remove this line
  22.     = Existing line
  23.     % Change this line
  24.  
  25. Step 1:
  26.     Backup your source!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  27.  
  28. Step 2:
  29.     Open COM.C function outchr(unsigned char c)
  30.  
  31. =    } else if (change_color == 1) {
  32. =        change_color = 0;
  33. =        if ((c >= '0') && (c <= '9'))
  34. =            ansic(c - '0');
  35. =        return 0;
  36. =    }
  37. +    if (c == 19) {
  38. +      if (sysstatus_pause_on_page & thisuser.sysstatus) {
  39. +        pausescr();
  40. +        return;
  41. +      }
  42. =    }
  43. =    if (c == 3) {
  44. =        change_color = 1;
  45. =        return 0;
  46. =    } else if (c == 15) {
  47. =        change_color = 4;
  48. =        return 0;
  49. =  } else if ((c == '|') && (g_flags & g_flag_pipe_colors) &&
  50.  
  51. Step 3:
  52.     Save COM.C & MAKE!
  53.  
  54.  
  55. Jean-Luc Picard #1 (SysOp)
  56. U.S.S. Enterprise BBS (@6571.ICENET & @6227.WWIVNET)
  57.