home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / chngbckg.zip / chngbckg.cmd next >
OS/2 REXX Batch file  |  1995-04-30  |  703b  |  21 lines
  1. /* CHNGBCKG.CMD - Change Warp Background Bitmap randomly */
  2. /* Please email comments to pauls@xanax.apana.org.au */
  3. /* Change this to the directory, where your ZIPped BMP's are stored but   */
  4. /* you MUST include the final backslash!           */
  5. BACKDIR = 'e:\utilities\pmjpeg\backgrounds\'
  6.  
  7. /* Change this to whatever drive you boot from     */
  8. BOOTDRIVE = 'd:'
  9.  
  10. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  11. call SysLoadFuncs
  12.  
  13. call SysFileTree BACKDIR'*.zip', "bckgr.", "O"
  14.    i = random(1,bckgr.0)
  15.    'unzip 'bckgr.i
  16. call SysFileTree BACKDIR'*.bmp', "bmp.", "O"
  17.    /* t = random(1,bmp.0) */
  18.    'copy 'bmp.1' 'BOOTDRIVE'\os2\bitmap\os2backg.bmp'
  19.    'del *.bmp' 
  20. exit
  21.