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 / f9.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-01-06  |  22.3 KB  |  1,081 lines
  1. /* f9.c contains these functions for monopoly:
  2.         drawhouse(),   em(prop, draw),   drawhotel(),
  3.     maketransmenu(),   servicetransmenu(),       */
  4.  
  5. #include "mono:defines"
  6. #include "mono:xvariables"
  7.  
  8.  
  9. VOID drawhouse(prop, draw)
  10. USHORT prop;
  11. BOOL draw;
  12. {
  13. /*  draw or erase house\s in white or black  */
  14. USHORT bg, atx, aty, orient, pen;
  15. USHORT iter;
  16.  
  17. if (prop == 1)
  18.    {
  19.    bg=purple;
  20.    pen=white;
  21.    atx=240;
  22.    aty=172;
  23.    orient=0;
  24.    goto drawhous;
  25.    }
  26. if (prop == 3)
  27.    {
  28.    bg=purple;
  29.    pen=white;
  30.    atx=198;
  31.    aty=172;
  32.    orient=0;
  33.    goto drawhous;
  34.    }
  35. if (prop == 6)
  36.    {
  37.    bg=lt_blue;
  38.    pen=black;
  39.    atx=123;
  40.    aty=172;
  41.    orient=0;
  42.    goto drawhous;
  43.    }
  44. if (prop == 8)
  45.    {
  46.    bg=lt_blue;
  47.    pen=black;
  48.    atx=81;
  49.    aty=172;
  50.    orient=0;
  51.    goto drawhous;
  52.    }
  53. if (prop == 9)
  54.    {
  55.    bg=lt_blue;
  56.    pen=black;
  57.    atx=61;
  58.    aty=172;
  59.    orient=0;
  60.    goto drawhous;
  61.    }
  62. if (prop == 11)
  63.    {
  64.    bg=maroon;
  65.    pen=black;
  66.    atx=52;
  67.    aty=159;
  68.    orient=1;
  69.    goto drawhous;
  70.    }
  71. if (prop == 13)
  72.    {
  73.    bg=maroon;
  74.    pen=black;
  75.    atx=52;
  76.    aty=125;
  77.    orient=1;
  78.    goto drawhous;
  79.    }
  80. if (prop == 14)
  81.    {
  82.    bg=maroon;
  83.    pen=black;
  84.    atx=52;
  85.    aty=111;
  86.    orient=1;
  87.    goto drawhous;
  88.    }
  89. if (prop == 16)
  90.    {
  91.    bg=orange;
  92.    pen=white;
  93.    atx=52;
  94.    aty=73;
  95.    orient=1;
  96.    goto drawhous;
  97.    }
  98. if (prop == 18)
  99.    {
  100.    bg=orange;
  101.    pen=white;
  102.    atx=52;
  103.    aty=43;
  104.    orient=1;
  105.    goto drawhous;
  106.    }
  107. if (prop == 19)
  108.    {
  109.    bg=orange;
  110.    pen=white;
  111.    atx=52;
  112.    aty=28;
  113.    orient=1;
  114.    goto drawhous;
  115.    }
  116. if (prop == 21)
  117.    {
  118.    bg=red;
  119.    pen=white;
  120.    atx=60;
  121.    aty=21;
  122.    orient=0;
  123.    goto drawhous;
  124.    }
  125. if (prop == 23)
  126.    {
  127.    bg=red;
  128.    pen=white;
  129.    atx=102;
  130.    aty=21;
  131.    orient=0;
  132.    goto drawhous;
  133.    }
  134. if (prop == 24)
  135.    {
  136.    bg=red;
  137.    pen=white;
  138.    atx=123;
  139.    aty=21;
  140.    orient=0;
  141.    goto drawhous;
  142.    }
  143. if (prop == 26)
  144.    {
  145.    bg=yellow;
  146.    pen=black;
  147.    atx=177;
  148.    aty=21;
  149.    orient=0;
  150.    goto drawhous;
  151.    }
  152. if (prop == 27)
  153.    {
  154.    bg=yellow;
  155.    pen=black;
  156.    atx=198;
  157.    aty=21;
  158.    orient=0;
  159.    goto drawhous;
  160.    }
  161. if (prop == 29)
  162.    {
  163.    bg=yellow;
  164.    pen=black;
  165.    atx=241;
  166.    aty=21;
  167.    orient=0;
  168.    goto drawhous;
  169.    }
  170. if (prop == 31)
  171.    {
  172.    bg=green;
  173.    pen=black;
  174.    atx=260;
  175.    aty=28;
  176.    orient=2;
  177.    goto drawhous;
  178.    }
  179. if (prop == 32)
  180.    {
  181.    bg=green;
  182.    pen=black;
  183.    atx=260;
  184.    aty=43;
  185.    orient=2;
  186.    goto drawhous;
  187.    }
  188. if (prop == 34)
  189.    {
  190.    bg=green;
  191.    pen=black;
  192.    atx=260;
  193.    aty=73;
  194.    orient=2;
  195.    goto drawhous;
  196.    }
  197. if (prop == 37)
  198.    {
  199.    bg=dk_blue;
  200.    pen=white;
  201.    atx=260;
  202.    aty=128;
  203.    orient=2;
  204.    goto drawhous;
  205.    }
  206. if (prop == 39)
  207.    {
  208.    bg=dk_blue;
  209.    pen=white;
  210.    atx=260;
  211.    aty=158;
  212.    orient=2;
  213.    }
  214. drawhous:
  215. if (!notplaying[0])  RemIBob(Redbob, &screen1->RastPort, vport1);
  216. if (!notplaying[1])  RemIBob(Greenbob, &screen1->RastPort, vport1);
  217. if (!notplaying[2])  RemIBob(Bluebob, &screen1->RastPort, vport1);
  218. if (!notplaying[3])  RemIBob(Yellowbob, &screen1->RastPort, vport1);
  219. if (draw)
  220.    {
  221.    SetAPen(rportboard, pen);
  222.    if (orient == 0)
  223.       {
  224.       if (numhouses[prop] >= 1)
  225.          {
  226.          WritePixel(rportboard, atx+3, aty+1);
  227.          for (iter=2; iter<5; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  228.          for (iter=1; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  229.          for (iter=1; iter<3; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  230.          for (iter=1; iter<3; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  231.          for (iter=4; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  232.          for (iter=4; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  233.          }
  234.       if (numhouses[prop] >= 2)
  235.          {
  236.          WritePixel(rportboard, atx+7, aty+1);
  237.          for (iter=6; iter<9; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  238.          for (iter=6; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  239.          for (iter=4; iter<6; iter++)  WritePixel(rportboard, atx+6, aty+iter);
  240.          for (iter=8; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  241.          for (iter=8; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  242.          }
  243.       if (numhouses[prop] >= 3)
  244.          {
  245.          WritePixel(rportboard, atx+11, aty+1);
  246.          for (iter=10; iter<13; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  247.          for (iter=10; iter<14; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  248.          for (iter=4; iter<6; iter++)  WritePixel(rportboard, atx+10, aty+iter);
  249.          for (iter=12; iter<14; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  250.          for (iter=12; iter<14; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  251.          }
  252.       if (numhouses[prop] == 4)
  253.          {
  254.          WritePixel(rportboard, atx+15, aty+1);
  255.          for (iter=14; iter<17; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  256.          for (iter=14; iter<18; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  257.          for (iter=4; iter<6; iter++)  WritePixel(rportboard, atx+14, aty+iter);
  258.          for (iter=16; iter<18; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  259.          for (iter=16; iter<18; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  260.          }
  261.       }
  262.    if (orient == 2)
  263.       {
  264.       if (numhouses[prop] == 1)
  265.          {
  266.      for (iter=0; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty);
  267.      for (iter=0; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  268.      for (iter=2; iter<7; iter++)  WritePixel(rportboard, atx+iter, aty+1);
  269.      for (iter=2; iter<7; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  270.      }
  271.       if (numhouses[prop] >= 2)
  272.          {
  273.      for (iter=0; iter<2; iter++)  WritePixel(rportboard, atx+iter, aty);
  274.      for (iter=0; iter<2; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  275.      for (iter=0; iter<2; iter++)  WritePixel(rportboard, atx+iter, aty+6);
  276.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+2, aty+iter);
  277.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+3, aty+iter);
  278.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+4, aty+iter);
  279.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+5, aty+iter);
  280.      WritePixel(rportboard, atx+6, aty+1);
  281.      WritePixel(rportboard, atx+6, aty+2);
  282.      WritePixel(rportboard, atx+6, aty+4);
  283.      WritePixel(rportboard, atx+6, aty+5);
  284.      }
  285.       if (numhouses[prop] >= 3)
  286.          {
  287.      for (iter=0; iter<2; iter++)  WritePixel(rportboard, atx+iter, aty+9);      
  288.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+7);      
  289.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+8);      
  290.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+9);      
  291.      WritePixel(rportboard, atx+6, aty+7);
  292.      WritePixel(rportboard, atx+6, aty+8);
  293.      }
  294.       if (numhouses[prop] == 4)
  295.          {
  296.      for (iter=0; iter<2; iter++)  WritePixel(rportboard, atx+iter, aty+12);     
  297.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+10);     
  298.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+11);     
  299.      for (iter=2; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+12);     
  300.      WritePixel(rportboard, atx+6, aty+10);
  301.      WritePixel(rportboard, atx+6, aty+11);
  302.      }
  303.       } 
  304.    if (orient == 1)
  305.       {
  306.       if (numhouses[prop] == 1)
  307.          {
  308.      for (iter=2; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty);     
  309.      for (iter=2; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty+3);       
  310.      for (iter=1; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+1);       
  311.      for (iter=1; iter<6; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  312.      }
  313.       if (numhouses[prop] >= 2)
  314.          {
  315.      WritePixel(rportboard, atx+1, aty+1);        
  316.      WritePixel(rportboard, atx+1, aty+2);        
  317.      WritePixel(rportboard, atx+1, aty+4);        
  318.      WritePixel(rportboard, atx+1, aty+5);
  319.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+2, aty+iter);       
  320.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+3, aty+iter);       
  321.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+4, aty+iter);       
  322.      for (iter=0; iter<7; iter++)  WritePixel(rportboard, atx+5, aty+iter); 
  323.      for (iter=6; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty); 
  324.      for (iter=6; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty+3); 
  325.      for (iter=6; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty+6);
  326.      }
  327.       if (numhouses[prop] >= 3)
  328.          {
  329.      WritePixel(rportboard, atx+1, aty+7);        
  330.      WritePixel(rportboard, atx+1, aty+8);        
  331.      for (iter=7; iter<9; iter++)  WritePixel(rportboard, atx+2, aty+iter);       
  332.      for (iter=7; iter<9; iter++)  WritePixel(rportboard, atx+3, aty+iter);       
  333.      for (iter=7; iter<9; iter++)  WritePixel(rportboard, atx+4, aty+iter);       
  334.      for (iter=7; iter<9; iter++)  WritePixel(rportboard, atx+5, aty+iter); 
  335.      for (iter=2; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty+9);
  336.      }    
  337.      if (numhouses[prop] == 4)
  338.          {
  339.      WritePixel(rportboard, atx+1, aty+10);       
  340.      WritePixel(rportboard, atx+1, aty+11);       
  341.      for (iter=9; iter<13; iter++)  WritePixel(rportboard, atx+2, aty+iter);      
  342.      for (iter=9; iter<13; iter++)  WritePixel(rportboard, atx+3, aty+iter);      
  343.      for (iter=9; iter<13; iter++)  WritePixel(rportboard, atx+4, aty+iter);      
  344.      for (iter=9; iter<13; iter++)  WritePixel(rportboard, atx+5, aty+iter); 
  345.      for (iter=6; iter<8; iter++)  WritePixel(rportboard, atx+iter, aty+12);
  346.      }
  347.       }
  348.    }
  349. if (!draw)
  350.    {
  351.    SetAPen(rportboard, bg);
  352.    if (!orient)  RectFill(rportboard, atx, aty, atx+17, aty+5);
  353.    if (orient)  RectFill(rportboard, atx, aty, atx+7, aty+12);
  354.    }
  355. if (!notplaying[0])  AddBob(Redbob, &screen1->RastPort);
  356. if (!notplaying[1]) AddBob(Greenbob, &screen1->RastPort);
  357. if (!notplaying[2]) AddBob(Bluebob, &screen1->RastPort);
  358. if (!notplaying[3]) AddBob(Yellowbob, &screen1->RastPort);
  359. WaitTOF();
  360. DrawGels();
  361. }
  362.  
  363. VOID em(prop, draw)
  364. USHORT prop;
  365. BOOL draw;
  366. {
  367. USHORT bg, atx, aty, pen;
  368. USHORT iter;
  369.  
  370. /*  draw or erase M in white or black  */
  371. if (prop == 1)
  372.    {
  373.    bg=purple;
  374.    pen=white;
  375.    atx=246;
  376.    aty=172;
  377.    goto drawm;
  378.    }
  379. if (prop == 3)
  380.    {
  381.    bg=purple;
  382.    pen=white;
  383.    atx=205;
  384.    aty=172;
  385.    goto drawm;
  386.    }
  387. if (prop == 6)
  388.    {
  389.    bg=lt_blue;
  390.    pen=black;
  391.    atx=129;
  392.    aty=172;
  393.    goto drawm;
  394.    }
  395. if (prop == 8)
  396.    {
  397.    bg=lt_blue;
  398.    pen=black;
  399.    atx=87;
  400.    aty=172;
  401.    goto drawm;
  402.    }
  403. if (prop == 9)
  404.    {
  405.    bg=lt_blue;
  406.    pen=black;
  407.    atx=67;
  408.    aty=172;
  409.    goto drawm;
  410.    }
  411. if (prop == 11)
  412.    {
  413.    bg=maroon;
  414.    pen=black;
  415.    atx=52;
  416.    aty=162;
  417.    goto drawm;
  418.    }
  419. if (prop == 13)
  420.    {
  421.    bg=maroon;
  422.    pen=black;
  423.    atx=52;
  424.    aty=129;
  425.    goto drawm;
  426.    }
  427. if (prop == 14)
  428.    {
  429.    bg=maroon;
  430.    pen=black;
  431.    atx=52;
  432.    aty=115;
  433.    goto drawm;
  434.    }
  435. if (prop == 16)
  436.    {
  437.    bg=orange;
  438.    pen=white;
  439.    atx=52;
  440.    aty=77;
  441.    goto drawm;
  442.    }
  443. if (prop == 18)
  444.    {
  445.    bg=orange;
  446.    pen=white;
  447.    atx=52;
  448.    aty=47;
  449.    goto drawm;
  450.    }
  451. if (prop == 19)
  452.    {
  453.    bg=orange;
  454.    pen=white;
  455.    atx=52;
  456.    aty=32;
  457.    goto drawm;
  458.    }
  459. if (prop == 21)
  460.    {
  461.    bg=red;
  462.    pen=white;
  463.    atx=66;
  464.    aty=21;
  465.    goto drawm;
  466.    }
  467. if (prop == 23)
  468.    {
  469.    bg=red;
  470.    pen=white;
  471.    atx=109;
  472.    aty=21;
  473.    goto drawm;
  474.    }
  475. if (prop == 24)
  476.    {
  477.    bg=red;
  478.    pen=white;
  479.    atx=129;
  480.    aty=21;
  481.    goto drawm;
  482.    }
  483. if (prop == 26)
  484.    {
  485.    bg=yellow;
  486.    pen=black;
  487.    atx=185;
  488.    aty=21;
  489.    goto drawm;
  490.    }
  491. if (prop == 27)
  492.    {
  493.    bg=yellow;
  494.    pen=black;
  495.    atx=204;
  496.    aty=21;
  497.    goto drawm;
  498.    }
  499. if (prop == 29)
  500.    {
  501.    bg=yellow;
  502.    pen=black;
  503.    atx=247;
  504.    aty=21;
  505.    goto drawm;
  506.    }
  507. if (prop == 31)
  508.    {
  509.    bg=green;
  510.    pen=black;
  511.    atx=260;
  512.    aty=32;
  513.    goto drawm;
  514.    }
  515. if (prop == 32)
  516.    {
  517.    bg=green;
  518.    pen=black;
  519.    atx=260;
  520.    aty=47;
  521.    goto drawm;
  522.    }
  523. if (prop == 34)
  524.    {
  525.    bg=green;
  526.    pen=black;
  527.    atx=260;
  528.    aty=77;
  529.    goto drawm;
  530.    }
  531. if (prop == 37)
  532.    {
  533.    bg=dk_blue;
  534.    pen=white;
  535.    atx=260;
  536.    aty=133;
  537.    goto drawm;
  538.    }
  539. if (prop == 39)
  540.    {
  541.    bg=dk_blue;
  542.    pen=white;
  543.    atx=260;
  544.    aty=162;
  545.    goto drawm;
  546.    }
  547. if (prop == 5)
  548.    {
  549.    bg=somegray;
  550.    pen=red;
  551.    atx=157;
  552.    aty=172;
  553.    goto drawm;
  554.    }
  555. if (prop == 15)
  556.    {
  557.    bg=somegray;
  558.    pen=red;
  559.    atx=52;
  560.    aty=95;
  561.    goto drawm;
  562.    }
  563. if (prop == 25)
  564.    {
  565.    bg=somegray;
  566.    pen=red;
  567.    atx=157;
  568.    aty=21;
  569.    goto drawm;
  570.    }
  571. if (prop == 35)
  572.    {
  573.    bg=somegray;
  574.    pen=red;
  575.    atx=260;
  576.    aty=95;
  577.    goto drawm;
  578.    }
  579. if (prop == 12)
  580.    {
  581.    bg=somegray;
  582.    pen=red;
  583.    atx=52;
  584.    aty=149;
  585.    goto drawm;
  586.    }
  587. if (prop == 28)
  588.    {
  589.    bg=somegray;
  590.    pen=red;
  591.    atx=228;
  592.    aty=21;
  593.    }
  594. drawm:
  595. if (!notplaying[0])  RemIBob(Redbob, &screen1->RastPort, vport1);
  596. if (!notplaying[1])  RemIBob(Greenbob, &screen1->RastPort, vport1);
  597. if (!notplaying[2])  RemIBob(Bluebob, &screen1->RastPort, vport1);
  598. if (!notplaying[3])  RemIBob(Yellowbob, &screen1->RastPort, vport1);
  599. if (draw)
  600.    {
  601.    SetAPen(rportboard, pen);
  602.    WritePixel(rportboard, atx, aty);
  603.    WritePixel(rportboard, atx+1, aty);
  604.    WritePixel(rportboard, atx+6, aty);
  605.    WritePixel(rportboard, atx+7, aty);
  606.    WritePixel(rportboard, atx, aty+1);
  607.    WritePixel(rportboard, atx+1, aty+1);
  608.    WritePixel(rportboard, atx+2, aty+1);
  609.    WritePixel(rportboard, atx+5, aty+1);
  610.    WritePixel(rportboard, atx+6, aty+1);
  611.    WritePixel(rportboard, atx+7, aty+1);
  612.    for (iter=0; iter<8; iter++)   WritePixel(rportboard, atx+iter, aty+2);
  613.    WritePixel(rportboard, atx, aty+3);
  614.    WritePixel(rportboard, atx+1, aty+3);
  615.    WritePixel(rportboard, atx+3, aty+3);
  616.    WritePixel(rportboard, atx+4, aty+3);
  617.    WritePixel(rportboard, atx+6, aty+3);
  618.    WritePixel(rportboard, atx+7, aty+3);
  619.    for (iter=4; iter<6; iter++)
  620.       {
  621.       WritePixel(rportboard, atx, aty+iter);
  622.       WritePixel(rportboard, atx+1, aty+iter);
  623.       WritePixel(rportboard, atx+6, aty+iter);
  624.       WritePixel(rportboard, atx+7, aty+iter);
  625.       }
  626.    }
  627. if (!draw)
  628.    {
  629.    SetAPen(rportboard, bg);
  630.    RectFill(rportboard, atx, aty, atx+7, aty+5);
  631.    }
  632. if (!notplaying[0])  AddBob(Redbob, &screen1->RastPort);
  633. if (!notplaying[1]) AddBob(Greenbob, &screen1->RastPort);
  634. if (!notplaying[2]) AddBob(Bluebob, &screen1->RastPort);
  635. if (!notplaying[3]) AddBob(Yellowbob, &screen1->RastPort);
  636. WaitTOF();
  637. DrawGels();
  638. }
  639.  
  640. VOID drawhotel(prop, draw)
  641. USHORT prop;
  642. BOOL draw;
  643. {
  644. USHORT bg, atx, aty, orient, pen;
  645. USHORT iter;
  646.  
  647. if (prop == 1)
  648.    {
  649.    bg=purple;
  650.    pen=white;
  651.    atx=243;
  652.    aty=172;
  653.    orient=0;
  654.    goto drawhot;
  655.    }
  656. if (prop == 3)
  657.    {
  658.    bg=purple;
  659.    pen=white;
  660.    atx=202;
  661.    aty=172;
  662.    orient=0;
  663.    goto drawhot;
  664.    }
  665. if (prop == 6)
  666.    {
  667.    bg=lt_blue;
  668.    pen=black;
  669.    atx=127;
  670.    aty=172;
  671.    orient=0;
  672.    goto drawhot;
  673.    }
  674. if (prop == 8)
  675.    {
  676.    bg=lt_blue;
  677.    pen=black;
  678.    atx=85;
  679.    aty=172;
  680.    orient=0;
  681.    goto drawhot;
  682.    }
  683. if (prop == 9)
  684.    {
  685.    bg=lt_blue;
  686.    pen=black;
  687.    atx=65;
  688.    aty=172;
  689.    orient=0;
  690.    goto drawhot;
  691.    }
  692. if (prop == 11)
  693.    {
  694.    bg=maroon;
  695.    pen=black;
  696.    atx=54;
  697.    aty=159;
  698.    orient=1;
  699.    goto drawhot;
  700.    }
  701. if (prop == 13)
  702.    {
  703.    bg=maroon;
  704.    pen=black;
  705.    atx=54;
  706.    aty=126;
  707.    orient=1;
  708.    goto drawhot;
  709.    }
  710. if (prop == 14)
  711.    {
  712.    bg=maroon;
  713.    pen=black;
  714.    atx=54;
  715.    aty=112;
  716.    orient=1;
  717.    goto drawhot;
  718.    }
  719. if (prop == 16)
  720.    {
  721.    bg=orange;
  722.    pen=white;
  723.    atx=54;
  724.    aty=73;
  725.    orient=1;
  726.    goto drawhot;
  727.    }
  728. if (prop == 18)
  729.    {
  730.    bg=orange;
  731.    pen=white;
  732.    atx=54;
  733.    aty=44;
  734.    orient=1;
  735.    goto drawhot;
  736.    }
  737. if (prop == 19)
  738.    {
  739.    bg=orange;
  740.    pen=white;
  741.    atx=54;
  742.    aty=29;
  743.    orient=1;
  744.    goto drawhot;
  745.    }
  746. if (prop == 21)
  747.    {
  748.    bg=red;
  749.    pen=white;
  750.    atx=64;
  751.    aty=21;
  752.    orient=0;
  753.    goto drawhot;
  754.    }
  755. if (prop == 23)
  756.    {
  757.    bg=red;
  758.    pen=white;
  759.    atx=106;
  760.    aty=21;
  761.    orient=0;
  762.    goto drawhot;
  763.    }
  764. if (prop == 24)
  765.    {
  766.    bg=red;
  767.    pen=white;
  768.    atx=127;
  769.    aty=21;
  770.    orient=0;
  771.    goto drawhot;
  772.    }
  773. if (prop == 26)
  774.    {
  775.    bg=yellow;
  776.    pen=black;
  777.    atx=181;
  778.    aty=21;
  779.    orient=0;
  780.    goto drawhot;
  781.    }
  782. if (prop == 27)
  783.    {
  784.    bg=yellow;
  785.    pen=black;
  786.    atx=202;
  787.    aty=21;
  788.    orient=0;
  789.    goto drawhot;
  790.    }
  791. if (prop == 29)
  792.    {
  793.    bg=yellow;
  794.    pen=black;
  795.    atx=245;
  796.    aty=21;
  797.    orient=0;
  798.    goto drawhot;
  799.    }
  800. if (prop == 31)
  801.    {
  802.    bg=green;
  803.    pen=black;
  804.    atx=260;
  805.    aty=29;
  806.    orient=2;
  807.    goto drawhot;
  808.    }
  809. if (prop == 32)
  810.    {
  811.    bg=green;
  812.    pen=black;
  813.    atx=260;
  814.    aty=44;
  815.    orient=2;
  816.    goto drawhot;
  817.    }
  818. if (prop == 34)
  819.    {
  820.    bg=green;
  821.    pen=black;
  822.    atx=260;
  823.    aty=74;
  824.    orient=2;
  825.    goto drawhot;
  826.    }
  827. if (prop == 37)
  828.    {
  829.    bg=dk_blue;
  830.    pen=white;
  831.    atx=260;
  832.    aty=129;
  833.    orient=2;
  834.    goto drawhot;
  835.    }
  836. if (prop == 39)
  837.    {
  838.    bg=dk_blue;
  839.    pen=white;
  840.    atx=260;
  841.    aty=159;
  842.    orient=2;
  843.    }
  844. drawhot:
  845. if (!notplaying[0])  RemIBob(Redbob, &screen1->RastPort, vport1);
  846. if (!notplaying[1])  RemIBob(Greenbob, &screen1->RastPort, vport1);
  847. if (!notplaying[2])  RemIBob(Bluebob, &screen1->RastPort, vport1);
  848. if (!notplaying[3])  RemIBob(Yellowbob, &screen1->RastPort, vport1);
  849. if (draw)
  850.    {
  851.    SetAPen(rportboard, pen);
  852.    if (orient == 0)
  853.       {
  854.       for (iter=2; iter<5; iter++)   WritePixel(rportboard, atx+iter, aty);
  855.       for (iter=7; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty);
  856.       for (iter=2; iter<5; iter++)   WritePixel(rportboard, atx+iter, aty+1);
  857.       for (iter=7; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty+1);
  858.       for (iter=2; iter<10; iter++)  WritePixel(rportboard, atx+iter, aty+2);
  859.       for (iter=0; iter<12; iter++)  WritePixel(rportboard, atx+iter, aty+3);
  860.       for (iter=0; iter<12; iter++)  WritePixel(rportboard, atx+iter, aty+4);
  861.       for (iter=0; iter<12; iter++)  WritePixel(rportboard, atx+iter, aty+5);
  862.       if (pen == white)   SetAPen(rportboard, black);
  863.       if (pen == black)   SetAPen(rportboard, white);
  864.       WritePixel(rportboard, atx+5, aty+4);
  865.       WritePixel(rportboard, atx+6, aty+4);
  866.       WritePixel(rportboard, atx+5, aty+5);
  867.       WritePixel(rportboard, atx+6, aty+5);
  868.       }
  869.    if (orient == 1)
  870.       {
  871.       for (iter=3; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty);
  872.       for (iter=3; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+1);
  873.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+2);
  874.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+3);
  875.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+4);
  876.       for (iter=2; iter<4; iter++)   WritePixel(rportboard, atx+iter, aty+5);
  877.       for (iter=2; iter<4; iter++)   WritePixel(rportboard, atx+iter, aty+6);
  878.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+7);
  879.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+8);
  880.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+9);
  881.       for (iter=3; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+10);
  882.       for (iter=3; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+11);
  883.       if (pen == white)   SetAPen(rportboard, black);
  884.       if (pen == black)   SetAPen(rportboard, white);
  885.       for (iter=4; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+5);
  886.       for (iter=4; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+6);
  887.       }
  888.    if (orient == 2)
  889.       {
  890.       for (iter=0; iter<3; iter++)   WritePixel(rportboard, atx+iter, aty);
  891.       for (iter=0; iter<3; iter++)   WritePixel(rportboard, atx+iter, aty+1);
  892.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+2);
  893.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+3);
  894.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+4);
  895.       for (iter=2; iter<4; iter++)   WritePixel(rportboard, atx+iter, aty+5);
  896.       for (iter=2; iter<4; iter++)   WritePixel(rportboard, atx+iter, aty+6);
  897.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+7);
  898.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+8);
  899.       for (iter=0; iter<6; iter++)   WritePixel(rportboard, atx+iter, aty+9);
  900.       for (iter=0; iter<3; iter++)   WritePixel(rportboard, atx+iter, aty+10);
  901.       for (iter=0; iter<3; iter++)   WritePixel(rportboard, atx+iter, aty+11);
  902.       if (pen == white)   SetAPen(rportboard, black);
  903.       if (pen == black)   SetAPen(rportboard, white);
  904.       for (iter=0; iter<2; iter++)   WritePixel(rportboard, atx+iter, aty+5);
  905.       for (iter=0; iter<2; iter++)   WritePixel(rportboard, atx+iter, aty+6);
  906.       }
  907.    }
  908. if (!draw)
  909.    {
  910.    SetAPen(rportboard, bg);
  911.    if (!orient)  RectFill(rportboard, atx, aty, atx+11, aty+5);
  912.    if (orient)  RectFill(rportboard, atx, aty, atx+5, aty+11);
  913.    drawhouse(prop, TRUE);
  914.    }
  915. if (!notplaying[0])  AddBob(Redbob, &screen1->RastPort);
  916. if (!notplaying[1]) AddBob(Greenbob, &screen1->RastPort);
  917. if (!notplaying[2]) AddBob(Bluebob, &screen1->RastPort);
  918. if (!notplaying[3]) AddBob(Yellowbob, &screen1->RastPort);
  919. WaitTOF();
  920. DrawGels();
  921. }
  922.  
  923.  
  924.  
  925.  
  926. USHORT servicetransmenu(menu, item, sub)
  927. USHORT menu, item, sub;
  928. {
  929. pickedprop=TRUE;
  930. /*   serve the transact menus by returning the property number  */
  931. if (menu != 0)
  932.    {
  933.    return(99);
  934.    }
  935. if (item == 0)
  936.    {
  937.    if (sub == 0)
  938.       {
  939.       return(1);
  940.       }
  941.    if (sub == 1)
  942.       {
  943.       return(3);
  944.       }
  945.    }
  946. if (item == 1)
  947.    {
  948.    if (sub == 0)
  949.       {
  950.       return(6);
  951.       }
  952.    if (sub == 1)
  953.       {
  954.       return(8);
  955.       }
  956.    if (sub == 2)
  957.       {
  958.       return(9);
  959.       }
  960.    }
  961. if (item == 2)
  962.    {
  963.    if (sub == 0)
  964.       {
  965.       return(11);
  966.       }
  967.    if (sub == 1)
  968.       {
  969.       return(13);
  970.       }
  971.    if (sub == 2)
  972.       {
  973.       return(14);
  974.       }
  975.    }
  976. if (item == 3)
  977.    {
  978.    if (sub == 0)
  979.       {
  980.       return(16);
  981.       }
  982.    if (sub == 1)
  983.       {
  984.       return(18);
  985.       }
  986.    if (sub == 2)
  987.       {
  988.       return(19);
  989.       }
  990.    }
  991. if (item == 4)
  992.    {
  993.    if (sub == 0)
  994.       {
  995.       return(21);
  996.       }
  997.    if (sub == 1)
  998.       {
  999.       return(23);
  1000.       }
  1001.    if (sub == 2)
  1002.       {
  1003.       return(24);
  1004.       }
  1005.    }
  1006. if (item == 5)
  1007.    {
  1008.    if (sub == 0)
  1009.       {
  1010.       return(26);
  1011.       }
  1012.    if (sub == 1)
  1013.       {
  1014.       return(27);
  1015.       }
  1016.    if (sub == 2)
  1017.       {
  1018.       return(29);
  1019.       }
  1020.    }
  1021. if (item == 6)
  1022.    {
  1023.    if (sub == 0)
  1024.       {
  1025.       return(31);
  1026.       }
  1027.    if (sub == 1)
  1028.       {
  1029.       return(32);
  1030.       }
  1031.    if (sub == 2)
  1032.       {
  1033.       return(34);
  1034.       }
  1035.    }
  1036. if (item == 7)
  1037.    {
  1038.    if (sub == 0)
  1039.       {
  1040.       return(37);
  1041.       }
  1042.    if (sub == 1)
  1043.       {
  1044.       return(39);
  1045.       }
  1046.    }
  1047. if (item == 8)
  1048.    {
  1049.    if (sub == 0)
  1050.       {
  1051.       return(5);
  1052.       }
  1053.    if (sub == 1)
  1054.       {
  1055.       return(15);
  1056.       }
  1057.    if (sub == 2)
  1058.       {
  1059.       return(25);
  1060.       }
  1061.    if (sub == 3)
  1062.       {
  1063.       return(35);
  1064.       }
  1065.    }
  1066. if (item == 9)
  1067.    {
  1068.    if (sub == 0)
  1069.       {
  1070.       return(12);
  1071.       }
  1072.    if (sub == 1)
  1073.       {
  1074.       return(28);
  1075.       }
  1076.    }
  1077. return(99);
  1078. }
  1079.  
  1080.  
  1081.