home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ALLMODS.ZIP / DREAM27.ZIP / DREAM27.MOD next >
Encoding:
Text File  |  1995-06-23  |  7.4 KB  |  208 lines
  1. Top Cat #1 @2748
  2. Tue Jun 20 07:15:30 1995
  3. 4Msg. Status:3▄ 1Reply not necessary!
  4. 3 ▀▀▀▀▀▀▀▀▀▀▀▀
  5.  
  6. ┌────────────────────────────────────────────────────────────────────────────┐
  7. │ Mod Name: Dream27.424             Date Updated: June 19,1995               │
  8. │ Difficulty:  █▒▒▒▒▒▒▒▒▒▒          Mod Author:   Unca Scrooge               │
  9. │ WWIV Version:  4.24               Updated by:   Top Cat 1@2748 WWIVnet     │
  10. │                                                         1:137/119 Fidonet  │
  11. │ Files Affected: SUBEDIT.C  BBS.STR                                         │
  12. │ Description:  Colorized //BOARDEDIT and put a nice little box around the   │
  13. │               editing info.  Example below.                                │
  14. └────────────────────────────────────────────────────────────────────────────┘
  15.  
  16. Long Description:  Welp, figured it was time I wrote one for these for
  17.            //BOARDEDIT, since I have ones for //CE, //DE. and //GE.
  18.            <g>...  This was originally written by the author of
  19.            CAVEMOD3...  (That's where I got the idea for //CE, etc.)
  20.            I was unable to contact him, so if he reads this and
  21.            has a problem with my releasing this mod, if he lets me
  22.            know I'll either pull the mod or something....  No bashes
  23.            towards him, it was written well and worked (I just can't
  24.            find it <g>  That's why I can't contact him... Spelunker,
  25.            I believe...)  Anyway, this is a little different that
  26.            the one he wrote in one small aspect of the box...
  27.            Anyhoo... on with it...
  28.  
  29. Update by   : Unca Scrooge wrote this mod for 4.23. All I did was update it
  30. Top Cat       to 4.24. If you like the mod, email me 1@2748 and I will make
  31.           sure Unca gets the mail so he knows his mods are still out
  32.           there :)
  33.  
  34. Disclaimer      :  if (you_installed it) and (does_not_work) then
  35.             your_fault
  36.            else
  37.             enjoy;        <Er... ok, so that's Pascal <g>>
  38.  
  39. Step 1 :   Open up SUBEDIT.C and search/replace/edit this little chunk
  40.  
  41.  
  42. //  sprintf(s,"%4d %1c  %-37.37s %-8s %-3d %-3d %-2d %-5d %7s",
  43. //          n,x,stripcolors(r.name),r.filename,r.readsl,r.postsl,r.age&0x7f,
  44. //          r.maxmsgs,xsubs[n].num_nets?xsubs[n].nets[0].stype:"");
  45.  
  46. With this:
  47.  
  48.   sprintf(s,"2%4d 9%1c  5%-37.37s 1%-8s 3%-3d 9%-3d 8%-2d 7%-5d 4%7s0",
  49.         n,x,stripcolors(r.name),r.filename,r.readsl,r.postsl,r.age&0x7f,
  50.         r.maxmsgs,xsubs[n].num_nets?xsubs[n].nets[0].stype:"");
  51.  
  52.  
  53. Step 2 :   Further down, replace everything from
  54.  
  55. void modify_sub(int n)
  56.        to
  57.     ch=onek("QABCDEFGHIJKLMNO[]");
  58.  
  59. with this chunk of code...
  60.  
  61.  
  62. void modify_sub(int n)
  63. {
  64.   subboardrec r;
  65.   char s[81],s1[81],s2[81],s3[81],ch,ch2,ch3;
  66.   int i,done;
  67.   xtrasubsnetrec *xnp;
  68.  
  69.   r=subboards[n];
  70.   done=0;
  71.   do {
  72.     outchr(12);
  73.     strcpy(s3,"7│5");
  74.     pl("7┌─────────────────┐0");
  75.     outstr(s3); npr("%-21s",get_string(62));
  76.     outstr(s3); pl(r.name);
  77.     outstr(s3); npr("%-21s",get_string(63));
  78.     outstr(s3); pl(r.filename);
  79.     if (r.key==0)
  80.       strcpy(s,get_string(168));
  81.     else {
  82.       s[0]=r.key;
  83.       s[1]=0;
  84.     }
  85.     outstr(s3); npr("%-21s",get_string(169));
  86.     outstr(s3); pl(s);
  87.     outstr(s3); npr("%-21s",get_string(170));
  88.     outstr(s3); pln(r.readsl);
  89.     outstr(s3); npr("%-21s",get_string(171));
  90.     outstr(s3); pln(r.postsl);
  91.     switch(r.anony & 0x0f) {
  92.       case 0: strcpy(s,str_no); break;
  93.       case anony_enable_anony: strcpy(s,str_yes); break;
  94.       case anony_enable_dear_abby: strcpy(s,get_string(172)); break;
  95.       case anony_force_anony: strcpy(s,get_string(173)); break;
  96.       case anony_real_name: strcpy(s,get_string(174)); break;
  97.       default: strcpy(s,get_string(175)); break;
  98.     }
  99.     outstr(s3); npr("%-21s",get_string(176));
  100.     outstr(s3); pl(s);
  101.     outstr(s3); npr("%-21s",get_string(177));
  102.     outstr(s3); pln(r.age&0x7f);
  103.     outstr(s3); npr("%-21s",get_string(178));
  104.     outstr(s3); pln(r.maxmsgs);
  105.     strcpy(s,get_string(5));
  106.     if (r.ar!=0) {
  107.       for (i=0; i<16; i++)
  108.     if ((1 << i) & r.ar)
  109.       s[0]='A'+i;
  110.       s[1]=0;
  111.     }
  112.     outstr(s3); npr("%-21s",get_string(179));
  113.     outstr(s3); pl(s);
  114.     outstr(s3); npr("%-21s",get_string(180));
  115.     outstr(s3);
  116.     if (xsubs[n].num_nets) {
  117.       npr("   1%-12.12s 3%-7.7s 5%-6.6s  7%s0\r\n",
  118.       get_string(181), get_string(182), get_string(183), get_string(184));
  119.       for (i=0,xnp=xsubs[n].nets; i<xsubs[n].num_nets; i++,xnp++) {
  120.     if (xnp->host==0)
  121.       strcpy(s,get_string(185));
  122.     else
  123.       sprintf(s,"%u ",xnp->host);
  124.     if (xnp->category)
  125.       sprintf(s1,"%s1(7%d1)0",get_string(187),xnp->category);
  126.     else
  127.       strcpy(s1,get_string(187));
  128.     outstr(s3);outstr(charstr(17,' '));outstr(s3);
  129.     npr("2%c) 1%-12.12s 3%-7.7s 5%-6.6s  7%s%s0\r\n",
  130.         i+'a',
  131.         net_networks[xnp->net_num].name,
  132.         xnp->stype,
  133.         s,
  134.         (xnp->flags&XTRA_NET_AUTO_ADDDROP)?get_string(186):"",
  135.         (xnp->flags&XTRA_NET_AUTO_INFO)?s1:"");
  136.       }
  137.     } else {
  138.       pl(get_string(188));
  139.     }
  140.     outstr(s3); npr("%-21s",get_string(189));
  141.     outstr(s3); pln(r.storage_type);
  142.     outstr(s3); npr("%-21s",get_string(190));
  143.     outstr(s3); pl((r.anony & anony_val_net)?str_yes:str_no);
  144.     outstr(s3); npr("%-21s",get_string(191));
  145.     outstr(s3); pl((r.anony & anony_ansi_only)?str_yes:str_no);
  146.     outstr(s3); npr("%-21s",get_string(192));
  147.     outstr(s3); pl((r.anony & anony_no_tag)?str_yes:str_no);
  148.     outstr(s3); npr("%-21s",get_string(193));
  149.     outstr(s3); pl((xsubs[n].desc[0])?xsubs[n].desc:get_string(5));
  150.     pl("7└─────────────────┘0"); nl();
  151.     prt(2,get_string(194));
  152.     ch=onek("QABCDEFGHIJKLMNO[]");
  153.  
  154.  
  155. Save SUBEDIT.C and recompile...
  156.  
  157. Step 3 :   Edit these strings in BBS.STR to look like this:
  158.  
  159. HINT!: When editing these strings, use <CTRL>-<RIGHT ARROW> to
  160.        get to the next string in ESM. Once you land on the ':'
  161.        just hit your <DEL> key and enter. That should line it
  162.        up perfectly and you won't spend hours in there.
  163.  
  164. 62 2A. 9Name0
  165. 63 2B. 9Filename0
  166. 166 2NN  9AR 5Name                                     1FN       3RSL 9PSL 8AG 7MSG 4SUB TYPE
  167. 167 7─── ══ ──────────────────────────────────────── ════════ ─── ═══ ── ═══ ───────
  168. 169 2C. 9Key0
  169. 170 2D. 9Read SL0
  170. 171 2E. 9Post SL0
  171. 176 2F. 9Anony0
  172. 177 2G. 9Min. Age0
  173. 178 2H. 9Max Msgs0
  174. 179 2I. 9AR0
  175. 180 2J. 9Net Info0
  176. 189 2K. 9Stor. type0
  177. 190 2L. 9Val network0
  178. 191 2M. 9Req ANSIork0
  179. 192 2N. 9Disable tag0
  180. 193 2O. 9Description0
  181.  
  182.  
  183. Here's what it looks like...
  184.  
  185. 7┌─────────────────┐0
  186. 7│2A. 9Name          7│5DreamWARE Comm. Support0
  187. 7│2B. 9Filename      7│5DRMWARE0
  188. 7│2C. 9Key           7│5None0
  189. 7│2D. 9Read SL       7│5100
  190. 7│2E. 9Post SL       7│5300
  191. 7│2F. 9Anony         7│5No0
  192. 7│2G. 9Min. Age      7│500
  193. 7│2H. 9Max Msgs      7│5750
  194. 7│2I. 9AR            7│5None.0
  195. 7│2J. 9Net info      7│   1Network      3Type    5Host     7Flags0
  196. 7│                 │2a) 1WWIVnet      38398    5<HERE>   7Auto-Req Auto-Info1(731)0
  197. 7│                 │2b) 1ICEnet       38398    5<HERE>   7Auto-Req Auto-Info1(741)0
  198. 7│                 │2c) 1ImagiNet     38351    5<HERE>   7Auto-Req Auto-Info1(731)0
  199. 7│2K. 9Stor. type    7│520
  200. 7│2L. 9Val network   7│5Yes0
  201. 7│2M. 9Req ANSI      7│5No0
  202. 7│2N. 9Disable tag   7│5No0
  203. 7│2O. 9Description   7│5DreamWARE Comm. Support0
  204. 7└─────────────────┘0
  205.  
  206.  
  207.                     Enjoy!
  208.