home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / AKID4.MOD < prev    next >
Text File  |  1992-12-01  |  2KB  |  81 lines
  1. AKID4.MOD for WWIV 4.20
  2.  
  3. Programmed by the Analog Kid, 1@5482
  4.                of Permanent Waves BBS
  5.                (514) 844-0214
  6.                Montreal, Quebec,
  7.                Canada
  8.  
  9. Makes a three-column external door display, with colours.  Will do so
  10. provided that the user has a display width length of at least 80 
  11. characters (otherwise, a single column is printed while maintaining
  12. the colours).
  13.  
  14. Instructions:  Open your BBSUTL1.C file, search for function "show_chains"
  15. and replace it with the one following (patch and paste your way through).
  16.  
  17. void show_chains(int *mapp, int *map)     /* AKID4.MOD, by the Analog Kid */
  18. {                                         /* Permanent Waves BBS, 1@5482  */
  19.   int abort,i,posit;                      /* Montreal, Quebec, Canada     */
  20.   char s[102],s1[90];                     /* (514) 844-0214               */
  21.  
  22.   abort=posit=i=0;
  23.   nl();
  24.   if (thisuser.screenchars<80)
  25.   {
  26.     pl("──══ External Programs ══──");
  27.     nl();
  28.     for (i=0; (i<*mapp) && (!abort) && (!hangup); i++)
  29.     {
  30.       sprintf(s1,"[%2d] %s",i+1,chains[map[i]].description);
  31.       pla(s1,&abort);
  32.     }
  33.   }
  34.   else
  35.   {
  36.     pl("                          ──══ External Programs ══──");
  37.     nl();
  38.     while ((i<*mapp) && (!abort) && (!hangup))
  39.     {
  40.       sprintf(s1,"[%2d] %s",i+1,chains[map[i]].description);
  41.       if (strlen(s1)>31)
  42.         s1[31]=0;
  43.       else
  44.         while (strlen(s1)<=30)
  45.           strcat(s1," ");
  46.       if (posit!=0)
  47.       {
  48.         strcat(s,"    ");
  49.         strcat(s,s1);
  50.         if (posit==2)
  51.         {
  52.           pla(s,&abort);
  53.           posit=0;
  54.         }
  55.         else
  56.           posit=2;
  57.       }
  58.       else
  59.       {
  60.         strcpy(s,s1);
  61.         posit=1;
  62.       }
  63.       i++;
  64.     }
  65.     if (posit!=0)
  66.       pla(s,&abort);
  67.   }
  68.   nl();
  69. }
  70.  
  71. Disclaimer:  It works well on Permanent Waves... I believe it should do
  72. likewise on your board.  I cannot, however, be held in any way responsible
  73. if things go awry in one way or another.  Let me know if you are having 
  74. difficulty and I'll do my very best to assist you - but don't come 
  75. running to me because of mod frustrations that resulted in the death of
  76. your dog named Rex.
  77.  
  78. Please do me a favour:  All criticism, suggestions and (especially!)
  79. praising are very welcome and kindly asked for.  Please do yourself
  80. a favour:  Insert Roll The Bones into stereo, play loud.  Many Thanks.
  81.