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