home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BUSINESS / VNDNFO10.ZIP / EXAMPLES.ZIP / GAMHAVEN.BAT < prev    next >
DOS Batch File  |  1994-01-04  |  3KB  |  75 lines
  1. EXAMPLE ONLY, FOR ILLUSTRATIVE PURPOSES; MUST BE CUSTOMIZED FOR YOUR USE
  2. (next statement extraneous, to prevent accidental execution)
  3. goto done
  4. echo off
  5. cls
  6. goto start
  7. :usage
  8. echo .=================================================================
  9. echo .===== gamhaven.bat -- test for game, distributable on our   =====
  10. echo .=====                 free ASP-member games-only BBS        =====
  11. echo .=====                                                       =====
  12. echo .===== usage:                                                =====
  13. echo .=====        gamhaven <original_pkg>                        =====
  14. echo .=====                                                       =====
  15. echo .===== where:                                                =====
  16. echo .=====        original_pkg is full pathname of compressed    =====
  17. echo .=====        package that has been uncompressed in currdir  =====
  18. echo .=====                                                       =====
  19. echo .===== example:                                              =====
  20. echo .=====    gamhaven c:\incoming\doom100.arj                   =====
  21. echo .=====                                                       =====
  22. echo .=== Copyright 1993 Rams' Island Software All Rights Reserved ====
  23. echo .== 1993 Rams' Island Software, 7644 Lakecliff, Parker CO 80134 ==
  24. echo .=================================================================
  25. goto done
  26.  
  27. rem ----- check arguments -------------------------------------------
  28. :start
  29. if %1. == .        goto usage
  30.  
  31. :argsOK
  32. rem ----- this sysop does no manual handling ------------------------
  33. if not exist vendinfo.diz goto reject   
  34.  
  35. rem ----- reject BBS-limited products, and invalid VENDINFO files ---
  36. vendprcs vendinfo.diz -db -c0 -ta -rl
  37. if errorlevel 40 goto bbsok
  38. if errorlevel 20 goto reject
  39. goto reject
  40.  
  41. :bbsok
  42. rem ----- find out if it can be repackaged as ZIP -------------------
  43. vendprcs vendinfo.diz -egmc
  44. if errorlevel 51 goto use_orig
  45. vendprcs vendinfo.diz -egc
  46. if errorlevel 51 goto use_orig
  47. vendprcs vendinfo.diz -egmct
  48. if errorlevel 51 goto use_orig
  49.  
  50. rem ----- repackage as ZIP OK; may I add a BBS ad? ------------------
  51. vendprcs vendinfo.diz -egmas
  52. if errorlevel 51 goto no_ad
  53. copy c:\mystuff\gamhaven.bbs
  54.  
  55. :no_ad
  56. rem ----- repackage as TEMP.ZIP; move by category with rename -------
  57. pkzip -m temp
  58. pkunzip temp vendinfo.diz
  59. vendprcs vendinfo.diz -p .\temp.zip -rcnl
  60. del vendinfo.diz
  61. goto done
  62.  
  63. :use_orig
  64. rem ----- move by category with rename ------------------------------
  65. vendprcs vendinfo.diz -p %1 -rcnl
  66. del *.*
  67. goto done
  68.  
  69. :reject
  70. :bad_vendinfo
  71. rem ----- handle BBS-limited products -------------------------------
  72. del %1
  73.  
  74. :done
  75.