home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / FRANK10A.MOD < prev    next >
Text File  |  1996-01-08  |  4KB  |  153 lines
  1.         ╔════════════════════════════════════════════════════════════╗
  2.         ║ Mod Name:  FRANK10A.MOD       Author: Frank 1@1    DigiNet ║
  3.         ║ Mod Difficulty: 1 ▓░░░░░░░░░ 10             1@8339 WWIVnet ║
  4.         ║                    <simple>                 1@4065 TerraNet║
  5.         ║ Files affected:  COM.C                      1@4065 ICEnet  ║
  6.         ║                                                            ║
  7.         ║ Desc: Animated pause function; 2400 aware.                 ║
  8.         ╚════════════════════════════════════════════════════════════╝
  9.  
  10. Revision A:
  11.     Fixes bug if user hangs up at pause prompt; would lock up.
  12.     (thanks to Tonedef #1@5479.WWIVnet)
  13.     Now uses animated pause for all Local logons or logons above 2400 bps.
  14.     (thanks to Tonedef #1@5479.WWIVnet)
  15.  
  16. STEP 1:
  17.  
  18.     Back up yer source code!  Although it's almost impossible to screw this
  19.     up, I dont need any of you interrupting my time with Ann. :)
  20.  
  21. STEP 2:
  22.     Load COM.C and replace the void pausescr(void) with this one:
  23.  
  24. /****************************************************************************/
  25.  
  26. void pausescr(void)
  27. /* This will pause output, displaying the [PAUSE] message, and wait for
  28.  * a key to be hit.
  29.  */
  30. {
  31.   int i,i1,i2,oiia,a;
  32.   char *ss,ch;
  33.  
  34.  
  35.   if (x_only)
  36.     return;
  37.  
  38.   oiia=iia;
  39.   setiia(0);
  40.  
  41.   ss=str_pause;
  42.   i2=i1=strlen(ss);
  43.   for (i=0; i<i2; i++)
  44.     if ((ss[i]==3) && (i1>1))
  45.       i1-=2;
  46.  
  47.   if (okansi()) {
  48.     if ((atoi(curspeed)>2400) || (live_user)) {
  49.         a=50;
  50.     do {
  51.       npr("\x1b[255D");
  52.       prt(1,"pause9 ∙7· ·9∙ \x1b[255D");
  53.       delay(a);
  54.       ch=inkey();
  55.         if (!ch==0)
  56.           break;
  57.       npr("\x1b[255D");
  58.       prt(1," pause9 ∙7· ·9∙\x1b[255D");
  59.       delay(a);
  60.       ch=inkey();
  61.         if (!ch==0)
  62.           break;
  63.       npr("\x1b[255D");
  64.       prt(9,"∙ 1pause9 ∙7· ·\x1b[255D");
  65.       delay(a);
  66.       ch=inkey();
  67.         if (!ch==0)
  68.           break;
  69.       npr("\x1b[255D");
  70.       prt(7,"·9∙ 1pause9 ∙7· \x1b[255D");
  71.       delay(a);
  72.       ch=inkey();
  73.         if (!ch==0)
  74.           break;
  75.       npr("\x1b[255D");
  76.       prt(7," ·9∙ 1pause9 ∙7·\x1b[255D");
  77.       delay(a);
  78.       ch=inkey();
  79.         if (!ch==0)
  80.           break;
  81.       npr("\x1b[255D");
  82.       prt(7,"· ·9∙ 1pause9 ∙\x1b[255D");
  83.       delay(a);
  84.       ch=inkey();
  85.         if (!ch==0)
  86.           break;
  87.       npr("\x1b[255D");
  88.       prt(9,"∙7· ·9∙ 1pause \x1b[255D");
  89.       delay(a);
  90.       ch=inkey();
  91.         if (!ch==0)
  92.           break;
  93.       npr("\x1b[255D");
  94.       prt(9," ∙7· ·9∙ 1pause\x1b[255D");
  95.       delay(a);
  96.       ch=inkey();
  97.         if (!ch==0)
  98.           break;
  99.       npr("\x1b[255D");
  100.       prt(9,"1e 9∙7· ·9∙ 1paus\x1b[255D");
  101.       delay(a);
  102.       ch=inkey();
  103.         if (!ch==0)
  104.           break;
  105.       npr("\x1b[255D");
  106.       prt(9,"1se9 ∙7· ·9∙ 1pau\x1b[255D");
  107.       delay(a);
  108.       ch=inkey();
  109.         if (!ch==0)
  110.           break;
  111.       npr("\x1b[255D");
  112.       prt(1,"use9 ∙7· ·9∙ 1pa\x1b[255D");
  113.       delay(a);
  114.       ch=inkey();
  115.         if (!ch==0)
  116.           break;
  117.       npr("\x1b[255D");
  118.       prt(1,"ause9 ∙7· ·9∙ 1p\x1b[255D");
  119.       delay(a);
  120.       ch=inkey();
  121.     } while ((ch==0) && (!hangup));
  122.     prt(9,"            \x1b[255D");
  123.     } else {
  124.       npr("\x1b[255D");
  125.       prt(7,"·9∙ 1pause9 ∙7· \x1b[255D");
  126.       getkey();
  127.       prt(7,"            \x1b[255D");
  128.     }
  129.   } else {
  130.     outstr(ss);
  131.     if (in_extern)
  132.       getkey();
  133.     else
  134.       getkeymouse();
  135.     for (i = 0; i<i1; i++)
  136.       backspace();
  137.   }
  138.  
  139.   setiia(oiia);
  140. }
  141.  
  142. /****************************************************************************/
  143.  
  144. STEP 3:
  145.    Recompile and you're off!
  146.  
  147. Let me know how it goes.. I've got an email address, #1 on @1.DigiNet,
  148. @8339.WWIVnet, @4065.TerraNet, @4065.ICEnet.
  149.  
  150. peace,
  151. Frank.DigiNet.NC
  152.  
  153.