home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / monopoly.lzh / monopoly_source.LZH / f11.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-01-06  |  13.2 KB  |  651 lines
  1. /* f11.c contains these functions for monopoly:
  2.         moneybags(),   tenprecent(),  buycard(),  fixofferbmenu()
  3.     makebuymenu()  */
  4.  
  5. #include "mono:defines"
  6. #include "mono:xvariables"
  7.  
  8. USHORT buycard(buyer)
  9. USHORT buyer;
  10. {
  11. ULONG bcclass, bccode;
  12. struct IntuiText name, msg0, msg1, msg2, msg3, msg4, msg5, msg6,
  13.                  msg7;
  14. struct Window *buycardwindow;
  15. struct IntuiMessage *buycardmsg;
  16. struct RastPort *rportbuycard;
  17. bcclass=0;
  18. bccode=0;
  19.  
  20. name.BackPen=black;
  21. name.DrawMode=JAM1;
  22. name.TopEdge=30;
  23. name.LeftEdge=5;
  24. name.ITextFont=NULL;
  25. name.NextText=&msg0;
  26.  
  27. if (buyer == 0)
  28.    {
  29.    name.IText=&name0[0];
  30.    name.FrontPen=25;
  31.    }
  32. if  (buyer == 1)
  33.    {
  34.    name.FrontPen=26;
  35.    name.IText=&name1[0];
  36.    }
  37. if  (buyer == 2)
  38.    {   
  39.    name.FrontPen=27;
  40.    name.IText=&name2[0];
  41.    }
  42. if  (buyer == 3)
  43.    {
  44.    name.FrontPen=28;
  45.    name.IText=&name3[0];
  46.    }
  47.  
  48. msg0.FrontPen=maroon;
  49. msg0.BackPen=black;
  50. msg0.DrawMode=JAM1;
  51. msg0.TopEdge=40;
  52. msg0.LeftEdge=5;
  53. msg0.IText=(UBYTE *)"use the MENU to";
  54. msg0.ITextFont=NULL;
  55. msg0.NextText=&msg1;
  56.  
  57. msg1.FrontPen=maroon;
  58. msg1.BackPen=black;
  59. msg1.DrawMode=JAM1;
  60. msg1.TopEdge=50;
  61. msg1.LeftEdge=5;
  62. msg1.IText=(UBYTE *)"choose a player who's";
  63. msg1.ITextFont=NULL;
  64. msg1.NextText=&msg2;
  65.  
  66. msg2.FrontPen=chest_yellow;
  67. msg2.BackPen=black;
  68. msg2.DrawMode=JAM1;
  69. msg2.TopEdge=60;
  70. msg2.LeftEdge=5;
  71. msg2.IText=(UBYTE *)"GET-OUT-OF-JAIL-FREE";
  72. msg2.ITextFont=NULL;
  73. msg2.NextText=&msg3;
  74.  
  75. msg3.FrontPen=maroon;
  76. msg3.BackPen=black;
  77. msg3.DrawMode=JAM1;
  78. msg3.TopEdge=70;
  79. msg3.LeftEdge=5;
  80. msg3.IText=(UBYTE *)"card you will offer";
  81. msg3.ITextFont=NULL;
  82. msg3.NextText=&msg4;
  83.  
  84. msg4.FrontPen=maroon;
  85. msg4.BackPen=black;
  86. msg4.DrawMode=JAM1;
  87. msg4.TopEdge=80;
  88. msg4.LeftEdge=5;
  89. msg4.IText=(UBYTE *)"to buy, or select";
  90. msg4.ITextFont=NULL;
  91. msg4.NextText=&msg5;
  92.  
  93. msg5.FrontPen=green;
  94. msg5.BackPen=black;
  95. msg5.DrawMode=JAM1;
  96. msg5.TopEdge=90;
  97. msg5.LeftEdge=5;
  98. msg5.IText=(UBYTE *)"CONTINUE";
  99. msg5.ITextFont=NULL;
  100. msg5.NextText=&msg6;
  101.  
  102. msg6.FrontPen=maroon;
  103. msg6.BackPen=black;
  104. msg6.DrawMode=JAM1;
  105. msg6.TopEdge=90;
  106. msg6.LeftEdge=72;
  107. msg6.IText=(UBYTE *)"to return";
  108. msg6.ITextFont=NULL;
  109. msg6.NextText=&msg7;
  110.  
  111. msg7.FrontPen=maroon;
  112. msg7.BackPen=black;
  113. msg7.DrawMode=JAM1;
  114. msg7.TopEdge=100;
  115. msg7.LeftEdge=5;
  116. msg7.IText=(UBYTE *)"to the game.";
  117. msg7.ITextFont=NULL;
  118. msg7.NextText=NULL;
  119.  
  120.  
  121.  
  122.  
  123. nofferbw.IDCMPFlags=MENUPICK | GADGETUP | RAWKEY;
  124. nofferbw.FirstGadget=&continuegag;
  125. if ((buycardwindow=(struct Window *)OpenWindow(&nofferbw))==NULL) cleanup();
  126. rportbuycard=buycardwindow->RPort;
  127. SetMenuStrip(buycardwindow, &Menu13);
  128. if ( (freecard[0] < 1) || (notplaying[0]) || (buyer == 0) )  
  129.    OffMenu(buycardwindow, 0);
  130. if ( (freecard[1] < 1) || (notplaying[1]) || (buyer == 1) )
  131.    OffMenu(buycardwindow, 32);
  132. if ( (freecard[2] < 1) || (notplaying[2]) || (buyer == 2) )
  133.    OffMenu(buycardwindow, 64);
  134. if ( (freecard[3] < 1) || (notplaying[3]) || (buyer == 3) )
  135.    OffMenu(buycardwindow, 96);
  136.  
  137. PrintIText(rportbuycard, &name, 0, 0);
  138.  
  139. Wait(1<<buycardwindow->UserPort->mp_SigBit);
  140.  
  141. while((buycardmsg=(struct IntuiMessage *)
  142.                          GetMsg(buycardwindow->UserPort))!=NULL)
  143.    {
  144.    bcclass=buycardmsg->Class;
  145.    bccode=buycardmsg->Code;
  146.    if (bcclass == GADGETUP)  getID(buycardmsg);
  147.    ReplyMsg(buycardmsg);
  148.    }
  149. if ( (bcclass == GADGETUP) && (gagid == 0) )  /*  CONTINUE  */
  150.    {
  151.    ClearMenuStrip(buycardwindow);
  152.    CloseWindow(buycardwindow);
  153.    return(9);
  154.    }
  155.  
  156. if ( (bcclass == MENUPICK) && (bccode != MENUNULL) )
  157.    {
  158.    ClearMenuStrip(buycardwindow);
  159.    CloseWindow(buycardwindow);
  160.    return ((USHORT)ITEMNUM(bccode));
  161.    }
  162. }
  163.  
  164. VOID moneybags(who)
  165. USHORT who;
  166. {
  167. struct IntuiText bagname, wad, dollarsign;
  168. char moneystr [8];
  169. ULONG mbclass;
  170. USHORT mbcode, hold_line;
  171. mbclass=0;
  172. mbcode=0;
  173.  
  174.  
  175. bagname.BackPen=black;
  176. bagname.DrawMode=JAM1;
  177. bagname.LeftEdge=5;
  178. bagname.TopEdge=13;
  179. bagname.ITextFont=NULL;
  180. bagname.NextText=&dollarsign;
  181.  
  182. dollarsign.FrontPen=green;
  183. dollarsign.BackPen=black;
  184. dollarsign.DrawMode=JAM1;
  185. dollarsign.LeftEdge=5;
  186. dollarsign.TopEdge=23;
  187. dollarsign.IText=(UBYTE *)"$";
  188. dollarsign.ITextFont=NULL;
  189. dollarsign.NextText=&wad;
  190.  
  191. wad.FrontPen=green;
  192. wad.BackPen=black;
  193. wad.DrawMode=JAM1;
  194. wad.LeftEdge=14;
  195. wad.TopEdge=23;
  196. wad.IText=&moneystr[0];
  197. wad.ITextFont=NULL;
  198. wad.NextText=NULL;
  199.  
  200. line0_text=130;
  201. for (j=0, hold_line=line0_text; j<SHOW_LINES; j++)
  202.     instructIT[j].IText=instructline[hold_line++];
  203.  
  204. nmoneybagw.Screen=screen1;
  205. if ((moneybagwindow=(struct Window *)OpenWindow(&nmoneybagw))==NULL) cleanup();
  206. rportmoneybag=moneybagwindow->RPort;
  207.  
  208. if (who == 0)
  209.    {
  210.    bagname.FrontPen=25;
  211.    bagname.IText=&name0[0];
  212.    (VOID) stcl_d(moneystr, bankroll[0]);
  213.    }
  214. if  (who == 1)
  215.    {
  216.    bagname.FrontPen=26;
  217.    bagname.IText=&name1[0];
  218.    (VOID) stcl_d(moneystr, bankroll[1]);
  219.    }
  220. if  (who == 2)
  221.    {   
  222.    bagname.FrontPen=27;
  223.    bagname.IText=&name2[0];
  224.    (VOID) stcl_d(moneystr, bankroll[2]);
  225.    }
  226. if  (who == 3)
  227.    {
  228.    bagname.FrontPen=28;
  229.    bagname.IText=&name3[0];
  230.    (VOID) stcl_d(moneystr, bankroll[3]);
  231.    }
  232. PrintIText(rportmoneybag, &bagname, 0, 0);
  233.  
  234. Wait(1<<moneybagwindow->UserPort->mp_SigBit);
  235.  
  236. while((moneybagmsg=(struct IntuiMessage *)
  237.                          GetMsg(moneybagwindow->UserPort))!=NULL)
  238.    {
  239.    mbclass=moneybagmsg->Class;
  240.    ReplyMsg(moneybagmsg);
  241.    }
  242. if(mbclass==CLOSEWINDOW)   CloseWindow(moneybagwindow);
  243. if ((mbclass == RAWKEY) && (mbcode == HELP))  instruction();
  244. }
  245.  
  246. VOID tenpercent(who, which)
  247. USHORT who, which;
  248. {
  249. struct IntuiText name, address, msg0, msg1, msg2, msg3, msg4, msg5, msg6,
  250.                  msg7, msg8, msg9, msg10, msg11, querry;
  251. ULONG tenclass;
  252. USHORT tencode;
  253. tenclass=0;
  254. tencode=0;
  255.  
  256.  
  257. name.BackPen=black;
  258. name.DrawMode=JAM1;
  259. name.TopEdge=0;
  260. name.LeftEdge=5;
  261. name.ITextFont=NULL;
  262. name.NextText=&address;
  263.  
  264. address.BackPen=black;
  265. address.DrawMode=JAM1;
  266. address.TopEdge=10;
  267. address.LeftEdge=5;
  268. address.ITextFont=NULL;
  269. address.NextText=&msg0;
  270.  
  271. msg0.FrontPen=maroon;
  272. msg0.BackPen=black;
  273. msg0.DrawMode=JAM1;
  274. msg0.TopEdge=20;
  275. msg0.LeftEdge=5;
  276. msg0.IText=(UBYTE *)"which you just";
  277. msg0.ITextFont=NULL;
  278. msg0.NextText=&msg1;
  279.  
  280. msg1.FrontPen=maroon;
  281. msg1.BackPen=black;
  282. msg1.DrawMode=JAM1;
  283. msg1.TopEdge=30;
  284. msg1.LeftEdge=5;
  285. msg1.IText=(UBYTE *)"recieved, is mortgaged.";
  286. msg1.ITextFont=NULL;
  287. msg1.NextText=&msg2;
  288.  
  289. msg2.FrontPen=maroon;
  290. msg2.BackPen=black;
  291. msg2.DrawMode=JAM1;
  292. msg2.TopEdge=40;
  293. msg2.LeftEdge=5;
  294. msg2.IText=(UBYTE *)"If you DO NOT lift the";
  295. msg2.ITextFont=NULL;
  296. msg2.NextText=&msg3;
  297.  
  298. msg3.FrontPen=maroon;
  299. msg3.BackPen=black;
  300. msg3.DrawMode=JAM1;
  301. msg3.TopEdge=50;
  302. msg3.LeftEdge=5;
  303. msg3.IText=(UBYTE *)"mortgage NOW, you will";
  304. msg3.ITextFont=NULL;
  305. msg3.NextText=&msg4;
  306.  
  307. msg4.FrontPen=maroon;
  308. msg4.BackPen=black;
  309. msg4.DrawMode=JAM1;
  310. msg4.TopEdge=60;
  311. msg4.LeftEdge=5;
  312. msg4.IText=(UBYTE *)"pay a ten percent fee";
  313. msg4.ITextFont=NULL;
  314. msg4.NextText=&msg5;
  315.  
  316. msg5.FrontPen=maroon;
  317. msg5.BackPen=black;
  318. msg5.DrawMode=JAM1;
  319. msg5.TopEdge=70;
  320. msg5.LeftEdge=5;
  321. msg5.IText=(UBYTE *)"NOW plus an additional";
  322. msg5.ITextFont=NULL;
  323. msg5.NextText=&msg6;
  324.  
  325. msg6.FrontPen=maroon;
  326. msg6.BackPen=black;
  327. msg6.DrawMode=JAM1;
  328. msg6.TopEdge=80;
  329. msg6.LeftEdge=5;
  330. msg6.IText=(UBYTE *)"ten percent when you";
  331. msg6.ITextFont=NULL;
  332. msg6.NextText=&msg7;
  333.  
  334. msg7.FrontPen=maroon;
  335. msg7.BackPen=black;
  336. msg7.DrawMode=JAM1;
  337. msg7.TopEdge=90;
  338. msg7.LeftEdge=5;
  339. msg7.IText=(UBYTE *)"lift the mortgage.";
  340. msg7.ITextFont=NULL;
  341. msg7.NextText=&msg8;
  342.  
  343. msg8.FrontPen=green;
  344. msg8.BackPen=black;
  345. msg8.DrawMode=JAM1;
  346. msg8.TopEdge=100;
  347. msg8.LeftEdge=5;
  348. msg8.IText=(UBYTE *)"YOU HAVE:  $";
  349. msg8.ITextFont=NULL;
  350. msg8.NextText=&msg9;
  351.  
  352. msg9.FrontPen=green;
  353. msg9.BackPen=black;
  354. msg9.DrawMode=JAM1;
  355. msg9.TopEdge=100;
  356. msg9.LeftEdge=100;
  357. msg9.IText=&tenpercentbroll[0];
  358. msg9.ITextFont=NULL;
  359. msg9.NextText=&msg10;
  360.  
  361. msg10.FrontPen=red;
  362. msg10.BackPen=black;
  363. msg10.DrawMode=JAM1;
  364. msg10.TopEdge=110;
  365. msg10.LeftEdge=5;
  366. msg10.IText=(UBYTE *)"YOU NEED:  $";
  367. msg10.ITextFont=NULL;
  368. msg10.NextText=&msg11;
  369.  
  370. msg11.FrontPen=red;
  371. msg11.BackPen=black;
  372. msg11.DrawMode=JAM1;
  373. msg11.TopEdge=110;
  374. msg11.LeftEdge=100;
  375. msg11.ITextFont=NULL;
  376. msg11.NextText=&querry;
  377.  
  378. querry.FrontPen=dk_blue;
  379. querry.BackPen=black;
  380. querry.DrawMode=JAM1;
  381. querry.TopEdge=119;
  382. querry.LeftEdge=36;
  383. querry.IText=(UBYTE *)"LIFT MORTGAGE?";
  384. querry.ITextFont=NULL;
  385. querry.NextText=NULL;
  386.  
  387. (VOID) stcl_d(tenpercentbroll, bankroll[who]);
  388.  
  389. if (who == 0)
  390.    {
  391.    name.FrontPen=25;
  392.    name.IText=&name0[0];
  393.    }
  394. if  (who == 1)
  395.    {
  396.    name.FrontPen=26;
  397.    name.IText=&name1[0];
  398.    }
  399. if  (who == 2)
  400.    {   
  401.    name.FrontPen=27;
  402.    name.IText=&name2[0];
  403.    }
  404. if  (who == 3)
  405.    {
  406.    name.FrontPen=28;
  407.    name.IText=&name3[0];
  408.    }
  409.  
  410. if (which == 1)
  411.    {
  412.    address.IText=(UBYTE *)"MEDITERRANEAN AVENUE";
  413.    address.FrontPen=purple;
  414.    msg11.IText=(UBYTE *)"33";
  415.    }
  416.  
  417. if (which == 3)
  418.    {
  419.    address.IText=(UBYTE *)"BALTIC AVENUE";
  420.    address.FrontPen=purple;
  421.    msg11.IText=(UBYTE *)"33";
  422.    }
  423.  
  424. if (which == 5)
  425.    {
  426.    address.IText=(UBYTE *)"READING RR";
  427.    address.FrontPen=flesh;
  428.    msg11.IText=(UBYTE *)"110";
  429.    }
  430.  
  431. if (which == 6)
  432.    {
  433.    address.IText=(UBYTE *)"ORIENTAL AVENUE";
  434.    address.FrontPen=lt_blue;
  435.    msg11.IText=(UBYTE *)"55";
  436.    }
  437.  
  438. if (which == 8)
  439.    {
  440.    address.IText=(UBYTE *)"VERMONT AVENUE";
  441.    address.FrontPen=lt_blue;
  442.    msg11.IText=(UBYTE *)"55";
  443.    }
  444.  
  445. if (which == 9)
  446.    {
  447.    address.IText=(UBYTE *)"CONNECTICUT  AVENUE";
  448.    address.FrontPen=lt_blue;
  449.    msg11.IText=(UBYTE *)"66";
  450.    }
  451.  
  452. if (which == 11)
  453.    {
  454.    address.IText=(UBYTE *)"ST. CHARLES PLACE";
  455.    address.FrontPen=maroon;
  456.    msg11.IText=(UBYTE *)"77";
  457.    }
  458.  
  459. if (which == 12)
  460.    {
  461.    address.IText=(UBYTE *)"ELECTRIC COMPANY";
  462.    address.FrontPen=yellow;
  463.    msg11.IText=(UBYTE *)"82";
  464.    }
  465.  
  466. if (which == 13)
  467.    {
  468.    address.IText=(UBYTE *)"STATES  AVENUE";
  469.    address.FrontPen=maroon;
  470.    msg11.IText=(UBYTE *)"77";
  471.    }
  472.  
  473. if (which == 14)
  474.    {
  475.    address.IText=(UBYTE *)"VIRGINIA AVENUE";
  476.    address.FrontPen=maroon;
  477.    msg11.IText=(UBYTE *)"88";
  478.    }
  479.  
  480. if (which == 15)
  481.    {
  482.    address.IText=(UBYTE *)"PENNSYLVANIA RR";
  483.    address.FrontPen=flesh;
  484.    msg11.IText=(UBYTE *)"110";
  485.    }
  486.  
  487. if (which == 16)
  488.    {
  489.    address.IText=(UBYTE *)"ST. JAMES PLACE";
  490.    address.FrontPen=orange;
  491.    msg11.IText=(UBYTE *)"99";
  492.    }
  493.  
  494. if (which == 18)
  495.    {
  496.    address.IText=(UBYTE *)"TENNESSEE AVENUE";
  497.    address.FrontPen=orange;
  498.    msg11.IText=(UBYTE *)"99";
  499.    }
  500.  
  501. if (which == 19)
  502.    {
  503.    address.IText=(UBYTE *)"NEW YORK AVENUE";
  504.    address.FrontPen=orange;
  505.    msg11.IText=(UBYTE *)"110";
  506.    }
  507.  
  508. if (which == 21)
  509.    {
  510.    address.IText=(UBYTE *)"KENTUCKY AVENUE";
  511.    address.FrontPen=red;
  512.    msg11.IText=(UBYTE *)"121";
  513.    }
  514.  
  515. if (which == 23)
  516.    {
  517.    address.IText=(UBYTE *)"INDIANA AVENUE";
  518.    address.FrontPen=red;
  519.    msg11.IText=(UBYTE *)"121";
  520.    }
  521.  
  522. if (which == 24)
  523.    {
  524.    address.IText=(UBYTE *)"ILLINOIS AVENUE";
  525.    address.FrontPen=red;
  526.    msg11.IText=(UBYTE *)"132";
  527.    }
  528.  
  529. if (which == 25)
  530.    {
  531.    address.IText=(UBYTE *)"B. & O. RR";
  532.    address.FrontPen=flesh;
  533.    msg11.IText=(UBYTE *)"110";
  534.    }
  535.  
  536. if (which == 26)
  537.    {
  538.    address.IText=(UBYTE *)"ATLANTIC AVENUE";
  539.    address.FrontPen=yellow;
  540.    msg11.IText=(UBYTE *)"143";
  541.    }
  542.  
  543. if (which == 27)
  544.    {
  545.    address.IText=(UBYTE *)"VENTNOR AVENUE";
  546.    address.FrontPen=yellow;
  547.    msg11.IText=(UBYTE *)"143";
  548.    }
  549.  
  550. if (which == 28)
  551.    {
  552.    address.IText=(UBYTE *)"WATER WORKS";
  553.    address.FrontPen=royal_blue;
  554.    msg11.IText=(UBYTE *)"82";
  555.    }
  556.  
  557. if (which == 29)
  558.    {
  559.    address.IText=(UBYTE *)"MARVIN GARDENS";
  560.    address.FrontPen=yellow;
  561.    msg11.IText=(UBYTE *)"154";
  562.    }
  563.  
  564. if (which == 31)
  565.    {
  566.    address.IText=(UBYTE *)"PACIFIC AVENUE";
  567.    address.FrontPen=green;
  568.    msg11.IText=(UBYTE *)"165";
  569.    }
  570.  
  571. if (which == 32)
  572.    {
  573.    address.IText=(UBYTE *)"NORTH CAROLINA AVENUE";
  574.    address.FrontPen=green;
  575.    msg11.IText=(UBYTE *)"165";
  576.    }
  577.  
  578. if (which == 34)
  579.    {
  580.    address.IText=(UBYTE *)"PENNSYLVANIA AVENUE";
  581.    address.FrontPen=green;
  582.    msg11.IText=(UBYTE *)"176";
  583.    }
  584.  
  585. if (which == 35)
  586.    {
  587.    address.IText=(UBYTE *)"SHORT LINE";
  588.    address.FrontPen=flesh;
  589.    msg11.IText=(UBYTE *)"110";
  590.    }
  591.  
  592. if (which == 37)
  593.    {
  594.    address.IText=(UBYTE *)"PARK PLACE";
  595.    address.FrontPen=dk_blue;
  596.    msg11.IText=(UBYTE *)"192";
  597.    }
  598.  
  599. if (which == 39)
  600.    {
  601.    address.IText=(UBYTE *)"BOARDWALK";
  602.    address.FrontPen=dk_blue;
  603.    msg11.IText=(UBYTE *)"220";
  604.    }
  605.  
  606. ntenpercentw.Screen=screen1;
  607. ntenpercentw.FirstGadget=&yesgag;
  608. if ((tenpercentwindow=(struct Window *)OpenWindow(&ntenpercentw))==NULL) 
  609.    cleanup();
  610. rporttenpercent=tenpercentwindow->RPort;
  611.  
  612. PrintIText(rporttenpercent, &name, 0, 0);
  613.  
  614. Wait(1<<tenpercentwindow->UserPort->mp_SigBit);
  615.  
  616. while((tenpercentmsg=(struct IntuiMessage *)
  617.                          GetMsg(tenpercentwindow->UserPort))!=NULL)
  618.    {
  619.    tenclass=tenpercentmsg->Class;
  620.    tencode=tenpercentmsg->Code;
  621.    if (tenclass == GADGETUP)   getID(tenpercentmsg);
  622.    ReplyMsg(tenpercentmsg);
  623.    }
  624. if (tenclass == GADGETUP)
  625.    {
  626.    if (gagid == YES) 
  627.       {
  628.       if (which == 12)  eft(who, BANK, 82);
  629.       if (which == 28)  eft(who, BANK, 82);
  630.       if (which == 37)  eft(who, BANK, 192);
  631.       if ( (which != 12) && (which != 28) && (which != 37) )
  632.       eft(who, BANK, ( (propcost[which]/2)+(propcost[which]/10) ) );
  633.       ismorg[which]=FALSE;
  634.       em(which, FALSE);
  635.       CloseWindow(tenpercentwindow);
  636.       }
  637.    if (gagid == NO)
  638.       {
  639.       if (which == 12)  eft(who, SLUSH, 7);
  640.       if (which == 28)  eft(who, SLUSH, 7);
  641.       if (which == 37)  eft(who, SLUSH, 17);
  642.       if ( (which != 12) && (which != 28) && (which != 37) )
  643.          eft(which, SLUSH, ((propcost[which]/2)/10) );
  644.       CloseWindow(tenpercentwindow);
  645.       }
  646.    }
  647. }
  648.  
  649.  
  650.         
  651.