home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / EATME.MOD < prev    next >
Text File  |  1990-05-03  |  6KB  |  195 lines
  1. Crystal Shard #51 @8876
  2. Sun Apr 29 09:51:39 1990
  3.  
  4. (*)-(*)=>  Originating from The Ward, Southern Ca.  <=(*)-(*)
  5.  
  6. /*****************************\
  7. |  Spinning Cursor mod v1.1b  |
  8. | >>---> Crystal Shard <---<< |
  9. |           04/28/90          |
  10. |       (Old EATME mod)       |
  11. |       (by ROB MILLER)       |
  12. |        (and SCHITZO)        |
  13. \*****************************/
  14.  
  15. New Version -
  16.      There were some errors in my first release.  I think they should be fixed
  17.      by now.  If you have any problems, drop a line.
  18.  
  19. Note by C. Lord Shard -
  20.      Thank Rob and Schitzo for the main body of the source code.  What I did
  21.      was slow down the spinning cursor and change the default so you get that
  22.      famous spinning cursor!
  23.  
  24. Disclaimer -
  25.      *** This mod has not actually been tested yet! ***  Therefore, I claim
  26.      no form of responsibility whatsoever, stated or implied, to this mod.
  27.      If your brand new 300 megabyte hard drive melts to slag or your modem
  28.      explodes into a million bits of silicon in your face, it's not my fault.
  29.      Hey, go bug Rob or Schitzo!  Hehehe...
  30.  
  31. /************************************************************************/
  32. /*    This mod to a mod enables the user to edit the "eatme" prompt.    */
  33. /*  At the main user the user would type /C and it'll allow him to      */
  34. /*  Change the eatme cursor.  And it will stay around for the next user */
  35. /*  to see, until someone changes it.  A few notes:  1] You can change  */
  36. /*  the defaults.. it doesn't matter, also when you shrink to dos, it   */
  37. /*  will go back to the default settings.  Uhm.. for those of you who   */
  38. /*  have not yet installed it-  This mod makes certain strings, such as */
  39. /*  the "Saving..." go back over it self in a neato pattern..  Try it   */
  40. /*  I am sure you'll like it!                                           */
  41. /************************************************************************/
  42.  
  43. /***********************/
  44. /*  Key                */
  45. /*                     */
  46. /*  = Existing Line    */
  47. /*  + Add Line         */
  48. /*                     */
  49. /*  @ My Additions     */
  50. /***********************/
  51.  
  52.  
  53. Load up BBS.C  and right after the #includes... do this:
  54.  
  55. =  #include <dos.h>
  56. =  #include <alloc.h>
  57. =  #include <time.h>
  58.  
  59. @+ char eat[10], eat1[10], eat2[10], eat3[10];
  60. @+ int eati=0;
  61. =  unsigned _stklen=15360;
  62.  
  63.  
  64. Then add this to any file, I added it to BBS.C  - doesn't really make
  65. a difference.  Just be sure to add it before, or after another function
  66. NOT in the midst of one! :)
  67.  
  68. void hangon(int x) {
  69.   int i;
  70.   switch(x) {
  71.     case 2400:
  72.       x=1000;
  73.       break;
  74.     case 1200:
  75.       x=500;
  76.       break;
  77.     case 300:
  78.       x=75;
  79.       break;
  80.     default:
  81.        x=1500;
  82.        break;
  83.   }
  84.   for (i=0; i<x; i++);
  85. }
  86.  
  87. void eatme(int l) {
  88. /* l = strlen(s) */
  89.   int i;
  90.   int j;
  91.   if(!eati) {
  92.     strcpy(eat,"|");
  93.     strcpy(eat1,"\");
  94.     strcpy(eat2,"-");
  95.     strcpy(eat3,"/");
  96.   }
  97.   delay(250);
  98.   for (i=l; i>0; i--) {
  99.     for (j=0; j<9; j++) {
  100.       hangon(atoi(curspeed));
  101.       hangon(0);
  102.       switch(j) {
  103.         case 0:
  104.           outstr(eat);
  105.           break;
  106.         case 2:
  107.           outstr(eat1);
  108.           break;
  109.         case 4:
  110.           outstr(eat2);
  111.           break;
  112.         case 6:
  113.           outstr(eat3);
  114.           break;
  115.         case 9:
  116.           outstr("\b");
  117.           break;
  118.         default:
  119.           outstr("\b \b");
  120.           break;
  121.       }
  122.     }
  123.   }
  124. }
  125.  
  126.  
  127. Next we go down to void mainmenu()  and...
  128.  
  129.  
  130.   if (strcmp(s,"/O")==0)    /* Existing Code... */
  131.     hangup=1;               /*     ||           */
  132.   if (strcmp(s,"/E")==0)    /*     ||           */
  133.     slash_e();              /*     \/           */
  134.  
  135.   if (strcmp(s,"/C")==0) {   /** Then add all of this ... **/
  136.  
  137.     sprintf(s,"Current setting:  %s%s%s%s",eat,eat1,eat2,eat3,eat4);
  138.     prt(1,s); nl();
  139.     prt(5,"Change it? ");
  140.     if(yn()) {
  141.       eati=1;
  142.       prt(1,"Enter first character ");
  143.       mpl(1);
  144.       inputl(eat,1); nl();
  145.       if(eat[0]) nl();
  146.       else strcpy(eat,"|");
  147.       prt(1,"Enter second character ");
  148.       mpl(1);
  149.       inputl(eat1,1); nl();
  150.       if(eat1[0]) nl();
  151.       else strcpy(eat1,"\");
  152.       prt(1,"Enter third character ");
  153.       mpl(1);
  154.       inputl(eat2,1); nl();
  155.       if(eat2[0]) nl();
  156.       else strcpy(eat2,"-");
  157.       prt(1,"Enter fourth character ");
  158.       mpl(1);
  159.       inputl(eat3,1);  nl();
  160.       if(eat3[0]) nl();
  161.       else strcpy(eat3,"/");
  162.       nl();
  163.       prt(3,"And away we go!"); eatme(15);
  164.     }
  165.     nl();
  166.     }
  167.     /* The rest is existing code */
  168.   if (strcmp(s,"/N")==0)
  169.     nscan(cursub);
  170.   ...
  171.  
  172.   Now all you have to do is USE it!  So the most popular place to use it
  173.   is in the message base part, where it says Saving..  that is shown below
  174.   To use it in other places just put eatme(int)  where int is however many
  175.   spaces you want it to "Eat"..
  176.  
  177. In MSGBASE.C...
  178.  
  179. =   outstr("Saving...");
  180. +   eatme(9);
  181. =     if (fsed) {
  182. =       i5=open(fnx,O_RDONLY | O_BINARY);
  183.  
  184. Now press F9 and go chug 10 gallons 'o ale or empty you swimming pool with a
  185. fork while you wait for WWIV to recompile, unless you got a '386.  If so, just
  186. blink your eyes, and you're done!  Hope you enjoy, and if you see me on a BBS,
  187. stop and say,
  188.  
  189.                "Hi there, C. Lord Shard,
  190.                                 Crystal Lord,
  191.                                         C. Lord Shard,
  192.                                                 Sealord Shard!"
  193.  
  194. Amber #1200@1                           The Ward! #51@8876
  195.