home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / COMNDISP.MOD < prev    next >
Text File  |  1990-06-17  |  6KB  |  155 lines
  1. Tetrad #2 @9964
  2. Mon Jun 11 16:10:16 1990
  3.                                /* TETRAD3.MOD */
  4.  
  5. Description: What this mod does is print out exactly what a command does
  6.          when a user hits a key.  Like this:
  7.  
  8. [1] [The Excelsior]: Auto-Message
  9.  
  10. Original: This mod was originally done by Lt. Hytiek, but it wasn't exactly
  11.       what I was looking for.  If you have any
  12.       comments pleased drop him a line as well as me.
  13.  
  14.  -----------------------------------------------------------------------------
  15.  Step #1
  16.  
  17.     Backup your files.
  18.  -----------------------------------------------------------------------------
  19.  
  20.  Step #2 [BBSUTL.C]
  21.  
  22.     Delete the entire 'char **mmkey(int dl)' function in BBSUTL.C and replace
  23.     it with the following:
  24.  
  25. char *mmkey(int dl)
  26. {
  27.   static unsigned char cmd1[10],cmd2[81],ch;
  28.   int i,i1,i2,p;
  29.  
  30.   do {
  31.     do {
  32.       ch=getkey();
  33.     } while ((((ch<' ') && (ch!=13)) || (ch>126)) && (hangup==0));
  34.     ch=upcase(ch);
  35.     outchr(ch);
  36.     if (ch==13)
  37.       cmd1[0]=0;
  38.     else
  39.       cmd1[0]=ch;
  40.     cmd1[1]=0;
  41.     p=0;
  42.     switch(dl) {
  43.  
  44.     case 1: /* Transfer Section */
  45.       if (strchr(dcd,ch)!=NULL)
  46.         p=1;
  47.       if (ch=='?')print("\b 4 Help","");
  48.       if (ch=='*')print("\b 4 List Directories ","");
  49.       if (ch=='A')print("\b 4 ARC Listing of File ","");
  50.       if (ch=='B')print("\b 4 Batch d'load Commands ","");
  51.       if (ch=='C')print("\b 4 Chat with SysOp ","");
  52.       if (ch=='D')print("\b 4 Download a File ","");
  53.       if (ch=='E')print("\b 4 Extract a File ","");
  54.       if (ch=='F')print("\b 4 Find a File ","");
  55.       if (ch=='G')print("\b 4 ARC Commands ","");
  56.       if (ch=='I')print("\b 4 Information ","");
  57.       if (ch=='L')print("\b 4 List Files ","");
  58.       if (ch=='M')print("\b 4 Move a File ","");
  59.       if (ch=='N')print("\b 4 New Scan ","");
  60.       if (ch=='O')print("\b 4 Log Off ","");
  61.       if (ch=='P')print("\b 4 Set N-Scan Date ","");
  62.       if (ch=='Q')print("\b 4 Quit to Main Menu ","");
  63.       if (ch=='R')print("\b 4 Remove a File ","");
  64.       if (ch=='S')print("\b 4 Search For File ","");
  65.       if (ch=='T')print("\b 4 Transfer Defaults ","");
  66.       if (ch=='U')print("\b 4 Upload a File ","");
  67.       if (ch=='V')print("\b 4 View a File ","");
  68.       if (ch=='X')print("\b 4 Batch Download ","");
  69.       if (ch=='Z')print("\b 4 Upload to SysOp ","");
  70.       if ((ch=='>') || (ch=='+'))print("\b 4 Up 1 Directory ","");
  71.       if ((ch=='<') || (ch=='-'))print("\b 4 Down 1 Directory ","");
  72.       break;
  73.     case 2:
  74.       if (strchr(dc,ch)!=NULL)
  75.         p=1;
  76.       break;
  77.     case 0: /* Main Menu */
  78.       if (strchr(dc,ch)!=NULL)
  79.         p=1;
  80.       if ((ch=='>') || (ch=='+'))print("\b 4 Up 1 Sub ","");
  81.       if ((ch=='<') || (ch=='-'))print("\b 4 Down 1 Sub ","");
  82.       if (ch=='*')print("\b 4 List Subs ","");
  83.       if (ch=='?')print("\b 4 Help ","");
  84.       if (ch=='.')print("\b 4 Online Games ","");
  85.       if (ch=='A')print("\b 4 Auto-Message ","");
  86.       if (ch=='B')print("\b 4 BBS List ","");
  87.       if (ch=='C')print("\b 4 Chat with SysOp ","");
  88.       if (ch=='D')print("\b 4 Defaults ","");
  89.       if (ch=='E')print("\b 4 E-Mail a User ","");
  90.       if (ch=='F')print("\b 4 Feedback to SysOp ","");
  91.       if (ch=='G')print("\b 4 Text Files ","");
  92.       if (ch=='I')print("\b 4 Information ","");
  93.       if (ch=='K')print("\b 4 Kill old Email ","");
  94.       if (ch=='L')print("\b 4 Log of Callers ","");
  95.       if (ch=='M')print("\b 4 Mail Read ","");
  96.       if (ch=='N')print("\b 4 New Scan ","");
  97.       if (ch=='O')print("\b 4 Log Off ","");
  98.       if (ch=='P')print("\b 4 Post a Message ","");
  99.       if (ch=='Q')print("\b 4 Q-Scan Current Sub ","");
  100.       if (ch=='R')print("\b 4 Remove a Post ","");
  101.       if (ch=='S')print("\b 4 Scan Sub ","");
  102.       if (ch=='T')print("\b 4 Transfer Section ","");
  103.       if (ch=='U')print("\b 4 List Users ","");
  104.       if (ch=='V')print("\b 4 Voting Section ","");
  105.       if (ch=='X')print("\b 4 Expert/Novice Toggle ","");
  106.       if (ch=='Y')print("\b 4 Your Information ","");
  107.       if (ch=='Z')print("\b 4 Express N-Scan ","");
  108.       break;
  109.     }
  110.     if (p) {
  111.       do {
  112.         ch=getkey();
  113.       } while ((((ch<' ') && (ch!=13) && (ch!=8)) || (ch>126)) && (hangup==0));
  114.       ch=upcase(ch);
  115.       if (ch==13) {
  116.         nl();
  117.         return(cmd1);
  118.       } else
  119.         if (ch==8) {
  120.           backspace();
  121.         } else {
  122.           cmd1[1]=ch;
  123.           cmd1[2]=0;
  124.           outchr(ch);
  125.           if (ch=='/') {
  126.             input(cmd2,50);
  127.             return(cmd2);
  128.           } else
  129.             nl();
  130.             return(cmd1);
  131.         }
  132.     } else {
  133.       nl();
  134.       return(cmd1);
  135.     }
  136.   } while (hangup==0);
  137.   cmd1[0]=0;
  138.   return(cmd1);
  139. }
  140.  
  141.  -----------------------------------------------------------------------------
  142.  Step #3
  143.  
  144.     Recompile.. and update your menus about the changes you made.
  145.  -----------------------------------------------------------------------------
  146.  
  147.     As always, if you find a problem or just have a question you can contact
  148.     me by calling my board:
  149.  
  150.          The Excelsior             70+ WWIV On-Line games available for d'load
  151.          919-746-2858              Auto-Validation Of WWIV SysOps
  152.          WWIVnet node @9973        3/1200 bps (soon to be 2400/MNP)
  153.  
  154.           or.. send WWIVnet mail to 1@9973
  155.  -----------------------------------------------------------------------------