home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / filebase.scr < prev    next >
Encoding:
Text File  |  1995-03-04  |  2.4 KB  |  81 lines
  1. /*
  2.  * Octopus, The Atari ST(e)/TT/Falcon GEM/TOS Bulletin Board System
  3.  * written by me (Koos Kuil) on FidoNet: 2:282/397, NeST: 90:500/103
  4.  *
  5.  * Example English OctoScript file written on 03 March 1995
  6.  *
  7.  * ------------------------------------------------------------------
  8.  * FILEBASE.SCR   Filebase & Allfiles functions
  9.  *
  10.  * I've created a small example for how to make use of 2 file groups
  11.  * in only one menu.   You can also use GetFilearealist FULL if you
  12.  * want to select a filearea from a list with all fileareas at once.
  13.  * When you use this method it's not required to set the filegroup.
  14.  *
  15.  */
  16.  
  17. #include tbank.scr        /* Script file for OctoBank */
  18.  
  19. :filebase
  20. SetFileGroup ATARI      /* Set file group ATARI as default */
  21. SetMainArea  ATARI
  22. Do
  23.    Convert FileMenu  
  24.    DoChoice
  25.       Selectchoice
  26.  
  27.          Case 1   SetFileGroup ATARI        /* File group ATARI */
  28.                    SetMainArea  ATARI
  29.                   Getfilearealist  ATARI  
  30.  
  31.          Case 2   SetFileGroup GENERAL        /* File group GENERAL */
  32.                    SetMainArea  GENERAL
  33.                    Getfilearealist   GENERAL  
  34.  
  35.          Case 3   SetFileGroup FANFILES        /* File group FANFILES */
  36.                    SetMainArea  FANFILES
  37.                    Getfilearealist   FANFILES
  38.  
  39.          Case 4   SetFileGroup NESTFILE        /* File group NESTFILE */
  40.                    SetMainArea  NESTFILE
  41.                    Getfilearealist   NESTFILE
  42.  
  43.          Case X   SetFileGroup FULL            /* Set Full group */
  44.                    FileListing
  45.                 
  46.          Case F   FileListing   
  47.          Case L   FileListing   
  48.          Case N   Newfiles      
  49.          Case K   KeywordSearch
  50.          Case D   Download
  51.          Case V   ShowFileInfo
  52.          Case U   Convert rules.upl    UploadtoArea
  53.          Case S   FileBaseStatistics
  54.          Case T   Gosub tbank
  55.          Case P   Convert private.upl  UploadPrivate
  56.          Case !   Gosub logoff
  57.      Endselect
  58.    EnddoChoice *
  59. Enddo *
  60. Return
  61.  
  62. /* Allfiles menu */
  63.  
  64. :allfiles
  65. Do
  66.    Convert AllFmenu
  67.    DoChoice
  68.       SelectChoice
  69.         Case A  DownloadFile c:\octopus\allfiles\allfiles.arc
  70.         Case B  DownloadFile c:\octopus\allfiles\allfiles.lzh
  71.         Case C  DownloadFile c:\octopus\allfiles\allfiles.zip
  72.         Case 3  DownloadFile c:\octopus\allfiles\files030.zip
  73.         Case R  Bulletin c:\octopus\allfiles\allfiles.txt
  74.         Case !  Gosub logoff
  75.       EndSelect
  76.    EnddoChoice *
  77. Enddo *
  78. Return
  79.  
  80. /* End FILEBASE.SCR */
  81.