src/menu.c

   1 /*
   2    Copyright (C) Prikol Software 1996-1997
   3    Copyright (C) Aleksey Volynskov 1996-1997
   4    Copyright (C) <ARembo@gmail.com> 2011
   5
   6    This file is part of the Doom2D:Rembo project.
   7
   8    Doom2D:Rembo is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License version 2 as
  10    published by the Free Software Foundation.
  11
  12    Doom2D:Rembo is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, see <http://www.gnu.org/licenses/> or
  19    write to the Free Software Foundation, Inc.,
  20    51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  21 */
  22
  23 #include "glob.h"
  24 #include "files.h"
  25 #include "memory.h"
  26 #include "error.h"
  27 #include "sound.h"
  28 #include "view.h"
  29 #include "player.h"
  30 #include "switch.h"
  31 #include "menu.h"
  32 #include "misc.h"
  33 #include "render.h"
  34 #include "config.h"
  35 #include "game.h"
  36 #include "player.h"
  37 #include "sound.h"
  38 #include "music.h"
  39 #include "input.h"
  40 #include "system.h"
  41
  42 #include <stdio.h>
  43 #include <string.h>
  44 #include <stdlib.h>
  45 #include <assert.h>
  46
  47 #define PCOLORN 10
  48 static byte pcolortab[PCOLORN] = {
  49   0x18, 0x20, 0x40, 0x58, 0x60, 0x70, 0x80, 0xB0, 0xC0, 0xD0
  50 };
  51 static int p1color = 5;
  52 static int p2color = 4;
  53
  54 byte _warp;
  55
  56 #define MAX_STACK 8
  57 static struct {
  58   int n;
  59   const new_menu_t *m;
  60 } stack[MAX_STACK];
  61 static int stack_p = -1;
  62
  63 #define GM_MAX_INPUT 24
  64 char ibuf[GM_MAX_INPUT];
  65 byte input;
  66 int icur;
  67 int imax;
  68 static byte cbuf[32];
  69 short lastkey;
  70
  71 #define QSND_NUM 14
  72 static int qsnd[QSND_NUM];
  73 static snd_t *csnd1, *csnd2, *msnd1, *msnd2, *msnd3, *msnd4, *msnd5, *msnd6;
  74 static snd_t *voc;
  75 static int voc_ch;
  76
  77 static void GM_stop (void) {
  78   if (voc != NULL) {
  79     if (voc_ch) {
  80       S_stop(voc_ch);
  81       voc_ch = 0;
  82     }
  83     S_free(voc);
  84     voc = NULL;
  85   }
  86 }
  87
  88 static void GM_say (const char nm[8]) {
  89   snd_t *snd = S_load(nm);
  90   if (snd) {
  91     GM_stop();
  92     voc = S_load(nm);
  93     voc_ch = S_play(voc, 0, 255);
  94   }
  95 }
  96
  97 static int GM_init_int (new_msg_t *msg, int i, int a, int b, int s) {
  98   assert(msg != NULL);
  99   assert(a <= b);
 100   assert(s >= 0);
 101   msg->integer.i = min(max(i, a), b);
 102   msg->integer.a = a;
 103   msg->integer.b = b;
 104   msg->integer.s = s;
 105   return 1;
 106 }
 107
 108 static int GM_init_str (new_msg_t *msg, char *str, int maxlen) {
 109   assert(msg != NULL);
 110   assert(str != NULL);
 111   assert(maxlen >= 0);
 112   msg->string.s = str;
 113   msg->string.maxlen = maxlen;
 114   return 1;
 115 }
 116
 117 static int GM_newgame_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
 118   assert(msg != NULL);
 119   intptr_t i = (intptr_t)data;
 120   switch (msg->type) {
 121     case GM_ENTER:
 122       GM_say("_NEWGAME");
 123       return 1;
 124     case GM_SELECT:
 125       _2pl = 0;
 126       g_dm = 0;
 127       switch (i) {
 128         case 0: GM_say("_1PLAYER"); break;
 129         case 1: GM_say("_2PLAYER"); break;
 130         case 2: GM_say("_DM"); break;
 131         // GM_say("_COOP");
 132       }
 133       switch (i) {
 134         case 2: // DEATHMATCH
 135           g_dm = 1;
 136         case 1: // COOPERATIVE
 137           _2pl = 1;
 138         case 0: // SINGLEPLAYER
 139           g_map = _warp ? _warp : 1;
 140           PL_reset();
 141           pl1.color = pcolortab[p1color];
 142           pl2.color = pcolortab[p2color];
 143           G_start();
 144           GM_popall();
 145           return 1;
 146       }
 147       break;
 148   }
 149   return 0;
 150 }
 151
 152 static int GM_var_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
 153   assert(msg != NULL);
 154   if (data == &snd_vol) {
 155     switch (msg->type) {
 156       case GM_GETINT: return GM_init_int(msg, snd_vol, 0, 128, 8);
 157       case GM_SETINT: S_volume(msg->integer.i); return 1;
 158     }
 159   } else if (data == &mus_vol) {
 160     switch (msg->type) {
 161       case GM_GETINT: return GM_init_int(msg, mus_vol, 0, 128, 8);
 162       case GM_SETINT: S_volumemusic(msg->integer.i); return 1;
 163     }
 164   } else if (data == g_music) {
 165     switch (msg->type) {
 166       case GM_GETSTR:
 167         return GM_init_str(msg, g_music, 8);
 168       case GM_SELECT:
 169         F_freemus();
 170         F_nextmus(g_music);
 171         F_loadmus(g_music);
 172         S_startmusic(music_time * 2); // ???
 173         return 1;
 174     }
 175   }
 176   return 0;
 177 }
 178
 179 static int GM_load_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
 180   assert(msg != NULL);
 181   intptr_t i = (intptr_t)data;
 182   switch (msg->type) {
 183     case GM_ENTER:
 184       F_getsavnames();
 185       return 1;
 186     case GM_GETSTR:
 187       return GM_init_str(msg, (char*)savname[i], 24);
 188     case GM_SELECT:
 189       if (savok[i]) {
 190         load_game(i);
 191         GM_popall();
 192         return 1;
 193       }
 194       break;
 195   }
 196   return 0;
 197 }
 198
 199 static int GM_save_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
 200   assert(msg != NULL);
 201   intptr_t i = (intptr_t)data;
 202   switch (msg->type) {
 203     case GM_ENTER:
 204       if (g_st == GS_GAME) {
 205         F_getsavnames();
 206       } else {
 207         GM_pop();
 208       }
 209       return 1;
 210     case GM_GETSTR:
 211       F_getsavnames();
 212       return GM_init_str(msg, (char*)savname[i], 24);
 213     case GM_END:
 214       if (g_st == GS_GAME) {
 215         F_savegame(i, msg->string.s); // TODO check size
 216         GM_popall();
 217         return 1;
 218       }
 219       break;
 220   }
 221   return 0;
 222 }
 223
 224 static int GM_exit_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
 225   switch (msg->type) {
 226     case GM_ENTER:
 227       GM_say(rand() & 1 ? "_EXIT1" : "_EXIT2");
 228       return 1;
 229     case GM_SELECT:
 230       if (data != NULL) {
 231         F_freemus();
 232         GM_stop();
 233         Z_sound(S_get(qsnd[myrand(QSND_NUM)]), 255);
 234         S_wait();
 235         ERR_quit();
 236       } else {
 237         GM_pop();
 238       }
 239       return 1;
 240   }
 241   return 0;
 242 }
 243
 244 static const new_menu_t newgame_menu = {
 245   GM_BIG, "New game", NULL, NULL,
 246   {
 247     { GM_BUTTON, "One player", (void*)0, &GM_newgame_handler, NULL },
 248     { GM_BUTTON, "Two players", (void*)1, &GM_newgame_handler, NULL },
 249     { GM_BUTTON, "Deathmatch", (void*)2, &GM_newgame_handler, NULL },
 250     { 0, NULL, NULL, NULL, NULL } // end
 251   }
 252 }, loadgame_menu = {
 253   GM_BIG, "Load game", NULL, &GM_load_handler,
 254   {
 255     { GM_TEXTFIELD_BUTTON, "", (void*)0, &GM_load_handler, NULL },
 256     { GM_TEXTFIELD_BUTTON, "", (void*)1, &GM_load_handler, NULL },
 257     { GM_TEXTFIELD_BUTTON, "", (void*)2, &GM_load_handler, NULL },
 258     { GM_TEXTFIELD_BUTTON, "", (void*)3, &GM_load_handler, NULL },
 259     { GM_TEXTFIELD_BUTTON, "", (void*)4, &GM_load_handler, NULL },
 260     { GM_TEXTFIELD_BUTTON, "", (void*)5, &GM_load_handler, NULL },
 261     { GM_TEXTFIELD_BUTTON, "", (void*)6, &GM_load_handler, NULL },
 262     { 0, NULL, NULL, NULL, NULL } // end
 263   }
 264 }, savegame_menu = {
 265   GM_BIG, "Save game", NULL, &GM_save_handler,
 266   {
 267     { GM_TEXTFIELD, "", (void*)0, &GM_save_handler, NULL },
 268     { GM_TEXTFIELD, "", (void*)1, &GM_save_handler, NULL },
 269     { GM_TEXTFIELD, "", (void*)2, &GM_save_handler, NULL },
 270     { GM_TEXTFIELD, "", (void*)3, &GM_save_handler, NULL },
 271     { GM_TEXTFIELD, "", (void*)4, &GM_save_handler, NULL },
 272     { GM_TEXTFIELD, "", (void*)5, &GM_save_handler, NULL },
 273     { GM_TEXTFIELD, "", (void*)6, &GM_save_handler, NULL },
 274     { 0, NULL, NULL, NULL, NULL } // end
 275   }
 276 }, sound_menu = {
 277   GM_BIG, "Sound", NULL, NULL,
 278   {
 279     { GM_SCROLLER, "Volume", &snd_vol, &GM_var_handler, NULL },
 280     { 0, NULL, NULL, NULL, NULL } // end
 281   }
 282 }, music_menu = {
 283   GM_BIG, "Music", NULL, NULL,
 284   {
 285     { GM_SCROLLER, "Volume", &mus_vol, &GM_var_handler, NULL },
 286     { GM_BUTTON, "Music: ", g_music, &GM_var_handler, NULL },
 287     { 0, NULL, NULL, NULL, NULL } // end
 288   }
 289 }, options_menu = {
 290   GM_BIG, "Options", NULL, NULL,
 291   {
 292     //{ GM_BUTTON, "Video", NULL, NULL, NULL },
 293     { GM_BUTTON, "Sound", NULL, NULL, &sound_menu },
 294     { GM_BUTTON, "Music", NULL, NULL, &music_menu },
 295     { 0, NULL, NULL, NULL, NULL } // end
 296   }
 297 }, exit_menu = {
 298   GM_SMALL, "You are sure?", NULL, &GM_exit_handler,
 299   {
 300     { GM_SMALL_BUTTON, "Yes", (void*)1, &GM_exit_handler, NULL },
 301     { GM_SMALL_BUTTON, "No", (void*)0, &GM_exit_handler, NULL },
 302     { 0, NULL, NULL, NULL, NULL } // end
 303   }
 304 }, main_menu = {
 305   GM_BIG, "Menu", NULL, NULL,
 306   {
 307     { GM_BUTTON, "New game", NULL, NULL, &newgame_menu },
 308     { GM_BUTTON, "Load game", NULL, NULL, &loadgame_menu },
 309     { GM_BUTTON, "Save game", NULL, NULL, &savegame_menu },
 310     { GM_BUTTON, "Options", NULL, NULL, &options_menu },
 311     { GM_BUTTON, "Exit", NULL, NULL, &exit_menu },
 312     { 0, NULL, NULL, NULL, NULL } // end
 313   }
 314 };
 315
 316 void GM_push (const new_menu_t *m) {
 317   assert(m != NULL);
 318   assert(stack_p >= -1);
 319   assert(stack_p < MAX_STACK - 1);
 320   new_msg_t msg;
 321   stack_p += 1;
 322   if (stack[stack_p].m != m) {
 323     stack[stack_p].n = 0;
 324     stack[stack_p].m = m;
 325   }
 326   msg.type = GM_ENTER;
 327   GM_send_this(m, &msg);
 328 }
 329
 330 void GM_pop (void) {
 331   assert(stack_p >= 0);
 332   new_msg_t msg;
 333   stack_p -= 1;
 334   msg.type = GM_LEAVE;
 335   GM_send_this(stack[stack_p + 1].m, &msg);
 336 }
 337
 338 void GM_popall (void) {
 339   int i;
 340   for (i = 0; i >= -1; i--) {
 341     GM_pop();
 342   }
 343 }
 344
 345 const new_menu_t *GM_get (void) {
 346   if (stack_p >= 0) {
 347     return stack[stack_p].m;
 348   } else {
 349     return NULL;
 350   }
 351 }
 352
 353 int GM_geti (void) {
 354   if (stack_p >= 0) {
 355     return stack[stack_p].n;
 356   } else {
 357     return 0;
 358   }
 359 }
 360
 361 static void GM_normalize_message (new_msg_t *msg) {
 362   switch (msg->type) {
 363     case GM_SETINT:
 364       msg->integer.i = min(max(msg->integer.i, msg->integer.a), msg->integer.b);
 365       break;
 366     case GM_SETSTR:
 367       assert(msg->string.maxlen >= 0);
 368       break;
 369   }
 370 }
 371
 372 int GM_send_this (const new_menu_t *m, new_msg_t *msg) {
 373   assert(m != NULL);
 374   assert(msg != NULL);
 375   if (m->handler != NULL) {
 376     GM_normalize_message(msg);
 377     return m->handler(msg, m, m->data);
 378   }
 379   return 0;
 380 }
 381
 382 int GM_send (const new_menu_t *m, int i, new_msg_t *msg) {
 383   assert(m != NULL);
 384   assert(i >= 0);
 385   assert(msg != NULL);
 386   const new_var_t *v = &m->entries[i];
 387   if (v->handler != NULL) {
 388     GM_normalize_message(msg);
 389     return v->handler(msg, m, v->data);
 390   }
 391   return 0;
 392 }
 393
 394 void G_code (void) {
 395   void *s;
 396   s=csnd2;
 397   if(memcmp(cbuf+32-5,"IDDQD",5)==0) {
 398     PL_hit(&pl1,400,0,HIT_SOME);
 399     if(_2pl) PL_hit(&pl2,400,0,HIT_SOME);
 400     s=csnd1;
 401   }else if(memcmp(cbuf+32-4,"TANK",4)==0) {
 402     pl1.life=pl1.armor=200;pl1.drawst|=PL_DRAWARMOR|PL_DRAWLIFE;
 403     if(_2pl) {pl2.life=pl2.armor=200;pl2.drawst|=PL_DRAWARMOR|PL_DRAWLIFE;}
 404   }else if(memcmp(cbuf+32-8,"BULLFROG",8)==0) {
 405     PL_JUMP=(PL_JUMP==10)?20:10;
 406   }else if(memcmp(cbuf+32-8,"FORMULA1",8)==0) {
 407     PL_RUN=(PL_RUN==8)?24:8;
 408   }else if(memcmp(cbuf+32-5,"RAMBO",5)==0) {
 409     pl1.ammo=pl1.shel=pl1.rock=pl1.cell=pl1.fuel=30000;
 410     pl1.wpns=0x7FF;pl1.drawst|=PL_DRAWWPN|PL_DRAWKEYS;
 411     pl1.keys=0x70;
 412     if(_2pl) {
 413       pl2.ammo=pl2.shel=pl2.rock=pl2.cell=pl1.fuel=30000;
 414       pl2.wpns=0x7FF;pl2.drawst|=PL_DRAWWPN|PL_DRAWKEYS;
 415       pl2.keys=0x70;
 416     }
 417   }else if(memcmp(cbuf+32-5,"UJHTW",5)==0) {
 418     p_immortal=!p_immortal;
 419   }else if(memcmp(cbuf+32-9,",TKSQJHTK",9)==0) {
 420     p_fly=!p_fly;
 421   }else if(memcmp(cbuf+32-6,"CBVCBV",6)==0) {
 422     SW_cheat_open();
 423   }else if(memcmp(cbuf+32-7,"GOODBYE",7)==0) {
 424     g_exit=1;
 425   }else if(memcmp(cbuf+32-9,"GJITKYF",7)==0) {
 426     if(cbuf[30]>='0' && cbuf[30]<='9' && cbuf[31]>='0' && cbuf[31]<='9') {
 427       g_map=(cbuf[30]=='0')?0:(cbuf[30]-'0')*10;
 428       g_map+=(cbuf[31]=='0')?0:(cbuf[31]-'0');
 429       G_start();
 430     }
 431   }else return;
 432   memset(cbuf,0,32);
 433   Z_sound(s,128);
 434 }
 435
 436 static int count_menu_entries (const new_menu_t *m) {
 437   assert(m != NULL);
 438   int i = 0;
 439   while (m->entries[i].type != 0) {
 440     i += 1;
 441   }
 442   return i;
 443 }
 444
 445 static int strnlen (const char *s, int len) {
 446   int i = 0;
 447   while (i < len && s[i] != 0) {
 448     i++;
 449   }
 450   return i;
 451 }
 452
 453 static int state_for_anykey (int x) {
 454   return x == GS_TITLE || x == GS_ENDSCR;
 455 }
 456
 457 int GM_act (void) {
 458   int n, cur;
 459   new_msg_t msg;
 460   const new_var_t *v;
 461   const new_menu_t *m = GM_get ();
 462   if (m == NULL) {
 463     if (lastkey == KEY_ESCAPE || (state_for_anykey(g_st) && lastkey != KEY_UNKNOWN)) {
 464       GM_push(&main_menu);
 465       Z_sound(msnd3, 128);
 466     }
 467   } else {
 468     n = count_menu_entries(m);
 469     cur = stack[stack_p].n;
 470     v = &m->entries[cur];
 471     switch (lastkey) {
 472       case KEY_ESCAPE:
 473         if (v->type == GM_TEXTFIELD && input) {
 474           input = 0;
 475           Y_disable_text_input();
 476           msg.type = GM_CANCEL;
 477           GM_send(m, cur, &msg);
 478         } else {
 479           GM_pop();
 480           Z_sound(msnd4, 128);
 481         }
 482         break;
 483       case KEY_UP:
 484         stack[stack_p].n = stack[stack_p].n - 1 < 0 ? n - 1 : stack[stack_p].n - 1;
 485         Z_sound(msnd1, 128);
 486         break;
 487       case KEY_DOWN:
 488         stack[stack_p].n = stack[stack_p].n + 1 >= n ? 0 : stack[stack_p].n + 1;
 489         Z_sound(msnd1, 128);
 490         break;
 491       case KEY_LEFT:
 492       case KEY_RIGHT:
 493         if (v->type == GM_SCROLLER) {
 494           msg.integer.type = GM_GETINT;
 495           if (GM_send(m, cur, &msg)) {
 496             msg.integer.type = GM_SETINT;
 497             msg.integer.i += lastkey == KEY_LEFT ? -msg.integer.s : msg.integer.s;
 498             msg.integer.i = min(max(msg.integer.i, msg.integer.a), msg.integer.b);
 499             if (GM_send(m, cur, &msg)) {
 500               Z_sound(lastkey == KEY_LEFT ? msnd5 : msnd6, 255);
 501             }
 502           }
 503         } else if (v->type == GM_TEXTFIELD && input) {
 504           //icur += lastkey == KEY_LEFT ? -1 : +1;
 505           //icur = min(max(icur, 0), strnlen(ibuf, imax));
 506         }
 507         break;
 508       case KEY_BACKSPACE:
 509         if (v->type == GM_TEXTFIELD && input) {
 510           if (icur > 0) {
 511             // FIXIT buffers in strncpy must not overlap
 512             strncpy(&ibuf[icur - 1], &ibuf[icur], imax - icur);
 513             ibuf[imax - 1] = 0;
 514             icur -= 1;
 515           }
 516         }
 517         break;
 518       case KEY_RETURN:
 519         if (v->submenu != NULL) {
 520           GM_push(v->submenu);
 521           Z_sound(msnd2, 128);
 522         } else if (v->type == GM_TEXTFIELD) {
 523           if (input) {
 524             input = 0;
 525             Y_disable_text_input();
 526             msg.type = GM_END;
 527             msg.string.s = ibuf;
 528             msg.string.maxlen = imax;
 529             GM_send(m, cur, &msg);
 530           } else {
 531             msg.type = GM_GETSTR;
 532             if (GM_send(m, cur, &msg)) {
 533               imax = min(msg.string.maxlen, GM_MAX_INPUT);
 534               strncpy(ibuf, msg.string.s, imax);
 535               icur = strnlen(ibuf, imax);
 536             }
 537             input = 1;
 538             Y_enable_text_input();
 539             msg.type = GM_BEGIN;
 540             GM_send(m, cur, &msg);
 541           }
 542         } else {
 543           msg.type = GM_SELECT;
 544           GM_send(m, cur, &msg);
 545         }
 546         break;
 547     }
 548   }
 549   lastkey = KEY_UNKNOWN;
 550   return m != NULL;
 551 }
 552
 553 void GM_input (int ch) {
 554   if (ch != 0 && input) {
 555     if (icur < imax) {
 556       ibuf[icur] = ch;
 557       icur += 1;
 558       if (icur < imax) {
 559         ibuf[icur] = 0;
 560       }
 561     }
 562   }
 563 }
 564
 565 void GM_key (int key, int down) {
 566   int i;
 567   if (down) {
 568     lastkey = key;
 569     if (!_2pl || cheat) {
 570       for (i = 0; i < 31; ++i) {
 571         cbuf[i] = cbuf[i + 1];
 572       }
 573       //cbuf[31] = get_keychar(key);
 574     }
 575   }
 576 }
 577
 578 void GM_init (void) {
 579   int i;
 580   char s[8];
 581   static const char nm[QSND_NUM][6] = {
 582     "CYBSIT", "KNTDTH", "MNPAIN", "PEPAIN", "SLOP", "MANSIT", "BOSPN", "VILACT",
 583     "PLFALL", "BGACT", "BGDTH2", "POPAIN", "SGTATK", "VILDTH"
 584   };
 585   s[0] = 'D';
 586   s[1] = 'S';
 587   for (i = 0; i < QSND_NUM; ++i) {
 588     memcpy(s + 2, nm[i], 6);
 589     qsnd[i] = F_getresid(s);
 590   }
 591   csnd1 = Z_getsnd("HAHA1");
 592   csnd2 = Z_getsnd("RADIO");
 593   msnd1 = Z_getsnd("PSTOP");
 594   msnd2 = Z_getsnd("PISTOL");
 595   msnd3 = Z_getsnd("SWTCHN");
 596   msnd4 = Z_getsnd("SWTCHX");
 597   msnd5 = Z_getsnd("SUDI");
 598   msnd6 = Z_getsnd("TUDI");
 599   F_loadmus("MENU");
 600   S_startmusic(0);
 601 }