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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

|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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

|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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

|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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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 o 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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

|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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)
■ Synchronet ■ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

$ 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)

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)

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)