![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pacman.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jtools / src / demo / pacman|
Return to pacman.c CVS log | Up to [Research Unix] / researchv9 / jtools / src / demo / pacman |
1.1 ! root 1: /*----------------------------------------------------------------------*/ ! 2: /* */ ! 3: /* PACMAN for BBN BitGraphs */ ! 4: /* */ ! 5: /* File: pacman.c68 */ ! 6: /* Contents: Pacman control routines */ ! 7: /* Author: Bob Brown (rlb) */ ! 8: /* Purdue CS */ ! 9: /* Date: May, 1982 */ ! 10: /* Description: routines for initialization, movement, and */ ! 11: /* drawing. */ ! 12: /* */ ! 13: /*----------------------------------------------------------------------*/ ! 14: ! 15: #include "style.h" ! 16: #include "pacman.h" ! 17: ! 18: /* ! 19: ** Initialize the pacman ! 20: ** ! 21: ** pacnew - called a beginning of game. ! 22: ** pacinit - called at each board restart. ! 23: */ ! 24: ! 25: pacnew() ! 26: { ! 27: } ! 28: pacinit() ! 29: { ! 30: Pacman.dir = PACFACE; ! 31: Pacman.moving = FALSE; ! 32: Pacman.mouth = 0; ! 33: Pacman.font = FACECHAR; ! 34: Pacman.row = MZtoSC(PACROW); ! 35: Pacman.col = MZtoSC(PACCOL)-1; ! 36: Pacman.power = 0; ! 37: Pacman.alive = TRUE; ! 38: Pacman.adjusttime = 0; ! 39: paccomp(); ! 40: eladd(Pacman.time+STARTDELAY,pacmove); ! 41: } ! 42: /* ! 43: ** pacmove - move the pacman based on the description in ! 44: ** global Pacman - called by event-list manager. ! 45: ** ! 46: ** mouthfont is indexed by the direction the pacman is facing and ! 47: ** gives the font character to use for each mouth-step ! 48: */ ! 49: ! 50: char *mouthfont[] = { "abcdcb", "aefgfe", "ahijih", "aklmlk"}; ! 51: ! 52: int ! 53: pacmove() ! 54: { ! 55: ! 56: paccomp(); ! 57: if ( Pacman.moving ) { ! 58: /* ! 59: ** Check if next move is feasible ! 60: */ ! 61: if ( Pacman.pendcnt > 0 ) { ! 62: Pacman.pendcnt--; ! 63: if ( trymove(Pacman.pending) ) ! 64: Pacman.pendcnt = 0; ! 65: else ! 66: trymove(Pacman.dir); ! 67: } else ! 68: trymove(Pacman.dir); ! 69: } ! 70: /* ! 71: ** Now have a (potentially new) position ! 72: */ ! 73: if ( ++Pacman.mouth >= 6 ) Pacman.mouth = 0; ! 74: Pacman.font = mouthfont[Pacman.dir-1][Pacman.mouth]; ! 75: paccomp(); ! 76: /* ! 77: ** The routines that are called below rely on the maze coordinates ! 78: ** having already been computed. ! 79: */ ! 80: Pacman.mrow = SCtoMZ(Pacman.row+2); ! 81: Pacman.mcol = SCtoMZ(Pacman.col+2); ! 82: /* ! 83: ** Check for gobbling a dot ! 84: */ ! 85: if ( hasdot() ) { ! 86: Pacman.adjusttime = DOTDELAY; ! 87: Dotsrem--; ! 88: sounddot(); ! 89: addscore(VALGOLD); ! 90: } else ! 91: Pacman.adjusttime = 0; ! 92: /* ! 93: ** Check for swallowing a power pill, fruit, and in safe zone ! 94: */ ! 95: if ( haspill() ) ! 96: pacpower(NULL,ON); ! 97: if ( hasfruit() ) ! 98: hitfruit(); ! 99: Pacman.safe = issafe(); ! 100: /* ! 101: ** If powerful, detect collisions with monsters ! 102: */ ! 103: if ( Pacman.power > 0 ) { ! 104: register monster *mptr, *mptr2; ! 105: for ( mptr=Monster ; mptr < &Monster[MAXMONSTER] ; mptr++ ) { ! 106: if ( mptr->state==EDIBLE && collide(mptr) ) { ! 107: /* ! 108: ** Captured a monster... ! 109: */ ! 110: int crow, ccol; ! 111: addscore(Monvalue); ! 112: #ifdef V1_25 ! 113: settextop(INVERT|COMPL); ! 114: #endif ! 115: #if V1_76 | V2_0 ! 116: settextop(RASTSXD); ! 117: #endif ! 118: #ifdef BLIT ! 119: textmode = F_XOR; ! 120: #endif ! 121: crow = SCtoROW(mptr->row)+1; ! 122: ccol = SCtoCOL(min(mptr->col,Pacman.col))-6; ! 123: mvprintf(crow, ccol, "%4d",Monvalue); ! 124: if ( Silent ) ! 125: pause(750); ! 126: else ! 127: soundkill(); ! 128: mvprintf(crow, ccol, "%4d",Monvalue); ! 129: #ifdef V1_25 ! 130: settextop(REPLACE|COMPL); ! 131: #endif ! 132: #if V2_0 | V1_76 ! 133: settextop(RASTS); ! 134: #endif ! 135: #ifdef BLIT ! 136: textmode = F_STORE; ! 137: #endif ! 138: Monvalue *= 2; ! 139: mptr->state = DEAD; ! 140: monfont1(mptr,EYESCHAR); ! 141: mptr->movestate = HOMING; ! 142: for ( mptr2=Monster ; mptr2 < &Monster[MAXMONSTER]; mptr2++ ) ! 143: if ( mptr2->state == EDIBLE ) ! 144: mptr2->canreverse = TRUE; ! 145: } ! 146: } ! 147: } ! 148: eladd(Pacman.time+Pacman.adjusttime,pacmove); ! 149: } ! 150: paccomp() ! 151: { ! 152: blt40(Pacman.font,Pacman.row,Pacman.col,INVERT); ! 153: } ! 154: /* ! 155: ** pacpower - handle a transition in the Pacman's power ! 156: ** called from scheduler second & third time per pill. ! 157: ** ! 158: ** Parameters are set for 10 secs - 0.5 secs per wave, min 1 sec ! 159: */ ! 160: int ! 161: pacpower(junk,type) ! 162: char *junk; ! 163: int type; ! 164: { ! 165: register int powertime; ! 166: register monster *mptr; ! 167: powertime = max(POWERTIME-Wave*POWERDELTA,MINPOWERTIME); ! 168: switch ( type ) { ! 169: case ON: ! 170: /* soundpill(): */ ! 171: addscore(VALPILL); ! 172: Monvalue = VALMONSTER; ! 173: for ( mptr=Monster ; mptr<&Monster[MAXMONSTER] ; mptr++ ) { ! 174: mptr->canreverse = TRUE; ! 175: if ( mptr->state == DANGEROUS ) { ! 176: monfont1(mptr,GHOSTCHAR); ! 177: mptr->state = EDIBLE; ! 178: } ! 179: } ! 180: Pacman.power++; ! 181: eladd(3*powertime/4,pacpower,NULL,CLOSE); ! 182: break; ! 183: case CLOSE: ! 184: if ( Pacman.power == 1 ) { ! 185: for ( mptr=Monster ; mptr<&Monster[MAXMONSTER];mptr++ ) ! 186: if ( mptr->state == EDIBLE ) ! 187: monfont1(mptr,CLOSECHAR); ! 188: } ! 189: eladd(powertime/4,pacpower,NULL,OFF); ! 190: break; ! 191: case OFF: ! 192: if ( --Pacman.power <= 0 ) { ! 193: for ( mptr=Monster ; mptr<&Monster[MAXMONSTER];mptr++ ) { ! 194: if ( mptr->state == EDIBLE ) { ! 195: mptr->state = DANGEROUS; ! 196: monfont1(mptr,MONSTERCHAR[0]); ! 197: } ! 198: } ! 199: } ! 200: break; ! 201: } ! 202: } ! 203: /* ! 204: ** trymove - try to make a move ! 205: */ ! 206: trymove(newmove) ! 207: int newmove; ! 208: { ! 209: move try; ! 210: /* ! 211: ** If changing direction, row and col mod (FONTSIZE/BYTESIZE) must be 0 ! 212: */ ! 213: if ( ((newmove^Pacman.dir)&1) && !aligns(Pacman.row,Pacman.col)) { ! 214: return 0; ! 215: } ! 216: /* ! 217: ** Movement ok, compute next position ! 218: */ ! 219: onestep(Pacman.row, Pacman.col, newmove, &try); ! 220: if ( hitwall(try.row,try.col,newmove)) { ! 221: return 0; ! 222: } ! 223: Pacman.row = try.row; ! 224: Pacman.col = try.col; ! 225: Pacman.dir = newmove; ! 226: return 1; ! 227: } ! 228: /* ! 229: ** check if a screen coordinate hits a wall ! 230: */ ! 231: hitwall(row,col,dir) ! 232: { ! 233: bool wall; ! 234: if ( inslow(row,col) && (dir&1) ) ! 235: return(0); ! 236: wall = (Board[SCtoMZ(row+2)][SCtoMZ(col+2)] & TYPEMASK) <= WALLMAX; ! 237: return (wall || ((Board[SCtoMZ(row)][SCtoMZ(col)] & TYPEMASK) <= WALLMAX)); ! 238: } ! 239: hitdoor(row,col) ! 240: { ! 241: bool door; ! 242: door = (Board[SCtoMZ(row+2)][SCtoMZ(col+2)] & TYPEMASK) == DOOR; ! 243: return (door || ((Board[SCtoMZ(row)][SCtoMZ(col)] & TYPEMASK) == DOOR)); ! 244: } ! 245: hitblk(row,col) ! 246: { ! 247: int type; ! 248: bool blk; ! 249: type = (Board[SCtoMZ(row+2)][SCtoMZ(col+2)] & TYPEMASK); ! 250: blk = type == BLKDOT || type == BLKNODOT; ! 251: type = (Board[SCtoMZ(row)][SCtoMZ(col)] & TYPEMASK); ! 252: return (blk || (type == BLKDOT || type == BLKNODOT)); ! 253: } ! 254: inslow(row,col) ! 255: { ! 256: bool slow; ! 257: slow = (Board[SCtoMZ(row+2)][SCtoMZ(col+2)] & TYPEMASK) == SLOW; ! 258: return (slow || ((Board[SCtoMZ(row)][SCtoMZ(col)] & TYPEMASK) == SLOW)); ! 259: } ! 260: aligns(row,col) ! 261: { ! 262: int rowmod, colmod; ! 263: rowmod = row%(FONTSIZE/BYTESIZE); ! 264: colmod = col%(FONTSIZE/BYTESIZE); ! 265: return(rowmod==0 && colmod==0); ! 266: } ! 267: /* ! 268: ** Check of the pacman collided with a monster ! 269: */ ! 270: collide(mptr) ! 271: register monster *mptr; ! 272: { ! 273: return (iabs(mptr->row-Pacman.row)<3 && iabs(mptr->col-Pacman.col)<3 ); ! 274: } ! 275: /* ! 276: ** Check if the pacman has eaten a dot ! 277: */ ! 278: hasdot() ! 279: { ! 280: if (Board[Pacman.mrow][Pacman.mcol] & GOLD ) { ! 281: Board[Pacman.mrow][Pacman.mcol] &= ~GOLD; ! 282: blt24(GOLDCHAR,MZtoSC(Pacman.mrow),MZtoSC(Pacman.mcol),INVERT); ! 283: return TRUE; ! 284: } ! 285: return FALSE; ! 286: } ! 287: /* ! 288: ** Check if the pacman has eaten a pill ! 289: */ ! 290: haspill() ! 291: { ! 292: if (Board[Pacman.mrow][Pacman.mcol] & PILL ) { ! 293: Board[Pacman.mrow][Pacman.mcol] &= ~PILL; ! 294: blt24(PILLCHAR,MZtoSC(Pacman.mrow),MZtoSC(Pacman.mcol),INVERT); ! 295: return TRUE; ! 296: } ! 297: return FALSE; ! 298: } ! 299: /* ! 300: ** Check if the Pacman is in the safe corridor ! 301: */ ! 302: issafe() ! 303: { ! 304: return (Board[Pacman.mrow][Pacman.mcol]&TYPEMASK) == SAFE; ! 305: } ! 306: rempacface() ! 307: { ! 308: if (( Pacmen < MAXFACES ) && (Pacmen > 0)) ! 309: blt40(FACECHAR,MZtoSC(MAZEROWS+1),MZtoSC(Pacmen*2),INVERT); ! 310: } ! 311: /* ! 312: ** Handle the death of the pacman ! 313: */ ! 314: ! 315: char *pacdeath = "egstu"; /* font sequence */ ! 316: int pacdtop[] = {150,170,190,210,0}; ! 317: int pacdbot[] = {200,220,240,280,0}; ! 318: ! 319: pacdie() ! 320: { ! 321: int i; ! 322: Pacman.alive = FALSE; ! 323: soundoff(); ! 324: sleep(10); ! 325: moncomp(); ! 326: fruitcomp(); ! 327: elinit(); ! 328: for ( i=0 ; pacdeath[i]!='\0' ; i++ ) { ! 329: paccomp(); ! 330: Pacman.font = pacdeath[i]; ! 331: paccomp(); ! 332: #ifndef BLIT ! 333: rsetdead(); ! 334: #endif ! 335: if ( Silent ) ! 336: sleep(10); ! 337: else { ! 338: if ( pacdtop[i] ) { ! 339: tonegen(1,pacdtop[i],15-i*2); ! 340: psgsweep(0,pacdtop[i],pacdbot[i],10); ! 341: } else { ! 342: soundoff(); ! 343: sleep(10); ! 344: } ! 345: } ! 346: } ! 347: soundoff(); ! 348: paccomp(); ! 349: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.