home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 9 / cdrt09.iso / pc / casino / casino.bat < prev    next >
DOS Batch File  |  1995-01-13  |  3KB  |  188 lines
  1. @echo off
  2.  
  3. co.exe 0
  4.  
  5. :floor
  6. cafloor.exe
  7. if errorlevel 255 goto webedone
  8. if errorlevel 30 goto rd
  9. if errorlevel 29 goto pg
  10. if errorlevel 28 goto cs
  11. if errorlevel 27 goto cr
  12. if errorlevel 26 goto to
  13. if errorlevel 25 goto gs
  14. if errorlevel 24 goto sh
  15. if errorlevel 23 goto ho
  16. if errorlevel 22 goto gr
  17. if errorlevel 21 goto og
  18. if errorlevel 20 goto fj
  19. if errorlevel 19 goto se
  20. if errorlevel 18 goto ls
  21. if errorlevel 17 goto hl
  22. if errorlevel 16 goto fb
  23. if errorlevel 15 goto ps
  24. if errorlevel 14 goto bu
  25. if errorlevel 13 goto df
  26. if errorlevel 12 goto ft
  27. if errorlevel 11 goto rl
  28. if errorlevel 10 goto webedone
  29. if errorlevel 9 goto th
  30. if errorlevel 8 goto s7
  31. if errorlevel 7 goto s5
  32. if errorlevel 6 goto d5
  33. if errorlevel 5 goto wd
  34. if errorlevel 4 goto jw
  35. if errorlevel 3 goto vp
  36. if errorlevel 2 goto bc
  37. if errorlevel 1 goto bj
  38. if errorlevel 0 goto webedone
  39.  
  40. :bj
  41. cabj
  42. if errorlevel 0 goto floor
  43. goto webedone
  44.  
  45. :bc
  46. cabc
  47. if errorlevel 0 goto floor
  48. goto webedone
  49.  
  50. :vp
  51. cavp
  52. if errorlevel 0 goto floor
  53. goto webedone
  54.  
  55. :jw
  56. cajw
  57. if errorlevel 0 goto floor
  58. goto webedone
  59.  
  60. :wd
  61. cawd
  62. if errorlevel 0 goto floor
  63. goto webedone
  64.  
  65. :d5
  66. ca5d
  67. if errorlevel 0 goto floor
  68. goto webedone
  69.  
  70. :s5
  71. ca5s
  72. if errorlevel 0 goto floor
  73. goto webedone
  74.  
  75. :s7
  76. ca7s
  77. if errorlevel 0 goto floor
  78. goto webedone
  79.  
  80. :th
  81. catx
  82. if errorlevel 0 goto floor
  83. goto webedone
  84.  
  85. :rl
  86. carl
  87. if errorlevel 0 goto floor
  88. goto webedone
  89.  
  90. :ft
  91. caft
  92. if errorlevel 0 goto floor
  93. goto webedone
  94.  
  95. :df
  96. cadf
  97. if errorlevel 0 goto floor
  98. goto webedone
  99.  
  100. :bu
  101. cabu
  102. if errorlevel 0 goto floor
  103. goto webedone
  104.  
  105. :ps
  106. caps
  107. if errorlevel 0 goto floor
  108. goto webedone
  109.  
  110. :fb
  111. cafb
  112. if errorlevel 0 goto floor
  113. goto webedone
  114.  
  115. :hl
  116. cahl
  117. if errorlevel 0 goto floor
  118. goto webedone
  119.  
  120. :ls
  121. cals
  122. if errorlevel 0 goto floor
  123. goto webedone
  124.  
  125. :se
  126. case
  127. if errorlevel 0 goto floor
  128. goto webedone
  129.  
  130. :fj
  131. cafj
  132. if errorlevel 0 goto floor
  133. goto webedone
  134.  
  135. :og
  136. caog
  137. if errorlevel 0 goto floor
  138. goto webedone
  139.  
  140. :gr
  141. cagr
  142. if errorlevel 0 goto floor
  143. goto webedone
  144.  
  145. :ho
  146. caho
  147. if errorlevel 0 goto floor
  148. goto webedone
  149.  
  150. :sh
  151. cash
  152. if errorlevel 0 goto floor
  153. goto webedone
  154.  
  155. :gs
  156. cags
  157. if errorlevel 0 goto floor
  158. goto webedone
  159.  
  160. :to
  161. cato
  162. if errorlevel 0 goto floor
  163. goto webedone
  164.  
  165. :cr
  166. cacr
  167. if errorlevel 0 goto floor
  168. goto webedone
  169.  
  170. :cs
  171. cacs
  172. if errorlevel 0 goto floor
  173. goto webedone
  174.  
  175. :pg
  176. capg
  177. if errorlevel 0 goto floor
  178. goto webedone
  179.  
  180. :rd
  181. card
  182. if errorlevel 0 goto floor
  183. goto webedone
  184.  
  185. :webedone
  186. co.exe 1
  187.  
  188.