home *** CD-ROM | disk | FTP | other *** search
-
- /* f1.c contains functions for monopoly
- colorpalette funcs, movetoken() */
-
- #include "mono:defines"
- #include "mono:xvariables"
-
- VOID putsquare(pen)
- USHORT pen;
- {
- SetAPen(rportinfo, pen);
- RectFill(rportinfo, 100, 20, 140, 60);
- }
-
- VOID fixcolorpot(color)
- USHORT color;
- {
- int colorpot;
-
- switch (color)
- {
- case 0: colorpot=rpinfo.HorizPot;
- break;
- case 1: colorpot=gpinfo.HorizPot;
- break;
- case 2: colorpot=bpinfo.HorizPot;
- break;
- }
- if (colorpot < 2184) colorpot=0;
- if ( (colorpot >= 2184) && (colorpot < 6553) ) colorpot=1;
- if ( (colorpot >= 6553) && (colorpot < 10922) ) colorpot=2;
- if ( (colorpot >= 10922) && (colorpot < 15291) ) colorpot=3;
- if ( (colorpot >= 15291) && (colorpot < 19660) ) colorpot=4;
- if ( (colorpot >= 19660) && (colorpot < 24029) ) colorpot=5;
- if ( (colorpot >= 24029) && (colorpot < 29398) ) colorpot=6;
- if ( (colorpot >= 28398) && (colorpot < 32769) ) colorpot=7;
- if ( (colorpot >= 32769) && (colorpot < 37136) ) colorpot=8;
- if ( (colorpot >= 37136) && (colorpot < 41505) ) colorpot=9;
- if ( (colorpot >= 41505) && (colorpot < 45874) ) colorpot=10;
- if ( (colorpot >= 45874) && (colorpot < 50243) ) colorpot=11;
- if ( (colorpot >= 50243) && (colorpot < 54612) ) colorpot=12;
- if ( (colorpot >= 54612) && (colorpot < 58981) ) colorpot=13;
- if ( (colorpot >= 58981) && (colorpot < 63350) ) colorpot=14;
- if ( colorpot >= 63350) colorpot=15;
-
- if (color == 0) rcolorpot=colorpot;
- if (color == 1) gcolorpot=colorpot;
- if (color == 2) bcolorpot=colorpot;
-
- if (changetoken0 == TRUE)
- SetRGB4(vport1, 25, rcolorpot, gcolorpot, bcolorpot);
-
- if (changetoken1 == TRUE)
- SetRGB4(vport1, 26, rcolorpot, gcolorpot, bcolorpot);
-
- if (changetoken2 == TRUE)
- SetRGB4(vport1, 27, rcolorpot, gcolorpot, bcolorpot);
-
- if (changetoken3 == TRUE)
- SetRGB4(vport1, 28, rcolorpot, gcolorpot, bcolorpot);
- }
-
- VOID mixcolors()
- {
- rcolorpot=rpinfo.HorizPot;
- fixcolorpot(0);
- gcolorpot=gpinfo.HorizPot;
- fixcolorpot(1);
- bcolorpot=bpinfo.HorizPot;
- fixcolorpot(2);
- }
-
- VOID do_palgag()
- {
- switch (gagid)
- {
- case 0: /* red gadget */
- mixcolors();
- break;
- case 1: /* green gadget */
-
- mixcolors();
- break;
- case 2: /* blue gadget */
- mixcolors();
- break;
- case 3: endpal=TRUE;
- break;
- case 4: /* restore token colors */
- SetRGB4(vport1, 25, 15, 0, 0);
- SetRGB4(vport1, 26, 0, 9, 0);
- SetRGB4(vport1, 27, 0, 0, 13);
- SetRGB4(vport1, 28, 15, 0, 15);
- break;
- case 25: putsquare(25);
- changetoken0=TRUE;
- changetoken1=FALSE;
- changetoken2=FALSE;
- changetoken3=FALSE;
- break;
- case 26: putsquare(26);
- changetoken0=FALSE;
- changetoken1=TRUE;
- changetoken2=FALSE;
- changetoken3=FALSE;
- break;
- case 27: putsquare(27);
- changetoken0=FALSE;
- changetoken1=FALSE;
- changetoken2=TRUE;
- changetoken3=FALSE;
- break;
- case 28: putsquare(28);
- changetoken0=FALSE;
- changetoken1=FALSE;
- changetoken2=FALSE;
- changetoken3=TRUE;
- break;
- }
- }
-
- VOID ckpalmsg()
- {
- ULONG pclass;
- USHORT pcode;
- pclass=0;
- pcode=0;
-
- while (infomsg=(struct IntuiMessage *)GetMsg(infowindow->UserPort))
- {
- pclass = infomsg->Class;
- pcode = infomsg->Code;
- if (pclass == GADGETUP) getID(infomsg);
- ReplyMsg(infomsg);
- if (pclass == GADGETUP) do_palgag();
- if ( (pclass == RAWKEY) && (pcode == HELP) ) instruction();
- }
- }
-
- VOID setupchgcol()
- {
- palintrotext.FrontPen=yellow;
- palintrotext.BackPen=0;
- palintrotext.DrawMode=JAM1;
- palintrotext.LeftEdge=21;
- palintrotext.TopEdge=5;
- palintrotext.ITextFont=NULL;
- palintrotext.IText=(UBYTE *)"ADJUST TOKEN COLORS";
- palintrotext.NextText=NULL;
-
- paloktext.FrontPen=green;
- paloktext.BackPen=0;
- paloktext.DrawMode=JAM1;
- paloktext.LeftEdge=0;
- paloktext.TopEdge=1;
- paloktext.ITextFont=NULL;
- paloktext.IText=(UBYTE *)"COLORS OK";
- paloktext.NextText=NULL;
-
- restorepaltext.FrontPen=orange;
- restorepaltext.BackPen=0;
- restorepaltext.DrawMode=JAM1;
- restorepaltext.LeftEdge=0;
- restorepaltext.TopEdge=1;
- restorepaltext.ITextFont=NULL;
- restorepaltext.IText=(UBYTE *)"RESTORE DEFAULT COLORS";
- restorepaltext.NextText=NULL;
-
- redgagtext.FrontPen=red;
- redgagtext.BackPen=0;
- redgagtext.DrawMode=JAM1;
- redgagtext.LeftEdge=-27;
- redgagtext.TopEdge=0;
- redgagtext.ITextFont=NULL;
- redgagtext.IText=(UBYTE *)"RED";
- redgagtext.NextText=NULL;
-
- greengagtext.FrontPen=green;
- greengagtext.BackPen=0;
- greengagtext.DrawMode=JAM1;
- greengagtext.LeftEdge=-43;
- greengagtext.TopEdge=0;
- greengagtext.ITextFont=NULL;
- greengagtext.IText=(UBYTE *)"GREEN";
- greengagtext.NextText=NULL;
-
- bluegagtext.FrontPen=dk_blue;
- bluegagtext.BackPen=0;
- bluegagtext.DrawMode=JAM1;
- bluegagtext.LeftEdge=-35;
- bluegagtext.TopEdge=0;
- bluegagtext.ITextFont=NULL;
- bluegagtext.IText=(UBYTE *)"BLUE";
- bluegagtext.NextText=NULL;
-
-
-
- /* first gadget in palette window */
- palc25gag.NextGadget=&palc26gag;
- palc25gag.LeftEdge=30;
- palc25gag.TopEdge=20;
- palc25gag.Width=20;
- palc25gag.Height=20;
- palc25gag.Flags=GADGHBOX | GADGIMAGE;
- palc25gag.Activation=GADGIMMEDIATE | RELVERIFY;
- palc25gag.GadgetType=BOOLGADGET;
- palc25gag.GadgetRender=(APTR)&image25;
- palc25gag.SelectRender=NULL;
- palc25gag.GadgetText=NULL;
- palc25gag.MutualExclude=NULL;
- palc25gag.SpecialInfo=NULL;
- palc25gag.GadgetID=25;
- palc25gag.UserData=NULL;
-
- palc26gag.NextGadget=&palc27gag;
- palc26gag.LeftEdge=50;
- palc26gag.TopEdge=20;
- palc26gag.Width=20;
- palc26gag.Height=20;
- palc26gag.Flags=GADGHBOX | GADGIMAGE;
- palc26gag.Activation=GADGIMMEDIATE | RELVERIFY;
- palc26gag.GadgetType=BOOLGADGET;
- palc26gag.GadgetRender=(APTR)&image26;
- palc26gag.SelectRender=NULL;
- palc26gag.GadgetText=NULL;
- palc26gag.MutualExclude=NULL;
- palc26gag.SpecialInfo=NULL;
- palc26gag.GadgetID=26;
- palc26gag.UserData=NULL;
-
- palc27gag.NextGadget=&palc28gag;
- palc27gag.LeftEdge=30;
- palc27gag.TopEdge=40;
- palc27gag.Width=20;
- palc27gag.Height=20;
- palc27gag.Flags=GADGHBOX | GADGIMAGE;
- palc27gag.Activation=GADGIMMEDIATE | RELVERIFY;
- palc27gag.GadgetType=BOOLGADGET;
- palc27gag.GadgetRender=(APTR)&image27;
- palc27gag.SelectRender=NULL;
- palc27gag.GadgetText=NULL;
- palc27gag.MutualExclude=NULL;
- palc27gag.SpecialInfo=NULL;
- palc27gag.GadgetID=27;
- palc27gag.UserData=NULL;
-
- palc28gag.NextGadget=&redgag;
- palc28gag.LeftEdge=50;
- palc28gag.TopEdge=40;
- palc28gag.Width=20;
- palc28gag.Height=20;
- palc28gag.Flags=GADGHBOX | GADGIMAGE;
- palc28gag.Activation=GADGIMMEDIATE | RELVERIFY;
- palc28gag.GadgetType=BOOLGADGET;
- palc28gag.GadgetRender=(APTR)&image28;
- palc28gag.SelectRender=NULL;
- palc28gag.GadgetText=NULL;
- palc28gag.MutualExclude=NULL;
- palc28gag.SpecialInfo=NULL;
- palc28gag.GadgetID=28;
- palc28gag.UserData=NULL;
-
- redgag.NextGadget=&greengag;
- redgag.LeftEdge=48;
- redgag.TopEdge=65;
- redgag.Width=128;
- redgag.Height=10;
- redgag.Flags=GADGHCOMP;
- redgag.Activation=RELVERIFY | GADGIMMEDIATE;
- redgag.GadgetType=PROPGADGET;
- redgag.GadgetRender=(APTR)&redknob;
- redgag.SelectRender=NULL;
- redgag.GadgetText=&redgagtext;
- redgag.MutualExclude=NULL;
- redgag.SpecialInfo=(APTR)&rpinfo;
- redgag.GadgetID=0;
- redgag.UserData=NULL;
-
- greengag.NextGadget=&bluegag;
- greengag.LeftEdge=48;
- greengag.TopEdge=80;
- greengag.Width=128;
- greengag.Height=10;
- greengag.Flags=GADGHCOMP;
- greengag.Activation=RELVERIFY | GADGIMMEDIATE;
- greengag.GadgetType=PROPGADGET;
- greengag.GadgetRender=(APTR)&greenknob;
- greengag.SelectRender=NULL;
- greengag.GadgetText=&greengagtext;
- greengag.MutualExclude=NULL;
- greengag.SpecialInfo=(APTR)&gpinfo;
- greengag.GadgetID=1;
- greengag.UserData=NULL;
-
- bluegag.NextGadget=&palokgag;
- bluegag.LeftEdge=48;
- bluegag.TopEdge=95;
- bluegag.Width=128;
- bluegag.Height=10;
- bluegag.Flags=GADGHCOMP;
- bluegag.Activation=RELVERIFY | GADGIMMEDIATE;
- bluegag.GadgetType=PROPGADGET;
- bluegag.GadgetRender=(APTR)&blueknob;
- bluegag.SelectRender=NULL;
- bluegag.GadgetText=&bluegagtext;
- bluegag.MutualExclude=NULL;
- bluegag.SpecialInfo=(APTR)&bpinfo;
- bluegag.GadgetID=2;
- bluegag.UserData=NULL;
-
- /* PropInfo structure template
- not used now
- pinfo.Flags=;
- pinfo.HorizPot=;
- pinfo.VertPot=;
- pinfo.HorizBody=;
- pinfo.VertBody=;
- pinfo.CWidth=;
- pinfo.CHeight=;
- pinfo.HPotRes=;
- pinfo.VPotRes=;
- pinfo.LeftBorder=;
- pinfo.TopBordr=;
-
- *********************/
- rpinfo.Flags=gpinfo.Flags=bpinfo.Flags = FREEHORIZ | AUTOKNOB;
- rpinfo.HorizBody=gpinfo.HorizBody=bpinfo.HorizBody = 0x1000;
-
- palokgag.NextGadget=&restorepalgag;
- palokgag.LeftEdge=59;
- palokgag.TopEdge=115;
- palokgag.Width=72;
- palokgag.Height=10;
- palokgag.Flags=GADGHCOMP;
- palokgag.Activation=GADGIMMEDIATE | RELVERIFY;
- palokgag.GadgetType=BOOLGADGET;
- palokgag.GadgetRender=(APTR)&palokborder;
- palokgag.SelectRender=NULL;
- palokgag.GadgetText=&paloktext;
- palokgag.MutualExclude=NULL;
- palokgag.SpecialInfo=NULL;
- palokgag.GadgetID=3;
- palokgag.UserData=NULL;
-
- restorepalgag.NextGadget=NULL;
- restorepalgag.LeftEdge=7;
- restorepalgag.TopEdge=130;
- restorepalgag.Width=176;
- restorepalgag.Height=10;
- restorepalgag.Flags=GADGHCOMP;
- restorepalgag.Activation=GADGIMMEDIATE | RELVERIFY;
- restorepalgag.GadgetType=BOOLGADGET;
- restorepalgag.GadgetRender=(APTR)&restorepalborder;
- restorepalgag.SelectRender=NULL;
- restorepalgag.GadgetText=&restorepaltext;
- restorepalgag.MutualExclude=NULL;
- restorepalgag.SpecialInfo=NULL;
- restorepalgag.GadgetID=4;
- restorepalgag.UserData=NULL;
-
- ninfow.LeftEdge=63;
- ninfow.TopEdge=29;
- ninfow.Width=194;
- ninfow.Height=143;
- ninfow.DetailPen=white;
- ninfow.BlockPen=black;
- ninfow.Title=NULL;
- ninfow.Flags=SMART_REFRESH | ACTIVATE | BORDERLESS;
- ninfow.IDCMPFlags=RAWKEY | GADGETUP;
- ninfow.FirstGadget=&palc25gag;
- }
-
- VOID changecolors()
- {
- USHORT hold_line;
-
- setupchgcol();
-
- if ((infowindow=(struct Window *)OpenWindow(&ninfow))==NULL) cleanup();
- rportinfo=infowindow->RPort;
- PrintIText(rportinfo, &palintrotext, 0, 0);
-
- line0_text=25; /* set colors of tokens */
- for (j=0, hold_line=line0_text; j<SHOW_LINES; j++)
- instructIT[j].IText=instructline[hold_line++];
-
- endpal=FALSE;
- while (!endpal)
- {
- if (1<<infowindow->UserPort->mp_SigBit) ckpalmsg();
- }
- RemoveGadget(infowindow, &palc25gag);
- RemoveGadget(infowindow, &palc26gag);
- RemoveGadget(infowindow, &palc27gag);
- RemoveGadget(infowindow, &palc28gag);
- RemoveGadget(infowindow, &redgag);
- RemoveGadget(infowindow, &greengag);
- RemoveGadget(infowindow, &bluegag);
- RemoveGadget(infowindow, &palokgag);
- RemoveGadget(infowindow, &restorepalgag);
- CloseWindow(infowindow);
- }
-
-
-
- VOID movetoken()
- {
- playerat[nowrolling]=playerat[nowrolling]+dice0+dice1;
- if (playerat[nowrolling] > 40)
- {
- playerat[nowrolling]=playerat[nowrolling]-40;
- eft(BANK, nowrolling, 200);
- passgo();
- }
- if (playerat[nowrolling] == 40)
- {
- playerat[nowrolling]=0;
- }
- if (nowrolling == 0)
- {
- switch (playerat[0])
- {
- case 0: REDX= go[0][0];
- REDY= go[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(0);
- break;
- case 1: REDX= med[0][0];
- REDY= med[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(1);
- break;
- case 2: REDX= cc1[0][0];
- REDY= cc1[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(2);
- break;
- case 3: REDX= bal[0][0];
- REDY= bal[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(3);
- break;
- case 4: REDX= itax[0][0];
- REDY= itax[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(4);
- break;
- case 5: REDX= rrr[0][0];
- REDY= rrr[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(5);
- break;
- case 6: REDX= or[0][0];
- REDY= or[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(6);
- break;
- case 7: REDX= c1[0][0];
- REDY= c1[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(7);
- break;
- case 8: REDX= ver[0][0];
- REDY= ver[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(8);
- break;
- case 9: REDX= con[0][0];
- REDY= con[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(9);
- break;
- case 10: REDX= vis[0][0];
- REDY= vis[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(10);
- break;
- case 11: REDX= stc[0][0];
- REDY= stc[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(11);
- break;
- case 12: REDX= eco[0][0];
- REDY= eco[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(12);
- break;
- case 13: REDX= sts[0][0];
- REDY= sts[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(13);
- break;
- case 14: REDX= va[0][0];
- REDY= va[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(14);
- break;
- case 15: REDX= rrp[0][0];
- REDY= rrp[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(15);
- break;
- case 16: REDX= stj[0][0];
- REDY= stj[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(16);
- break;
- case 17: REDX= cc2[0][0];
- REDY= cc2[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(17);
- break;
- case 18: REDX= tn[0][0];
- REDY= tn[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(18);
- break;
- case 19: REDX= ny[0][0];
- REDY= ny[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(19);
- break;
- case 20: REDX= fp[0][0];
- REDY= fp[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(20);
- break;
- case 21: REDX= ky[0][0];
- REDY= ky[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(21);
- break;
- case 22: REDX= c2[0][0];
- REDY= c2[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(22);
- break;
- case 23: REDX= in[0][0];
- REDY= in[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(23);
- break;
- case 24: REDX= il[0][0];
- REDY= il[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(24);
- break;
- case 25: REDX= rrb[0][0];
- REDY= rrb[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(25);
- break;
- case 26: REDX= at[0][0];
- REDY= at[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(26);
- break;
- case 27: REDX= ven[0][0];
- REDY= ven[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(27);
- break;
- case 28: REDX= ww[0][0];
- REDY= ww[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(28);
- break;
- case 29: REDX= mar[0][0];
- REDY= mar[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(29);
- break;
- case 30: REDX= gtj[0][0];
- REDY= gtj[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(30);
- sendtojail();
- break;
- case 31: REDX= pac[0][0];
- REDY= pac[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(31);
- break;
- case 32: REDX= nc[0][0];
- REDY= nc[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(32);
- break;
- case 33: REDX= cc3[0][0];
- REDY= cc3[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(33);
- break;
- case 34: REDX= pen[0][0];
- REDY= pen[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(34);
- break;
- case 35: REDX= rrs[0][0];
- REDY= rrs[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(35);
- break;
- case 36: REDX= c3[0][0];
- REDY= c3[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(36);
- break;
- case 37: REDX= pp[0][0];
- REDY= pp[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(37);
- break;
- case 38: REDX= ptax[0][0];
- REDY= ptax[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(38);
- break;
- case 39: REDX= bw[0][0];
- REDY= bw[1][0];
- WaitTOF();
- DrawGels();
- showpropinfo(39);
- break;
- }
- }
- if (nowrolling == 1)
- {
- switch (playerat[1])
- {
- case 0: GREENX= go[0][1];
- GREENY= go[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(0);
- break;
- case 1: GREENX= med[0][1];
- GREENY= med[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(1);
- break;
- case 2: GREENX= cc1[0][1];
- GREENY= cc1[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(2);
- break;
- case 3: GREENX= bal[0][1];
- GREENY= bal[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(3);
- break;
- case 4: GREENX= itax[0][1];
- GREENY= itax[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(4);
- break;
- case 5: GREENX= rrr[0][1];
- GREENY= rrr[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(5);
- break;
- case 6: GREENX= or[0][1];
- GREENY= or[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(6);
- break;
- case 7: GREENX= c1[0][1];
- GREENY= c1[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(7);
- break;
- case 8: GREENX= ver[0][1];
- GREENY= ver[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(8);
- break;
- case 9: GREENX= con[0][1];
- GREENY= con[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(9);
- break;
- case 10: GREENX= vis[0][1];
- GREENY= vis[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(10);
- break;
- case 11: GREENX= stc[0][1];
- GREENY= stc[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(11);
- break;
- case 12: GREENX= eco[0][1];
- GREENY= eco[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(12);
- break;
- case 13: GREENX= sts[0][1];
- GREENY= sts[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(13);
- break;
- case 14: GREENX= va[0][1];
- GREENY= va[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(14);
- break;
- case 15: GREENX= rrp[0][1];
- GREENY= rrp[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(15);
- break;
- case 16: GREENX= stj[0][1];
- GREENY= stj[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(16);
- break;
- case 17: GREENX= cc2[0][1];
- GREENY= cc2[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(17);
- break;
- case 18: GREENX= tn[0][1];
- GREENY= tn[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(18);
- break;
- case 19: GREENX= ny[0][1];
- GREENY= ny[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(19);
- break;
- case 20: GREENX= fp[0][1];
- GREENY= fp[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(20);
- break;
- case 21: GREENX= ky[0][1];
- GREENY= ky[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(21);
- break;
- case 22: GREENX= c2[0][1];
- GREENY= c2[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(22);
- break;
- case 23: GREENX= in[0][1];
- GREENY= in[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(23);
- break;
- case 24: GREENX= il[0][1];
- GREENY= il[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(24);
- break;
- case 25: GREENX= rrb[0][1];
- GREENY= rrb[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(25);
- break;
- case 26: GREENX= at[0][1];
- GREENY= at[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(26);
- break;
- case 27: GREENX= ven[0][1];
- GREENY= ven[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(27);
- break;
- case 28: GREENX= ww[0][1];
- GREENY= ww[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(28);
- break;
- case 29: GREENX= mar[0][1];
- GREENY= mar[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(29);
- break;
- case 30: GREENX= gtj[0][1];
- GREENY= gtj[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(30);
- sendtojail();
- break;
- case 31: GREENX= pac[0][1];
- GREENY= pac[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(31);
- break;
- case 32: GREENX= nc[0][1];
- GREENY= nc[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(32);
- break;
- case 33: GREENX= cc3[0][1];
- GREENY= cc3[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(33);
- break;
- case 34: GREENX= pen[0][1];
- GREENY= pen[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(34);
- break;
- case 35: GREENX= rrs[0][1];
- GREENY= rrs[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(35);
- break;
- case 36: GREENX= c3[0][1];
- GREENY= c3[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(36);
- break;
- case 37: GREENX= pp[0][1];
- GREENY= pp[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(37);
- break;
- case 38: GREENX= ptax[0][1];
- GREENY= ptax[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(38);
- break;
- case 39: GREENX= bw[0][1];
- GREENY= bw[1][1];
- WaitTOF();
- DrawGels();
- showpropinfo(39);
- break;
- }
- }
- if (nowrolling == 2)
- {
- switch (playerat[2])
- {
- case 0: BLUEX= go[0][2];
- BLUEY= go[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(0);
- break;
- case 1: BLUEX= med[0][2];
- BLUEY= med[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(1);
- break;
- case 2: BLUEX= cc1[0][2];
- BLUEY= cc1[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(2);
- break;
- case 3: BLUEX= bal[0][2];
- BLUEY= bal[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(3);
- break;
- case 4: BLUEX= itax[0][2];
- BLUEY= itax[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(4);
- break;
- case 5: BLUEX= rrr[0][2];
- BLUEY= rrr[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(5);
- break;
- case 6: BLUEX= or[0][2];
- BLUEY= or[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(6);
- break;
- case 7: BLUEX= c1[0][2];
- BLUEY= c1[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(7);
- break;
- case 8: BLUEX= ver[0][2];
- BLUEY= ver[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(8);
- break;
- case 9: BLUEX= con[0][2];
- BLUEY= con[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(9);
- break;
- case 10: BLUEX= vis[0][2];
- BLUEY= vis[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(10);
- break;
- case 11: BLUEX= stc[0][2];
- BLUEY= stc[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(11);
- break;
- case 12: BLUEX= eco[0][2];
- BLUEY= eco[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(12);
- break;
- case 13: BLUEX= sts[0][2];
- BLUEY= sts[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(13);
- break;
- case 14: BLUEX= va[0][2];
- BLUEY= va[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(14);
- break;
- case 15: BLUEX= rrp[0][2];
- BLUEY= rrp[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(15);
- break;
- case 16: BLUEX= stj[0][2];
- BLUEY= stj[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(16);
- break;
- case 17: BLUEX= cc2[0][2];
- BLUEY= cc2[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(17);
- break;
- case 18: BLUEX= tn[0][2];
- BLUEY= tn[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(18);
- break;
- case 19: BLUEX= ny[0][2];
- BLUEY= ny[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(19);
- break;
- case 20: BLUEX= fp[0][2];
- BLUEY= fp[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(20);
- break;
- case 21: BLUEX= ky[0][2];
- BLUEY= ky[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(21);
- break;
- case 22: BLUEX= c2[0][2];
- BLUEY= c2[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(22);
- break;
- case 23: BLUEX= in[0][2];
- BLUEY= in[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(23);
- break;
- case 24: BLUEX= il[0][2];
- BLUEY= il[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(24);
- break;
- case 25: BLUEX= rrb[0][2];
- BLUEY= rrb[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(25);
- break;
- case 26: BLUEX= at[0][2];
- BLUEY= at[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(26);
- break;
- case 27: BLUEX= ven[0][2];
- BLUEY= ven[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(27);
- break;
- case 28: BLUEX= ww[0][2];
- BLUEY= ww[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(28);
- break;
- case 29: BLUEX= mar[0][2];
- BLUEY= mar[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(29);
- break;
- case 30: BLUEX= gtj[0][2];
- BLUEY= gtj[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(30);
- sendtojail();
- break;
- case 31: BLUEX= pac[0][2];
- BLUEY= pac[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(31);
- break;
- case 32: BLUEX= nc[0][2];
- BLUEY= nc[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(32);
- break;
- case 33: BLUEX= cc3[0][2];
- BLUEY= cc3[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(33);
- break;
- case 34: BLUEX= pen[0][2];
- BLUEY= pen[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(34);
- break;
- case 35: BLUEX= rrs[0][2];
- BLUEY= rrs[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(35);
- break;
- case 36: BLUEX= c3[0][2];
- BLUEY= c3[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(36);
- break;
- case 37: BLUEX= pp[0][2];
- BLUEY= pp[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(37);
- break;
- case 38: BLUEX= ptax[0][2];
- BLUEY= ptax[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(38);
- break;
- case 39: BLUEX= bw[0][2];
- BLUEY= bw[1][2];
- WaitTOF();
- DrawGels();
- showpropinfo(39);
- break;
- }
- }
- if (nowrolling == 3)
- {
- switch (playerat[3])
- {
- case 0: YELLOWX= go[0][3];
- YELLOWY= go[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(0);
- break;
- case 1: YELLOWX= med[0][3];
- YELLOWY= med[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(1);
- break;
- case 2: YELLOWX= cc1[0][3];
- YELLOWY= cc1[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(2);
- break;
- case 3: YELLOWX= bal[0][3];
- YELLOWY= bal[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(3);
- break;
- case 4: YELLOWX= itax[0][3];
- YELLOWY= itax[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(4);
- break;
- case 5: YELLOWX= rrr[0][3];
- YELLOWY= rrr[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(5);
- break;
- case 6: YELLOWX= or[0][3];
- YELLOWY= or[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(6);
- break;
- case 7: YELLOWX= c1[0][3];
- YELLOWY= c1[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(7);
- break;
- case 8: YELLOWX= ver[0][3];
- YELLOWY= ver[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(8);
- break;
- case 9: YELLOWX= con[0][3];
- YELLOWY= con[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(9);
- break;
- case 10: YELLOWX= vis[0][3];
- YELLOWY= vis[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(10);
- break;
- case 11: YELLOWX= stc[0][3];
- YELLOWY= stc[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(11);
- break;
- case 12: YELLOWX= eco[0][3];
- YELLOWY= eco[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(12);
- break;
- case 13: YELLOWX= sts[0][3];
- YELLOWY= sts[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(13);
- break;
- case 14: YELLOWX= va[0][3];
- YELLOWY= va[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(14);
- break;
- case 15: YELLOWX= rrp[0][3];
- YELLOWY= rrp[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(15);
- break;
- case 16: YELLOWX= stj[0][3];
- YELLOWY= stj[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(16);
- break;
- case 17: YELLOWX= cc2[0][3];
- YELLOWY= cc2[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(17);
- break;
- case 18: YELLOWX= tn[0][3];
- YELLOWY= tn[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(18);
- break;
- case 19: YELLOWX= ny[0][3];
- YELLOWY= ny[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(19);
- break;
- case 20: YELLOWX= fp[0][3];
- YELLOWY= fp[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(20);
- break;
- case 21: YELLOWX= ky[0][3];
- YELLOWY= ky[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(21);
- break;
- case 22: YELLOWX= c2[0][3];
- YELLOWY= c2[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(22);
- break;
- case 23: YELLOWX= in[0][3];
- YELLOWY= in[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(23);
- break;
- case 24: YELLOWX= il[0][3];
- YELLOWY= il[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(24);
- break;
- case 25: YELLOWX= rrb[0][3];
- YELLOWY= rrb[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(25);
- break;
- case 26: YELLOWX= at[0][3];
- YELLOWY= at[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(26);
- break;
- case 27: YELLOWX= ven[0][3];
- YELLOWY= ven[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(27);
- break;
- case 28: YELLOWX= ww[0][3];
- YELLOWY= ww[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(28);
- break;
- case 29: YELLOWX= mar[0][3];
- YELLOWY= mar[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(29);
- break;
- case 30: YELLOWX= gtj[0][3];
- YELLOWY= gtj[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(30);
- sendtojail();
- break;
- case 31: YELLOWX= pac[0][3];
- YELLOWY= pac[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(31);
- break;
- case 32: YELLOWX= nc[0][3];
- YELLOWY= nc[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(32);
- break;
- case 33: YELLOWX= cc3[0][3];
- YELLOWY= cc3[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(33);
- break;
- case 34: YELLOWX= pen[0][3];
- YELLOWY= pen[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(34);
- break;
- case 35: YELLOWX= rrs[0][3];
- YELLOWY= rrs[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(35);
- break;
- case 36: YELLOWX= c3[0][3];
- YELLOWY= c3[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(36);
- break;
- case 37: YELLOWX= pp[0][3];
- YELLOWY= pp[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(37);
- break;
- case 38: YELLOWX= ptax[0][3];
- YELLOWY= ptax[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(38);
- break;
- case 39: YELLOWX= bw[0][3];
- YELLOWY= bw[1][3];
- WaitTOF();
- DrawGels();
- showpropinfo(39);
- break;
- }
- }
- }
-
- VOID endgame()
- {
- if (really(QUIT)) done=TRUE;
- }
-