home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / LSD03.MOD < prev    next >
Text File  |  1991-06-12  |  5KB  |  164 lines
  1. Spotnick #1 @5499
  2. Monday, June 10, 1991   4:22 am
  3.                                LSD03.MOD
  4.                        By Spotnick 2@5472/1@5499
  5.  
  6. Welcome To WWiV-LSD Modifications.
  7.  
  8.  
  9. ──────────────────────────────────────────────────────────────────────────────
  10. WWIV-LSD is a clone of LSD/ViSiON BBS Software, By Modification of WWIV Source
  11. Code, It's no longer WWIV but still WWIVnet Compatible and still have WWIV
  12. Internal Function. The Program is only in Beta Version, It has many future has
  13. the SPLIT CHAT of ViSiON, A Vertical 2 Way Chat. The Main Site is The Fortress
  14. Of Shadow (514)-661-1416 and Beta Site is City Limits (514)-289-9675
  15. ──────────────────────────────────────────────────────────────────────────────
  16.  
  17. This modification is the EMERGENCY Chat Password, if you are like me, never
  18. available even if you are 60% at home because you don't like to chat, this
  19. mod allow you to be available to the user you want. Just give the password to
  20. user you want.
  21.  
  22.  
  23. Legend :
  24.  
  25. + Add Line
  26. - Delete Line
  27. * Exsisting Line
  28. ! Modify Line
  29.  
  30. ---------------------------------------------------------------------------
  31. STEP ONE
  32. File : BBSUTL.C
  33. Function : void reqchat()
  34. --------------------------------------------------------------------------
  35.  
  36. *        pl("Chat call turned ON.");
  37. *        nl();
  38. *      }
  39. *    }
  40. *  } else {
  41. !        prt(1,"Sysop is not available. Is this an 6EMERGENCY1?");
  42. +        if (yn()) {
  43. +        prt(1,"Enter 6EMERGENCY 1Chat password :");
  44. +        mpl(7);
  45. +        input(s,7);
  46. +       if (strcmp(s,"CHATPSWD")==0) { /* Insert here your chat password */
  47. +        nl(); nl();
  48. +        prt(1,"Paging Sysop...");nl();nl();
  49. +        noise(200,1800,100,1,15);prt(1,"S"); /* Well... Change This to */
  50. +        noise(200,1800,100,1,15);prt(2,"p"); /* Your Handle, Don't keep */
  51. +        noise(200,1800,100,1,15);prt(3,"o"); /* mine please! */
  52. +        noise(200,1800,100,1,15);prt(4,"t");
  53. +        noise(200,1800,100,1,15);prt(5,"n");
  54. +        noise(200,1800,100,1,15);prt(6,"i");
  55. +        noise(200,1800,100,1,15);prt(7,"c");
  56. +        noise(200,1800,100,1,15);prt(8,"k");
  57. +        noise(200,1800,100,1,15);prt(9,".");
  58. +        noise(200,1800,100,1,15);prt(1,".");
  59. +        noise(200,1800,100,1,15);prt(2,".");nl();
  60. +        noise(200,1800,100,1,15);prt(3,"S");
  61. +        noise(200,1800,100,1,15);prt(4,"p");
  62. +        noise(200,1800,100,1,15);prt(5,"o");
  63. +        noise(200,1800,100,1,15);prt(6,"t");
  64. +        noise(200,1800,100,1,15);prt(7,"n");
  65. +        noise(200,1800,100,1,15);prt(8,"i");
  66. +        noise(200,1800,100,1,15);prt(9,"c");
  67. +        noise(200,1800,100,1,15);prt(1,"k");
  68. +        noise(200,1800,100,1,15);prt(2,".");
  69. +        noise(200,1800,100,1,15);prt(3,".");
  70. +        noise(200,1800,100,1,15);prt(4,".");
  71. +        nl();nl();
  72. +        pl("1If The SysOp is Around, He will Answer.");
  73. +        } else
  74. +          pl("6Wrong Password!");
  75. +        } else {
  76. +        nl();nl();
  77. !        pl("1The SysOp isn't here, use Feedback instead.");
  78. !        nl();
  79. !        strcpy(irt,"Tried Paging.");
  80. !        byline[0]=0;
  81. !        imail(1,0);
  82. !    }
  83. *  }
  84. *}
  85.  
  86. /* You will LOVE those Beeps */
  87.  
  88. ---------------------------------------------------------------------------
  89. STEP TWO
  90. File : BBSUTL.C (if you don't have ANSI.C only)
  91. Function : add the function
  92. ---------------------------------------------------------------------------
  93.  
  94. /* This is Tolkien's Ansi.C function, I post it for them who don't have it */
  95.  
  96. void noise(int startfreq, int endfreq, int step, int paws, int repeats)
  97. /* 
  98.  * This function takes several parameters. Depending on these parameters,
  99.  * a noise will be made locally. We use this for such things as newuser
  100.  * logon, file access, chain access, logoff, chat, etc.
  101.  *
  102.  * The parameters are as follows:
  103.  *
  104.  * startfreq : The start frequency in hertz.
  105.  * endfreq   : The end frequency in hertz.
  106.  * step      : The number of hertz to step between startfreq and endfreq.
  107.  *             This number should be negative if endfreq is less than
  108.                                                          startfreq.
  109.  * paws      : The paws in milliseconds between repetitions.
  110.  * repeats   : The number of times to repeat the entire sequence.
  111.  *
  112.  * ANSI not required.
  113.  *
  114.  */
  115. {
  116.   int i,x,z;
  117.  
  118.   x=0;
  119.   if (startfreq<endfreq) {
  120.     do {
  121.       z=startfreq;
  122.       do {
  123.         sound(z);
  124.         delay(paws);
  125.         z+=step;
  126.       } while ((z <= endfreq) && (!hangup));
  127.       x++;
  128.     } while((x < repeats) && (!hangup));
  129.   } else {
  130.     do {
  131.       z=startfreq;
  132.       do {
  133.         sound(z);
  134.         delay(paws);
  135.         z+=step;
  136.       } while ((z >= endfreq) && (!hangup));
  137.       x++;
  138.     } while((x < repeats) && (!hangup));
  139.   }
  140.   nosound();
  141. }
  142. /*
  143.  * Usage:
  144.  *
  145.  * noise(100,1200,20,5,3);
  146.  * newuser();
  147.  *
  148.  */
  149.  
  150. That's it, Enjoy The Modification. If you have any trouble with this mod,please
  151. E-Mail me at 2@5472.
  152.  
  153. NOTE : I have Goose's Chat Mode, so if this is not compatible, E-Mail me I will
  154.        update it ASAP.
  155.  
  156.  
  157.                                 Spotnick
  158.                                  2@5472
  159.  
  160.        City Limits BBS -*- (514)-289-9675 -*- USR Double Standard
  161.                            WWiV-LSD Beta Site
  162.                             727 Megs On-Line
  163.                            WWiV Support Board
  164.