home *** CD-ROM | disk | FTP | other *** search
-
-
- Menu "main.menu"
-
- flags hotkeyable
- level 0 - 255 , "Main.Ansi"
- prompt 0 , 0 - 255 , "|Main Menu : "
- prompt 1 , 0 - 255 , "|Menu : "
-
- BEGIN ; Start the command definitions
-
-
- MenuBegin
- ; Print "MainMenu|"
- LogMessage "Entered main menu."
- ; Print "!|" ;RIP-scrip mode on
- EndCmd
-
- ;MenuEnd
- ; Print "!|" ;RIP-scrip mode off
- ;EndCmd
-
- ;CommandBegin
- ; Print "vvv"
- ;EndCmd
-
- ;CommandEnd
- ; Print "^^^"
- ;EndCmd
-
- BuildScreen
- ;; PrintFile "trion:menutext/main.ansi"
- ; CliDoor "doors:FX/Random ~50 main.rndm"
- ; CliDoor "doors:FX/scroller ~50 main.scrl"
- CliDoor "doors:FX/text ~50 main.text"
- ;; CliDoor "doors:FX/blink ~50 main.blnk"
- EndCmd
-
-
- Cmd "V"
- CliDoor "doors:FX/AddText ~50 main.text"
- EndCmd
-
-
- Cmd "G" , 0-255
- GotoMenu "Logout.Menu"
- EndCmd
-
- Cmd "F" , 0-255
- GotoMenu "File.Menu"
- EndCmd
-
- Cmd "M" , 0-255
- GotoMenu "Mail.Menu"
- EndCmd
-
- Cmd "D" , 0-255
- GotoMenu "Door.Menu"
- EndCmd
-
- Cmd "E" , 0-255
- GotoMenu "UserEdit.Menu"
- EndCmd
-
- Cmd "B" , 0-255
- GotoMenu "Bulletin.Menu"
- EndCmd
-
- Cmd "T" , 0-255
- GotoMenu "Test.Menu"
- EndCmd
-
- ; Toggle from ANSI to RIP menus and back
-
- Cmd "R" , 5 - 255
- GotoMenu "Main_rip.Menu"
- EndCmd
-
-
-
- Cmd "$" , 0-239
- PassWord "test110" ;voor Sysop als User online
- GotoMenu "Sysop.Menu"
- EndCmd
-
- Cmd "$" , 240-254
- PassWord "test110" ;voor Cosysop level
- GotoMenu "Sysop.Menu"
- EndCmd
-
- Cmd "$" , 255
- PassWord "test110" ;voor Sysop level
- GotoMenu "Sysop.Menu"
- EndCmd
-
-
-
-
- Cmd "P" , 0-255
- PageSysop
- ; CliDoor "doors:chatdoor/PageDoor ~50 "
- ; CliDoor "doors:chatdoor/RoboChat ~50 "
- EndCmd
-
- Cmd "=" , 0-255 , S
- CliDoor "doors:chatdoor/SplitChat ~50 "
- EndCmd
-
- Cmd "-" , 0-255 , S
- CliDoor "doors:chatdoor/LineChat ~50 "
- EndCmd
-
- Cmd "\" , 0-255 , S
- ClrScr
- FlushBuffer ; Flush the return after "\"
- PushIntoBuffer "Hallo daar !!|"
- StartChat
- EndCmd
-
-
-
-
- Cmd "C" , 0-255
- CommentToSysop
- EndCmd
-
-
- Cmd "I" , 0-255
- CliDoor "trion:doors/conf/conf '~200' ~50 "
- EndCmd
-
-
-
-
-
-
- Cmd "S" , 0-255
- CliDoor "doors:SendNodeMsg/SendNodeMsg ~50"
- EndCmd
-
-
- Cmd "L" , 0-255
- ; DosCommandSync "trion:utils/listnodes >ram:mylist"
- ; Print "|Node Actie Name Place Level |"
- ; Print "====================================================================|"
- ; Print "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ|"
- ; PrintFile "ram:mylist"
-
- CliDoor "trion:utils/listnodes ANSI"
-
- More
- EndCmd
-
-
-
-
- END
-
-