Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : RANPAUSE.MOD
91/100: Random pauses!!!!!!!!!!!!!!! With default option!
Name: Hemplord #20 @6457
Date: Tue Jan 21 21:31:22 1992
From: The Fields of The Nephilim [614-475-3303]
Name: Hemplord #34 @6478, #20 @ 6457
Date: Jan 20 1992
Time: Right after watching the Dice Rules
Mod : Randomize Your Pauses...
Allow users to select a animated pause from defaults...
Special Notes: This MOD utilizes the many pause MOD's that are available
from your local bbs's. It will work with WWIV 4.12 and newer....It will also
allow the user to select which pause they wish to use from the defaults menu.
*******Legend**********
| |
| = <- Search For |
| + <- Add |
| * <- Change |
| - <- Delete |
| |
***********************
This MOD utilizes SABPAUS*.MOD's ( thanks will come later..) this MOD
takes any number of pauses and randomizes the order in which they appear when
called for by WWIV and will allow the user to select the pause he/she wishes
through their defaults.
Gar-un-tees... If ya do it right, it won't take ya all night..
and ya can keep your HD too!
On to the MOD....
*****************************************************************************
First, load up COM.C from your WWIV directory. At the bottom of the includes
add...
#include
#include
*****************************************************************************
Next, utilize the find command that comes with your editor (control-q then f)
search for (don't include the '=' sign in your search)
= void pausescr()
Delete everything in that function and replace it with the code below.
/******************Start of Mod***************************/
void pausescr()
/* This will pause output, displaying a random pause message, and wait for
* a key to be hit.
*/
{
int i,n,pause;
if (((thisuser.res[1])=='A') || ((thisuser.res[1])==0)) {
randomize();
n = random(9)+1;
} else
n = thisuser.res[1]-48;
switch(n) {
case 1: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr("[PAUSE]\x1b[7D");
setc(i);
getkey();
outstr(" \x1b[7D");
} else {
outstr("[PAUSE]");
getkey();
for (i = 0; i < 7; i++)
backspace();
}
}
break;
case 2: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(1);
outstr("2!3---------\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3-2!3--------\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--2!3-------\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1P2!3------\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PA2!3-----\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1PAU2!3----\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PAUS2!3---\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1PAUSE2!3--\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PAUSE3-2!3-\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1PAUSE3--2!\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PAUSE3-2!3-\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1PAUSE2!3--\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PAUS2!3---\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1PAU2!3----\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--1PA2!3-----\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3--1P2!3------\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("3--2!3-------\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
outstr("3-2!3--------\x1b[10D");
if (inkey()!=0)
break;
ansic(1);
outstr("2!3---------\x1b[10D");
if (inkey()!=0)
break;
ansic(7);
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b\b\b\b \x1b[47D");
} else {
outstr("1Hit 2(3almost2)1 any key2.");
getkey();
for (i = 0; i < 21; i++)
backspace();
}
}
break;
case 3: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
ansic(1);
outstr("5< 5>1Pause5< 5>\x1b[2D");
do {
if (inkey()!=0)
break;
ansic(7);
outstr("|\x1b[9D");
outstr("|\x1b[7C");
if (inkey()!=0)
break;
ansic(5);
outstr("\\\x1b[9D");
outstr("\\\x1b[7C");
if (inkey()!=0)
break;
ansic(2);
outstr("-\x1b[9D");
outstr("-\x1b[7C");
if (inkey()!=0)
break;
ansic(3);
outstr("/\x1b[9D");
outstr("/\x1b[7C");
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b\b\b\b\b \x1b[44D");
} else {
outstr(" < >PAUSE< >\x1b[2D");
do {
if (inkey()!=0)
break;
outstr("|\x1b[9D");
outstr("|\x1b[7C");
if (inkey()!=0)
break;
outstr("\\\x1b[9D");
outstr("\\\x1b[7C");
if (inkey()!=0)
break;
outstr("-\x1b[9D");
outstr("-\x1b[7C");
if (inkey()!=0)
break;
outstr("/\x1b[9D");
outstr("/\x1b[7C");
} while(inkey()==0);
outstr(" ");
for (i = 0; i < 44;i++)
backspace(); /*new end*/
}
}
break;
case 4: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(7);
outstr("ͳ >\b>\b>AUSE ³Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("ͳ P>\b>\b>USE ³Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(2);
outstr("ͳ PA>\b>\b>SE ³Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(3);
outstr("ͳ PAU>\b>\b>E ³Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(5);
outstr("ͳ PAUS>\b>\b> ³Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(3);
outstr("ͳ PAU<\b
if (inkey()!=0)
break;
ansic(5);
outstr("ͳ PA<\b<\b
if (inkey()!=0)
break;
ansic(1);
outstr("ͳ P<\b outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b");
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b \x1b[44D");
} else {
outstr("[PAUSE]");
getkey();
for (i = 0; i < 7; i++)
backspace();
}
}
break;
case 5: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(7);
outstr("Í >\b>\b>AUSE Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("Í P>\b>\b>USE Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(2);
outstr("Í PA>\b>\b>SE Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(3);
outstr("Í PAU>\b>\b>E Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(5);
outstr("Í PAUS>\b>\b> Í");
outstr(" \b\b\b\b\b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(3);
outstr("Í PAU<\b
if (inkey()!=0)
break;
ansic(5);
outstr("Í PA<\b<\b
if (inkey()!=0)
break;
ansic(1);
outstr("Í P<\b outstr(" \b\b\b\b\b\b\b\b\b\b\b");
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b \x1b[44D");
} else {
outstr("Hemplord's Pause.... go on, hit it!");
getkey();
for (i = 0; i < 35; i++)
backspace();
}
}
break;
case 6: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(7);
outstr("[...®pAUSEd¯...]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[..®.PaUSeD.¯..]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[.®..PAusED..¯.]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[®...PaUSeD...¯]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[.¯..pAUSEd..®.]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[..¯.PaUSeD.®..]\x1b[16D");
if (inkey()!=0)
break;
ansic(7);
outstr("[...¯PAusED®...]\x1b[16D");
if (inkey()!=0)
break;
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
\x1b[50D");
} else {
outstr("Pause..");
getkey();
for (i = 0; i < 7; i++)
backspace();
}
}
break;
case 7: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(1);
outstr("ÄÄuse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pÄÄse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("paÄÄe");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pauÄÄ");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("ÄausÄ");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("ÄÄuse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pÄÄse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("paÄÄe");
outstr(" \b\b\b\b\b\b\b");
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b \x1b[44D");
} else {
outstr("(* Touch ME! *)");
getkey();
for (i = 0; i < 15; i++)
backspace();
}
}
break;
case 8: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr("(* Press a Key *)\x1b[17D");
setc(i);
getkey();
outstr(" \x1b[17D");
} else {
outstr("(* Press a Key *)");
getkey();
for (i = 0; i < 17; i++)
backspace();
}
}
break;
case 9: {
if (okansi()) {
i = curatr;
setc((thisuser.sysstatus & sysstatus_color) ? thisuser.colors[3] :
thisuser.bwcolors[3]);
outstr(" \x1b[11D");
do {
ansic(1);
outstr("Pause");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pAuse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("paUse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pauSe");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pausE");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pauSe");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("paUse");
outstr(" \b\b\b\b\b\b\b");
if (inkey()!=0)
break;
ansic(1);
outstr("pAuse");
outstr(" \b\b\b\b\b\b\b");
} while(inkey()==0);
setc(i);
outstr(" \b\b\b\b\b\b\b \x1b[44D");
} else {
outstr("(* Pause *)");
getkey();
for (i = 0; i < 11; i++)
backspace();
}
}
break;
}
}
/**************************** End Of Mod ***************************/
Save COM.C and move on to the next step...
Next step... (If you so desire) is to load up DEFAULTS.C and find
= npr("B. Optional lines : %d\r\n",thisuser.optional_val);
and then add this right below it:
+ pl("C. Change your Pause");
Next.. go down a bit.. and find
= prt(2,"Defaults: (1-9,A-B,?,Q) : ");
= ch=onek("Q?123456789AB");
= } else {
= prt(2,"Defaults: (1-7,B,?,Q) : ");
= ch=onek("Q?1234567B");
Add a C to each of these.. so it looks like this
* prt(2,"Defaults: (1-9,A-C,?,Q) => ");
* ch=onek("Q?123456789ABC");
* } else {
* prt(2,"Defaults: (1-7,B-C,?,Q) => ");
* ch=onek("Q?1234567BC");
Go down to the case statements... and add
(just block copy it in...)
case 'C':
pl("View and remember these pauses:");
pl("1:");
thisuser.res[1]='1';
pausescr();
pl("2:");
thisuser.res[1]='2';
pausescr();
pl("3:");
thisuser.res[1]='3';
pausescr();
pl("4:");
thisuser.res[1]='4';
pausescr();
pl("5:");
thisuser.res[1]='5';
pausescr();
pl("6:");
thisuser.res[1]='6';
pausescr();
pl("7:");
thisuser.res[1]='7';
pausescr();
pl("8:");
thisuser.res[1]='8';
pausescr();
pl("9:");
thisuser.res[1]='9';
pausescr();
pl("A: (random pause)");
pl("Enter the number of the pause you want.");
outstr(" : ");
thisuser.res[1]=onek("123456789A");
break;
Compile the bbs, and awaaaaaaaay you go!
~~~---___HEMPLORD___---~~~
Smokin' it all the way!!
Call:
The Morgue 614-755-9795 Midnight to 6 PM EST
The Daily Post 614-261-1632 24 hours a day
The Fields of Nephilm 614-475-3303 24 hours a day
Thanks go to...
Dino, #2 @3466
Eugene, #1 @8769
Warehouse Manager, #1 @5801
Sabbath, #1 @2109
Harley Man, #1 @8855
Icedude, #201 @ 5858
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/