rnd-20040814-1-src
[rocksndiamonds.git] / src / libem / input.c
diff --git a/src/libem/input.c b/src/libem/input.c
new file mode 100644 (file)
index 0000000..7c6437c
--- /dev/null
@@ -0,0 +1,320 @@
+/* 2000-08-13T15:29:40Z
+ *
+ * handle input from x11 and keyboard and joystick
+ */
+
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#include <X11/Xatom.h>
+#include <X11/keysym.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include "global.h"
+#include "display.h"
+#include "level.h"
+
+unsigned long Random;
+
+struct PLAYER ply1;
+struct PLAYER ply2;
+struct LEVEL lev;
+
+unsigned short **Boom;
+unsigned short **Cave;
+unsigned short **Next;
+unsigned short **Draw;
+
+static unsigned short *Index[4][HEIGHT];
+static unsigned short Array[4][HEIGHT][WIDTH];
+
+static int input_die;
+static int input_pause;
+static int input_refresh;
+static int input_esc;
+
+static struct timeval tv1;
+static struct timeval tv2;
+
+static unsigned char keymatrix[32];
+
+static int player_mode;
+static char player_name[32];
+static int player_level;
+
+static void drawmenu(int pos)
+{
+       char buffer[256];
+       switch(pos) {
+       case 0:
+               switch(player_mode) {
+               case 0: strcpy(buffer, "quit emerald mine"); break;
+               case 1: strcpy(buffer, "single player"); break;
+               case 2: strcpy(buffer, "teamwork"); break;
+               }
+               title_string(4, 0, 40, buffer);
+               break;
+       case 1:
+               sprintf(buffer, "name: %s", player_name);
+               title_string(5, 0, 40, buffer);
+               break;
+       case 2:
+               sprintf(buffer, "level: %d", player_level);
+               title_string(6, 0, 40, buffer);
+               break;
+       case 3:
+               title_string(7, 0, 40, "highscores");
+               break;
+       case 4:
+               title_string(8, 0, 40, "start");
+               break;
+       case 5:
+               title_string(10, 1, 13, "played");
+               title_string(10, 14, 26, "score");
+               title_string(10, 27, 39, "won");
+               break;
+       case 6:
+               sprintf(buffer, "%d", 0);
+               title_string(11, 1, 13, buffer);
+               sprintf(buffer, "%d", 0);
+               title_string(11, 14, 26, buffer);
+               sprintf(buffer, "%d", 0);
+               title_string(11, 27, 39, buffer);
+               break;
+       }
+}
+
+/* bring it all together */
+int game_start(void)
+{
+       int x,y;
+       char name[MAXNAME+2];
+       int temp;
+       int pos;
+
+       Random = 1684108901;
+
+       for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Array[0][y][x] = ZBORDER;
+       for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Array[1][y][x] = ZBORDER;
+       for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Array[2][y][x] = ZBORDER;
+       for(y = 0; y < HEIGHT; y++) for(x = 0; x < WIDTH; x++) Array[3][y][x] = Xblank;
+
+       for(y = 0; y < HEIGHT; y++) Index[0][y] = Array[0][y];
+       for(y = 0; y < HEIGHT; y++) Index[1][y] = Array[1][y];
+       for(y = 0; y < HEIGHT; y++) Index[2][y] = Array[2][y];
+       for(y = 0; y < HEIGHT; y++) Index[3][y] = Array[3][y];
+
+       Cave = Index[0];
+       Next = Index[1];
+       Draw = Index[2];
+       Boom = Index[3];
+
+       player_mode = 1; /* start off as single player */
+       strcpy(player_name, "dave");
+       player_level = 0;
+
+       input_pause = 1;
+
+       for(;;) {
+
+               pos = 4;
+
+               title_initscreen();
+
+               for(temp = 0; temp < 7; temp++) drawmenu(temp); /* display all lines */
+               title_blitants(4 + pos);
+
+               title_blitscore();
+               title_animscreen();
+
+#if 0
+               printf("--> M1: xwindow == %ld\n", xwindow);
+#endif
+
+               temp = 1;
+               for(;;) {
+                       input_eventloop();
+                       if(input_die) return(0);
+                       if(input_refresh) blitscreen();
+
+#if 0
+                       printf("--> M2: xwindow == %ld\n", xwindow);
+#endif
+
+                       if(!input_pause) {
+                               title_blitants(4 + pos);
+                               title_blitscore();
+                               title_animscreen();
+
+#if 0
+                               printf("--> M3: xwindow == %ld\n", xwindow);
+#endif
+
+                               ply1.joy_n = ply1.joy_e = ply1.joy_s = ply1.joy_w = 0;
+
+                               readjoy();
+
+                               if(temp == 0) {
+                                       if(ply1.joy_fire) break;
+
+                                       if(ply1.joy_e && player_level < 99) {
+                                               player_level++;
+                                               drawmenu(2);
+                                       }
+                                       if(ply1.joy_w && player_level > 0) {
+                                               player_level--;
+                                               drawmenu(2);
+                                       }
+                                       if(ply1.joy_n && pos > 0) {
+                                               drawmenu(pos);
+                                               pos--;
+                                               title_blitants(4 + pos);
+                                       }
+                                       if(ply1.joy_s && pos < 4) {
+                                               drawmenu(pos);
+                                               pos++;
+                                               title_blitants(4 + pos);
+                                       }
+                               }
+                               temp = (ply1.joy_n || ply1.joy_e || ply1.joy_s || ply1.joy_w || ply1.joy_fire);
+                       }
+               }
+
+#if 0
+               printf("--> M4: xwindow == %ld\n", xwindow);
+#endif
+
+               name[MAXNAME] = 0;
+               snprintf(name, MAXNAME+2, "%s/lev%02d", EM_LVL_DIR, player_level);
+               if(name[MAXNAME]) snprintf_overflow("read a level in cave/");
+
+               if(cave_convert(name)) continue;
+
+#if 0
+               printf("--> M5: xwindow == %ld\n", xwindow);
+#endif
+
+               game_initscreen();
+#if 0
+               printf("--> M6: xwindow == %ld\n", xwindow);
+#endif
+               game_blitscore();
+#if 0
+               printf("--> M7: xwindow == %ld\n", xwindow);
+#endif
+               game_animscreen();
+
+#if 0
+               printf("--> M8: xwindow == %ld\n", xwindow);
+#endif
+
+               for(;;) {
+                       input_eventloop();
+                       if(input_die || input_esc) break;
+                       if(input_refresh) blitscreen();
+
+                       if(!input_pause) {
+                               game_animscreen();
+
+                               frame = (frame - 1) & 7;
+
+                               readjoy();
+
+                               if(frame == 7) {
+                                       synchro_1();
+                                       synchro_2();
+                               }
+                               if(frame == 6) {
+                                       synchro_3();
+                                       sound_play();
+                                       game_blitscore();
+                               }
+                       }
+               }
+       }
+}
+
+/* read input device for players
+ */
+void readjoy(void)
+{
+       unsigned int i;
+       unsigned int north = 0, east = 0, south = 0, west = 0, fire = 0;
+
+       for(i = 0; i < 3; i++) if(keymatrix[northKeyCode[i] >> 3] & 1 << (northKeyCode[i] & 7)) north = 1;
+       for(i = 0; i < 3; i++) if(keymatrix[eastKeyCode[i] >> 3] & 1 << (eastKeyCode[i] & 7)) east = 1;
+       for(i = 0; i < 3; i++) if(keymatrix[southKeyCode[i] >> 3] & 1 << (southKeyCode[i] & 7)) south = 1;
+       for(i = 0; i < 3; i++) if(keymatrix[westKeyCode[i] >> 3] & 1 << (westKeyCode[i] & 7)) west = 1;
+       for(i = 0; i < 3; i++) if(keymatrix[fireKeyCode[i] >> 3] & 1 << (fireKeyCode[i] & 7)) fire = 1;
+
+       ply1.joy_fire = fire;
+       if(ply1.joy_stick || (north | east | south | west)) {
+               ply1.joy_n = north;
+               ply1.joy_e = east;
+               ply1.joy_s = south;
+               ply1.joy_w = west;
+       }
+}
+
+/* handle events from x windows and block until the next frame
+ */
+void input_eventloop(void)
+{
+       XEvent event;
+       unsigned int i;
+       unsigned long count;
+
+       if(input_pause) {
+               XPeekEvent(display, &event); /* block until an event arrives */
+
+               if(gettimeofday(&tv1, 0) == -1) tv1.tv_usec = 0;
+       } else {
+               XSync(display, False); /* block until all graphics are drawn */
+
+               if(gettimeofday(&tv2, 0) == -1) tv2.tv_usec = 0;
+               count = tv2.tv_usec + 1000000 - tv1.tv_usec; if(count >= 1000000) count -= 1000000;
+               tv1.tv_usec = tv2.tv_usec;
+               if(count < 25000) {
+                       tv2.tv_sec = 0;
+                       tv2.tv_usec = 25000 - count;
+#if 1
+                       select(0, 0, 0, 0, &tv2); /* sleep a bit */
+#else
+                       usleep(tv2.tv_usec);
+#endif
+               }
+       }
+
+       input_die = 0;
+       input_refresh = 0;
+       lastKeySym = NoSymbol;
+       while(XPending(display)) { /* drain the event queue */
+               XNextEvent(display, &event);
+               switch(event.xany.type) {
+               case KeyPress:
+                       XLookupString(&event.xkey, (char *)&count, 1, &lastKeySym, 0);
+                       break;
+               case Expose:
+                       if(event.xexpose.window == xwindow && event.xexpose.count == 0) input_refresh = 1;
+                       break;
+               case ClientMessage:
+                       if(event.xclient.window == xwindow && (Atom)event.xclient.data.l[0] == deleteAtom) input_die = 1;
+                       break;
+               case EnterNotify:
+                       if(event.xcrossing.window == xwindow) input_pause = 0;
+                       break;
+               case LeaveNotify:
+                       if(event.xcrossing.window == xwindow) input_pause = 1;
+                       break;
+               }
+       }
+       XQueryKeymap(display, keymatrix); /* read the keyboard */
+
+       input_esc = 0;
+       for(i = 0; i < 1; i++) if(keymatrix[escKeyCode[i] >> 3] & 1 << (escKeyCode[i] & 7)) input_esc = 1;
+}