1 /***********************************************************
2 * Rocks'n'Diamonds -- McDuffin Strikes Back! *
3 *----------------------------------------------------------*
4 * ©1995 Artsoft Development *
6 * 33659 Bielefeld-Senne *
7 * Telefon: (0521) 493245 *
8 * eMail: aeglos@valinor.owl.de *
9 * aeglos@uni-paderborn.de *
10 * q99492@pbhrzx.uni-paderborn.de *
11 *----------------------------------------------------------*
13 ***********************************************************/
26 /* allegro driver declarations */
27 DECLARE_GFX_DRIVER_LIST(GFX_DRIVER_VBEAF GFX_DRIVER_VESA2L GFX_DRIVER_VESA1)
28 DECLARE_COLOR_DEPTH_LIST(COLOR_DEPTH_8)
29 DECLARE_DIGI_DRIVER_LIST(DIGI_DRIVER_SB)
30 DECLARE_MIDI_DRIVER_LIST()
31 DECLARE_JOYSTICK_DRIVER_LIST(JOYSTICK_DRIVER_STANDARD)
33 /* allegro global variables */
34 extern volatile int key_shifts;
35 extern int num_joysticks;
36 extern JOYSTICK_INFO joy[];
37 extern int i_love_bill;
39 /* internal variables of msdos.c */
40 static int key_press_state[MAX_SCANCODES];
41 static XEvent event_buffer[MAX_EVENT_BUFFER];
42 static int pending_events;
43 static boolean joystick_event;
44 static boolean mouse_installed = FALSE;
45 static int last_mouse_pos;
46 static int last_mouse_b;
47 static int last_joystick_state;
48 static BITMAP* video_bitmap;
50 static RGB global_colormap[MAX_COLORS];
51 static int global_colormap_entries_used = 0;
53 boolean wait_for_vsync;
56 extern int playing_sounds;
57 extern struct SoundControl playlist[MAX_SOUNDS_PLAYING];
58 extern struct SoundControl emptySoundControl;
61 static BITMAP *Read_PCX_to_AllegroBitmap(char *);
63 static void allegro_drivers()
67 for (i=0; i<MAX_EVENT_BUFFER; i++)
68 event_buffer[i].type = 0;
70 for (i=0; i<MAX_SCANCODES; i++)
71 key_press_state[i] = KeyReleaseMask;
73 last_mouse_pos = mouse_pos;
79 /* enable Windows friendly timer mode (already default under Windows) */
84 if (install_mouse() > 0)
85 mouse_installed = TRUE;
87 last_joystick_state = 0;
88 joystick_event = FALSE;
90 reserve_voices(MAX_SOUNDS_PLAYING, 0);
91 if (install_sound(DIGI_AUTODETECT, MIDI_NONE, NULL) == -1)
92 if (install_sound(DIGI_SB, MIDI_NONE, NULL) == -1)
93 sound_status = SOUND_OFF;
96 static boolean hide_mouse(Display *display, int x, int y,
97 unsigned int width, unsigned int height)
99 if (mouse_x + display->mouse_ptr->w < x || mouse_x > x + width)
101 if (mouse_y + display->mouse_ptr->h < y || mouse_y > y + height)
109 static void unhide_mouse(Display *display)
112 show_mouse(video_bitmap);
115 static KeySym ScancodeToKeySym(byte scancode)
119 case KEY_ESC: return XK_Escape;
120 case KEY_1: return XK_1;
121 case KEY_2: return XK_2;
122 case KEY_3: return XK_3;
123 case KEY_4: return XK_4;
124 case KEY_5: return XK_5;
125 case KEY_6: return XK_6;
126 case KEY_7: return XK_7;
127 case KEY_8: return XK_8;
128 case KEY_9: return XK_9;
129 case KEY_0: return XK_0;
130 case KEY_MINUS: return XK_minus;
131 case KEY_EQUALS: return XK_equal;
132 case KEY_BACKSPACE: return XK_BackSpace;
133 case KEY_TAB: return XK_Tab;
134 case KEY_Q: return XK_q;
135 case KEY_W: return XK_w;
136 case KEY_E: return XK_e;
137 case KEY_R: return XK_r;
138 case KEY_T: return XK_t;
139 case KEY_Y: return XK_y;
140 case KEY_U: return XK_u;
141 case KEY_I: return XK_i;
142 case KEY_O: return XK_o;
143 case KEY_P: return XK_p;
144 case KEY_OPENBRACE: return XK_braceleft;
145 case KEY_CLOSEBRACE: return XK_braceright;
146 case KEY_ENTER: return XK_Return;
147 case KEY_LCONTROL: return XK_Control_L;
148 case KEY_A: return XK_a;
149 case KEY_S: return XK_s;
150 case KEY_D: return XK_d;
151 case KEY_F: return XK_f;
152 case KEY_G: return XK_g;
153 case KEY_H: return XK_h;
154 case KEY_J: return XK_j;
155 case KEY_K: return XK_k;
156 case KEY_L: return XK_l;
157 case KEY_COLON: return XK_colon;
158 case KEY_QUOTE: return XK_apostrophe;
159 case KEY_TILDE: return XK_asciitilde;
160 case KEY_LSHIFT: return XK_Shift_L;
161 case KEY_BACKSLASH: return XK_backslash;
162 case KEY_Z: return XK_z;
163 case KEY_X: return XK_x;
164 case KEY_C: return XK_c;
165 case KEY_V: return XK_v;
166 case KEY_B: return XK_b;
167 case KEY_N: return XK_n;
168 case KEY_M: return XK_m;
169 case KEY_COMMA: return XK_comma;
170 case KEY_STOP: return XK_period;
171 case KEY_SLASH: return XK_slash;
172 case KEY_RSHIFT: return XK_Shift_R;
173 case KEY_ASTERISK: return XK_KP_Multiply;
174 case KEY_ALT: return XK_Alt_L;
175 case KEY_SPACE: return XK_space;
176 case KEY_CAPSLOCK: return XK_Caps_Lock;
177 case KEY_F1: return XK_F1;
178 case KEY_F2: return XK_F2;
179 case KEY_F3: return XK_F3;
180 case KEY_F4: return XK_F4;
181 case KEY_F5: return XK_F5;
182 case KEY_F6: return XK_F6;
183 case KEY_F7: return XK_F7;
184 case KEY_F8: return XK_F8;
185 case KEY_F9: return XK_F9;
186 case KEY_F10: return XK_F10;
187 case KEY_NUMLOCK: return XK_Num_Lock;
188 case KEY_SCRLOCK: return XK_Scroll_Lock;
189 case KEY_HOME: return XK_Home;
190 case KEY_UP: return XK_Up;
191 case KEY_PGUP: return XK_Page_Up;
192 case KEY_MINUS_PAD: return XK_KP_Subtract;
193 case KEY_LEFT: return XK_Left;
194 case KEY_5_PAD: return XK_KP_5;
195 case KEY_RIGHT: return XK_Right;
196 case KEY_PLUS_PAD: return XK_KP_Add;
197 case KEY_END: return XK_End;
198 case KEY_DOWN: return XK_Down;
199 case KEY_PGDN: return XK_Page_Down;
200 case KEY_INSERT: return XK_Insert;
201 case KEY_DEL: return XK_Delete;
202 case KEY_PRTSCR: return XK_Print;
203 case KEY_F11: return XK_F11;
204 case KEY_F12: return XK_F12;
205 case KEY_LWIN: return XK_Meta_L;
206 case KEY_RWIN: return XK_Meta_R;
207 case KEY_MENU: return XK_Menu;
208 case KEY_PAD: return XK_VoidSymbol;
209 case KEY_RCONTROL: return XK_Control_R;
210 case KEY_ALTGR: return XK_Alt_R;
211 case KEY_SLASH2: return XK_KP_Divide;
212 case KEY_PAUSE: return XK_Pause;
214 case NEW_KEY_BACKSLASH: return XK_backslash;
215 case NEW_KEY_1_PAD: return XK_KP_1;
216 case NEW_KEY_2_PAD: return XK_KP_2;
217 case NEW_KEY_3_PAD: return XK_KP_3;
218 case NEW_KEY_4_PAD: return XK_KP_4;
219 case NEW_KEY_5_PAD: return XK_KP_5;
220 case NEW_KEY_6_PAD: return XK_KP_6;
221 case NEW_KEY_7_PAD: return XK_KP_7;
222 case NEW_KEY_8_PAD: return XK_KP_8;
223 case NEW_KEY_9_PAD: return XK_KP_9;
224 case NEW_KEY_0_PAD: return XK_KP_0;
225 case NEW_KEY_STOP_PAD: return XK_KP_Separator;
226 case NEW_KEY_EQUALS_PAD: return XK_KP_Equal;
227 case NEW_KEY_SLASH_PAD: return XK_KP_Divide;
228 case NEW_KEY_ASTERISK_PAD: return XK_KP_Multiply;
229 case NEW_KEY_ENTER_PAD: return XK_KP_Enter;
231 default: return XK_VoidSymbol;
235 void XMapWindow(Display *display, Window window)
238 unsigned int width, height;
241 x = display->screens[display->default_screen].x;
242 y = display->screens[display->default_screen].y;
243 width = display->screens[display->default_screen].width;
244 height = display->screens[display->default_screen].height;
246 mouse_off = hide_mouse(display, x, y, width, height);
247 blit((BITMAP *)window, video_bitmap, 0, 0, x, y, width, height);
250 unhide_mouse(display);
253 Display *XOpenDisplay(char *display_name)
257 BITMAP *mouse_bitmap = NULL;
260 filename = getPath3(options.base_directory, GRAPHICS_DIRECTORY,
263 mouse_bitmap = Read_PCX_to_AllegroBitmap(filename);
266 if (mouse_bitmap == NULL)
269 screen = malloc(sizeof(Screen));
270 display = malloc(sizeof(Display));
274 screen[0].white_pixel = 0xFF;
275 screen[0].black_pixel = 0x00;
276 screen[0].video_bitmap = NULL;
278 display->default_screen = 0;
279 display->screens = screen;
280 display->mouse_ptr = mouse_bitmap;
286 /* force Windows 95 to switch to fullscreen mode */
287 set_gfx_mode(GFX_AUTODETECT, 320, 200, 0, 0);
289 set_gfx_mode(GFX_AUTODETECT, XRES, YRES, 0, 0);
294 Window XCreateSimpleWindow(Display *display, Window parent, int x, int y,
295 unsigned int width, unsigned int height,
296 unsigned int border_width, unsigned long border,
297 unsigned long background)
299 video_bitmap = create_video_bitmap(XRES, YRES);
300 clear_to_color(video_bitmap, background);
302 display->screens[display->default_screen].video_bitmap = video_bitmap;
303 display->screens[display->default_screen].x = x;
304 display->screens[display->default_screen].y = y;
305 display->screens[display->default_screen].width = XRES;
306 display->screens[display->default_screen].height = YRES;
308 set_mouse_sprite(display->mouse_ptr);
309 set_mouse_speed(1, 1);
310 set_mouse_range(display->screens[display->default_screen].x + 1,
311 display->screens[display->default_screen].y + 1,
312 display->screens[display->default_screen].x + WIN_XSIZE + 1,
313 display->screens[display->default_screen].y + WIN_YSIZE + 1);
315 show_video_bitmap(video_bitmap);
317 return (Window)video_bitmap;
320 Status XStringListToTextProperty(char **list, int count,
321 XTextProperty *text_prop_return)
327 string = malloc(strlen(list[0] + 1));
328 strcpy(string, list[0]);
329 text_prop_return->value = (unsigned char *)string;
333 text_prop_return = NULL;
338 void XFree(void *data)
344 GC XCreateGC(Display *display, Drawable d, unsigned long value_mask,
348 gcv = malloc(sizeof(XGCValues));
349 gcv->foreground = values->foreground;
350 gcv->background = values->background;
351 gcv->graphics_exposures = values->graphics_exposures;
352 gcv->clip_mask = values->clip_mask;
353 gcv->clip_x_origin = values->clip_x_origin;
354 gcv->clip_y_origin = values->clip_y_origin;
355 gcv->value_mask = value_mask;
359 void XSetClipMask(Display *display, GC gc, Pixmap pixmap)
361 XGCValues *gcv = (XGCValues *)gc;
363 gcv->clip_mask = pixmap;
364 gcv->value_mask |= GCClipMask;
367 void XSetClipOrigin(Display *display, GC gc, int x, int y)
369 XGCValues *gcv = (XGCValues *)gc;
371 gcv->clip_x_origin = x;
372 gcv->clip_x_origin = y;
375 void XFillRectangle(Display *display, Drawable d, GC gc, int x, int y,
376 unsigned int width, unsigned int height)
378 boolean mouse_off = FALSE;
380 if ((BITMAP *)d == video_bitmap)
382 x += display->screens[display->default_screen].x;
383 y += display->screens[display->default_screen].y;
384 freeze_mouse_flag = TRUE;
385 mouse_off = hide_mouse(display, x, y, width, height);
388 rectfill((BITMAP *)d, x, y, x + width, y + height,
389 ((XGCValues *)gc)->foreground);
392 unhide_mouse(display);
394 freeze_mouse_flag = FALSE;
397 Pixmap XCreatePixmap(Display *display, Drawable d, unsigned int width,
398 unsigned int height, unsigned int depth)
400 BITMAP *bitmap = NULL;
402 if (gfx_capabilities & GFX_HW_VRAM_BLIT &&
403 width == FXSIZE && height == FYSIZE)
404 bitmap = create_video_bitmap(width, height);
407 bitmap = create_bitmap(width, height);
409 return (Pixmap)bitmap;
412 void XSync(Display *display, Bool discard_events)
414 wait_for_vsync = TRUE;
417 inline void XCopyArea(Display *display, Drawable src, Drawable dest, GC gc,
418 int src_x, int src_y,
419 unsigned int width, unsigned int height,
420 int dest_x, int dest_y)
422 boolean mouse_off = FALSE;
424 if ((BITMAP *)src == video_bitmap)
426 src_x += display->screens[display->default_screen].x;
427 src_y += display->screens[display->default_screen].y;
430 if ((BITMAP *)dest == video_bitmap)
432 dest_x += display->screens[display->default_screen].x;
433 dest_y += display->screens[display->default_screen].y;
434 freeze_mouse_flag = TRUE;
435 mouse_off = hide_mouse(display, dest_x, dest_y, width, height);
440 wait_for_vsync = FALSE;
444 if (((XGCValues *)gc)->value_mask & GCClipMask)
445 masked_blit((BITMAP *)src, (BITMAP *)dest, src_x, src_y, dest_x, dest_y,
448 blit((BITMAP *)src, (BITMAP *)dest, src_x, src_y, dest_x, dest_y,
452 unhide_mouse(display);
454 freeze_mouse_flag = FALSE;
457 static BITMAP *Image_to_AllegroBitmap(Image *image)
460 byte *src_ptr = image->data;
461 byte pixel_mapping[MAX_COLORS];
462 unsigned int depth = 8;
465 /* allocate new allegro bitmap structure */
466 if ((bitmap = create_bitmap_ex(depth, image->width, image->height)) == NULL)
471 /* try to use existing colors from the global colormap */
472 for (i=0; i<MAX_COLORS; i++)
476 if (!image->rgb.color_used[i])
479 r = image->rgb.red[i] >> 10;
480 g = image->rgb.green[i] >> 10;
481 b = image->rgb.blue[i] >> 10;
483 for (j=0; j<global_colormap_entries_used; j++)
485 if (r == global_colormap[j].r &&
486 g == global_colormap[j].g &&
487 b == global_colormap[j].b) /* color found */
489 pixel_mapping[i] = j;
494 if (j == global_colormap_entries_used) /* color not found */
496 if (global_colormap_entries_used < MAX_COLORS)
497 global_colormap_entries_used++;
499 global_colormap[j].r = r;
500 global_colormap[j].g = g;
501 global_colormap[j].b = b;
503 pixel_mapping[i] = j;
507 /* copy bitmap data */
508 for (y=0; y<image->height; y++)
509 for (x=0; x<image->width; x++)
510 putpixel(bitmap, x, y, pixel_mapping[*src_ptr++]);
515 static BITMAP *Read_PCX_to_AllegroBitmap(char *filename)
520 /* read the graphic file in PCX format to internal image structure */
521 if ((image = Read_PCX_to_Image(filename)) == NULL)
524 /* convert internal image structure to allegro bitmap structure */
525 if ((bitmap = Image_to_AllegroBitmap(image)) == NULL)
528 set_palette(global_colormap);
533 int Read_PCX_to_Pixmap(Display *display, Window window, GC gc, char *filename,
534 Pixmap *pixmap, Pixmap *pixmap_mask)
538 if ((bitmap = Read_PCX_to_AllegroBitmap(filename)) == NULL)
539 return PCX_FileInvalid;
541 *pixmap = (Pixmap)bitmap;
542 *pixmap_mask = (Pixmap)bitmap;
547 int XpmReadFileToPixmap(Display *display, Drawable d, char *filename,
548 Pixmap *pixmap_return, Pixmap *shapemask_return,
549 XpmAttributes *attributes)
553 if ((bitmap = Read_PCX_to_AllegroBitmap(filename)) == NULL)
554 return XpmOpenFailed;
556 *pixmap_return = (Pixmap)bitmap;
561 int XReadBitmapFile(Display *display, Drawable d, char *filename,
562 unsigned int *width_return, unsigned int *height_return,
563 Pixmap *bitmap_return,
564 int *x_hot_return, int *y_hot_return)
568 if ((bitmap = Read_PCX_to_AllegroBitmap(filename)) == NULL)
569 return BitmapOpenFailed;
571 *width_return = bitmap->w;
572 *height_return = bitmap->h;
575 *bitmap_return = (Pixmap)bitmap;
577 return BitmapSuccess;
580 void XFreePixmap(Display *display, Pixmap pixmap)
582 if (pixmap != DUMMY_MASK &&
583 (is_memory_bitmap((BITMAP *)pixmap) ||
584 is_screen_bitmap((BITMAP *)pixmap)))
585 destroy_bitmap((BITMAP *)pixmap);
588 void XFreeGC(Display *display, GC gc)
592 gcv = (XGCValues *)gc;
597 void XCloseDisplay(Display *display)
599 BITMAP *bitmap = video_bitmap;
601 if (is_screen_bitmap(bitmap))
602 destroy_bitmap(bitmap);
604 if (display->screens)
605 free(display->screens);
610 /* return to text mode (or DOS box on Windows screen) */
611 set_gfx_mode(GFX_TEXT, 0, 0, 0, 0);
614 void XNextEvent(Display *display, XEvent *event_return)
616 while (!pending_events)
619 memcpy(event_return, &event_buffer[pending_events], sizeof(XEvent));
623 static void NewKeyEvent(int key_press_state, KeySym keysym)
627 if (pending_events >= MAX_EVENT_BUFFER)
631 xkey = (XKeyEvent *)&event_buffer[pending_events];
632 xkey->type = key_press_state;
633 xkey->state = (unsigned int)keysym;
636 #define HANDLE_RAW_KB_ALL_KEYS 0
637 #define HANDLE_RAW_KB_MODIFIER_KEYS_ONLY 1
639 static int modifier_scancode[] =
655 static void HandleKeyboardRaw(int mode)
659 for (i=0; i<MAX_SCANCODES; i++)
661 int scancode, new_state, event_type;
664 if (mode == HANDLE_RAW_KB_MODIFIER_KEYS_ONLY)
666 if ((scancode = modifier_scancode[i]) == -1)
672 key_pressed = key[scancode];
673 new_state = (key_pressed ? KeyPressMask : KeyReleaseMask);
674 event_type = (key_pressed ? KeyPress : KeyRelease);
676 if (key_press_state[i] == new_state) /* state not changed */
679 key_press_state[i] = new_state;
681 NewKeyEvent(event_type, ScancodeToKeySym(scancode));
685 static void HandleKeyboardEvent()
689 int key_info = readkey();
690 int scancode = (key_info >> 8);
691 int ascii = (key_info & 0xff);
692 KeySym keysym = ScancodeToKeySym(scancode);
694 if (scancode == KEY_PAD)
696 /* keys on the numeric keypad return just scancode 'KEY_PAD'
697 for some reason, so we must handle them separately */
699 if (ascii >= '0' && ascii <= '9')
700 keysym = XK_KP_0 + (KeySym)(ascii - '0');
701 else if (ascii == '.')
702 keysym = XK_KP_Separator;
705 NewKeyEvent(KeyPress, keysym);
707 else if (key_shifts & (KB_SHIFT_FLAG | KB_CTRL_FLAG | KB_ALT_FLAG))
709 /* the allegro function keypressed() does not give us single pressed
710 modifier keys, so we must detect them with the internal global
711 allegro variable 'key_shifts' and then handle them separately */
713 HandleKeyboardRaw(HANDLE_RAW_KB_MODIFIER_KEYS_ONLY);
717 int XPending(Display *display)
719 XButtonEvent *xbutton;
720 XMotionEvent *xmotion;
724 if (game_status == PLAYING)
725 HandleKeyboardRaw(HANDLE_RAW_KB_ALL_KEYS);
727 HandleKeyboardEvent();
729 /* mouse motion event */
730 /* generate mouse motion event only if any mouse buttons are pressed */
731 if (mouse_pos != last_mouse_pos && mouse_b)
733 last_mouse_pos = mouse_pos;
735 xmotion = (XMotionEvent *)&event_buffer[pending_events];
736 xmotion->type = MotionNotify;
737 xmotion->x = mouse_x - display->screens[display->default_screen].x;
738 xmotion->y = mouse_y - display->screens[display->default_screen].y;
741 /* mouse button event */
742 if (mouse_b != last_mouse_b)
744 for (i=0; i<3; i++) /* check all three mouse buttons */
746 int bitmask = (1 << i);
748 if ((last_mouse_b & bitmask) != (mouse_b & bitmask))
750 int mapping[3] = { 1, 3, 2 };
753 xbutton = (XButtonEvent *)&event_buffer[pending_events];
754 xbutton->type = (mouse_b & bitmask ? ButtonPress : ButtonRelease);
755 xbutton->button = mapping[i];
756 xbutton->x = mouse_x - display->screens[display->default_screen].x;
757 xbutton->y = mouse_y - display->screens[display->default_screen].y;
760 last_mouse_b = mouse_b;
763 return pending_events;
766 KeySym XLookupKeysym(XKeyEvent *key_event, int index)
768 return key_event->state;
771 int XLookupString(XKeyEvent *key_event, char *buffer, int buffer_size,
772 KeySym *key, XComposeStatus *compose)
774 *key = key_event->state;
778 void XSetForeground(Display *display, GC gc, unsigned long pixel)
780 XGCValues *gcv = (XGCValues *)gc;
782 gcv->foreground = pixel;
785 void XDrawLine(Display *display, Drawable d, GC gc,
786 int x1, int y1, int x2, int y2)
788 XGCValues *gcv = (XGCValues *)gc;
789 boolean mouse_off = FALSE;
791 if ((BITMAP *)d == video_bitmap)
793 x1 += display->screens[display->default_screen].x;
794 y1 += display->screens[display->default_screen].y;
795 x2 += display->screens[display->default_screen].x;
796 y2 += display->screens[display->default_screen].y;
797 freeze_mouse_flag = TRUE;
798 mouse_off = hide_mouse(display, MIN(x1, x2), MIN(y1, y2),
799 MAX(x1, x2) - MIN(x1, x2),
800 MAX(y1, y2) - MIN(y1, y2));
803 line((BITMAP *)d, x1, y1, x2, y2, gcv->foreground);
806 unhide_mouse(display);
808 freeze_mouse_flag = FALSE;
811 void XDestroyImage(XImage *ximage)
815 void NetworkServer(int port, int serveronly)
817 Error(ERR_WARN, "networking not supported in DOS version");