home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / trionbbs110 / Trion / menus / mail.src < prev    next >
Encoding:
Text File  |  1998-10-06  |  2.6 KB  |  191 lines
  1.  
  2. Menu "Mail.menu"
  3.  
  4. flags  hotkeyable
  5. level    0 - 239 , "Mail"                          ;"Mail.Ansi"
  6. level  240 - 255 , "Mail"                      ;"Mail.sys.Ansi"
  7. prompt 0 , 0 - 255 , "|Mail Menu : "
  8. prompt 1 , 0 - 255 , "|Mail Menu : "
  9.  
  10. BEGIN     ; Start the command definitions
  11.  
  12.  
  13. MenuBegin
  14. ;   Print "MailMenu|"
  15.    LogMessage "Entered mail menu."
  16. EndCmd
  17.  
  18.  
  19. ;Cmd "G" , 0-255
  20. ;   GotoMenu "Logout.Menu"
  21. ;EndCmd
  22.  
  23. Cmd "Q" , 0-255
  24.    GotoMenu "Main.Menu"
  25. EndCmd
  26.  
  27. Cmd "S" , 0-255
  28.    GotoMenu "ScanMsgs.Menu"
  29. EndCmd
  30.  
  31. Cmd "R" , 0-255
  32.    GotoMenu "ReadMsgs.Menu"
  33. EndCmd
  34.  
  35.  
  36. Cmd "1" , 0-255
  37.    ChangeMessageArea "1"
  38.    LogMessage "Changed to message area: ~101."
  39. EndCmd
  40.  
  41. Cmd "2" , 0-255
  42.    ChangeMessageArea "2"
  43.    LogMessage "Changed to message area: ~101."
  44. EndCmd
  45.  
  46. Cmd "3" , 0- 255
  47.    ChangeMessageArea "3"
  48.    LogMessage "Changed to message area: ~101."
  49. EndCmd
  50.  
  51.  
  52.  
  53. Cmd "-" , 0- 255
  54.    PreviousMenu
  55. EndCmd
  56.  
  57.  
  58. Cmd "B" , 0- 255
  59.    CliDoor  "doors:maildoor/maildoor ~50"
  60. EndCmd
  61.  
  62.  
  63. Cmd "G" , 0-255
  64.    ClrScr
  65.    ListMessageGroups
  66.    OtherMessageGroup
  67.  
  68.    ClrScr
  69.    ListMsgAreas
  70.    ; PrintFile "trion:text/MsgAreas.ansi"
  71.    OtherMessageArea
  72.    LogMessage "Changed to message area: ~101."
  73. EndCmd
  74.  
  75.  
  76. Cmd "O" , 0-255
  77.    ClrScr
  78.    ListMsgAreas
  79.    ; PrintFile "trion:text/MsgAreas.ansi"
  80.    OtherMessageArea
  81.    LogMessage "Changed to message area: ~101."
  82. EndCmd
  83.  
  84. Cmd "A" , 0-255
  85.    OtherMessageArea
  86.    LogMessage "Changed to message area: ~101."
  87. EndCmd
  88.  
  89.  
  90.  
  91.  
  92. Cmd "4" , 0-255
  93.    ClrScr
  94.    PrintFile "trion:text/NetMail.ansi"
  95.    OtherMessageArea
  96.    LogMessage "Changed to message area: ~101."
  97. EndCmd
  98.  
  99. Cmd "5" , 0-255
  100.    ClrScr
  101.    PrintFile "trion:text/NLA.ansi"
  102.    OtherMessageArea
  103.    LogMessage "Changed to message area: ~101."
  104. EndCmd
  105.  
  106. Cmd "Y" , 0-255
  107.    RexxDoor  "doors:rexxtest/ReadNLA.rexx"
  108. EndCmd
  109.  
  110.  
  111.  
  112. Cmd "6" , 0-255
  113.    ClrScr
  114.    PrintFile "trion:text/DAN.ansi"
  115.    OtherMessageArea
  116.    LogMessage "Changed to message area: ~101."
  117. EndCmd
  118.  
  119.  
  120.  
  121.  
  122. Cmd "N" , 0-255
  123.    ReadNew
  124. EndCmd
  125.  
  126. Cmd "Z" , 0-255
  127.    ReadGlobalNew
  128. EndCmd
  129.  
  130.  
  131.  
  132.  
  133.  
  134. Cmd "?" , 0- 255
  135.    Confirm  "Do you really want to scan for waiting mail (Y/n) ? "
  136.    ScanWaitingMail
  137.    More
  138. EndCmd
  139.  
  140. Cmd "W" , 0-255
  141.    ClrScr
  142.    ReadWaitingMail
  143. EndCmd
  144.  
  145. Cmd "L" , 0-255
  146.    PlaySample "trion:samples/alf-yes!"
  147.    WriteMessage
  148. EndCmd
  149.  
  150. Cmd "E" , 0-255
  151.    GotoMenu "Editor.menu"
  152. EndCmd
  153.  
  154. Cmd "I" , 0-255
  155.    EditSignature
  156. EndCmd
  157.  
  158.  
  159.  
  160.  
  161. Cmd "T" , 0-255
  162.    Print "There are ~105 unread messages|"
  163.    More
  164. EndCmd
  165.  
  166.  
  167.  
  168.  
  169.  
  170. Cmd "F" , 0-255
  171.    ReadForward
  172. EndCmd
  173.  
  174. Cmd "M" , 0-255
  175.    ReadMarkedMessages
  176. ;   UnmarkMessages
  177. EndCmd
  178.  
  179. Cmd "U" , 0-255
  180.    UnmarkMessages
  181. EndCmd
  182.  
  183. Cmd "@" , 0-255
  184.    FlushUserData
  185. EndCmd
  186.  
  187.  
  188.  
  189. END
  190.  
  191.