DEADSOFTWARE

menu: improve menu drawing
[flatwaifu.git] / src / menu.c
index a934da7e6e0278ca9ce2de71a8e5b2fadef4f2d3..629f0c8d02f2b5129cbba7deff70efcb0d9c15ab 100644 (file)
 */
 
 #include "glob.h"
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
 #include "files.h"
 #include "memory.h"
 #include "error.h"
-#include "keyb.h"
 #include "sound.h"
 #include "view.h"
 #include "player.h"
 #include "switch.h"
 #include "menu.h"
 #include "misc.h"
+#include "render.h"
+#include "config.h"
+#include "game.h"
+#include "player.h"
+#include "sound.h"
+#include "music.h"
+#include "input.h"
+#include "system.h"
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <assert.h>
 
-#include <SDL.h>
-#include <sys/stat.h>
-extern SDL_Surface *screen;
+#define PCOLORN 10
+static byte pcolortab[PCOLORN] = {
+  0x18, 0x20, 0x40, 0x58, 0x60, 0x70, 0x80, 0xB0, 0xC0, 0xD0
+};
+static int p1color = 5;
+static int p2color = 4;
+
+byte _warp;
+
+#define MAX_STACK 8
+static struct {
+  int n;
+  const new_menu_t *m;
+} stack[MAX_STACK];
+static int stack_p = -1;
+
+#define GM_MAX_INPUT 24
+char ibuf[GM_MAX_INPUT];
+byte input;
+int icur;
+int imax;
+static byte cbuf[32];
+short lastkey;
 
 #define QSND_NUM 14
+static int qsnd[QSND_NUM];
+static snd_t *csnd1, *csnd2, *msnd1, *msnd2, *msnd3, *msnd4, *msnd5, *msnd6;
+static snd_t *voc;
+static int voc_ch;
+
+static void GM_stop (void) {
+  if (voc != NULL) {
+    if (voc_ch) {
+      S_stop(voc_ch);
+      voc_ch = 0;
+    }
+    S_free(voc);
+    voc = NULL;
+  }
+}
 
-enum{HIT100,ARMOR,JUMP,WPNS,IMMORTAL,SPEED,OPEN,EXIT};
-
-extern int PL_JUMP,PL_RUN;
-extern byte _warp,cheat,p_fly;
+static void GM_say (const char nm[8]) {
+  snd_t *snd = S_load(nm);
+  if (snd) {
+    GM_stop();
+    voc = S_load(nm);
+    voc_ch = S_play(voc, 0, 255);
+  }
+}
 
-extern char g_music[8];
+static int GM_init_int (new_msg_t *msg, int i, int a, int b, int s) {
+  assert(msg != NULL);
+  assert(a <= b);
+  assert(s >= 0);
+  msg->integer.i = min(max(i, a), b);
+  msg->integer.a = a;
+  msg->integer.b = b;
+  msg->integer.s = s;
+  return 1;
+}
 
-extern byte savname[7][24],savok[7];
-void load_game(int);
+static int GM_init_str (new_msg_t *msg, char *str, int maxlen) {
+  assert(msg != NULL);
+  assert(str != NULL);
+  assert(maxlen >= 0);
+  msg->string.s = str;
+  msg->string.maxlen = maxlen;
+  return 1;
+}
 
-static byte panim[]=
-  "BBDDAACCDDAABBDDAACCDDAABBDDAACCDDAAEEEEEFEFEFEFEFEFEFEFEFEFEEEEE";
-byte *panimp=panim;
+static int GM_newgame_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  assert(msg != NULL);
+  intptr_t i = (intptr_t)data;
+  switch (msg->type) {
+    case GM_ENTER:
+      GM_say("_NEWGAME");
+      return 1;
+    case GM_SELECT:
+      _2pl = 0;
+      g_dm = 0;
+      switch (i) {
+        case 0: GM_say("_1PLAYER"); break;
+        case 1: GM_say("_2PLAYER"); break;
+        case 2: GM_say("_DM"); break;
+        // GM_say("_COOP");
+      }
+      switch (i) {
+        case 2: // DEATHMATCH
+          g_dm = 1;
+        case 1: // COOPERATIVE
+          _2pl = 1;
+        case 0: // SINGLEPLAYER
+          g_map = _warp ? _warp : 1;
+          PL_reset();
+          pl1.color = pcolortab[p1color];
+          pl2.color = pcolortab[p2color];
+          G_start();
+          GM_popall();
+          return 1;
+      }
+      break;
+  }
+  return 0;
+}
 
-byte pcolortab[PCOLORN]={
-  0x18,0x20,0x40,0x58,0x60,0x70,0x80,0xB0,0xC0,0xD0
-};
-int p1color=5,p2color=4;
+static int GM_var_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  assert(msg != NULL);
+  if (data == &snd_vol) {
+    switch (msg->type) {
+      case GM_GETINT: return GM_init_int(msg, snd_vol, 0, 128, 8);
+      case GM_SETINT: S_volume(msg->integer.i); return 1;
+    }
+  } else if (data == &mus_vol) {
+    switch (msg->type) {
+      case GM_GETINT: return GM_init_int(msg, mus_vol, 0, 128, 8);
+      case GM_SETINT: S_volumemusic(msg->integer.i); return 1;
+    }
+  } else if (data == g_music) {
+    switch (msg->type) {
+      case GM_GETSTR:
+        return GM_init_str(msg, g_music, 8);
+      case GM_SELECT:
+        F_freemus();
+        F_nextmus(g_music);
+        F_loadmus(g_music);
+        S_startmusic(music_time * 2); // ???
+        return 1;
+    }
+  }
+  return 0;
+}
 
-char ibuf[24];
-byte input=0;
-static int icur;
+static int GM_load_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  assert(msg != NULL);
+  intptr_t i = (intptr_t)data;
+  switch (msg->type) {
+    case GM_ENTER:
+      F_getsavnames();
+      return 1;
+    case GM_GETSTR:
+      return GM_init_str(msg, (char*)savname[i], 24);
+    case GM_SELECT:
+      if (savok[i]) {
+        load_game(i);
+        GM_popall();
+        return 1;
+      }
+      break;
+  }
+  return 0;
+}
 
-enum{MENU,MSG};
-enum{CANCEL,NEWGAME,LOADGAME,SAVEGAME,OPTIONS,QUITGAME,QUIT,ENDGAME,ENDGM,
-  PLR1,PLR2,COOP,DM,VOLUME,GAMMA,LOAD,SAVE,PLCOLOR,PLCEND,MUSIC,INTERP,
-  SVOLM,SVOLP,MVOLM,MVOLP,GAMMAM,GAMMAP,PL1CM,PL1CP,PL2CM,PL2CP};
+static int GM_save_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  assert(msg != NULL);
+  intptr_t i = (intptr_t)data;
+  switch (msg->type) {
+    case GM_ENTER:
+      if (g_st == GS_GAME) {
+        F_getsavnames();
+      } else {
+        GM_pop();
+      }
+      return 1;
+    case GM_GETSTR:
+      F_getsavnames();
+      return GM_init_str(msg, (char*)savname[i], 24);
+    case GM_END:
+      if (g_st == GS_GAME) {
+        F_savegame(i, msg->string.s); // TODO check size
+        GM_popall();
+        return 1;
+      }
+      break;
+  }
+  return 0;
+}
 
-#ifndef DEMO
-static int qsnd[QSND_NUM];
-#endif
-
-static char *main_txt[]={
-  "NEW GAME","LOAD GAME","SAVE GAME","OPTIONS","EXIT"
-},*opt_txt[]={
-  "RESTART","VOLUME","BRIGHTNESS","MUSIC","FULLSCREEN:"
-},*ngplr_txt[]={
-  "ONE PLAYER","TWO PLAYERS"
-},*ngdm_txt[]={
-  "COOPERATIVE","DEATHMATCH"
-},*vol_txt[]={
-  "SOUND","MUSIC"
-},*plcolor_txt[]={
-  "FIRST","SECOND"
-},*gamma_txt[]={
-  ""
-};
+static int GM_exit_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  switch (msg->type) {
+    case GM_ENTER:
+      GM_say(rand() & 1 ? "_EXIT1" : "_EXIT2");
+      return 1;
+    case GM_SELECT:
+      if (data != NULL) {
+        F_freemus();
+        GM_stop();
+        Z_sound(S_get(qsnd[myrand(QSND_NUM)]), 255);
+        S_wait();
+        ERR_quit();
+      } else {
+        GM_pop();
+      }
+      return 1;
+  }
+  return 0;
+}
 
-static byte main_typ[]={
-  NEWGAME,LOADGAME,SAVEGAME,OPTIONS,QUITGAME
-},ngplr_typ[]={
-  PLR1,PLR2
-},ngdm_typ[]={
-  COOP,DM
-},opt_typ[]={
-  ENDGAME,VOLUME,GAMMA,MUSIC,INTERP
-},quit_typ[]={
-  QUIT,CANCEL
-},endgm_typ[]={
-  ENDGM,CANCEL
-},vol_typ[]={
-  SVOLM,MVOLM
-},plcolor_typ[]={
-  PL1CM,PL2CM
-},gamma_typ[]={
-  GAMMAM
-},load_typ[]={
-  LOAD,LOAD,LOAD,LOAD,LOAD,LOAD,LOAD
-},save_typ[]={
-  SAVE,SAVE,SAVE,SAVE,SAVE,SAVE,SAVE
+static const new_menu_t newgame_menu = {
+  GM_BIG, "New game", NULL, NULL,
+  {
+    { GM_BUTTON, "One player", (void*)0, &GM_newgame_handler, NULL },
+    { GM_BUTTON, "Two players", (void*)1, &GM_newgame_handler, NULL },
+    { GM_BUTTON, "Deathmatch", (void*)2, &GM_newgame_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, loadgame_menu = {
+  GM_BIG, "Load game", NULL, &GM_load_handler,
+  {
+    { GM_TEXTFIELD_BUTTON, "", (void*)0, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)1, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)2, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)3, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)4, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)5, &GM_load_handler, NULL },
+    { GM_TEXTFIELD_BUTTON, "", (void*)6, &GM_load_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, savegame_menu = {
+  GM_BIG, "Save game", NULL, &GM_save_handler,
+  {
+    { GM_TEXTFIELD, "", (void*)0, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)1, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)2, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)3, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)4, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)5, &GM_save_handler, NULL },
+    { GM_TEXTFIELD, "", (void*)6, &GM_save_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, sound_menu = {
+  GM_BIG, "Sound", NULL, NULL,
+  {
+    { GM_SCROLLER, "Volume", &snd_vol, &GM_var_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, music_menu = {
+  GM_BIG, "Music", NULL, NULL,
+  {
+    { GM_SCROLLER, "Volume", &mus_vol, &GM_var_handler, NULL },
+    { GM_BUTTON, "Music: ", g_music, &GM_var_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, options_menu = {
+  GM_BIG, "Options", NULL, NULL,
+  {
+    //{ GM_BUTTON, "Video", NULL, NULL, NULL },
+    { GM_BUTTON, "Sound", NULL, NULL, &sound_menu },
+    { GM_BUTTON, "Music", NULL, NULL, &music_menu },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, exit_menu = {
+  GM_SMALL, "You are sure?", NULL, &GM_exit_handler,
+  {
+    { GM_SMALL_BUTTON, "Yes", (void*)1, &GM_exit_handler, NULL },
+    { GM_SMALL_BUTTON, "No", (void*)0, &GM_exit_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+}, main_menu = {
+  GM_BIG, "Menu", NULL, NULL,
+  {
+    { GM_BUTTON, "New game", NULL, NULL, &newgame_menu },
+    { GM_BUTTON, "Load game", NULL, NULL, &loadgame_menu },
+    { GM_BUTTON, "Save game", NULL, NULL, &savegame_menu },
+    { GM_BUTTON, "Options", NULL, NULL, &options_menu },
+    { GM_BUTTON, "Exit", NULL, NULL, &exit_menu },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
 };
 
-menu_t main_mnu={
-  MENU,5,0,80,"MENU",main_txt,main_typ
-},opt_mnu={
-  MENU,5,0,75,"OPTIONS",opt_txt,opt_typ
-},ngplr_mnu={
-  MENU,2,0,90,"NEW GAME",ngplr_txt,ngplr_typ
-},ngdm_mnu={
-  MENU,2,0,90,"GAME TYPE",ngdm_txt,ngdm_typ
-},vol_mnu={
-  MENU,2,0,40,"VOLUME",vol_txt,vol_typ
-},plcolor_mnu={
-  MENU,2,0,90,"COLOR",plcolor_txt,plcolor_typ
-},gamma_mnu={
-  MENU,1,0,85,"BRIGHTNESS",gamma_txt,gamma_typ
-},load_mnu={
-  MENU,7,0,85,"LOAD GAME",NULL,load_typ
-},save_mnu={
-  MENU,7,0,85,"SAVE GAME",NULL,save_typ
-},quit1_msg={
-  MSG,0,0,0,"ARE YOU SURE?",NULL,quit_typ
-},quit2_msg={
-  MSG,0,0,0,"ARE YOU SURE?",NULL,quit_typ
-},quit3_msg={
-  MSG,0,0,0,"ARE YOU SURE?",NULL,quit_typ
-},endgm_msg={
-  MSG,0,0,0,"RESTART LEVEL?",NULL,endgm_typ
-};
+void GM_push (const new_menu_t *m) {
+  assert(m != NULL);
+  assert(stack_p >= -1);
+  assert(stack_p < MAX_STACK - 1);
+  new_msg_t msg;
+  stack_p += 1;
+  if (stack[stack_p].m != m) {
+    stack[stack_p].n = 0;
+    stack[stack_p].m = m;
+  }
+  msg.type = GM_ENTER;
+  GM_send_this(m, &msg);
+}
 
-static menu_t *qmsg[3]={&quit1_msg,&quit2_msg,&quit3_msg};
+void GM_pop (void) {
+  assert(stack_p >= 0);
+  new_msg_t msg;
+  stack_p -= 1;
+  msg.type = GM_LEAVE;
+  GM_send_this(stack[stack_p + 1].m, &msg);
+}
 
-menu_t *mnu=NULL;
-byte gm_redraw=0;
+void GM_popall (void) {
+  int i;
+  for (i = 0; i >= -1; i--) {
+    GM_pop();
+  }
+}
 
-short lastkey=0;
-static void *csnd1,*csnd2,*msnd1,*msnd2,*msnd3,*msnd4,*msnd5,*msnd6;
-static int movsndt=0;
-static byte cbuf[32];
+const new_menu_t *GM_get (void) {
+  if (stack_p >= 0) {
+    return stack[stack_p].m;
+  } else {
+    return NULL;
+  }
+}
 
-static snd_t *voc=NULL;
-static int voc_ch=0;
+int GM_geti (void) {
+  if (stack_p >= 0) {
+    return stack[stack_p].n;
+  } else {
+    return 0;
+  }
+}
 
-extern byte shot_vga; // config.c
+static void GM_normalize_message (new_msg_t *msg) {
+  switch (msg->type) {
+    case GM_SETINT:
+      msg->integer.i = min(max(msg->integer.i, msg->integer.a), msg->integer.b);
+      break;
+    case GM_SETSTR:
+      assert(msg->string.maxlen >= 0);
+      break;
+  }
+}
 
-void GMV_stop(void) {
-  if(voc) {
-    if(voc_ch) {S_stop(voc_ch);voc_ch=0;}
-    free(voc);voc=NULL;
+int GM_send_this (const new_menu_t *m, new_msg_t *msg) {
+  assert(m != NULL);
+  assert(msg != NULL);
+  if (m->handler != NULL) {
+    GM_normalize_message(msg);
+    return m->handler(msg, m, m->data);
   }
+  return 0;
 }
 
-void GMV_say(char *nm) {
-  int r,len;
-  snd_t *p;
-  byte *d;
-
-  if((r=F_findres(nm))==-1) return;
-  if(!(p=malloc((len=F_getreslen(r))+16))) return;
-  p->len=len;p->rate=11000;
-  p->lstart=p->llen=0;
-  GMV_stop();
-  F_loadres(r,p+1,0,len);
-  for(d=(byte*)(p+1);len;--len,++d) *d^=128;
-  voc=p;
-  voc_ch=S_play(voc,-1,1024,255);
+int GM_send (const new_menu_t *m, int i, new_msg_t *msg) {
+  assert(m != NULL);
+  assert(i >= 0);
+  assert(msg != NULL);
+  const new_var_t *v = &m->entries[i];
+  if (v->handler != NULL) {
+    GM_normalize_message(msg);
+    return v->handler(msg, m, v->data);
+  }
+  return 0;
 }
 
-void G_code(void) {
+void G_code (void) {
   void *s;
   s=csnd2;
   if(memcmp(cbuf+32-5,"IDDQD",5)==0) {
@@ -221,356 +433,169 @@ void G_code(void) {
   Z_sound(s,128);
 }
 
-void GM_set(menu_t *m) {
-  mnu=m;gm_redraw=1;
-  if(g_st==GS_GAME) {
-       //V_setrect(0,SCRW,0,SCRH);V_clr(0,SCRW,0,SCRH,0);//V_setrect(0,320,0,200);V_clr(0,320,0,200,0);
-       //if(_2pl) {V_setrect(SCRW-120,120,0,SCRH);w_o=0;Z_clrst();w_o=SCRH/2;Z_clrst();}//if(_2pl) {V_setrect(200,120,0,200);w_o=0;Z_clrst();w_o=100;Z_clrst();}
-       //else {V_setrect(SCRW-120,120,0,SCRH);w_o=0;Z_clrst();}//else {V_setrect(200,120,50,100);w_o=50;Z_clrst();}
-       //pl1.drawst=pl2.drawst=0xFF;V_setrect(0,SCRW,0,SCRH);//V_setrect(0,320,0,200);
+static int count_menu_entries (const new_menu_t *m) {
+  assert(m != NULL);
+  int i = 0;
+  while (m->entries[i].type != 0) {
+    i += 1;
   }
+  return i;
 }
 
-void setgamma(int);
-
-void GM_command(int c) {
-  switch(c) {
-    case CANCEL:
-      GM_set(NULL);break;
-    case INTERP:
-      R_toggle_fullscreen();
-      GM_set(mnu);
-      break;
-    case MUSIC:
-      F_freemus();
-      F_nextmus(g_music);
-      F_loadmus(g_music);
-      S_startmusic(music_time*2);
-      GM_set(mnu);
-      break;
-    case NEWGAME:
-      GMV_say("_NEWGAME");
-      GM_set(&ngplr_mnu);break;
-    case PLR2:
-      GMV_say("_2PLAYER");
-      GM_set(&ngdm_mnu);break;
-    case PLR1:
-      GMV_say("_1PLAYER");
-      ngdm_mnu.cur=0;
-    case COOP: case DM:
-      if(c==COOP) GMV_say("_COOP");
-      else if(c==DM) GMV_say("_DM");
-      if(c!=PLR1) {GM_set(&plcolor_mnu);break;}
-    case PLCEND:
-      _2pl=ngplr_mnu.cur;
-      g_dm=ngdm_mnu.cur;
-      g_map=(_warp)?_warp:1;
-      PL_reset();
-      if(_2pl) {
-        pl1.color=pcolortab[p1color];
-        pl2.color=pcolortab[p2color];
-      }else pl1.color=0x70;
-      G_start();
-      GM_set(NULL);break;
-    case OPTIONS:
-      GMV_say("_RAZNOE");
-      GM_set(&opt_mnu);break;
-    case LOADGAME:
-      GMV_say("_OLDGAME");
-      F_getsavnames();GM_set(&load_mnu);break;
-    case SAVEGAME:
-      if(g_st!=GS_GAME) break;
-      GMV_say("_SAVEGAM");
-      F_getsavnames();GM_set(&save_mnu);break;
-    case SAVE:
-         input=1;memcpy(ibuf,savname[save_mnu.cur],24);icur=strlen(ibuf);
-         GM_set(mnu);break;
-    case LOAD:
-         if(!savok[load_mnu.cur]) break;
-         load_game(load_mnu.cur);
-         GM_set(NULL);break;
-       case VOLUME:
-         GMV_say("_VOLUME");
-         GM_set(&vol_mnu);break;
-       case GAMMA:
-         GMV_say("_GAMMA");
-         GM_set(&gamma_mnu);break;
-       case QUITGAME:
-         GMV_say((rand()&1)?"_EXIT1":"_EXIT2");
-         GM_set(qmsg[myrand(3)]);break;
-       case ENDGAME:
-         if(g_st!=GS_GAME) break;
-         GMV_say("_RESTART");
-         GM_set(&endgm_msg);break;
-       case QUIT:
-         F_freemus();
-         GMV_stop();
-#ifndef DEMO
-         c=Z_sound(M_lock(qsnd[myrand(QSND_NUM)]),256);//for(c=(Z_sound(M_lock(qsnd[random2(QSND_NUM)]),256)+9)<<16,timer=0;timer<c;);
-          S_wait();
-#endif
-         ERR_quit();break;
-    case ENDGM:
-         PL_reset();G_start();
-         GM_set(NULL);break;
-       case PL1CM:
-         if(--p1color<0) p1color=PCOLORN-1; break;
-       case PL1CP:
-         if(++p1color>=PCOLORN) p1color=0; break;
-       case PL2CM:
-         if(--p2color<0) p2color=PCOLORN-1; break;
-       case PL2CP:
-         if(++p2color>=PCOLORN) p2color=0; break;
-       case SVOLM:
-         S_volume(snd_vol-8);break;
-       case SVOLP:
-         S_volume(snd_vol+8);break;
-       case MVOLM:
-         S_volumemusic(mus_vol-8);break;
-       case MVOLP:
-         S_volumemusic(mus_vol+8);break;
-       case GAMMAM:
-    R_setgamma(R_getgamma() - 1);
-    break;
-       case GAMMAP:
-    R_setgamma(R_getgamma() + 1);
-    break;
+static int strnlen (const char *s, int len) {
+  int i = 0;
+  while (i < len && s[i] != 0) {
+    i++;
   }
+  return i;
 }
 
-/*
-byte keychar[2][128]={{
-  0,0,'1','2','3','4','5','6','7','8','9','0','-','=',0,0,
-  'Q','W','E','R','T','Y','U','I','O','P','[',']','\r',0,'A','S',
-  'D','F','G','H','J','K','L',';','\'',0,0,'\\','Z','X','C','V',
-  'B','N','M',',','.','/',0,'*',0,' ',0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,'-',0,0,0,'+',0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
-},{
-  0,0,'!','\"','#','$','%',':','&','*','(',')','_','+',0,0,
-  'x','x','x','x','x','x','x','x','x','x','x','x','\r',0,'x','x',
-  'x','x','x','x','x','x','x','x','x',0,0,0,'x','x','x','x',
-  'x','x','x','x','x','?',0,'*',0,' ',0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,'-',0,0,0,'+',0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
-}};
-*/
-
-struct {
-    int keysym;
-    byte ch;
-} keychar[] = {
-    {SDLK_SPACE, ' '},
-    {SDLK_0, '0'},
-    {SDLK_1, '1'},
-    {SDLK_2, '2'},
-    {SDLK_3, '3'},
-    {SDLK_4, '4'},
-    {SDLK_5, '5'},
-    {SDLK_6, '6'},
-    {SDLK_7, '7'},
-    {SDLK_8, '8'},
-    {SDLK_9, '9'},
-    {SDLK_UNDERSCORE, '_'},
-    {SDLK_a, 'A'},
-    {SDLK_b, 'B'},
-    {SDLK_c, 'C'},
-    {SDLK_d, 'D'},
-    {SDLK_e, 'E'},
-    {SDLK_f, 'F'},
-    {SDLK_g, 'G'},
-    {SDLK_h, 'H'},
-    {SDLK_i, 'I'},
-    {SDLK_j, 'J'},
-    {SDLK_k, 'K'},
-    {SDLK_l, 'L'},
-    {SDLK_m, 'M'},
-    {SDLK_n, 'N'},
-    {SDLK_o, 'O'},
-    {SDLK_p, 'P'},
-    {SDLK_q, 'Q'},
-    {SDLK_r, 'R'},
-    {SDLK_s, 'S'},
-    {SDLK_t, 'T'},
-    {SDLK_u, 'U'},
-    {SDLK_v, 'V'},
-    {SDLK_w, 'W'},
-    {SDLK_x, 'X'},
-    {SDLK_y, 'Y'},
-    {SDLK_z, 'Z'},
-    {SDLK_COMMA,','},
-    {0}
-};
-
-byte get_keychar(int keysym)
-{
-    int i = 0;
-    while (keychar[i].keysym) {
-        if (keychar[i].keysym == keysym) return keychar[i].ch;
-        i++;
-    }
-    return 0;
+static int state_for_anykey (int x) {
+  return x == GS_TITLE || x == GS_ENDSCR;
 }
 
-static void shot(void) {
-  static int num=1;
-  char fn[100];//...
-#ifndef WIN32
-  char *e = getenv("HOME");
-  strncpy(fn, e, 60);
-  sprintf(&fn[strlen(fn)],"/.doom2d-rembo",num);
-  mkdir(fn, S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH);
-  sprintf(&fn[strlen(fn)],"/shot%04d.bmp",num);
-#else
-  sprintf(fn,"shot%04d.bmp",num);
-#endif
-  SDL_SaveBMP(screen, fn);
-  ++num;
+int GM_act (void) {
+  int n, cur;
+  new_msg_t msg;
+  const new_var_t *v;
+  const new_menu_t *m = GM_get ();
+  if (m == NULL) {
+    if (lastkey == KEY_ESCAPE || (state_for_anykey(g_st) && lastkey != KEY_UNKNOWN)) {
+      GM_push(&main_menu);
+      Z_sound(msnd3, 128);
+    }
+  } else {
+    n = count_menu_entries(m);
+    cur = stack[stack_p].n;
+    v = &m->entries[cur];
+    switch (lastkey) {
+      case KEY_ESCAPE:
+        if (v->type == GM_TEXTFIELD && input) {
+          input = 0;
+          Y_disable_text_input();
+          msg.type = GM_CANCEL;
+          GM_send(m, cur, &msg);
+        } else {
+          GM_pop();
+          Z_sound(msnd4, 128);
+        }
+        break;
+      case KEY_UP:
+        stack[stack_p].n = stack[stack_p].n - 1 < 0 ? n - 1 : stack[stack_p].n - 1;
+        Z_sound(msnd1, 128);
+        break;
+      case KEY_DOWN:
+        stack[stack_p].n = stack[stack_p].n + 1 >= n ? 0 : stack[stack_p].n + 1;
+        Z_sound(msnd1, 128);
+        break;
+      case KEY_LEFT:
+      case KEY_RIGHT:
+        if (v->type == GM_SCROLLER) {
+          msg.integer.type = GM_GETINT;
+          if (GM_send(m, cur, &msg)) {
+            msg.integer.type = GM_SETINT;
+            msg.integer.i += lastkey == KEY_LEFT ? -msg.integer.s : msg.integer.s;
+            msg.integer.i = min(max(msg.integer.i, msg.integer.a), msg.integer.b);
+            if (GM_send(m, cur, &msg)) {
+              Z_sound(lastkey == KEY_LEFT ? msnd5 : msnd6, 255);
+            }
+          }
+        } else if (v->type == GM_TEXTFIELD && input) {
+          //icur += lastkey == KEY_LEFT ? -1 : +1;
+          //icur = min(max(icur, 0), strnlen(ibuf, imax));
+        }
+        break;
+      case KEY_BACKSPACE:
+        if (v->type == GM_TEXTFIELD && input) {
+          if (icur > 0) {
+            // FIXIT buffers in strncpy must not overlap
+            strncpy(&ibuf[icur - 1], &ibuf[icur], imax - icur);
+            ibuf[imax - 1] = 0;
+            icur -= 1;
+          }
+        }
+        break;
+      case KEY_RETURN:
+        if (v->submenu != NULL) {
+          GM_push(v->submenu);
+          Z_sound(msnd2, 128);
+        } else if (v->type == GM_TEXTFIELD) {
+          if (input) {
+            input = 0;
+            Y_disable_text_input();
+            msg.type = GM_END;
+            msg.string.s = ibuf;
+            msg.string.maxlen = imax;
+            GM_send(m, cur, &msg);
+          } else {
+            msg.type = GM_GETSTR;
+            if (GM_send(m, cur, &msg)) {
+              imax = min(msg.string.maxlen, GM_MAX_INPUT);
+              strncpy(ibuf, msg.string.s, imax);
+              icur = strnlen(ibuf, imax);
+            }
+            input = 1;
+            Y_enable_text_input();
+            msg.type = GM_BEGIN;
+            GM_send(m, cur, &msg);
+          }
+        } else {
+          msg.type = GM_SELECT;
+          GM_send(m, cur, &msg);
+        }
+        break;
+    }
+  }
+  lastkey = KEY_UNKNOWN;
+  return m != NULL;
 }
 
-int GM_act(void) {
-  byte c;
-
-  if(mnu==&plcolor_mnu) {
-    if(*(++panimp)==0) panimp=panim;
-    GM_set(mnu);
-  }
-  if(movsndt>0) --movsndt; else movsndt=0;
-  if(g_st==GS_TITLE) if(!mnu) if(lastkey) {
-    GM_set(&main_mnu);Z_sound(msnd3,128);
-    lastkey=0;
-    return 1;
-  }
-  if(input) switch(lastkey) {
-    case SDLK_RETURN: case SDLK_KP_ENTER://case 0x1C: case 0x9C:
-      F_savegame(save_mnu.cur,ibuf);
-      input=0;GM_set(NULL);break;
-    case 1: input=0;GM_set(mnu);break;
-    case SDLK_BACKSPACE://case 0x0E:
-        if(icur) {ibuf[--icur]=0;GM_set(mnu);} break;
-    default:
-      if(icur>=23) break;
-      c=get_keychar(lastkey);//c=keychar[(keys[0x2A] || keys[0x36])?1:0][lastkey];
-      if(!c) break;
-      ibuf[icur]=c;ibuf[++icur]=0;GM_set(mnu);
-  }else {
-      switch(lastkey) {
-    case SDLK_ESCAPE://case 1:
-      if(!mnu) {GM_set(&main_mnu);Z_sound(msnd3,128);}
-      else {GM_set(NULL);Z_sound(msnd4,128);}
-      break;
-    case SDLK_F5:
-      if(mnu) break;
-      Z_sound(msnd3,128);
-      GMV_say("_GAMMA");
-      GM_set(&gamma_mnu);break;
-    case SDLK_F4://case 0x3E:
-      if(mnu) break;
-      Z_sound(msnd3,128);
-      GMV_say("_VOLUME");
-      GM_set(&vol_mnu);break;
-    case SDLK_F2://case 0x3C:
-      if(mnu) break;
-      if(g_st!=GS_GAME) break;
-      Z_sound(msnd3,128);
-      F_getsavnames();GM_set(&save_mnu);break;
-    case SDLK_F3://case 0x3D:
-      if(mnu) break;
-      Z_sound(msnd3,128);
-      F_getsavnames();GM_set(&load_mnu);break;
-    case SDLK_F10://case 0x44:
-      if(mnu) break;
-      Z_sound(msnd3,128);
-      GM_command(QUITGAME);break;
-    case SDLK_UP: case SDLK_KP8://case 0x48: case 0xC8:
-      if(!mnu) break;
-      if(mnu->type!=MENU) break;
-      if(--mnu->cur<0) mnu->cur=mnu->n-1;
-      GM_set(mnu);
-      Z_sound(msnd1,128);break;
-    case SDLK_DOWN: case SDLK_KP5: case SDLK_KP2://case 0x50: case 0xD0: case 0x4C:
-      if(!mnu) break;
-      if(mnu->type!=MENU) break;
-      if(++mnu->cur>=mnu->n) mnu->cur=0;
-      GM_set(mnu);
-      Z_sound(msnd1,128);break;
-    case SDLK_LEFT: case SDLK_RIGHT: case SDLK_KP4: case SDLK_KP6://case 0x4B: case 0x4D: case 0xCB: case 0xCD:
-         if(!mnu) break;
-         if(mnu->type!=MENU) break;
-         if(mnu->t[mnu->cur]<SVOLM) break;
-         GM_command(mnu->t[mnu->cur]+((lastkey==SDLK_LEFT || lastkey==SDLK_KP4)?0:1));//GM_command(mnu->t[mnu->cur]+((lastkey==0x4B || lastkey==0xCB)?0:1));
-         GM_set(mnu);
-         if(!movsndt) movsndt=Z_sound((lastkey==SDLK_LEFT || lastkey==SDLK_KP4)?msnd5:msnd6,255);//if(!movsndt) movsndt=Z_sound((lastkey==0x4B || lastkey==0xCB)?msnd5:msnd6,255);
-         break;
-    case SDLK_RETURN: case SDLK_SPACE: case SDLK_KP_ENTER://case 0x1C: case 0x39: case 0x9C:
-         if(!mnu) break;
-         if(mnu->type!=MENU) break;
-         if(mnu->t[mnu->cur]>=PL1CM) {
-           Z_sound(msnd2,128);
-           GM_command(PLCEND);
-           break;
-         }
-         if(mnu->t[mnu->cur]>=SVOLM) break;
-         Z_sound(msnd2,128);
-         GM_command(mnu->t[mnu->cur]);
-      break;
-    case SDLK_y://case 0x15:
-      if(!mnu) break;
-      if(mnu->type!=MSG) break;
-      Z_sound(msnd3,128);
-      GM_command(mnu->t[0]);
-      break;
-    case SDLK_n://case 0x31:
-      if(!mnu) break;
-      if(mnu->type!=MSG) break;
-      Z_sound(msnd4,128);
-      GM_command(mnu->t[1]);
-      break;
-    case SDLK_F1://case 0x3B:
-      if(shot_vga) {shot();Z_sound(msnd4,128);}
-      break;
-  }
+void GM_input (int ch) {
+  if (ch != 0 && input) {
+    if (icur < imax) {
+      ibuf[icur] = ch;
+      icur += 1;
+      if (icur < imax) {
+        ibuf[icur] = 0;
+      }
+    }
   }
-  lastkey=0;
-  return((mnu)?1:0);
 }
 
-void G_keyf(int k, int press) {
+void GM_key (int key, int down) {
   int i;
-
-  lastkey=k;
-  if(!_2pl || cheat) {
-    for(i=0;i<31;++i) cbuf[i]=cbuf[i+1];
-    cbuf[31]=get_keychar(k);
+  if (down) {
+    lastkey = key;
+    if (!_2pl || cheat) {
+      for (i = 0; i < 31; ++i) {
+        cbuf[i] = cbuf[i + 1];
+      }
+      //cbuf[31] = get_keychar(key);
+    }
   }
 }
 
-void GM_init(void) {
-#ifndef DEMO
+void GM_init (void) {
   int i;
-  static char nm[QSND_NUM][6]={
-       "CYBSIT","KNTDTH","MNPAIN","PEPAIN","SLOP","MANSIT","BOSPN","VILACT",
-       "PLFALL","BGACT","BGDTH2","POPAIN","SGTATK","VILDTH"
-  };
   char s[8];
-
-  s[0]='D';s[1]='S';
-  for(i=0;i<QSND_NUM;++i) {
-    memcpy(s+2,nm[i],6);
-    qsnd[i]=F_getresid(s);
+  static const char nm[QSND_NUM][6] = {
+    "CYBSIT", "KNTDTH", "MNPAIN", "PEPAIN", "SLOP", "MANSIT", "BOSPN", "VILACT",
+    "PLFALL", "BGACT", "BGDTH2", "POPAIN", "SGTATK", "VILDTH"
+  };
+  s[0] = 'D';
+  s[1] = 'S';
+  for (i = 0; i < QSND_NUM; ++i) {
+    memcpy(s + 2, nm[i], 6);
+    qsnd[i] = F_getresid(s);
   }
-#endif
-  csnd1=Z_getsnd("HAHA1");
-  csnd2=Z_getsnd("RADIO");
-  msnd1=Z_getsnd("PSTOP");
-  msnd2=Z_getsnd("PISTOL");
-  msnd3=Z_getsnd("SWTCHN");
-  msnd4=Z_getsnd("SWTCHX");
-  msnd5=Z_getsnd("SUDI");
-  msnd6=Z_getsnd("TUDI");
-  K_setkeyproc(G_keyf);
+  csnd1 = Z_getsnd("HAHA1");
+  csnd2 = Z_getsnd("RADIO");
+  msnd1 = Z_getsnd("PSTOP");
+  msnd2 = Z_getsnd("PISTOL");
+  msnd3 = Z_getsnd("SWTCHN");
+  msnd4 = Z_getsnd("SWTCHX");
+  msnd5 = Z_getsnd("SUDI");
+  msnd6 = Z_getsnd("TUDI");
+  F_loadmus("MENU");
+  S_startmusic(0);
 }