Return to fruit.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / demo / pacman

Annotation of researchv9/jtools/src/demo/pacman/fruit.c, revision 1.1

1.1     ! root        1: /*----------------------------------------------------------------------*/
        !             2: /*                                                                     */
        !             3: /*     PACMAN for BBN BitGraphs                                        */
        !             4: /*                                                                     */
        !             5: /*               File: fruit.c68                                       */
        !             6: /*           Contents: fruit handling routines                         */
        !             7: /*             Author: Bob Brown (rlb)                                 */
        !             8: /*                     Purdue CS                                       */
        !             9: /*               Date: May, 1982                                       */
        !            10: /*        Description: Fruits are put up for grabs at most twice per   */
        !            11: /*                     wave (hence stalling buys nothing).  They are   */
        !            12: /*                     scheduled to go off at a random time when the   */
        !            13: /*                     wave is started.                                */
        !            14: /*                                                                     */
        !            15: /*----------------------------------------------------------------------*/
        !            16: 
        !            17: #include "style.h"
        !            18: #include "pacman.h"
        !            19: 
        !            20: /*
        !            21: ** Scheduling:
        !            22: **     At the beginning of a wave or round, fruitinit is called to schedule
        !            23: **     the appearance of a fruit.  A typical wave lasts 80-90 scheduling
        !            24: **     seconds, hence the first fruit always appears sometime in the first
        !            25: **     half of the wave.
        !            26: **     Once "alive", the death of the fruit is scheduled.  If the pacman
        !            27: **     gets to the fruit first, the death routine does nothing when the
        !            28: **     time elapses except schedule a new fruit.
        !            29: */
        !            30: 
        !            31: fruitinit(reset)
        !            32: bool reset;
        !            33: {
        !            34:        int fruiton();
        !            35:        Fruit.alive = FALSE;
        !            36:        Fruit.row = MZtoSC(FRUITROW);
        !            37:        Fruit.col = MZtoSC(FRUITCOL);
        !            38:        if ( reset )
        !            39:                Fruit.thiswave = FRUITSPERWAVE;
        !            40:        eladd(grand(MINFRUITDELAY,MAXFRUITDELAY),fruiton,NULL,0);
        !            41: }
        !            42: 
        !            43: fruitcomp()
        !            44: {
        !            45:        if ( Fruit.alive )
        !            46:                blt40(Fruit.font,Fruit.row,Fruit.col,INVERT);
        !            47: }
        !            48: 
        !            49: /*
        !            50: ** fruiton - turn on the fruit, start timer to turn it off
        !            51: */
        !            52: int
        !            53: fruiton()
        !            54: {
        !            55:        int fruitoff();
        !            56:        Fruit.alive = TRUE;
        !            57:        Fruit.thiswave--;
        !            58:        Fruit.value = (Wave+1)/2 * VALFRUIT;
        !            59:        Fruit.font = FRUITCHAR /* + max(Wave/2,MAXFRUITFONT) */ ;
        !            60:        fruitcomp();
        !            61:        eladd(FRUITTIME,fruitoff,NULL,0);
        !            62: }
        !            63: int
        !            64: fruitoff()
        !            65: {
        !            66:        int fruiton();
        !            67:        if ( Fruit.alive ) {
        !            68:                fruitcomp();
        !            69:                Fruit.alive = FALSE;
        !            70:        }
        !            71:        if ( Fruit.thiswave > 0 )
        !            72:                eladd(grand(MINFRUITDELAY,MAXFRUITDELAY),fruiton,NULL,0);
        !            73: 
        !            74: }
        !            75: hasfruit()
        !            76: {
        !            77:        if ( Fruit.alive )
        !            78:                return (iabs(Fruit.row-Pacman.row)<3 && iabs(Fruit.col-Pacman.col)<3 );
        !            79:        return FALSE;
        !            80: }
        !            81: hitfruit()
        !            82: {
        !            83:        int crow, ccol;
        !            84:        addscore(Fruit.value);
        !            85: #ifdef V1_25
        !            86:        settextop(INVERT|COMPL);
        !            87: #endif
        !            88: #if V1_76 | V2_0
        !            89:        settextop(RASTSXD);
        !            90: #endif
        !            91: #ifdef BLIT
        !            92:        textmode = F_XOR;
        !            93: #endif
        !            94:        crow = SCtoROW(Fruit.row)+1;
        !            95:        ccol = SCtoCOL(Fruit.col)-6;
        !            96:        mvprintf(crow, ccol, "%4d",Fruit.value);
        !            97: #ifdef BLIT
        !            98:        sleep(12);
        !            99: #else
        !           100:        sleep(750);
        !           101: #endif
        !           102:        mvprintf(crow, ccol, "%4d",Fruit.value);
        !           103: #ifdef V1_25
        !           104:        settextop(REPLACE|COMPL);
        !           105: #endif
        !           106: #if V2_0 | V1_76
        !           107:        settextop(RASTS);
        !           108: #endif
        !           109: #ifdef BLIT
        !           110:        textmode = F_STORE;
        !           111: #endif
        !           112:        fruitcomp();
        !           113:        Fruit.alive = FALSE;
        !           114: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.