Subj : New 132x37 .mpl question
To   : All
From : The Godfather
Date : Sat Nov 21 2020 18:45:16

Hey all,

ok another stupid question time....

I'm really trying wrap my head around .mpl but the uncle google youtube wizards with hours of tutorials just don't exist.  So here I am .. sucking in my pride, and asking for help.

I'm starting with one of Dan's mods, the RCSLC.MP (10 Last Callers ..)

What I want to do is create a conditional procedure and/or boolean that basically does this ..

if (users terminal size (don't know the variable for this = 80 x25) then do this procedure ....
else (132x37) do this ...


This is actually for just about EVERY .MPL I have as I want to have a single theme instead of two where the mpl's x/y coordinates 
and or a WriteLn('|01-------------- etc.....') would be appropriate for either 79 lines and or 131 lines.  Same with the rows, 
at either 23 or 36.


Here is g00r00's whatsnew.txt but I just don't get how to use these ..... or interpret what he's referring to regarding how to 
reference terminal sizes.

 Note that if you have enabled creation of "node windows" when running the
   Windows version of Mystic, you will want to right click your command
   prompt window, select "Defaults", and set the window/buffer size to
   default to 160x60.  Mystic creates node windows using the default settings
   so if you don't select the largest window a user can use then the screen
   will not look correct when a user is in a terminal mode larger than the
   node window.

 + User terminal size is no longer stored in the user record, and Mystic
   always uses the detected terminal size (or the default terminal size
   defined in System Configuration if no graphics detected on connection).

 + New MPL variables "TermSizeX" and "TermSizeY" tell you the size of the
   user's terminal.

And the procedure I'd like to add the if/then conditions within

Procedure Drawscreen
Var count : integer = 1
Begin  dispfile('lastten')  // this line would auto detect lasten.ans .msg or lastten.c132.ans .. however below is where I need 

//here I need condition:  if 80x25 then do

WriteLn('|CR|09 User Node Location
Date       Time') 
WriteLn('|01---------------|03----|11----|10----|15---------------------|15----|10----|11----|03----|01---------------|11')  
forcount:=1 to 10 do      
WriteLn('  '+PadRt(Call[count].Handle,25,' ')+Int2Str(Call[count].Node)+'   '+PadRt(Call[count].City,25,'')+' '   +DateSTR(Call[count].MDateTime,1)+'   '      
+TimeStr(Call[count].MDateTime,False)) 
WriteLn('|15----|10----|11----|03----|01-------------------------------------------|01----|03----|11----|10----|15----')  gotoxy(1,21)  WriteLn('|01|BN - |SN')  gotoxy(58,21)  WriteLn('|01'+prog+' '+ver)  gotoxy(1,23)  pause  progexitEnd

// here I need an else (132x37) then do

I'd replicate the code above but to be proportionate to a 132x37 terminal size (and within an ANSI using x/y coordinates ..)

Any input would be awesome.  Go easy on me .. :)

-tG

--- Mystic BBS v1.12 A47 2020/11/17 (Windows/32)
 * Origin: The Underground [@] theunderground.us:10023 <-port (21:1/165)

.