# ﾚﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｿ
# ｳ                   Mystic-MOD - Mystic BBS Modification                    ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  Title                         BBS Announce                               ｳ
# ｳ  Author                        Gryphon                                    ｳ
# ｳ  Version of Mystic Required    v1.07+                                     ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ                               Release Type                                ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  [ ] Art  [ ] BBS Mod  [ ] BBS Util  [x] MPE Script  [ ] _______________  ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ                                 Comments                                  ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  Features                                                                 ｳ
# ｳ  ~~~~~~~~                                                                 ｳ
# ｳ  * Allows your callers and visiting sysops to advertise their BBS         ｳ
# ｳ  * Creates a message in the Mystic BBS Message area of the sysops choice  ｳ
# ｳ  * Great for advertising a BBS in Fidonet BBS_ADS echo                    ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ                               Requirements                                ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  1. Requires MBBSPOST to post text files to message bases                 ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ                               Installation                                ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  1. Move GY-BBA.MPS to your \SCRIPTS directory                            ｳ
# ｳ  2. Add a GX GY-BBA to any menus you want to link this MPL to.            ｳ
# ｳ  3. Compile GY-BBA.MPS                                                    ｳ
# ｳ  4. Configure for all your lanuages                                       ｳ
# ｳ  5. Enjoy!                                                                ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ                              Contacting Me                                ｳ
# ﾃﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄｴ
# ｳ  Want to send comments, flames, suggestions or death threats?             ｳ
# ｳ                                                                           ｳ
# ｳ  Email: dperry.geo@yahoo.com                                              ｳ
# ｳ  Web  : http://cyberia.darktech.org                                      ｳ
# ﾀﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾄﾙ
#
# ---------------------------------------------------------------------------
# BBS Announcer (C) 2001 By Gryphon.  All Rights Reserved.
# ---------------------------------------------------------------------------
# Modify this however you want, but don't re-release it with your name on it.
# ---------------------------------------------------------------------------

USES CFG
USES USER

Var T1 	Boolean
Var F1 	String
Var Ch  Char 
Var A  	Byte
Var txtToUse String Array(1..3)
Var TEMP      String
Var tFreePay    String Array(1..3)
Var tYesNo      String Array(1..2)
Var BBS_NAME     String
Var bname        String
Var ThisSysop    String
Var BBS_LOCATION   String
Var BBS_SYSOP    String
Var BBS_ADDRESS    String
Var BBS_PHONE    String
Var BBS_THEME    String
Var BBS_SINCE       String
Var ToUser      String
Var BBS_GAMES    Integer
Var BBS_NETWS    Integer
Var BBS_MAREA    Integer
Var BBS_FAREA    Integer
Var BBS_NODES    Integer
Var BBS_USERS    Integer
Var BBS_COSTS    Integer
Var BBS_ADULT    Integer

BBS_COSTS := 1
BBS_ADULT := 1
### Set this to your sysop name.
ThisSysop := 'Gryphon'

tFreePay(1) := 'Free'
tFreePay(2) := 'Pay'
tFreePay(3) := 'Optional'
tYesNo(1)  := 'No'
tYesNo(2)  := 'Yes'

GetCfg
F1 := CfgSysPath + 'temp' + Int2Str(NodeNum) + PathChar + 'announce.tmp'

Procedure WriteIt 
  if fexist(F1) then
    ferase(F1)
  endif
  Fopen(1,Text,ReWrite,F1)
  FWriteLn(1,'                    [1;33mAnnouncing a BBS for your BBSing pleasure!')
  FWriteLn(1,'')
  FWriteLn(1,' [1;33mBBS Name[1;30m:.......:[1;36m '+BBS_NAME)
  FWriteLn(1,' [1;33mBBS URL[1;30m:........:[1;36m '+BBS_ADDRESS)
  FWriteLn(1,' [1;33mBBS Sysop[1;30m:......:[1;36m '+BBS_SYSOP)
  FWriteLn(1,' [1;33mBBS Location[1;30m:...:[1;36m '+BBS_LOCATION)
  FWriteLn(1,' [1;33mBBS Focus[1;30m:......:[1;36m '+BBS_THEME)
  FWriteLn(1,' [1;33mCost[1;30m:...........:[1;36m '+tFreePay(BBS_COSTS))
  FWriteLn(1,' [1;33mAdult Access[1;30m:...:[1;36m '+tYesNo(BBS_ADULT))
  FWriteLn(1,' [1;33mNo. Msg Areas[1;30m:..:[1;36m '+Int2Str(BBS_MAREA))
  FWriteLn(1,' [1;33mNo. File Areas[1;30m:.:[1;36m '+Int2Str(BBS_FAREA))
  FWriteLn(1,' [1;33mNo. Msg Net[1;30m.....:[1;36m '+Int2Str(BBS_NETWS))
  FWriteLn(1,' [1;33mNo. of Callers[1;30m:.:[1;36m '+Int2Str(BBS_USERS))
  FWriteLn(1,' [1;33mDescription:')
  FWriteLn(1,'[1;33m:[1;36m'+txtToUse(1))
  FWriteLn(1,'[1;33m:[1;36m'+txtToUse(2))
  FWriteLn(1,'[1;33m:[1;36m'+txtToUse(3))
  FWriteLn(1,'          *- Autoposted by Mystic BBS Announcer 1.00 (`01) -*')
    FClose(1)

#### Change/Add/Delete the lines bellow to suit your needs.
#### This line sends a copy to the sysop via email
  MenuCmd ('D-', CfgSysPath + 'mbbspost 0 ' + ToUser + ' ' + ThisSysop + ' ' + bname + ' ' + F1)
#### This line posts the message to a message base of your chosing.
  MenuCmd ('D-', CfgSysPath + 'mbbspost 23 ' + ToUser + ' All ' + bname + ' ' + F1)
  FErase(F1)
PEnd 

Procedure Ask
    GetThisUser
  ToUser := UserAlias

  While Pos(' ', ToUser) > 0
    A := Pos(' ', ToUser)
    Delete (ToUser, 1, A)
    Insert ('_', ToUser, A)
  Wend
  While Ch <> 'Q'
    Cls
    WriteLn('     |14BBS Announcer v1.0 by Darryl Perry')
    WriteLn('')
    WriteLn('     |01(|03A|01) |07BBS Name     |08: |07'+BBS_NAME)
    WriteLn('     |01(|03B|01) |07URL/Phone    : '+BBS_ADDRESS)
    WriteLn('     |01(|03C|01) |07Theme        : '+BBS_THEME)
    WriteLn('     |01(|03D|01) |07Online Since : '+BBS_SINCE)
    WriteLn('     |01(|03E|01) |07Sysop        : '+BBS_SYSOP)
    WriteLn('     |01(|03F|01) |07Location     : '+BBS_LOCATION) 
    WriteLn('     |01(|03G|01) |07Free/Pay     : '+tFreePay(BBS_COSTS)) 
    WriteLn('     |01(|03H|01) |07# Msg Areas  : '+Int2Str(BBS_MAREA))
    WriteLn('     |01(|03I|01) |07# File Areas : '+Int2Str(BBS_FAREA)) 
    WriteLn('     |01(|03J|01) |07# Users      : '+Int2Str(BBS_USERS))
    WriteLn('     |01(|03K|01) |07# Msg Nets   : '+Int2Str(BBS_NETWS))
    WriteLn('     |01(|03L|01) |07Adult Area   : '+tYesNo(BBS_ADULT))
    WriteLn('     |01(|03M|01) |07Description  :')
    WriteLn(':'+txtToUse(1))
    WriteLn(':'+txtToUse(2))
    WriteLn(':'+txtToUse(3))
    WriteLn('')
    Write  ('     |09Command (|15Q=Quit|09):|15 ')
    Ch := OneKey('ABCDEFGHIJKLMQ') 

    If Ch = 'A' then
      WriteLn('')
      Write('      BBS Name: ')
      BBS_NAME := Input(40, 40, 11, '')
      bname := BBS_NAME
      While Pos(' ', bname) > 0 
          A := Pos(' ', bname)
        Delete (bname, 1, A)
        Insert ('_', bname, A)
      Wend
    elseif Ch = 'B' then
      WriteLn('')
      Write('      URL/Phone: ')
      BBS_ADDRESS := Input(40, 40, 11, '')
    elseif Ch = 'C' then
      WriteLn('')
      Write('      Theme or Focus of BBS: ')
      BBS_THEME:= Input(30, 30, 11, '')
    elseif Ch = 'D' then
      WriteLn('')
      Write('      Online Since : ')
      BBS_SINCE:= Input(8, 8, 15, '')
    elseif Ch = 'E' then
      WriteLn('')
      Write('      Sysop: ')
      BBS_SYSOP:= Input(30, 30, 11, '')
    elseif Ch = 'F' then
      WriteLn('')
      Write('      Location: ')
      BBS_LOCATION := Input(40, 40, 11, '')
    elseif Ch = 'G' then
      BBS_COSTS := BBS_COSTS + 1
      if BBS_COSTS > 3 then
        BBS_COSTS := 1
      endif
    elseif Ch = 'H' then
      WriteLn('')
      Write('      How many message areas? : ')
      BBS_MAREA := Str2Int(Input(10, 10, 11, ''))
    elseif Ch = 'I' then
      WriteLn('')
      Write('      How many file areas? : ')
      BBS_FAREA := Str2Int(Input(10, 10, 11, ''))
    elseif Ch = 'J' then
      WriteLn('')
      Write('      How many users? : ')
      BBS_USERS := Str2Int(Input(10, 10, 11, ''))
    elseif Ch = 'K' then
      WriteLn('')
      Write('      How Message Networks? : ')
      BBS_NETWS:= Str2Int(Input(10, 10, 11, ''))
    elseif Ch = 'L' then
      BBS_ADULT := BBS_ADULT + 1
      if BBS_ADULT > 2 then
        BBS_ADULT := 1
      endif
    elseif Ch = 'M' then
      WriteLn('')
      WriteLn('Enter a short description.  Max 3 lines.')
      Write('1: ') txtToUse(1) := Input(70, 70, 11, '')
      Write('2: ') txtToUse(2) := Input(70, 70, 11, '')
      Write('3: ') txtToUse(3) := Input(70, 70, 11, '')
	elseif Ch = 'Q' then
		If InputYN('  |14   Is this what you want? (|15Y|14/|15n|14): |15') then
			WriteIt
		else
			WriteLn('  |12   Aborting...|CR|PA')
		endif
  Endif
  Wend
PEnd Ask

Ask