• MPL

    From IGNATIUS@46:1/124 to ALL on Thu Jan 31 19:20:17 2019
    So, i'm trying to write an MPL. The following script compiles, but doesn't run.
    It displays "Ia! Cthulhu!" about a dozen times, then locks up. If anyone out there can tell me what's wrong with this script, please let me know. Thanks
    for any and all help.



    #### begin ##################################################################

    uses
    cfg,
    user;

    var Twriters : array[1..10] of string;
    var Toneliner: array[1..10] of string;
    var S : string;
    var foneline : string;
    var Ch : char;
    var Ch2 : char;
    var Count : byte;
    var Count2 : byte;
    var f : file;

    // begin show procedure ######################################

    // Foneline := cfgDataPath + 'oneliner.lst'

    Procedure show()
    Begin
    clrscr
    dispFile('oneh.ans');
    For Count := 1 To 10 do
    Begin
    write('þ ');
    write(padRT(Toneliner[count], 64, ' '));
    write(' : ');
    writeln(padRT(Twriters[count], 10, ' '));
    End
    End

    // end bot_bar procedure ######################################
    // begin top_bar procedure ####################################

    Procedure top_bar();
    Begin
    dispfile('oney.ans');
    Ch2 := ReadKey;
    If Ch2 = #13 then
    Begin
    dispFile('oneline.asc');
    Write(': ');
    S := stripmci(Input(70, 70, 11, ''));
    If S = '' then
    WriteLn('aborted');
    Halt
    End

    For Count := 1 To 9 do
    Begin
    Count2 := Count + 1;
    Toneliner[count] := Toneliner[count2];
    Twriters[count] := Twriters[count2];
    End

    tWriters[10] := userAlias;
    tOneliner[10] := S;

    fassign(f, foneline, 66);
    freset(f);
    For Count := 1 To 10 do
    Begin
    fWriteLn(f, tOneliner[count]);
    fWriteLn(f, tWriters[count]);
    End
    fClose(f);

    show();
    End

    // end top_bar procedure ######################################
    // begin position procedure ###################################

    Procedure position();
    begin
    Repeat
    DispFile('onen.ans');

    Ch := ReadKey;
    If IsArrow and Ch = #80 then
    Begin
    dispfile('onen.ans');
    top_bar();
    End
    Else if IsArrow and Ch = #72 then
    top_bar();

    Until Ch = #13;
    End

    Procedure bot_bar();
    begin
    dispFile('onen.ans');
    Ch2 := ReadKey
    If Ch2 = #13 then
    MenuCmd('go', 'main');
    Halt;
    End

    // end position procedure ##########################################

    // This starts the main program here.
    Begin

    If Not fileExist(foneline) Then
    Begin
    fassign(f, foneline, 66);
    fReWrite(f);
    For count := 1 To 10 do
    begin
    fWriteLn(f, 'Ia! Cthulhu!');
    fWriteLn(f, 'ignatius');
    End
    fClose(f);
    End

    Foneline := cfgDataPath + 'oneliner.lst'

    fassign(f, foneline, 66);
    freset(f);
    For Count := 1 To 10 do;
    Begin
    fReadLn(f, Toneliner[count]);
    fReadLn(f, Twriters[count]);
    End
    fClose(f);

    show();

    // end show procedure #########################################
    // begin bot_bar procedure ####################################

    End

    Done

    ## end ######################################################################

    TIA,

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From G00R00@46:1/127 to IGNATIUS on Thu Jan 31 19:20:17 2019
    If Not fileExist(foneline) Then

    This is the first line of your code that gets executed, but you have no
    value assigned to the fonline variable when you are calling it. That is at least one problem.

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
  • From IGNATIUS@46:1/124 to G00R00 on Thu Jan 31 19:20:17 2019
    |01۲ |04|01 on |0908/31/14 |09g00r00 |01said..
    If Not fileExist(foneline) Then

    This is the first line of your code that gets executed, but you have no value assigned to the fonline variable when you are calling it. That is at least one problem.

    How should it look?

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:17 2019
    On 08/31/14, ignatius said the following...

    So, i'm trying to write an MPL. The following script compiles, but
    doesn't run. It displays "Ia! Cthulhu!" about a dozen times, then locks up. If anyone out there can tell me what's wrong with this script,
    please let me know. Thanks for any and all help.



    #### begin ##################################################################

    uses
    cfg,
    user;

    var Twriters : array[1..10] of string;
    var Toneliner: array[1..10] of string;
    var S : string;
    var foneline : string;
    var Ch : char;
    var Ch2 : char;
    var Count : byte;
    var Count2 : byte;
    var f : file;

    // begin show procedure ######################################

    // Foneline := cfgDataPath + 'oneliner.lst'

    Procedure show()
    Begin
    clrscr
    dispFile('oneh.ans');
    For Count := 1 To 10 do
    Begin
    write('þ ');
    write(padRT(Toneliner[count], 64, ' '));
    write(' : ');
    writeln(padRT(Twriters[count], 10, ' '));
    End
    End

    // end bot_bar procedure ######################################
    // begin top_bar procedure ####################################

    Procedure top_bar();
    Begin
    dispfile('oney.ans');
    Ch2 := ReadKey;
    If Ch2 = #13 then
    Begin
    dispFile('oneline.asc');
    Write(': ');
    S := stripmci(Input(70, 70, 11, ''));
    If S = '' then
    WriteLn('aborted');
    Halt
    End

    For Count := 1 To 9 do
    Begin
    Count2 := Count + 1;
    Toneliner[count] := Toneliner[count2];
    Twriters[count] := Twriters[count2];
    End

    tWriters[10] := userAlias;
    tOneliner[10] := S;

    fassign(f, foneline, 66);
    freset(f);
    For Count := 1 To 10 do
    Begin
    fWriteLn(f, tOneliner[count]);
    fWriteLn(f, tWriters[count]);
    End
    fClose(f);

    show();
    End

    // end top_bar procedure ######################################
    // begin position procedure ###################################

    Procedure position();
    begin
    Repeat
    DispFile('onen.ans');

    Ch := ReadKey;
    If IsArrow and Ch = #80 then
    Begin
    dispfile('onen.ans');
    top_bar();
    End
    Else if IsArrow and Ch = #72 then
    top_bar();

    Until Ch = #13;
    End

    Procedure bot_bar();
    begin
    dispFile('onen.ans');
    Ch2 := ReadKey
    If Ch2 = #13 then
    MenuCmd('go', 'main');
    Halt;
    End

    // end position procedure ##########################################

    // This starts the main program here.
    Begin

    If Not fileExist(foneline) Then
    Begin
    fassign(f, foneline, 66);
    fReWrite(f);
    For count := 1 To 10 do
    begin
    fWriteLn(f, 'Ia! Cthulhu!');
    fWriteLn(f, 'ignatius');
    End
    fClose(f);
    End

    Foneline := cfgDataPath + 'oneliner.lst'

    You have defined Foneline AFTER you tried to use it above in the fassign function.



    fassign(f, foneline, 66);
    freset(f);
    For Count := 1 To 10 do;
    Begin
    fReadLn(f, Toneliner[count]);
    fReadLn(f, Twriters[count]);
    End
    fClose(f);

    show();

    // end show procedure #########################################
    // begin bot_bar procedure ####################################

    End

    Done

    ## end ######################################################################

    TIA,

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:17 2019
    |01۲ |04|01 on |0908/31/14 |09Gryphon |01said..
    You have defined Foneline AFTER you tried to use it above in the fassign function.


    Which fassign function? The first or second?

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:17 2019
    On 08/31/14, ignatius said the following...

    |01۲ |04|01 on |0908/31/14 |09Gryphon |01said..
    You have defined Foneline AFTER you tried to use it above in the
    fass
    function.


    Which fassign function? The first or second?

    It has to be defined before you use it. You use it in the first fassign function, then you assign fonline, then you use it again in the second fassign function. It has to be assigned before the first use of 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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:17 2019
    |01۲ |04|01 on |0909/01/14 |09Gryphon |01said..
    It has to be defined before you use it. You use it in the first fassign function, then you assign fonline, then you use it again in the second fassign function. It has to be assigned before the first use of it.


    Ok. I did that. It still isn't executing. :(

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:17 2019
    On 09/01/14, ignatius said the following...

    |01۲ |04|01 on |0909/01/14 |09Gryphon |01said..

    Ok, not sure if you realize this, but that line above, as quoted, is pretty annoying. It might translate well on your local host, but not on networked message bases.

    It has to be defined before you use it. You use it in the first
    fass
    function, then you assign fonline, then you use it again in the
    secon
    fassign function. It has to be assigned before the first use of it.


    Ok. I did that. It still isn't executing. :(

    I was able to get it to run as with that one modification. However, all it does is display the oneline.lst file, since I don't have the ansi's to go
    along with it. Nor have you put any code in there for user interaction.

    I'm assuming, by looking at the code, that you want to be able to use the lightbar to move up and down, and select one of the entries, yes?

    All your code is doing right now, is after it reads the files and loads the variables, is that it calls the 'show()' function. And all that function does is display the oneh.ans file and then displays all the toneliner and twriter variables, then exits the program.

    It looks like you need to call the 'position()' procedure in order to get any sort of user input.

    Maybe if you describe to me what you want it to do, I can help you out 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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:17 2019
    Ok, not sure if you realize this, but that line above, as quoted, is pretty annoying. It might translate well on your local host, but not on

    Ok. I will remove it. Thanks for letting me know.

    I was able to get it to run as with that one modification. However, all it does is display the oneline.lst file, since I don't have the ansi's
    to go along with it. Nor have you put any code in there for user interaction.

    What exactly did you do, and which line did you add the "foneline" variable to?


    I'm assuming, by looking at the code, that you want to be able to use the lightbar to move up and down, and select one of the entries, yes?

    Yes. That's it exactly. 1) Display oneline.lst 2) allow the user to choose between leaving a "oneliner" (thus adding it to oneline.lst) or going to the main menu. That's it right there.


    All your code is doing right now, is after it reads the files and loads the variables, is that it calls the 'show()' function. And all that function does is display the oneh.ans file and then displays all the toneliner and twriter variables, then exits the program.

    Hmm. Yeah. That doesn't seem right. I can't recall if my un-modified source
    has that issue or not. Reapern66 actually tried to re-write the program. I'm not trying to place blame, but maybe he missed a few things? BTW, I originally wrote this program for Mystic 1.07.3. For the record, currently, I absolutely do not understand the "new" syntax.


    Maybe if you describe to me what you want it to do, I can help you out with it.


    Well, basically, like I said, it _should_ display oneline.lst and offer a choice between leaving a oneliner or going to the main menu.
    Thank you for taking the time to help me out. It's much appreciated.

    Regards,

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From G00R00@46:1/127 to IGNATIUS on Thu Jan 31 19:20:17 2019
    things? BTW, I originally wrote this program for Mystic 1.07.3. For the record, currently, I absolutely do not understand the "new" syntax.

    Its pretty close to 100% Turbo Pascal syntax.

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
  • From IGNATIUS@46:1/124 to G00R00 on Thu Jan 31 19:20:17 2019

    Its pretty close to 100% Turbo Pascal syntax.


    Ah. I'm so used to C syntax. Like IPL, for example.

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From G00R00@46:1/127 to IGNATIUS on Thu Jan 31 19:20:17 2019
    Ah. I'm so used to C syntax. Like IPL, for example.

    If you are used to IPL then you can turn on IPL syntax. See rumors.mps or
    the mpltest.mps that comes with Mystic.

    --- Mystic BBS v1.10 A52 (Windows)
    * Origin: Sector 7 [Mystic BBS WHQ] (46:1/127)
  • From GRYPHON@46:1/116 to IGNATIUS on Thu Jan 31 19:20:17 2019
    On 09/02/14, ignatius said the following...

    Ok, not sure if you realize this, but that line above, as quoted, is pretty annoying. It might translate well on your local host, but
    not

    Ok. I will remove it. Thanks for letting me know.

    I was able to get it to run as with that one modification. However, it does is display the oneline.lst file, since I don't have the
    ansi'
    to go along with it. Nor have you put any code in there for user interaction.

    What exactly did you do, and which line did you add the "foneline" variable to?


    I'm assuming, by looking at the code, that you want to be able to
    use
    lightbar to move up and down, and select one of the entries, yes?

    Yes. That's it exactly. 1) Display oneline.lst 2) allow the user to
    choose between leaving a "oneliner" (thus adding it to oneline.lst) or going to the main menu. That's it right there.


    All your code is doing right now, is after it reads the files and
    loa
    the variables, is that it calls the 'show()' function. And all that function does is display the oneh.ans file and then displays all the toneliner and twriter variables, then exits the program.

    Hmm. Yeah. That doesn't seem right. I can't recall if my un-modified source has that issue or not. Reapern66 actually tried to re-write the program. I'm not trying to place blame, but maybe he missed a few
    things? BTW, I originally wrote this program for Mystic 1.07.3. For the record, currently, I absolutely do not understand the "new" syntax.


    Maybe if you describe to me what you want it to do, I can help you with it.


    Well, basically, like I said, it _should_ display oneline.lst and offer a choice between leaving a oneliner or going to the main menu.
    Thank you for taking the time to help me out. It's much appreciated.

    Ok, so the choices are only leave a new oneliner, or to exit back to the main menu? I see that you have it so that it calls the main menu with menucmd('go','main'), which seems unnecessary. You could just exit out of the app instead, right?

    Let me see what I can do with it, and I'll let you know.

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

    Ah. I'm so used to C syntax. Like IPL, for example.

    If you are used to IPL then you can turn on IPL syntax. See rumors.mps
    or the mpltest.mps that comes with Mystic.

    I actually did write one game in the IPL format of MPL. It's basically a ripoff of the bsg game robots.

    "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)
  • From IGNATIUS@46:1/124 to GRYPHON on Thu Jan 31 19:20:17 2019
    |01on |0909/03/14 |09Gryphon |01said..

    Ok, so the choices are only leave a new oneliner, or to exit back to
    the main menu? I see that you have it so that it calls the main menu
    with menucmd('go','main'), which seems unnecessary. You could just exit out of the app instead, right?


    Right.

    Let me see what I can do with it, and I'll let you know.


    OK. Thank you.

    Regards,

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

    --- Mystic BBS v1.10 A51 (Linux)
    * Origin: catch22bbs.com (46:1/124)
  • From REAPERN66@46:1/102 to IGNATIUS on Thu Jan 31 19:20:17 2019
    Hmm. Yeah. That doesn't seem right. I can't recall if my un-modified source has that issue or not. Reapern66 actually tried to re-write the program. I'm not trying to place blame, but maybe he missed a few
    things? BTW, I originally wrote this program for Mystic 1.07.3. For the


    lol, I rewrote it as it was. going through another mans
    works is stuff :)

    ty.

    --- Mystic BBS v1.10 A51 (Windows)
    * Origin: fluph.darktech.org (46:1/102)
  • 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 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)
  • 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)
  • 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)
  • 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)
  • 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 an "auto message" MPL that needs to be re-worked. If you could take 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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 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, 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 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 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)
  • 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 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 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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)
  • 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 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)
  • 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)