home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / trionbbs110 / Trion / menus / start.src < prev    next >
Encoding:
Text File  |  1998-10-06  |  2.4 KB  |  115 lines
  1.  
  2. ; This is the first menu where a user enters the BBS
  3.  
  4. Menu "start.menu"
  5.  
  6. flags  hotkeyable
  7. level  0 - 255 , "Start.Ansi"
  8. prompt 0 , 0 - 255 , "|Press <return> to continue.."
  9. prompt 1 , 0 - 255 , "|Press <return> to continue.."
  10.  
  11. BEGIN     ; Start the command definitions
  12.  
  13.  
  14. Cmd "G" , 0-255
  15.    GotoMenu "Logout.Menu"
  16. EndCmd
  17.  
  18.  
  19. Cmd "F"
  20.    ClrScr
  21.    Print "Enter a number or press <Return> for a new files scan.|"
  22.    SetScanDays
  23.    CatalogChronoGlobalNew
  24. EndCmd
  25.  
  26.  
  27. Cmd "M"
  28.    ClrScr
  29.    ReadWaitingMail
  30. EndCmd
  31.  
  32.  
  33. Cmd "S" , 255                    ;sysop shortcut to 'S'kip the mail part ;)
  34.    GotoMenu "Main.Menu"
  35. EndCmd
  36.  
  37.  
  38. Cmd "N" , 5-255
  39.    CliDoor     "trion:doors/quest/DoQuest ~50 ~51"
  40.  
  41.    ReadWaitingMail
  42.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  43.    ReadNew
  44.  
  45.    DosCommand  "trion:utils/trion -max 'User ~200 logged in on node ~50.'"
  46.    GotoMenu "Main.Menu"
  47. EndCmd
  48.  
  49.  
  50. Cmd "" , 5 - 255
  51.    CliDoor     "trion:doors/quest/DoQuest ~50 ~51"
  52.  
  53. ;   ChangeEditor "2"                   ;Select Full Screen Editor
  54.  
  55.    ReadWaitingMail
  56.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  57.    ReadNew
  58.  
  59.    DosCommand  "trion:utils/trion -max 'User ~200 logged in on node ~50.'"
  60.    GotoMenu "Main.Menu"
  61. EndCmd
  62.  
  63.  
  64.  
  65. Cmd "R" , 5 - 255
  66.    CliDoor     "trion:doors/quest/DoQuest ~50 ~51"
  67.  
  68. ;   ChangeEditor "2"                   ;Select Full Screen Editor
  69.  
  70.    ReadWaitingMail
  71.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  72.    ReadNew
  73.  
  74.    DosCommand  "trion:utils/trion -max 'User ~200 logged in on node ~50.'"
  75.    GotoMenu "Main_rip.Menu"
  76. EndCmd
  77.  
  78.  
  79.  
  80. Cmd "N" , 0 - 4
  81.    Print "|Ha een nieuwe User !!|"
  82.    ChangeAccesLevel "10"
  83.    CliDoor     "trion:doors/quest/DoQuest ~50 ~51"
  84.  
  85.    ChangeEditor "2"                   ;Select Full Screen Editor
  86.  
  87.    ScanWaitingMail
  88.    ReadWaitingMail
  89.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  90.    ReadNew
  91.  
  92.    DosCommand  "trion:utils/trion -max 'User ~200 logged in on node ~50.'"
  93.    GotoMenu "Main.Menu"
  94. EndCmd
  95.  
  96.  
  97. Cmd "" , 0 - 4
  98.    Print "|Ha een nieuwe User !!|"
  99.    ChangeAccesLevel "10"
  100.    CliDoor     "trion:doors/quest/DoQuest ~50 ~51"
  101.  
  102.    ChangeEditor "2"                   ;Select Full Screen Editor
  103.  
  104.    ScanWaitingMail
  105.    ReadWaitingMail                    ;SCAN waiting mail !!
  106.    ChangeMessageArea  "5"             ;Read New 'MsgsToAll'
  107.    ReadNew
  108.  
  109.    DosCommand  "trion:utils/trion -max 'User ~200 logged in on node ~50.'"
  110.    GotoMenu "Main.Menu"
  111. EndCmd
  112.  
  113. END
  114.  
  115.