home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / DEMON01B.MOD < prev    next >
Encoding:
Text File  |  1995-07-11  |  7.1 KB  |  234 lines
  1.  
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │ Mod Name: DEMON01B.MOD                  Mod Author: CyberDemon             │
  4. │ Difficulty: [■■■.......] (3 of 10)      Date: 02/19/95                     │
  5. │ WWIV Version: 4.24                      Adapted From: A PCBoard PPE        │
  6. │ Version: 2.0  -  Updated and fixed for v4.24!                              │
  7. │ Files Affected: BBSOVL1.C, BBS.C, XFEROVL.C                                │
  8. │                                                                            │
  9. │ Description: This is an updated version of a YourInfo mod that I did a     │
  10. │              while ago, it never really worked.  Well, I finnaly got to    │
  11. │              fixing it.  Light Bars, and a Ton of Info...  WWIV.INI...     │
  12. └────────────────────────────────────────────────────────────────────────────┘
  13.  
  14. Disclaimer:  This mod is not going to be perfect.  I am not 100% sure that it
  15.          doesn't have bugs in it.  I am sure it wont format the harddrive
  16.          or anything( Unless someone else modified it too).  But in any
  17.          case, if you're scared this might srew something up; Dont put it
  18.          in!
  19.  
  20.  
  21. ───(Step 1)────────────────────────────────────────────────────────────────────
  22.  
  23. Load MMENU.C and replace case 'y' in function dlmainmenu() with this one:
  24.  
  25.       case 'Y':
  26.     yourinfo();
  27.     break;
  28.  
  29.  
  30. ───(Step 2)────────────────────────────────────────────────────────────────────
  31.  
  32. Load MMENU.C and replace case 'y' in function dlmainmenu() with this one:
  33.  
  34.  
  35. ───(Step 3)────────────────────────────────────────────────────────────────────
  36.  
  37. Load BBSOVL1.C and replace the function yourinfo with this:
  38.  
  39. /* CyberDemon Block Copy START */
  40.  
  41. char *info_menu [] =
  42. {
  43.   "FiLeS STaTuS        ",
  44.   "MeSSaGe STaTuS      ",
  45.   "oTHeR iNFo          ",
  46.   "LeaVe               "
  47. };
  48.  
  49. void infomenu(int type, int pos)
  50. /* This function moves the cursor with the arrow keys */
  51. {
  52.   switch (type) {
  53.    case 0:
  54.      setc(31);
  55.    break;
  56.    case 1:
  57.      setc(1);
  58.    break;
  59.   }
  60.   goxy(5,pos+4);
  61.   outstr(info_menu[pos - 1]);
  62. }
  63.  
  64.  
  65. void clearbox (int X, int Y, int Length, int EndLine)
  66. {
  67.   int i;
  68.   ansic(0);
  69.   goxy(X,Y);
  70.   for (Y=Y;Y<EndLine;Y++) {
  71.     for (i=0;i<Length;i++)
  72.       npr(" ");
  73.     goxy(X,Y);
  74.   }
  75. }
  76.  
  77. void yourstats(int s)
  78. {
  79.     switch(s) {
  80.     case 1:
  81.       clearbox(31,5,40,15);
  82.       goxy(31,5);
  83.       npr("9Uploaded Bytes          : 1%d",thisuser.uk);
  84.       goxy(31,6);
  85.       npr("9Uploaded Files          : 1%d",thisuser.uploaded);
  86.       goxy(31,7);
  87.       npr("9Downloaded Bytes        : 1%d",thisuser.dk);
  88.       goxy(31,8);
  89.       npr("9Downloaded Files        : 1%d",thisuser.downloaded);
  90.       goxy(31,9);
  91.       npr("9U/L-D/L Ratio           : 1%-5.3f",ratio());
  92.       break;
  93.     case 2:
  94.       clearbox(31,5,40,15);
  95.       goxy(31,5);
  96.       npr("9Messages Read           : 1%d",thisuser.msgread);
  97.       goxy(31,6);
  98.       npr("9Messages Written        : 1%d",thisuser.msgpost);
  99.       goxy(31,7);
  100.       npr("9Messages Written on Net : 1%d",thisuser.postnet);
  101.       goxy(31,8);
  102.       npr("9Comments to Sysop       : 1%d",thisuser.feedbacksent);
  103.       goxy(31,9);
  104.       npr("9Post/Call Ratio         : 1%-5.3f",post_ratio());
  105.       goxy(31,10);
  106.       npr("9E-Mail Sent             : 1%d",thisuser.emailsent);
  107.       goxy(31,11);
  108.       npr("9E-Mail Sent Over Net    : 1%d",thisuser.emailnet);
  109.       goxy(31,12);
  110.       npr("9Mail Waiting            : 1%d",thisuser.waiting);
  111.       break;
  112.     case 3:
  113.       clearbox(31,5,40,15);
  114.       goxy(31,5);                          
  115.       npr("9Current Speed           : 1%-19.19s",curspeed);
  116.       goxy(31,6);
  117.       npr("9First Time On           : 1%s",thisuser.firston);
  118.       goxy(31,7);
  119.       npr("9Last Time On            : 1%s",thisuser.laston);
  120.       goxy(31,8);
  121.       npr("9Security Level          : 1%d",thisuser.sl);
  122.       goxy(31,9);
  123.       npr("9Download Security Level : 1%d",thisuser.dsl);
  124.       goxy(31,10);
  125.       npr("9Your User Note          : 1%-19.19s",thisuser.note);
  126.       goxy(31,11);
  127.       npr("9Ass Hole Points         : 1%d",thisuser.ass_pts);
  128.       goxy(31,12);
  129.       npr("9TimeBank Time           : 1%d",thisuser.banktime);
  130.       goxy(31,13);
  131.       npr("9WWIV Reg. Number        : 1%d",thisuser.wwiv_regnum);
  132.       break;
  133.     case 4:
  134.       clearbox(31,5,40,15);
  135.       goxy(31,5);
  136.       outstr("7QuiT BaCK To WWiV");
  137.       break;
  138.     }
  139. }
  140.  
  141. void yourinfo(void)
  142. {
  143.   char ini[81],*ss;
  144.   int pos=1, done=0;
  145.   unsigned ch;
  146.  
  147.   if (ini_init("WWIV.INI", "WWIV", NULL)==0) {
  148.     if ((ss=ini_get("SHORT_SYS_NAME", -1, NULL))!=NULL) {
  149.         strcpy(ini, ss);
  150.     }
  151.   ini_done();
  152.   }
  153.   printfile("YOURINFO.ANS");
  154.    setc(3); 
  155.     goxy(11,10); outstr(ini);
  156.     goxy(11,11); outstr(syscfg.sysopname);
  157.     goxy(11,12); outstr(date());
  158.     goxy(11,13); outstr(ctim(nsl()));
  159.     goxy(18,14); outstr("1");  //CHANGE THIS - Total Number Of Instances!!!
  160.     goxy(18,15); npr("%d",instance);
  161.     yourstats(1);
  162.   infomenu(0, pos);
  163.    do {
  164.      ch=get_kb_event();
  165.       switch (ch) {
  166.     case COMMAND_UP:
  167.       infomenu(1, pos);
  168.       pos--;
  169.       if (pos<1)
  170.         pos=4;
  171.       infomenu(0, pos);
  172.       yourstats(pos);
  173.       ch=-1;
  174.     break;
  175.     case COMMAND_DOWN:
  176.       infomenu(1, pos);
  177.       pos++;
  178.       if (pos>4)
  179.         pos=1;
  180.       infomenu(0, pos);
  181.       ch=-1;
  182.       yourstats(pos);
  183.     break;
  184.     case EXECUTE:
  185.       switch (pos) {
  186.       case 4: CLS(); done=1; break;
  187.     }
  188.       }
  189.   } while ((!done) && (!hangup));
  190. }
  191.  
  192. /* CyberDemon Block Copy FINISH */
  193.  
  194.  
  195. ───(Step 4)────────────────────────────────────────────────────────────────────
  196.  
  197. Load WWIV.INI and add this under [WWIV] :
  198.  
  199. ; SHORT_SYS_NAME   : Short System Name, Ex. The Humble Old Shack="THOS"
  200. ;                    you should keep the short system name under 15 chars.
  201. SHORT_SYS_NAME         = WWIV BBS
  202.  
  203.  
  204. Add this file to your GFILES directory!
  205.  
  206. section 1 of 1 of file yourinfo.ans  < uuencode 5.32 by R.E.M. >
  207.  
  208. begin 644 yourinfo.ans
  209. M&ULT,&T;6S)*&ULT,&T-"AM;,&W:&ULQ.S,V;<3$&ULP.S,V;<3$&ULQ.S,P
  210. M;<3$^?D@^2`@^AM;-3!#^B`@(/D@^?G$Q!M;,#LS-FW$Q!M;,6W$Q!M;,&V_
  211. M#0H;6S$[,S9MLQM;-S=#LPT*&ULP.S,V;;,@(!M;,3LS-VW:&ULP;<3$Q,0;
  212. M6S$[,S!MQ,3Y^2`@(/GYQ,3$&ULP;<3$Q,0;6S%MOR`@(-H;6S!MQ,3$Q!M;
  213. M,3LS,&W$Q/GY&ULR.4/Y^<3$Q!M;,&W$Q,3$&ULQ;;\@(!M;,#LS-FVS#0H;
  214. M6S$[,S!MLR`@&ULP;;,;6S,T;49I3&53(%-4851U4QM;.$,;6S,W;;,@(""S
  215. M&ULT-D.S("`;6S$[,S!MLPT*+B`@LQM;,#LS-&U-95-384=E(%-4851U4QM;
  216. M-D,;6S$[,S!MLR`@(+,;6S0V0[,@("X-"BX@(+,;6S`[,S1M;U1(95(@:4YF
  217. M;QM;,3!#&ULQ.S,P;;,@(""S&ULT-D.S("`N#0H@("`;6S!MLQM;,S1M3&5A
  218. M5F4;6S$U0QM;,S=MLPT*("`@&ULQ;<`;6S!MQ,3$Q!M;,3LS,&W$Q/GY("`@
  219. M^?G$Q,0;6S!MQ,3$Q!M;,6W9#0H@(!M;,S9M0D]!4D0@&ULP.S,V;3H-"B`@
  220. M&ULQ;5-94T]0(!M;,#LS-FTZ#0H;6S$[,S!M+B`;6S,V;41!5$4@(!M;,#LS
  221. M-FTZ&ULQ.4,;6S$[,S!MLQM;-#9#LR`@+@T*+B`;6S,V;51I344@(!M;,#LS
  222. M-FTZ&ULQ.4,;6S$[,S!MLQM;-#9#LR`@+@T*LR`;6S,V;51/5$%,($Y/1$53
  223. M("`;6S`[,S9M.AM;,3)#&ULS-VVS&ULT-D.S("`;6S$[,S!MLPT*&ULP.S,V
  224. M;;,@&ULQ;4-54E)%3E0@3D]$12`;6S`[,S9M.AM;,3)#&ULQ.S,W;<`;6S!M
  225. MQ,3$Q!M;,3LS,&W$Q/GY&ULR.4/Y^<3$Q!M;,&W$Q,3$&ULQ;=D@(!M;,#LS
  226. M-FVS#0H;6S%MLQM;-S=#LPT*&ULP;<`;6S$[,S9MQ,0;6S`[,S9MQ,0;6S$[
  227. M,S!MQ,3Y^2#Y("#Z&ULU,$/Z("`@^2#Y^<3$&ULP.S,V;<3$&ULQ;<3$&ULP
  228. .;=D;6S!M&ULR-35$#0HG
  229. `
  230. end
  231. sum -r/size 41049/1229 section (from "begin" to "end")
  232. sum -r/size 19800/869 entire input file
  233.  
  234.