Advertisement
mrlover21

Game Monoply Versi CMD

Dec 29th, 2014
234
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 183.93 KB | None | 0 0
  1. @echo off
  2. title Monopoly
  3. REM (C) Copyright 2010 GrellesLicht28
  4. REM This is a creation of Makroware.
  5. color 0f
  6. setlocal enabledelayedexpansion
  7.  
  8. call :SetFields
  9.  
  10. goto :StartMain
  11.  
  12.  
  13.  
  14. :: Start of setting fields
  15. :SetFields
  16. :SetFields
  17. :: Player 1
  18. if not defined Field1_1 set Field1_1=
  19. if not defined Field2_1 set Field2_1=A
  20. if not defined Field3_1 set Field3_1=
  21. if not defined Field4_1 set Field4_1=
  22. if not defined Field5_1 set Field5_1=
  23. if not defined Field6_1 set Field6_1=
  24. if not defined Field7_1 set Field7_1=A
  25. if not defined Field8_1 set Field8_1=
  26. if not defined Field9_1 set Field9_1=A
  27. if not defined Field10_1 set Field10_1=A
  28. if not defined Field11_1 set Field11_1=i
  29. if not defined Field11_J_1 set Field11_J_1=
  30. if not defined Field12_1 set Field12_1=
  31. if not defined Field13_1 set Field13_1=
  32. if not defined Field14_1 set Field14_1=
  33. if not defined Field15_1 set Field15_1=
  34. if not defined Field16_1 set Field16_1=
  35. if not defined Field17_1 set Field17_1=
  36. if not defined Field18_1 set Field18_1=
  37. if not defined Field19_1 set Field19_1=
  38. if not defined Field20_1 set Field20_1=
  39. if not defined Field21_1 set Field21_1=
  40. if not defined Field22_1 set Field22_1=A
  41. if not defined Field23_1 set Field23_1=
  42. if not defined Field24_1 set Field24_1=A
  43. if not defined Field25_1 set Field25_1=A
  44. if not defined Field26_1 set Field26_1=
  45. if not defined Field27_1 set Field27_1=A
  46. if not defined Field28_1 set Field28_1=A
  47. if not defined Field29_1 set Field29_1=
  48. if not defined Field30_1 set Field30_1=
  49. if not defined Field31_1 set Field31_1=
  50. if not defined Field32_1 set Field32_1=
  51. if not defined Field33_1 set Field33_1=l
  52. if not defined Field34_1 set Field34_1=
  53. if not defined Field35_1 set Field35_1=
  54. if not defined Field36_1 set Field36_1=
  55. if not defined Field37_1 set Field37_1=
  56. if not defined Field38_1 set Field38_1=
  57. if not defined Field39_1 set Field39_1=
  58. if not defined Field40_1 set Field40_1=
  59.  
  60. :: Player 2
  61. if not defined Field1_2 set Field1_2=
  62. if not defined Field2_2 set Field2_2=e
  63. if not defined Field3_2 set Field3_2=
  64. if not defined Field4_2 set Field4_2=
  65. if not defined Field5_2 set Field5_2=
  66. if not defined Field6_2 set Field6_2=
  67. if not defined Field7_2 set Field7_2=e
  68. if not defined Field8_2 set Field8_2=
  69. if not defined Field9_2 set Field9_2=e
  70. if not defined Field10_2 set Field10_2=e
  71. if not defined Field11_2 set Field11_2=
  72. if not defined Field11_J_2 set Field11_J_2=
  73. if not defined Field12_2 set Field12_2=
  74. if not defined Field13_2 set Field13_2=
  75. if not defined Field14_2 set Field14_2=
  76. if not defined Field15_2 set Field15_2=
  77. if not defined Field16_2 set Field16_2=
  78. if not defined Field17_2 set Field17_2=
  79. if not defined Field18_2 set Field18_2=
  80. if not defined Field19_2 set Field19_2=
  81. if not defined Field20_2 set Field20_2=
  82. if not defined Field21_2 set Field21_2=
  83. if not defined Field22_2 set Field22_2=e
  84. if not defined Field23_2 set Field23_2=
  85. if not defined Field24_2 set Field24_2=e
  86. if not defined Field25_2 set Field25_2=e
  87. if not defined Field26_2 set Field26_2=
  88. if not defined Field27_2 set Field27_2=e
  89. if not defined Field28_2 set Field28_2=e
  90. if not defined Field29_2 set Field29_2=
  91. if not defined Field30_2 set Field30_2=
  92. if not defined Field31_2 set Field31_2=
  93. if not defined Field32_2 set Field32_2=
  94. if not defined Field33_2 set Field33_2=
  95. if not defined Field34_2 set Field34_2=
  96. if not defined Field35_2 set Field35_2=
  97. if not defined Field36_2 set Field36_2=
  98. if not defined Field37_2 set Field37_2=?
  99. if not defined Field38_2 set Field38_2=
  100. if not defined Field39_2 set Field39_2=
  101. if not defined Field40_2 set Field40_2=
  102. exit /b
  103. :: End of setting fields
  104.  
  105.  
  106.  
  107.  
  108. :: Instructions start here.
  109. :Instructions
  110. :Instructions
  111. cls
  112. echo Instructions of Monopoly
  113. echo îîîîîîîîîîîîîîîîîîîîîîîî
  114. echo 1. Each player starts with $1500. Their characters are placed on the field
  115. echo "Go" in the beginning of the game.
  116. echo 2. Every round, the current player has to throw two dice which have 6 sides.
  117. echo The amount thrown is between 2 and 12.
  118. echo.
  119. echo 3. If a player gets on a street or a railroad, he or she can buy it, if it
  120. echo is unowned, yet. Else the player has to pay the rent to the owner depending
  121. echo on the amount of houses or hotels (or railroads).
  122. echo 4. If a player arrives to any other field, he has to follow the instructions
  123. echo given on the field.
  124. echo.
  125. echo 5. Money, which is paid to the bank, goes into "Free Parking" (except for the
  126. echo $50 to escape from Jail). This money can be recollected by arriving on this
  127. echo field.
  128. echo 6. It is not allowed to share money with the other player without arriving on
  129. echo one of his or her streets, railroads or companies, selling the
  130. echo Get-Out-Of-Jail-Free-card or having to follow the instructions of a
  131. echo community chest- or event card.
  132. echo.
  133. echo 7. There are 16 community chest cards and 16 event cards. They are not chosen
  134. echo by following an order, but they are chosen randomly. This allows the same
  135. echo card one after the other.
  136. echo 8. The Get-Out-Of-Jail-Free-Card can only be owned once. If got, this card
  137. echo cannot be chosen by random anymore until it is used or sold.
  138. echo 9. You cannot own two Get-Out-Of-Jail-Free-Cards.
  139. echo.
  140. echo 10. You can only buy houses by arriving right on the field you want to buy
  141. echo some.
  142. echo 11. You can buy 4 houses on each of the 22 streets. The fifth house will be
  143. echo returned into a hotel. The other houses disappear in this case.
  144. echo 12. There is no limit of total houses or hotels to use in the entire game
  145. echo unless all of the streets got a hotel.
  146. echo.
  147. echo 13. If you throw three doublets in a row, you are sent to Jail.
  148. echo 14. In Jail, you can try a doublet at last for three times. Then you have to
  149. echo pay $50. If you don't want to try to roll a doublet, you can pay $50 to
  150. echo escape everytime or you can use your Get-Out-Of-Jail-Free-Card if owned.
  151. echo 15. If you are "just visiting" the Jail, nothing will happen.
  152. echo.
  153. echo 16. By passing "Go", you receive $200. By arriving onto the field "Go", you
  154. echo receive $400.
  155. echo 17. If you get a card which changes your current position, you receive $200 by
  156. echo passing "Go".
  157. echo 18. You do not receive $200 if you are sent to Jail, no matter if passing "Go"
  158. echo or not.
  159. echo.
  160. echo 19. The game ends when one player loses all his or her money. The player is not
  161. echo allowed to sell any property like houses, hotels, streets, railroads,
  162. echo companies or cards anymore.
  163. echo.
  164. set /p Pause=
  165. exit /b
  166. :: Instructions end here.
  167.  
  168.  
  169.  
  170. :StartMain
  171. :StartMain
  172. cls
  173. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  174. echo º Choose your character: º
  175. echo º 1: Û º
  176. echo º 2: ² º
  177. echo º 3: ± º
  178. echo º 4: ° º
  179. echo º º
  180. echo ºEnter "instructions" to read them.º
  181. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  182. set /p Character1=Player 1: Character no.
  183. set /p Character2=Player 2: Character no.
  184. if "%Character1%" == "1" set Char_1=Û
  185. if "%Character1%" == "2" set Char_1=²
  186. if "%Character1%" == "3" set Char_1=±
  187. if "%Character1%" == "4" set Char_1=°
  188. if /i "%Character1%" == "instructions" call :Instructions
  189. if "%Character2%" == "1" set Char_2=Û
  190. if "%Character2%" == "2" set Char_2=²
  191. if "%Character2%" == "3" set Char_2=±
  192. if "%Character2%" == "4" set Char_2=°
  193. if /i "%Character2%" == "instructions" call :Instructions
  194. if not defined Char_1 goto :StartMain
  195. if not defined Char_2 goto :StartMain
  196. if "%Char_1%" == "%Char_2%" (
  197. echo You cannot use the same character twice.
  198. pause
  199. goto :StartMain
  200. )
  201.  
  202.  
  203. set DiceAmount=0
  204. set Escape=4
  205. set Field1_1=%Char_1%
  206. set Field1_2=%Char_2%
  207. set Money_1=1500
  208. set Money_2=1500
  209. set Money_Parking=0
  210. set Player=1
  211. set Player1Position=1
  212. set Player2Position=1
  213.  
  214.  
  215. mode con cols=91 lines=600
  216. :FIELD
  217. :FIELD
  218. cls
  219. set OutOfJail=0
  220. if not "%1" == "StepDone" set Go=0
  221. if not "%1" == "Chance_Walked" set RentalTwice=0
  222. set Player=!Player!
  223. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄ¿
  224. echo ³ Free ³Kentu-³Chance³India-³Illi- ³B.^& O.³Atlan-³Veni- ³Water ³Marvin³ GO TO ³
  225. echo ³ ÜßßßÜ ³ cky ³ ?? ³ na ³ nois ³ RAIL-³ tic ³ nor ³Works ³ Gar- ³ °°°°° ³
  226. echo ³!Field21_1! ÛÜÜÜÛ !Field21_2!³!Field22_1!venu!Field22_2!³!Field23_1!? ?!Field23_2!³!Field24_1!venu!Field24_2!³!Field25_1!venu!Field25_2!³!Field26_1!ROAD!Field26_2!³!Field27_1!venu!Field27_2!³!Field28_1!venu!Field28_2!³!Field29_1! !Field29_2!³!Field30_1!dens!Field30_2!³!Field31_1! °°° !Field31_2!³
  227. echo ³ ÜÛÛÜÛÛÜ ³ ³ ? ³ ³ ³ ³ ³ ³ ³ ³ ° ³
  228. echo ³ ° ° ³Price ³ ? ³Price ³Price ³Price ³Price ³Price ³Price ³Price ³ ³
  229. echo ³ Parking ³ $220 ³ ? ³ $220 ³ $240 ³ $200 ³ $260 ³ $260 ³ $150 ³ $280 ³ ° JAIL ³
  230. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
  231. echo ³ New York ³ ________ ³ Pacific ³
  232. echo ³!Field20_1! Avenue !Field20_2!³ / / ³!Field32_1! Avenue !Field32_2!³
  233. echo ³Price: $200 ³ / / ± ± ³Price: $300 ³
  234. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ / / ± ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  235. echo ³ Tennessee ³ / / ± ± ³North Caro- ³
  236. echo ³!Field19_1! Avenue !Field19_2!³ /_______/ ± ± ³!Field33_1!ina Avenue!Field33_2!³
  237. echo ³Price: $180 ³ Community Chest ± ± ± ³Price: $300 ³
  238. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  239. echo ³ Community ³ ± ± ³ Community ³
  240. echo ³!Field18_1! Chest !Field18_2!³ ± ± ³!Field34_1! Chest !Field34_2!³
  241. echo ³ ³ ± ± ³ ³
  242. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  243. echo ³ St. James ³ ± ± ³Pennsylvania³
  244. echo ³!Field17_1! Place !Field17_2!³ ± ± ³!Field35_1! Avenue !Field35_2!³
  245. echo ³Price: $180 ³ ± ± ³Price: $320 ³
  246. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  247. echo ³PENNSYLVANIA³ ± ± ³ SHORT LINE ³
  248. echo ³!Field16_1! RAILROAD !Field16_2!³ ± ± ± ³!Field36_1! !Field36_2!³
  249. echo ³Price: $200 ³ ± ± ± ³Price: $200 ³
  250. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  251. echo ³ Virginia ³ ± ± ³ ?? Chance³
  252. echo ³!Field15_1! Avenue !Field15_2!³ ± ± ³!Field37_1!? ?? ? !Field37_2!³
  253. echo ³Price: $160 ³ ± ± ³ ? ?? ³
  254. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  255. echo ³ States ³ ± ± ³ Park Place ³
  256. echo ³!Field14_1! Avenue !Field14_2!³ ± ± ³!Field38_1! !Field38_2!³
  257. echo ³Price: $140 ³ ± ± ³Price: $350 ³
  258. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± ± ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  259. echo ³ Electric ³ ± ± ± C ________ ³ LUXURY TAX ³
  260. echo ³!Field13_1! Company !Field13_2!³ ± ± h / / ³!Field39_1! !Field39_2!³
  261. echo ³Price: $150 ³ ± ± ± a / / ³ Pay $75 ³
  262. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄ´ ± ± n / / ÃÄÄÄÄÄÄÄÄÄÄÄÄ´
  263. echo ³St. Charles ³ ± ± c / / ³ Boardwalk ³
  264. echo ³!Field12_1! Place !Field12_2!³ ± e /_______/ ³!Field40_1! !Field40_2!³
  265. echo ³Price: $140 ³ ± ³Price: $400 ³
  266. echo ÃÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄ´
  267. echo ³Just³ IN ³Connec³Ver- ³Chance³Orien-³READIN³INCOME³Baltic³ ³Medite³Collect $200³
  268. echo ³v ³ÉÍËÍËÍ»³ticut ³ mont³ ?? ³tal ³RAIL- ³ TAX ³Avenue³Commu-³r... ³as you pass ³
  269. echo ³!Field11_1! !Field11_2!³º!Field11_J_1!º º!Field11_J_2!º³!Field10_1!venu!Field10_2!³!Field9_1!venu!Field9_2!³!Field8_1!? ?!Field8_2!³!Field7_1!venu!Field7_2!³!Field6_1!ROAD!Field6_2!³!Field5_1! !Field5_2!³!Field4_1! !Field4_2!³!Field3_1!nity!Field3_2!³!Field2_1!venu!Field2_2!³!Field1_1! !Field1_2!³
  270. echo ³s ³º º º º³ ³ ³ ? ³ ³ ³Pay ³ ³ ³ ³ Ûßßß ÜÜÜÜ ³
  271. echo ³i ³ÈÍÊÍÊͼ³Price ³Price ³ ? ³Price ³Price ³10%% or³Price ³Chest ³Price ³ Û ßÜ Û Û ³
  272. echo ³ting³ JAIL ³ $120 ³ $100 ³ ? ³ $100 ³ $200 ³$200 ³ $60 ³ ³ $60 ³ ßßßß ßßßß ³
  273. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÙ
  274.  
  275.  
  276. if "%1" == "StepDone" exit /b
  277. if "%1" == "Chance_Walked" goto :StartComparingPositions
  278. if "!Field11_J_%Player%!" == "!Char_%Player%!" call :InJail
  279. if "%OutOfJail%" == "1" goto :FIELD
  280.  
  281.  
  282. :RecallDisplay
  283. :RecallDisplay
  284. echo.
  285. echo Player %Player% (!Char_%Player%!)'s turn:
  286.  
  287.  
  288. :: Checks every street if owned by the current player.
  289. echo Streets owned:
  290. set Display_%Player%=
  291. set Display_Amount_%Player%=0
  292. FOR %%A IN (MediterraneanAvenue BalticAvenue ReadingRailroad OrientalAvenue VermontAvenue ConnecticutAvenue St.CharlesPlace ElectricCompany StatesAvenue VirginiaAvenue PennsylvaniaRailroad St.JamesPlace TennesseeAvenue NewYorkAvenue KentuckyAvenue IndianaAvenue IllinoisAvenue B.O.Railroad AtlanticAvenue VeninorAvenue WaterWorks MarvinGardens PacificAvenue NorthCarolinaAvenue PennsylvaniaAvenue ShortLine ParkPlace Boardwalk) DO (
  293. if "!%%A!" == "%Player%" (
  294. if not "!Display_Amount_%Player%!" == "4" (set Display_%Player%=!Display_%Player%!%%A / ) ELSE (set Display_%Player%=!Display_%Player%!%%A)
  295. set /a Display_Amount_%Player%=!Display_Amount_%Player%! + 1
  296. if "!Display_Amount_%Player%!" == "4" (
  297. echo !Display_%Player%!
  298. set Display_Amount_%Player%=0
  299. set Display_%Player%=
  300. )
  301. )
  302. if "%%A" == "Boardwalk" if not "!Display_Amount_%Player%!" == "0" echo !Display_%Player%!
  303. )
  304. echo.
  305. if "!FreeOutOfJail_%Player%!" == "1" (
  306. set OtherPlayer=
  307. set Sell_JailCard=
  308. set Accept_JailCard=
  309. echo You own a card to get out of jail for free.
  310. echo Enter "sell for XX" to sell it to the other player for XX dollars.
  311. set /p Sell_JailCard=
  312. if /i "!Sell_JailCard:~0,9!" == "sell for " (
  313. echo To the other player: Do you want to accept the price [!Sell_JailCard:~9,4!],
  314. echo then enter "Yes, I would like to.".
  315. set /p Accept_JailCard=
  316. if /i "!Accept_JailCard!" == "Yes, I would like to." (
  317. set Puffer=!Money_%Player%!
  318. set /a Money_%Player%=!Money_%Player%! + !Sell_JailCard:~9,4!
  319. echo ÄÄÄ^> Money increased from $!Puffer! by $!Sell_JailCard:~9,4! to $!Money_%Player%!.
  320. if "!Player!" == "1" (
  321. set Puffer=!Money_2!
  322. set /a Money_2=!Money_2! - !Sell_JailCard:~9,4!
  323. echo ÄÄÄ^> Money decreased from $!Puffer! by $!Sell_JailCard:~9,4! to $!Money_2!.
  324. if "!Money_2:~0,1!" == "-" (
  325. echo You have not enough money.
  326. set /a Money_%Player%=!Money_%Player%! - !Sell_JailCard:~9,4!
  327. set /a Money_2=!Money_2! + !Sell_JailCard:~9,4!
  328. echo ÄÄÄ^> Money amounts set back.
  329. )
  330. ) ELSE (
  331. set Puffer=!Money_1!
  332. set /a Money_1=!Money_1! - !Sell_JailCard:~9,4!
  333. echo ÄÄÄ^> Money decreased from $!Puffer! by $!Sell_JailCard:~9,4! to $!Money_1!.
  334. if "!Money_1:~0,1!" == "-" (
  335. echo You have not enough money.
  336. set /a Money_%Player%=!Money_%Player%! - !Sell_JailCard:~9,4!
  337. set /a Money_1=!Money_1! + !Sell_JailCard:~9,4!
  338. echo ÄÄÄ^> Money amounts set back.
  339. )
  340. )
  341. if "!FreeOutOfJail_Chance!" == "!FreeOutOfJail_%Player%!" (
  342. set FreeOutOfJail_Chance=0
  343. ) ELSE (
  344. set FreeOutOfJail_Community=0
  345. )
  346. set FreeOutOfJail_%Player%=0
  347. ) ELSE (
  348. echo Trade cancelled.
  349. )
  350. )
  351. ) ELSE (
  352. echo Press any key to roll a dice...
  353. if not "%1" == "StepDone" pause >nul
  354. )
  355. if "%1" == "StepDone" exit /b
  356.  
  357. :RollADice
  358. :RollADice
  359. :: Randomly roll two dices. The IF's make sure they are between 1 and 6.
  360. set /a DiceOne=%random% %% 6 + 1
  361. set /a DiceTwo=%random% %% 6 + 1
  362.  
  363.  
  364. :: Resetting the current player's position.
  365. set Field!Player%Player%Position!_%Player%=
  366.  
  367. :: Calculating the amount of steps to go. Also informs the user.
  368. set /a Dice=%DiceOne% + %DiceTwo%
  369. echo Dice one (%DiceOne%) + dice two (%DiceTwo%) = %Dice%
  370. set /a Player%Player%Position=!Player%Player%Position! + %Dice%
  371.  
  372.  
  373. :: Check if the player went over "GO".
  374. if not "!Player%Player%Position:~1,1!" == "" if "!Player%Player%Position:~0,1!" GEQ "4" if "!Player%Player%Position:~1,1!" GTR "0" (
  375. set /a Player%Player%Position=!Player%Player%Position! - 40
  376. set Puffer=!Money_%Player%!
  377. if "!Player%Player%Position:~0,1!" GTR "1" (
  378. set /a Money_%Player%=!Money_%Player%! + 200
  379. set Go=1
  380. )
  381. )
  382.  
  383.  
  384. :: Reset the fields after having changed the position.
  385. call :SetFields
  386.  
  387. :: Set the new player's position.
  388. set Field!Player%Player%Position!_%Player%=!Char_%Player%!
  389.  
  390. pause >nul
  391.  
  392.  
  393. :RollDone
  394. :RollDone
  395.  
  396. :: Showing the user the new position before dwelling on it.
  397. call :FIELD StepDone
  398.  
  399. call :RecallDisplay StepDone
  400. echo Dice one (%DiceOne%) + dice two (%DiceTwo%) = %Dice%
  401. if "!Go!" == "1" echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%!.
  402.  
  403.  
  404. :StartComparingPositions
  405. :StartComparingPositions
  406. pause >nul
  407. :: Dwelling on the player's position.
  408. if "!Field1_%Player%!" == "!Char_%Player%!" call :GO
  409. if "!Field2_%Player%!" == "!Char_%Player%!" call :MediterraneanAvenue
  410. if "!Field3_%Player%!" == "!Char_%Player%!" call :CommunityChest
  411. if "!Field4_%Player%!" == "!Char_%Player%!" call :BalticAvenue
  412. if "!Field5_%Player%!" == "!Char_%Player%!" call :IncomeTax
  413. if "!Field6_%Player%!" == "!Char_%Player%!" call :ReadingRailroad
  414. if "!Field7_%Player%!" == "!Char_%Player%!" call :OrientalAvenue
  415. if "!Field8_%Player%!" == "!Char_%Player%!" call :Chance
  416. if "!Field9_%Player%!" == "!Char_%Player%!" call :VermontAvenue
  417. if "!Field10_%Player%!" == "!Char_%Player%!" call :ConnecticutAvenue
  418. if "!Field11_%Player%!" == "!Char_%Player%!" call :AtJail
  419. if "!Field12_%Player%!" == "!Char_%Player%!" call :St.CharlesPlace
  420. if "!Field13_%Player%!" == "!Char_%Player%!" call :ElectricCompany
  421. if "!Field14_%Player%!" == "!Char_%Player%!" call :StatesAvenue
  422. if "!Field15_%Player%!" == "!Char_%Player%!" call :VirginiaAvenue
  423. if "!Field16_%Player%!" == "!Char_%Player%!" call :PennsylvaniaRailroad
  424. if "!Field17_%Player%!" == "!Char_%Player%!" call :St.JamesPlace
  425. if "!Field18_%Player%!" == "!Char_%Player%!" call :CommunityChest
  426. if "!Field19_%Player%!" == "!Char_%Player%!" call :TennesseeAvenue
  427. if "!Field20_%Player%!" == "!Char_%Player%!" call :NewYorkAvenue
  428. if "!Field21_%Player%!" == "!Char_%Player%!" call :FreeParking
  429. if "!Field22_%Player%!" == "!Char_%Player%!" call :KentuckyAvenue
  430. if "!Field23_%Player%!" == "!Char_%Player%!" call :Chance
  431. if "!Field24_%Player%!" == "!Char_%Player%!" call :IndianaAvenue
  432. if "!Field25_%Player%!" == "!Char_%Player%!" call :IllinoisAvenue
  433. if "!Field26_%Player%!" == "!Char_%Player%!" call :B.O.Railroad
  434. if "!Field27_%Player%!" == "!Char_%Player%!" call :AtlanticAvenue
  435. if "!Field28_%Player%!" == "!Char_%Player%!" call :VeninorAvenue
  436. if "!Field29_%Player%!" == "!Char_%Player%!" call :WaterWorks
  437. if "!Field30_%Player%!" == "!Char_%Player%!" call :MarvinGardens
  438. if "!Field31_%Player%!" == "!Char_%Player%!" call :SendToJail
  439. if "!Field32_%Player%!" == "!Char_%Player%!" call :PacificAvenue
  440. if "!Field33_%Player%!" == "!Char_%Player%!" call :NorthCarolinaAvenue
  441. if "!Field34_%Player%!" == "!Char_%Player%!" call :CommunityChest
  442. if "!Field35_%Player%!" == "!Char_%Player%!" call :PennsylvaniaAvenue
  443. if "!Field36_%Player%!" == "!Char_%Player%!" call :ShortLineRailroad
  444. if "!Field37_%Player%!" == "!Char_%Player%!" call :Chance
  445. if "!Field38_%Player%!" == "!Char_%Player%!" call :ParkPlace
  446. if "!Field39_%Player%!" == "!Char_%Player%!" call :LuxuryTax
  447. if "!Field40_%Player%!" == "!Char_%Player%!" call :Boardwalk
  448.  
  449. if "%1" == "Chance_Walked" exit /b
  450.  
  451. :: Changes the player
  452. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  453.  
  454.  
  455.  
  456. :: Counting the doublets
  457. set goto_immediately=0
  458. if defined DiceOne if defined DiceTwo if "%DiceOne%" == "%DiceTwo%" (
  459. set /a DiceAmount=!DiceAmount! + 1
  460. echo.
  461. echo You got a doublet [%DiceOne% - %DiceTwo%], you can do another round.
  462. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  463. set goto_immediately=1
  464. pause
  465. )
  466.  
  467. ::Checks if 3 doublets in a row. If so, sends the user to jail.
  468. if "!DiceAmount!" == "3" if "%DiceOne%" == "%DiceTwo%" (
  469. echo You got 3 doublets in a row, you are now sent to jail.
  470. set goto_immediately=0
  471. pause
  472. call :SendToJail Doublets
  473. )
  474. if not "!goto_immediately!" == "1" set DiceAmount=0
  475.  
  476. goto :FIELD
  477.  
  478.  
  479.  
  480.  
  481.  
  482. :: Start of fields.
  483.  
  484.  
  485. :GO
  486. :GO 1
  487. cls
  488. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  489. echo º º
  490. echo º ²²²²²²²²²²² º
  491. echo º ²²² º
  492. echo º ²²² º
  493. echo º ²²² º
  494. echo º ²²² ²²²²²² ²²²²²²²² º
  495. echo º ²²² ²²² ²² ²² º
  496. echo º ²²² ²²² ²² ²² º
  497. echo º ²²² ²²² ²² ²² º
  498. echo º ²²²²²²²²²² ²²²²²²²² º
  499. echo º º
  500. echo º º
  501. echo º º
  502. echo º º
  503. echo º Collect $200 as you pass or º
  504. echo º collect $400 as you meet. º
  505. echo º º
  506. echo º º
  507. echo º º
  508. echo º º
  509. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  510. echo.
  511. echo Current player: %Player% (!Char_%Player%!)
  512. set Puffer=!Money_%Player%!
  513. set /a Money_%Player%=!Money_%Player%! + 400
  514. echo ÄÄÄ^> Money increased from $%Puffer% by $400 to $!Money_%Player%!.
  515. echo.
  516. pause
  517. exit /b
  518.  
  519.  
  520.  
  521.  
  522. :MediterraneanAvenue
  523. :MediterraneanAvenue 2
  524. set Purchase=
  525. set Buy_House=
  526. set PayRent=
  527. set Sell_Street=
  528. if not defined MediterraneanAvenue_Houses set MediterraneanAvenue_Houses=0
  529. cls
  530. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  531. echo º º
  532. echo º Mediterranean Avenue º
  533. echo º º
  534. echo º PRICE $60 RENT $2 º
  535. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  536. echo º With 1 House $10 º
  537. echo º º
  538. echo º With 2 Houses $30 º
  539. echo º º
  540. echo º With 3 Houses $90 º
  541. echo º º
  542. echo º With 4 Houses $160 º
  543. echo º º
  544. echo º With HOTEL $250 º
  545. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  546. echo º One house costs $50 º
  547. echo º º
  548. echo º Mortgage value $30 º
  549. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  550. echo º º
  551. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  552. echo.
  553. echo Current player: %Player% (!Char_%Player%!)
  554. echo Total money: !Money_%Player%!
  555. echo.
  556. if "!MediterraneanAvenue!" == "%Player%" goto :MediterraneanAvenue_Houses
  557. if defined MediterraneanAvenue goto :MediterraneanAvenue_PayRent
  558. echo Press [1] to buy this street for $60 or
  559. echo press [2] to leave it.
  560. set /p Purchase=
  561. if "%Purchase%" == "1" (
  562. set Puffer=!Money_%Player%!
  563. set /a Money_%Player%=!Money_%Player%! - 60
  564. if "!Money_%Player%:~0,1!" == "-" (
  565. echo You have not enough money.
  566. set /a Money_%Player%=!Money_%Player%! + 60
  567. ) ELSE (
  568. echo ÄÄÄ^> Money decreased from $!Puffer! by $60 to $!Money_%Player%!.
  569. set MediterraneanAvenue=%Player%
  570. )
  571. pause
  572. exit /b
  573. )
  574. if "%Purchase%" == "2" exit /b
  575. goto :MediterraneanAvenue
  576. :MediterraneanAvenue_Houses
  577. :MediterraneanAvenue_Houses
  578. if "!MediterraneanAvenue_Houses!" == "5" (
  579. echo This street has got a hotel.
  580. pause
  581. exit /b
  582. ) ELSE (
  583. echo This street has got !MediterraneanAvenue_Houses! houses, yet.
  584. echo.
  585. )
  586. echo Press [1] to buy a new house or
  587. echo press [2] to leave it or
  588. echo press [3] to sell it for $30.
  589. set /p Buy_House=
  590. echo.
  591. if "%Buy_House%" == "1" (
  592. set Puffer=!Money_%Player%!
  593. set /a Money_%Player%=!Money_%Player%! - 50
  594. if "!Money_%Player%:~0,1!" == "-" (
  595. echo You have not enough money.
  596. set /a Money_%Player%=!Money_%Player%! + 50
  597. ) ELSE (
  598. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  599. set /a MediterraneanAvenue_Houses=!MediterraneanAvenue_Houses! + 1
  600. if not "!MediterraneanAvenue_Houses!" == "5" (echo This street has got !MediterraneanAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  601. )
  602. pause
  603. exit /b
  604. )
  605. if "%Buy_House%" == "2" exit /b
  606. if "%Buy_House%" == "3" (
  607. echo Are you sure you want to sell the street? [Y/N]
  608. set /p Sell_Street=
  609. if /i "!Sell_Street!" == "n" exit /b
  610. if /i "!Sell_Street!" == "y" (
  611. set Puffer=!Money_%Player%!
  612. set /a Money_%Player%=!Money_%Player%! + 30
  613. echo ÄÄÄ^> Money increased from $!Puffer! by $30 to $!Money_%Player%!.
  614. set MediterraneanAvenue=
  615. set MediterraneanAvenue_Houses=0
  616. )
  617. )
  618. goto :MediterraneanAvenue_Houses
  619. :MediterraneanAvenue_PayRent
  620. :MediterraneanAvenue_PayRent
  621. if "!MediterraneanAvenue_Houses!" == "0" set PayRent=2
  622. if "!MediterraneanAvenue_Houses!" == "1" set PayRent=10
  623. if "!MediterraneanAvenue_Houses!" == "2" set PayRent=30
  624. if "!MediterraneanAvenue_Houses!" == "3" set PayRent=90
  625. if "!MediterraneanAvenue_Houses!" == "4" set PayRent=160
  626. if "!MediterraneanAvenue_Houses!" == "5" set PayRent=250
  627. echo This street is owned by the other player. You have to pay
  628. echo $%PayRent% to pass.
  629. set Puffer=!Money_%Player%!
  630. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  631. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  632. if "!Money_%Player%:~0,1!" == "-" (
  633. echo.
  634. pause
  635. cls
  636. echo Player %Player% [!Char_%Player%!] is bankrupt.
  637. echo.
  638. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  639. echo Player !Player! wins the game.
  640. echo.
  641. pause
  642. exit
  643. )
  644. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  645. set Player=!Player!
  646. set Puffer=!Money_%Player%!
  647. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  648. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  649. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  650. set Player=!Player!
  651. echo.
  652. pause
  653. exit /b
  654.  
  655.  
  656.  
  657.  
  658.  
  659. :CommunityChest
  660. :CommunityChest 3/18/34
  661. cls
  662. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  663. echo º Community Chest º
  664. echo º º
  665. echo º ################# º
  666. echo º #///////////////## º
  667. echo º #################I# º
  668. echo º #,,,,,,,,,,,,,,,#I# º
  669. echo º #,,,,,,,,,,,,,,,## º
  670. echo º #,,,,,,,,,,,,,,,# º
  671. echo º ################# º
  672. echo º #,,,,,,,,,,,,,,,## º
  673. echo º #,,,,,,,,,,,,,,,#I# º
  674. echo º #################II# º
  675. echo º #jjjjjjjjjjjjjjj#II# º
  676. echo º #jjjjjjjjjjjjjjj#I# º
  677. echo º #jjjjjjjjjjjjjjj## º
  678. echo º ################# º
  679. echo º º
  680. echo º You found a community º
  681. echo º chest, draw a card. º
  682. echo º º
  683. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  684. echo.
  685. echo Current player: %Player% (!Char_%Player%!)
  686. echo Total money: !Money_%Player%!
  687. echo.
  688. :ChooseCommunityCard
  689. :ChooseCommunityCard
  690. set /a ChooseCommunityCard=%random:~0,2% - 15
  691. if "%ChooseCommunityCard:~0,1%" == "-" goto :ChooseCommunityCard
  692. if "%ChooseCommunityCard%" == "0" goto :ChooseCommunityCard
  693. if not "%ChooseCommunityCard:~1,1%" == "" if "%ChooseCommunityCard:~0,1%" GTR "1" (goto :ChooseCommunityCard) ELSE (if "%ChooseCommunityCard:~1,1%" GTR "6" goto :ChooseCommunityCard)
  694. if "!FreeOutOfJail_Community!" == "1" if "%ChooseCommunityCard%" == "7" goto :ChooseCommunityCard
  695. if "%ChooseCommunityCard%" == "1" set Var=%%A
  696. if "%ChooseCommunityCard%" == "2" set Var=%%B
  697. if "%ChooseCommunityCard%" == "3" set Var=%%C
  698. if "%ChooseCommunityCard%" == "4" set Var=%%D
  699. if "%ChooseCommunityCard%" == "5" set Var=%%E
  700. if "%ChooseCommunityCard%" == "6" set Var=%%F
  701. if "%ChooseCommunityCard%" == "7" set Var=%%G
  702. if "%ChooseCommunityCard%" == "8" set Var=%%H
  703. if "%ChooseCommunityCard%" == "9" set Var=%%I
  704. if "%ChooseCommunityCard%" == "10" set Var=%%J
  705. if "%ChooseCommunityCard%" == "11" set Var=%%K
  706. if "%ChooseCommunityCard%" == "12" set Var=%%L
  707. if "%ChooseCommunityCard%" == "13" set Var=%%M
  708. if "%ChooseCommunityCard%" == "14" set Var=%%N
  709. if "%ChooseCommunityCard%" == "15" set Var=%%O
  710. if "%ChooseCommunityCard%" == "16" set Var=%%P
  711. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  712. echo ³ Community Card ³
  713. echo ³ ³
  714. FOR /F "tokens=1-16 delims=/" %%A IN ("³ Grand Opera ³/³ Advance to Go. ³/³ You have won ³/³ Doctor's fee. ³/³ Christmas fund ³/³ You inherit ³/³Get ouf of Jail ³/³You are assessed³/³ From sale of ³/³ Pay school tax ³/³ Income tax ³/³ Receive for ³/³ Pay hospital ³/³ Go directly to ³/³ Life insurance ³/³ Bank error in ³/") DO echo %Var%
  715. FOR /F "tokens=1-16 delims=/" %%A IN ("³Opening: Collect³/³ Collect $200. ³/³second prize in ³/³ Pay $50. ³/³ matures. ³/³ $100. ³/³ free. ³/³ for street ³/³ stock you ³/³ of $150. ³/³ refund. ³/³ serviced $25. ³/³ $100. ³/³ Jail, do not ³/³ matures. ³/³ your favor. ³/") DO echo %Var%
  716. FOR /F "tokens=1-16 delims=/" %%A IN ("³ $50 from every ³/³ ³/³ a beauty ³/³ ³/³ Collect $100. ³/³ ³/³ This card may ³/³ repairs. ³/³ receive $45. ³/³ ³/³ Collect $20. ³/³ ³/³ ³/³pass Go, do not ³/³ Collect $100. ³/³ Collect $200. ³/") DO echo %Var%
  717. FOR /F "tokens=1-16 delims=/" %%A IN ("³ player for ³/³ ³/³ contest ³/³ ³/³ ³/³ ³/³ be kept until ³/³ Pay $40 per ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ collect $200. ³/³ ³/³ ³/") DO echo %Var%
  718. FOR /F "tokens=1-16 delims=/" %%A IN ("³ opening night ³/³ ³/³ Collect $10 ³/³ ³/³ ³/³ ³/³needed, or sold.³/³ house and $115 ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/") DO echo %Var%
  719. FOR /F "tokens=1-16 delims=/" %%A IN ("³ seats. ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ per hotel. ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/") DO echo %Var%
  720. echo ³ ³
  721. echo ³ ³
  722. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  723. if "%ChooseCommunityCard%" == "1" (
  724. set Puffer=!Money_%Player%!
  725. set /a Money_%Player%=!Money_%Player%! + 50
  726. echo ÄÄÄ^> Money increased from $!Puffer! by $50 to $!Money_%Player%!.
  727. )
  728. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  729. set Player=!Player!
  730. if "%ChooseCommunityCard%" == "1" (
  731. set Puffer=!Money_%Player%!
  732. set /a Money_%Player%=!Money_%Player%! - 50
  733. echo ÄÄÄ^> The other player's money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  734. if "!Money_%Player%:~0,1!" == "-" (
  735. echo.
  736. pause
  737. cls
  738. echo Player %Player% [!Char_%Player%!] is bankrupt.
  739. echo.
  740. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  741. echo Player !Player! wins the game.
  742. echo.
  743. pause
  744. exit
  745. )
  746. )
  747. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  748. set Player=!Player!
  749. if "%ChooseCommunityCard%" == "2" (
  750. set Field!Player%Player%Position!_%Player%=,
  751. set Player%Player%Position=1
  752. set Field1_%Player%=!Char_%Player%!
  753. pause
  754. call :SetFields
  755. call :FIELD Chance_Walked
  756. )
  757. if "%ChooseCommunityCard%" == "3" (
  758. set Puffer=!Money_%Player%!
  759. set /a Money_%Player%=!Money_%Player%! + 10
  760. echo ÄÄÄ^> Money increased from $!Puffer! by $10 to $!Money_%Player%!.
  761. )
  762. if "%ChooseCommunityCard%" == "4" (
  763. set Puffer=!Money_%Player%!
  764. set /a Money_%Player%=!Money_%Player%! - 50
  765. set /a Money_Parking=!Money_Parking! + 50
  766. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  767. echo ^& $50 went into Free Parking.
  768. if "!Money_%Player%:~0,1!" == "-" (
  769. echo.
  770. pause
  771. cls
  772. echo Player %Player% [!Char_%Player%!] is bankrupt.
  773. echo.
  774. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  775. echo Player !Player! wins the game.
  776. echo.
  777. pause
  778. exit
  779. )
  780. )
  781. if "%ChooseCommunityCard%" == "5" (
  782. set Puffer=!Money_%Player%!
  783. set /a Money_%Player%=!Money_%Player%! + 100
  784. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  785. )
  786. if "%ChooseCommunityCard%" == "6" (
  787. set Puffer=!Money_%Player%!
  788. set /a Money_%Player%=!Money_%Player%! + 100
  789. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  790. )
  791. if "%ChooseCommunityCard%" == "7" (
  792. set FreeOutOfJail_%Player%=1
  793. set FreeOutOfJail_Community=1
  794. )
  795. if "%ChooseCommunityCard%" == "8" (
  796. set Houses_%Player%=0
  797. set Hotels_%Player%=0
  798. set PayForHouses=0
  799. set PayForHotels=0
  800. set PayForHousesAndHotels=0
  801. FOR %%A IN (MediterraneanAvenue BalticAvenue ReadingRailroad OrientalAvenue VermontAvenue ConnecticutAvenue St.CharlesPlace ElectricCompany StatesAvenue VirginiaAvenue PennsylvaniaRailroad St.JamesPlace TennesseeAvenue NewYorkAvenue KentuckyAvenue IndianaAvenue IllinoisAvenue B.O.Railroad AtlanticAvenue VeninorAvenue WaterWorks MarvinGardens PacificAvenue NorthCarolinaAvenue PennsylvaniaAvenue ShortLine ParkPlace Boardwalk) DO (
  802. if "!%%A!" == "%Player%" (
  803. if not "!%%A_Houses!" == "5" (set /a Houses_%Player%=!Houses_%Player%! + !%%A_Houses!) ELSE (set /a Hotels_%Player%=!Hotels_%Player%! + 1)
  804. )
  805. )
  806. set /a PayForHouses=!Houses_%Player%! * 40
  807. set /a PayForHotels=!Hotels_%Player%! * 115
  808. echo You have to pay $!PayForHouses! for !Houses_%Player%! houses and
  809. echo you have to pay $!PayForHotels! for !Hotels_%Player%! hotels.
  810. echo.
  811. set /a PayForHousesAndHotels=!PayForHouses! + !PayForHotels!
  812. set Puffer=!Money_%Player%!
  813. set /a Money_%Player%=!Money_%Player%! - !PayForHousesAndHotels!
  814. set /a Money_Parking=!Money_Parking! + !PayForHousesAndHotels!
  815. echo ÄÄÄ^> Money decreased from $!Puffer! by $!PayForHousesAndHotels! to $!Money_%Player%!.
  816. echo ^& $!PayForHousesAndHotels! went into Free Parking.
  817. if "!Money_%Player%:~0,1!" == "-" (
  818. echo.
  819. pause
  820. cls
  821. echo Player %Player% [!Char_%Player%!] is bankrupt.
  822. echo.
  823. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  824. echo Player !Player! wins the game.
  825. echo.
  826. pause
  827. exit
  828. )
  829. )
  830. if "%ChooseCommunityCard%" == "9" (
  831. set Puffer=!Money_%Player%!
  832. set /a Money_%Player%=!Money_%Player%! + 45
  833. echo ÄÄÄ^> Money increased from $!Puffer! by $45 to $!Money_%Player%!.
  834. )
  835. if "%ChooseCommunityCard%" == "10" (
  836. set Puffer=!Money_%Player%!
  837. set /a Money_%Player%=!Money_%Player%! - 150
  838. set /a Money_Parking=!Money_Parking! + 150
  839. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  840. echo ^& $150 went into Free Parking.
  841. if "!Money_%Player%:~0,1!" == "-" (
  842. echo.
  843. pause
  844. cls
  845. echo Player %Player% [!Char_%Player%!] is bankrupt.
  846. echo.
  847. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  848. echo Player !Player! wins the game.
  849. echo.
  850. pause
  851. exit
  852. )
  853. )
  854. if "%ChooseCommunityCard%" == "11" (
  855. set Puffer=!Money_%Player%!
  856. set /a Money_%Player%=!Money_%Player%! + 20
  857. echo ÄÄÄ^> Money increased from $!Puffer! by $20 to $!Money_%Player%!.
  858. )
  859. if "%ChooseCommunityCard%" == "12" (
  860. set Puffer=!Money_%Player%!
  861. set /a Money_%Player%=!Money_%Player%! + 25
  862. echo ÄÄÄ^> Money increased from $!Puffer! by $25 to $!Money_%Player%!.
  863. )
  864. if "%ChooseCommunityCard%" == "13" (
  865. set Puffer=!Money_%Player%!
  866. set /a Money_%Player%=!Money_%Player%! - 100
  867. set /a Money_Parking=!Money_Parking! + 100
  868. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  869. echo ^& $100 went into Free Parking.
  870. if "!Money_%Player%:~0,1!" == "-" (
  871. echo.
  872. pause
  873. cls
  874. echo Player %Player% [!Char_%Player%!] is bankrupt.
  875. echo.
  876. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  877. echo Player !Player! wins the game.
  878. echo.
  879. pause
  880. exit
  881. )
  882. )
  883. if "%ChooseCommunityCard%" == "14" (
  884. pause
  885. call :SendToJail
  886. )
  887. if "%ChooseCommunityCard%" == "15" (
  888. set Puffer=!Money_%Player%!
  889. set /a Money_%Player%=!Money_%Player%! + 100
  890. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  891. )
  892. if "%ChooseCommunityCard%" == "16" (
  893. set Puffer=!Money_%Player%!
  894. set /a Money_%Player%=!Money_%Player%! + 200
  895. echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%!.
  896. )
  897. pause
  898. exit /b
  899.  
  900.  
  901.  
  902.  
  903. :BalticAvenue
  904. :BalticAvenue 4
  905. set Purchase=
  906. set Buy_House=
  907. set PayRent=
  908. set Sell_Street=
  909. if not defined BalticAvenue_Houses set BalticAvenue_Houses=0
  910. cls
  911. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  912. echo º º
  913. echo º Baltic Avenue º
  914. echo º º
  915. echo º PRICE $60 RENT $4 º
  916. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  917. echo º With 1 House $20 º
  918. echo º º
  919. echo º With 2 Houses $60 º
  920. echo º º
  921. echo º With 3 Houses $180 º
  922. echo º º
  923. echo º With 4 Houses $320 º
  924. echo º º
  925. echo º With HOTEL $450 º
  926. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  927. echo º One house costs $50 º
  928. echo º º
  929. echo º Mortgage value $30 º
  930. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  931. echo º º
  932. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  933. echo.
  934. echo Current player: %Player% (!Char_%Player%!)
  935. echo Total money: !Money_%Player%!
  936. echo.
  937. if "!BalticAvenue!" == "%Player%" goto :BalticAvenue_Houses
  938. if defined BalticAvenue goto :BalticAvenue_PayRent
  939. echo Press [1] to buy this street for $60 or
  940. echo press [2] to leave it.
  941. set /p Purchase=
  942. if "%Purchase%" == "1" (
  943. set Puffer=!Money_%Player%!
  944. set /a Money_%Player%=!Money_%Player%! - 60
  945. if "!Money_%Player%:~0,1!" == "-" (
  946. echo You have not enough money.
  947. set /a Money_%Player%=!Money_%Player%! + 60
  948. ) ELSE (
  949. echo ÄÄÄ^> Money decreased from $!Puffer! by $60 to $!Money_%Player%!.
  950. set BalticAvenue=%Player%
  951. )
  952. pause
  953. exit /b
  954. )
  955. if "%Purchase%" == "2" exit /b
  956. goto :BalticAvenue
  957. :BalticAvenue_Houses
  958. :BalticAvenue_Houses
  959. if "!BalticAvenue_Houses!" == "5" (
  960. echo This street has got a hotel.
  961. pause
  962. exit /b
  963. ) ELSE (
  964. echo This street has got !BalticAvenue_Houses! houses, yet.
  965. echo.
  966. )
  967. echo Press [1] to buy a new house or
  968. echo press [2] to leave it or
  969. echo press [3] to sell it for $30.
  970. set /p Buy_House=
  971. echo.
  972. if "%Buy_House%" == "1" (
  973. set Puffer=!Money_%Player%!
  974. set /a Money_%Player%=!Money_%Player%! - 50
  975. if "!Money_%Player%:~0,1!" == "-" (
  976. echo You have not enough money.
  977. set /a Money_%Player%=!Money_%Player%! + 50
  978. ) ELSE (
  979. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  980. set /a BalticAvenue_Houses=!BalticAvenue_Houses! + 1
  981. if not "!BalticAvenue_Houses!" == "5" (echo This street has got !BalticAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  982. )
  983. pause
  984. exit /b
  985. )
  986. if "%Buy_House%" == "2" exit /b
  987. if "%Buy_House%" == "3" (
  988. echo Are you sure you want to sell the street? [Y/N]
  989. set /p Sell_Street=
  990. if /i "!Sell_Street!" == "n" exit /b
  991. if /i "!Sell_Street!" == "y" (
  992. set Puffer=!Money_%Player%!
  993. set /a Money_%Player%=!Money_%Player%! + 30
  994. echo ÄÄÄ^> Money increased from $!Puffer! by $30 to $!Money_%Player%!.
  995. set BalticAvenue=
  996. set BalticAvenue_Houses=0
  997. )
  998. )
  999. goto :BalticAvenue_Houses
  1000. :BalticAvenue_PayRent
  1001. :BalticAvenue_PayRent
  1002. if "!BalticAvenue_Houses!" == "0" set PayRent=4
  1003. if "!BalticAvenue_Houses!" == "1" set PayRent=20
  1004. if "!BalticAvenue_Houses!" == "2" set PayRent=60
  1005. if "!BalticAvenue_Houses!" == "3" set PayRent=180
  1006. if "!BalticAvenue_Houses!" == "4" set PayRent=320
  1007. if "!BalticAvenue_Houses!" == "5" set PayRent=450
  1008. echo This street is owned by the other player. You have to pay
  1009. echo $%PayRent% to pass.
  1010. set Puffer=!Money_%Player%!
  1011. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  1012. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1013. if "!Money_%Player%:~0,1!" == "-" (
  1014. echo.
  1015. pause
  1016. cls
  1017. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1018. echo.
  1019. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1020. echo Player !Player! wins the game.
  1021. echo.
  1022. pause
  1023. exit
  1024. )
  1025. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1026. set Player=!Player!
  1027. set Puffer=!Money_%Player%!
  1028. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  1029. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1030. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1031. set Player=!Player!
  1032. echo.
  1033. pause
  1034. exit /b
  1035.  
  1036.  
  1037.  
  1038.  
  1039. :IncomeTax
  1040. :IncomeTax 5
  1041. set IncomeTax=
  1042. cls
  1043. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1044. echo º INCOME º
  1045. echo º º
  1046. echo º TAX º
  1047. echo º º
  1048. echo º º
  1049. echo º You can pay 10%% of º
  1050. echo º º
  1051. echo º your total money º
  1052. echo º º
  1053. echo º amount or you can pay º
  1054. echo º º
  1055. echo º$200 to pass this field.º
  1056. echo º º
  1057. echo º º
  1058. echo º º
  1059. echo º º
  1060. echo º º
  1061. echo º º
  1062. echo º º
  1063. echo º º
  1064. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1065. echo.
  1066. echo Current player: %Player% (!Char_%Player%!)
  1067. echo Total money: !Money_%Player%!
  1068. echo.
  1069. echo Press [1] to pay 10%% of your total money or
  1070. echo press [2] to pay $200.
  1071. set /p IncomeTax=
  1072. if "%IncomeTax%" == "1" (
  1073. set /a Decrease=!Money_%Player%! / 10
  1074. set Puffer=!Money_%Player%!
  1075. set /a Money_%Player%=!Money_%Player%! - !Decrease!
  1076. set /a Money_Parking=!Money_Parking! + !Decrease!
  1077. echo ÄÄÄ^> Money decreased from $!Puffer! by $!Decrease! to $!Money_%Player%!.
  1078. echo ^& $!Decrease! went into Free Parking.
  1079. set IncomeTax=Done
  1080. )
  1081. if "%IncomeTax%" == "2" (
  1082. set Puffer=!Money_%Player%!
  1083. set /a Money_%Player%=!Money_%Player%! - 200
  1084. if "!Money_%Player%:~0,1!" == "-" (
  1085. echo You have not enough money.
  1086. set /a Money_%Player%=!Money_%Player%! + 200
  1087. ) ELSE (
  1088. set /a Money_Parking=!Money_Parking! + 200
  1089. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  1090. echo ^& $200 went into Free Parking.
  1091. set IncomeTax=Done
  1092. )
  1093. )
  1094. if not "!IncomeTax!" == "Done" goto :IncomeTax
  1095. echo.
  1096. pause
  1097. exit /b
  1098.  
  1099.  
  1100.  
  1101.  
  1102. :ReadingRailroad
  1103. :ReadingRailroad 6
  1104. set Purchase=
  1105. set PayRent=
  1106. set Buy_House=
  1107. set Sell_Street=
  1108. set RailroadAmount=0
  1109. cls
  1110. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1111. echo º º
  1112. echo º Reading Railroad º
  1113. echo º º
  1114. echo º PRICE $200 º
  1115. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1116. echo º º
  1117. echo º º
  1118. echo º If 1 owned $25 º
  1119. echo º º
  1120. echo º If 2 owned $50 º
  1121. echo º º
  1122. echo º If 3 owned $100 º
  1123. echo º º
  1124. echo º If 4 owned $200 º
  1125. echo º º
  1126. echo º º
  1127. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1128. echo º Mortgage value $100 º
  1129. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1130. echo º º
  1131. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1132. echo.
  1133. echo Current player: %Player% (!Char_%Player%!)
  1134. echo Total money: !Money_%Player%!
  1135. echo.
  1136. if "!ReadingRailroad!" == "%Player%" goto :ReadingRailroad_Houses
  1137. if defined ReadingRailroad goto :ReadingRailroad_PayRent
  1138. echo Press [1] to buy this railroad for $200 or
  1139. echo press [2] to leave it.
  1140. set /p Purchase=
  1141. if "%Purchase%" == "1" (
  1142. set Puffer=!Money_%Player%!
  1143. set /a Money_%Player%=!Money_%Player%! - 200
  1144. if "!Money_%Player%:~0,1!" == "-" (
  1145. echo You have not enough money.
  1146. set /a Money_%Player%=!Money_%Player%! + 200
  1147. ) ELSE (
  1148. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  1149. set ReadingRailroad=%Player%
  1150. )
  1151. pause
  1152. exit /b
  1153. )
  1154. if "%Purchase%" == "2" exit /b
  1155. goto :ReadingRailroad
  1156. :ReadingRailroad_Houses
  1157. :ReadingRailroad_Houses
  1158. echo This railroad is yours.
  1159. echo.
  1160. echo Press [2] to leave it or
  1161. echo press [3] to sell it for $100.
  1162. set /p Buy_House=
  1163. echo.
  1164. if "%Buy_House%" == "2" exit /b
  1165. if "%Buy_House%" == "3" (
  1166. echo Are you sure you want to sell this railroad? [Y/N]
  1167. set /p Sell_Street=
  1168. if /i "!Sell_Street!" == "n" exit /b
  1169. if /i "!Sell_Street!" == "y" (
  1170. set Puffer=!Money_%Player%!
  1171. set /a Money_%Player%=!Money_%Player%! + 100
  1172. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  1173. set ReadingRailroad=
  1174. )
  1175. )
  1176. goto :ReadingRailroad_Houses
  1177. :ReadingRailroad_PayRent
  1178. :ReadingRailroad_PayRent
  1179. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  1180. set Player=!Player!
  1181. FOR %%A IN (ReadingRailroad PennsylvaniaRailroad B.O.Railroad ShortLineRailroad) DO if "!%%A!" == "%Player%" set /a RailroadAmount=!RailroadAmount! + 1
  1182. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  1183. set Player=!Player!
  1184. echo The other player owns !RailroadAmount! of 4 railroads.
  1185. if "!RailroadAmount!" == "1" set PayRent=25
  1186. if "!RailroadAmount!" == "2" set PayRent=50
  1187. if "!RailroadAmount!" == "3" set PayRent=100
  1188. if "!RailroadAmount!" == "4" set PayRent=200
  1189. if "!RentalTwice!" == "1" set /a PayRent=%PayRent% * 2
  1190. set Puffer=!Money_%Player%!
  1191. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  1192. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1193. if "!Money_%Player%:~0,1!" == "-" (
  1194. echo.
  1195. pause
  1196. cls
  1197. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1198. echo.
  1199. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1200. echo Player !Player! wins the game.
  1201. echo.
  1202. pause
  1203. exit
  1204. )
  1205. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1206. set Player=!Player!
  1207. set Puffer=!Money_%Player%!
  1208. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  1209. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1210. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1211. set Player=!Player!
  1212. echo.
  1213. pause
  1214. exit /b
  1215.  
  1216.  
  1217.  
  1218.  
  1219. :OrientalAvenue
  1220. :OrientalAvenue 7
  1221. set Purchase=
  1222. set Buy_House=
  1223. set PayRent=
  1224. set Sell_Street=
  1225. if not defined OrientalAvenue_Houses set OrientalAvenue_Houses=0
  1226. cls
  1227. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1228. echo º º
  1229. echo º Oriental Avenue º
  1230. echo º º
  1231. echo º PRICE $100 RENT $6 º
  1232. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1233. echo º With 1 House $30 º
  1234. echo º º
  1235. echo º With 2 Houses $90 º
  1236. echo º º
  1237. echo º With 3 Houses $270 º
  1238. echo º º
  1239. echo º With 4 Houses $400 º
  1240. echo º º
  1241. echo º With HOTEL $550 º
  1242. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1243. echo º One house costs $50 º
  1244. echo º º
  1245. echo º Mortgage value $50 º
  1246. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1247. echo º º
  1248. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1249. echo.
  1250. echo Current player: %Player% (!Char_%Player%!)
  1251. echo Total money: !Money_%Player%!
  1252. echo.
  1253. if "!OrientalAvenue!" == "%Player%" goto :OrientalAvenue_Houses
  1254. if defined OrientalAvenue goto :OrientalAvenue_PayRent
  1255. echo Press [1] to buy this street for $100 or
  1256. echo press [2] to leave it.
  1257. set /p Purchase=
  1258. if "%Purchase%" == "1" (
  1259. set Puffer=!Money_%Player%!
  1260. set /a Money_%Player%=!Money_%Player%! - 100
  1261. if "!Money_%Player%:~0,1!" == "-" (
  1262. echo You have not enough money.
  1263. set /a Money_%Player%=!Money_%Player%! + 100
  1264. ) ELSE (
  1265. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  1266. set OrientalAvenue=%Player%
  1267. )
  1268. pause
  1269. exit /b
  1270. )
  1271. if "%Purchase%" == "2" exit /b
  1272. goto :OrientalAvenue
  1273. :OrientalAvenue_Houses
  1274. :OrientalAvenue_Houses
  1275. if "!OrientalAvenue_Houses!" == "5" (
  1276. echo This street has got a hotel.
  1277. pause
  1278. exit /b
  1279. ) ELSE (
  1280. echo This street has got !OrientalAvenue_Houses! houses, yet.
  1281. echo.
  1282. )
  1283. echo Press [1] to buy a new house or
  1284. echo press [2] to leave it or
  1285. echo press [3] to sell it for $50.
  1286. set /p Buy_House=
  1287. echo.
  1288. if "%Buy_House%" == "1" (
  1289. set Puffer=!Money_%Player%!
  1290. set /a Money_%Player%=!Money_%Player%! - 50
  1291. if "!Money_%Player%:~0,1!" == "-" (
  1292. echo You have not enough money.
  1293. set /a Money_%Player%=!Money_%Player%! + 50
  1294. ) ELSE (
  1295. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  1296. set /a OrientalAvenue_Houses=!OrientalAvenue_Houses! + 1
  1297. if not "!OrientalAvenue_Houses!" == "5" (echo This street has got !OrientalAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  1298. )
  1299. pause
  1300. exit /b
  1301. )
  1302. if "%Buy_House%" == "2" exit /b
  1303. if "%Buy_House%" == "3" (
  1304. echo Are you sure you want to sell the street? [Y/N]
  1305. set /p Sell_Street=
  1306. if /i "!Sell_Street!" == "n" exit /b
  1307. if /i "!Sell_Street!" == "y" (
  1308. set Puffer=!Money_%Player%!
  1309. set /a Money_%Player%=!Money_%Player%! + 50
  1310. echo ÄÄÄ^> Money increased from $!Puffer! by $50 to $!Money_%Player%!.
  1311. set OrientalAvenue=
  1312. set OrientalAvenue_Houses=0
  1313. )
  1314. )
  1315. goto :OrientalAvenue_Houses
  1316. :OrientalAvenue_PayRent
  1317. :OrientalAvenue_PayRent
  1318. if "!OrientalAvenue_Houses!" == "0" set PayRent=6
  1319. if "!OrientalAvenue_Houses!" == "1" set PayRent=30
  1320. if "!OrientalAvenue_Houses!" == "2" set PayRent=90
  1321. if "!OrientalAvenue_Houses!" == "3" set PayRent=270
  1322. if "!OrientalAvenue_Houses!" == "4" set PayRent=400
  1323. if "!OrientalAvenue_Houses!" == "5" set PayRent=550
  1324. echo This street is owned by the other player. You have to pay
  1325. echo $%PayRent% to pass.
  1326. set Puffer=!Money_%Player%!
  1327. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  1328. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1329. if "!Money_%Player%:~0,1!" == "-" (
  1330. echo.
  1331. pause
  1332. cls
  1333. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1334. echo.
  1335. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1336. echo Player !Player! wins the game.
  1337. echo.
  1338. pause
  1339. exit
  1340. )
  1341. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1342. set Player=!Player!
  1343. set Puffer=!Money_%Player%!
  1344. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  1345. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1346. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1347. set Player=!Player!
  1348. echo.
  1349. pause
  1350. exit /b
  1351.  
  1352.  
  1353.  
  1354.  
  1355. :Chance
  1356. :Chance 8/23/37
  1357. cls
  1358. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1359. echo º Chance º
  1360. echo º º
  1361. echo º KKKKKKK º
  1362. echo º KKKj KKK º
  1363. echo º KKK KKK º
  1364. echo º KKK KKK º
  1365. echo º KK KKK º
  1366. echo º KKK º
  1367. echo º KKK º
  1368. echo º KKK º
  1369. echo º KKK º
  1370. echo º KKK º
  1371. echo º KKK º
  1372. echo º KKK º
  1373. echo º º
  1374. echo º KKK º
  1375. echo º KKK º
  1376. echo º º
  1377. echo º Draw a card. º
  1378. echo º º
  1379. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1380. echo.
  1381. echo Current player: %Player% (!Char_%Player%!)
  1382. echo Total money: !Money_%Player%!
  1383. echo.
  1384. :ChooseChanceCard
  1385. :ChooseChanceCard
  1386. set /a ChooseChanceCard=%random:~0,2% - 14
  1387. if "%ChooseChanceCard%" == "0" goto :ChooseChanceCard
  1388. if "%ChooseChanceCard:~1,1%" == "-" goto :ChooseChanceCard
  1389. if not "%ChooseChanceCard:~1,1%" == "" if "%ChooseChanceCard:~0,1%" GTR "1" (goto :ChooseChanceCard) ELSE (if "%ChooseChanceCard:~1,1%" GTR "5" goto :ChooseChanceCard)
  1390. if "!FreeOutOfJail_Chance!" == "1" if "%ChooseChanceCard%" == "12" goto :ChooseChanceCard
  1391. if "%ChooseChanceCard%" == "1" set Var=%%A
  1392. if "%ChooseChanceCard%" == "2" set Var=%%B
  1393. if "%ChooseChanceCard%" == "3" set Var=%%C
  1394. if "%ChooseChanceCard%" == "4" set Var=%%D
  1395. if "%ChooseChanceCard%" == "5" set Var=%%E
  1396. if "%ChooseChanceCard%" == "6" set Var=%%F
  1397. if "%ChooseChanceCard%" == "7" set Var=%%G
  1398. if "%ChooseChanceCard%" == "8" set Var=%%H
  1399. if "%ChooseChanceCard%" == "9" set Var=%%I
  1400. if "%ChooseChanceCard%" == "10" set Var=%%J
  1401. if "%ChooseChanceCard%" == "11" set Var=%%K
  1402. if "%ChooseChanceCard%" == "12" set Var=%%L
  1403. if "%ChooseChanceCard%" == "13" set Var=%%M
  1404. if "%ChooseChanceCard%" == "14" set Var=%%N
  1405. if "%ChooseChanceCard%" == "15" set Var=%%O
  1406. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  1407. echo ³ Chance Card ³
  1408. echo ³ ³
  1409. FOR /F "tokens=1-15 delims=/" %%A IN ("³ Your building ³/³ Bank pays you ³/³ Go back ³/³ Make general ³/³ Take a walk on ³/³Advance token to³/³ Advance to the ³/³ Advance to ³/³ Pay poor tax ³/³ Advance to Go. ³/³ Advance to St. ³/³Get out of Jail ³/³ Take a ride on ³/³ Go directly to ³/³ You have been ³/") DO echo %Var%
  1410. FOR /F "tokens=1-15 delims=/" %%A IN ("³ and loan ³/³ dividend of ³/³ 3 spaces. ³/³ repairs on all ³/³ the Boardwalk. ³/³nearest utility.³/³ nearest ³/³Illinois Avenue.³/³ of $15. ³/³ ³/³ Charles Place. ³/³ free. ³/³ the Reading ³/³ Jail, do not ³/³elected Chairman³/") DO echo %Var%
  1411. FOR /F "tokens=1-15 delims=/" %%A IN ("³ matures. ³/³ $50. ³/³ ³/³ your property. ³/³ Advance token ³/³If unowned, you ³/³Railroad and pay³/³ ³/³ ³/³ ³/³If you pass Go, ³/³This card may be³/³ Railroad. ³/³pass Go, do not ³/³ of the board. ³/") DO echo %Var%
  1412. FOR /F "tokens=1-15 delims=/" %%A IN ("³ Collect $150. ³/³ ³/³ ³/³Pay $25 for each³/³ to Boardwalk. ³/³may buy it from ³/³the owner twice ³/³If you pass Go, ³/³ ³/³ ³/³ collect $200. ³/³ kept until ³/³If you pass Go, ³/³ collect $200. ³/³Pay each player ³/") DO echo %Var%
  1413. FOR /F "tokens=1-15 delims=/" %%A IN ("³ ³/³ ³/³ ³/³ house and $100 ³/³ ³/³ the Bank. If ³/³ the rental. If ³/³ collect $200. ³/³ ³/³ ³/³ ³/³needed, or sold.³/³ collect $200. ³/³ ³/³ $50. ³/") DO echo %Var%
  1414. FOR /F "tokens=1-15 delims=/" %%A IN ("³ ³/³ ³/³ ³/³ for each hotel.³/³ ³/³ owned, throw ³/³unowned, you may³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/³ ³/") DO echo %Var%
  1415. if "%ChooseChanceCard%" == "6" (echo ³dice and pay the³) ELSE (if "%ChooseChanceCard%" == "7" (echo ³buy it from bank³) ELSE (echo ³ ³))
  1416. if "%ChooseChanceCard%" == "6" (echo ³ owner a total ³) ELSE (echo ³ ³)
  1417. if "%ChooseChanceCard%" == "6" echo ³ ten times the ³
  1418. if "%ChooseChanceCard%" == "6" echo ³ amount thrown. ³
  1419. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  1420. if "%ChooseChanceCard%" == "1" (
  1421. set Puffer=!Money_%Player%!
  1422. set /a Money_%Player%=!Money_%Player%! + 150
  1423. echo ÄÄÄ^> Money increased from $!Puffer! by $150 to $!Money_%Player%!.
  1424. )
  1425. if "%ChooseChanceCard%" == "2" (
  1426. set Puffer=!Money_%Player%!
  1427. set /a Money_%Player%=!Money_%Player%! + 50
  1428. echo ÄÄÄ^> Money increased from $!Puffer! by $50 to $!Money_%Player%!.
  1429. )
  1430. if "%ChooseChanceCard%" == "3" (
  1431. set Field!Player%Player%Position!_%Player%=
  1432. set /a Player%Player%Position=!Player%Player%Position! - 3
  1433. set Field!Player%Player%Position!_%Player%=!Char_%Player%!
  1434. pause
  1435. call :SetFields
  1436. call :FIELD Chance_Walked
  1437. )
  1438. if "%ChooseChanceCard%" == "4" (
  1439. set Houses_%Player%=0
  1440. set Hotels_%Player%=0
  1441. set PayForHouses=0
  1442. set PayForHotels=0
  1443. set PayForHousesAndHotels=0
  1444. FOR %%A IN (MediterraneanAvenue BalticAvenue ReadingRailroad OrientalAvenue VermontAvenue ConnecticutAvenue St.CharlesPlace ElectricCompany StatesAvenue VirginiaAvenue PennsylvaniaRailroad St.JamesPlace TennesseeAvenue NewYorkAvenue KentuckyAvenue IndianaAvenue IllinoisAvenue B.O.Railroad AtlanticAvenue VeninorAvenue WaterWorks MarvinGardens PacificAvenue NorthCarolinaAvenue PennsylvaniaAvenue ShortLine ParkPlace Boardwalk) DO (
  1445. if "!%%A!" == "%Player%" (
  1446. if not "!%%A_Houses!" == "5" (set /a Houses_%Player%=!Houses_%Player%! + !%%A_Houses!) ELSE (set /a Hotels_%Player%=!Hotels_%Player%! + 1)
  1447. )
  1448. )
  1449. set /a PayForHouses=!Houses_%Player%! * 25
  1450. set /a PayForHotels=!Hotels_%Player%! * 100
  1451. echo You have to pay $!PayForHouses! for !Houses_%Player%! houses and
  1452. echo you have to pay $!PayForHotels! for !Hotels_%Player%! hotels.
  1453. echo.
  1454. set /a PayForHousesAndHotels=!PayForHouses! + !PayForHotels!
  1455. set Puffer=!Money_%Player%!
  1456. set /a Money_%Player%=!Money_%Player%! - !PayForHousesAndHotels!
  1457. set /a Money_Parking=!Money_Parking! + !PayForHousesAndHotels!
  1458. echo ÄÄÄ^> Money decreased from $!Puffer! by $!PayForHousesAndHotels! to $!Money_%Player%!.
  1459. echo ^& $!PayForHousesAndHotels! went into Free Parking.
  1460. if "!Money_%Player%:~0,1!" == "-" (
  1461. echo.
  1462. pause
  1463. cls
  1464. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1465. echo.
  1466. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1467. echo Player !Player! wins the game.
  1468. echo.
  1469. pause
  1470. exit
  1471. )
  1472. )
  1473. if "%ChooseChanceCard%" == "5" (
  1474. set Field!Player%Player%Position!_%Player%=
  1475. set Player%Player%Position=40
  1476. set Field40_%Player%=!Char_%Player%!
  1477. pause
  1478. call :SetFields
  1479. call :FIELD Chance_Walked
  1480. )
  1481. if "%ChooseChanceCard%" == "6" (
  1482. :Chance_RollADice
  1483. set DiceOne=%random:~0,1%
  1484. set DiceTwo=%random:~0,1%
  1485. if "!DiceOne!" EQU "0" goto :Chance_RollADice
  1486. if "!DiceOne!" GTR "6" goto :Chance_RollADice
  1487. if "!DiceTwo!" EQU "0" goto :Chance_RollADice
  1488. if "!DiceTwo!" GTR "6" goto :Chance_RollADice
  1489. set /a Dice=!DiceOne! + !DiceTwo!
  1490. pause
  1491. if "!Player%Player%Position!" == "8" (
  1492. set Field8_%Player%=
  1493. set Field12_%Player%=!Char_%Player%!
  1494. set Player%Player%Position=12
  1495. call :ElectricCompany CameByChance
  1496. ) ELSE (
  1497. set Field!Player%Player%Position!_%Player%=
  1498. set Field29_%Player%=!Char_%Player%!
  1499. set Player%Player%Position=29
  1500. call :SetFields
  1501. call :WaterWorks CameByChance
  1502. )
  1503. )
  1504. if "%ChooseChanceCard%" == "7" (
  1505. if "!Player%Player%Position:~1,1!" == "" (
  1506. set Field!Player%Player%Position!_%Player%=
  1507. set Field6_%Player%=!Char_%Player%!
  1508. set Player%Player%Position=6
  1509. ) ELSE (
  1510. set Field!Player%Player%Position!_%Player%=
  1511. set Field!Player%Player%Position:~0,1!6_%Player%=!Char_%Player%!
  1512. set Player%Player%Position=!Player%Player%Position:~0,1!6
  1513. )
  1514. set RentalTwice=1
  1515. pause
  1516. call :SetFields
  1517. call :FIELD Chance_Walked
  1518. )
  1519. if "%ChooseChanceCard%" == "8" (
  1520. if "!Player%Player%Position!" == "37" (
  1521. set Puffer=!Money_%Player%!
  1522. set /a Money_%Player%=!Money_%Player%! + 200
  1523. echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%! by passing Go.
  1524. )
  1525. set Field!Player%Player%Position!_%Player%=
  1526. set Player%Player%Position=25
  1527. set Field25_%Player%=!Char_%Player%!
  1528. pause
  1529. call :SetFields
  1530. call :FIELD Chance_Walked
  1531. )
  1532. if "%ChooseChanceCard%" == "9" (
  1533. set Puffer=!Money_%Player%!
  1534. set /a Money_%Player%=!Money_%Player%! - 15
  1535. set /a Money_Parking=!Money_Parking! + 15
  1536. echo ÄÄÄ^> Money decreased from $!Puffer! by $15 to $!Money_%Player%!.
  1537. echo ^& $15 went into Free Parking.
  1538. if "!Money_%Player%:~0,1!" == "-" (
  1539. echo.
  1540. pause
  1541. cls
  1542. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1543. echo.
  1544. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1545. echo Player !Player! wins the game.
  1546. echo.
  1547. pause
  1548. exit
  1549. )
  1550. )
  1551. if "%ChooseChanceCard%" == "10" (
  1552. set Field!Player%Player%Position!_%Player%=
  1553. set Player%Player%Position=1
  1554. set Field1_%Player%=!Char_%Player%!
  1555. pause
  1556. call :SetFields
  1557. call :FIELD Chance_Walked
  1558. )
  1559. if "%ChooseChanceCard%" == "11" (
  1560. if not "!Player%Player%Position!" == "8" (
  1561. set Puffer=!Money_%Player%!
  1562. set /a Money_%Player%=!Money_%Player%! + 200
  1563. echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%! by passing Go.
  1564. )
  1565. set Field!Player%Player%Position!_%Player%=
  1566. set Player%Player%Position=12
  1567. set Field12_%Player%=!Char_%Player%!
  1568. pause
  1569. call :SetFields
  1570. call :FIELD Chance_Walked
  1571. )
  1572. if "%ChooseChanceCard%" == "12" (
  1573. set FreeOutOfJail_%Player%=1
  1574. set FreeOutOfJail_Chance=1
  1575. )
  1576. if "%ChooseChanceCard%" == "13" (
  1577. set Puffer=!Money_%Player%!
  1578. set /a Money_%Player%=!Money_%Player%! + 200
  1579. echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%! by passing Go.
  1580. set Field!Player%Player%Position!_%Player%=
  1581. set Player%Player%Position=6
  1582. set Field6_%Player%=!Char_%Player%!
  1583. pause
  1584. call :SetFields
  1585. call :FIELD Chance_Walked
  1586. )
  1587. if "%ChooseChanceCard%" == "14" (
  1588. pause
  1589. call :SendToJail
  1590. )
  1591. if "%ChooseChanceCard%" == "15" (
  1592. set Puffer=!Money_%Player%!
  1593. set /a Money_%Player%=!Money_%Player%! - 50
  1594. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  1595. if "!Money_%Player%:~0,1!" == "-" (
  1596. echo.
  1597. pause
  1598. cls
  1599. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1600. echo.
  1601. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1602. echo Player !Player! wins the game.
  1603. echo.
  1604. pause
  1605. exit
  1606. )
  1607. )
  1608. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  1609. set Player=!Player!
  1610. if "%ChooseChanceCard%" == "15" (
  1611. set Puffer=!Money_%Player%!
  1612. set /a Money_%Player%=!Money_%Player%! + 50
  1613. echo ÄÄÄ^> The other player's money increased from $!Puffer! by $50 to $!Money_%Player%!.
  1614. )
  1615. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  1616. set Player=!Player!
  1617. pause
  1618. exit /b
  1619.  
  1620.  
  1621.  
  1622.  
  1623. :VermontAvenue
  1624. :VermontAvenue 9
  1625. set Purchase=
  1626. set Buy_House=
  1627. set PayRent=
  1628. set Sell_Street=
  1629. if not defined VermontAvenue_Houses set VermontAvenue_Houses=0
  1630. cls
  1631. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1632. echo º º
  1633. echo º Vermont Avenue º
  1634. echo º º
  1635. echo º PRICE $100 RENT $6 º
  1636. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1637. echo º With 1 House $30 º
  1638. echo º º
  1639. echo º With 2 Houses $90 º
  1640. echo º º
  1641. echo º With 3 Houses $270 º
  1642. echo º º
  1643. echo º With 4 Houses $400 º
  1644. echo º º
  1645. echo º With HOTEL $550 º
  1646. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1647. echo º One house costs $50 º
  1648. echo º º
  1649. echo º Mortgage value $50 º
  1650. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1651. echo º º
  1652. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1653. echo.
  1654. echo Current player: %Player% (!Char_%Player%!)
  1655. echo Total money: !Money_%Player%!
  1656. echo.
  1657. if "!VermontAvenue!" == "%Player%" goto :VermontAvenue_Houses
  1658. if defined VermontAvenue goto :VermontAvenue_PayRent
  1659. echo Press [1] to buy this street for $100 or
  1660. echo press [2] to leave it.
  1661. set /p Purchase=
  1662. if "%Purchase%" == "1" (
  1663. set Puffer=!Money_%Player%!
  1664. set /a Money_%Player%=!Money_%Player%! - 100
  1665. if "!Money_%Player%:~0,1!" == "-" (
  1666. echo You have not enough money.
  1667. set /a Money_%Player%=!Money_%Player%! + 100
  1668. ) ELSE (
  1669. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  1670. set VermontAvenue=%Player%
  1671. )
  1672. pause
  1673. exit /b
  1674. )
  1675. if "%Purchase%" == "2" exit /b
  1676. goto :VermontAvenue
  1677. :VermontAvenue_Houses
  1678. :VermontAvenue_Houses
  1679. if "!VermontAvenue_Houses!" == "5" (
  1680. echo This street has got a hotel.
  1681. pause
  1682. exit /b
  1683. ) ELSE (
  1684. echo This street has got !VermontAvenue_Houses! houses, yet.
  1685. echo.
  1686. )
  1687. echo Press [1] to buy a new house or
  1688. echo press [2] to leave it or
  1689. echo press [3] to sell it for $50.
  1690. set /p Buy_House=
  1691. echo.
  1692. if "%Buy_House%" == "1" (
  1693. set Puffer=!Money_%Player%!
  1694. set /a Money_%Player%=!Money_%Player%! - 50
  1695. if "!Money_%Player%:~0,1!" == "-" (
  1696. echo You have not enough money.
  1697. set /a Money_%Player%=!Money_%Player%! + 50
  1698. ) ELSE (
  1699. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  1700. set /a VermontAvenue_Houses=!VermontAvenue_Houses! + 1
  1701. if not "!VermontAvenue_Houses!" == "5" (echo This street has got !VermontAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  1702. )
  1703. pause
  1704. exit /b
  1705. )
  1706. if "%Buy_House%" == "2" exit /b
  1707. if "%Buy_House%" == "3" (
  1708. echo Are you sure you want to sell the street? [Y/N]
  1709. set /p Sell_Street=
  1710. if /i "!Sell_Street!" == "n" exit /b
  1711. if /i "!Sell_Street!" == "y" (
  1712. set Puffer=!Money_%Player%!
  1713. set /a Money_%Player%=!Money_%Player%! + 50
  1714. echo ÄÄÄ^> Money increased from $!Puffer! by $50 to $!Money_%Player%!.
  1715. set VermontAvenue=
  1716. set VermontAvenue_Houses=0
  1717. )
  1718. )
  1719. goto :VermontAvenue_Houses
  1720. :VermontAvenue_PayRent
  1721. :VermontAvenue_PayRent
  1722. if "!VermontAvenue_Houses!" == "0" set PayRent=6
  1723. if "!VermontAvenue_Houses!" == "1" set PayRent=30
  1724. if "!VermontAvenue_Houses!" == "2" set PayRent=90
  1725. if "!VermontAvenue_Houses!" == "3" set PayRent=270
  1726. if "!VermontAvenue_Houses!" == "4" set PayRent=400
  1727. if "!VermontAvenue_Houses!" == "5" set PayRent=550
  1728. echo This street is owned by the other player. You have to pay
  1729. echo $%PayRent% to pass.
  1730. set Puffer=!Money_%Player%!
  1731. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  1732. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1733. if "!Money_%Player%:~0,1!" == "-" (
  1734. echo.
  1735. pause
  1736. cls
  1737. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1738. echo.
  1739. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1740. echo Player !Player! wins the game.
  1741. echo.
  1742. pause
  1743. exit
  1744. )
  1745. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1746. set Player=!Player!
  1747. set Puffer=!Money_%Player%!
  1748. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  1749. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1750. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1751. set Player=!Player!
  1752. echo.
  1753. pause
  1754. exit /b
  1755.  
  1756.  
  1757.  
  1758.  
  1759. :ConnecticutAvenue
  1760. :ConnecticutAvenue 10
  1761. set Purchase=
  1762. set Buy_House=
  1763. set PayRent=
  1764. set Sell_Street=
  1765. if not defined ConnecticutAvenue_Houses set ConnecticutAvenue_Houses=0
  1766. cls
  1767. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1768. echo º º
  1769. echo º Connecticut Avenue º
  1770. echo º º
  1771. echo º PRICE $120 RENT $8 º
  1772. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1773. echo º With 1 House $40 º
  1774. echo º º
  1775. echo º With 2 Houses $100 º
  1776. echo º º
  1777. echo º With 3 Houses $300 º
  1778. echo º º
  1779. echo º With 4 Houses $450 º
  1780. echo º º
  1781. echo º With HOTEL $600 º
  1782. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1783. echo º One house costs $50 º
  1784. echo º º
  1785. echo º Mortgage value $60 º
  1786. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  1787. echo º º
  1788. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1789. echo.
  1790. echo Current player: %Player% (!Char_%Player%!)
  1791. echo Total money: !Money_%Player%!
  1792. echo.
  1793. if "!ConnecticutAvenue!" == "%Player%" goto :ConnecticutAvenue_Houses
  1794. if defined ConnecticutAvenue goto :ConnecticutAvenue_PayRent
  1795. echo Press [1] to buy this street for $120 or
  1796. echo press [2] to leave it.
  1797. set /p Purchase=
  1798. if "%Purchase%" == "1" (
  1799. set Puffer=!Money_%Player%!
  1800. set /a Money_%Player%=!Money_%Player%! - 120
  1801. if "!Money_%Player%:~0,1!" == "-" (
  1802. echo You have not enough money.
  1803. set /a Money_%Player%=!Money_%Player%! + 120
  1804. ) ELSE (
  1805. echo ÄÄÄ^> Money decreased from $!Puffer! by $120 to $!Money_%Player%!.
  1806. set ConnecticutAvenue=%Player%
  1807. )
  1808. pause
  1809. exit /b
  1810. )
  1811. if "%Purchase%" == "2" exit /b
  1812. goto :ConnecticutAvenue
  1813. :ConnecticutAvenue_Houses
  1814. :ConnecticutAvenue_Houses
  1815. if "!ConnecticutAvenue_Houses!" == "5" (
  1816. echo This street has got a hotel.
  1817. pause
  1818. exit /b
  1819. ) ELSE (
  1820. echo This street has got !ConnecticutAvenue_Houses! houses, yet.
  1821. echo.
  1822. )
  1823. echo Press [1] to buy a new house or
  1824. echo press [2] to leave it or
  1825. echo press [3] to sell it for $60.
  1826. set /p Buy_House=
  1827. echo.
  1828. if "%Buy_House%" == "1" (
  1829. set Puffer=!Money_%Player%!
  1830. set /a Money_%Player%=!Money_%Player%! - 50
  1831. if "!Money_%Player%:~0,1!" == "-" (
  1832. echo You have not enough money.
  1833. set /a Money_%Player%=!Money_%Player%! + 50
  1834. ) ELSE (
  1835. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  1836. set /a ConnecticutAvenue_Houses=!ConnecticutAvenue_Houses! + 1
  1837. if not "!ConnecticutAvenue_Houses!" == "5" (echo This street has got !ConnecticutAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  1838. )
  1839. pause
  1840. exit /b
  1841. )
  1842. if "%Buy_House%" == "2" exit /b
  1843. if "%Buy_House%" == "3" (
  1844. echo Are you sure you want to sell the street? [Y/N]
  1845. set /p Sell_Street=
  1846. if /i "!Sell_Street!" == "n" exit /b
  1847. if /i "!Sell_Street!" == "y" (
  1848. set Puffer=!Money_%Player%!
  1849. set /a Money_%Player%=!Money_%Player%! + 60
  1850. echo ÄÄÄ^> Money increased from $!Puffer! by $60 to $!Money_%Player%!.
  1851. set ConnecticutAvenue=
  1852. set ConnecticutAvenue_Houses=0
  1853. )
  1854. )
  1855. goto :ConnecticutAvenue_Houses
  1856. :ConnecticutAvenue_PayRent
  1857. :ConnecticutAvenue_PayRent
  1858. if "!ConnecticutAvenue_Houses!" == "0" set PayRent=8
  1859. if "!ConnecticutAvenue_Houses!" == "1" set PayRent=40
  1860. if "!ConnecticutAvenue_Houses!" == "2" set PayRent=100
  1861. if "!ConnecticutAvenue_Houses!" == "3" set PayRent=300
  1862. if "!ConnecticutAvenue_Houses!" == "4" set PayRent=450
  1863. if "!ConnecticutAvenue_Houses!" == "5" set PayRent=600
  1864. echo This street is owned by the other player. You have to pay
  1865. echo $%PayRent% to pass.
  1866. set Puffer=!Money_%Player%!
  1867. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  1868. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1869. if "!Money_%Player%:~0,1!" == "-" (
  1870. echo.
  1871. pause
  1872. cls
  1873. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1874. echo.
  1875. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1876. echo Player !Player! wins the game.
  1877. echo.
  1878. pause
  1879. exit
  1880. )
  1881. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1882. set Player=!Player!
  1883. set Puffer=!Money_%Player%!
  1884. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  1885. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  1886. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1887. set Player=!Player!
  1888. echo.
  1889. pause
  1890. exit /b
  1891.  
  1892.  
  1893.  
  1894.  
  1895. :AtJail
  1896. :AtJail 11
  1897. cls
  1898. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1899. echo º ² º
  1900. echo º ² ÉÍÍÍËÍÍÍËÍÍÍËÍÍÍ» º
  1901. echo º ² º º º º º º
  1902. echo º ² ² º º º º º º
  1903. echo º ²²²² º º º º º º
  1904. echo º ÈÍÍÍÊÍÍÍÊÍÍÍÊÍÍͼ º
  1905. echo º ²² º
  1906. echo º ² ² º
  1907. echo º ²²²² º
  1908. echo º ² ² º
  1909. if "%Player%" == "1" if "!Field11_J_2!" == "%Char_2%" (echo º There is player 2 in jail now. º) ELSE (echo º º)
  1910. if "%Player%" == "2" if "!Field11_J_1!" == "%Char_1%" (echo º There is player 1 in jail now. º) ELSE (echo º º)
  1911. echo º ²² º
  1912. echo º ²² º
  1913. echo º ²² º
  1914. echo º ²² º
  1915. if not "!Field11_J_1!" == "%Char_1%" (if not "!Field11_J_2!" == "%Char_2%" (echo º There is noone in jail at the moment.º) ELSE (echo º º)) ELSE (echo º º)
  1916. echo º ² º
  1917. echo º ² º
  1918. echo º ² º
  1919. echo º ²²²² º
  1920. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1921. echo.
  1922. echo Current player: %Player% (!Char_%Player%!)
  1923. echo Total money: !Money_%Player%!
  1924. pause >nul
  1925. exit /b
  1926.  
  1927.  
  1928.  
  1929.  
  1930.  
  1931. :InJail
  1932. :InJail 11J
  1933. cls
  1934. set InJail=
  1935. set Player%Player%Position=11
  1936. if "%Escape%" == "no" set Escape=4
  1937. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  1938. echo º º
  1939. echo º ÉÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍËÍÍÍÍÍÍ» º
  1940. echo º º º º º º º º º
  1941. echo º º º º º º º º º
  1942. echo º º º º º º º º º
  1943. echo º º º º º º º º º
  1944. echo º º º º º º º º º
  1945. echo º º º º º º º º º
  1946. echo º º º º º º º º º
  1947. echo º º º º º º º º º
  1948. echo º º º º º º º º º
  1949. echo º º º º º º º º º
  1950. echo º º º º º º º º º
  1951. echo º º º º º º º º º
  1952. echo º º º º º º º º º
  1953. echo º º º º º º º º º
  1954. echo º º º º º º º º º
  1955. echo º ÈÍÍÍÍÍÍÊÍÍÍÍÍÍÊÍÍÍÍÍÍÊÍÍÍÍÍÍÊÍÍÍÍÍÍÊÍÍÍÍÍͼ º
  1956. echo º º
  1957. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  1958. echo.
  1959. echo Current player: %Player% (!Char_%Player%!)
  1960. echo Total money: !Money_%Player%!
  1961. echo.
  1962. set /a Escape=!Escape! - 1
  1963. if "%Escape%" == "0" set Escape=no
  1964. echo You are in jail. You can pay $50 to get out of here immediately or
  1965. echo you can escape in rolling a doublet (%Escape% tries left).
  1966. echo.
  1967. if "%Escape%" == "no" (
  1968. set Field11_J_%Player%=
  1969. set Field11_%Player%=!Char_%Player%!
  1970. echo You now have to pay $50.
  1971. pause
  1972. set Puffer=!Money_%Player%!
  1973. set /a Money_%Player%=!Money_%Player%! - 50
  1974. echo.
  1975. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  1976. echo.
  1977. if "!Money_%Player%:~0,1!" == "-" (
  1978. echo.
  1979. pause
  1980. cls
  1981. echo Player %Player% [!Char_%Player%!] is bankrupt.
  1982. echo.
  1983. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1984. echo Player !Player! wins the game.
  1985. echo.
  1986. pause
  1987. exit
  1988. )
  1989. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  1990. set OutOfJail=1
  1991. pause
  1992. exit /b
  1993. )
  1994. echo Press [1] to pay $50 or press anything else to try to escape.
  1995. if "!FreeOutOfJail_%Player%!" == "1" echo Press [2] to use your card to get out of jail for free.
  1996. set /p InJail=-^>
  1997. if "%InJail%" == "1" (
  1998. set Escape=4
  1999. set Field11_J_%Player%=
  2000. set Field11_%Player%=!Char_%Player%!
  2001. set Puffer=!Money_%Player%!
  2002. set /a Money_%Player%=!Money_%Player%! - 50
  2003. echo.
  2004. if "!Money_%Player%:~0,1!" == "-" (
  2005. echo You have not enough money.
  2006. set /a Money_%Player%=!Money_%Player%! + 50
  2007. echo.
  2008. pause
  2009. ) ELSE (
  2010. echo ÄÄÄ^> Money decreased from $!Puffer! by $50 to $!Money_%Player%!.
  2011. echo.
  2012. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2013. set OutOfJail=1
  2014. pause
  2015. exit /b
  2016. )
  2017. )
  2018. if "!FreeOutOfJail_%Player%!" == "1" (
  2019. if "%InJail%" == "2" (
  2020. echo Card used.
  2021. set Escape=4
  2022. set Field11_J_%Player%=
  2023. set Field11_%Player%=!Char_%Player%!
  2024. set FreeOutOfJail_%Player%=0
  2025. if "!FreeOutOfJail_Chance!" == "!FreeOutOfJail_%Player%!" (
  2026. set FreeOutOfJail_Chance=0
  2027. ) ELSE (
  2028. set FreeOutOfJail_Community=0
  2029. )
  2030. set FreeOutOfJail_%Player%=0
  2031. pause
  2032. exit /b
  2033. )
  2034. )
  2035. echo.
  2036. echo Trying to roll a doublet...
  2037.  
  2038. set /a DiceOne=%random% %% 6 + 1
  2039. set /a DiceTwo=%random% %% 6 + 1
  2040.  
  2041. set /a Dice=%DiceOne% + %DiceTwo%
  2042. echo Dice one (%DiceOne%) + dice two (%DiceTwo%) = %Dice%
  2043.  
  2044. if "%DiceOne%" == "%DiceTwo%" (
  2045. set Field11_J_%Player%=
  2046. set /a Player%Player%Position=!Player%Player%Position! + %Dice%
  2047. set Field!Player%Player%Position!_%Player%=!Char_%Player%!
  2048. echo You successfully rolled a doublet.
  2049. ping localhost -n 3 >nul
  2050. set DiceAmount=1
  2051. ) ELSE (
  2052. echo You missed.
  2053. ping localhost -n 3 >nul
  2054. )
  2055. goto :RollDone
  2056.  
  2057.  
  2058.  
  2059.  
  2060.  
  2061. :St.CharlesPlace
  2062. :St.CharlesPlace 12
  2063. set Purchase=
  2064. set Buy_House=
  2065. set PayRent=
  2066. set Sell_Street=
  2067. if not defined St.CharlesPlace_Houses set St.CharlesPlace_Houses=0
  2068. cls
  2069. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2070. echo º º
  2071. echo º St. Charles Place º
  2072. echo º º
  2073. echo º PRICE $140 RENT $10 º
  2074. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2075. echo º With 1 House $50 º
  2076. echo º º
  2077. echo º With 2 Houses $150 º
  2078. echo º º
  2079. echo º With 3 Houses $450 º
  2080. echo º º
  2081. echo º With 4 Houses $625 º
  2082. echo º º
  2083. echo º With HOTEL $750 º
  2084. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2085. echo º One house costs $100 º
  2086. echo º º
  2087. echo º Mortgage value $70 º
  2088. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2089. echo º º
  2090. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2091. echo.
  2092. echo Current player: %Player% (!Char_%Player%!)
  2093. echo Total money: !Money_%Player%!
  2094. echo.
  2095. if "!St.CharlesPlace!" == "%Player%" goto :St.CharlesPlace_Houses
  2096. if defined St.CharlesPlace goto :St.CharlesPlace_PayRent
  2097. echo Press [1] to buy this street for $140 or
  2098. echo press [2] to leave it.
  2099. set /p Purchase=
  2100. if "%Purchase%" == "1" (
  2101. set Puffer=!Money_%Player%!
  2102. set /a Money_%Player%=!Money_%Player%! - 140
  2103. if "!Money_%Player%:~0,1!" == "-" (
  2104. echo You have not enough money.
  2105. set /a Money_%Player%=!Money_%Player%! + 140
  2106. ) ELSE (
  2107. echo ÄÄÄ^> Money decreased from $!Puffer! by $140 to $!Money_%Player%!.
  2108. set St.CharlesPlace=%Player%
  2109. )
  2110. pause
  2111. exit /b
  2112. )
  2113. if "%Purchase%" == "2" exit /b
  2114. goto :St.CharlesPlace
  2115. :St.CharlesPlace_Houses
  2116. :St.CharlesPlace_Houses
  2117. if "!St.CharlesPlace_Houses!" == "5" (
  2118. echo This street has got a hotel.
  2119. pause
  2120. exit /b
  2121. ) ELSE (
  2122. echo This street has got !St.CharlesPlace_Houses! houses, yet.
  2123. echo.
  2124. )
  2125. echo Press [1] to buy a new house or
  2126. echo press [2] to leave it or
  2127. echo press [3] to sell it for $70.
  2128. set /p Buy_House=
  2129. echo.
  2130. if "%Buy_House%" == "1" (
  2131. set Puffer=!Money_%Player%!
  2132. set /a Money_%Player%=!Money_%Player%! - 100
  2133. if "!Money_%Player%:~0,1!" == "-" (
  2134. echo You have not enough money.
  2135. set /a Money_%Player%=!Money_%Player%! + 100
  2136. ) ELSE (
  2137. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  2138. set /a St.CharlesPlace_Houses=!St.CharlesPlace_Houses! + 1
  2139. if not "!St.CharlesPlace_Houses!" == "5" (echo This street has got !St.CharlesPlace_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  2140. )
  2141. pause
  2142. exit /b
  2143. )
  2144. if "%Buy_House%" == "2" exit /b
  2145. if "%Buy_House%" == "3" (
  2146. echo Are you sure you want to sell the street? [Y/N]
  2147. set /p Sell_Street=
  2148. if /i "!Sell_Street!" == "n" exit /b
  2149. if /i "!Sell_Street!" == "y" (
  2150. set Puffer=!Money_%Player%!
  2151. set /a Money_%Player%=!Money_%Player%! + 70
  2152. echo ÄÄÄ^> Money increased from $!Puffer! by $70 to $!Money_%Player%!.
  2153. set St.CharlesPlace=
  2154. set St.CharlesPlace_Houses=0
  2155. )
  2156. )
  2157. goto :St.CharlesPlace_Houses
  2158. :St.CharlesPlace_PayRent
  2159. :St.CharlesPlace_PayRent
  2160. if "!St.CharlesPlace_Houses!" == "0" set PayRent=10
  2161. if "!St.CharlesPlace_Houses!" == "1" set PayRent=50
  2162. if "!St.CharlesPlace_Houses!" == "2" set PayRent=150
  2163. if "!St.CharlesPlace_Houses!" == "3" set PayRent=450
  2164. if "!St.CharlesPlace_Houses!" == "4" set PayRent=625
  2165. if "!St.CharlesPlace_Houses!" == "5" set PayRent=750
  2166. echo This street is owned by the other player. You have to pay
  2167. echo $%PayRent% to pass.
  2168. set Puffer=!Money_%Player%!
  2169. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2170. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2171. if "!Money_%Player%:~0,1!" == "-" (
  2172. echo.
  2173. pause
  2174. cls
  2175. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2176. echo.
  2177. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2178. echo Player !Player! wins the game.
  2179. echo.
  2180. pause
  2181. exit
  2182. )
  2183. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2184. set Player=!Player!
  2185. set Puffer=!Money_%Player%!
  2186. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2187. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2188. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2189. set Player=!Player!
  2190. echo.
  2191. pause
  2192. exit /b
  2193.  
  2194.  
  2195.  
  2196.  
  2197. :ElectricCompany
  2198. :ElectricCompany 13
  2199. set Purchase=
  2200. set Buy_House=
  2201. set PayRent=
  2202. set CompanyAmount=0
  2203. set Sell_Street=
  2204. cls
  2205. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2206. echo º º
  2207. echo º Electric Company º
  2208. echo º º
  2209. echo º PRICE $150 º
  2210. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2211. echo º º
  2212. echo º º
  2213. echo ºIf 1 owned, rent equals º
  2214. echo º º
  2215. echo º 4 times dice roll º
  2216. echo º º
  2217. echo º º
  2218. echo ºIf 2 owned, rent equals º
  2219. echo º º
  2220. echo º 10 times dice roll º
  2221. echo º º
  2222. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2223. echo º Mortgage value $75 º
  2224. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2225. echo º º
  2226. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2227. echo.
  2228. echo Current player: %Player% (!Char_%Player%!)
  2229. echo Total money: !Money_%Player%!
  2230. echo.
  2231. if "!ElectricCompany!" == "%Player%" goto :ElectricCompany_Houses
  2232. if defined ElectricCompany goto :ElectricCompany_PayRent
  2233. echo Press [1] to buy this street for $150 or
  2234. echo press [2] to leave it.
  2235. set /p Purchase=
  2236. if "%Purchase%" == "1" (
  2237. set Puffer=!Money_%Player%!
  2238. set /a Money_%Player%=!Money_%Player%! - 150
  2239. if "!Money_%Player%:~0,1!" == "-" (
  2240. echo You have not enough money.
  2241. set /a Money_%Player%=!Money_%Player%! + 150
  2242. ) ELSE (
  2243. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  2244. set ElectricCompany=%Player%
  2245. )
  2246. pause
  2247. exit /b
  2248. )
  2249. if "%Purchase%" == "2" exit /b
  2250. goto :ElectricCompany
  2251. :ElectricCompany_Houses
  2252. :ElectricCompany_Houses
  2253. echo Press [2] to leave it or
  2254. echo press [3] to sell it for $75.
  2255. set /p Buy_House=
  2256. echo.
  2257. if "%Buy_House%" == "2" exit /b
  2258. if "%Buy_House%" == "3" (
  2259. echo Are you sure you want to sell this street? [Y/N]
  2260. set /p Sell_Street=
  2261. if /i "!Sell_Street!" == "n" exit /b
  2262. if /i "!Sell_Street!" == "y" (
  2263. set Puffer=!Money_%Player%!
  2264. set /a Money_%Player%=!Money_%Player%! + 75
  2265. echo ÄÄÄ^> Money increased from $!Puffer! by $75 to $!Money_%Player%!.
  2266. set ElectricCompany=
  2267. )
  2268. )
  2269. goto :ElectricCompany_Houses
  2270. :ElectricCompany_PayRent
  2271. :ElectricCompany_PayRent
  2272. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  2273. set Player=!Player!
  2274. if "!ElectricCompany!" == "%Player%" set /a CompanyAmount=!CompanyAmount! + 1
  2275. if "!WaterWorks!" == "%Player%" set /a CompanyAmount=!CompanyAmount! + 1
  2276. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  2277. set Player=!Player!
  2278. echo The other player owns !CompanyAmount! of 2 companies.
  2279. if "!CompanyAmount!" == "1" set /a PayRent=%Dice% * 4
  2280. if "!CompanyAmount!" == "2" set /a PayRent=%Dice% * 10
  2281. if "%1" == "CameByChance" set /a PayRent=!Dice! * 10
  2282. set Puffer=!Money_%Player%!
  2283. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2284. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2285. if "!Money_%Player%:~0,1!" == "-" (
  2286. echo.
  2287. pause
  2288. cls
  2289. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2290. echo.
  2291. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2292. echo Player !Player! wins the game.
  2293. echo.
  2294. pause
  2295. exit
  2296. )
  2297. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2298. set Player=!Player!
  2299. set Puffer=!Money_%Player%!
  2300. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2301. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2302. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2303. set Player=!Player!
  2304. echo.
  2305. pause
  2306. exit /b
  2307.  
  2308.  
  2309.  
  2310.  
  2311. :StatesAvenue
  2312. :StatesAvenue 14
  2313. set Purchase=
  2314. set Buy_House=
  2315. set PayRent=
  2316. set Sell_Street=
  2317. if not defined StatesAvenue_Houses set StatesAvenue_Houses=0
  2318. cls
  2319. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2320. echo º º
  2321. echo º States Avenue º
  2322. echo º º
  2323. echo º PRICE $140 RENT $10 º
  2324. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2325. echo º With 1 House $50 º
  2326. echo º º
  2327. echo º With 2 Houses $150 º
  2328. echo º º
  2329. echo º With 3 Houses $450 º
  2330. echo º º
  2331. echo º With 4 Houses $625 º
  2332. echo º º
  2333. echo º With HOTEL $750 º
  2334. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2335. echo º One house costs $100 º
  2336. echo º º
  2337. echo º Mortgage value $70 º
  2338. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2339. echo º º
  2340. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2341. echo.
  2342. echo Current player: %Player% (!Char_%Player%!)
  2343. echo Total money: !Money_%Player%!
  2344. echo.
  2345. if "!StatesAvenue!" == "%Player%" goto :StatesAvenue_Houses
  2346. if defined StatesAvenue goto :StatesAvenue_PayRent
  2347. echo Press [1] to buy this street for $140 or
  2348. echo press [2] to leave it.
  2349. set /p Purchase=
  2350. if "%Purchase%" == "1" (
  2351. set Puffer=!Money_%Player%!
  2352. set /a Money_%Player%=!Money_%Player%! - 140
  2353. if "!Money_%Player%:~0,1!" == "-" (
  2354. echo You have not enough money.
  2355. set /a Money_%Player%=!Money_%Player%! + 140
  2356. ) ELSE (
  2357. echo ÄÄÄ^> Money decreased from $!Puffer! by $140 to $!Money_%Player%!.
  2358. set StatesAvenue=%Player%
  2359. )
  2360. pause
  2361. exit /b
  2362. )
  2363. if "%Purchase%" == "2" exit /b
  2364. goto :StatesAvenue
  2365. :StatesAvenue_Houses
  2366. :StatesAvenue_Houses
  2367. if "!StatesAvenue_Houses!" == "5" (
  2368. echo This street has got a hotel.
  2369. pause
  2370. exit /b
  2371. ) ELSE (
  2372. echo This street has got !StatesAvenue_Houses! houses, yet.
  2373. echo.
  2374. )
  2375. echo Press [1] to buy a new house or
  2376. echo press [2] to leave it or
  2377. echo press [3] to sell it for $70.
  2378. set /p Buy_House=
  2379. echo.
  2380. if "%Buy_House%" == "1" (
  2381. set Puffer=!Money_%Player%!
  2382. set /a Money_%Player%=!Money_%Player%! - 100
  2383. if "!Money_%Player%:~0,1!" == "-" (
  2384. echo You have not enough money.
  2385. set /a Money_%Player%=!Money_%Player%! + 100
  2386. ) ELSE (
  2387. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  2388. set /a StatesAvenue_Houses=!StatesAvenue_Houses! + 1
  2389. if not "!StatesAvenue_Houses!" == "5" (echo This street has got !StatesAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  2390. )
  2391. pause
  2392. exit /b
  2393. )
  2394. if "%Buy_House%" == "2" exit /b
  2395. if "%Buy_House%" == "3" (
  2396. echo Are you sure you want to sell the street? [Y/N]
  2397. set /p Sell_Street=
  2398. if /i "!Sell_Street!" == "n" exit /b
  2399. if /i "!Sell_Street!" == "y" (
  2400. set Puffer=!Money_%Player%!
  2401. set /a Money_%Player%=!Money_%Player%! + 70
  2402. echo ÄÄÄ^> Money increased from $!Puffer! by $70 to $!Money_%Player%!.
  2403. set StatesAvenue=
  2404. set StatesAvenue_Houses=0
  2405. )
  2406. )
  2407. goto :StatesAvenue_Houses
  2408. :StatesAvenue_PayRent
  2409. :StatesAvenue_PayRent
  2410. if "!StatesAvenue_Houses!" == "0" set PayRent=10
  2411. if "!StatesAvenue_Houses!" == "1" set PayRent=50
  2412. if "!StatesAvenue_Houses!" == "2" set PayRent=150
  2413. if "!StatesAvenue_Houses!" == "3" set PayRent=450
  2414. if "!StatesAvenue_Houses!" == "4" set PayRent=625
  2415. if "!StatesAvenue_Houses!" == "5" set PayRent=750
  2416. echo This street is owned by the other player. You have to pay
  2417. echo $%PayRent% to pass.
  2418. set Puffer=!Money_%Player%!
  2419. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2420. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2421. if "!Money_%Player%:~0,1!" == "-" (
  2422. echo.
  2423. pause
  2424. cls
  2425. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2426. echo.
  2427. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2428. echo Player !Player! wins the game.
  2429. echo.
  2430. pause
  2431. exit
  2432. )
  2433. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2434. set Player=!Player!
  2435. set Puffer=!Money_%Player%!
  2436. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2437. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2438. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2439. set Player=!Player!
  2440. echo.
  2441. pause
  2442. exit /b
  2443.  
  2444.  
  2445.  
  2446.  
  2447. :VirginiaAvenue
  2448. :VirginiaAvenue 15
  2449. set Purchase=
  2450. set Buy_House=
  2451. set PayRent=
  2452. set Sell_Street=
  2453. if not defined VirginiaAvenue_Houses set VirginiaAvenue_Houses=0
  2454. cls
  2455. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2456. echo º º
  2457. echo º Virginia Avenue º
  2458. echo º º
  2459. echo º PRICE $160 RENT $12 º
  2460. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2461. echo º With 1 House $60 º
  2462. echo º º
  2463. echo º With 2 Houses $180 º
  2464. echo º º
  2465. echo º With 3 Houses $500 º
  2466. echo º º
  2467. echo º With 4 Houses $700 º
  2468. echo º º
  2469. echo º With HOTEL $900 º
  2470. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2471. echo º One house costs $100 º
  2472. echo º º
  2473. echo º Mortgage value $80 º
  2474. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2475. echo º º
  2476. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2477. echo.
  2478. echo Current player: %Player% (!Char_%Player%!)
  2479. echo Total money: !Money_%Player%!
  2480. echo.
  2481. if "!VirginiaAvenue!" == "%Player%" goto :VirginiaAvenue_Houses
  2482. if defined VirginiaAvenue goto :VirginiaAvenue_PayRent
  2483. echo Press [1] to buy this street for $160 or
  2484. echo press [2] to leave it.
  2485. set /p Purchase=
  2486. if "%Purchase%" == "1" (
  2487. set Puffer=!Money_%Player%!
  2488. set /a Money_%Player%=!Money_%Player%! - 160
  2489. if "!Money_%Player%:~0,1!" == "-" (
  2490. echo You have not enough money.
  2491. set /a Money_%Player%=!Money_%Player%! + 160
  2492. ) ELSE (
  2493. echo ÄÄÄ^> Money decreased from $!Puffer! by $160 to $!Money_%Player%!.
  2494. set VirginiaAvenue=%Player%
  2495. )
  2496. pause
  2497. exit /b
  2498. )
  2499. if "%Purchase%" == "2" exit /b
  2500. goto :VirginiaAvenue
  2501. :VirginiaAvenue_Houses
  2502. :VirginiaAvenue_Houses
  2503. if "!VirginiaAvenue_Houses!" == "5" (
  2504. echo This street has got a hotel.
  2505. pause
  2506. exit /b
  2507. ) ELSE (
  2508. echo This street has got !VirginiaAvenue_Houses! houses, yet.
  2509. echo.
  2510. )
  2511. echo Press [1] to buy a new house or
  2512. echo press [2] to leave it or
  2513. echo press [3] to sell it for $80.
  2514. set /p Buy_House=
  2515. echo.
  2516. if "%Buy_House%" == "1" (
  2517. set Puffer=!Money_%Player%!
  2518. set /a Money_%Player%=!Money_%Player%! - 100
  2519. if "!Money_%Player%:~0,1!" == "-" (
  2520. echo You have not enough money.
  2521. set /a Money_%Player%=!Money_%Player%! + 100
  2522. ) ELSE (
  2523. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  2524. set /a VirginiaAvenue_Houses=!VirginiaAvenue_Houses! + 1
  2525. if not "!VirginiaAvenue_Houses!" == "5" (echo This street has got !VirginiaAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  2526. )
  2527. pause
  2528. exit /b
  2529. )
  2530. if "%Buy_House%" == "2" exit /b
  2531. if "%Buy_House%" == "3" (
  2532. echo Are you sure you want to sell the street? [Y/N]
  2533. set /p Sell_Street=
  2534. if /i "!Sell_Street!" == "n" exit /b
  2535. if /i "!Sell_Street!" == "y" (
  2536. set Puffer=!Money_%Player%!
  2537. set /a Money_%Player%=!Money_%Player%! + 80
  2538. echo ÄÄÄ^> Money increased from $!Puffer! by $80 to $!Money_%Player%!.
  2539. set VirginiaAvenue=
  2540. set VirginiaAvenue_Houses=0
  2541. )
  2542. )
  2543. goto :VirginiaAvenue_Houses
  2544. :VirginiaAvenue_PayRent
  2545. :VirginiaAvenue_PayRent
  2546. if "!VirginiaAvenue_Houses!" == "0" set PayRent=12
  2547. if "!VirginiaAvenue_Houses!" == "1" set PayRent=60
  2548. if "!VirginiaAvenue_Houses!" == "2" set PayRent=180
  2549. if "!VirginiaAvenue_Houses!" == "3" set PayRent=500
  2550. if "!VirginiaAvenue_Houses!" == "4" set PayRent=700
  2551. if "!VirginiaAvenue_Houses!" == "5" set PayRent=900
  2552. echo This street is owned by the other player. You have to pay
  2553. echo $%PayRent% to pass.
  2554. set Puffer=!Money_%Player%!
  2555. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2556. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2557. if "!Money_%Player%:~0,1!" == "-" (
  2558. echo.
  2559. pause
  2560. cls
  2561. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2562. echo.
  2563. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2564. echo Player !Player! wins the game.
  2565. echo.
  2566. pause
  2567. exit
  2568. )
  2569. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2570. set Player=!Player!
  2571. set Puffer=!Money_%Player%!
  2572. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2573. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2574. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2575. set Player=!Player!
  2576. echo.
  2577. pause
  2578. exit /b
  2579.  
  2580.  
  2581.  
  2582.  
  2583. :PennsylvaniaRailroad
  2584. :PennsylvaniaRailroad 16
  2585. set Purchase=
  2586. set Buy_House=
  2587. set PayRent=
  2588. set Sell_Street=
  2589. set RailroadAmount=0
  2590. cls
  2591. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2592. echo º º
  2593. echo º Pennsylvania Railroad º
  2594. echo º º
  2595. echo º PRICE $200 º
  2596. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2597. echo º º
  2598. echo º º
  2599. echo º If 1 owned $25 º
  2600. echo º º
  2601. echo º If 2 owned $50 º
  2602. echo º º
  2603. echo º If 3 owned $100 º
  2604. echo º º
  2605. echo º If 4 owned $200 º
  2606. echo º º
  2607. echo º º
  2608. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2609. echo º Mortgage value $100 º
  2610. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2611. echo º º
  2612. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2613. echo.
  2614. echo Current player: %Player% (!Char_%Player%!)
  2615. echo Total money: !Money_%Player%!
  2616. echo.
  2617. if "!PennsylvaniaRailroad!" == "%Player%" goto :PennsylvaniaRailroad_Houses
  2618. if defined PennsylvaniaRailroad goto :PennsylvaniaRailroad_PayRent
  2619. echo Press [1] to buy this railroad for $200 or
  2620. echo press [2] to leave it.
  2621. set /p Purchase=
  2622. if "%Purchase%" == "1" (
  2623. set Puffer=!Money_%Player%!
  2624. set /a Money_%Player%=!Money_%Player%! - 200
  2625. if "!Money_%Player%:~0,1!" == "-" (
  2626. echo You have not enough money.
  2627. set /a Money_%Player%=!Money_%Player%! + 200
  2628. ) ELSE (
  2629. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  2630. set PennsylvaniaRailroad=%Player%
  2631. )
  2632. pause
  2633. exit /b
  2634. )
  2635. if "%Purchase%" == "2" exit /b
  2636. goto :PennsylvaniaRailroad
  2637. :PennsylvaniaRailroad_Houses
  2638. :PennsylvaniaRailroad_Houses
  2639. echo This railroad is yours.
  2640. echo.
  2641. echo Press [2] to leave it or
  2642. echo press [3] to sell it for $100.
  2643. set /p Buy_House=
  2644. echo.
  2645. if "%Buy_House%" == "2" exit /b
  2646. if "%Buy_House%" == "3" (
  2647. echo Are you sure you want to sell this railroad? [Y/N]
  2648. set /p Sell_Street=
  2649. if /i "!Sell_Street!" == "n" exit /b
  2650. if /i "!Sell_Street!" == "y" (
  2651. set Puffer=!Money_%Player%!
  2652. set /a Money_%Player%=!Money_%Player%! + 100
  2653. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  2654. set PennsylvaniaRailroad=
  2655. )
  2656. )
  2657. goto :PennsylvaniaRailroad_Houses
  2658. :PennsylvaniaRailroad_PayRent
  2659. :PennsylvaniaRailroad_PayRent
  2660. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  2661. set Player=!Player!
  2662. FOR %%A IN (ReadingRailroad PennsylvaniaRailroad B.O.Railroad ShortLineRailroad) DO if "!%%A!" == "%Player%" set /a RailroadAmount=!RailroadAmount! + 1
  2663. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  2664. set Player=!Player!
  2665. echo The other player owns !RailroadAmount! of 4 railroads.
  2666. if "!RailroadAmount!" == "1" set PayRent=25
  2667. if "!RailroadAmount!" == "2" set PayRent=50
  2668. if "!RailroadAmount!" == "3" set PayRent=100
  2669. if "!RailroadAmount!" == "4" set PayRent=200
  2670. set Puffer=!Money_%Player%!
  2671. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2672. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2673. if "!Money_%Player%:~0,1!" == "-" (
  2674. echo.
  2675. pause
  2676. cls
  2677. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2678. echo.
  2679. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2680. echo Player !Player! wins the game.
  2681. echo.
  2682. pause
  2683. exit
  2684. )
  2685. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2686. set Player=!Player!
  2687. set Puffer=!Money_%Player%!
  2688. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2689. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2690. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2691. set Player=!Player!
  2692. echo.
  2693. pause
  2694. exit /b
  2695.  
  2696.  
  2697.  
  2698.  
  2699. :St.JamesPlace
  2700. :St.JamesPlace 17
  2701. set Purchase=
  2702. set Buy_House=
  2703. set PayRent=
  2704. set Sell_Street=
  2705. if not defined St.JamesPlace_Houses set St.JamesPlace_Houses=0
  2706. cls
  2707. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2708. echo º º
  2709. echo º St. James Place º
  2710. echo º º
  2711. echo º PRICE $180 RENT $14 º
  2712. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2713. echo º With 1 House $70 º
  2714. echo º º
  2715. echo º With 2 Houses $200 º
  2716. echo º º
  2717. echo º With 3 Houses $550 º
  2718. echo º º
  2719. echo º With 4 Houses $700 º
  2720. echo º º
  2721. echo º With HOTEL $900 º
  2722. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2723. echo º One house costs $100 º
  2724. echo º º
  2725. echo º Mortgage value $90 º
  2726. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2727. echo º º
  2728. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2729. echo.
  2730. echo Current player: %Player% (!Char_%Player%!)
  2731. echo Total money: !Money_%Player%!
  2732. echo.
  2733. if "!St.JamesPlace!" == "%Player%" goto :St.JamesPlace_Houses
  2734. if defined St.JamesPlace goto :St.JamesPlace_PayRent
  2735. echo Press [1] to buy this street for $180 or
  2736. echo press [2] to leave it.
  2737. set /p Purchase=
  2738. if "%Purchase%" == "1" (
  2739. set Puffer=!Money_%Player%!
  2740. set /a Money_%Player%=!Money_%Player%! - 180
  2741. if "!Money_%Player%:~0,1!" == "-" (
  2742. echo You have not enough money.
  2743. set /a Money_%Player%=!Money_%Player%! + 180
  2744. ) ELSE (
  2745. echo ÄÄÄ^> Money decreased from $!Puffer! by $180 to $!Money_%Player%!.
  2746. set St.JamesPlace=%Player%
  2747. )
  2748. pause
  2749. exit /b
  2750. )
  2751. if "%Purchase%" == "2" exit /b
  2752. goto :St.JamesPlace
  2753. :St.JamesPlace_Houses
  2754. :St.JamesPlace_Houses
  2755. if "!St.JamesPlace_Houses!" == "5" (
  2756. echo This street has got a hotel.
  2757. pause
  2758. exit /b
  2759. ) ELSE (
  2760. echo This street has got !St.JamesPlace_Houses! houses, yet.
  2761. echo.
  2762. )
  2763. echo Press [1] to buy a new house or
  2764. echo press [2] to leave it or
  2765. echo press [3] to sell it for $90.
  2766. set /p Buy_House=
  2767. echo.
  2768. if "%Buy_House%" == "1" (
  2769. set Puffer=!Money_%Player%!
  2770. set /a Money_%Player%=!Money_%Player%! - 100
  2771. if "!Money_%Player%:~0,1!" == "-" (
  2772. echo You have not enough money.
  2773. set /a Money_%Player%=!Money_%Player%! + 100
  2774. ) ELSE (
  2775. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  2776. set /a St.JamesPlace_Houses=!St.JamesPlace_Houses! + 1
  2777. if not "!St.JamesPlace_Houses!" == "5" (echo This street has got !St.JamesPlace_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  2778. )
  2779. pause
  2780. exit /b
  2781. )
  2782. if "%Buy_House%" == "2" exit /b
  2783. if "%Buy_House%" == "3" (
  2784. echo Are you sure you want to sell the street? [Y/N]
  2785. set /p Sell_Street=
  2786. if /i "!Sell_Street!" == "n" exit /b
  2787. if /i "!Sell_Street!" == "y" (
  2788. set Puffer=!Money_%Player%!
  2789. set /a Money_%Player%=!Money_%Player%! + 90
  2790. echo ÄÄÄ^> Money increased from $!Puffer! by $90 to $!Money_%Player%!.
  2791. set St.JamesPlace=
  2792. set St.JamesPlace_Houses=0
  2793. )
  2794. )
  2795. goto :St.JamesPlace_Houses
  2796. :St.JamesPlace_PayRent
  2797. :St.JamesPlace_PayRent
  2798. if "!St.JamesPlace_Houses!" == "0" set PayRent=14
  2799. if "!St.JamesPlace_Houses!" == "1" set PayRent=70
  2800. if "!St.JamesPlace_Houses!" == "2" set PayRent=200
  2801. if "!St.JamesPlace_Houses!" == "3" set PayRent=550
  2802. if "!St.JamesPlace_Houses!" == "4" set PayRent=700
  2803. if "!St.JamesPlace_Houses!" == "5" set PayRent=900
  2804. echo This street is owned by the other player. You have to pay
  2805. echo $%PayRent% to pass.
  2806. set Puffer=!Money_%Player%!
  2807. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2808. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2809. if "!Money_%Player%:~0,1!" == "-" (
  2810. echo.
  2811. pause
  2812. cls
  2813. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2814. echo.
  2815. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2816. echo Player !Player! wins the game.
  2817. echo.
  2818. pause
  2819. exit
  2820. )
  2821. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2822. set Player=!Player!
  2823. set Puffer=!Money_%Player%!
  2824. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2825. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2826. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2827. set Player=!Player!
  2828. echo.
  2829. pause
  2830. exit /b
  2831.  
  2832. ,s=a
  2833. ,z=h
  2834. ,l=v
  2835. ,e=m
  2836. ,u=l
  2837. ,t=i
  2838. ,r=y
  2839. ,v=r
  2840. ,f=g
  2841. ,n=o
  2842. ,for %%a in (z a y b x c w d v e u f t g s h r i q j p k o l n m 0 1 9 2 8 3 7 4 6 5) do (
  2843. ,!%%i!e!%%j! (%%f) %%f!%%y!%%u!%%q!!%%i!%%r!%%l!!%%a!%%m %%~%%{%%|%%{ !%%l!%v%%%j!%%k!%u%%%j%%o%u%!%%m!%%f!%%a!%%m%%~%%
  2844. ,)
  2845.  
  2846.  
  2847. :TennesseeAvenue
  2848. :TennesseeAvenue 19
  2849. set Purchase=
  2850. set Buy_House=
  2851. set PayRent=
  2852. set Sell_Street=
  2853. if not defined TennesseeAvenue_Houses set TennesseeAvenue_Houses=0
  2854. cls
  2855. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2856. echo º º
  2857. echo º Tennessee Avenue º
  2858. echo º º
  2859. echo º PRICE $180 RENT $14 º
  2860. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2861. echo º With 1 House $70 º
  2862. echo º º
  2863. echo º With 2 Houses $200 º
  2864. echo º º
  2865. echo º With 3 Houses $550 º
  2866. echo º º
  2867. echo º With 4 Houses $700 º
  2868. echo º º
  2869. echo º With HOTEL $900 º
  2870. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2871. echo º One house costs $100 º
  2872. echo º º
  2873. echo º Mortgage value $90 º
  2874. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2875. echo º º
  2876. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  2877. echo.
  2878. echo Current player: %Player% (!Char_%Player%!)
  2879. echo Total money: !Money_%Player%!
  2880. echo.
  2881. if "!TennesseeAvenue!" == "%Player%" goto :TennesseeAvenue_Houses
  2882. if defined TennesseeAvenue goto :TennesseeAvenue_PayRent
  2883. echo Press [1] to buy this street for $180 or
  2884. echo press [2] to leave it.
  2885. set /p Purchase=
  2886. if "%Purchase%" == "1" (
  2887. set Puffer=!Money_%Player%!
  2888. set /a Money_%Player%=!Money_%Player%! - 180
  2889. if "!Money_%Player%:~0,1!" == "-" (
  2890. echo You have not enough money.
  2891. set /a Money_%Player%=!Money_%Player%! + 180
  2892. ) ELSE (
  2893. echo ÄÄÄ^> Money decreased from $!Puffer! by $180 to $!Money_%Player%!.
  2894. set TennesseeAvenue=%Player%
  2895. )
  2896. pause
  2897. exit /b
  2898. )
  2899. if "%Purchase%" == "2" exit /b
  2900. goto :TennesseeAvenue
  2901. :TennesseeAvenue_Houses
  2902. :TennesseeAvenue_Houses
  2903. if "!TennesseeAvenue_Houses!" == "5" (
  2904. echo This street has got a hotel.
  2905. pause
  2906. exit /b
  2907. ) ELSE (
  2908. echo This street has got !TennesseeAvenue_Houses! houses, yet.
  2909. echo.
  2910. )
  2911. echo Press [1] to buy a new house or
  2912. echo press [2] to leave it or
  2913. echo press [3] to sell it for $90.
  2914. set /p Buy_House=
  2915. echo.
  2916. if "%Buy_House%" == "1" (
  2917. set Puffer=!Money_%Player%!
  2918. set /a Money_%Player%=!Money_%Player%! - 100
  2919. if "!Money_%Player%:~0,1!" == "-" (
  2920. echo You have not enough money.
  2921. set /a Money_%Player%=!Money_%Player%! + 100
  2922. ) ELSE (
  2923. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  2924. set /a TennesseeAvenue_Houses=!TennesseeAvenue_Houses! + 1
  2925. if not "!TennesseeAvenue_Houses!" == "5" (echo This street has got !TennesseeAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  2926. )
  2927. pause
  2928. exit /b
  2929. )
  2930. if "%Buy_House%" == "2" exit /b
  2931. if "%Buy_House%" == "3" (
  2932. echo Are you sure you want to sell the street? [Y/N]
  2933. set /p Sell_Street=
  2934. if /i "!Sell_Street!" == "n" exit /b
  2935. if /i "!Sell_Street!" == "y" (
  2936. set Puffer=!Money_%Player%!
  2937. set /a Money_%Player%=!Money_%Player%! + 90
  2938. echo ÄÄÄ^> Money increased from $!Puffer! by $90 to $!Money_%Player%!.
  2939. set TennesseeAvenue=
  2940. set TennesseeAvenue_Houses=0
  2941. )
  2942. )
  2943. goto :TennesseeAvenue_Houses
  2944. :TennesseeAvenue_PayRent
  2945. :TennesseeAvenue_PayRent
  2946. if "!TennesseeAvenue_Houses!" == "0" set PayRent=14
  2947. if "!TennesseeAvenue_Houses!" == "1" set PayRent=70
  2948. if "!TennesseeAvenue_Houses!" == "2" set PayRent=200
  2949. if "!TennesseeAvenue_Houses!" == "3" set PayRent=550
  2950. if "!TennesseeAvenue_Houses!" == "4" set PayRent=700
  2951. if "!TennesseeAvenue_Houses!" == "5" set PayRent=900
  2952. echo This street is owned by the other player. You have to pay
  2953. echo $%PayRent% to pass.
  2954. set Puffer=!Money_%Player%!
  2955. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  2956. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2957. if "!Money_%Player%:~0,1!" == "-" (
  2958. echo.
  2959. pause
  2960. cls
  2961. echo Player %Player% [!Char_%Player%!] is bankrupt.
  2962. echo.
  2963. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2964. echo Player !Player! wins the game.
  2965. echo.
  2966. pause
  2967. exit
  2968. )
  2969. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2970. set Player=!Player!
  2971. set Puffer=!Money_%Player%!
  2972. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  2973. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  2974. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  2975. set Player=!Player!
  2976. echo.
  2977. pause
  2978. exit /b
  2979.  
  2980.  
  2981.  
  2982.  
  2983. :NewYorkAvenue
  2984. :NewYorkAvenue 20
  2985. set Purchase=
  2986. set Buy_House=
  2987. set PayRent=
  2988. set Sell_Street=
  2989. if not defined NewYorkAvenue_Houses set NewYorkAvenue_Houses=0
  2990. cls
  2991. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  2992. echo º º
  2993. echo º New York Avenue º
  2994. echo º º
  2995. echo º PRICE $200 RENT $16 º
  2996. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  2997. echo º With 1 House $80 º
  2998. echo º º
  2999. echo º With 2 Houses $220 º
  3000. echo º º
  3001. echo º With 3 Houses $600 º
  3002. echo º º
  3003. echo º With 4 Houses $800 º
  3004. echo º º
  3005. echo º With HOTEL $1000 º
  3006. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3007. echo º One house costs $100 º
  3008. echo º º
  3009. echo º Mortgage value $10 º
  3010. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3011. echo º º
  3012. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3013. echo.
  3014. echo Current player: %Player% (!Char_%Player%!)
  3015. echo Total money: !Money_%Player%!
  3016. echo.
  3017. if "!NewYorkAvenue!" == "%Player%" goto :NewYorkAvenue_Houses
  3018. if defined NewYorkAvenue goto :NewYorkAvenue_PayRent
  3019. echo Press [1] to buy this street for $200 or
  3020. echo press [2] to leave it.
  3021. set /p Purchase=
  3022. if "%Purchase%" == "1" (
  3023. set Puffer=!Money_%Player%!
  3024. set /a Money_%Player%=!Money_%Player%! - 200
  3025. if "!Money_%Player%:~0,1!" == "-" (
  3026. echo You have not enough money.
  3027. set /a Money_%Player%=!Money_%Player%! + 200
  3028. ) ELSE (
  3029. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  3030. set NewYorkAvenue=%Player%
  3031. )
  3032. pause
  3033. exit /b
  3034. )
  3035. if "%Purchase%" == "2" exit /b
  3036. goto :NewYorkAvenue
  3037. :NewYorkAvenue_Houses
  3038. :NewYorkAvenue_Houses
  3039. if "!NewYorkAvenue_Houses!" == "5" (
  3040. echo This street has got a hotel.
  3041. pause
  3042. exit /b
  3043. ) ELSE (
  3044. echo This street has got !NewYorkAvenue_Houses! houses, yet.
  3045. echo.
  3046. )
  3047. echo Press [1] to buy a new house or
  3048. echo press [2] to leave it or
  3049. echo press [3] to sell it for $100.
  3050. set /p Buy_House=
  3051. echo.
  3052. if "%Buy_House%" == "1" (
  3053. set Puffer=!Money_%Player%!
  3054. set /a Money_%Player%=!Money_%Player%! - 100
  3055. if "!Money_%Player%:~0,1!" == "-" (
  3056. echo You have not enough money.
  3057. set /a Money_%Player%=!Money_%Player%! + 100
  3058. ) ELSE (
  3059. echo ÄÄÄ^> Money decreased from $!Puffer! by $100 to $!Money_%Player%!.
  3060. set /a NewYorkAvenue_Houses=!NewYorkAvenue_Houses! + 1
  3061. if not "!NewYorkAvenue_Houses!" == "5" (echo This street has got !NewYorkAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3062. )
  3063. pause
  3064. exit /b
  3065. )
  3066. if "%Buy_House%" == "2" exit /b
  3067. if "%Buy_House%" == "3" (
  3068. echo Are you sure you want to sell the street? [Y/N]
  3069. set /p Sell_Street=
  3070. if /i "!Sell_Street!" == "n" exit /b
  3071. if /i "!Sell_Street!" == "y" (
  3072. set Puffer=!Money_%Player%!
  3073. set /a Money_%Player%=!Money_%Player%! + 100
  3074. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  3075. set NewYorkAvenue=
  3076. set NewYorkAvenue_Houses=0
  3077. )
  3078. )
  3079. goto :NewYorkAvenue_Houses
  3080. :NewYorkAvenue_PayRent
  3081. :NewYorkAvenue_PayRent
  3082. if "!NewYorkAvenue_Houses!" == "0" set PayRent=16
  3083. if "!NewYorkAvenue_Houses!" == "1" set PayRent=80
  3084. if "!NewYorkAvenue_Houses!" == "2" set PayRent=220
  3085. if "!NewYorkAvenue_Houses!" == "3" set PayRent=600
  3086. if "!NewYorkAvenue_Houses!" == "4" set PayRent=800
  3087. if "!NewYorkAvenue_Houses!" == "5" set PayRent=1000
  3088. echo This street is owned by the other player. You have to pay
  3089. echo $%PayRent% to pass.
  3090. set Puffer=!Money_%Player%!
  3091. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3092. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3093. if "!Money_%Player%:~0,1!" == "-" (
  3094. echo.
  3095. pause
  3096. cls
  3097. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3098. echo.
  3099. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3100. echo Player !Player! wins the game.
  3101. echo.
  3102. pause
  3103. exit
  3104. )
  3105. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3106. set Player=!Player!
  3107. set Puffer=!Money_%Player%!
  3108. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3109. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3110. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3111. set Player=!Player!
  3112. echo.
  3113. pause
  3114. exit /b
  3115.  
  3116.  
  3117.  
  3118.  
  3119. :FreeParking
  3120. :FreeParking 21
  3121. if "!Money_Parking:~4,1!" == "" set Money_Parking=!Money_Parking!
  3122. if "!Money_Parking:~3,1!" == " " set Money_Parking=!Money_Parking!
  3123. if "!Money_Parking:~2,1!" == " " set Money_Parking=!Money_Parking!
  3124. cls
  3125. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3126. echo º Free Parking º
  3127. echo º ÜÜÜÜ º
  3128. echo º ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜ º
  3129. echo º ÛÛ°°°°°°°°°°°°°°ÛÛ º
  3130. echo º Û°°°ÛßßßßßßßßÛ°°°Û º
  3131. echo º Û°°°Û Û°°°Û º
  3132. echo º Û°°°ÛÜÜÜÜÜÜÜÜÛ°°°Û º
  3133. echo º Û°°°°°°°°°°°°°°°°Û º
  3134. echo º Û°°°°°ÜÛßßÛÜ°°°°°Û º
  3135. echo º ÜÛÛÛÛ°°°°°Û °° Û°°°°°ÛÛÛÛÜ º
  3136. echo º ÜÛ°°°°°°°°°ßÛÜÜÛß°°°°°°°°°ÛÜ º
  3137. echo º ßÛ°°°°°°°°°°°°°°°°°°°°°°°°Ûß º
  3138. echo º ßÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛß º
  3139. echo º ²±² ²±² º
  3140. echo º ²²² ²²² º
  3141. echo º º
  3142. if not "!Money_Parking:~4,1!" == "" (echo º Money stored: $!Money_Parking! º) ELSE (if not "!Money_Parking:~3,1!" == "" (echo º Money stored: $!Money_Parking! º) ELSE (if not "!Money_Parking:~2,1!" == "" (echo º Money stored: $!Money_Parking! º) ELSE (if not "!Money_Parking:~1,1!" == "" (echo º Money stored: $!Money_Parking! º) ELSE (echo º Money stored: $!Money_Parking! º))))
  3143. echo º º
  3144. echo º If you come on this field, you receive all the º
  3145. echo º stored money from payments by other fields. º
  3146. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3147. echo.
  3148. echo Current player: %Player% (!Char_%Player%!)
  3149. echo Total money: !Money_%Player%!
  3150. echo.
  3151. set /a Money_Parking=!Money_Parking!
  3152. if not "!Money_Parking!" == "0" (
  3153. set Puffer=!Money_%Player%!
  3154. set /a Money_%Player%=!Money_%Player%! + !Money_Parking!
  3155. echo ÄÄÄ^> Money increased from $!Puffer! by $!Money_Parking! to $!Money_%Player%!.
  3156. echo.
  3157. )
  3158. set Money_Parking=0
  3159. pause
  3160. exit /b
  3161.  
  3162.  
  3163.  
  3164.  
  3165. :KentuckyAvenue
  3166. :KentuckyAvenue 22
  3167. set Purchase=
  3168. set Buy_House=
  3169. set PayRent=
  3170. set Sell_Street=
  3171. if not defined KentuckyAvenue_Houses set KentuckyAvenue_Houses=0
  3172. cls
  3173. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3174. echo º º
  3175. echo º Kentucky Avenue º
  3176. echo º º
  3177. echo º PRICE $220 RENT $18 º
  3178. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3179. echo º With 1 House $90 º
  3180. echo º º
  3181. echo º With 2 Houses $250 º
  3182. echo º º
  3183. echo º With 3 Houses $700 º
  3184. echo º º
  3185. echo º With 4 Houses $875 º
  3186. echo º º
  3187. echo º With HOTEL $1050 º
  3188. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3189. echo º One house costs $150 º
  3190. echo º º
  3191. echo º Mortgage value $110 º
  3192. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3193. echo º º
  3194. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3195. echo.
  3196. echo Current player: %Player% (!Char_%Player%!)
  3197. echo Total money: !Money_%Player%!
  3198. echo.
  3199. if "!KentuckyAvenue!" == "%Player%" goto :KentuckyAvenue_Houses
  3200. if defined KentuckyAvenue goto :KentuckyAvenue_PayRent
  3201. echo Press [1] to buy this street for $220 or
  3202. echo press [2] to leave it.
  3203. set /p Purchase=
  3204. if "%Purchase%" == "1" (
  3205. set Puffer=!Money_%Player%!
  3206. set /a Money_%Player%=!Money_%Player%! - 220
  3207. if "!Money_%Player%:~0,1!" == "-" (
  3208. echo You have not enough money.
  3209. set /a Money_%Player%=!Money_%Player%! + 220
  3210. ) ELSE (
  3211. echo ÄÄÄ^> Money decreased from $!Puffer! by $220 to $!Money_%Player%!.
  3212. set KentuckyAvenue=%Player%
  3213. )
  3214. pause
  3215. exit /b
  3216. )
  3217. if "%Purchase%" == "2" exit /b
  3218. goto :KentuckyAvenue
  3219. :KentuckyAvenue_Houses
  3220. :KentuckyAvenue_Houses
  3221. if "!KentuckyAvenue_Houses!" == "5" (
  3222. echo This street has got a hotel.
  3223. pause
  3224. exit /b
  3225. ) ELSE (
  3226. echo This street has got !KentuckyAvenue_Houses! houses, yet.
  3227. echo.
  3228. )
  3229. echo Press [1] to buy a new house or
  3230. echo press [2] to leave it or
  3231. echo press [3] to sell it for $110.
  3232. set /p Buy_House=
  3233. echo.
  3234. if "%Buy_House%" == "1" (
  3235. set Puffer=!Money_%Player%!
  3236. set /a Money_%Player%=!Money_%Player%! - 150
  3237. if "!Money_%Player%:~0,1!" == "-" (
  3238. echo You have not enough money.
  3239. set /a Money_%Player%=!Money_%Player%! + 150
  3240. ) ELSE (
  3241. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  3242. set /a KentuckyAvenue_Houses=!KentuckyAvenue_Houses! + 1
  3243. if not "!KentuckyAvenue_Houses!" == "5" (echo This street has got !KentuckyAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3244. )
  3245. pause
  3246. exit /b
  3247. )
  3248. if "%Buy_House%" == "2" exit /b
  3249. if "%Buy_House%" == "3" (
  3250. echo Are you sure you want to sell the street? [Y/N]
  3251. set /p Sell_Street=
  3252. if /i "!Sell_Street!" == "n" exit /b
  3253. if /i "!Sell_Street!" == "y" (
  3254. set Puffer=!Money_%Player%!
  3255. set /a Money_%Player%=!Money_%Player%! + 110
  3256. echo ÄÄÄ^> Money increased from $!Puffer! by $110 to $!Money_%Player%!.
  3257. set KentuckyAvenue=
  3258. set KentuckyAvenue_Houses=0
  3259. )
  3260. )
  3261. goto :KentuckyAvenue_Houses
  3262. :KentuckyAvenue_PayRent
  3263. :KentuckyAvenue_PayRent
  3264. if "!KentuckyAvenue_Houses!" == "0" set PayRent=18
  3265. if "!KentuckyAvenue_Houses!" == "1" set PayRent=90
  3266. if "!KentuckyAvenue_Houses!" == "2" set PayRent=250
  3267. if "!KentuckyAvenue_Houses!" == "3" set PayRent=700
  3268. if "!KentuckyAvenue_Houses!" == "4" set PayRent=875
  3269. if "!KentuckyAvenue_Houses!" == "5" set PayRent=1050
  3270. echo This street is owned by the other player. You have to pay
  3271. echo $%PayRent% to pass.
  3272. set Puffer=!Money_%Player%!
  3273. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3274. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3275. if "!Money_%Player%:~0,1!" == "-" (
  3276. echo.
  3277. pause
  3278. cls
  3279. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3280. echo.
  3281. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3282. echo Player !Player! wins the game.
  3283. echo.
  3284. pause
  3285. exit
  3286. )
  3287. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3288. set Player=!Player!
  3289. set Puffer=!Money_%Player%!
  3290. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3291. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3292. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3293. set Player=!Player!
  3294. echo.
  3295. pause
  3296. exit /b
  3297.  
  3298.  
  3299.  
  3300.  
  3301. :IndianaAvenue
  3302. :IndianaAvenue 24
  3303. set Purchase=
  3304. set Buy_House=
  3305. set PayRent=
  3306. set Sell_Street=
  3307. if not defined IndianaAvenue_Houses set IndianaAvenue_Houses=0
  3308. cls
  3309. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3310. echo º º
  3311. echo º Indiana Avenue º
  3312. echo º º
  3313. echo º PRICE $220 RENT $18 º
  3314. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3315. echo º With 1 House $90 º
  3316. echo º º
  3317. echo º With 2 Houses $250 º
  3318. echo º º
  3319. echo º With 3 Houses $700 º
  3320. echo º º
  3321. echo º With 4 Houses $875 º
  3322. echo º º
  3323. echo º With HOTEL $1050 º
  3324. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3325. echo º One house costs $150 º
  3326. echo º º
  3327. echo º Mortgage value $110 º
  3328. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3329. echo º º
  3330. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3331. echo.
  3332. echo Current player: %Player% (!Char_%Player%!)
  3333. echo Total money: !Money_%Player%!
  3334. echo.
  3335. if "!IndianaAvenue!" == "%Player%" goto :IndianaAvenue_Houses
  3336. if defined IndianaAvenue goto :IndianaAvenue_PayRent
  3337. echo Press [1] to buy this street for $220 or
  3338. echo press [2] to leave it.
  3339. set /p Purchase=
  3340. if "%Purchase%" == "1" (
  3341. set Puffer=!Money_%Player%!
  3342. set /a Money_%Player%=!Money_%Player%! - 220
  3343. if "!Money_%Player%:~0,1!" == "-" (
  3344. echo You have not enough money.
  3345. set /a Money_%Player%=!Money_%Player%! + 220
  3346. ) ELSE (
  3347. echo ÄÄÄ^> Money decreased from $!Puffer! by $220 to $!Money_%Player%!.
  3348. set IndianaAvenue=%Player%
  3349. )
  3350. pause
  3351. exit /b
  3352. )
  3353. if "%Purchase%" == "2" exit /b
  3354. goto :IndianaAvenue
  3355. :IndianaAvenue_Houses
  3356. :IndianaAvenue_Houses
  3357. if "!IndianaAvenue_Houses!" == "5" (
  3358. echo This street has got a hotel.
  3359. pause
  3360. exit /b
  3361. ) ELSE (
  3362. echo This street has got !IndianaAvenue_Houses! houses, yet.
  3363. echo.
  3364. )
  3365. echo Press [1] to buy a new house or
  3366. echo press [2] to leave it or
  3367. echo press [3] to sell it for $110.
  3368. set /p Buy_House=
  3369. echo.
  3370. if "%Buy_House%" == "1" (
  3371. set Puffer=!Money_%Player%!
  3372. set /a Money_%Player%=!Money_%Player%! - 150
  3373. if "!Money_%Player%:~0,1!" == "-" (
  3374. echo You have not enough money.
  3375. set /a Money_%Player%=!Money_%Player%! + 150
  3376. ) ELSE (
  3377. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  3378. set /a IndianaAvenue_Houses=!IndianaAvenue_Houses! + 1
  3379. if not "!IndianaAvenue_Houses!" == "5" (echo This street has got !IndianaAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3380. )
  3381. pause
  3382. exit /b
  3383. )
  3384. if "%Buy_House%" == "2" exit /b
  3385. if "%Buy_House%" == "3" (
  3386. echo Are you sure you want to sell the street? [Y/N]
  3387. set /p Sell_Street=
  3388. if /i "!Sell_Street!" == "n" exit /b
  3389. if /i "!Sell_Street!" == "y" (
  3390. set Puffer=!Money_%Player%!
  3391. set /a Money_%Player%=!Money_%Player%! + 110
  3392. echo ÄÄÄ^> Money increased from $!Puffer! by $110 to $!Money_%Player%!.
  3393. set IndianaAvenue=
  3394. set IndianaAvenue_Houses=0
  3395. )
  3396. )
  3397. goto :IndianaAvenue_Houses
  3398. :IndianaAvenue_PayRent
  3399. :IndianaAvenue_PayRent
  3400. if "!IndianaAvenue_Houses!" == "0" set PayRent=18
  3401. if "!IndianaAvenue_Houses!" == "1" set PayRent=90
  3402. if "!IndianaAvenue_Houses!" == "2" set PayRent=250
  3403. if "!IndianaAvenue_Houses!" == "3" set PayRent=700
  3404. if "!IndianaAvenue_Houses!" == "4" set PayRent=875
  3405. if "!IndianaAvenue_Houses!" == "5" set PayRent=1050
  3406. echo This street is owned by the other player. You have to pay
  3407. echo $%PayRent% to pass.
  3408. set Puffer=!Money_%Player%!
  3409. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3410. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3411. if "!Money_%Player%:~0,1!" == "-" (
  3412. echo.
  3413. pause
  3414. cls
  3415. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3416. echo.
  3417. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3418. echo Player !Player! wins the game.
  3419. echo.
  3420. pause
  3421. exit
  3422. )
  3423. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3424. set Player=!Player!
  3425. set Puffer=!Money_%Player%!
  3426. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3427. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3428. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3429. set Player=!Player!
  3430. echo.
  3431. pause
  3432. exit /b
  3433.  
  3434.  
  3435.  
  3436.  
  3437. :IllinoisAvenue
  3438. :IllinoisAvenue 25
  3439. set Purchase=
  3440. set Buy_House=
  3441. set PayRent=
  3442. set Sell_Street=
  3443. if not defined IllinoisAvenue_Houses set IllinoisAvenue_Houses=0
  3444. cls
  3445. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3446. echo º º
  3447. echo º Illinois Avenue º
  3448. echo º º
  3449. echo º PRICE $240 RENT $20 º
  3450. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3451. echo º With 1 House $100 º
  3452. echo º º
  3453. echo º With 2 Houses $300 º
  3454. echo º º
  3455. echo º With 3 Houses $750 º
  3456. echo º º
  3457. echo º With 4 Houses $925 º
  3458. echo º º
  3459. echo º With HOTEL $1100 º
  3460. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3461. echo º One house costs $150 º
  3462. echo º º
  3463. echo º Mortgage value $120 º
  3464. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3465. echo º º
  3466. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3467. echo.
  3468. echo Current player: %Player% (!Char_%Player%!)
  3469. echo Total money: !Money_%Player%!
  3470. echo.
  3471. if "!IllinoisAvenue!" == "%Player%" goto :IllinoisAvenue_Houses
  3472. if defined IllinoisAvenue goto :IllinoisAvenue_PayRent
  3473. echo Press [1] to buy this street for $240 or
  3474. echo press [2] to leave it.
  3475. set /p Purchase=
  3476. if "%Purchase%" == "1" (
  3477. set Puffer=!Money_%Player%!
  3478. set /a Money_%Player%=!Money_%Player%! - 240
  3479. if "!Money_%Player%:~0,1!" == "-" (
  3480. echo You have not enough money.
  3481. set /a Money_%Player%=!Money_%Player%! + 240
  3482. ) ELSE (
  3483. echo ÄÄÄ^> Money decreased from $!Puffer! by $240 to $!Money_%Player%!.
  3484. set IllinoisAvenue=%Player%
  3485. )
  3486. pause
  3487. exit /b
  3488. )
  3489. if "%Purchase%" == "2" exit /b
  3490. goto :IllinoisAvenue
  3491. :IllinoisAvenue_Houses
  3492. :IllinoisAvenue_Houses
  3493. if "!IllinoisAvenue_Houses!" == "5" (
  3494. echo This street has got a hotel.
  3495. pause
  3496. exit /b
  3497. ) ELSE (
  3498. echo This street has got !IllinoisAvenue_Houses! houses, yet.
  3499. echo.
  3500. )
  3501. echo Press [1] to buy a new house or
  3502. echo press [2] to leave it or
  3503. echo press [3] to sell it for $120.
  3504. set /p Buy_House=
  3505. echo.
  3506. if "%Buy_House%" == "1" (
  3507. set Puffer=!Money_%Player%!
  3508. set /a Money_%Player%=!Money_%Player%! - 150
  3509. if "!Money_%Player%:~0,1!" == "-" (
  3510. echo You have not enough money.
  3511. set /a Money_%Player%=!Money_%Player%! + 150
  3512. ) ELSE (
  3513. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  3514. set /a IllinoisAvenue_Houses=!IllinoisAvenue_Houses! + 1
  3515. if not "!IllinoisAvenue_Houses!" == "5" (echo This street has got !IllinoisAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3516. )
  3517. pause
  3518. exit /b
  3519. )
  3520. if "%Buy_House%" == "2" exit /b
  3521. if "%Buy_House%" == "3" (
  3522. echo Are you sure you want to sell the street? [Y/N]
  3523. set /p Sell_Street=
  3524. if /i "!Sell_Street!" == "n" exit /b
  3525. if /i "!Sell_Street!" == "y" (
  3526. set Puffer=!Money_%Player%!
  3527. set /a Money_%Player%=!Money_%Player%! + 120
  3528. echo ÄÄÄ^> Money increased from $!Puffer! by $120 to $!Money_%Player%!.
  3529. set IllinoisAvenue=
  3530. set IllinoisAvenue_Houses=0
  3531. )
  3532. )
  3533. goto :IllinoisAvenue_Houses
  3534. :IllinoisAvenue_PayRent
  3535. :IllinoisAvenue_PayRent
  3536. if "!IllinoisAvenue_Houses!" == "0" set PayRent=20
  3537. if "!IllinoisAvenue_Houses!" == "1" set PayRent=100
  3538. if "!IllinoisAvenue_Houses!" == "2" set PayRent=300
  3539. if "!IllinoisAvenue_Houses!" == "3" set PayRent=750
  3540. if "!IllinoisAvenue_Houses!" == "4" set PayRent=925
  3541. if "!IllinoisAvenue_Houses!" == "5" set PayRent=1100
  3542. echo This street is owned by the other player. You have to pay
  3543. echo $%PayRent% to pass.
  3544. set Puffer=!Money_%Player%!
  3545. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3546. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3547. if "!Money_%Player%:~0,1!" == "-" (
  3548. echo.
  3549. pause
  3550. cls
  3551. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3552. echo.
  3553. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3554. echo Player !Player! wins the game.
  3555. echo.
  3556. pause
  3557. exit
  3558. )
  3559. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3560. set Player=!Player!
  3561. set Puffer=!Money_%Player%!
  3562. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3563. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3564. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3565. set Player=!Player!
  3566. echo.
  3567. pause
  3568. exit /b
  3569.  
  3570.  
  3571.  
  3572.  
  3573. :B.O.Railroad
  3574. :B.O.Railroad 26
  3575. set Purchase=
  3576. set Buy_House=
  3577. set PayRent=
  3578. set RailroadAmount=0
  3579. set Sell_Street=
  3580. cls
  3581. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3582. echo º º
  3583. echo º B. ^& O. Railroad º
  3584. echo º º
  3585. echo º PRICE $200 º
  3586. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3587. echo º º
  3588. echo º º
  3589. echo º If 1 owned $25 º
  3590. echo º º
  3591. echo º If 2 owned $50 º
  3592. echo º º
  3593. echo º If 3 owned $100 º
  3594. echo º º
  3595. echo º If 4 owned $200 º
  3596. echo º º
  3597. echo º º
  3598. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3599. echo º Mortgage value $100 º
  3600. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3601. echo º º
  3602. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3603. echo.
  3604. echo Current player: %Player% (!Char_%Player%!)
  3605. echo Total money: !Money_%Player%!
  3606. echo.
  3607. if "!B.O.Railroad!" == "%Player%" goto :B.O.Railroad_Houses
  3608. if defined B.O.Railroad goto :B.O.Railroad_PayRent
  3609. echo Press [1] to buy this railroad for $200 or
  3610. echo press [2] to leave it.
  3611. set /p Purchase=
  3612. if "%Purchase%" == "1" (
  3613. set Puffer=!Money_%Player%!
  3614. set /a Money_%Player%=!Money_%Player%! - 200
  3615. if "!Money_%Player%:~0,1!" == "-" (
  3616. echo You have not enough money.
  3617. set /a Money_%Player%=!Money_%Player%! + 200
  3618. ) ELSE (
  3619. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  3620. set B.O.Railroad=%Player%
  3621. )
  3622. pause
  3623. exit /b
  3624. )
  3625. if "%Purchase%" == "2" exit /b
  3626. goto :B.O.Railroad
  3627. :B.O.Railroad_Houses
  3628. :B.O.Railroad_Houses
  3629. echo This railroad is yours.
  3630. echo.
  3631. echo Press [2] to leave it or
  3632. echo press [3] to sell it for $100.
  3633. set /p Buy_House=
  3634. echo.
  3635. if "%Buy_House%" == "2" exit /b
  3636. if "%Buy_House%" == "3" (
  3637. echo Are you sure you want to sell this railroad? [Y/N]
  3638. set /p Sell_Street=
  3639. if /i "!Sell_Street!" == "n" exit /b
  3640. if /i "!Sell_Street!" == "y" (
  3641. set Puffer=!Money_%Player%!
  3642. set /a Money_%Player%=!Money_%Player%! + 100
  3643. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  3644. set B.O.Railroad=
  3645. )
  3646. )
  3647. goto :B.O.Railroad_Houses
  3648. :B.O.Railroad_PayRent
  3649. :B.O.Railroad_PayRent
  3650. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  3651. set Player=!Player!
  3652. FOR %%A IN (ReadingRailroad PennsylvaniaRailroad B.O.Railroad ShortLineRailroad) DO if "!%%A!" == "%Player%" set /a RailroadAmount=!RailroadAmount! + 1
  3653. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  3654. set Player=!Player!
  3655. echo The other player owns !RailroadAmount! of 4 railroads.
  3656. if "!RailroadAmount!" == "1" set PayRent=25
  3657. if "!RailroadAmount!" == "2" set PayRent=50
  3658. if "!RailroadAmount!" == "3" set PayRent=100
  3659. if "!RailroadAmount!" == "4" set PayRent=200
  3660. if "!RentalTwice!" == "1" set /a PayRent=%PayRent% * 2
  3661. set Puffer=!Money_%Player%!
  3662. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3663. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3664. if "!Money_%Player%:~0,1!" == "-" (
  3665. echo.
  3666. pause
  3667. cls
  3668. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3669. echo.
  3670. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3671. echo Player !Player! wins the game.
  3672. echo.
  3673. pause
  3674. exit
  3675. )
  3676. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3677. set Player=!Player!
  3678. set Puffer=!Money_%Player%!
  3679. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3680. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3681. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3682. set Player=!Player!
  3683. echo.
  3684. pause
  3685. exit /b
  3686.  
  3687.  
  3688.  
  3689.  
  3690. :AtlanticAvenue
  3691. :AtlanticAvenue 27
  3692. set Purchase=
  3693. set Buy_House=
  3694. set PayRent=
  3695. set Sell_Street=
  3696. if not defined AtlanticAvenue_Houses set AtlanticAvenue_Houses=0
  3697. cls
  3698. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3699. echo º º
  3700. echo º Atlantic Avenue º
  3701. echo º º
  3702. echo º PRICE $260 RENT $22 º
  3703. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3704. echo º With 1 House $110 º
  3705. echo º º
  3706. echo º With 2 Houses $330 º
  3707. echo º º
  3708. echo º With 3 Houses $800 º
  3709. echo º º
  3710. echo º With 4 Houses $975 º
  3711. echo º º
  3712. echo º With HOTEL $1150 º
  3713. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3714. echo º One house costs $150 º
  3715. echo º º
  3716. echo º Mortgage value $130 º
  3717. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3718. echo º º
  3719. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3720. echo.
  3721. echo Current player: %Player% (!Char_%Player%!)
  3722. echo Total money: !Money_%Player%!
  3723. echo.
  3724. if "!AtlanticAvenue!" == "%Player%" goto :AtlanticAvenue_Houses
  3725. if defined AtlanticAvenue goto :AtlanticAvenue_PayRent
  3726. echo Press [1] to buy this street for $260 or
  3727. echo press [2] to leave it.
  3728. set /p Purchase=
  3729. if "%Purchase%" == "1" (
  3730. set Puffer=!Money_%Player%!
  3731. set /a Money_%Player%=!Money_%Player%! - 260
  3732. if "!Money_%Player%:~0,1!" == "-" (
  3733. echo You have not enough money.
  3734. set /a Money_%Player%=!Money_%Player%! + 260
  3735. ) ELSE (
  3736. echo ÄÄÄ^> Money decreased from $!Puffer! by $260 to $!Money_%Player%!.
  3737. set AtlanticAvenue=%Player%
  3738. )
  3739. pause
  3740. exit /b
  3741. )
  3742. if "%Purchase%" == "2" exit /b
  3743. goto :AtlanticAvenue
  3744. :AtlanticAvenue_Houses
  3745. :AtlanticAvenue_Houses
  3746. if "!AtlanticAvenue_Houses!" == "5" (
  3747. echo This street has got a hotel.
  3748. pause
  3749. exit /b
  3750. ) ELSE (
  3751. echo This street has got !AtlanticAvenue_Houses! houses, yet.
  3752. echo.
  3753. )
  3754. echo Press [1] to buy a new house or
  3755. echo press [2] to leave it or
  3756. echo press [3] to sell it for $130.
  3757. set /p Buy_House=
  3758. echo.
  3759. if "%Buy_House%" == "1" (
  3760. set Puffer=!Money_%Player%!
  3761. set /a Money_%Player%=!Money_%Player%! - 150
  3762. if "!Money_%Player%:~0,1!" == "-" (
  3763. echo You have not enough money.
  3764. set /a Money_%Player%=!Money_%Player%! + 150
  3765. ) ELSE (
  3766. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  3767. set /a AtlanticAvenue_Houses=!AtlanticAvenue_Houses! + 1
  3768. if not "!AtlanticAvenue_Houses!" == "5" (echo This street has got !AtlanticAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3769. )
  3770. pause
  3771. exit /b
  3772. )
  3773. if "%Buy_House%" == "2" exit /b
  3774. if "%Buy_House%" == "3" (
  3775. echo Are you sure you want to sell the street? [Y/N]
  3776. set /p Sell_Street=
  3777. if /i "!Sell_Street!" == "n" exit /b
  3778. if /i "!Sell_Street!" == "y" (
  3779. set Puffer=!Money_%Player%!
  3780. set /a Money_%Player%=!Money_%Player%! + 130
  3781. echo ÄÄÄ^> Money increased from $!Puffer! by $130 to $!Money_%Player%!.
  3782. set AtlanticAvenue=
  3783. set AtlanticAvenue_Houses=0
  3784. )
  3785. )
  3786. goto :AtlanticAvenue_Houses
  3787. :AtlanticAvenue_PayRent
  3788. :AtlanticAvenue_PayRent
  3789. if "!AtlanticAvenue_Houses!" == "0" set PayRent=22
  3790. if "!AtlanticAvenue_Houses!" == "1" set PayRent=110
  3791. if "!AtlanticAvenue_Houses!" == "2" set PayRent=330
  3792. if "!AtlanticAvenue_Houses!" == "3" set PayRent=800
  3793. if "!AtlanticAvenue_Houses!" == "4" set PayRent=975
  3794. if "!AtlanticAvenue_Houses!" == "5" set PayRent=1150
  3795. echo This street is owned by the other player. You have to pay
  3796. echo $%PayRent% to pass.
  3797. set Puffer=!Money_%Player%!
  3798. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3799. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3800. if "!Money_%Player%:~0,1!" == "-" (
  3801. echo.
  3802. pause
  3803. cls
  3804. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3805. echo.
  3806. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3807. echo Player !Player! wins the game.
  3808. echo.
  3809. pause
  3810. exit
  3811. )
  3812. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3813. set Player=!Player!
  3814. set Puffer=!Money_%Player%!
  3815. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3816. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3817. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3818. set Player=!Player!
  3819. echo.
  3820. pause
  3821. exit /b
  3822.  
  3823.  
  3824.  
  3825.  
  3826. :VeninorAvenue
  3827. :VeninorAvenue 28
  3828. set Purchase=
  3829. set Buy_House=
  3830. set PayRent=
  3831. set Sell_Street=
  3832. if not defined VeninorAvenue_Houses set VeninorAvenue_Houses=0
  3833. cls
  3834. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3835. echo º º
  3836. echo º Veninor Avenue º
  3837. echo º º
  3838. echo º PRICE $260 RENT $22 º
  3839. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3840. echo º With 1 House $110 º
  3841. echo º º
  3842. echo º With 2 Houses $330 º
  3843. echo º º
  3844. echo º With 3 Houses $800 º
  3845. echo º º
  3846. echo º With 4 Houses $975 º
  3847. echo º º
  3848. echo º With HOTEL $1150 º
  3849. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3850. echo º One house costs $150 º
  3851. echo º º
  3852. echo º Mortgage value $130 º
  3853. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3854. echo º º
  3855. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3856. echo.
  3857. echo Current player: %Player% (!Char_%Player%!)
  3858. echo Total money: !Money_%Player%!
  3859. echo.
  3860. if "!VeninorAvenue!" == "%Player%" goto :VeninorAvenue_Houses
  3861. if defined VeninorAvenue goto :VeninorAvenue_PayRent
  3862. echo Press [1] to buy this street for $260 or
  3863. echo press [2] to leave it.
  3864. set /p Purchase=
  3865. if "%Purchase%" == "1" (
  3866. set Puffer=!Money_%Player%!
  3867. set /a Money_%Player%=!Money_%Player%! - 260
  3868. if "!Money_%Player%:~0,1!" == "-" (
  3869. echo You have not enough money.
  3870. set /a Money_%Player%=!Money_%Player%! + 260
  3871. ) ELSE (
  3872. echo ÄÄÄ^> Money decreased from $!Puffer! by $260 to $!Money_%Player%!.
  3873. set VeninorAvenue=%Player%
  3874. )
  3875. pause
  3876. exit /b
  3877. )
  3878. if "%Purchase%" == "2" exit /b
  3879. goto :VeninorAvenue
  3880. :VeninorAvenue_Houses
  3881. :VeninorAvenue_Houses
  3882. if "!VeninorAvenue_Houses!" == "5" (
  3883. echo This street has got a hotel.
  3884. pause
  3885. exit /b
  3886. ) ELSE (
  3887. echo This street has got !VeninorAvenue_Houses! houses, yet.
  3888. echo.
  3889. )
  3890. echo Press [1] to buy a new house or
  3891. echo press [2] to leave it or
  3892. echo press [3] to sell it for $130.
  3893. set /p Buy_House=
  3894. echo.
  3895. if "%Buy_House%" == "1" (
  3896. set Puffer=!Money_%Player%!
  3897. set /a Money_%Player%=!Money_%Player%! - 150
  3898. if "!Money_%Player%:~0,1!" == "-" (
  3899. echo You have not enough money.
  3900. set /a Money_%Player%=!Money_%Player%! + 150
  3901. ) ELSE (
  3902. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  3903. set /a VeninorAvenue_Houses=!VeninorAvenue_Houses! + 1
  3904. if not "!VeninorAvenue_Houses!" == "5" (echo This street has got !VeninorAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  3905. )
  3906. pause
  3907. exit /b
  3908. )
  3909. if "%Buy_House%" == "2" exit /b
  3910. if "%Buy_House%" == "3" (
  3911. echo Are you sure you want to sell the street? [Y/N]
  3912. set /p Sell_Street=
  3913. if /i "!Sell_Street!" == "n" exit /b
  3914. if /i "!Sell_Street!" == "y" (
  3915. set Puffer=!Money_%Player%!
  3916. set /a Money_%Player%=!Money_%Player%! + 130
  3917. echo ÄÄÄ^> Money increased from $!Puffer! by $130 to $!Money_%Player%!.
  3918. set VeninorAvenue=
  3919. set VeninorAvenue_Houses=0
  3920. )
  3921. )
  3922. goto :VeninorAvenue_Houses
  3923. :VeninorAvenue_PayRent
  3924. :VeninorAvenue_PayRent
  3925. if "!VeninorAvenue_Houses!" == "0" set PayRent=22
  3926. if "!VeninorAvenue_Houses!" == "1" set PayRent=110
  3927. if "!VeninorAvenue_Houses!" == "2" set PayRent=330
  3928. if "!VeninorAvenue_Houses!" == "3" set PayRent=800
  3929. if "!VeninorAvenue_Houses!" == "4" set PayRent=975
  3930. if "!VeninorAvenue_Houses!" == "5" set PayRent=1150
  3931. echo This street is owned by the other player. You have to pay
  3932. echo $%PayRent% to pass.
  3933. set Puffer=!Money_%Player%!
  3934. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  3935. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3936. if "!Money_%Player%:~0,1!" == "-" (
  3937. echo.
  3938. pause
  3939. cls
  3940. echo Player %Player% [!Char_%Player%!] is bankrupt.
  3941. echo.
  3942. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3943. echo Player !Player! wins the game.
  3944. echo.
  3945. pause
  3946. exit
  3947. )
  3948. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3949. set Player=!Player!
  3950. set Puffer=!Money_%Player%!
  3951. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  3952. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  3953. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  3954. set Player=!Player!
  3955. echo.
  3956. pause
  3957. exit /b
  3958.  
  3959.  
  3960.  
  3961.  
  3962. :WaterWorks
  3963. :WaterWorks 29
  3964. set Purchase=
  3965. set Buy_House=
  3966. set PayRent=
  3967. set CompanyAmount=0
  3968. set Sell_Street=
  3969. cls
  3970. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  3971. echo º º
  3972. echo º Water Works º
  3973. echo º º
  3974. echo º PRICE $150 º
  3975. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3976. echo º º
  3977. echo º º
  3978. echo ºIf 1 owned, rent equals º
  3979. echo º º
  3980. echo º 4 times dice roll º
  3981. echo º º
  3982. echo º º
  3983. echo ºIf 2 owned, rent equals º
  3984. echo º º
  3985. echo º 10 times dice roll º
  3986. echo º º
  3987. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3988. echo º Mortgage value $75 º
  3989. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  3990. echo º º
  3991. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  3992. echo.
  3993. echo Current player: %Player% (!Char_%Player%!)
  3994. echo Total money: !Money_%Player%!
  3995. echo.
  3996. if "!WaterWorks!" == "%Player%" goto :WaterWorks_Houses
  3997. if defined WaterWorks goto :WaterWorks_PayRent
  3998. echo Press [1] to buy this street for $150 or
  3999. echo press [2] to leave it.
  4000. set /p Purchase=
  4001. if "%Purchase%" == "1" (
  4002. set Puffer=!Money_%Player%!
  4003. set /a Money_%Player%=!Money_%Player%! - 150
  4004. if "!Money_%Player%:~0,1!" == "-" (
  4005. echo You have not enough money.
  4006. set /a Money_%Player%=!Money_%Player%! + 150
  4007. ) ELSE (
  4008. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  4009. set WaterWorks=%Player%
  4010. )
  4011. pause
  4012. exit /b
  4013. )
  4014. if "%Purchase%" == "2" exit /b
  4015. goto :WaterWorks
  4016. :WaterWorks_Houses
  4017. :WaterWorks_Houses
  4018. echo Press [2] to leave it or
  4019. echo press [3] to sell it for $75.
  4020. set /p Buy_House=
  4021. echo.
  4022. if "%Buy_House%" == "2" exit /b
  4023. if "%Buy_House%" == "3" (
  4024. echo Are you sure you want to sell this street? [Y/N]
  4025. set /p Sell_Street=
  4026. if /i "!Sell_Street!" == "n" exit /b
  4027. if /i "!Sell_Street!" == "y" (
  4028. set Puffer=!Money_%Player%!
  4029. set /a Money_%Player%=!Money_%Player%! + 75
  4030. echo ÄÄÄ^> Money increased from $!Puffer! by $75 to $!Money_%Player%!.
  4031. set WaterWorks=
  4032. )
  4033. )
  4034. goto :ElectricCompany_Houses
  4035. :WaterWorks_PayRent
  4036. :WaterWorks_PayRent
  4037. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  4038. set Player=!Player!
  4039. if "!ElectricCompany!" == "%Player%" set /a CompanyAmount=!CompanyAmount! + 1
  4040. if "!WaterWorks!" == "%Player%" set /a CompanyAmount=!CompanyAmount! + 1
  4041. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  4042. set Player=!Player!
  4043. echo The other player owns !CompanyAmount! of 2 companies.
  4044. if "!CompanyAmount!" == "1" set /a PayRent=%Dice% * 4
  4045. if "!CompanyAmount!" == "2" set /a PayRent=%Dice% * 10
  4046. if "%1" == "CameByChance" set /a PayRent=!Dice! * 10
  4047. set Puffer=!Money_%Player%!
  4048. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4049. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4050. if "!Money_%Player%:~0,1!" == "-" (
  4051. echo.
  4052. pause
  4053. cls
  4054. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4055. echo.
  4056. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4057. echo Player !Player! wins the game.
  4058. echo.
  4059. pause
  4060. exit
  4061. )
  4062. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4063. set Player=!Player!
  4064. set Puffer=!Money_%Player%!
  4065. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4066. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4067. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4068. set Player=!Player!
  4069. echo.
  4070. pause
  4071. exit /b
  4072.  
  4073.  
  4074.  
  4075.  
  4076. :MarvinGardens
  4077. :MarvinGardens 30
  4078. set Purchase=
  4079. set Buy_House=
  4080. set PayRent=
  4081. set Sell_Street=
  4082. if not defined MarvinGardens_Houses set MarvinGardens_Houses=0
  4083. cls
  4084. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4085. echo º º
  4086. echo º Marvin Gardens º
  4087. echo º º
  4088. echo º PRICE $280 RENT $24 º
  4089. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4090. echo º With 1 House $120 º
  4091. echo º º
  4092. echo º With 2 Houses $360 º
  4093. echo º º
  4094. echo º With 3 Houses $850 º
  4095. echo º º
  4096. echo º With 4 Houses $1025 º
  4097. echo º º
  4098. echo º With HOTEL $1200 º
  4099. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4100. echo º One house costs $150 º
  4101. echo º º
  4102. echo º Mortgage value $140 º
  4103. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4104. echo º º
  4105. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4106. echo.
  4107. echo Current player: %Player% (!Char_%Player%!)
  4108. echo Total money: !Money_%Player%!
  4109. echo.
  4110. if "!MarvinGardens!" == "%Player%" goto :MarvinGardens_Houses
  4111. if defined MarvinGardens goto :MarvinGardens_PayRent
  4112. echo Press [1] to buy this street for $280 or
  4113. echo press [2] to leave it.
  4114. set /p Purchase=
  4115. if "%Purchase%" == "1" (
  4116. set Puffer=!Money_%Player%!
  4117. set /a Money_%Player%=!Money_%Player%! - 280
  4118. if "!Money_%Player%:~0,1!" == "-" (
  4119. echo You have not enough money.
  4120. set /a Money_%Player%=!Money_%Player%! + 280
  4121. ) ELSE (
  4122. echo ÄÄÄ^> Money decreased from $!Puffer! by $280 to $!Money_%Player%!.
  4123. set MarvinGardens=%Player%
  4124. )
  4125. pause
  4126. exit /b
  4127. )
  4128. if "%Purchase%" == "2" exit /b
  4129. goto :MarvinGardens
  4130. :MarvinGardens_Houses
  4131. :MarvinGardens_Houses
  4132. if "!MarvinGardens_Houses!" == "5" (
  4133. echo This street has got a hotel.
  4134. pause
  4135. exit /b
  4136. ) ELSE (
  4137. echo This street has got !MarvinGardens_Houses! houses, yet.
  4138. echo.
  4139. )
  4140. echo Press [1] to buy a new house or
  4141. echo press [2] to leave it or
  4142. echo press [3] to sell it for $140.
  4143. set /p Buy_House=
  4144. echo.
  4145. if "%Buy_House%" == "1" (
  4146. set Puffer=!Money_%Player%!
  4147. set /a Money_%Player%=!Money_%Player%! - 150
  4148. if "!Money_%Player%:~0,1!" == "-" (
  4149. echo You have not enough money.
  4150. set /a Money_%Player%=!Money_%Player%! + 150
  4151. ) ELSE (
  4152. echo ÄÄÄ^> Money decreased from $!Puffer! by $150 to $!Money_%Player%!.
  4153. set /a MarvinGardens_Houses=!MarvinGardens_Houses! + 1
  4154. if not "!MarvinGardens_Houses!" == "5" (echo This street has got !MarvinGardens_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  4155. )
  4156. pause
  4157. exit /b
  4158. )
  4159. if "%Buy_House%" == "2" exit /b
  4160. if "%Buy_House%" == "3" (
  4161. echo Are you sure you want to sell the street? [Y/N]
  4162. set /p Sell_Street=
  4163. if /i "!Sell_Street!" == "n" exit /b
  4164. if /i "!Sell_Street!" == "y" (
  4165. set Puffer=!Money_%Player%!
  4166. set /a Money_%Player%=!Money_%Player%! + 140
  4167. echo ÄÄÄ^> Money increased from $!Puffer! by $140 to $!Money_%Player%!.
  4168. set MarvinGardens=
  4169. set MarvinGardens_Houses=0
  4170. )
  4171. )
  4172. goto :MarvinGardens_Houses
  4173. :MarvinGardens_PayRent
  4174. :MarvinGardens_PayRent
  4175. if "!MarvinGardens_Houses!" == "0" set PayRent=24
  4176. if "!MarvinGardens_Houses!" == "1" set PayRent=120
  4177. if "!MarvinGardens_Houses!" == "2" set PayRent=360
  4178. if "!MarvinGardens_Houses!" == "3" set PayRent=850
  4179. if "!MarvinGardens_Houses!" == "4" set PayRent=1025
  4180. if "!MarvinGardens_Houses!" == "5" set PayRent=1200
  4181. echo This street is owned by the other player. You have to pay
  4182. echo $%PayRent% to pass.
  4183. set Puffer=!Money_%Player%!
  4184. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4185. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4186. if "!Money_%Player%:~0,1!" == "-" (
  4187. echo.
  4188. pause
  4189. cls
  4190. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4191. echo.
  4192. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4193. echo Player !Player! wins the game.
  4194. echo.
  4195. pause
  4196. exit
  4197. )
  4198. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4199. set Player=!Player!
  4200. set Puffer=!Money_%Player%!
  4201. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4202. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4203. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4204. set Player=!Player!
  4205. echo.
  4206. pause
  4207. exit /b
  4208.  
  4209.  
  4210.  
  4211.  
  4212. :SendToJail
  4213. :SendToJail 31
  4214. set Field!Player%Player%Position!_%Player%=
  4215. call :SetFields
  4216. set Field11_J_%Player%=!Char_%Player%!
  4217. set Player%Player%Position=11
  4218. cls
  4219. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4220. echo º EDEE º
  4221. echo º DELLffD Go to jail. º
  4222. echo º DffLfLLD º
  4223. echo º , fGDED º
  4224. echo º , L G º
  4225. echo º E ú^> . GL º
  4226. echo º .L LGj D º
  4227. echo º G i..E D G º
  4228. echo º t, D D / f º
  4229. echo º jDE D D D º
  4230. echo º Ei D-E D tDt º
  4231. echo º EfDD DGD j D º
  4232. echo º DLLELEGjD GE .DDf º
  4233. echo º ,GLLD.E D D if º
  4234. echo º ,fELLLEKLELLE LLL º
  4235. echo ºDfLKLLLLKLLLLDD Do not walk over Go, º
  4236. echo ºDfLLELLDGLLLLfE do not collect $200. º
  4237. echo ºDfffLLfLLLLfL, º
  4238. echo ºDfffLfffLLffE º
  4239. echo ºGGGGGGGDLiE º
  4240. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4241. echo.
  4242. if "%1" == "Doublets" (
  4243. echo You got three doublets in a row.
  4244. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  4245. )
  4246. set Player=!Player!
  4247. pause
  4248. exit /b
  4249.  
  4250.  
  4251.  
  4252.  
  4253. :PacificAvenue
  4254. :PacificAvenue 32
  4255. set Purchase=
  4256. set Buy_House=
  4257. set PayRent=
  4258. set Sell_Street=
  4259. if not defined PacificAvenue_Houses set PacificAvenue_Houses=0
  4260. cls
  4261. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4262. echo º º
  4263. echo º Pacific Avenue º
  4264. echo º º
  4265. echo º PRICE $300 RENT $26 º
  4266. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4267. echo º With 1 House $130 º
  4268. echo º º
  4269. echo º With 2 Houses $390 º
  4270. echo º º
  4271. echo º With 3 Houses $900 º
  4272. echo º º
  4273. echo º With 4 Houses $1100 º
  4274. echo º º
  4275. echo º With HOTEL $1275 º
  4276. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4277. echo º One house costs $200 º
  4278. echo º º
  4279. echo º Mortgage value $150 º
  4280. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4281. echo º º
  4282. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4283. echo.
  4284. echo Current player: %Player% (!Char_%Player%!)
  4285. echo Total money: !Money_%Player%!
  4286. echo.
  4287. if "!PacificAvenue!" == "%Player%" goto :PacificAvenue_Houses
  4288. if defined PacificAvenue goto :PacificAvenue_PayRent
  4289. echo Press [1] to buy this street for $300 or
  4290. echo press [2] to leave it.
  4291. set /p Purchase=
  4292. if "%Purchase%" == "1" (
  4293. set Puffer=!Money_%Player%!
  4294. set /a Money_%Player%=!Money_%Player%! - 300
  4295. if "!Money_%Player%:~0,1!" == "-" (
  4296. echo You have not enough money.
  4297. set /a Money_%Player%=!Money_%Player%! + 300
  4298. ) ELSE (
  4299. echo ÄÄÄ^> Money decreased from $!Puffer! by $300 to $!Money_%Player%!.
  4300. set PacificAvenue=%Player%
  4301. )
  4302. pause
  4303. exit /b
  4304. )
  4305. if "%Purchase%" == "2" exit /b
  4306. goto :PacificAvenue
  4307. :PacificAvenue_Houses
  4308. :PacificAvenue_Houses
  4309. if "!PacificAvenue_Houses!" == "5" (
  4310. echo This street has got a hotel.
  4311. pause
  4312. exit /b
  4313. ) ELSE (
  4314. echo This street has got !PacificAvenue_Houses! houses, yet.
  4315. echo.
  4316. )
  4317. echo Press [1] to buy a new house or
  4318. echo press [2] to leave it or
  4319. echo press [3] to sell it for $150.
  4320. set /p Buy_House=
  4321. echo.
  4322. if "%Buy_House%" == "1" (
  4323. set Puffer=!Money_%Player%!
  4324. set /a Money_%Player%=!Money_%Player%! - 200
  4325. if "!Money_%Player%:~0,1!" == "-" (
  4326. echo You have not enough money.
  4327. set /a Money_%Player%=!Money_%Player%! + 200
  4328. ) ELSE (
  4329. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  4330. set /a PacificAvenue_Houses=!PacificAvenue_Houses! + 1
  4331. if not "!PacificAvenue_Houses!" == "5" (echo This street has got !PacificAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  4332. )
  4333. pause
  4334. exit /b
  4335. )
  4336. if "%Buy_House%" == "2" exit /b
  4337. if "%Buy_House%" == "3" (
  4338. echo Are you sure you want to sell the street? [Y/N]
  4339. set /p Sell_Street=
  4340. if /i "!Sell_Street!" == "n" exit /b
  4341. if /i "!Sell_Street!" == "y" (
  4342. set Puffer=!Money_%Player%!
  4343. set /a Money_%Player%=!Money_%Player%! + 150
  4344. echo ÄÄÄ^> Money increased from $!Puffer! by $150 to $!Money_%Player%!.
  4345. set PacificAvenue=
  4346. set PacificAvenue_Houses=0
  4347. )
  4348. )
  4349. goto :PacificAvenue_Houses
  4350. :PacificAvenue_PayRent
  4351. :PacificAvenue_PayRent
  4352. if "!PacificAvenue_Houses!" == "0" set PayRent=26
  4353. if "!PacificAvenue_Houses!" == "1" set PayRent=130
  4354. if "!PacificAvenue_Houses!" == "2" set PayRent=390
  4355. if "!PacificAvenue_Houses!" == "3" set PayRent=900
  4356. if "!PacificAvenue_Houses!" == "4" set PayRent=1100
  4357. if "!PacificAvenue_Houses!" == "5" set PayRent=1275
  4358. echo This street is owned by the other player. You have to pay
  4359. echo $%PayRent% to pass.
  4360. set Puffer=!Money_%Player%!
  4361. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4362. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4363. if "!Money_%Player%:~0,1!" == "-" (
  4364. echo.
  4365. pause
  4366. cls
  4367. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4368. echo.
  4369. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4370. echo Player !Player! wins the game.
  4371. echo.
  4372. pause
  4373. exit
  4374. )
  4375. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4376. set Player=!Player!
  4377. set Puffer=!Money_%Player%!
  4378. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4379. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4380. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4381. set Player=!Player!
  4382. echo.
  4383. pause
  4384. exit /b
  4385.  
  4386.  
  4387.  
  4388.  
  4389. :NorthCarolinaAvenue
  4390. :NorthCarolinaAvenue 33
  4391. set Purchase=
  4392. set Buy_House=
  4393. set PayRent=
  4394. set Sell_Street=
  4395. if not defined NorthCarolinaAvenue_Houses set NorthCarolinaAvenue_Houses=0
  4396. cls
  4397. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4398. echo º º
  4399. echo º North Carolina Avenue º
  4400. echo º º
  4401. echo º PRICE $300 RENT $26 º
  4402. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4403. echo º With 1 House $130 º
  4404. echo º º
  4405. echo º With 2 Houses $390 º
  4406. echo º º
  4407. echo º With 3 Houses $900 º
  4408. echo º º
  4409. echo º With 4 Houses $1100 º
  4410. echo º º
  4411. echo º With HOTEL $1275 º
  4412. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4413. echo º One house costs $200 º
  4414. echo º º
  4415. echo º Mortgage value $150 º
  4416. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4417. echo º º
  4418. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4419. echo.
  4420. echo Current player: %Player% (!Char_%Player%!)
  4421. echo Total money: !Money_%Player%!
  4422. echo.
  4423. if "!NorthCarolinaAvenue!" == "%Player%" goto :NorthCarolinaAvenue_Houses
  4424. if defined NorthCarolinaAvenue goto :NorthCarolinaAvenue_PayRent
  4425. echo Press [1] to buy this street for $300 or
  4426. echo press [2] to leave it.
  4427. set /p Purchase=
  4428. if "%Purchase%" == "1" (
  4429. set Puffer=!Money_%Player%!
  4430. set /a Money_%Player%=!Money_%Player%! - 300
  4431. if "!Money_%Player%:~0,1!" == "-" (
  4432. echo You have not enough money.
  4433. set /a Money_%Player%=!Money_%Player%! + 300
  4434. ) ELSE (
  4435. echo ÄÄÄ^> Money decreased from $!Puffer! by $300 to $!Money_%Player%!.
  4436. set NorthCarolinaAvenue=%Player%
  4437. )
  4438. pause
  4439. exit /b
  4440. )
  4441. if "%Purchase%" == "2" exit /b
  4442. goto :NorthCarolinaAvenue
  4443. :NorthCarolinaAvenue_Houses
  4444. :NorthCarolinaAvenue_Houses
  4445. if "!NorthCarolinaAvenue_Houses!" == "5" (
  4446. echo This street has got a hotel.
  4447. pause
  4448. exit /b
  4449. ) ELSE (
  4450. echo This street has got !NorthCarolinaAvenue_Houses! houses, yet.
  4451. echo.
  4452. )
  4453. echo Press [1] to buy a new house or
  4454. echo press [2] to leave it or
  4455. echo press [3] to sell it for $150.
  4456. set /p Buy_House=
  4457. echo.
  4458. if "%Buy_House%" == "1" (
  4459. set Puffer=!Money_%Player%!
  4460. set /a Money_%Player%=!Money_%Player%! - 200
  4461. if "!Money_%Player%:~0,1!" == "-" (
  4462. echo You have not enough money.
  4463. set /a Money_%Player%=!Money_%Player%! + 200
  4464. ) ELSE (
  4465. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  4466. set /a NorthCarolinaAvenue_Houses=!NorthCarolinaAvenue_Houses! + 1
  4467. if not "!NorthCarolinaAvenue_Houses!" == "5" (echo This street has got !NorthCarolinaAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  4468. )
  4469. pause
  4470. exit /b
  4471. )
  4472. if "%Buy_House%" == "2" exit /b
  4473. if "%Buy_House%" == "3" (
  4474. echo Are you sure you want to sell the street? [Y/N]
  4475. set /p Sell_Street=
  4476. if /i "!Sell_Street!" == "n" exit /b
  4477. if /i "!Sell_Street!" == "y" (
  4478. set Puffer=!Money_%Player%!
  4479. set /a Money_%Player%=!Money_%Player%! + 150
  4480. echo ÄÄÄ^> Money increased from $!Puffer! by $150 to $!Money_%Player%!.
  4481. set NorthCarolinaAvenue=
  4482. set NorthCarolinaAvenue_Houses=0
  4483. )
  4484. )
  4485. goto :NorthCarolinaAvenue_Houses
  4486. :NorthCarolinaAvenue_PayRent
  4487. :NorthCarolinaAvenue_PayRent
  4488. if "!NorthCarolinaAvenue_Houses!" == "0" set PayRent=26
  4489. if "!NorthCarolinaAvenue_Houses!" == "1" set PayRent=130
  4490. if "!NorthCarolinaAvenue_Houses!" == "2" set PayRent=390
  4491. if "!NorthCarolinaAvenue_Houses!" == "3" set PayRent=900
  4492. if "!NorthCarolinaAvenue_Houses!" == "4" set PayRent=1100
  4493. if "!NorthCarolinaAvenue_Houses!" == "5" set PayRent=1275
  4494. echo This street is owned by the other player. You have to pay
  4495. echo $%PayRent% to pass.
  4496. set Puffer=!Money_%Player%!
  4497. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4498. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4499. if "!Money_%Player%:~0,1!" == "-" (
  4500. echo.
  4501. pause
  4502. cls
  4503. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4504. echo.
  4505. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4506. echo Player !Player! wins the game.
  4507. echo.
  4508. pause
  4509. exit
  4510. )
  4511. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4512. set Player=!Player!
  4513. set Puffer=!Money_%Player%!
  4514. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4515. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4516. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4517. set Player=!Player!
  4518. echo.
  4519. pause
  4520. exit /b
  4521.  
  4522.  
  4523.  
  4524.  
  4525. :PennsylvaniaAvenue
  4526. :PennsylvaniaAvenue 35
  4527. set Purchase=
  4528. set Buy_House=
  4529. set PayRent=
  4530. set Sell_Street=
  4531. if not defined PennsylvaniaAvenue_Houses set PennsylvaniaAvenue_Houses=0
  4532. cls
  4533. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4534. echo º º
  4535. echo º Pennsylvania Avenue º
  4536. echo º º
  4537. echo º PRICE $320 RENT $28 º
  4538. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4539. echo º With 1 House $150 º
  4540. echo º º
  4541. echo º With 2 Houses $450 º
  4542. echo º º
  4543. echo º With 3 Houses $1000 º
  4544. echo º º
  4545. echo º With 4 Houses $1200 º
  4546. echo º º
  4547. echo º With HOTEL $1400 º
  4548. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4549. echo º One house costs $200 º
  4550. echo º º
  4551. echo º Mortgage value $160 º
  4552. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4553. echo º º
  4554. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4555. echo.
  4556. echo Current player: %Player% (!Char_%Player%!)
  4557. echo Total money: !Money_%Player%!
  4558. echo.
  4559. if "!PennsylvaniaAvenue!" == "%Player%" goto :PennsylvaniaAvenue_Houses
  4560. if defined PennsylvaniaAvenue goto :PennsylvaniaAvenue_PayRent
  4561. echo Press [1] to buy this street for $320 or
  4562. echo press [2] to leave it.
  4563. set /p Purchase=
  4564. if "%Purchase%" == "1" (
  4565. set Puffer=!Money_%Player%!
  4566. set /a Money_%Player%=!Money_%Player%! - 320
  4567. if "!Money_%Player%:~0,1!" == "-" (
  4568. echo You have not enough money.
  4569. set /a Money_%Player%=!Money_%Player%! + 320
  4570. ) ELSE (
  4571. echo ÄÄÄ^> Money decreased from $!Puffer! by $320 to $!Money_%Player%!.
  4572. set PennsylvaniaAvenue=%Player%
  4573. )
  4574. pause
  4575. exit /b
  4576. )
  4577. if "%Purchase%" == "2" exit /b
  4578. goto :PennsylvaniaAvenue
  4579. :PennsylvaniaAvenue_Houses
  4580. :PennsylvaniaAvenue_Houses
  4581. if "!PennsylvaniaAvenue_Houses!" == "5" (
  4582. echo This street has got a hotel.
  4583. pause
  4584. exit /b
  4585. ) ELSE (
  4586. echo This street has got !PennsylvaniaAvenue_Houses! houses, yet.
  4587. echo.
  4588. )
  4589. echo Press [1] to buy a new house or
  4590. echo press [2] to leave it or
  4591. echo press [3] to sell it for $160.
  4592. set /p Buy_House=
  4593. echo.
  4594. if "%Buy_House%" == "1" (
  4595. set Puffer=!Money_%Player%!
  4596. set /a Money_%Player%=!Money_%Player%! - 200
  4597. if "!Money_%Player%:~0,1!" == "-" (
  4598. echo You have not enough money.
  4599. set /a Money_%Player%=!Money_%Player%! + 200
  4600. ) ELSE (
  4601. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  4602. set /a PennsylvaniaAvenue_Houses=!PennsylvaniaAvenue_Houses! + 1
  4603. if not "!PennsylvaniaAvenue_Houses!" == "5" (echo This street has got !PennsylvaniaAvenue_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  4604. )
  4605. pause
  4606. exit /b
  4607. )
  4608. if "%Buy_House%" == "2" exit /b
  4609. if "%Buy_House%" == "3" (
  4610. echo Are you sure you want to sell the street? [Y/N]
  4611. set /p Sell_Street=
  4612. if /i "!Sell_Street!" == "n" exit /b
  4613. if /i "!Sell_Street!" == "y" (
  4614. set Puffer=!Money_%Player%!
  4615. set /a Money_%Player%=!Money_%Player%! + 160
  4616. echo ÄÄÄ^> Money increased from $!Puffer! by $160 to $!Money_%Player%!.
  4617. set PennsylvaniaAvenue=
  4618. set PennsylvaniaAvenue_Houses=0
  4619. )
  4620. )
  4621. goto :PennsylvaniaAvenue_Houses
  4622. :PennsylvaniaAvenue_PayRent
  4623. :PennsylvaniaAvenue_PayRent
  4624. if "!PennsylvaniaAvenue_Houses!" == "0" set PayRent=28
  4625. if "!PennsylvaniaAvenue_Houses!" == "1" set PayRent=150
  4626. if "!PennsylvaniaAvenue_Houses!" == "2" set PayRent=450
  4627. if "!PennsylvaniaAvenue_Houses!" == "3" set PayRent=1000
  4628. if "!PennsylvaniaAvenue_Houses!" == "4" set PayRent=1200
  4629. if "!PennsylvaniaAvenue_Houses!" == "5" set PayRent=1400
  4630. echo This street is owned by the other player. You have to pay
  4631. echo $%PayRent% to pass.
  4632. set Puffer=!Money_%Player%!
  4633. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4634. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4635. if "!Money_%Player%:~0,1!" == "-" (
  4636. echo.
  4637. pause
  4638. cls
  4639. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4640. echo.
  4641. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4642. echo Player !Player! wins the game.
  4643. echo.
  4644. pause
  4645. exit
  4646. )
  4647. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4648. set Player=!Player!
  4649. set Puffer=!Money_%Player%!
  4650. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4651. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4652. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4653. set Player=!Player!
  4654. echo.
  4655. pause
  4656. exit /b
  4657.  
  4658.  
  4659.  
  4660.  
  4661. :ShortLineRailroad
  4662. :ShortLineRailroad 36
  4663. set Purchase=
  4664. set Buy_House=
  4665. set PayRent=
  4666. set RailroadAmount=0
  4667. set Sell_Street=
  4668. cls
  4669. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4670. echo º º
  4671. echo º Short Line º
  4672. echo º º
  4673. echo º PRICE $200 º
  4674. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4675. echo º º
  4676. echo º º
  4677. echo º If 1 owned $25 º
  4678. echo º º
  4679. echo º If 2 owned $50 º
  4680. echo º º
  4681. echo º If 3 owned $100 º
  4682. echo º º
  4683. echo º If 4 owned $200 º
  4684. echo º º
  4685. echo º º
  4686. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4687. echo º Mortgage value $100 º
  4688. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4689. echo º º
  4690. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4691. echo.
  4692. echo Current player: %Player% (!Char_%Player%!)
  4693. echo Total money: !Money_%Player%!
  4694. echo.
  4695. if "!ShortLineRailroad!" == "%Player%" goto :ShortLineRailroad_Houses
  4696. if defined ShortLineRailroad goto :ShortLineRailroad_PayRent
  4697. echo Press [1] to buy this railroad for $200 or
  4698. echo press [2] to leave it.
  4699. set /p Purchase=
  4700. if "%Purchase%" == "1" (
  4701. set Puffer=!Money_%Player%!
  4702. set /a Money_%Player%=!Money_%Player%! - 200
  4703. if "!Money_%Player%:~0,1!" == "-" (
  4704. echo You have not enough money.
  4705. set /a Money_%Player%=!Money_%Player%! + 200
  4706. ) ELSE (
  4707. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  4708. set ShortLineRailroad=%Player%
  4709. )
  4710. pause
  4711. exit /b
  4712. )
  4713. if "%Purchase%" == "2" exit /b
  4714. goto :ShortLineRailroad
  4715. :ShortLineRailroad_Houses
  4716. :ShortLineRailroad_Houses
  4717. echo This railroad is yours.
  4718. echo.
  4719. echo Press [2] to leave it or
  4720. echo press [3] to sell it for $100.
  4721. set /p Buy_House=
  4722. echo.
  4723. if "%Buy_House%" == "2" exit /b
  4724. if "%Buy_House%" == "3" (
  4725. echo Are you sure you want to sell this railroad? [Y/N]
  4726. set /p Sell_Street=
  4727. if /i "!Sell_Street!" == "n" exit /b
  4728. if /i "!Sell_Street!" == "y" (
  4729. set Puffer=!Money_%Player%!
  4730. set /a Money_%Player%=!Money_%Player%! + 100
  4731. echo ÄÄÄ^> Money increased from $!Puffer! by $100 to $!Money_%Player%!.
  4732. set ShortLineRailroad=
  4733. )
  4734. )
  4735. goto :ShortLineRailroad_Houses
  4736. :ShortLineRailroad_PayRent
  4737. :ShortLineRailroad_PayRent
  4738. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  4739. set Player=!Player!
  4740. FOR %%A IN (ReadingRailroad PennsylvaniaRailroad B.O.Railroad ShortLineRailroad) DO if "!%%A!" == "%Player%" set /a RailroadAmount=!RailroadAmount! + 1
  4741. if "%Player%" == "1" (set Player=2) ELSE (set Player=1)
  4742. set Player=!Player!
  4743. echo The other player owns !RailroadAmount! of 4 railroads.
  4744. if "!RailroadAmount!" == "1" set PayRent=25
  4745. if "!RailroadAmount!" == "2" set PayRent=50
  4746. if "!RailroadAmount!" == "3" set PayRent=100
  4747. if "!RailroadAmount!" == "4" set PayRent=200
  4748. if "!RentalTwice!" == "1" set /a PayRent=%PayRent% * 2
  4749. set Puffer=!Money_%Player%!
  4750. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4751. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4752. if "!Money_%Player%:~0,1!" == "-" (
  4753. echo.
  4754. pause
  4755. cls
  4756. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4757. echo.
  4758. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4759. echo Player !Player! wins the game.
  4760. echo.
  4761. pause
  4762. exit
  4763. )
  4764. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4765. set Player=!Player!
  4766. set Puffer=!Money_%Player%!
  4767. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4768. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4769. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4770. set Player=!Player!
  4771. echo.
  4772. pause
  4773. exit /b
  4774.  
  4775.  
  4776.  
  4777.  
  4778. :ParkPlace
  4779. :ParkPlace 38
  4780. set Purchase=
  4781. set Buy_House=
  4782. set PayRent=
  4783. set Sell_Street=
  4784. if not defined ParkPlace_Houses set ParkPlace_Houses=0
  4785. cls
  4786. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4787. echo º º
  4788. echo º Park Place º
  4789. echo º º
  4790. echo º PRICE $350 RENT $35 º
  4791. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4792. echo º With 1 House $175 º
  4793. echo º º
  4794. echo º With 2 Houses $500 º
  4795. echo º º
  4796. echo º With 3 Houses $1100 º
  4797. echo º º
  4798. echo º With 4 Houses $1300 º
  4799. echo º º
  4800. echo º With HOTEL $1500 º
  4801. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4802. echo º One house costs $200 º
  4803. echo º º
  4804. echo º Mortgage value $175 º
  4805. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4806. echo º º
  4807. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4808. echo.
  4809. echo Current player: %Player% (!Char_%Player%!)
  4810. echo Total money: !Money_%Player%!
  4811. echo.
  4812. if "!ParkPlace!" == "%Player%" goto :ParkPlace_Houses
  4813. if defined ParkPlace goto :ParkPlace_PayRent
  4814. echo Press [1] to buy this street for $350 or
  4815. echo press [2] to leave it.
  4816. set /p Purchase=
  4817. if "%Purchase%" == "1" (
  4818. set Puffer=!Money_%Player%!
  4819. set /a Money_%Player%=!Money_%Player%! - 350
  4820. if "!Money_%Player%:~0,1!" == "-" (
  4821. echo You have not enough money.
  4822. set /a Money_%Player%=!Money_%Player%! + 350
  4823. ) ELSE (
  4824. echo ÄÄÄ^> Money decreased from $!Puffer! by $350 to $!Money_%Player%!.
  4825. set ParkPlace=%Player%
  4826. )
  4827. pause
  4828. exit /b
  4829. )
  4830. if "%Purchase%" == "2" exit /b
  4831. goto :ParkPlace
  4832. :ParkPlace_Houses
  4833. :ParkPlace_Houses
  4834. if "!ParkPlace_Houses!" == "5" (
  4835. echo This street has got a hotel.
  4836. pause
  4837. exit /b
  4838. ) ELSE (
  4839. echo This street has got !ParkPlace_Houses! houses, yet.
  4840. echo.
  4841. )
  4842. echo Press [1] to buy a new house or
  4843. echo press [2] to leave it or
  4844. echo press [3] to sell it for $175.
  4845. set /p Buy_House=
  4846. echo.
  4847. if "%Buy_House%" == "1" (
  4848. set Puffer=!Money_%Player%!
  4849. set /a Money_%Player%=!Money_%Player%! - 200
  4850. if "!Money_%Player%:~0,1!" == "-" (
  4851. echo You have not enough money.
  4852. set /a Money_%Player%=!Money_%Player%! + 200
  4853. ) ELSE (
  4854. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  4855. set /a ParkPlace_Houses=!ParkPlace_Houses! + 1
  4856. if not "!ParkPlace_Houses!" == "5" (echo This street has got !ParkPlace_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  4857. )
  4858. pause
  4859. exit /b
  4860. )
  4861. if "%Buy_House%" == "2" exit /b
  4862. if "%Buy_House%" == "3" (
  4863. echo Are you sure you want to sell the street? [Y/N]
  4864. set /p Sell_Street=
  4865. if /i "!Sell_Street!" == "n" exit /b
  4866. if /i "!Sell_Street!" == "y" (
  4867. set Puffer=!Money_%Player%!
  4868. set /a Money_%Player%=!Money_%Player%! + 175
  4869. echo ÄÄÄ^> Money increased from $!Puffer! by $175 to $!Money_%Player%!.
  4870. set ParkPlace=
  4871. set ParkPlace_Houses=0
  4872. )
  4873. )
  4874. goto :ParkPlace_Houses
  4875. :ParkPlace_PayRent
  4876. :ParkPlace_PayRent
  4877. if "!ParkPlace_Houses!" == "0" set PayRent=35
  4878. if "!ParkPlace_Houses!" == "1" set PayRent=175
  4879. if "!ParkPlace_Houses!" == "2" set PayRent=500
  4880. if "!ParkPlace_Houses!" == "3" set PayRent=1100
  4881. if "!ParkPlace_Houses!" == "4" set PayRent=1300
  4882. if "!ParkPlace_Houses!" == "5" set PayRent=1500
  4883. echo This street is owned by the other player. You have to pay
  4884. echo $%PayRent% to pass.
  4885. set Puffer=!Money_%Player%!
  4886. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  4887. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4888. if "!Money_%Player%:~0,1!" == "-" (
  4889. echo.
  4890. pause
  4891. cls
  4892. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4893. echo.
  4894. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4895. echo Player !Player! wins the game.
  4896. echo.
  4897. pause
  4898. exit
  4899. )
  4900. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4901. set Player=!Player!
  4902. set Puffer=!Money_%Player%!
  4903. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  4904. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  4905. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4906. set Player=!Player!
  4907. echo.
  4908. pause
  4909. exit /b
  4910.  
  4911.  
  4912.  
  4913.  
  4914. :LuxuryTax
  4915. :LuxuryTax 39
  4916. cls
  4917. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4918. echo º LUXURY º
  4919. echo º º
  4920. echo º TAX º
  4921. echo º º
  4922. echo º ___ º
  4923. echo º ²²²/***\²²² º
  4924. echo º ²°°°\***/°°°² º
  4925. echo º ²°°°°°îîî°°°°°² º
  4926. echo º ²°°°²²²²²²²²²°°°² º
  4927. echo º ²°°°²²² ²²²°°°² º
  4928. echo º ²°°²² ²²°°² º
  4929. echo º ²°°² ²°°² º
  4930. echo º ²°°² ²°°² º
  4931. echo º ²°°°² ²°°°² º
  4932. echo º ²°°°²²²²²²²²²°°°² º
  4933. echo º ²°°°°°°°°°°°°°² º
  4934. echo º ²°°°°°°°°°°°² º
  4935. echo º ²²²²²²²²²²² º
  4936. echo º º
  4937. echo º You have to pay $75 º
  4938. echo º for the Luxury Tax. º
  4939. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4940. echo.
  4941. echo Current player: %Player% (!Char_%Player%!)
  4942. echo Total money: !Money_%Player%!
  4943. echo.
  4944. set Puffer=!Money_%Player%!
  4945. set /a Money_%Player%=!Money_%Player%! - 75
  4946. set /a Money_Parking=!Money_Parking! + 75
  4947. echo ÄÄÄ^> Money decreased from $%Puffer% by $75 to $!Money_%Player%!.
  4948. echo ^& $75 went into Free Parking.
  4949. if "!Money_%Player%:~0,1!" == "-" (
  4950. echo.
  4951. pause
  4952. cls
  4953. echo Player %Player% [!Char_%Player%!] is bankrupt.
  4954. echo.
  4955. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  4956. echo Player !Player! wins the game.
  4957. echo.
  4958. pause
  4959. exit
  4960. )
  4961. echo.
  4962. pause
  4963. exit /b
  4964.  
  4965.  
  4966.  
  4967.  
  4968. :Boardwalk
  4969. :Boardwalk 40
  4970. set Purchase=
  4971. set Buy_House=
  4972. set PayRent=
  4973. set Sell_Street=
  4974. if not defined Boardwalk_Houses set Boardwalk_Houses=0
  4975. cls
  4976. echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  4977. echo º º
  4978. echo º Boardwalk º
  4979. echo º º
  4980. echo º PRICE $400 RENT $50 º
  4981. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4982. echo º With 1 House $200 º
  4983. echo º º
  4984. echo º With 2 Houses $600 º
  4985. echo º º
  4986. echo º With 3 Houses $1400 º
  4987. echo º º
  4988. echo º With 4 Houses $1700 º
  4989. echo º º
  4990. echo º With HOTEL $2000 º
  4991. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4992. echo º One house costs $200 º
  4993. echo º º
  4994. echo º Mortgage value $200 º
  4995. echo º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
  4996. echo º º
  4997. echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  4998. echo.
  4999. echo Current player: %Player% (!Char_%Player%!)
  5000. echo Total money: !Money_%Player%!
  5001. echo.
  5002. if "!Boardwalk!" == "%Player%" goto :Boardwalk_Houses
  5003. if defined Boardwalk goto :Boardwalk_PayRent
  5004. echo Press [1] to buy this street for $400 or
  5005. echo press [2] to leave it.
  5006. set /p Purchase=
  5007. if "%Purchase%" == "1" (
  5008. set Puffer=!Money_%Player%!
  5009. set /a Money_%Player%=!Money_%Player%! - 400
  5010. if "!Money_%Player%:~0,1!" == "-" (
  5011. echo You have not enough money.
  5012. set /a Money_%Player%=!Money_%Player%! + 400
  5013. ) ELSE (
  5014. echo ÄÄÄ^> Money decreased from $!Puffer! by $400 to $!Money_%Player%!.
  5015. set Boardwalk=%Player%
  5016. )
  5017. pause
  5018. exit /b
  5019. )
  5020. if "%Purchase%" == "2" exit /b
  5021. goto :Boardwalk
  5022. :Boardwalk_Houses
  5023. :Boardwalk_Houses
  5024. if "!Boardwalk_Houses!" == "5" (
  5025. echo This street has got a hotel.
  5026. pause
  5027. exit /b
  5028. ) ELSE (
  5029. echo This street has got !Boardwalk_Houses! houses, yet.
  5030. echo.
  5031. )
  5032. echo Press [1] to buy a new house or
  5033. echo press [2] to leave it or
  5034. echo press [3] to sell it for $200.
  5035. set /p Buy_House=
  5036. echo.
  5037. if "%Buy_House%" == "1" (
  5038. set Puffer=!Money_%Player%!
  5039. set /a Money_%Player%=!Money_%Player%! - 200
  5040. if "!Money_%Player%:~0,1!" == "-" (
  5041. echo You have not enough money.
  5042. set /a Money_%Player%=!Money_%Player%! + 200
  5043. ) ELSE (
  5044. echo ÄÄÄ^> Money decreased from $!Puffer! by $200 to $!Money_%Player%!.
  5045. set /a Boardwalk_Houses=!Boardwalk_Houses! + 1
  5046. if not "!Boardwalk_Houses!" == "5" (echo This street has got !Boardwalk_Houses! houses now.) ELSE (echo This street has got a hotel now.)
  5047. )
  5048. pause
  5049. exit /b
  5050. )
  5051. if "%Buy_House%" == "2" exit /b
  5052. if "%Buy_House%" == "3" (
  5053. echo Are you sure you want to sell the street? [Y/N]
  5054. set /p Sell_Street=
  5055. if /i "!Sell_Street!" == "n" exit /b
  5056. if /i "!Sell_Street!" == "y" (
  5057. set Puffer=!Money_%Player%!
  5058. set /a Money_%Player%=!Money_%Player%! + 200
  5059. echo ÄÄÄ^> Money increased from $!Puffer! by $200 to $!Money_%Player%!.
  5060. set Boardwalk=
  5061. set Boardwalk_Houses=0
  5062. )
  5063. )
  5064. goto :Boardwalk_Houses
  5065. :Boardwalk_PayRent
  5066. :Boardwalk_PayRent
  5067. if "!Boardwalk_Houses!" == "0" set PayRent=50
  5068. if "!Boardwalk_Houses!" == "1" set PayRent=200
  5069. if "!Boardwalk_Houses!" == "2" set PayRent=600
  5070. if "!Boardwalk_Houses!" == "3" set PayRent=1400
  5071. if "!Boardwalk_Houses!" == "4" set PayRent=1700
  5072. if "!Boardwalk_Houses!" == "5" set PayRent=2000
  5073. echo This street is owned by the other player. You have to pay
  5074. echo $%PayRent% to pass.
  5075. set Puffer=!Money_%Player%!
  5076. set /a Money_%Player%=!Money_%Player%! - %PayRent%
  5077. echo ÄÄÄ^> Money decreased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  5078. if "!Money_%Player%:~0,1!" == "-" (
  5079. echo.
  5080. pause
  5081. cls
  5082. echo Player %Player% [!Char_%Player%!] is bankrupt.
  5083. echo.
  5084. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  5085. echo Player !Player! wins the game.
  5086. echo.
  5087. pause
  5088. exit
  5089. )
  5090. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  5091. set Player=!Player!
  5092. set Puffer=!Money_%Player%!
  5093. set /a Money_%Player%=!Money_%Player%! + %PayRent%
  5094. echo ÄÄÄ^> The other player's money increased from $%Puffer% by $%PayRent% to $!Money_%Player%!.
  5095. if "!Player!" == "1" (set Player=2) ELSE (set Player=1)
  5096. set Player=!Player!
  5097. echo.
  5098. pause
  5099. exit /b
  5100.  
  5101.  
  5102.  
  5103. Save dengan entensi *.bat atau *.cmd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement