src/mercenary/mercenary2.c

   1 /* game specials
   2  *
   3  * (C) 2018 by Andreas Eversberg <jolly@eversberg.eu>
   4  * All Rights Reserved
   5  *
   6  * This program is free software: you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation, either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 #include <stdio.h>
  21 #include <string.h>
  22 #include <stdint.h>
  23 #include <stdlib.h>
  24 #include <math.h>
  25 #include "../libsdl/print.h"
  26 #include "../libcpu/m68k.h"
  27 #include "../libcpu/m68kcpu.h"
  28 #include "../libcpu/execute.h"
  29 #include "mercenary.h"
  30
  31 #define INITIAL_STACK   0x7fffa
  32 #define RESET_VECTOR    0x59484
  33
  34 /* VR heading to alter direction we walk to */
  35 static struct vr_move vr_move;
  36
  37 /* interrupt CPU execution at special break points and tell emulation what to do */
  38 const struct cpu_stop mercenary_stop_at[] = {
  39         { 0x59a4e,      STOP_AT_WAIT_VBL },                     /* done with rendering, waiting for VBL */
  40         { 0x54c26,      STOP_AT_WAIT_INPUT },                   /* after pressing 'HELP' key before showing menu line on benson */
  41         { 0x55438,      STOP_AT_WAIT_INPUT },                   /* waiting for menu command */
  42         { 0x54c2e,      STOP_AT_WAIT_INPUT },                   /* after pressing 'HELP' key while showing menu line on benson */
  43         { 0x55446,      STOP_AT_WAIT_INPUT },                   /* after pressing 'RETURN' while game waits for other key to resume */
  44         { 0x51620,      STOP_AT_WAIT_VBL },                     /* after dying, waiting for VBL to fade out palette */
  45         { 0x596BC,      STOP_AT_CLEAR_SCREEN1 },                /* clear the screen (here we know the color 8, this is wy we cannot do it earlier) */
  46         { 0x596F4,      STOP_AT_CLEAR_SCREEN1 },
  47         { 0x59720,      STOP_AT_CLEAR_SCREEN1 },
  48         { 0x598A8,      STOP_AT_CLEAR_SCREEN1 },
  49         { 0x598E6,      STOP_AT_CLEAR_SCREEN2 },                /* special case where we use color index 15 when we are flying (no raster split for ground color) */
  50         { 0x59982,      STOP_AT_CLEAR_SCREEN3 },                /* special case where we are in universe and do not have any ground */
  51         { 0x55F2E,      STOP_AT_DRAW_GROUND },                  /* the ground is rendered. the color index is captured at CLEAR_SCREEN */
  52         { 0x59710,      STOP_AT_DRAW_GROUND },                  /* at this point there is ground rendered, because game uses raster split for ground color, but we do render opengl */
  53         { 0x531EA,      STOP_AT_INFO_OBJECT_MOVING },           /* get ID and position of next object */
  54         /* note: there a no fix objects in this game (no taxi/bus/intercity) */
  55         { 0x534EA,      STOP_AT_TAG_IS_OBJECT_1 },              /* indicates that the next tag is an object */
  56         { 0x534EE,      STOP_AT_TAG_IS_OBJECT_0 },              /* indicates that the tag of object was rendered */
  57         { 0x5346E,      STOP_AT_COORD_OBJECT },                 /* object coordinates are ready */
  58         { 0x534F6,      STOP_AT_POLY_OBJECT_M2 },               /* object polygon is rendered */
  59         { 0x534F0,      STOP_AT_LINE_OBJECT },                  /* object line is rendered */
  60         { 0x5324A,      STOP_AT_COORD_BEACON },                 /* beacon's point coordinates are ready */
  61         { 0x53284,      STOP_AT_POINT_BEACON },                 /* becon point is rendered */
  62         { 0x53A00,      STOP_AT_COORD_BUILDING_EXTERIOR },      /* building (house) coordinates are ready */
  63         { 0x53A5C,      STOP_AT_POLY_BUILDING_EXTERIOR },       /* building polygons are rendered */
  64         { 0x53A54,      STOP_AT_LINE_BUILDING_EXTERIOR },       /* lines of building, like radio tower on icarus */
  65         { 0x5AA10,      STOP_AT_COORD_BUILDING_INTERIOR },      /* building coordinates for interrior */
  66         { 0x5B218,      STOP_AT_POLY_BUILDING_INTERIOR1 },      /* floor of building will be rendered */
  67         { 0x5B1BE,      STOP_AT_POLY_BUILDING_INTERIOR2 },      /* ceiling of building will be rendered */
  68         { 0x5B154,      STOP_AT_POLY_BUILDING_INTERIOR3 },      /* ceiling of window/door will be rendered */
  69         { 0x5B0E0,      STOP_AT_POLY_BUILDING_INTERIOR4 },      /* floor of window will be rendered */
  70         { 0x5B2DE,      STOP_AT_POLY_BUILDING_INTERIOR1to4 },   /* ceiling/floor of building is rendered */
  71         { 0x5AFF4,      STOP_AT_POLY_BUILDING_INTERIOR5 },      /* part above window/door will be rendered */
  72         { 0x5AF8A,      STOP_AT_POLY_BUILDING_INTERIOR6 },      /* part below window will be rendered */
  73         { 0x5B0BE,      STOP_AT_POLY_BUILDING_INTERIOR5to6 },   /* part below/above window/door of building is rendered */
  74         { 0x5B332,      STOP_AT_WALL_BUILDING },                /* a wall (between floor and ceiling/window/door) is rendered) */
  75         { 0x4F462,      STOP_AT_COORD_COMET },                  /* comet's coordinates are ready */
  76         { 0x4F496,      STOP_AT_MATRIX_COMET },                 /* what rotation matrix to use */
  77         { 0x4F4B8,      STOP_AT_POLY_COMET },                   /* comet's horizontal polygon (without culling no need to render 0x4F4BC) */
  78         { 0x4F4C0,      STOP_AT_POLY_COMET },                   /* comet's vertival polygon (without culling no need to render 0x4F4C4) */
  79         { 0x54634,      STOP_AT_COORD_LINE_ROADS },             /* road's line coordinates are ready */
  80         { 0x54676,      STOP_AT_LINE_ROADS },                   /* road's and ground surface's polygon */
  81         { 0x5469C,      STOP_AT_LINE_ROADS },
  82         { 0x546B2,      STOP_AT_LINE_ROADS },
  83         { 0x56496,      STOP_AT_LINE_ROADS_CENTER },            /* center line of roads */
  84         { 0x56442,      STOP_AT_COORD_POLY_ROADS },             /* road's and ground surface's coordinates are ready */
  85         { 0x5649C,      STOP_AT_POLY_ROADS },                   /* road's and ground surface's polygon */
  86         { 0x53CB6,      STOP_AT_COORD_TAGS },                   /* coordinates for tags, like key's marking are ready */
  87         /* note: there are no coordinates for large tags in this game (no faces) */
  88         /* note: there are no STOP_AT_LINE_TAGS1 and STOP_AT_POLY_TAGS1 in this game(given color) */
  89         { 0x53CFA,      STOP_AT_LINE_TAGS2 },                   /* tag's line is rendered (use last color) */
  90         { 0x53CF0,      STOP_AT_POLY_TAGS2 },                   /* tag's polygon is rendered (use last color) */
  91         { 0x52BF4,      STOP_AT_COORD_PLANET },                 /* planet's coordinates are ready (viewed from ground) */
  92         { 0x52C1A,      STOP_AT_MATRIX_PLANET },                /* what rotation matrix to use */
  93         { 0x52756,      STOP_AT_COORD_PLANET },                 /* planet's coordinates are ready (viewed from universe) */
  94         { 0x5277C,      STOP_AT_MATRIX_PLANET },                /* what rotation matrix to use */
  95         { 0x52C70,      STOP_AT_DRAW_PLANET },                  /* planet's sphere is rendered, D0 is color (viewed from ground) */
  96         { 0x52B36,      STOP_AT_DRAW_PLANET },                  /* planet's sphere is rendered, D0 is color (viewed from universe) */
  97         { 0x4F4E6,      STOP_AT_DRAW_COMET },                   /* comet's sphere is rendered */
  98         { 0x50006,      STOP_AT_DRAW_STARS_SPACE },             /* stars are rendered (viewed from universe) */
  99         { 0x4FF4C,      STOP_AT_DRAW_STARS_GROUND },            /* stars are rendered (viewed from ground) */
 100         { 0x4FE24,      STOP_AT_DRAW_STARS_FLYING },            /* stars are rendered (viewed from planet when flying) */
 101         { 0x4FCAC,      STOP_AT_DRAW_STARS_FLYING2 },           /* same as above, but stars when upside down (above zenit) */
 102         { 0x50FC2,      STOP_AT_DRAW_STARS_INTERSTELLAR },      /* interstellar star flight */
 103         { 0x50BF4,      STOP_AT_DRAW_SUN_INTERSTELLAR },        /* draw sun dot while flying interstellar */
 104         { 0x50BB8,      STOP_AT_CLEAR_SCREEN3 },                /* clear while flying interstellar */
 105         { 0x563B8,      STOP_AT_COORD_ISLANDS },                /* island's coordinates are ready */
 106         { 0x56416,      STOP_AT_POLY_ISLANDS },                 /* island's polygon is rendered */
 107         { 0x56410,      STOP_AT_LINE_ISLANDS },
 108         { 0x511FE,      STOP_AT_DRAW_SIGHTS },                  /* when sights are rendered */
 109         { 0x5351A,      STOP_AT_EXPLOSION },                    /* explosion debris */
 110         { 0x4C514,      STOP_AT_EXPLOSION },
 111         { 0x52C42,      STOP_AT_PATCH_RENDER },                 /* patch away planet check (behind observer) */
 112         { 0x528C4,      STOP_AT_PATCH_RENDER },                 /* patch away planet check (behind observer) */
 113         { 0x45806,      STOP_AT_PATCH_RENDER },                 /* patch away planet rendering (would crash without check above) */
 114         { 0x53276,      STOP_AT_PATCH_RENDER },                 /* patch away beacon check (not visible on screen) */
 115         { 0x58EA8,      STOP_AT_PATCH_VR },                     /* step that moves player */
 116         { 0x0,          STOP_AT_END },                          /* end */
 117 };
 118
 119 extern const uint32_t mercenary2_hex[];
 120 extern int mercenary2_hex_size;
 121
 122 void mercenary_load(void)
 123 {
 124         int i;
 125
 126         memset(&vr_move, 0, sizeof(vr_move));
 127
 128         /* load game binary from constant to volatile memory */
 129         for (i = 0; i < mercenary2_hex_size; i += 4) {
 130                 m68k_write_memory_32(i, mercenary2_hex[i / 4]);
 131         }
 132 }
 133
 134 void mercenary_patch(void)
 135 {
 136         uint32_t address;
 137
 138         /* initial stack */
 139         m68k_write_memory_32(0x00000, INITIAL_STACK);
 140
 141         /* reset vector */
 142         m68k_write_memory_32(0x00004, RESET_VECTOR);
 143
 144         /* remove function that checks what stars are rendered when flying above plante
 145          * instead of just rendering the necessary parts, both parts are always rendered:
 146          * 1. stars from horizont up to zenith
 147          * 2. stars from zenith up to horizon (upside down)
 148          * we need that, so opengl rendering can use wider FOV without missing stars.
 149          * the game will actually have no problem with it, except that it requires more cpu cycles
 150          */
 151         for (address = 0x4FD90; address < 0x4FDB6; address += 2)
 152                 m68k_write_memory_16(address, 0x4e71); /* nop */
 153
 154         /* remove wait for VBL */
 155         m68k_write_memory_16(0x59a54, 0x4e71); /* nop */
 156
 157         /* reduce loop that waits for disk stepper to move */
 158         if (m68k_read_memory_32(0x55398) != 0x0000091b) {
 159                 print_error("expecting loop counter of 0x0000091b here, please fix!\n");
 160                 exit(0);
 161         }
 162         m68k_write_memory_32(0x55398, 1);
 163         /* reduce loop that waits for disk side change */
 164         if (m68k_read_memory_32(0x54ffc) != 0x00000d02) {
 165                 print_error("expecting loop counter of 0x00000d02 here, please fix!\n");
 166                 exit(0);
 167         }
 168         m68k_write_memory_32(0x54ffc, 1);
 169 }
 170
 171 /* skip certain parts when rendering improved graphics */
 172 void mercenary_patch_render(void)
 173 {
 174         switch (REG_PC) {
 175         case 0x52C42: /* take that branch, so planets get rendered behind obersver */
 176                 REG_PC += 10;
 177                 break;
 178         case 0x528C4: /* take that branch, so planets get rendered behind obersver */
 179                 REG_PC += 10;
 180                 break;
 181         case 0x45806: /* just RTS to avoid crashing of rendering functions when planets are behind obersver */
 182                 REG_PC -= 2;
 183                 break;
 184         case 0x53276: /* skip that branch, so beacons get rendered outside screen */
 185                 REG_PC += 2;
 186                 break;
 187         case 0x53284: /* skip point render, because projected coordinates may be invalid outside screen */
 188                 REG_PC += 4;
 189                 break;
 190         }
 191 }
 192
 193 /* patch execution for VR improvement */
 194 void mercenary_patch_vr(void)
 195 {
 196         switch (REG_PC) {
 197         case 0x58EA8: /* at this point we process one step of the player walking on the ground */
 198                 if (vr_move.override && vr_move.index < 4) {
 199                         REG_D[2] = vr_move.east[vr_move.index];
 200                         REG_D[3] = vr_move.north[vr_move.index];
 201                         vr_move.index++;
 202                 }
 203                 break;
 204         }
 205 }
 206
 207 uint32_t mercenary_palette_view(void)
 208 {
 209         return m68k_read_memory_32(0x007c14);
 210 }
 211
 212 uint32_t mercenary_palette_render(void)
 213 {
 214         return m68k_read_memory_32(0x007c18);
 215 }
 216
 217 uint32_t mercenary_palette_predefined(void)
 218 {
 219         return m68k_read_memory_32(0x007a0e);
 220 }
 221
 222 uint32_t mercenary_palette_stars(void)
 223 {
 224         return 0x500C4+66;
 225 }
 226
 227 void mercenary_get_orientation(double *roll, double *pitch, double *yaw)
 228 {
 229         int16_t r;
 230
 231         /* get observer's tilt, pitch, yaw */
 232         r = (int16_t)(m68k_read_memory_16(0x007A9E) & 0x3ff);
 233         *roll = (double)r / 1024.0 * 2 * M_PI;
 234         r = (int16_t)((m68k_read_memory_16(0x007AA0) + 0x201) & 0x3ff); /* add one extra to make view leveled to ground */
 235         *pitch = -(double)r / 1024.0 * 2 * M_PI;
 236         r = (int16_t)((m68k_read_memory_16(0x007AA2) + 0x200) & 0x3ff);
 237         *yaw = -(double)r / 1024.0 * 2 * M_PI;
 238 }
 239
 240 void mercenary_get_orientation_raw(int16_t *pitch, uint16_t *yaw)
 241 {
 242         *pitch = m68k_read_memory_16(0x007AA0);
 243         *yaw = m68k_read_memory_16(0x007AA2);
 244 }
 245
 246 void mercenary_get_orientation_planet(double *inclination, double *azimuth, int improved)
 247 {
 248         uint32_t t;
 249
 250         if (!improved) {
 251                 /* get plant's inclination and azimuth */
 252                 t = m68k_read_memory_16(0x42C70) & 0x3ff;
 253                 *inclination = (double)t / 0x400 * 2 * M_PI;
 254                 t = m68k_read_memory_16(0x42C6c) & 0x3ff;
 255                 *azimuth = -(double)t / 0x400 * 2 * M_PI;
 256         } else {
 257                 /* inclination depends on north/south position */
 258                 t = m68k_read_memory_32(0x007ABA) >> 2; /* get position */
 259                 t += 0x01000000;
 260                 t &= 0x03ffffff;
 261                 *inclination = (double)t / 0x04000000 * 2 * M_PI;
 262                 /* azimuth depends on east/west position and planet's rotation */
 263                 t = m68k_read_memory_32(0x007AA6); /* get planet index */
 264                 t = m68k_read_memory_32(25322 + t); /* get rotation of planet */
 265                 t += m68k_read_memory_32(0x007AB2) >> 2; /* add position */
 266                 t &= 0x03ffffff;
 267                 *azimuth = -(double)t / 0x04000000 * 2 * M_PI;
 268
 269         }
 270 }
 271
 272 void mercenary_get_location(int32_t *east, int32_t *height, int32_t *north)
 273 {
 274         *east = (int32_t)m68k_read_memory_32(0x7a92);
 275         *height = (int32_t)m68k_read_memory_32(0x7a30);
 276         *north = (int32_t)m68k_read_memory_32(0x7a9a);
 277 }
 278
 279 void mercenary_get_object_info(int *id, int32_t *east, int32_t *height, int32_t *north)
 280 {
 281         *id = REG_A[0];
 282         *east = (int32_t)m68k_read_memory_32(REG_A[0] + 25512);
 283         *height = (int32_t)m68k_read_memory_32(REG_A[0] + 26536);
 284         *north = (int32_t)m68k_read_memory_32(REG_A[0] + 27560);
 285 }
 286
 287 void mercenary_coord_building_interior(int16_t *east, int32_t *height1, int32_t *height2, int32_t *height3, int32_t *height4, int16_t *north)
 288 {
 289         *east = (int16_t)m68k_read_memory_16(5698+REG_A[0]) - (int16_t)REG_A[2];
 290         *north = (int16_t)m68k_read_memory_16(6722+REG_A[0]) - (int16_t)REG_A[3];
 291         *height1 = -(int16_t)m68k_read_memory_16(0x79AC);
 292         *height2 = (int16_t)m68k_read_memory_16(0x7B26) - (int16_t)m68k_read_memory_16(0x79AC);
 293         *height3 = (int16_t)m68k_read_memory_16(0x7B28) - (int16_t)m68k_read_memory_16(0x79AC);
 294         *height4 = (int16_t)m68k_read_memory_16(0x7B2A) - (int16_t)m68k_read_memory_16(0x79AC);
 295 }
 296
 297 int mercenary_street_color_index(void)
 298 {
 299         return (m68k_read_memory_16(0x7BE2) >> 5) & 0xf;
 300 }
 301
 302 int mercenary_line_tags_index(void)
 303 {
 304         return (m68k_read_memory_16(0x7BE2) >> 5) & 0xf;
 305 }
 306
 307 uint16_t mercenary_poly_tags_color(void)
 308 {
 309         return m68k_read_memory_16(0x7B06);
 310 }
 311
 312 int mercenary_background_index(void)
 313 {
 314         return m68k_read_memory_16(0x7AEA) >> 2;
 315 }
 316
 317 uint32_t mercenary_planet_scale_index(void)
 318 {
 319         return 24640;
 320 }
 321
 322 uint32_t mercenary_star_table(void)
 323 {
 324         return 0x005D8C0;
 325 }
 326
 327 void mercenary_vr_move(int override, int32_t *east, int32_t *north)
 328 {
 329         vr_move.override = override;
 330         if (east)
 331                 memcpy(vr_move.east, east, sizeof(vr_move.east));
 332         if (north)
 333                 memcpy(vr_move.north, north, sizeof(vr_move.north));
 334         vr_move.index = 0;
 335 }
 336 const char *mercenary_name = "Mercenary II - Damocles";
 337 const char *mercenary_gamesavesuffix = ".m2save";
 338