home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / trionbbs110 / Trion / menus / main.src < prev    next >
Encoding:
Text File  |  1998-10-06  |  2.5 KB  |  159 lines

  1.  
  2.  
  3. Menu "main.menu"
  4.  
  5. flags  hotkeyable
  6. level  0 - 255 , "Main.Ansi"
  7. prompt 0 , 0 - 255 , "|Main Menu : "
  8. prompt 1 , 0 - 255 , "|Menu : "
  9.  
  10. BEGIN     ; Start the command definitions
  11.  
  12.  
  13. MenuBegin
  14. ;   Print "MainMenu|"
  15.    LogMessage "Entered main menu."
  16. ;   Print "!|"                          ;RIP-scrip mode on
  17. EndCmd
  18.  
  19. ;MenuEnd
  20. ;   Print "!|"                          ;RIP-scrip mode off
  21. ;EndCmd
  22.  
  23. ;CommandBegin
  24. ;   Print "vvv"
  25. ;EndCmd
  26.  
  27. ;CommandEnd
  28. ;   Print "^^^"
  29. ;EndCmd
  30.  
  31. BuildScreen
  32. ;;   PrintFile "trion:menutext/main.ansi"
  33. ;   CliDoor  "doors:FX/Random   ~50  main.rndm"
  34. ;   CliDoor  "doors:FX/scroller ~50  main.scrl"
  35.    CliDoor  "doors:FX/text ~50  main.text"
  36. ;;   CliDoor  "doors:FX/blink    ~50  main.blnk"
  37. EndCmd
  38.  
  39.  
  40. Cmd "V"
  41.    CliDoor  "doors:FX/AddText ~50  main.text"
  42. EndCmd
  43.  
  44.  
  45. Cmd "G" , 0-255
  46.    GotoMenu "Logout.Menu"
  47. EndCmd
  48.  
  49. Cmd "F" , 0-255
  50.    GotoMenu "File.Menu"
  51. EndCmd
  52.  
  53. Cmd "M" , 0-255
  54.    GotoMenu "Mail.Menu"
  55. EndCmd
  56.  
  57. Cmd "D" , 0-255
  58.    GotoMenu "Door.Menu"
  59. EndCmd
  60.  
  61. Cmd "E" , 0-255
  62.    GotoMenu "UserEdit.Menu"
  63. EndCmd
  64.  
  65. Cmd "B" , 0-255
  66.    GotoMenu "Bulletin.Menu"
  67. EndCmd
  68.  
  69. Cmd "T" , 0-255
  70.    GotoMenu "Test.Menu"
  71. EndCmd
  72.  
  73. ; Toggle from ANSI to RIP menus and back
  74.  
  75. Cmd "R" , 5 - 255
  76.    GotoMenu "Main_rip.Menu"
  77. EndCmd
  78.  
  79.  
  80.  
  81. Cmd "$" , 0-239
  82.    PassWord "test110"         ;voor Sysop als User online
  83.    GotoMenu "Sysop.Menu"
  84. EndCmd
  85.  
  86. Cmd "$" , 240-254
  87.    PassWord "test110"              ;voor Cosysop level
  88.    GotoMenu "Sysop.Menu"
  89. EndCmd
  90.  
  91. Cmd "$" , 255
  92.    PassWord "test110"         ;voor Sysop level
  93.    GotoMenu "Sysop.Menu"
  94. EndCmd
  95.  
  96.  
  97.  
  98.  
  99. Cmd "P" , 0-255
  100.    PageSysop
  101. ;   CliDoor  "doors:chatdoor/PageDoor ~50 "
  102. ;   CliDoor  "doors:chatdoor/RoboChat ~50 "
  103. EndCmd
  104.  
  105. Cmd "=" , 0-255 , S
  106.    CliDoor  "doors:chatdoor/SplitChat ~50 "
  107. EndCmd
  108.  
  109. Cmd "-" , 0-255 , S
  110.    CliDoor  "doors:chatdoor/LineChat ~50 "
  111. EndCmd
  112.  
  113. Cmd "\" , 0-255 , S
  114.    ClrScr
  115.    FlushBuffer                           ; Flush the return after "\"
  116.    PushIntoBuffer "Hallo daar !!|"
  117.    StartChat
  118. EndCmd
  119.  
  120.  
  121.  
  122.  
  123. Cmd "C" , 0-255
  124.    CommentToSysop
  125. EndCmd
  126.  
  127.  
  128. Cmd "I" , 0-255
  129.    CliDoor  "trion:doors/conf/conf '~200' ~50 "
  130. EndCmd
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137. Cmd "S" , 0-255
  138.    CliDoor  "doors:SendNodeMsg/SendNodeMsg ~50"
  139. EndCmd
  140.  
  141.  
  142. Cmd "L" , 0-255
  143. ;   DosCommandSync  "trion:utils/listnodes >ram:mylist"
  144. ;   Print "|Node Actie                              Name            Place Level |"
  145. ;   Print "====================================================================|"
  146. ;   Print "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ|"
  147. ;   PrintFile   "ram:mylist"
  148.  
  149.    CliDoor  "trion:utils/listnodes ANSI"
  150.  
  151.    More
  152. EndCmd
  153.  
  154.  
  155.  
  156.  
  157. END
  158.  
  159.