Return to a.c CVS log

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

Annotation of researchv9/jtools/src/demo/asteroids/a.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: #include "event.h"
        !             3: #include "rock.h"
        !             4: #define        NSTART  4
        !             5: #define        MAXSTART 12
        !             6: int    kbdcheck(), quickcheck(), longcheck(), pause(), doscore();
        !             7: int    mouseset();
        !             8: int    death=1;
        !             9: int    randx;
        !            10: int    score;
        !            11: int    oldscore;
        !            12: int    notdrawn;       /* number of time ticks without moving rock */
        !            13: int    xflag;
        !            14: int    holdon;         /* don't do anything */
        !            15: extern int computer, screens;
        !            16: main(argc,argv)
        !            17: {
        !            18:        int nstart;
        !            19:        register short i;
        !            20:        extern long allocated;
        !            21:        request(KBD|MOUSE);
        !            22:        initdisplay(argc,argv);
        !            23:        randx = time(0);
        !            24:        holdon = 0;
        !            25: Loop:
        !            26:        rectf(&display, display.rect, F_OR);
        !            27:        if(death){
        !            28:                shipfree();
        !            29:                initship();
        !            30:                death=0;
        !            31:                nstart=NSTART;
        !            32:                score=0;
        !            33:        }else
        !            34:                drawship();
        !            35:        oldscore=score;
        !            36:        drawscore(score);
        !            37:        drawstats();
        !            38:        initrock(nstart);
        !            39:        if(nstart<MAXSTART)
        !            40:                nstart+=2;
        !            41:        initevent();
        !            42:        initexplosion();
        !            43:        initbomb();
        !            44:        /* The times between these events are tunable and somewhat arbitrary */
        !            45:        addevent(newevent(), 32, kbdcheck, EKEYBOARD);  /* 32==NROCK, but that's not important */
        !            46:        addevent(newevent(), 7, quickcheck, EMOUSE);
        !            47:        addevent(newevent(), 31, longcheck, EMOUSE);
        !            48:        addevent(newevent(), 10, pause, EPAUSE);
        !            49:        addevent(newevent(), 500, doscore, ESCORE);
        !            50:        addevent(newevent(), 1000, mouseset, EMOUSE);
        !            51:        while(!death && allocated){
        !            52:                moverock();
        !            53:                tick();
        !            54:                while(holdon) kbdcheck(), wait(CPU);
        !            55:        }
        !            56:        for(i=0; i<1000; i++){
        !            57:                moverock();
        !            58:                tick();
        !            59:                while(holdon) kbdcheck(), wait(CPU);
        !            60:        }
        !            61:        exfree();
        !            62:        rockfree();
        !            63:        if(death){
        !            64:                while(button123()==0)
        !            65:                        wait(MOUSE);
        !            66:        }
        !            67:        goto Loop;
        !            68: }
        !            69: mouseset(){
        !            70:        if(ptinrect(mouse.xy, Drect))
        !            71:                cursset(transform(Pt(Drect.corner.x/2, 3*Drect.corner.y/4)));
        !            72:        return 1;
        !            73: }
        !            74: quit()
        !            75: {
        !            76:        exfree();
        !            77:        rockfree();
        !            78:        shipfree();
        !            79:        exit();
        !            80: }
        !            81: char status[] = "   ";
        !            82: kbdcheck()
        !            83: {      int c;
        !            84:        if((c = kbdchar())=='q')
        !            85:                quit();
        !            86:        else if(c == 'c')
        !            87:                computer++;
        !            88:        else if(c == 'r')
        !            89:                screens = computer = 0;
        !            90:        else if(c == 's')
        !            91:                screens = 1;
        !            92:        else if(c == 'p')
        !            93:                holdon = 1-holdon;
        !            94:        else
        !            95:                return(1);
        !            96:        drawstats();
        !            97:        status[0] = (computer? 'C': ' ');
        !            98:        status[1] = (screens? 'S': ' ');
        !            99:        status[2] = (holdon? 'P': ' ');
        !           100:        drawstats();
        !           101:        return 1;
        !           102: }
        !           103: drawstats()
        !           104: {
        !           105:        /*jmoveto(Pt(400,5));
        !           106:        jstring(status);*/
        !           107:        string(&defont, status, &display, transform(Pt(400,5)), F_XOR);
        !           108: }
        !           109: /* Number of rocks that can be moved in a clock tick, roughly */
        !           110: #define        ROCKSPERTICK    4
        !           111: pause()
        !           112: {
        !           113:        if(notdrawn>ROCKSPERTICK){
        !           114:                sleep(notdrawn/ROCKSPERTICK);
        !           115:                notdrawn%=ROCKSPERTICK;
        !           116:        }else
        !           117:                wait(CPU);
        !           118:        return 1;
        !           119: }
        !           120: allover(p)
        !           121:        Point p;
        !           122: {
        !           123:        register i;
        !           124:        explode(p);
        !           125:        drawship();     /* remove ship from screen */
        !           126:        death=1;
        !           127: }
        !           128: rnd(x)
        !           129: {
        !           130:        register i;
        !           131:        return rand()%x;
        !           132: }
        !           133: drawscore(sc)
        !           134: {
        !           135:        static char str[]="000000 Points";
        !           136:        register char *p;
        !           137:        register long s;
        !           138:        s=sc;
        !           139:        p= &str[6];
        !           140:        do
        !           141:                *--p=s%10+'0';
        !           142:        while(s/=10);
        !           143:        /*jmoveto(Pt(20, 5));
        !           144:        jstring(p);*/
        !           145:        string(&defont, p, &display, transform(Pt(20,5)), F_XOR);
        !           146: }
        !           147: doscore()
        !           148: {
        !           149:        drawscore(oldscore);
        !           150:        drawscore(oldscore=score);
        !           151:        return 1;
        !           152: }

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