ref: a88630d07570f7e9a30098817db9efe32307a776
dir: /mn.c/
#include <u.h> #include <libc.h> #include <thread.h> #include <keyboard.h> #include "dat.h" #include "fns.h" /* FIXME: non-trivial */ extern Channel *csc; typedef struct Score Score; typedef struct Seq Seq; typedef struct Item Item; typedef struct Menu Menu; struct Score{ char name[58]; int n; int lvl; int ep; }; static Score sc[] = { {"id software-'92", 10000, 1}, {"Adrian Carmack", 10000, 1}, {"John Carmack", 10000, 1}, {"Kevin Cloud", 10000, 1}, {"Tom Hall", 10000, 1}, {"John Romero", 10000, 1}, {"Jay Wilbur", 10000, 1}, }; enum{ Lload, Lintro, Ltitle, Lcreds, Lscore, Ldemo, Ldecay, Linctl, Lctl, Lcur, Lesc, Lback, Lwait, Lack, Lmscore, Lpants, Lquit, Ldie }; struct Seq{ int dt; void (*f)(void); }; struct Item{ char *s; int c; Menu *m; }; struct Menu{ void (*init)(void); Seq *qs; Seq *qe; Menu *m; Col *c; Item *is; Item *ie; Item *ip; int cx; int cy; int cur; }; static Menu *mp, ml[]; static Seq *mqp; static char *ends[] = { "Dost thou wish to\nleave with such hasty\nabandon?", "Chickening out...\nalready?", "Press N for more carnage.\nPress Y to be a weenie.", "So, you think you can\nquit this easily, huh?", "Press N to save the world.\nPress Y to abandon it in\nits hour of need.", "Press N if you are brave.\nPress Y to cower in shame.", "Heroes, press N.\nWimps, press Y.", "You are at an intersection.\nA sign says, 'Press Y to quit.'\n>", "For guns and glory, press N.\nFor work and worry, press Y.", "Heroes don't quit, but\ngo ahead and press Y\nif you aren't one.", "Press Y to quit,\nor press N to enjoy\nmore violent diversion.", "Depressing the Y key means\nyou must return to the\nhumdrum workday world.", "Hey, quit or play,\nY or N:\nit's your choice.", "Sure you don't want to\nwaste a few more\nproductive hours?", "I think you had better\nplay some more. Please\npress N...please?", "If you are tough, press N.\nIf not, press Y daintily.", "I'm thinkin' that\nyou might wanna press N\nto play more. You do it.", "Sure. Fine. Quit.\nSee if we care.\nGet it over with.\nPress Y." }; static char **quits; enum{ Dbg, Doff, Dbrd, Dbrd2, Dend }; static int mcol[Dend] = {[Dbg] 0x2d, 0}; static int tc; static void (*clear)(void); static void (*stripe)(int); static void wlclear(void) { put(0, 0, Vw, Vh, nil, 0x29); } static void sdclear(void) { pic(0, 0, Pbackdrop); } static void wlstripe(int y) { put(0, y, Vw, 24, nil, 0); put(0, y+22, 320, 1, nil, 0x2c); } static void sdstripe(int y) { put(0, y, Vw, 22, nil, 0); put(0, y+23, 320, 1, nil, 0); } static void outbox(int x, int y, int dx, int dy, int c1, int c2) { put(x, y, dx, 1, nil, c2); put(x, y, 1, dy, nil, c2); put(x, y+dy, dx+1, 1, nil, c1); put(x+dx, y, 1, dy, nil, c1); } static void box(int x, int y, int dx, int dy, int col, int out, int out2) { put(x+1, y+1, dx-1, dy-1, nil, col); outbox(x, y, dx, dy, out, out2); } static void fixedw(char *s) { char c; while(c = *s, c != 0) *s++ = c - '0' + 129; } static void reset(Menu *m) { Seq *q; q = m->qs; mqp = q; tc = 0; if(m != mp){ if(q->f != fadeout && mp != ml+Lpants) pal = pals[C0]; mp = m; if(m->init != nil) m->init(); if(m->c != nil) fadeop(m->c, q->dt); } } static void blink(void) { Menu *m; m = mp; if(m == ml+Lctl){ put(m->cx, m->cy, 24, 16, nil, mcol[Dbg]); pic(m->cx, m->cy, pict[Pcur1]+m->cur); }else if(m == ml+Lquit){ if(m->cur == 0) txt(m->cx, m->cy, "_", 0); else put(m->cx, m->cy, fnt->w['_'], fnt->h, nil, 0x17); } out(); m->cur ^= 1; } static void ask(void) { Rune r; if(nbrecv(csc, &r) <= 0) return; if(r == 'y'){ sfx(Sshoot); reset(ml+Ldie); } else if(r == 'n' || r == Kesc){ sfx(Sesc); reset(ml+Lctl); } } static void quit(void) { int x, y, w, h, curw; char *s, *nl; Menu *m; s = quits[nrand(nelem(ends)/2)]; h = txth(s); w = txtw(s); nl = strrchr(s, '\n'); curw = txtw(nl != nil ? nl+1 : s); w = w > curw+10 ? w : curw+10; y = 200/2 - h/2; x = 160 - w/2; m = mp; box(x-5, y-5, w+10, h+10, 0x17, 0, 0x13); txtnl(x, y, s, 0); m->cx = x+curw; m->cy = y + h - fnt->h; } static void ctl(void) { Menu *m; Item *i, *s, *e; clear(); pic(112, 184, pict[Pmouselback]); stripe(10); pic(80, 0, pict[Popt]); box(68, 52, 178, 6+13*9, mcol[Dbg], mcol[Dbrd2], mcol[Doff]); fnt = fnts+1; m = ml+Lctl; s = i = m->is; e = m->ie; do txt(100, 55+13*(i-s), i->s, i->c); while(++i < e); m->cur = 0; m->cx = 72; m->cy = 53+13*(m->ip-s); if(mp == m) mus(Mmenu); } static void cursfx(void) { sfx(Sdrawgun2); } static void movcur(Menu *m, Item *p, int dir) { Item *i; p->c = 0x17; i = p; do{ i += dir; if(i < m->is) i = m->ie-1; else if(i == m->ie) i = m->is; }while(i->c != 0x17); i->c = 0x13; m->ip = i; m->cur = 0; if(i != p+dir){ cursfx(); reset(ml+Lctl); ctl(); return; } put(m->cx, m->cy, 24, 16, nil, mcol[Dbg]); m->cy += dir * 6; blink(); sfx(Sdrawgun1); reset(ml+Lcur); } static void cwalk(void) { Rune r; Menu *m; Item *i; static int p; if(nbrecv(csc, &r) <= 0) return; m = mp; i = m->ip; switch(r){ case Kup: movcur(m, i, -1); break; case Kdown: movcur(m, i, 1); break; case Kesc: sfx(Sesc); reset(ml+Lquit); break; case 'i': p++; break; case 'd': if(ver == SOD && p == 1) reset(ml+Lpants); break; case '\n': m = i->m; if(m == nil) break; if(m != ml+Lquit && m != ml+Lesc) sfx(Sshoot); reset(m); } if(r != 'i') p = 0; } static void inctl(void) { Item *i; Menu *m; m = ml+Lctl; if(m->ip != nil) m->ip->c = 0x17; i = m->is; m->ip = i; i[0].c = 0x13; i[4].c = mcol[Doff]; grab(0); ctl(); } static void skip(void) { if(nbrecv(csc, nil) > 0) reset(ml+Ldecay); } static void ack(void) { if(nbrecv(csc, nil) > 0) reset(ml+Lback); } static void pants(void) { pic(0, 0, pict[Pid1]); pic(0, 80, pict[Pid2]); palpic(exts[Eid]); fadeop(mp->c, mp->qs->dt); mus(Mnazjazz); } static void demo(void) { step = dstep; } static void score(void) { int x, y; char a[16], b[16]; Score *s; clear(); stripe(10); pic(48, 0, pict[Pscores]); pic(32, 68, pict[Pname]); pic(160, 68, pict[Plvl]); pic(224, 68, pict[Phigh]); fnt = fnts; for(s=sc, y=76; s<sc+nelem(sc); s++, y+=16){ txt(32, y, s->name, 0xf); sprint(a, "%d", s->lvl); fixedw(a); x = 176 - txtw(a); if(ver < WL1){ sprint(b, "E%d/L", s->ep+1); x += txt(x-6, y, b, 0xf) - 6; } txt(x, y, a, 0xf); sprint(a, "%d", s->n); fixedw(a); txt(264 - txtw(a), y, a, 0xf); } if(mp == ml+Lmscore) mus(Mroster); } static void sdscore(void) { int y; char a[16]; Score *s; clear(); pic(0, 0, pict[Pscores]); fnt = fnts+1; for(s=sc, y=76; s<sc+nelem(sc); s++, y+=16){ txt(16, y, s->name, 0x13); if(s->lvl == 21) pic(176, y-1, pict[Pspear]); else{ sprint(a, "%d", s->lvl); txt(194 - txtw(a), y, a, 0xf); } sprint(a, "%d", s->n); txt(292 - txtw(a), y, a, 0xf); } if(mp == ml+Lmscore) mus(Maward); } static void creds(void) { pic(0, 0, pict[Pcreds]); } static void title(void) { pic(0, 0, pict[Ptitle1]); mus(Mintro); } static void sdtitle(void) { pic(0, 0, pict[Ptitle1]); pic(0, 80, pict[Ptitle2]); palpic(exts[Etitpal]); mus(Mtower); } static void intro(void) { fill(0x82); pic(216, 110, pict[Ppg13]); } static void die(void) { threadexitsall(nil); } static Item ictl[] = { {"New Game", 0x17}, {"Sound", 0x17}, {"Control", 0x17}, {"Load Game", 0x17}, {"Save Game", 0x17}, {"Change View", 0x17}, {"View Scores", 0x17, ml+Lmscore}, {"Back to Demo", 0x17, ml+Lesc}, {"Quit", 0x17, ml+Lquit} }; static Col fblk, fmenu = { 0xae, 0, 0 }; static Seq *mqp, introq[] = {{30, fadein}, {7*Tb, skip}, {30, fadeout}}, titleq[] = {{30, fadein}, {15*Tb, skip}, {30, fadeout}}, loopq[] = {{30, fadein}, {10*Tb, skip}, {30, fadeout}}, scoreq[] = {{30, fadein}, {10*Tb, skip}, {30, fadeout}}, demoq[] = {{1, nil}}, decq[] = {{30, fadeout}}, /* uses previous fadeop */ inctlq[] = {{10, fadein}}, ctlq[] = {{0, blink}, {70, cwalk}, {0, blink}, {8, cwalk}}, curq[] = {{8, nil}, {0, cursfx}}, escq[] = {{10, fadeout}}, backq[] = {{10, fadeout}, {0, ctl}, {10, fadein}}, waitq[] = {{1, skip}}, ackq[] = {{1, ack}}, mscoreq[] = {{10, fadeout}, {0, score}, {10, fadein}}, pantsq[] = {{30, fadeout}, {0, pants}, {30, fadein}}, quitq[] = {{0, blink}, {10, ask}}, dieq[] = {{10, fadeout}, {1, die}}; static Menu *mp, ml[] = { [Lload] {nil, decq, decq+nelem(decq), ml+Lintro, &fblk}, [Lintro] {intro, introq, introq+nelem(introq), ml+Ltitle, &fblk}, [Ltitle] {title, titleq, titleq+nelem(titleq), ml+Lcreds, &fblk}, [Lcreds] {creds, loopq, loopq+nelem(loopq), ml+Lscore, &fblk}, [Lscore] {score, loopq, loopq+nelem(loopq), ml+Ldemo, &fblk}, [Ldemo] {demo, demoq, demoq+nelem(demoq), ml+Ltitle, &fblk}, [Ldecay] {nil, decq, decq+nelem(decq), ml+Linctl}, [Linctl] {inctl, inctlq, inctlq+nelem(inctlq), ml+Lctl, &fblk}, [Lctl] {ctl, ctlq, ctlq+nelem(ctlq), ml+Lctl, nil, ictl, ictl+nelem(ictl)}, [Lcur] {nil, curq, curq+nelem(curq), ml+Lctl}, [Lesc] {nil, escq, escq+nelem(escq), ml+Ltitle, &fblk}, [Lback] {nil, backq, backq+nelem(backq), ml+Lctl, &fmenu}, [Lwait] {nil, waitq, waitq+nelem(waitq), ml+Lwait}, [Lack] {nil, ackq, ackq+nelem(ackq), ml+Lack}, [Lmscore] {nil, mscoreq, mscoreq+nelem(mscoreq), ml+Lack, &fmenu}, [Lpants] {nil, pantsq, pantsq+nelem(pantsq), ml+Lwait, &fblk}, [Lquit] {quit, quitq, quitq+nelem(quitq), ml+Lquit}, [Ldie] {nil, dieq, dieq+nelem(dieq), nil, &fmenu} }; void mstep(void) { Menu *m; Seq *q; rep: m = mp; q = mqp; tc++; if(q->f != nil) q->f(); if(tc >= q->dt){ if(++mqp == m->qe) reset(m->m); tc = 0; } if(q->dt == 0) goto rep; } void init(void) { clear = wlclear; stripe = wlstripe; quits = ends; if(ver >= SDM){ clear = sdclear; stripe = sdstripe; ml[Ltitle].init = sdtitle; ml[Lscore].init = sdscore; mscoreq[1].f = sdscore; fmenu = (Col){0, 0, 0xce}; mcol[Dbg] = 0x9d; quits += nelem(ends)/2; } mcol[Doff] = mcol[Dbg] ^ 6; mcol[Dbrd] = mcol[Dbg] ^ 4; mcol[Dbrd2] = mcol[Dbg] ^ 14; reset(ml+Lload); cson++; mus(ver<SDM ? Mintro : Mtower); }