Here's a fun one to try... Aquamaestro #1 @7704 Wed Feb 17 04:25:41 1993 ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ Mod Name: AQUA06.MOD Author: AquaMaestro 1@7704 ³ ³ Difficulty: Û±±±±±± Date : 2/15/92 ³ ³ Modified: CONIO.C ³ ³ WWIV Version : 4.22+ ³ ³ ³ ³ Description : Ever get a real loser, who has muddled his way into ³ ³ your BBS, gave bogus information, and all that? ³ ³ This mod allows you to use Control-F9 to "nuke" ³ ³ them into oblivion. It will give you the option to ³ ³ either hang up, or to hang up AND delete the user's ³ ³ account. Sounds fiendishly useful, eh? ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ Key: /*==*/ Existing line /*++*/ Add this line Step 1: Back up your source. I don't care what your excuse is. Step 2: Load up CONIO.C, and run a search for "case 68". Immediately after the "break;", insert this block: /*==*/ } else /*==*/ chatting=0; /*==*/ break; /*++*/ case 102: /* CTRL F9 */ /*++*/ if (using_modem) { /* Disables remote typing */ /*++*/ incom=(!incom); /*++*/ dump(); /*++*/ tleft(0); /*++*/ } /*++*/ outs("\r\n\r\nDelete? "); /*++*/ if (yn()) { /*++*/ printfile("NUKE"); /*++*/ hangup=1; /*++*/ deluser(usernum); /*++*/ dtr(0); /*++*/ } else { /*++*/ printfile("DROP"); /*++*/ hangup=1; /*++*/ dtr(0); /*++*/ } /*++*/ break; /*==*/ case 71: /* HOME */ /*==* if (chatting==1) { /*==*/ if (chat_file) /*==*/ chat_file=0; Step 3: Save CONIO.C and recompile. Then load up TheDraw, and make yourself a couple ANSI screens, NUKE.ANS and DROP.ANS. NUKE.ANS will be displayed when you "nuke" a user, and DROP.ANS will be displayed when you drop carrier (a lot more vividly than F5). I've UUencoded mine, and stuck it on the end. You can use that, or make another one of your own. Disclaimer: Not only do I disavow all responsibility for what this mod may do with your source, but I also disavow any responsibility for what you may do with this mod. Simple enough, right? NUKE.ANS -- UUencoded: ====================== begin 400 nuke.ans M&ULT,&T;6S)*&ULT,$,;6S [,3LS,&W&ULT-VVR MLAM;-#!MWQM;.4/?&ULT-VVR&UM#&ULS,#LT-&W?W]_?WR @(" ;6S$[-#!M MV]O?W]_?W]_?W]_;V]O?&ULT-&T@(" @&ULP.S,P.S0T;=_?W]_?&ULV.SA( M&ULS-SLT,&W;&ULS-FW>WQM;.$,;6S,P.S0T;=S?(" @(" @(-_?(-\@(!M; M,3LT,&W;&ULQ,$/?V]L;6S0T;2 @(" ;6S [,S [-#1MW"#<(" @(" @W!M; M-SLX2!M;-#!M&UMS#0H;6W4;6S,W.S0P;=L;6S$R0QM;,S [-#1MW" @(-\@ MWR @(" @(!M;,3LT,&W;&ULS0QM;,#LS,6W?&ULS0]\;6S-#&ULQ.S,P;=O; M&ULT-&T@&ULP.S,P.S0T;=\@WQM;0]P;6T/<&UM#&ULS-#LT,&WW2#?&ULR0]L;6S$P M0R @(-S&ULR1!M;,S%MVQM;,D3; M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D0; M6S0Q;=P;6S)$&ULP.S,Q;=L;6S)$WQM;,D3;&ULR1-L;6S)$VQM;,D0;6S%M MW!M;,D0;6S0Q;=P;6S)$W!M;,D0;6S0P;1M;&ULR1!M;,S%MVQM;,D0;6W,-"AM; M=1M;,#LS,6W;&ULR1-L;6S-$&ULQ.S,W;;,;6S)$&ULT-VVR&ULR1+(;6S)$ ML1M;,D0;6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR M1+$;6S)$&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$ MLAM;,D2R&ULR1!M;-#!MVQM;,D3;&ULR1+,;6S-$&ULP;;,;6S)$&ULQ.S,P M;;$;6S)$L!M;,D2P&ULR1+,;6S$U.S@P2+,;6S$U.S&ULR1!M;,#LS,6W; M&ULS1!M;,3LS-VVS&UMS#0H;6W4;6S)$&ULT-VVR&ULR1+(;6S)$L1M;,D0; M6S,P.S0P;;,;6S9$&ULS-VVS&ULR1!M;,S [-#=ML!M;,D2Q&ULR1+$;6S)$ M&ULT,&VS&ULT1!M;,&VS&ULR1!M;,3LS,#LT-VVQ&ULR1+$;6S)$LAM;,D0; M6S0P;;,;6S)$VQM;,D3;&ULR1+(;6S)$LQM;,D0;6S!MLQM;,D0;6S$[,S!M ML1M;,D2P&ULR1+ ;6S)$LQM;,30[.#!(LQM;,30[-SE(L!M;,D2P&ULR1+$; M6S)$L1M;,D2R&ULR1+(;6S)$VQM;,D3;&ULR1!M;-#=MLAM;,D2R&ULT,&T; M6W,-"AM;=1M;,D0;6S0W;;$;6S)$L1M;,D0;6S!MLQM;-T2S&ULR1!M;,3LS M,#LT-VVP&ULR1!M;,S=M(!M;,D0@&ULR1+ ;6S)$L!M;,D2Q&ULR1+$;6S)$ MLAM;,D2R&ULR1!M;-#!MLQM;,D0;6S,Q.S0Q;=T;6S)$&ULT,&W;&ULR1-L; M6S)$VQM;,D3;&ULR1!M;,S-MVQM;,D3;&ULR1-X;6S)$VQM;,D0;6S,W;=L; M6S)$WQM;,D3;&ULR1-L;6S)$&ULS,VW;&ULR1-L;6S)$WAM;,D0;6S,Q;=L; M6S)$&ULT,6W>&ULR1!M;,#LS,6W>&ULS1!M;&ULR1-L;6S)$VQM;,D3; M&ULR1!M;,S-MVQM;,D3;&ULR1-L;6S)$&ULS,6W;&ULR1-L;6S)$&ULP.S,Q M;=L;6S-$&ULQ.S,W;;,;6S)$&ULT-VVR&ULR1+(;6S)$L1M;-#!M&UMS#0H; M6W4;6S)$&ULS,&VS&ULV1!M;,S=MLQM;,D0;6S,P.S0W;; ;6S)$L1M;,D2Q M&ULR1!M;-#!MLQM;-$0;6S!MLQM;,D0;6S$[,S [-#=ML1M;,D2Q&ULR1+(; M6S)$&ULT,&VS&ULS1!M;,&VS&ULR1!M;,3LS,&VR&ULR1+(;6S)$L1M;,D2Q M&ULR1+ ;6S)$L!M;,D2S&ULQ,CLX,$BS&ULQ,CLW.4BP&ULR1+ ;6S)$L1M; M,D2Q&ULR1+(;6S)$LAM;,D3;&ULR1-L;6S)$&ULT-VVR&ULR1+(;6S)$L1M; M,D2Q&ULR1!M;,&VS&ULU1+,;6S)$&UMS#0H;6W4;6S$[,S [-#=ML1M;,D2P M&ULR1+ ;6S)$&ULS-SLT,&VS&ULT1!M;,&VS&ULR1!M;,3LT-VVQ&ULR1+$; M6S)$LAM;,D2R&ULR1!M;,#LS,6W;&ULR1-\;6S)$&ULQ.S0Q;=\;6S)$&ULT M,&W;&ULR1-L;6S)$VQM;,D0;6S,S;=L;6S)$W1M;,D3;&ULR1!M;,S=MVQM; M,D3;&ULR1-\;6S)$VQM;,D3<&ULR1-X;6S)$&ULS,VW;&ULR1-L;6S)$VQM; M,D0;6S,Q;=L;6S)$&ULT,6W>&ULR1!M;,#LS,6W;&ULR1!M;,3LS-VVS&ULR M1!M;&ULR1-L;6S)$W!M;,D3;&ULR M1-\;6S)$&ULS,VW;&ULR1-L;6S)$VQM;,D3;&ULR1!M;,S%MVQM;,D3;&ULR M1-L;6S)$VQM;,D3?&ULR1!M;-#%MWQM;,D0;6S0P;=\;6S)$&ULP.S,Q;=\; M6S)$WQM;,D3;&ULY.S8P2-\;6S)$VQM;,D3;&ULR1!M;,6W?&ULR1-L;6S)$ MVQM;,D0;6S,S;=\;6S)$WQM;,D3;&ULR1-L;6S)$VQM;,D0;6W,-"AM;==L; M6S)$VQM;,D3;&ULR1-L;6S)$W1M;,D3;&ULR1!M;,S=MVQM;,D3;&ULR1-L; M6S)$VQM;,D3;&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULS,VW;&ULR1-L; M6S)$VQM;,D3;&ULR1-L;6S)$WQM;,D0;6S,Q;=L;6S)$VQM;,D3;&ULR1-L; M6S)$VQM;,D3;&ULR1-L;6S)$&ULP.S,Q;=L;6S)$&ULQ.S0Q;=\;6S)$&ULP M.S,Q;=L;6S)$VQM;.#LV-4C?&ULR1-\;6S)$VQM;,D0;6S%MWQM;,D0;6S0Q M;=\;6S)$&ULT,&W;&ULR1-L;6S)$VQM;&ULR1-L;6S)$W!M;,D3; M&ULR1-L;6S)$WQM;,D3;&ULR1-L;6S)$&ULS,VW=&ULR1-L;6S)$VQM;,D3; M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$WQM;,D3;&ULR1-L;6S)$&ULS,6W; M&ULR1-L;6S)$VQM;,D3;&ULR1-L;6S)$&ULT,6W?&ULR1-\;6S)$&ULP.S,Q M;=\;6S)$VQM;