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
