Advertisement
shubshub

Presidents And Asshole's

Mar 19th, 2013
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 49.55 KB | None | 0 0
  1. @echo off
  2. title Presidents And Asshole's - Batch Edition
  3. :startstuff
  4. IF EXIST setdir.bat CALL setdir.bat
  5. set CD=%DIRECTORYSET%
  6. IF EXIST %CD% goto skipmake
  7. mkdir %CD%
  8. :skipmake
  9. cd %CD%
  10. IF EXIST "playercheck.bat" copy "playercheck.bat" ""%CD%\playercheck.bat""
  11. :menu
  12. set menuoption=none
  13. CLS
  14. ECHO Presidents And Asshole's Batch Edition
  15. ECHO.
  16. ECHO 1. Play Game (Multiplayer Beta)
  17. ECHO 2. Help
  18. ECHO 3. Settings
  19. ECHO 4. Exit
  20. ECHO 5. Reset
  21. ECHO.
  22. set /p menuoption=Option:
  23. IF "%menuoption%"=="1" goto playerstuff
  24. IF "%menuoption%"=="2" goto helpstuff
  25. IF "%menuoption%"=="3" goto settingstuff
  26. IF "%menuoption%"=="4" goto end
  27. IF "%menuoption%"=="5" goto startstuff
  28. goto menu
  29. :end
  30. ECHO Y| RD /S %CD%
  31. exit
  32. :settingstuff
  33. set settingoption=none
  34. CLS
  35. ECHO Settings
  36. ECHO.
  37. ECHO Type back to return to the Menu
  38. ECHO 1. Player Settings
  39. set /p settingoption=Option:
  40. IF "%settingoption%"=="1" goto setupplayer
  41. IF "%settingoption%"=="back" goto menu
  42. IF "%settingoption%"=="BACK" goto menu
  43. goto settingstuff
  44. :setupplayer
  45. IF EXIST "%CD%\playercheck.bat" CALL "%CD%\playercheck.bat"
  46. IF NOT EXIST playercheck.bat goto nosetupplay
  47. set /p playernum=Player Number:
  48. IF %playernum% GTR %playercount% ECHO There is Not Enough Playerslots Sorry!
  49. IF %playernum% GTR %playercount% pause
  50. IF %playernum% GTR %playercount% goto setupplayer
  51. ECHO set playernum=%playernum% > playersetting.bat
  52. GOTO settingstuff
  53. :nosetupplay
  54. CLS
  55. ECHO "playercheck.bat" Was not found Please run "setplayercount.bat"
  56. ECHO To set the Amount of Players
  57. pause
  58. goto settingstuff
  59. :helpstuff
  60. cls
  61. type readme.txt
  62. pause
  63. goto menu
  64. :playerstuff
  65. IF EXIST "%CD%\playercheck.bat" CALL "%CD%\playercheck.bat"
  66. IF NOT EXIST "%CD%\playercheck.bat" goto noplayercheck
  67. IF EXIST playersetting.bat CALL playersetting.bat
  68. IF EXIST playersetting.bat goto continue
  69. set /p playernum=Player Number:
  70. IF %playernum% GTR %playercount% ECHO There is Not Enough Playerslots Sorry!
  71. IF %playernum% GTR %playercount% pause
  72. IF %playernum% GTR %playercount% goto playerstuff
  73. goto continue
  74. :noplayercheck
  75. cls
  76. ECHO There is no "playercheck.bat" To Find out how many Players There are!
  77. ECHO Please run "setplayercount.bat" To set the amount of Players!
  78. pause
  79. exit
  80. :continue
  81. ECHO Please Wait... Generating hand
  82. ECHO This may take a while... Why not grab a Coffee while you wait?
  83. set PLAYERDIR=player%playernum%
  84. IF NOT EXIST "%CD%\%PLAYERDIR%" mkdir "%CD%\%PLAYERDIR%"
  85. set /A beatthisdata=0
  86. ECHO SET /A beatthisdata=0 > "%CD%\carddata.bat"
  87. SET turn=1
  88. ECHO set turn=1 > "%CD%\turn.bat"
  89. SET beatthis=NONE
  90. ECHO SET beatthis=NONE >> "%CD%\carddata.bat"
  91. SET hand1=NONE
  92. SET hand2=NONE
  93. SET hand3=NONE
  94. SET hand4=NONE
  95. SET hand5=NONE
  96. SET hand6=NONE
  97. SET hand7=NONE
  98. SET hand8=NONE
  99. SET hand9=NONE
  100. set /a handnum=0
  101. :handsetup
  102. set cardsallowed=9
  103. set /a amountofcardsplusone=%cardsallowed%+1
  104. set /a handnum +=1
  105. if %handnum%==%amountofcardsplusone% goto setcardvalue
  106. :choosecardnum
  107. set /a CHOOSECARD=%RANDOM% %% 52 + 1
  108. goto handsetup1
  109. :handsetup1
  110. SET CARDTAKEN=FALSE
  111. IF %CHOOSECARD%==1 SET hand%handnum%=HeartAce
  112. IF %CHOOSECARD%==2 SET hand%handnum%=HeartTwo
  113. IF %CHOOSECARD%==3 SET hand%handnum%=HeartThree
  114. IF %CHOOSECARD%==4 SET hand%handnum%=HeartFour
  115. IF %CHOOSECARD%==5 SET hand%handnum%=HeartFive
  116. IF %CHOOSECARD%==6 SET hand%handnum%=HeartSix
  117. IF %CHOOSECARD%==7 SET hand%handnum%=HeartSeven
  118. IF %CHOOSECARD%==8 SET hand%handnum%=HeartEight
  119. IF %CHOOSECARD%==9 SET hand%handnum%=HeartNine
  120. IF %CHOOSECARD%==10 SET hand%handnum%=HeartTen
  121. IF %CHOOSECARD%==11 SET hand%handnum%=HeartJack
  122. IF %CHOOSECARD%==12 SET hand%handnum%=HeartQueen
  123. IF %CHOOSECARD%==13 SET hand%handnum%=HeartKing
  124. IF %CHOOSECARD%==14 SET hand%handnum%=DiamondAce
  125. IF %CHOOSECARD%==15 SET hand%handnum%=DiamondTwo
  126. IF %CHOOSECARD%==16 SET hand%handnum%=DiamondThree
  127. IF %CHOOSECARD%==17 SET hand%handnum%=DiamondFour
  128. IF %CHOOSECARD%==18 SET hand%handnum%=DiamondFive
  129. IF %CHOOSECARD%==19 SET hand%handnum%=DiamondSix
  130. IF %CHOOSECARD%==20 SET hand%handnum%=DiamondSeven
  131. IF %CHOOSECARD%==21 SET hand%handnum%=DiamondEight
  132. IF %CHOOSECARD%==22 SET hand%handnum%=DiamondNine
  133. IF %CHOOSECARD%==23 SET hand%handnum%=DiamondTen
  134. IF %CHOOSECARD%==24 SET hand%handnum%=DiamondJack
  135. IF %CHOOSECARD%==25 SET hand%handnum%=DiamondQueen
  136. IF %CHOOSECARD%==26 SET hand%handnum%=DiamondKing
  137. IF %CHOOSECARD%==27 SET hand%handnum%=ClubsAce
  138. IF %CHOOSECARD%==28 SET hand%handnum%=ClubsTwo
  139. IF %CHOOSECARD%==29 SET hand%handnum%=ClubsThree
  140. IF %CHOOSECARD%==30 SET hand%handnum%=ClubsFour
  141. IF %CHOOSECARD%==31 SET hand%handnum%=ClubsFive
  142. IF %CHOOSECARD%==32 SET hand%handnum%=ClubsSix
  143. IF %CHOOSECARD%==33 SET hand%handnum%=ClubsSeven
  144. IF %CHOOSECARD%==34 SET hand%handnum%=ClubsEight
  145. IF %CHOOSECARD%==35 SET hand%handnum%=ClubsNine
  146. IF %CHOOSECARD%==36 SET hand%handnum%=ClubsTen
  147. IF %CHOOSECARD%==37 SET hand%handnum%=ClubsJack
  148. IF %CHOOSECARD%==38 SET hand%handnum%=ClubsQueen
  149. IF %CHOOSECARD%==39 SET hand%handnum%=ClubsKing
  150. IF %CHOOSECARD%==40 SET hand%handnum%=SpadesAce
  151. IF %CHOOSECARD%==41 SET hand%handnum%=SpadesTwo
  152. IF %CHOOSECARD%==42 SET hand%handnum%=SpadesThree
  153. IF %CHOOSECARD%==43 SET hand%handnum%=SpadesFour
  154. IF %CHOOSECARD%==44 SET hand%handnum%=SpadesFive
  155. IF %CHOOSECARD%==45 SET hand%handnum%=SpadesSix
  156. IF %CHOOSECARD%==46 SET hand%handnum%=SpadesSeven
  157. IF %CHOOSECARD%==47 SET hand%handnum%=SpadesEight
  158. IF %CHOOSECARD%==48 SET hand%handnum%=SpadesNine
  159. IF %CHOOSECARD%==49 SET hand%handnum%=SpadesTen
  160. IF %CHOOSECARD%==50 SET hand%handnum%=SpadesJack
  161. IF %CHOOSECARD%==51 SET hand%handnum%=SpadesQueen
  162. IF %CHOOSECARD%==52 SET hand%handnum%=SpadesKing
  163. goto handsetup
  164. IF %CARDTAKEN%==TRUE GOTO choosecardnum
  165. :setcardvalue
  166. IF %hand1%==HeartAce SET /A cardslot1=14
  167. IF %hand1%==HeartTwo SET /A cardslot1=15
  168. IF %hand1%==HeartThree SET /A cardslot1=3
  169. IF %hand1%==HeartFour SET /A cardslot1=4
  170. IF %hand1%==HeartFive SET /A cardslot1=5
  171. IF %hand1%==HeartSix SET /A cardslot1=6
  172. IF %hand1%==HeartSeven SET /A cardslot1=7
  173. IF %hand1%==HeartEight SET /A cardslot1=8
  174. IF %hand1%==HeartNine SET /A cardslot1=9
  175. IF %hand1%==HeartTen SET /A cardslot1=10
  176. IF %hand1%==HeartJack SET /A cardslot1=11
  177. IF %hand1%==HeartQueen SET /A cardslot1=12
  178. IF %hand1%==HeartKing SET /A cardslot1=13
  179. IF %hand1%==DiamondAce SET /A cardslot1=14
  180. IF %hand1%==DiamondTwo SET /A cardslot1=15
  181. IF %hand1%==DiamondThree SET /A cardslot1=3
  182. IF %hand1%==DiamondFour SET /A cardslot1=4
  183. IF %hand1%==DiamondFive SET /A cardslot1=5
  184. IF %hand1%==DiamondSix SET /A cardslot1=6
  185. IF %hand1%==DiamondSeven SET /A cardslot1=7
  186. IF %hand1%==DiamondEight SET /A cardslot1=8
  187. IF %hand1%==DiamondNine SET /A cardslot1=9
  188. IF %hand1%==DiamondTen SET /A cardslot1=10
  189. IF %hand1%==DiamondJack SET /A cardslot1=11
  190. IF %hand1%==DiamondQueen SET /A cardslot1=12
  191. IF %hand1%==DiamondKing SET /A cardslot1=13
  192. IF %hand1%==ClubsAce SET /A cardslot1=14
  193. IF %hand1%==ClubsTwo SET /A cardslot1=15
  194. IF %hand1%==ClubsThree SET /A cardslot1=3
  195. IF %hand1%==ClubsFour SET /A cardslot1=4
  196. IF %hand1%==ClubsFive SET /A cardslot1=5
  197. IF %hand1%==ClubsSix SET /A cardslot1=6
  198. IF %hand1%==ClubsSeven SET /A cardslot1=7
  199. IF %hand1%==ClubsEight SET /A cardslot1=8
  200. IF %hand1%==ClubsNine SET /A cardslot1=9
  201. IF %hand1%==ClubsTen SET /A cardslot1=10
  202. IF %hand1%==ClubsJack SET /A cardslot1=11
  203. IF %hand1%==ClubsQueen SET /A cardslot1=12
  204. IF %hand1%==ClubsKing SET /A cardslot1=13
  205. IF %hand1%==SpadesAce SET /A cardslot1=14
  206. IF %hand1%==SpadesTwo SET /A cardslot1=15
  207. IF %hand1%==SpadeThree SET /A cardslot1=3
  208. IF %hand1%==SpadesFour SET /A cardslot1=4
  209. IF %hand1%==SpadesFive SET /A cardslot1=5
  210. IF %hand1%==SpadesSix SET /A cardslot1=6
  211. IF %hand1%==SpadesSeven SET /A cardslot1=7
  212. IF %hand1%==SpadesEight SET /A cardslot1=8
  213. IF %hand1%==SpadesNine SET /A cardslot1=9
  214. IF %hand1%==SpadesTen SET /A cardslot1=10
  215. IF %hand1%==SpadesJack SET /A cardslot1=11
  216. IF %hand1%==SpadesQueen SET /A cardslot1=12
  217. IF %hand1%==SpadesKing SET /A cardslot1=13
  218. IF %hand2%==HeartAce SET /A cardslot2=14
  219. IF %hand2%==HeartTwo SET /A cardslot2=15
  220. IF %hand2%==HeartThree SET /A cardslot2=3
  221. IF %hand2%==HeartFour SET /A cardslot2=4
  222. IF %hand2%==HeartFive SET /A cardslot2=5
  223. IF %hand2%==HeartSix SET /A cardslot2=6
  224. IF %hand2%==HeartSeven SET /A cardslot2=7
  225. IF %hand2%==HeartEight SET /A cardslot2=8
  226. IF %hand2%==HeartNine SET /A cardslot2=9
  227. IF %hand2%==HeartTen SET /A cardslot2=10
  228. IF %hand2%==HeartJack SET /A cardslot2=11
  229. IF %hand2%==HeartQueen SET /A cardslot2=12
  230. IF %hand2%==HeartKing SET /A cardslot2=13
  231. IF %hand2%==DiamondAce SET /A cardslot2=14
  232. IF %hand2%==DiamondTwo SET /A cardslot2=15
  233. IF %hand2%==DiamondThree SET /A cardslot2=3
  234. IF %hand2%==DiamondFour SET /A cardslot2=4
  235. IF %hand2%==DiamondFive SET /A cardslot2=5
  236. IF %hand2%==DiamondSix SET /A cardslot2=6
  237. IF %hand2%==DiamondSeven SET /A cardslot2=7
  238. IF %hand2%==DiamondEight SET /A cardslot2=8
  239. IF %hand2%==DiamondNine SET /A cardslot2=9
  240. IF %hand2%==DiamondTen SET /A cardslot2=10
  241. IF %hand2%==DiamondJack SET /A cardslot2=11
  242. IF %hand2%==DiamondQueen SET /A cardslot2=12
  243. IF %hand2%==DiamondKing SET /A cardslot2=13
  244. IF %hand2%==ClubsAce SET /A cardslot2=14
  245. IF %hand2%==ClubsTwo SET /A cardslot2=15
  246. IF %hand2%==ClubsThree SET /A cardslot2=3
  247. IF %hand2%==ClubsFour SET /A cardslot2=4
  248. IF %hand2%==ClubsFive SET /A cardslot2=5
  249. IF %hand2%==ClubsSix SET /A cardslot2=6
  250. IF %hand2%==ClubsSeven SET /A cardslot2=7
  251. IF %hand2%==ClubsEight SET /A cardslot2=8
  252. IF %hand2%==ClubsNine SET /A cardslot2=9
  253. IF %hand2%==ClubsTen SET /A cardslot2=10
  254. IF %hand2%==ClubsJack SET /A cardslot2=11
  255. IF %hand2%==ClubsQueen SET /A cardslot2=12
  256. IF %hand2%==ClubsKing SET /A cardslot2=13
  257. IF %hand2%==SpadesAce SET /A cardslot2=14
  258. IF %hand2%==SpadesTwo SET /A cardslot2=15
  259. IF %hand2%==SpadeThree SET /A cardslot2=3
  260. IF %hand2%==SpadesFour SET /A cardslot2=4
  261. IF %hand2%==SpadesFive SET /A cardslot2=5
  262. IF %hand2%==SpadesSix SET /A cardslot2=6
  263. IF %hand2%==SpadesSeven SET /A cardslot2=7
  264. IF %hand2%==SpadesEight SET /A cardslot2=8
  265. IF %hand2%==SpadesNine SET /A cardslot2=9
  266. IF %hand2%==SpadesTen SET /A cardslot2=10
  267. IF %hand2%==SpadesJack SET /A cardslot2=11
  268. IF %hand2%==SpadesQueen SET /A cardslot2=12
  269. IF %hand2%==SpadesKing SET /A cardslot2=13
  270. IF %hand3%==HeartAce SET /A cardslot3=14
  271. IF %hand3%==HeartTwo SET /A cardslot3=15
  272. IF %hand3%==HeartThree SET /A cardslot3=3
  273. IF %hand3%==HeartFour SET /A cardslot3=4
  274. IF %hand3%==HeartFive SET /A cardslot3=5
  275. IF %hand3%==HeartSix SET /A cardslot3=6
  276. IF %hand3%==HeartSeven SET /A cardslot3=7
  277. IF %hand3%==HeartEight SET /A cardslot3=8
  278. IF %hand3%==HeartNine SET /A cardslot3=9
  279. IF %hand3%==HeartTen SET /A cardslot3=10
  280. IF %hand3%==HeartJack SET /A cardslot3=11
  281. IF %hand3%==HeartQueen SET /A cardslot3=12
  282. IF %hand3%==HeartKing SET /A cardslot3=13
  283. IF %hand3%==DiamondAce SET /A cardslot3=14
  284. IF %hand3%==DiamondTwo SET /A cardslot3=15
  285. IF %hand3%==DiamondThree SET /A cardslot3=3
  286. IF %hand3%==DiamondFour SET /A cardslot3=4
  287. IF %hand3%==DiamondFive SET /A cardslot3=5
  288. IF %hand3%==DiamondSix SET /A cardslot3=6
  289. IF %hand3%==DiamondSeven SET /A cardslot3=7
  290. IF %hand3%==DiamondEight SET /A cardslot3=8
  291. IF %hand3%==DiamondNine SET /A cardslot3=9
  292. IF %hand3%==DiamondTen SET /A cardslot3=10
  293. IF %hand3%==DiamondJack SET /A cardslot3=11
  294. IF %hand3%==DiamondQueen SET /A cardslot3=12
  295. IF %hand3%==DiamondKing SET /A cardslot3=13
  296. IF %hand3%==ClubsAce SET /A cardslot3=14
  297. IF %hand3%==ClubsTwo SET /A cardslot3=15
  298. IF %hand3%==ClubsThree SET /A cardslot3=3
  299. IF %hand3%==ClubsFour SET /A cardslot3=4
  300. IF %hand3%==ClubsFive SET /A cardslot3=5
  301. IF %hand3%==ClubsSix SET /A cardslot3=6
  302. IF %hand3%==ClubsSeven SET /A cardslot3=7
  303. IF %hand3%==ClubsEight SET /A cardslot3=8
  304. IF %hand3%==ClubsNine SET /A cardslot3=9
  305. IF %hand3%==ClubsTen SET /A cardslot3=10
  306. IF %hand3%==ClubsJack SET /A cardslot3=11
  307. IF %hand3%==ClubsQueen SET /A cardslot3=12
  308. IF %hand3%==ClubsKing SET /A cardslot3=13
  309. IF %hand3%==SpadesAce SET /A cardslot3=14
  310. IF %hand3%==SpadesTwo SET /A cardslot3=15
  311. IF %hand3%==SpadeThree SET /A cardslot3=3
  312. IF %hand3%==SpadesFour SET /A cardslot3=4
  313. IF %hand3%==SpadesFive SET /A cardslot3=5
  314. IF %hand3%==SpadesSix SET /A cardslot3=6
  315. IF %hand3%==SpadesSeven SET /A cardslot3=7
  316. IF %hand3%==SpadesEight SET /A cardslot3=8
  317. IF %hand3%==SpadesNine SET /A cardslot3=9
  318. IF %hand3%==SpadesTen SET /A cardslot3=10
  319. IF %hand3%==SpadesJack SET /A cardslot3=11
  320. IF %hand3%==SpadesQueen SET /A cardslot3=12
  321. IF %hand3%==SpadesKing SET /A cardslot3=13
  322. IF %hand4%==HeartAce SET /A cardslot4=14
  323. IF %hand4%==HeartTwo SET /A cardslot4=15
  324. IF %hand4%==HeartThree SET /A cardslot4=3
  325. IF %hand4%==HeartFour SET /A cardslot4=4
  326. IF %hand4%==HeartFive SET /A cardslot4=5
  327. IF %hand4%==HeartSix SET /A cardslot4=6
  328. IF %hand4%==HeartSeven SET /A cardslot4=7
  329. IF %hand4%==HeartEight SET /A cardslot4=8
  330. IF %hand4%==HeartNine SET /A cardslot4=9
  331. IF %hand4%==HeartTen SET /A cardslot4=10
  332. IF %hand4%==HeartJack SET /A cardslot4=11
  333. IF %hand4%==HeartQueen SET /A cardslot4=12
  334. IF %hand4%==HeartKing SET /A cardslot4=13
  335. IF %hand4%==DiamondAce SET /A cardslot4=14
  336. IF %hand4%==DiamondTwo SET /A cardslot4=15
  337. IF %hand4%==DiamondThree SET /A cardslot4=3
  338. IF %hand4%==DiamondFour SET /A cardslot4=4
  339. IF %hand4%==DiamondFive SET /A cardslot4=5
  340. IF %hand4%==DiamondSix SET /A cardslot4=6
  341. IF %hand4%==DiamondSeven SET /A cardslot4=7
  342. IF %hand4%==DiamondEight SET /A cardslot4=8
  343. IF %hand4%==DiamondNine SET /A cardslot4=9
  344. IF %hand4%==DiamondTen SET /A cardslot4=10
  345. IF %hand4%==DiamondJack SET /A cardslot4=11
  346. IF %hand4%==DiamondQueen SET /A cardslot4=12
  347. IF %hand4%==DiamondKing SET /A cardslot4=13
  348. IF %hand4%==ClubsAce SET /A cardslot4=14
  349. IF %hand4%==ClubsTwo SET /A cardslot4=15
  350. IF %hand4%==ClubsThree SET /A cardslot4=3
  351. IF %hand4%==ClubsFour SET /A cardslot4=4
  352. IF %hand4%==ClubsFive SET /A cardslot4=5
  353. IF %hand4%==ClubsSix SET /A cardslot4=6
  354. IF %hand4%==ClubsSeven SET /A cardslot4=7
  355. IF %hand4%==ClubsEight SET /A cardslot4=8
  356. IF %hand4%==ClubsNine SET /A cardslot4=9
  357. IF %hand4%==ClubsTen SET /A cardslot4=10
  358. IF %hand4%==ClubsJack SET /A cardslot4=11
  359. IF %hand4%==ClubsQueen SET /A cardslot4=12
  360. IF %hand4%==ClubsKing SET /A cardslot4=13
  361. IF %hand4%==SpadesAce SET /A cardslot4=14
  362. IF %hand4%==SpadesTwo SET /A cardslot4=15
  363. IF %hand4%==SpadeThree SET /A cardslot4=3
  364. IF %hand4%==SpadesFour SET /A cardslot4=4
  365. IF %hand4%==SpadesFive SET /A cardslot4=5
  366. IF %hand4%==SpadesSix SET /A cardslot4=6
  367. IF %hand4%==SpadesSeven SET /A cardslot4=7
  368. IF %hand4%==SpadesEight SET /A cardslot4=8
  369. IF %hand4%==SpadesNine SET /A cardslot4=9
  370. IF %hand4%==SpadesTen SET /A cardslot4=10
  371. IF %hand4%==SpadesJack SET /A cardslot4=11
  372. IF %hand4%==SpadesQueen SET /A cardslot4=12
  373. IF %hand4%==SpadesKing SET /A cardslot4=13
  374. IF %hand5%==HeartAce SET /A cardslot5=14
  375. IF %hand5%==HeartTwo SET /A cardslot5=15
  376. IF %hand5%==HeartThree SET /A cardslot5=3
  377. IF %hand5%==HeartFour SET /A cardslot5=4
  378. IF %hand5%==HeartFive SET /A cardslot5=5
  379. IF %hand5%==HeartSix SET /A cardslot5=6
  380. IF %hand5%==HeartSeven SET /A cardslot5=7
  381. IF %hand5%==HeartEight SET /A cardslot5=8
  382. IF %hand5%==HeartNine SET /A cardslot5=9
  383. IF %hand5%==HeartTen SET /A cardslot5=10
  384. IF %hand5%==HeartJack SET /A cardslot5=11
  385. IF %hand5%==HeartQueen SET /A cardslot5=12
  386. IF %hand5%==HeartKing SET /A cardslot5=13
  387. IF %hand5%==DiamondAce SET /A cardslot5=14
  388. IF %hand5%==DiamondTwo SET /A cardslot5=15
  389. IF %hand5%==DiamondThree SET /A cardslot5=3
  390. IF %hand5%==DiamondFour SET /A cardslot5=4
  391. IF %hand5%==DiamondFive SET /A cardslot5=5
  392. IF %hand5%==DiamondSix SET /A cardslot5=6
  393. IF %hand5%==DiamondSeven SET /A cardslot5=7
  394. IF %hand5%==DiamondEight SET /A cardslot5=8
  395. IF %hand5%==DiamondNine SET /A cardslot5=9
  396. IF %hand5%==DiamondTen SET /A cardslot5=10
  397. IF %hand5%==DiamondJack SET /A cardslot5=11
  398. IF %hand5%==DiamondQueen SET /A cardslot5=12
  399. IF %hand5%==DiamondKing SET /A cardslot5=13
  400. IF %hand5%==ClubsAce SET /A cardslot5=14
  401. IF %hand5%==ClubsTwo SET /A cardslot5=15
  402. IF %hand5%==ClubsThree SET /A cardslot5=3
  403. IF %hand5%==ClubsFour SET /A cardslot5=4
  404. IF %hand5%==ClubsFive SET /A cardslot5=5
  405. IF %hand5%==ClubsSix SET /A cardslot5=6
  406. IF %hand5%==ClubsSeven SET /A cardslot5=7
  407. IF %hand5%==ClubsEight SET /A cardslot5=8
  408. IF %hand5%==ClubsNine SET /A cardslot5=9
  409. IF %hand5%==ClubsTen SET /A cardslot5=10
  410. IF %hand5%==ClubsJack SET /A cardslot5=11
  411. IF %hand5%==ClubsQueen SET /A cardslot5=12
  412. IF %hand5%==ClubsKing SET /A cardslot5=13
  413. IF %hand5%==SpadesAce SET /A cardslot5=14
  414. IF %hand5%==SpadesTwo SET /A cardslot5=15
  415. IF %hand5%==SpadeThree SET /A cardslot5=3
  416. IF %hand5%==SpadesFour SET /A cardslot5=4
  417. IF %hand5%==SpadesFive SET /A cardslot5=5
  418. IF %hand5%==SpadesSix SET /A cardslot5=6
  419. IF %hand5%==SpadesSeven SET /A cardslot5=7
  420. IF %hand5%==SpadesEight SET /A cardslot5=8
  421. IF %hand5%==SpadesNine SET /A cardslot5=9
  422. IF %hand5%==SpadesTen SET /A cardslot5=10
  423. IF %hand5%==SpadesJack SET /A cardslot5=11
  424. IF %hand5%==SpadesQueen SET /A cardslot5=12
  425. IF %hand5%==SpadesKing SET /A cardslot5=13
  426. IF %hand6%==HeartAce SET /A cardslot6=14
  427. IF %hand6%==HeartTwo SET /A cardslot6=15
  428. IF %hand6%==HeartThree SET /A cardslot6=3
  429. IF %hand6%==HeartFour SET /A cardslot6=4
  430. IF %hand6%==HeartFive SET /A cardslot6=5
  431. IF %hand6%==HeartSix SET /A cardslot6=6
  432. IF %hand6%==HeartSeven SET /A cardslot6=7
  433. IF %hand6%==HeartEight SET /A cardslot6=8
  434. IF %hand6%==HeartNine SET /A cardslot6=9
  435. IF %hand6%==HeartTen SET /A cardslot6=10
  436. IF %hand6%==HeartJack SET /A cardslot6=11
  437. IF %hand6%==HeartQueen SET /A cardslot6=12
  438. IF %hand6%==HeartKing SET /A cardslot6=13
  439. IF %hand6%==DiamondAce SET /A cardslot6=14
  440. IF %hand6%==DiamondTwo SET /A cardslot6=15
  441. IF %hand6%==DiamondThree SET /A cardslot6=3
  442. IF %hand6%==DiamondFour SET /A cardslot6=4
  443. IF %hand6%==DiamondFive SET /A cardslot6=5
  444. IF %hand6%==DiamondSix SET /A cardslot6=6
  445. IF %hand6%==DiamondSeven SET /A cardslot6=7
  446. IF %hand6%==DiamondEight SET /A cardslot6=8
  447. IF %hand6%==DiamondNine SET /A cardslot6=9
  448. IF %hand6%==DiamondTen SET /A cardslot6=10
  449. IF %hand6%==DiamondJack SET /A cardslot6=11
  450. IF %hand6%==DiamondQueen SET /A cardslot6=12
  451. IF %hand6%==DiamondKing SET /A cardslot6=13
  452. IF %hand6%==ClubsAce SET /A cardslot6=14
  453. IF %hand6%==ClubsTwo SET /A cardslot6=15
  454. IF %hand6%==ClubsThree SET /A cardslot6=3
  455. IF %hand6%==ClubsFour SET /A cardslot6=4
  456. IF %hand6%==ClubsFive SET /A cardslot6=5
  457. IF %hand6%==ClubsSix SET /A cardslot6=6
  458. IF %hand6%==ClubsSeven SET /A cardslot6=7
  459. IF %hand6%==ClubsEight SET /A cardslot6=8
  460. IF %hand6%==ClubsNine SET /A cardslot6=9
  461. IF %hand6%==ClubsTen SET /A cardslot6=10
  462. IF %hand6%==ClubsJack SET /A cardslot6=11
  463. IF %hand6%==ClubsQueen SET /A cardslot6=12
  464. IF %hand6%==ClubsKing SET /A cardslot6=13
  465. IF %hand6%==SpadesAce SET /A cardslot6=14
  466. IF %hand6%==SpadesTwo SET /A cardslot6=15
  467. IF %hand6%==SpadeThree SET /A cardslot6=3
  468. IF %hand6%==SpadesFour SET /A cardslot6=4
  469. IF %hand6%==SpadesFive SET /A cardslot6=5
  470. IF %hand6%==SpadesSix SET /A cardslot6=6
  471. IF %hand6%==SpadesSeven SET /A cardslot6=7
  472. IF %hand6%==SpadesEight SET /A cardslot6=8
  473. IF %hand6%==SpadesNine SET /A cardslot6=9
  474. IF %hand6%==SpadesTen SET /A cardslot6=10
  475. IF %hand6%==SpadesJack SET /A cardslot6=11
  476. IF %hand6%==SpadesQueen SET /A cardslot6=12
  477. IF %hand6%==SpadesKing SET /A cardslot6=13
  478. IF %hand7%==HeartAce SET /A cardslot7=14
  479. IF %hand7%==HeartTwo SET /A cardslot7=15
  480. IF %hand7%==HeartThree SET /A cardslot7=3
  481. IF %hand7%==HeartFour SET /A cardslot7=4
  482. IF %hand7%==HeartFive SET /A cardslot7=5
  483. IF %hand7%==HeartSix SET /A cardslot7=6
  484. IF %hand7%==HeartSeven SET /A cardslot7=7
  485. IF %hand7%==HeartEight SET /A cardslot7=8
  486. IF %hand7%==HeartNine SET /A cardslot7=9
  487. IF %hand7%==HeartTen SET /A cardslot7=10
  488. IF %hand7%==HeartJack SET /A cardslot7=11
  489. IF %hand7%==HeartQueen SET /A cardslot7=12
  490. IF %hand7%==HeartKing SET /A cardslot7=13
  491. IF %hand7%==DiamondAce SET /A cardslot7=14
  492. IF %hand7%==DiamondTwo SET /A cardslot7=15
  493. IF %hand7%==DiamondThree SET /A cardslot7=3
  494. IF %hand7%==DiamondFour SET /A cardslot7=4
  495. IF %hand7%==DiamondFive SET /A cardslot7=5
  496. IF %hand7%==DiamondSix SET /A cardslot7=6
  497. IF %hand7%==DiamondSeven SET /A cardslot7=7
  498. IF %hand7%==DiamondEight SET /A cardslot7=8
  499. IF %hand7%==DiamondNine SET /A cardslot7=9
  500. IF %hand7%==DiamondTen SET /A cardslot7=10
  501. IF %hand7%==DiamondJack SET /A cardslot7=11
  502. IF %hand7%==DiamondQueen SET /A cardslot7=12
  503. IF %hand7%==DiamondKing SET /A cardslot7=13
  504. IF %hand7%==ClubsAce SET /A cardslot7=14
  505. IF %hand7%==ClubsTwo SET /A cardslot7=15
  506. IF %hand7%==ClubsThree SET /A cardslot7=3
  507. IF %hand7%==ClubsFour SET /A cardslot7=4
  508. IF %hand7%==ClubsFive SET /A cardslot7=5
  509. IF %hand7%==ClubsSix SET /A cardslot7=6
  510. IF %hand7%==ClubsSeven SET /A cardslot7=7
  511. IF %hand7%==ClubsEight SET /A cardslot7=8
  512. IF %hand7%==ClubsNine SET /A cardslot7=9
  513. IF %hand7%==ClubsTen SET /A cardslot7=10
  514. IF %hand7%==ClubsJack SET /A cardslot7=11
  515. IF %hand7%==ClubsQueen SET /A cardslot7=12
  516. IF %hand7%==ClubsKing SET /A cardslot7=13
  517. IF %hand7%==SpadesAce SET /A cardslot7=14
  518. IF %hand7%==SpadesTwo SET /A cardslot7=15
  519. IF %hand7%==SpadeThree SET /A cardslot7=3
  520. IF %hand7%==SpadesFour SET /A cardslot7=4
  521. IF %hand7%==SpadesFive SET /A cardslot7=5
  522. IF %hand7%==SpadesSix SET /A cardslot7=6
  523. IF %hand7%==SpadesSeven SET /A cardslot7=7
  524. IF %hand7%==SpadesEight SET /A cardslot7=8
  525. IF %hand7%==SpadesNine SET /A cardslot7=9
  526. IF %hand7%==SpadesTen SET /A cardslot7=10
  527. IF %hand7%==SpadesJack SET /A cardslot7=11
  528. IF %hand7%==SpadesQueen SET /A cardslot7=12
  529. IF %hand7%==SpadesKing SET /A cardslot7=13
  530. IF %hand8%==HeartAce SET /A cardslot8=14
  531. IF %hand8%==HeartTwo SET /A cardslot8=15
  532. IF %hand8%==HeartThree SET /A cardslot8=3
  533. IF %hand8%==HeartFour SET /A cardslot8=4
  534. IF %hand8%==HeartFive SET /A cardslot8=5
  535. IF %hand8%==HeartSix SET /A cardslot8=6
  536. IF %hand8%==HeartSeven SET /A cardslot8=7
  537. IF %hand8%==HeartEight SET /A cardslot8=8
  538. IF %hand8%==HeartNine SET /A cardslot8=9
  539. IF %hand8%==HeartTen SET /A cardslot8=10
  540. IF %hand8%==HeartJack SET /A cardslot8=11
  541. IF %hand8%==HeartQueen SET /A cardslot8=12
  542. IF %hand8%==HeartKing SET /A cardslot8=13
  543. IF %hand8%==DiamondAce SET /A cardslot8=14
  544. IF %hand8%==DiamondTwo SET /A cardslot8=15
  545. IF %hand8%==DiamondThree SET /A cardslot8=3
  546. IF %hand8%==DiamondFour SET /A cardslot8=4
  547. IF %hand8%==DiamondFive SET /A cardslot8=5
  548. IF %hand8%==DiamondSix SET /A cardslot8=6
  549. IF %hand8%==DiamondSeven SET /A cardslot8=7
  550. IF %hand8%==DiamondEight SET /A cardslot8=8
  551. IF %hand8%==DiamondNine SET /A cardslot8=9
  552. IF %hand8%==DiamondTen SET /A cardslot8=10
  553. IF %hand8%==DiamondJack SET /A cardslot8=11
  554. IF %hand8%==DiamondQueen SET /A cardslot8=12
  555. IF %hand8%==DiamondKing SET /A cardslot8=13
  556. IF %hand8%==ClubsAce SET /A cardslot8=14
  557. IF %hand8%==ClubsTwo SET /A cardslot8=15
  558. IF %hand8%==ClubsThree SET /A cardslot8=3
  559. IF %hand8%==ClubsFour SET /A cardslot8=4
  560. IF %hand8%==ClubsFive SET /A cardslot8=5
  561. IF %hand8%==ClubsSix SET /A cardslot8=6
  562. IF %hand8%==ClubsSeven SET /A cardslot8=7
  563. IF %hand8%==ClubsEight SET /A cardslot8=8
  564. IF %hand8%==ClubsNine SET /A cardslot8=9
  565. IF %hand8%==ClubsTen SET /A cardslot8=10
  566. IF %hand8%==ClubsJack SET /A cardslot8=11
  567. IF %hand8%==ClubsQueen SET /A cardslot8=12
  568. IF %hand8%==ClubsKing SET /A cardslot8=13
  569. IF %hand8%==SpadesAce SET /A cardslot8=14
  570. IF %hand8%==SpadesTwo SET /A cardslot8=15
  571. IF %hand8%==SpadeThree SET /A cardslot8=3
  572. IF %hand8%==SpadesFour SET /A cardslot8=4
  573. IF %hand8%==SpadesFive SET /A cardslot8=5
  574. IF %hand8%==SpadesSix SET /A cardslot8=6
  575. IF %hand8%==SpadesSeven SET /A cardslot8=7
  576. IF %hand8%==SpadesEight SET /A cardslot8=8
  577. IF %hand8%==SpadesNine SET /A cardslot8=9
  578. IF %hand8%==SpadesTen SET /A cardslot8=10
  579. IF %hand8%==SpadesJack SET /A cardslot8=11
  580. IF %hand8%==SpadesQueen SET /A cardslot8=12
  581. IF %hand8%==SpadesKing SET /A cardslot8=13
  582. IF %hand9%==HeartAce SET /A cardslot9=14
  583. IF %hand9%==HeartTwo SET /A cardslot9=15
  584. IF %hand9%==HeartThree SET /A cardslot9=3
  585. IF %hand9%==HeartFour SET /A cardslot9=4
  586. IF %hand9%==HeartFive SET /A cardslot9=5
  587. IF %hand9%==HeartSix SET /A cardslot9=6
  588. IF %hand9%==HeartSeven SET /A cardslot9=7
  589. IF %hand9%==HeartEight SET /A cardslot9=8
  590. IF %hand9%==HeartNine SET /A cardslot9=9
  591. IF %hand9%==HeartTen SET /A cardslot9=10
  592. IF %hand9%==HeartJack SET /A cardslot9=11
  593. IF %hand9%==HeartQueen SET /A cardslot9=12
  594. IF %hand9%==HeartKing SET /A cardslot9=13
  595. IF %hand9%==DiamondAce SET /A cardslot9=14
  596. IF %hand9%==DiamondTwo SET /A cardslot9=15
  597. IF %hand9%==DiamondThree SET /A cardslot9=3
  598. IF %hand9%==DiamondFour SET /A cardslot9=4
  599. IF %hand9%==DiamondFive SET /A cardslot9=5
  600. IF %hand9%==DiamondSix SET /A cardslot9=6
  601. IF %hand9%==DiamondSeven SET /A cardslot9=7
  602. IF %hand9%==DiamondEight SET /A cardslot9=8
  603. IF %hand9%==DiamondNine SET /A cardslot9=9
  604. IF %hand9%==DiamondTen SET /A cardslot9=10
  605. IF %hand9%==DiamondJack SET /A cardslot9=11
  606. IF %hand9%==DiamondQueen SET /A cardslot9=12
  607. IF %hand9%==DiamondKing SET /A cardslot9=13
  608. IF %hand9%==ClubsAce SET /A cardslot9=14
  609. IF %hand9%==ClubsTwo SET /A cardslot9=15
  610. IF %hand9%==ClubsThree SET /A cardslot9=3
  611. IF %hand9%==ClubsFour SET /A cardslot9=4
  612. IF %hand9%==ClubsFive SET /A cardslot9=5
  613. IF %hand9%==ClubsSix SET /A cardslot9=6
  614. IF %hand9%==ClubsSeven SET /A cardslot9=7
  615. IF %hand9%==ClubsEight SET /A cardslot9=8
  616. IF %hand9%==ClubsNine SET /A cardslot9=9
  617. IF %hand9%==ClubsTen SET /A cardslot9=10
  618. IF %hand9%==ClubsJack SET /A cardslot9=11
  619. IF %hand9%==ClubsQueen SET /A cardslot9=12
  620. IF %hand9%==ClubsKing SET /A cardslot9=13
  621. IF %hand9%==SpadesAce SET /A cardslot9=14
  622. IF %hand9%==SpadesTwo SET /A cardslot9=15
  623. IF %hand9%==SpadeThree SET /A cardslot9=3
  624. IF %hand9%==SpadesFour SET /A cardslot9=4
  625. IF %hand9%==SpadesFive SET /A cardslot9=5
  626. IF %hand9%==SpadesSix SET /A cardslot9=6
  627. IF %hand9%==SpadesSeven SET /A cardslot9=7
  628. IF %hand9%==SpadesEight SET /A cardslot9=8
  629. IF %hand9%==SpadesNine SET /A cardslot9=9
  630. IF %hand9%==SpadesTen SET /A cardslot9=10
  631. IF %hand9%==SpadesJack SET /A cardslot9=11
  632. IF %hand9%==SpadesQueen SET /A cardslot9=12
  633. IF %hand9%==SpadesKing SET /A cardslot9=13
  634. goto testhand
  635. :testhand
  636. cls
  637. set placecard=NONE
  638. CALL "%CD%\turn.bat"
  639. CALL "%CD%\carddata.bat"
  640. ECHO You Are Player %playernum%
  641. ECHO Current Turn: Player %turn%
  642. ECHO Options:
  643. ECHO DOUBLES - Place Doubles
  644. ECHO TRIPLES - Place Triples
  645. ECHO QUADS - Place Quads
  646. ECHO PASS - Pass this Round
  647. ECHO 1-9 - Place Card Corrosponding to that Card Slot Number
  648. ECHO.
  649. ECHO YOUR HAND
  650. ECHO Card 1: %hand1%
  651. ECHO Card 2: %hand2%
  652. ECHO Card 3: %hand3%
  653. ECHO Card 4: %hand4%
  654. ECHO Card 5: %hand5%
  655. ECHO Card 6: %hand6%
  656. ECHO Card 7: %hand7%
  657. ECHO Card 8: %hand8%
  658. ECHO Card 9: %hand9%
  659. ECHO.
  660. ECHO CARD TO BEAT
  661. IF %hand1%==NONE IF %hand2%==NONE IF %hand3%==NONE IF %hand4%==NONE IF %hand5%==NONE IF %hand6%==NONE IF %hand7%==NONE IF %hand8%==NONE IF %hand9%==NONE goto FINISHED
  662. ECHO %beatthis%
  663. IF "%mode%"=="DOUBLES" ECHO %beatthis2%
  664. IF "%mode%"=="TRIPLES" ECHO %beatthis2%
  665. IF "%mode%"=="TRIPLES" ECHO %beatthis3%
  666. IF "%mode%"=="QUADS" ECHO %beatthis2%
  667. IF "%mode%"=="QUADS" ECHO %beatthis3%
  668. IF "%mode%"=="QUADS" ECHO %beatthis4%
  669. set /p placethis=Card Number:
  670. CALL "%CD%\carddata.bat"
  671. CALL "%CD%\turn.bat"
  672. IF NOT %turn%==%playernum% goto notyourturn
  673. IF "%placethis%"=="DOUBLES" goto placedouble
  674. IF "%placethis%"=="TRIPLES" goto placetriple
  675. IF "%placethis%"=="QUADS" goto placequad
  676. IF "%placethis%"=="PASS" goto setpass
  677. IF "%passed%"=="TRUE" goto dontplace
  678. goto placecards
  679. pause
  680. :placecards
  681. IF "%placethis%"=="1" goto placecards1
  682. IF "%placethis%"=="2" goto placecards2
  683. IF "%placethis%"=="3" goto placecards3
  684. IF "%placethis%"=="4" goto placecards4
  685. IF "%placethis%"=="5" goto placecards5
  686. IF "%placethis%"=="6" goto placecards6
  687. IF "%placethis%"=="7" goto placecards7
  688. IF "%placethis%"=="8" goto placecards8
  689. IF "%placethis%"=="9" goto placecards9
  690. goto testhand
  691. :placecards1
  692. IF %cardslot1% GTR %beatthisdata% goto setcards1
  693. goto nope
  694. :placecards2
  695. IF %cardslot2% GTR %beatthisdata% goto setcards2
  696. goto nope
  697. :placecards3
  698. IF %cardslot3% GTR %beatthisdata% goto setcards3
  699. goto nope
  700. :placecards4
  701. IF %cardslot4% GTR %beatthisdata% goto setcards4
  702. goto nope
  703. :placecards5
  704. IF %cardslot5% GTR %beatthisdata% goto setcards5
  705. goto nope
  706. :placecards6
  707. IF %cardslot6% GTR %beatthisdata% goto setcards6
  708. goto nope
  709. :placecards7
  710. IF %cardslot7% GTR %beatthisdata% goto setcards7
  711. goto nope
  712. :placecards8
  713. IF %cardslot8% GTR %beatthisdata% goto setcards8
  714. goto nope
  715. :placecards9
  716. IF %cardslot9% GTR %beatthisdata% goto setcards9
  717. goto nope
  718. :setcards1
  719. set beatthisdata=%cardslot1%
  720. set beatthis=%hand1%
  721. ECHO SET beatthisdata=%cardslot1% > "%CD%\carddata.bat"
  722. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  723. set cardslot1=0
  724. set hand1=NONE
  725. goto changeturn
  726. :setcards2
  727. set beatthisdata=%cardslot2%
  728. set beatthis=%hand2%
  729. ECHO SET beatthisdata=%cardslot2% > "%CD%\carddata.bat"
  730. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  731. set cardslot2=0
  732. set hand2=NONE
  733. goto changeturn
  734. :setcards3
  735. set beatthisdata=%cardslot3%
  736. set beatthis=%hand3%
  737. ECHO SET beatthisdata=%cardslot3% > "%CD%\carddata.bat"
  738. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  739. set cardslot3=0
  740. set hand3=NONE
  741. goto changeturn
  742. :setcards4
  743. set beatthisdata=%cardslot4%
  744. set beatthis=%hand4%
  745. ECHO SET beatthisdata=%cardslot4% > "%CD%\carddata.bat"
  746. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  747. set cardslot4=0
  748. set hand4=NONE
  749. goto changeturn
  750. :setcards5
  751. set beatthisdata=%cardslot5%
  752. set beatthis=%hand5%
  753. ECHO SET beatthisdata=%cardslot5% > "%CD%\carddata.bat"
  754. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  755. set cardslot5=0
  756. set hand5=NONE
  757. goto changeturn
  758. :setcards6
  759. set beatthisdata=%cardslot6%
  760. set beatthis=%hand6%
  761. ECHO SET beatthisdata=%cardslot6% > "%CD%\carddata.bat"
  762. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  763. set cardslot6=0
  764. set hand6=NONE
  765. goto changeturn
  766. :setcards7
  767. set beatthisdata=%cardslot7%
  768. set beatthis=%hand7%
  769. ECHO SET beatthisdata=%cardslot7% > "%CD%\carddata.bat"
  770. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  771. set cardslot7=0
  772. set hand7=NONE
  773. goto changeturn
  774. :setcards8
  775. set beatthisdata=%cardslot8%
  776. set beatthis=%hand8%
  777. ECHO SET beatthisdata=%cardslot8% > "%CD%\carddata.bat"
  778. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  779. set cardslot8=0
  780. set hand8=NONE
  781. goto changeturn
  782. :setcards9
  783. set beatthisdata=%cardslot9%
  784. set beatthis=%hand9%
  785. ECHO SET beatthisdata=%cardslot9% > "%CD%\carddata.bat"
  786. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  787. set cardslot9=0
  788. set hand9=NONE
  789. goto changeturn
  790. :setpass
  791. SET passed=TRUE
  792. SET player%playernum%=PASS
  793. ECHO set player%playernum%=PASS > %CD%\%PLAYERDIR%\passed.bat
  794. goto changeturn
  795. :dontplace
  796. CLS
  797. IF EXIST "%CD%\%PLAYERDIR%\passed.bat"CALL "%CD%\%PLAYERDIR%\passed.bat"
  798. IF %passed%==FALSE goto placecards
  799. ECHO YOU ALREADY PASSED THIS ROUND!
  800. pause
  801. goto testhand
  802. :notyourturn
  803. CLS
  804. ECHO BRO! ITS NOT YOUR TURN!
  805. pause
  806. goto testhand
  807. :nope
  808. CLS
  809. ECHO THIS CARD IS NOT HIGHER THAN %beatthis%
  810. pause
  811. goto testhand
  812. :changeturn
  813. CALL "%CD%\turn.bat"
  814. set /a turn=%turn%+1
  815. IF %turn% GTR %playercount% SET turn=1
  816. ECHO set turn=%turn% > "%CD%\turn.bat"
  817. goto testhand
  818. :placedouble
  819. CLS
  820. ECHO Type The Cardslot to Choose
  821. SET /P DOUBLECARD1=Card Number:
  822. SET /P DOUBLECARD2=Card Number:
  823. IF %DOUBLECARD1%==back goto testhand
  824. IF %DOUBLECARD2%==back goto testhand
  825. IF %DOUBLECARD1%==%DOUBLECARD2% goto placedouble
  826. pause
  827. goto attemptdouble
  828. :placetriple
  829. CLS
  830. ECHO Type The Cardslot to Choose
  831. SET /P TRIPLECARD1=Card Number:
  832. SET /P TRIPLECARD2=Card Number:
  833. SET /P TRIPLECARD3=Card Number:
  834. IF %TRIPLECARD1%==back goto testhand
  835. IF %TRIPLECARD2%==back goto testhand
  836. IF %TRIPLECARD3%==back goto testhand
  837. IF %TRIPLECARD1%==%TRIPLECARD2% goto placetriple
  838. IF %TRIPLECARD1%==%TRIPLECARD3% goto placetriple
  839. IF %TRIPLECARD2%==%TRIPLECARD3% goto placetriple
  840. pause
  841. goto attempttriple
  842. :placequad
  843. CLS
  844. ECHO Type The Cardslot to Choose
  845. SET /P QUADCARD1=Card Number:
  846. SET /P QUADCARD2=Card Number:
  847. SET /P QUADCARD3=Card Number:
  848. SET /P QUADCARD4=Card Number:
  849. IF %QUADCARD1%==back goto testhand
  850. IF %QUADCARD2%==back goto testhand
  851. IF %QUADCARD3%==back goto testhand
  852. IF %QUADCARD4%==back goto testhand
  853. IF %QUADCARD1%==%QUADCARD2% goto placequad
  854. IF %QUADCARD1%==%QUADCARD3% goto placequad
  855. IF %QUADCARD1%==%QUADCARD4% goto placequad
  856. IF %QUADCARD2%==%QUADCARD3% goto placequad
  857. IF %QUADCARD2%==%QUADCARD4% goto placequad
  858. IF %QUADCARD3%==%QUADCARD4% goto placequad
  859. pause
  860. goto attemptquad
  861. :attemptdouble
  862. IF %DOUBLECARD1%==1 goto attemptdouble1
  863. IF %DOUBLECARD1%==2 goto attemptdouble1
  864. IF %DOUBLECARD1%==3 goto attemptdouble1
  865. IF %DOUBLECARD1%==4 goto attemptdouble1
  866. IF %DOUBLECARD1%==5 goto attemptdouble1
  867. IF %DOUBLECARD1%==6 goto attemptdouble1
  868. IF %DOUBLECARD1%==7 goto attemptdouble1
  869. IF %DOUBLECARD1%==8 goto attemptdouble1
  870. IF %DOUBLECARD1%==9 goto attemptdouble1
  871. goto placedouble
  872. :attemptdouble1
  873. IF %DOUBLECARD1%==1 SET CHECKCARD1=%hand1%
  874. IF %DOUBLECARD1%==2 SET CHECKCARD1=%hand2%
  875. IF %DOUBLECARD1%==3 SET CHECKCARD1=%hand3%
  876. IF %DOUBLECARD1%==4 SET CHECKCARD1=%hand4%
  877. IF %DOUBLECARD1%==5 SET CHECKCARD1=%hand5%
  878. IF %DOUBLECARD1%==6 SET CHECKCARD1=%hand6%
  879. IF %DOUBLECARD1%==7 SET CHECKCARD1=%hand7%
  880. IF %DOUBLECARD1%==8 SET CHECKCARD1=%hand8%
  881. IF %DOUBLECARD1%==9 SET CHECKCARD1=%hand9%
  882. IF %DOUBLECARD2%==1 SET CHECKCARD2=%hand1%
  883. IF %DOUBLECARD2%==2 SET CHECKCARD2=%hand2%
  884. IF %DOUBLECARD2%==3 SET CHECKCARD2=%hand3%
  885. IF %DOUBLECARD2%==4 SET CHECKCARD2=%hand4%
  886. IF %DOUBLECARD2%==5 SET CHECKCARD2=%hand5%
  887. IF %DOUBLECARD2%==6 SET CHECKCARD2=%hand6%
  888. IF %DOUBLECARD2%==7 SET CHECKCARD2=%hand7%
  889. IF %DOUBLECARD2%==8 SET CHECKCARD2=%hand8%
  890. IF %DOUBLECARD2%==9 SET CHECKCARD2=%hand9%
  891. GOTO attemptdouble2
  892. :attemptdouble2
  893. IF %CHECKCARD1%==NONE goto placedouble
  894. IF %CHECKCARD2%==NONE goto placedouble
  895. IF %CHECKCARD1%==%hand1% SET CHECKVALUE1=%cardslot1%
  896. IF %CHECKCARD1%==%hand2% SET CHECKVALUE1=%cardslot2%
  897. IF %CHECKCARD1%==%hand3% SET CHECKVALUE1=%cardslot3%
  898. IF %CHECKCARD1%==%hand4% SET CHECKVALUE1=%cardslot4%
  899. IF %CHECKCARD1%==%hand5% SET CHECKVALUE1=%cardslot5%
  900. IF %CHECKCARD1%==%hand6% SET CHECKVALUE1=%cardslot6%
  901. IF %CHECKCARD1%==%hand7% SET CHECKVALUE1=%cardslot7%
  902. IF %CHECKCARD1%==%hand8% SET CHECKVALUE1=%cardslot8%
  903. IF %CHECKCARD1%==%hand9% SET CHECKVALUE1=%cardslot9%
  904. IF %CHECKCARD2%==%hand1% SET CHECKVALUE2=%cardslot1%
  905. IF %CHECKCARD2%==%hand2% SET CHECKVALUE2=%cardslot2%
  906. IF %CHECKCARD2%==%hand3% SET CHECKVALUE2=%cardslot3%
  907. IF %CHECKCARD2%==%hand4% SET CHECKVALUE2=%cardslot4%
  908. IF %CHECKCARD2%==%hand5% SET CHECKVALUE2=%cardslot5%
  909. IF %CHECKCARD2%==%hand6% SET CHECKVALUE2=%cardslot6%
  910. IF %CHECKCARD2%==%hand7% SET CHECKVALUE2=%cardslot7%
  911. IF %CHECKCARD2%==%hand8% SET CHECKVALUE2=%cardslot8%
  912. IF %CHECKCARD2%==%hand9% SET CHECKVALUE2=%cardslot9%
  913. :attemptdouble3
  914. IF %CHECKVALUE1%==%CHECKVALUE2% goto doubleplacing
  915. goto placedouble
  916. :doubleplacing
  917. set beatthisdata=%CHECKVALUE1%
  918. set beatthisdata2=%CHECKVALUE2%
  919. set beatthis=%CHECKCARD1%
  920. set beatthis2=%CHECKCARD2%
  921. ECHO SET beatthisdata=%CHECKVALUE1% > "%CD%\carddata.bat"
  922. ECHO SET beatthisdata2=%CHECKVALUE2% >> "%CD%\carddata.bat"
  923. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  924. ECHO SET beatthis2=%beatthis2% >> "%CD%\carddata.bat"
  925. ECHO SET mode=DOUBLES >> "%CD%\carddata.bat"
  926. IF %DOUBLECARD1%==1 set cardslot1=0
  927. IF %DOUBLECARD1%==2 set cardslot2=0
  928. IF %DOUBLECARD1%==3 set cardslot3=0
  929. IF %DOUBLECARD1%==4 set cardslot4=0
  930. IF %DOUBLECARD1%==5 set cardslot5=0
  931. IF %DOUBLECARD1%==6 set cardslot6=0
  932. IF %DOUBLECARD1%==7 set cardslot7=0
  933. IF %DOUBLECARD1%==8 set cardslot8=0
  934. IF %DOUBLECARD1%==9 set cardslot9=0
  935. IF %DOUBLECARD2%==1 set cardslot1=0
  936. IF %DOUBLECARD2%==2 set cardslot2=0
  937. IF %DOUBLECARD2%==3 set cardslot3=0
  938. IF %DOUBLECARD2%==4 set cardslot4=0
  939. IF %DOUBLECARD2%==5 set cardslot5=0
  940. IF %DOUBLECARD2%==6 set cardslot6=0
  941. IF %DOUBLECARD2%==7 set cardslot7=0
  942. IF %DOUBLECARD2%==8 set cardslot8=0
  943. IF %DOUBLECARD2%==9 set cardslot9=0
  944. IF %DOUBLECARD1%==1 set hand1=NONE
  945. IF %DOUBLECARD1%==2 set hand2=NONE
  946. IF %DOUBLECARD1%==3 set hand3=NONE
  947. IF %DOUBLECARD1%==4 set hand4=NONE
  948. IF %DOUBLECARD1%==5 set hand5=NONE
  949. IF %DOUBLECARD1%==6 set hand6=NONE
  950. IF %DOUBLECARD1%==7 set hand7=NONE
  951. IF %DOUBLECARD1%==8 set hand8=NONE
  952. IF %DOUBLECARD1%==9 set hand9=NONE
  953. IF %DOUBLECARD2%==1 set hand1=NONE
  954. IF %DOUBLECARD2%==2 set hand2=NONE
  955. IF %DOUBLECARD2%==3 set hand3=NONE
  956. IF %DOUBLECARD2%==4 set hand4=NONE
  957. IF %DOUBLECARD2%==5 set hand5=NONE
  958. IF %DOUBLECARD2%==6 set hand6=NONE
  959. IF %DOUBLECARD2%==7 set hand7=NONE
  960. IF %DOUBLECARD2%==8 set hand8=NONE
  961. IF %DOUBLECARD2%==9 set hand9=NONE
  962. goto changeturn
  963. :attempttriple
  964. CLS
  965. IF %TRIPLECARD1%==1 goto attempttriple1
  966. IF %TRIPLECARD1%==2 goto attempttriple1
  967. IF %TRIPLECARD1%==3 goto attempttriple1
  968. IF %TRIPLECARD1%==4 goto attempttriple1
  969. IF %TRIPLECARD1%==5 goto attempttriple1
  970. IF %TRIPLECARD1%==6 goto attempttriple1
  971. IF %TRIPLECARD1%==7 goto attempttriple1
  972. IF %TRIPLECARD1%==8 goto attempttriple1
  973. IF %TRIPLECARD1%==9 goto attempttriple1
  974. pause
  975. goto testhand
  976. :attempttriple1
  977. IF %TRIPLECARD1%==1 SET CHECKCARD1=%hand1%
  978. IF %TRIPLECARD1%==2 SET CHECKCARD1=%hand2%
  979. IF %TRIPLECARD1%==3 SET CHECKCARD1=%hand3%
  980. IF %TRIPLECARD1%==4 SET CHECKCARD1=%hand4%
  981. IF %TRIPLECARD1%==5 SET CHECKCARD1=%hand5%
  982. IF %TRIPLECARD1%==6 SET CHECKCARD1=%hand6%
  983. IF %TRIPLECARD1%==7 SET CHECKCARD1=%hand7%
  984. IF %TRIPLECARD1%==8 SET CHECKCARD1=%hand8%
  985. IF %TRIPLECARD1%==9 SET CHECKCARD1=%hand9%
  986. IF %TRIPLECARD2%==1 SET CHECKCARD2=%hand1%
  987. IF %TRIPLECARD2%==2 SET CHECKCARD2=%hand2%
  988. IF %TRIPLECARD2%==3 SET CHECKCARD2=%hand3%
  989. IF %TRIPLECARD2%==4 SET CHECKCARD2=%hand4%
  990. IF %TRIPLECARD2%==5 SET CHECKCARD2=%hand5%
  991. IF %TRIPLECARD2%==6 SET CHECKCARD2=%hand6%
  992. IF %TRIPLECARD2%==7 SET CHECKCARD2=%hand7%
  993. IF %TRIPLECARD2%==8 SET CHECKCARD2=%hand8%
  994. IF %TRIPLECARD2%==9 SET CHECKCARD2=%hand9%
  995. IF %TRIPLECARD3%==1 SET CHECKCARD3=%hand1%
  996. IF %TRIPLECARD3%==2 SET CHECKCARD3=%hand2%
  997. IF %TRIPLECARD3%==3 SET CHECKCARD3=%hand3%
  998. IF %TRIPLECARD3%==4 SET CHECKCARD3=%hand4%
  999. IF %TRIPLECARD3%==5 SET CHECKCARD3=%hand5%
  1000. IF %TRIPLECARD3%==6 SET CHECKCARD3=%hand6%
  1001. IF %TRIPLECARD3%==7 SET CHECKCARD3=%hand7%
  1002. IF %TRIPLECARD3%==8 SET CHECKCARD3=%hand8%
  1003. IF %TRIPLECARD3%==9 SET CHECKCARD3=%hand9%
  1004. goto attempttriple2
  1005. :attempttriple2
  1006. IF %CHECKCARD1%==NONE goto placetriple
  1007. IF %CHECKCARD2%==NONE goto placetriple
  1008. IF %CHECKCARD3%==NONE goto placetriple
  1009. IF "%CHECKCARD1%"=="%hand1%" SET CHECKVALUE1=%cardslot1%
  1010. IF "%CHECKCARD1%"=="%hand2%" SET CHECKVALUE1=%cardslot2%
  1011. IF "%CHECKCARD1%"=="%hand3%" SET CHECKVALUE1=%cardslot3%
  1012. IF "%CHECKCARD1%"=="%hand4%" SET CHECKVALUE1=%cardslot4%
  1013. IF "%CHECKCARD1%"=="%hand5%" SET CHECKVALUE1=%cardslot5%
  1014. IF "%CHECKCARD1%"=="%hand6%" SET CHECKVALUE1=%cardslot6%
  1015. IF "%CHECKCARD1%"=="%hand7%" SET CHECKVALUE1=%cardslot7%
  1016. IF "%CHECKCARD1%"=="%hand8%" SET CHECKVALUE1=%cardslot8%
  1017. IF "%CHECKCARD1%"=="%hand9%" SET CHECKVALUE1=%cardslot9%
  1018. IF "%CHECKCARD2%"=="%hand1%" SET CHECKVALUE2=%cardslot1%
  1019. IF "%CHECKCARD2%"=="%hand2%" SET CHECKVALUE2=%cardslot2%
  1020. IF "%CHECKCARD2%"=="%hand3%" SET CHECKVALUE2=%cardslot3%
  1021. IF "%CHECKCARD2%"=="%hand4%" SET CHECKVALUE2=%cardslot4%
  1022. IF "%CHECKCARD2%"=="%hand5%" SET CHECKVALUE2=%cardslot5%
  1023. IF "%CHECKCARD2%"=="%hand6%" SET CHECKVALUE2=%cardslot6%
  1024. IF "%CHECKCARD2%"=="%hand7%" SET CHECKVALUE2=%cardslot7%
  1025. IF "%CHECKCARD2%"=="%hand8%" SET CHECKVALUE2=%cardslot8%
  1026. IF "%CHECKCARD2%"=="%hand9%" SET CHECKVALUE2=%cardslot9%
  1027. IF "%CHECKCARD3%"=="%hand1%" SET CHECKVALUE3=%cardslot1%
  1028. IF "%CHECKCARD3%"=="%hand2%" SET CHECKVALUE3=%cardslot2%
  1029. IF "%CHEKCCARD3%"=="%hand3%" SET CHECKVALUE3=%cardslot3%
  1030. IF "%CHECKCARD3%"=="%hand4%" SET CHECKVALUE3=%cardslot4%
  1031. IF "%CHECKCARD3%"=="%hand5%" SET CHECKVALUE3=%cardslot5%
  1032. IF "%CHECKCARD3%"=="%hand6%" SET CHECKVALUE3=%cardslot6%
  1033. IF "%CHECKCARD3%"=="%hand7%" SET CHECKVALUE3=%cardslot7%
  1034. IF "%CHECKCARD3%"=="%hand8%" SET CHECKVALUE3=%cardslot8%
  1035. IF "%CHECKCARD3%"=="%hand9%" SET CHECKVALUE3=%cardslot9%
  1036. :attempttriple3
  1037. IF %CHECKVALUE1%==%CHECKVALUE2% goto attempttriple4
  1038. goto placetriple
  1039. :attempttriple4
  1040. IF %CHECKVALUE1%==%CHECKVALUE3% goto attempttriple5
  1041. goto placetriple
  1042. :attempttriple5
  1043. IF %CHECKVALUE2%==%CHECKVALUE3% goto tripleplacing
  1044. :tripleplacing
  1045. set beatthisdata=%CHECKVALUE1%
  1046. set beatthisdata2=%CHECKVALUE2%
  1047. set beatthisdata3=%CHECKVALUE3%
  1048. set beatthis=%CHECKCARD1%
  1049. set beatthis2=%CHECKCARD2%
  1050. set beatthis3=%CHECKCARD3%
  1051. ECHO SET beatthisdata=%CHECKVALUE1% > "%CD%\carddata.bat"
  1052. ECHO SET beatthisdata2=%CHECKVALUE2% >> "%CD%\carddata.bat"
  1053. ECHO SET beatthisdata3=%CHECKVALUE3% >> "%CD%\carddata.bat"
  1054. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  1055. ECHO SET beatthis2=%beatthis2% >> "%CD%\carddata.bat"
  1056. ECHO SET beatthis3=%beatthis3% >> "%CD%\carddata.bat"
  1057. ECHO SET mode=TRIPLES >> "%CD%\carddata.bat"
  1058. IF %TRIPLECARD1%==1 set cardslot1=0
  1059. IF %TRIPLECARD1%==2 set cardslot2=0
  1060. IF %TRIPLECARD1%==3 set cardslot3=0
  1061. IF %TRIPLECARD1%==4 set cardslot4=0
  1062. IF %TRIPLECARD1%==5 set cardslot5=0
  1063. IF %TRIPLECARD1%==6 set cardslot6=0
  1064. IF %TRIPLECARD1%==7 set cardslot7=0
  1065. IF %TRIPLECARD1%==8 set cardslot8=0
  1066. IF %TRIPLECARD1%==9 set cardslot9=0
  1067. IF %TRIPLECARD2%==1 set cardslot1=0
  1068. IF %TRIPLECARD2%==2 set cardslot2=0
  1069. IF %TRIPLECARD2%==3 set cardslot3=0
  1070. IF %TRIPLECARD2%==4 set cardslot4=0
  1071. IF %TRIPLECARD2%==5 set cardslot5=0
  1072. IF %TRIPLECARD2%==6 set cardslot6=0
  1073. IF %TRIPLECARD2%==7 set cardslot7=0
  1074. IF %TRIPLECARD2%==8 set cardslot8=0
  1075. IF %TRIPLECARD2%==9 set cardslot9=0
  1076. IF %TRIPLECARD3%==1 set cardslot1=0
  1077. IF %TRIPLECARD3%==2 set cardslot2=0
  1078. IF %TRIPLECARD3%==3 set cardslot3=0
  1079. IF %TRIPLECARD3%==4 set cardslot4=0
  1080. IF %TRIPLECARD3%==5 set cardslot5=0
  1081. IF %TRIPLECARD3%==6 set cardslot6=0
  1082. IF %TRIPLECARD3%==7 set cardslot7=0
  1083. IF %TRIPLECARD3%==8 set cardslot8=0
  1084. IF %TRIPLECARD3%==9 set cardslot9=0
  1085. IF %TRIPLECARD1%==1 set hand1=NONE
  1086. IF %TRIPLECARD1%==2 set hand2=NONE
  1087. IF %TRIPLECARD1%==3 set hand3=NONE
  1088. IF %TRIPLECARD1%==4 set hand4=NONE
  1089. IF %TRIPLECARD1%==5 set hand5=NONE
  1090. IF %TRIPLECARD1%==6 set hand6=NONE
  1091. IF %TRIPLECARD1%==7 set hand7=NONE
  1092. IF %TRIPLECARD1%==8 set hand8=NONE
  1093. IF %TRIPLECARD1%==9 set hand9=NONE
  1094. IF %TRIPLECARD2%==1 set hand1=NONE
  1095. IF %TRIPLECARD2%==2 set hand2=NONE
  1096. IF %TRIPLECARD2%==3 set hand3=NONE
  1097. IF %TRIPLECARD2%==4 set hand4=NONE
  1098. IF %TRIPLECARD2%==5 set hand5=NONE
  1099. IF %TRIPLECARD2%==6 set hand6=NONE
  1100. IF %TRIPLECARD2%==7 set hand7=NONE
  1101. IF %TRIPLECARD2%==8 set hand8=NONE
  1102. IF %TRIPLECARD2%==9 set hand9=NONE
  1103. IF %TRIPLECARD3%==1 set hand1=NONE
  1104. IF %TRIPLECARD3%==2 set hand2=NONE
  1105. IF %TRIPLECARD3%==3 set hand3=NONE
  1106. IF %TRIPLECARD3%==4 set hand4=NONE
  1107. IF %TRIPLECARD3%==5 set hand5=NONE
  1108. IF %TRIPLECARD3%==6 set hand6=NONE
  1109. IF %TRIPLECARD3%==7 set hand7=NONE
  1110. IF %TRIPLECARD3%==8 set hand8=NONE
  1111. IF %TRIPLECARD3%==9 set hand9=NONE
  1112. goto changeturn
  1113. :attemptquad
  1114. IF %QUADCARD1%==1 goto attemptquad1
  1115. IF %QUADCARD1%==2 goto attemptquad1
  1116. IF %QUADCARD1%==3 goto attemptquad1
  1117. IF %QUADCARD1%==4 goto attemptquad1
  1118. IF %QUADCARD1%==5 goto attemptquad1
  1119. IF %QUADCARD1%==6 goto attemptquad1
  1120. IF %QUADCARD1%==7 goto attemptquad1
  1121. IF %QUADCARD1%==8 goto attemptquad1
  1122. IF %QUADCARD1%==9 goto attemptquad1
  1123. goto placequad
  1124. :attemptquad1
  1125. IF %QUADCARD1%==1 SET CHECKCARD1=%hand1%
  1126. IF %QUADCARD1%==2 SET CHECKCARD1=%hand2%
  1127. IF %QUADCARD1%==3 SET CHECKCARD1=%hand3%
  1128. IF %QUADCARD1%==4 SET CHECKCARD1=%hand4%
  1129. IF %QUADCARD1%==5 SET CHECKCARD1=%hand5%
  1130. IF %QUADCARD1%==6 SET CHECKCARD1=%hand6%
  1131. IF %QUADCARD1%==7 SET CHECKCARD1=%hand7%
  1132. IF %QUADCARD1%==8 SET CHECKCARD1=%hand8%
  1133. IF %QUADCARD1%==9 SET CHECKCARD1=%hand9%
  1134. IF %QUADCARD2%==1 SET CHECKCARD2=%hand1%
  1135. IF %QUADCARD2%==2 SET CHECKCARD2=%hand2%
  1136. IF %QUADCARD2%==3 SET CHECKCARD2=%hand3%
  1137. IF %QUADCARD2%==4 SET CHECKCARD2=%hand4%
  1138. IF %QUADCARD2%==5 SET CHECKCARD2=%hand5%
  1139. IF %QUADCARD2%==6 SET CHECKCARD2=%hand6%
  1140. IF %QUADCARD2%==7 SET CHECKCARD2=%hand7%
  1141. IF %QUADCARD2%==8 SET CHECKCARD2=%hand8%
  1142. IF %QUADCARD2%==9 SET CHECKCARD2=%hand9%
  1143. IF %QUADCARD3%==1 SET CHECKCARD3=%hand1%
  1144. IF %QUADCARD3%==2 SET CHECKCARD3=%hand2%
  1145. IF %QUADCARD3%==3 SET CHECKCARD3=%hand3%
  1146. IF %QUADCARD3%==4 SET CHECKCARD3=%hand4%
  1147. IF %QUADCARD3%==5 SET CHECKCARD3=%hand5%
  1148. IF %QUADCARD3%==6 SET CHECKCARD3=%hand6%
  1149. IF %QUADCARD3%==7 SET CHECKCARD3=%hand7%
  1150. IF %QUADCARD3%==8 SET CHECKCARD3=%hand8%
  1151. IF %QUADCARD3%==9 SET CHECKCARD3=%hand9%
  1152. IF %QUADCARD4%==1 SET CHECKCARD4=%hand1%
  1153. IF %QUADCARD4%==2 SET CHECKCARD4=%hand2%
  1154. IF %QUADCARD4%==3 SET CHECKCARD4=%hand3%
  1155. IF %QUADCARD4%==4 SET CHECKCARD4=%hand4%
  1156. IF %QUADCARD4%==5 SET CHECKCARD4=%hand5%
  1157. IF %QUADCARD4%==6 SET CHECKCARD4=%hand6%
  1158. IF %QUADCARD4%==7 SET CHECKCARD4=%hand7%
  1159. IF %QUADCARD4%==8 SET CHECKCARD4=%hand8%
  1160. IF %QUADCARD4%==9 SET CHECKCARD4=%hand9%
  1161. goto attemptquad2
  1162. :attemptquad2
  1163. IF %CHECKCARD1%==NONE goto placequad
  1164. IF %CHECKCARD2%==NONE goto placequad
  1165. IF %CHECKCARD3%==NONE goto placequad
  1166. IF %CHECKCARD4%==NONE goto placequad
  1167. IF "%CHECKCARD1%"=="%hand1%" SET CHECKVALUE1=%cardslot1%
  1168. IF "%CHECKCARD1%"=="%hand2%" SET CHECKVALUE1=%cardslot2%
  1169. IF "%CHECKCARD1%"=="%hand3%" SET CHECKVALUE1=%cardslot3%
  1170. IF "%CHECKCARD1%"=="%hand4%" SET CHECKVALUE1=%cardslot4%
  1171. IF "%CHECKCARD1%"=="%hand5%" SET CHECKVALUE1=%cardslot5%
  1172. IF "%CHECKCARD1%"=="%hand6%" SET CHECKVALUE1=%cardslot6%
  1173. IF "%CHECKCARD1%"=="%hand7%" SET CHECKVALUE1=%cardslot7%
  1174. IF "%CHECKCARD1%"=="%hand8%" SET CHECKVALUE1=%cardslot8%
  1175. IF "%CHECKCARD1%"=="%hand9%" SET CHECKVALUE1=%cardslot9%
  1176. IF "%CHECKCARD2%"=="%hand1%" SET CHECKVALUE2=%cardslot1%
  1177. IF "%CHECKCARD2%"=="%hand2%" SET CHECKVALUE2=%cardslot2%
  1178. IF "%CHECKCARD2%"=="%hand3%" SET CHECKVALUE2=%cardslot3%
  1179. IF "%CHECKCARD2%"=="%hand4%" SET CHECKVALUE2=%cardslot4%
  1180. IF "%CHECKCARD2%"=="%hand5%" SET CHECKVALUE2=%cardslot5%
  1181. IF "%CHECKCARD2%"=="%hand6%" SET CHECKVALUE2=%cardslot6%
  1182. IF "%CHECKCARD2%"=="%hand7%" SET CHECKVALUE2=%cardslot7%
  1183. IF "%CHECKCARD2%"=="%hand8%" SET CHECKVALUE2=%cardslot8%
  1184. IF "%CHECKCARD2%"=="%hand9%" SET CHECKVALUE2=%cardslot9%
  1185. IF "%CHECKCARD3%"=="%hand1%" SET CHECKVALUE3=%cardslot1%
  1186. IF "%CHECKCARD3%"=="%hand2%" SET CHECKVALUE3=%cardslot2%
  1187. IF "%CHEKCCARD3%"=="%hand3%" SET CHECKVALUE3=%cardslot3%
  1188. IF "%CHECKCARD3%"=="%hand4%" SET CHECKVALUE3=%cardslot4%
  1189. IF "%CHECKCARD3%"=="%hand5%" SET CHECKVALUE3=%cardslot5%
  1190. IF "%CHECKCARD3%"=="%hand6%" SET CHECKVALUE3=%cardslot6%
  1191. IF "%CHECKCARD3%"=="%hand7%" SET CHECKVALUE3=%cardslot7%
  1192. IF "%CHECKCARD3%"=="%hand8%" SET CHECKVALUE3=%cardslot8%
  1193. IF "%CHECKCARD3%"=="%hand9%" SET CHECKVALUE3=%cardslot9%
  1194. IF "%CHECKCARD4%"=="%hand1%" SET CHECKVALUE4=%cardslot1%
  1195. IF "%CHECKCARD4%"=="%hand2%" SET CHECKVALUE4=%cardslot2%
  1196. IF "%CHEKCCARD4%"=="%hand3%" SET CHECKVALUE4=%cardslot3%
  1197. IF "%CHECKCARD4%"=="%hand4%" SET CHECKVALUE4=%cardslot4%
  1198. IF "%CHECKCARD4%"=="%hand5%" SET CHECKVALUE4=%cardslot5%
  1199. IF "%CHECKCARD4%"=="%hand6%" SET CHECKVALUE4=%cardslot6%
  1200. IF "%CHECKCARD4%"=="%hand7%" SET CHECKVALUE4=%cardslot7%
  1201. IF "%CHECKCARD4%"=="%hand8%" SET CHECKVALUE4=%cardslot8%
  1202. IF "%CHECKCARD4%"=="%hand9%" SET CHECKVALUE4=%cardslot9%
  1203. :attemptquad3
  1204. IF %CHECKVALUE1%==%CHECKVALUE2% goto attemptquad4
  1205. goto placequad
  1206. :attemptquad4
  1207. IF %CHECKVALUE1%==%CHECKVALUE3% goto attemptquad5
  1208. goto placequad
  1209. :attemptquad5
  1210. IF %CHECKVALUE1%==%CHECKVALUE4% goto attemptquad6
  1211. goto placequad
  1212. :attemptquad6
  1213. IF %CHECKVALUE2%==%CHECKVALUE3% goto attemptquad7
  1214. goto placequad
  1215. :attemptquad7
  1216. IF %CHECKVALUE2%==%CHECKVALUE4% goto attemptquad8
  1217. goto placequad
  1218. :attemptquad8
  1219. IF %CHECKVALUE3%==%CHECKVALUE4% goto quadplacing
  1220. goto placequad
  1221. :quadplacing
  1222. set beatthisdata=%CHECKVALUE1%
  1223. set beatthisdata2=%CHECKVALUE2%
  1224. set beatthisdata3=%CHECKVALUE3%
  1225. set beatthisdata4=%CHECKVALUE4%
  1226. set beatthis=%CHECKCARD1%
  1227. set beatthis2=%CHECKCARD2%
  1228. set beatthis3=%CHECKCARD3%
  1229. set beatthis4=%CHECKCARD4%
  1230. ECHO SET beatthisdata=%CHECKVALUE1% > "%CD%\carddata.bat"
  1231. ECHO SET beatthisdata2=%CHECKVALUE2% >> "%CD%\carddata.bat"
  1232. ECHO SET beatthisdata3=%CHECKVALUE3% >> "%CD%\carddata.bat"
  1233. ECHO SET beatthisdata4=%CHECKVALUE4% >> "%CD%\carddata.bat"
  1234. ECHO SET beatthis=%beatthis% >> "%CD%\carddata.bat"
  1235. ECHO SET beatthis2=%beatthis2% >> "%CD%\carddata.bat"
  1236. ECHO SET beatthis3=%beatthis3% >> "%CD%\carddata.bat"
  1237. ECHO SET beatthis4=%beatthis4% >> "%CD%\carddata.bat"
  1238. ECHO SET mode=QUADS >> "%CD%\carddata.bat"
  1239. IF %QUADCARD1%==1 set cardslot1=0
  1240. IF %QUADCARD1%==2 set cardslot2=0
  1241. IF %QUADCARD1%==3 set cardslot3=0
  1242. IF %QUADCARD1%==4 set cardslot4=0
  1243. IF %QUADCARD1%==5 set cardslot5=0
  1244. IF %QUADCARD1%==6 set cardslot6=0
  1245. IF %QUADCARD1%==7 set cardslot7=0
  1246. IF %QUADCARD1%==8 set cardslot8=0
  1247. IF %QUADCARD1%==9 set cardslot9=0
  1248. IF %QUADCARD2%==1 set cardslot1=0
  1249. IF %QUADCARD2%==2 set cardslot2=0
  1250. IF %QUADCARD2%==3 set cardslot3=0
  1251. IF %QUADCARD2%==4 set cardslot4=0
  1252. IF %QUADCARD2%==5 set cardslot5=0
  1253. IF %QUADCARD2%==6 set cardslot6=0
  1254. IF %QUADCARD2%==7 set cardslot7=0
  1255. IF %QUADCARD2%==8 set cardslot8=0
  1256. IF %QUADCARD2%==9 set cardslot9=0
  1257. IF %QUADCARD3%==1 set cardslot1=0
  1258. IF %QUADCARD3%==2 set cardslot2=0
  1259. IF %QUADCARD3%==3 set cardslot3=0
  1260. IF %QUADCARD3%==4 set cardslot4=0
  1261. IF %QUADCARD3%==5 set cardslot5=0
  1262. IF %QUADCARD3%==6 set cardslot6=0
  1263. IF %QUADCARD3%==7 set cardslot7=0
  1264. IF %QUADCARD3%==8 set cardslot8=0
  1265. IF %QUADCARD3%==9 set cardslot9=0
  1266. IF %QUADCARD4%==1 set cardslot1=0
  1267. IF %QUADCARD4%==2 set cardslot2=0
  1268. IF %QUADCARD4%==3 set cardslot3=0
  1269. IF %QUADCARD4%==4 set cardslot4=0
  1270. IF %QUADCARD4%==5 set cardslot5=0
  1271. IF %QUADCARD4%==6 set cardslot6=0
  1272. IF %QUADCARD4%==7 set cardslot7=0
  1273. IF %QUADCARD4%==8 set cardslot8=0
  1274. IF %QUADCARD4%==9 set cardslot9=0
  1275. IF %QUADCARD1%==1 set hand1=NONE
  1276. IF %QUADCARD1%==2 set hand2=NONE
  1277. IF %QUADCARD1%==3 set hand3=NONE
  1278. IF %QUADCARD1%==4 set hand4=NONE
  1279. IF %QUADCARD1%==5 set hand5=NONE
  1280. IF %QUADCARD1%==6 set hand6=NONE
  1281. IF %QUADCARD1%==7 set hand7=NONE
  1282. IF %QUADCARD1%==8 set hand8=NONE
  1283. IF %QUADCARD1%==9 set hand9=NONE
  1284. IF %QUADCARD2%==1 set hand1=NONE
  1285. IF %QUADCARD2%==2 set hand2=NONE
  1286. IF %QUADCARD2%==3 set hand3=NONE
  1287. IF %QUADCARD2%==4 set hand4=NONE
  1288. IF %QUADCARD2%==5 set hand5=NONE
  1289. IF %QUADCARD2%==6 set hand6=NONE
  1290. IF %QUADCARD2%==7 set hand7=NONE
  1291. IF %QUADCARD2%==8 set hand8=NONE
  1292. IF %QUADCARD2%==9 set hand9=NONE
  1293. IF %QUADCARD3%==1 set hand1=NONE
  1294. IF %QUADCARD3%==2 set hand2=NONE
  1295. IF %QUADCARD3%==3 set hand3=NONE
  1296. IF %QUADCARD3%==4 set hand4=NONE
  1297. IF %QUADCARD3%==5 set hand5=NONE
  1298. IF %QUADCARD3%==6 set hand6=NONE
  1299. IF %QUADCARD3%==7 set hand7=NONE
  1300. IF %QUADCARD3%==8 set hand8=NONE
  1301. IF %QUADCARD3%==9 set hand9=NONE
  1302. IF %QUADCARD4%==1 set hand1=NONE
  1303. IF %QUADCARD4%==2 set hand2=NONE
  1304. IF %QUADCARD4%==3 set hand3=NONE
  1305. IF %QUADCARD4%==4 set hand4=NONE
  1306. IF %QUADCARD4%==5 set hand5=NONE
  1307. IF %QUADCARD4%==6 set hand6=NONE
  1308. IF %QUADCARD4%==7 set hand7=NONE
  1309. IF %QUADCARD4%==8 set hand8=NONE
  1310. IF %QUADCARD4%==9 set hand9=NONE
  1311. goto changeturn
  1312. :FINISHED
  1313. CLS
  1314. CALL "%CD%\turn.bat"
  1315. IF %turn%==%playernum% set /a turn=%turn%+1
  1316. ECHO set turn=%turn% > "%CD%\turn.bat"
  1317. ECHO YOU HAVE FINISHED!!!
  1318. ping localhost >nul
  1319. goto FINISHED
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement