Subj : Re: Prompt #130: Scanning
To   : PSI-JACK
From : GRYPHON
Date : Thu Jan 31 2019 07:20 pm

On 09/04/14, Psi-Jack said the following...
 
 Ps> On 09/03/14, g00r00 said the following...
 Ps>  
 Ps>  g0>  Ps> all the previous text so that it can wipe it out? And if so.. Ho
 Ps>  g0>  Ps> get it to stop doing that, so I can use my own custom display me
 Ps>  g0>  Ps> I choose?
 Ps>  g0> 
 Ps>  g0> Can you explain what you're trying to do?
 Ps> 
 Ps> Well, basically, in prompt 130, I've replaced the text there with my own
 Ps> stuff, including a |DFpopbigred||...
 Ps> 
 Ps> Essentially, something similar to what Gryphon did with Cyberia, per-se.
 Ps> During a new message scan, I wanted something centered on the screen, in
 Ps> my case it's a gradiently-shaded red 3D-ish box with the "Scanning: |MB"
 Ps> inside that. 
 Ps> 
 Ps> I figured out the only trick I could think of left which was after
 Ps> putting the text in place to move the cursor down to the [X1[Y23, then
 Ps> when it does seem to go to the 1st character on the line it doesn't wipe
 Ps> out the ANSI box I put up.
 Ps> 
 Ps> I'm just wondering why after that prompt displays, why Mystic is going to
 Ps> character 1 of the line it's on after that prompt, and literally spacing
 Ps> through a number of characters as-if to wipe out the text that was once
 Ps> there, as if that's hard coded and not optional.

What I did was write an MPL for that. 

newmsgscan.mps
-------------------------
Uses User

Var S    : String
Var H,L  : Integer
Var Box  : LongInt

Procedure Main
Begin
   GetThisUser
   S:=MCI2Str('MB')
   S:=StripMCI(S)
   //L:=Length(S)+4
   L:=40
   H:=L/2
   H:=40-H
   ClassCreate(Box,'box')
   BoxHeader(Box,0,(16*4)+14,' New Message Scan ')
   BoxOpen(Box,H,10,H+L,14)
   WriteXY(H+1,12,(16*7)+14,PadCt(S,L-1,' '))
   Delay(500)
   BoxClose(Box)
   ClassFree(Box)
End

Begin
   Main
End
------------------

Then on my default.txt file, I added this:
-----
130 !newmsgscan
-----

 "No matter where you go, there you are!" - B. Bonzai

--- Mystic BBS v1.10 A51 (Linux)
 * Origin: Cyberia BBS | Cyberia.Darktech.Org | Kingwood, TX (46:1/116)
 þ Synchronet þ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

.