• MPL

    From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    Hey man, I was wondering if you could help me out with something. I have an "auto message" MPL that needs to be re-worked. If you could take a look at
    it, i'd really appreciate it.

    --// snip ------------------------------------

    Uses CFG;
    Uses USER;

    Var
    f : file;
    Line1 : String;
    Line2 : String;
    Line3 : String;
    Line4 : String;
    Line5 : String;
    Line6 : String;
    Line7 : String;
    Line8 : String;
    automessage : String;
    Topic : String;
    Date : String;
    InStr : String;
    Done : Boolean;
    c1 : String; // Variables for the ColorScheme stuff: Colorscheme code thanks o Zoob
    c2 : String; // " " " "
    c3 : String; // " " " "
    p1 : String; // Variables for the DataField in the Menu Editor:
    p2 : String; // i.e. "Menu" and "<color>"


    //###########################
    //## Display Automesage ###
    //###########################

    Procedure Write_Automsg
    Begin
    GetThisUser
    If InputYN ('|CRsave this message? ') then // Said after Should_We has run

    begin
    fassign (f, automessage, 66) // Opens automessage.DAT
    freset (f)
    fWriteLn (f, 'from : '+ UserAlias) // Writes the useralias to file
    fWriteLn (f, 'topic: '+ Topic) // Writes topic to file
    fWriteLn (f, 'date : '+ Date) // Writes date to file
    fWriteLn (f, '|CR')
    If Line1 <> '' then FWriteLn (f, ' '+ Line1) // Displays 1st line
    If Line2 <> '' then FWriteLn (f, ' '+ Line2) // Displays 2nd line
    If Line3 <> '' then FWriteLn (f, ' '+ Line3) // and 3rd
    If Line4 <> '' then FWriteLn (f, ' '+ Line4) // what the hay, 4th too
    If Line5 <> '' then FWriteLn (f, ' '+ Line5) // you guessed it, 5th
    If Line6 <> '' then FWriteLn (f, ' '+ Line6) // writes 8th line
    If Line7 <> '' then FWriteLn (f, ' '+ Line7) // writes 7th line
    If Line8 <> '' then FWriteLn (f, ' '+ Line8) // writes 6th line
    fClose (f) // Closes automessage.DAT
    End
    Done := False // Is menu finished or not? <false = not>
    end

    //##########################
    //## Write automessage ###
    //##########################

    Procedure Should_We
    begin
    // boy, that question was long, I write here for it. Would you like to write au omessage, question.
    If InputNY ('|CRchange automsg? ') then
    begin
    Write ('|CRtopic: ')
    Topic := Input (60, 60, 1, '')
    end

    // If Topic doesn't exist, write a new one

    /*

    If FileExist(Topic)
    fOpen(1, Text, ReWrite, Topic)
    fClose(1) // Close Topic file
    End If

    */

    // Writing automessage now

    WriteLn ('|CRenter automsg now.. 8 lines max|CR')
    Write (': ') Line1 := Input (77, 77, 1, '')
    If Line1 = '' then // If nothing entered on line1, abort
    begin Write_Automsg
    WriteLn('aborted!')
    Halt
    End
    Write (': ') Line2 := Input (77, 77, 1, '')
    If Line2 = '' then // If nothing entered on line2, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line3 := Input (77, 77, 1, '')
    If Line3 = '' then // If nothing entered on line3, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line4 := Input (77, 77, 1, '')
    If Line4 = '' then // If nothing entered on line4, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line5 := Input (77, 77, 1, '')
    If Line5 = '' then // Get the idea?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line6 := Input (77, 77, 1, '')
    If Line6 = '' then // I'm done typing here
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line7 := Input (77, 77, 1, '')
    If Line7 = '' then
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line8 := Input (77, 77, 1, '')
    Write_Automsg
    DispFile (automessage)
    End


    //#########################
    //## automessage Menu ###
    //#########################

    Procedure Make_Menu
    begin
    Repeat // Repeat this stuff until Done := True(until user presses "Q")
    WriteLn (' lQ-automessage v2.2')
    WriteLn ('')
    WriteLn ('{V} View automessage')
    WriteLn ('{W} Write automessage')
    WriteLn ('(R) Reply to Author of automessage')
    WriteLn ('')
    Write ('lQ-automessage [Q/Quit] ['+ StrRep(' ', 2)+ ')'+ StrRep(Chr(8), 3))

    InStr := Input(2, 2, 12, '') // The Input area is 2 characters long
    If InStr = 'V' Then // If user presses "V" then it displays the autome sage
    DispFile (automessage) // Display file "automessage.DAT"
    Else If InStr = 'W' Then // If "W" then Write the automessage
    Should_We // Run Should_We procedure
    Else If
    InStr = 'R' Then // If "R" then reply to Author of automessage
    MenuCmd('MW', UserAlias) // Write to the author of automessage
    Else If InStr = 'Q' Then // Quiting the menu
    Done := True // Finally!
    Until Done
    End

    //###########################
    //## Color Scheme Codes ###
    //###########################

    Procedure Color_Me_Blind
    begin
    If p1='BLUE' then // If 1st word in menu data entry
    begin
    c1 :='' c2 :='' c3 :='' // equals BLUE then display those colors
    end
    Else If p1='GREEN' then // Same as above, but for GREEN
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='CYAN'then // Same as above.
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='RED' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='MAGENTA' then
    begin
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='YELLOW' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='GREY' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='BLUE' then // Changed to if 2nd word in menudata field
    begin
    c1 :='' c2 :='' c3 :='' // equals BLUE then display these codes
    end
    Else If p2='GREEN' then // Same as p2='BLUE'
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='CYAN' then // Same as the other p2="<Color>"'s
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='RED' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='MAGENTA' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='YELLOW' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='GREY' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else // If no color entered then use these
    c1 :='' c2 :='' c3 :='' // Color Codes
    End


    Begin
    automessage := CfgDataPath + 'automsg.dat'

    p1 := Upper(ParamStr(1)) // What the variables mean... This tells Mystic to
    p2 := Upper(ParamStr(2)) // look n the menu data field for the 1st & 2nd word


    If p1='MENU'then // If 1st word in menudatafield equals this then display
    Make_Menu // the menu
    Else If p2='MENU' then // If the 2nd word in menudatafield equals this then d splays
    Make_Menu // the menu. Just so you can have these things in any order( he menu and color)
    End

    automessage := CfgDataPath + 'automsg.dat'

    p1 := Upper[ParamStr(1)] // What the variables mean... This tells Mystic to
    p2 := Upper[ParamStr(2)] // look n the menu data field for the 1st & 2nd word




    // Putting the Date the automessage was written to a temp file.

    If FileExist(Date);
    fOpen(1, Text, ReWrite, Date);
    fClose(1);
    End If



    Date := DateStr(DateTime, 1) // Date equals this
    Color_Me_Blind // Run this procedure(the color scheme) DispFile(automessage) // Run this procedure(display automessage) Should_We // Run this procedure(change automessage?)
    End

    --// snip -----------------------------------------------------

    Thanks again,

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From G00R00@46:1/127 to IGNATIUS on Thu Jan 31 19:20:24 2019
    Hey man, I was wondering if you could help me out with something. I have an "auto message" MPL that needs to be re-worked. If you could take a
    look at it, i'd really appreciate it.

    The next alpha will have an automessage.mps BTW. I was waiting to hear back from Access Denied's testing and then I was going to add it into the defaults but I don't know where I left off with that stuff...

    I just copied it in for A53.

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From ACCESS DENIED@46:1/701 to G00R00 on Thu Jan 31 19:20:24 2019
    Hello g00r00,

    On 14 Sep 14 03:04, g00r00 wrote to ignatius:

    Hey man, I was wondering if you could help me out with something.
    I have an "auto message" MPL that needs to be re-worked. If you
    could take a look at it, i'd really appreciate it.

    The next alpha will have an automessage.mps BTW. I was waiting to
    hear back from Access Denied's testing and then I was going to add it
    into the defaults but I don't know where I left off with that stuff...

    I just copied it in for A53.

    Testing was done as soon as you gave it to me, and everything worked the way I had expected. Thanks!

    Regards,
    Nick

    --- GoldED+/LNX 1.1.5-b20130910
    * Origin: thePharcyde_ telnet://bbs.pharcyde.org (Wisconsin) (46:1/701)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/13/14, ignatius said the following...

    Hey man, I was wondering if you could help me out with something. I have an "auto message" MPL that needs to be re-worked. If you could take a
    look at it, i'd really appreciate it.

    I'll take a look at it. What exactly is wrong with it?

    "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)
  • From GRYPHON@46:1/116 to G00R00 on Thu Jan 31 19:20:24 2019
    On 09/14/14, g00r00 said the following...

    Hey man, I was wondering if you could help me out with something. I h an "auto message" MPL that needs to be re-worked. If you could take a look at it, i'd really appreciate it.

    The next alpha will have an automessage.mps BTW. I was waiting to hear back from Access Denied's testing and then I was going to add it into
    the defaults but I don't know where I left off with that stuff...

    Dude!?!

    That hurts :(

    "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)
  • From ACCESS DENIED@46:1/701 to GRYPHON on Thu Jan 31 19:20:24 2019
    Hello Gryphon,

    On 14 Sep 14 22:06, Gryphon wrote to g00r00:

    The next alpha will have an automessage.mps BTW. I was waiting
    to hear back from Access Denied's testing and then I was going to
    add it into the defaults but I don't know where I left off with
    that stuff...

    Dude!?!

    That hurts :(

    It was actually something I had requested for me personally. But hell, might as

    well include it as part of the default install if it works. :)

    Regards,
    Nick

    --- GoldED+/LNX 1.1.5-b20130910
    * Origin: thePharcyde_ telnet://bbs.pharcyde.org (Wisconsin) (46:1/701)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From G00R00@46:1/127 to ACCESS DENIED on Thu Jan 31 19:20:24 2019
    Dude!?!

    That hurts :(

    It was actually something I had requested for me personally. But hell, might as well include it as part of the default install if it works. :)

    Yeah this was done a long time ago, and was supposed to be added into the alphas. I can just not add it, Gryphon just made one.

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to G00R00 on Thu Jan 31 19:20:24 2019
    On 09/15/14, g00r00 said the following...

    Dude!?!

    That hurts :(

    It was actually something I had requested for me personally. But hell might as well include it as part of the default install if it works.

    Yeah this was done a long time ago, and was supposed to be added into the alphas. I can just not add it, Gryphon just made one.

    Hey, I was kidding. I'd love to see it regardless.

    "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)
  • From ACCESS DENIED@46:1/701 to G00R00 on Thu Jan 31 19:20:24 2019
    Hello g00r00,

    On 15 Sep 14 13:59, g00r00 wrote to Access Denied:

    Yeah this was done a long time ago, and was supposed to be added into
    the alphas. I can just not add it, Gryphon just made one.

    That's completely up to the two of you. It suits the needs I requested back then, so I'm good with it. :)

    Regards,
    Nick

    --- GoldED+/LNX 1.1.5-b20130910
    * Origin: thePharcyde_ telnet://bbs.pharcyde.org (Wisconsin) (46:1/701)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    I'll take a look at it. What exactly is wrong with it?


    It doesn't execute. :/

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From AVON@46:3/103 to ACCESS DENIED on Thu Jan 31 19:20:24 2019
    On 09/15/14, Access Denied pondered and said...

    That's completely up to the two of you. It suits the needs I requested back then, so I'm good with it. :)

    Well I hope someone does, the suspense is killing me! :-)


    `I'm not expendable, I'm not stupid, and I'm not going' - Kerr Avon, Blake's 7

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Agency BBS | telnet://agency.bbs.geek.nz (46:3/103)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/15/14, ignatius said the following...

    I'll take a look at it. What exactly is wrong with it?


    It doesn't execute. :/

    I reworked it some. I noticed that there are no colord mci codes, where there obviously should be some. I'm thinking that they may have gotten stripped off since it was posted to the message area here.

    --------------------------------
    Uses CFG;
    Uses USER;

    Var
    f : file;
    Line1 : String;
    Line2 : String;
    Line3 : String;
    Line4 : String;
    Line5 : String;
    Line6 : String;
    Line7 : String;
    Line8 : String;
    automessage : String;
    Topic : String;
    Date : String;
    InStr : String;
    Done : Boolean;
    c1 : String; // Variables for the ColorScheme stuff: Colorscheme code thanks o Zoob
    c2 : String; // " " " "
    c3 : String; // " " " "
    p1 : String; // Variables for the DataField in the Menu Editor:
    p2 : String; // i.e. "Menu" and "<color>"


    //###########################
    //## Display Automesage ###
    //###########################

    Procedure Write_Automsg
    Begin
    GetThisUser
    If InputYN ('|CRsave this message? ') then // Said after Should_We has un
    begin
    fassign (f, automessage, 66) // Opens automessage.DAT
    freset (f)
    fWriteLn (f, 'from : '+ UserAlias) // Writes the useralias to f le
    fWriteLn (f, 'topic: '+ Topic) // Writes topic to file
    fWriteLn (f, 'date : '+ Date) // Writes date to file
    fWriteLn (f, '|CR')
    If Line1 <> '' then FWriteLn (f, ' '+ Line1) // Displays 1st li e
    If Line2 <> '' then FWriteLn (f, ' '+ Line2) // Displays 2nd li e
    If Line3 <> '' then FWriteLn (f, ' '+ Line3) // and 3rd
    If Line4 <> '' then FWriteLn (f, ' '+ Line4) // what the hay, 4 h too
    If Line5 <> '' then FWriteLn (f, ' '+ Line5) // you guessed it, 5th
    If Line6 <> '' then FWriteLn (f, ' '+ Line6) // writes 8th line
    If Line7 <> '' then FWriteLn (f, ' '+ Line7) // writes 7th line
    If Line8 <> '' then FWriteLn (f, ' '+ Line8) // writes 6th line
    fClose (f) // Closes automessage.DAT
    End
    Done := False // Is menu finished or not? <false = not>
    end

    //##########################
    //## Write automessage ###
    //##########################

    Procedure Should_We
    begin
    // boy, that question was long, I write here for it. Would you like to write au message, question.
    If InputNY ('|CRchange automsg? ') then
    begin
    Write ('|CRtopic: ')
    Topic := Input (60, 60, 1, '')
    end

    // If Topic doesn't exist, write a new one

    /*

    If FileExist(Topic)
    fOpen(1, Text, ReWrite, Topic)
    fClose(1) // Close Topic file
    End If

    */

    // Writing automessage now

    WriteLn ('|CRenter automsg now.. 8 lines max|CR')
    Write (': ') Line1 := Input (77, 77, 1, '')
    If Line1 = '' then // If nothing entered on line1, abort
    begin Write_Automsg
    WriteLn('aborted!')
    Halt
    End
    Write (': ') Line2 := Input (77, 77, 1, '')
    If Line2 = '' then // If nothing entered on line2, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line3 := Input (77, 77, 1, '')
    If Line3 = '' then // If nothing entered on line3, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line4 := Input (77, 77, 1, '')
    If Line4 = '' then // If nothing entered on line4, save automessage?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line5 := Input (77, 77, 1, '')
    If Line5 = '' then // Get the idea?
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line6 := Input (77, 77, 1, '')
    If Line6 = '' then // I'm done typing here
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line7 := Input (77, 77, 1, '')
    If Line7 = '' then
    begin
    Write_Automsg
    Halt
    End
    Write (': ') Line8 := Input (77, 77, 1, '')
    Write_Automsg
    DispFile (automessage)
    End


    //#########################
    //## automessage Menu ###
    //#########################

    Procedure Make_Menu
    begin
    Repeat // Repeat this stuff until Done := True(until user presses "Q")
    WriteLn (' lQ-automessage v2.2')
    WriteLn ('')
    WriteLn ('{V} View automessage')
    WriteLn ('{W} Write automessage')
    WriteLn ('(R) Reply to Author of automessage')
    WriteLn ('')
    Write ('lQ-automessage [Q/Quit] ['+ StrRep(' ', 2)+ ')'+ StrRep(Chr(8), 3))

    InStr := Input(2, 2, 12, '') // The Input area is 2 characters long
    If InStr = 'V' Then // If user presses "V" then it displays the automesage
    DispFile (automessage) // Display file "automessage.DAT"
    Else
    If InStr = 'W' Then // If "W" then Write the automessage
    Should_We // Run Should_We procedure
    Else
    If InStr = 'R' Then // If "R" then reply to A thor of automessage
    MenuCmd('MW', UserAlias) // Write to the author of automessage
    Else
    If InStr = 'Q' Then // Quiting the menu
    Done := True // Finally! Until Done
    End

    //###########################
    //## Color Scheme Codes ###
    //###########################

    Procedure Color_Me_Blind
    begin
    If p1='BLUE' then // If 1st word in menu data entry
    begin
    c1 :='' c2 :='' c3 :='' // equals BLUE then display those colors
    end
    Else If p1='GREEN' then // Same as above, but for GREEN
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='CYAN'then // Same as above.
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='RED' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='MAGENTA' then
    begin
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='YELLOW' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p1='GREY' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='BLUE' then // Changed to if 2nd word in menudata ield
    begin
    c1 :=''; c2 :=''; c3 :='' // equals BLUE then display these codes
    end
    Else If p2='GREEN' then // Same as p2='BLUE'
    begin
    c1 :=''; c2 :=''; c3 :='';
    end
    Else If p2='CYAN' then // Same as the other p2="<Color>"'s
    begin
    c1 :=''; c2 :=''; c3 :='';
    end
    Else If p2='RED' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='MAGENTA' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='YELLOW' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else If p2='GREY' then
    begin
    c1 :='' c2 :='' c3 :=''
    end
    Else // If no color entered then use these
    c1 :='' c2 :='' c3 :='' // Color Codes
    End


    Begin
    automessage := CfgDataPath + 'automsg.dat'

    p1 := Upper(ParamStr(1)) // What the variables mean... This tells Mysti
    to
    p2 := Upper(ParamStr(2)) // look n the menu data field for the 1st & 2n
    word


    If p1='MENU'then // If 1st word in menudatafield equals this then isplay
    Make_Menu // the menu
    Else
    If p2='MENU' then // If the 2nd word in menudatafield equals t is then dsplays
    Make_Menu // the menu. Just so you can have these things in any order(the menu and color)

    /*
    If FileExist(Date) Then Begin
    fOpen(1, Text, ReWrite, Date);
    fClose(1);
    End
    */

    Date := DateStr(DateTime, 1) // Date equals this
    Color_Me_Blind // Run this procedure(the color scheme)
    DispFile(automessage) // Run this procedure(display automessag )
    Should_We // Run this procedure(change automessage )
    End
    ------------------------------

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    I reworked it some. I noticed that there are no colord mci codes, where there obviously should be some. I'm thinking that they may have gotten stripped off since it was posted to the message area here.


    It still doesn't work as it should. Thank you for trying. Here is the source code that I used before reapern66 took a look at the code.

    -//---snip--------------------------------------------------------------------

    Uses CFG;
    Uses USER;

    Var
    Line1 : String
    Line2 : String
    Line3 : String
    Line4 : String
    Line5 : String
    Line6 : String
    Line7 : String
    Line8 : String
    automessage : String
    Topic : String
    Date : String
    InStr : String
    Done : Boolean


    //automessage := CfgDataPath + 'automsg.dat'

    Var

    c1 : String; // Variables for the ColorScheme stuff: Colorscheme code t anks to Zoob
    c2 : String; // " " " "
    c3 : String; // " " " "
    p1 : String; // Variables for the DataField in the Menu Editor:
    p2 : String; // i.e. "Menu" and "<color>"

    p1 := Upper(ParamStr(1)) // What the variables mean... This tells Mysti
    to
    p2 := Upper(ParamStr(2)) // look n the menu data field for the 1st & 2n
    words

    // Putting the Date the automessage was written to a temp file.

    If FileExist(Date);
    fOpen(1, Text, ReWrite, Date);
    fClose(1);
    End If


    //###########################
    //## Display Automesage ###
    //###########################

    Procedure Write_Automsg
    Begin
    GetThisUser
    If InputYN ('|CRsave this message? ') then // Said after Should_We has run

    fopen (1, Text, ReWrite, automessage) // Opens automessage.DAT
    fWriteLn (1, 'from : '+ UserAlias) // Writes the useralias to file
    fWriteLn (1, 'topic: '+ Topic) // Writes topic to file
    fWriteLn (1, 'date : '+ Date) // Writes date to file
    fWriteLn (1, '|CR')
    If Line1 <> '' FWriteLn (1, ' '+ Line1) End If // Displays 1st ine
    If Line2 <> '' FWriteLn (1, ' '+ Line2) End If // Displays 2nd line
    If Line3 <> '' FWriteLn (1, ' '+ Line3) End If // and 3rd
    If Line4 <> '' FWriteLn (1, ' '+ Line4) End If // what the hay, 4th t o
    If Line5 <> '' FWriteLn (1, ' '+ Line5) End If // you guessed it, 5th
    If Line6 <> '' FWriteLn (1, ' '+ Line6) End If // writes 8th line
    If Line7 <> '' FWriteLn (1, ' '+ Line7) End If // writes 7th line
    If Line8 <> '' FWriteLn (1, ' '+ Line8) End If // writes 6th line
    fClose (1) // Closes automessage.DAT
    End If
    End

    Done := False // Is menu finished or not? <false = not>

    //##########################
    //## Write automessage ###
    //##########################

    Procedure Should_We

    // boy, that question was long, I write here for it. Would you like to write au omessage, question.

    If InputNY ('|CRchange automsg? ')
    Write ('|CRtopic: ') Topic := Input (60, 60, 1, '')

    // If Topic doesn't exist, write a new one

    /*

    If FileExist(Topic)
    fOpen(1, Text, ReWrite, Topic)
    fClose(1) // Close Topic file
    End If

    */

    // Writing automessage now

    WriteLn ('|CRenter automsg now.. 8 lines max|CR')
    Write (': ') Line1 := Input (77, 77, 1, '')
    If Line1 = '' // If nothing entered on line1, abort
    Write_Automsg
    WriteLn('aborted!')
    Halt
    End If
    Write (': ') Line2 := Input (77, 77, 1, '')
    If Line2 = '' // If nothing entered on line2, save automessage?
    Write_Automsg
    Halt
    End If
    Write (': ') Line3 := Input (77, 77, 1, '')
    If Line3 = '' // If nothing entered on line3, save automessage?
    Write_Automsg
    Halt
    End If
    Write (': ') Line4 := Input (77, 77, 1, '')
    If Line4 = '' // If nothing entered on line4, save automessage?
    Write_Automsg
    Halt
    End If
    Write (': ') Line5 := Input (77, 77, 1, '')
    If Line5 = '' // Get the idea?
    Write_Automsg
    Halt
    End If
    Write (': ') Line6 := Input (77, 77, 1, '')
    If Line6 = '' // I'm done typing here
    Write_Automsg
    Halt
    End If
    Write (': ') Line7 := Input (77, 77, 1, '')
    If Line7 = ''
    Write_Automsg
    Halt
    End If
    Write (': ') Line8 := Input (77, 77, 1, '')
    Write_Automsg
    DispFile (automessage)
    End If
    End

    //#########################
    //## automessage Menu ###
    //#########################

    Procedure Make_Menu
    Repeat // Repeat this stuff until Done := True(until user presses "Q")
    WriteLn (' lQ-automessage v2.2')
    WriteLn ('')
    WriteLn ('{V} View automessage')
    WriteLn ('{W} Write automessage')
    WriteLn ('(R) Reply to Author of automessage')
    WriteLn ('')
    Write ('lQ-automessage [Q/Quit] ['+ StrRep(' ', 2)+ ')'+ StrRep(Chr(8), 3))

    InStr := Input(2, 2, 12, '') // The Input area is 2 characters long
    If InStr = 'V' Then // If user presses "V" then it displays the autome sage
    DispFile (automessage) // Display file "automessage.DAT"
    ElseIf InStr = 'W' Then // If "W" then Write the automessage
    Should_We // Run Should_We procedure
    ElseIf
    InStr = 'R' Then // If "R" then reply to Author of automessage
    MenuCmd('MW', UserAlias) // Write to the author of automessage
    ElseIf InStr = 'Q' Then // Quiting the menu
    Done := True // Finally!
    End If
    Until Done
    End

    //###########################
    //## Color Scheme Codes ###
    //###########################

    Procedure Color_Me_Blind
    If p1='BLUE' // If 1st word in menu data entry
    c1 :='' c2 :='' c3 :='' // equals BLUE then display those colors
    ElseIf p1='GREEN' // Same as above, but for GREEN
    c1 :='' c2 :='' c3 :=''
    ElseIf p1='CYAN' // Same as above.
    c1 :='' c2 :='' c3 :=''
    ElseIf p1='RED'
    c1 :='' c2 :='' c3 :=''
    ElseIf p1='MAGENTA'
    c1 :='' c2 :='' c3 :=''
    ElseIf p1='YELLOW'
    c1 :='' c2 :='' c3 :=''
    ElseIf p1='GREY'
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='BLUE' // Changed to if 2nd word in menudata ield
    c1 :='' c2 :='' c3 :='' // equals BLUE then display these codes
    ElseIf p2='GREEN' // Same as p2='BLUE'
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='CYAN' // Same as the other p2="<Color>"'s
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='RED'
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='MAGENTA'
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='YELLOW'
    c1 :='' c2 :='' c3 :=''
    ElseIf p2='GREY'
    c1 :='' c2 :='' c3 :=''
    Else // If no color entered then use these
    c1 :='' c2 :='' c3 :='' // Color Codes
    End If
    End

    If p1='MENU' // If 1st word in menudatafield equals this then display
    Make_Menu // the menu
    ElseIf p2='MENU' // If the 2nd word in menudatafield equals this then display

    Make_Menu // the menu. Just so you can have these things in any order( he menu and color)
    End If

    Date := DateStr(DateTime, 1) // Date equals this
    Color_Me_Blind // Run this procedure(the color scheme) DispFile(automessage) // Run this procedure(display automessage) Should_We // Run this procedure(change automessage?)

    -//---snip-------------------------------------------------------------

    Thank you so much.

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/16/14, ignatius said the following...

    I reworked it some. I noticed that there are no colord mci codes, whe there obviously should be some. I'm thinking that they may have gott stripped off since it was posted to the message area here.

    It still doesn't work as it should. Thank you for trying. Here is the source code that I used before reapern66 took a look at the code.

    I suspect that the code is not translating well over this medium. Maybe you can direct me to the original archive, and I can check it out?

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    I suspect that the code is not translating well over this medium. Maybe you can direct me to the original archive, and I can check it out?


    What do you mean "original archive"? Like pastebin or something?

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From WKITTY42@46:1/132 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/16/14, ignatius said the following...

    I suspect that the code is not translating well over this medium. Ma you can direct me to the original archive, and I can check it out?

    What do you mean "original archive"? Like pastebin or something?

    zip file??

    in other words, some format where it is in its most pure form and certain
    code sequences (eg: MCI codes) are not translated by systems handling the message ;)

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: (46:1/132)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    Here's the link: http://www.catch22bbs.com/automsg.zip

    Regards,

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From IGNATIUS@46:1/124 to WKITTY42 on Thu Jan 31 19:20:24 2019
    zip file??

    in other words, some format where it is in its most pure form and certain code sequences (eg: MCI codes) are not translated by systems handling the message ;)

    Oh. Durr.

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/16/14, ignatius said the following...

    I suspect that the code is not translating well over this medium. Ma you can direct me to the original archive, and I can check it out?


    What do you mean "original archive"? Like pastebin or something?

    Well, I'm assuming you got it from an uploaded file or something. The zipfile that it was packaged in. What is the filename? I'm assuming it's an older
    mod that was distributed a long time ago. Would that be correct?

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    Well, I'm assuming you got it from an uploaded file or something. The zipfile that it was packaged in. What is the filename? I'm assuming
    it's an older mod that was distributed a long time ago. Would that be correct?

    Good question. It's been so long, I can't remember. It's been re-written several times over. I think it may have originally been a re-written Iniquity IPL.

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From MERCYFUL FATE@46:1/140 to GRYPHON on Thu Jan 31 19:20:24 2019
    $ Gryphon was quoted saying . . ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    I suspect that the code is not translating well over this medium. Maybe
    you can direct me to the original archive, and I can check it out?
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    I suggest using pastbin.com then pasting the URL, might save headaches with copy/pasting code back and forth. ;)

    |07M|11er|03cy|07ful Fate |08(|15hTc|08)|07

    --- Enthral BBS v.634 [2014.8.20] (Linux x86_64)
    * Origin: haunting The chapel >>--> htc.zapto.org <--<< (46:1/140)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:24 2019
    On 09/16/14, ignatius said the following...

    Well, I'm assuming you got it from an uploaded file or something. Th zipfile that it was packaged in. What is the filename? I'm assuming it's an older mod that was distributed a long time ago. Would that b correct?

    Good question. It's been so long, I can't remember. It's been re-written several times over. I think it may have originally been a re-written Iniquity IPL.

    Well, I got it converted. I can say that it's not the best piece of code I've ever seen, but I suspect it was originally written by a teenager.

    Tell me the best way to get it to you. I don't think posting it here is doing either of us any favors.

    Are you very attached to this version of the automessage? I can tell you that I had wrote one a bit ago, and I am fully support it.

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:24 2019
    Tell me the best way to get it to you. I don't think posting it here is doing either of us any favors.


    ignatius3399@gmail.com

    Thank you much,

    |09ignatius |07(|15cia|07/|15scrollz|07)

    --- Mystic BBS v1.10 A52 (Linux)
    * Origin: catch22bbs.com (46:1/124)
    Synchronet thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)