src/lib/zcroll16.c

   1 /* Project 16 Source Code~
   2  * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
   3  *
   4  * This file is part of Project 16.
   5  *
   6  * Project 16 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  * Project 16 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/>, or
  18  * write to the Free Software Foundation, Inc., 51 Franklin Street,
  19  * Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  */
  22 /*
  23         scroll16 library~
  24 */
  25 #include "src/lib/zcroll16.h"
  26
  27 boolean boundary_check(int x, int y, int dx, int dy, int h, int w){
  28         return (dx > 0 && (x + dx) < w) || (dx < 0 && (x + dx) >= 0) || (dy > 0 && (y + dy) < h) || (dy < 0 && (y + dy) >= 0) || (dx == dy && dx == 0);
  29 }
  30
  31 boolean coll_check(int x, int y, int dx, int dy, map_view_t *map_v){
  32         // Assume everything crosses at most 1 tile at once
  33         return dx && crossable_tile(x + dx, map_v) || dy && crossable_tile(y + dy, map_v);
  34 }
  35
  36 boolean walk(entity_t *ent, map_view_t *map_v)
  37 {
  38         int dx = 1;
  39         int dy = 1;
  40         switch(ent->d)
  41         {
  42                 case STOP:
  43                         return;
  44                 case LEFT:
  45                         dx = -dx;
  46                 case RIGHT:
  47                         dy = 0;
  48                         break;
  49                 case UP:
  50                         dy = -dy;
  51                 case DOWN:
  52                         dx = 0;
  53                         break;
  54         }
  55         if(coll_check(ent->x, ent->y, dx, dy,  map_v)){
  56                 // Allow movement
  57                 // Set speed
  58                 // Start animation
  59                 // Mark next tile as occupied
  60                 // Mark this tile as vacant
  61                 return true;
  62         }
  63         return false;
  64 }
  65
  66 void player_walk(player_t *player, map_view_t *map_v){
  67         if(walk(player->ent, map_v) && boundary_check(map_v->tx, map_v->ty, dx, dy, map_v->map->width - 2*map_v->page->tilesw, map_v->map->height - 2*map_v->page->tilesh)){
  68                 mapScroll(map_v, player);
  69                 // (Un)load stuff?
  70         }
  71 }
  72
  73
  74 void near mapScroll(map_view_t *mv, player_t *player){
  75         word x, y;  /* coordinate for drawing */
  76         int c = 1;
  77         int delta;
  78         mv->delta += player->dx | player->dy;
  79         delta = mv->delta;
  80         mv->d = (player->dx) ? (player->dx > 0) ? RIGHT : LEFT : (player->dy) ? (player->dy > 0) ? DOWN : UP : STOP;
  81         switch(mv->d){
  82                 case DOWN:
  83                         c = -1;
  84                         delta = -delta;
  85                 case UP:
  86                         if(!(delta + mv->dxThresh)){
  87                                 mv->delta = 0;
  88                                 mv->ty += c;
  89                         }
  90                         break;
  91                 case RIGHT:
  92                         c = -1;
  93                         delta = -delta;
  94                 case LEFT:
  95                         if(!(delta + mv->dyThresh)){
  96                                 mv->delta = 0;
  97                                 mv->tx += c;
  98                         }
  99                         break;
 100                 default:
 101                         break;
 102         }
 103
 104         mv->video->r=1;
 105 }
 106
 107 sword chkmap(map_t *map, word q)
 108 {
 109 //      bitmap_t bp;
 110         static byte x[(MAPW*MAPH)+1] =
 111 { 1, 2, 3, 4, 0, 3, 3, 3, 3, 3, 3, 3, 3, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 6, 7, 8, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 10, 11, 12, 4, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 13, 14, 15, 16, 0, 1, 1, 1, 5, 8, 1, 11, 11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 0, 0, 0, 0, 0, 8, 8, 1, 11, 11, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 8, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 2, 3, 4, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 5, 6, 7, 8, 6, 6, 6, 6, 6, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 9, 10, 11, 12, 6, 6, 6, 6, 6, 6, 6, 6, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 13, 14, 15, 16, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 6, 6, 6, 6, 6, 6, 6, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 10 };
 112 /*1,    2,      3,      4,      0,      3,      3,      3,      3,      3,      3,      3,      3,      4,      1,      1,      1,      1,      1,      1,      \
 113 5,      6,      7,      8,      0,      1,      0,      1,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 114 9,      10,     11,     12,     4,      1,      0,      1,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 115 13,     14,     15,     16,     0,      1,      1,      1,      5,      8,      1,      11,     11,     1,      1,      1,      1,      1,      1,      1,      \
 116 0,      0,      4,      0,      0,      0,      0,      0,      8,      8,      1,      11,     11,     3,      1,      1,      1,      1,      1,      1,      \
 117 1,      1,      1,      1,      0,      0,      0,      0,      8,      8,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 118 1,      1,      1,      1,      0,      0,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 119 1,      1,      1,      1,      0,      0,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 120 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 121 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 122 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 123 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 124 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 125 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 126 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      3,      3,      3,      1,      2,      3,      4 };*/
 127         //check for failed to load map
 128         if((map->width == map->height == 0) && (q>0))
 129         {
 130                 //initiate a null map!
 131                 map->width=MAPW;///2;
 132                 map->height=MAPH;///2;
 133 //              map->data = malloc(((map->width*map->height)+1)*sizeof(byte));
 134                 map->data = &x;
 135                 map->tiles = malloc(sizeof(tiles_t));
 136                 //fix this to be far~
 137 //              bp = bitmapLoadPcx("data/ed.pcx");
 138 //              map->tiles->data = &bp;
 139                 map->tiles->debug_data = map->data;
 140                 map->tiles->tileHeight = 16;
 141                 map->tiles->tileWidth = 16;
 142                 map->tiles->rows = 1;
 143                 map->tiles->cols = 1;
 144                 map->tiles->debug_text = true;
 145         }
 146         else map->tiles->debug_text = false;
 147         return 0;
 148 }
 149
 150 //TODO: player position here
 151 void mapGoTo(map_view_t *mv, int tx, int ty)
 152 {
 153         int px, py;
 154         unsigned int i;
 155
 156         /* set up the coordinates */
 157         mv->tx = tx;
 158         mv->ty = ty;
 159         mv->page->delta = 0;
 160
 161         /* set up the thresholds */
 162         mv->dxThresh = mv->map->tiles[0]->tileWidth * 2;
 163         mv->dyThresh = mv->map->tiles[0]->tileHeight * 2;
 164
 165         /* draw the tiles */
 166         modexClearRegion(mv->page, 0, 0, mv->page->width, mv->page->height, 0);
 167         py=0;
 168         i=mv->ty * mv->map->width + mv->tx;
 169 /*      for(ty=mv[0].ty-1; py < mv[0].page->sh+mv->dyThresh && ty < mv[0].map->height; ty++, py+=mv[0].map->tiles->tileHeight) {
 170                 mapDrawWRow(&mv[0], tx-1, ty, py);
 171         i+=mv->map->width - tx;
 172         }
 173         if(!pageploop) modexCopyPageRegion(mv[1].page, mv[0].page, 0, 0, 0, 0, mv[0].page->width, mv[0].page->height);
 174 //      {
 175 //              unsigned int k,j,o;
 176 //              // fill screen with a distinctive pattern
 177 //              for (k=0;k < vga_state.vga_width;k++) {
 178 //                      o = k >> 2;
 179 //                      vga_write_sequencer(0x02/*map mask*//*,1 << (k&3));
 180 //                              for (j=0;j < (mv[0].page->height)+(mv[1].page->height)+(mv[2].page->height)+(mv[3].page->height);j++,o += vga_state.vga_stride)
 181 //                                      vga_state.vga_graphics_ram[o] = (k^j)&15; // VRL samples put all colors in first 15!
 182 //              }
 183 //      }
 184         modexCopyPageRegion(mv[3].page, mv[0].page, 0, 0, 0, 0, 24, 32);*/
 185 }
 186
 187 void near
 188 mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y)
 189 {
 190         word rx;
 191         word ry;
 192         word textx=0;
 193         word texty=0;
 194         //if(i==0) i=2;
 195         if(i==0)
 196         {
 197                 //wwww
 198                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, 0); //currently the over scan color!
 199         }
 200         else
 201         {
 202                 rx = (((i-1) % ((t->data->width)/t->tileWidth)) * t->tileWidth);
 203                 ry = (((i-1) / ((t->data->height)/t->tileHeight)) * t->tileHeight);
 204 ////0000printf("i=%d\n", i);
 205                 switch(t->debug_text)
 206                 {
 207                         case 0:
 208 #ifndef TILERENDER
 209                                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, ((t->debug_data[i])+1));
 210                                 //modexprint(page, x, y, 1, 15, 0, (char const *)(t->debug_data[i]));
 211 #else
 212                                 PBUFBFUN                (page, x, y, rx, ry, t->tileWidth, t->tileHeight, (t->data));
 213                                 /* then the sprite. note modding ram ptr means we just draw to (x&3,0) */
 214                                 //draw_vrl1_vgax_modex(x-rx,y-ry,vrl_header,vrl_lineoffs,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));
 215                                 //modexDrawBmpRegion    (page, x, y, rx, ry, t->tileWidth, t->tileHeight, (t->data));
 216 #endif
 217                         break;
 218                         case 1:
 219                                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, (t->debug_data[i])+1);
 220                                 //modexprintbig(page, x, y, 1, 15, 0, (t->debug_data));
 221                                 /*for(texty=0; texty<2; texty++)
 222                                 {
 223                                         for(textx=0; textx<2; textx++)
 224                                         {*/
 225 //                                              modexprint(page, x+(textx*8), y+(texty*8), 1, (word)(t->debug_data), 0, (t->debug_data));
 226 /*                                      }
 227                                 }*/
 228                         break;
 229                 }
 230         }
 231 }
 232
 233 unsigned char shinku_fps_indicator_page = 2;
 234 boolean pageflipflop = 1;
 235 boolean pageploop = 1;
 236
 237 /*      sync    */
 238 void shinku(global_game_variables_t *gv)
 239 {
 240         word x = (0) + gv->video.page[/*!*/(gv->video.p)].dx; // follow the screen
 241         word y = (0) + gv->video.page[/*!*/(gv->video.p)].dy; // follow the screen
 242         word w = 64, h = 8, col = 7, bgcol = 0, type = 1;
 243         byte o,o2,i;
 244         if(elapsed_timer(gv) >= (1.0 / gv->kurokku.frames_per_second))
 245         {
 246                 sprintf(gv->pee, "%.0f fps", (double)gv->kurokku.tiku/ticktock(gv));
 247                 //modexClearRegion(&(gv->video.page[shinku_fps_indicator_page]), x, y, w, h, 45);
 248                 modexprint(&(gv->video.page[/*!*/(gv->video.p)]), x, y, type, col, bgcol, gv->pee);
 249                 gv->kurokku.tiku=0;
 250         }else //copy dat sheet
 251         gv->kurokku.tiku++;
 252
 253         switch(gv->kurokku.fpscap)
 254         {
 255                 case 0:
 256                         gv->kurokku.frames_per_second=1;
 257                 break;
 258                 case 1:
 259                         //turn this off if XT
 260                         vga_wait_for_vsync();
 261                         gv->kurokku.frames_per_second=60;
 262                 break;
 263         }
 264         if(pageflipflop){
 265         if(gv->video.r){
 266                 if(!pageploop) modexCopyPageRegion(&(gv->video.page[(gv->video.p)]), &(gv->video.page[(!gv->video.p)]), 0, 0, 0, 0, gv->video.page[gv->video.p].width, gv->video.page[!gv->video.p].height);
 267                 modexShowPage(&(gv->video.page[gv->video.p]));
 268                 if(!pageploop) gv->video.p=!gv->video.p;
 269                 gv->video.r=!gv->video.r;
 270         }
 271         }
 272 }
 273
 274 void near animatePlayer(map_view_t *pip, player_t *player,  sword scrollswitch)
 275 {
 276         sword x = player->x;
 277         sword y = player->y;
 278         sword bx = x+16;        //buffer's x
 279         sword by = y+16;        //buffer's y
 280         word dire=32; //direction
 281         sword qq; //scroll offset
 282         word ls = player->persist_aniframe;
 283
 284         switch(scrollswitch)
 285         {
 286                 case 0:
 287                         qq = 0;
 288                 break;
 289                 default:
 290                         qq = ((player->q)*(player->speed));
 291                 break;
 292         }
 293         //x-=4;
 294         y-=pip->map->tiles->tileHeight;
 295         switch (player->d)
 296         {
 297                 case 0:
 298                         //up
 299                         dire*=player->d;
 300                         y-=qq;
 301                         by-=4;
 302                 break;
 303                 case 3:
 304                         // right
 305                         dire*=(player->d-2);
 306                         x+=qq;
 307                         bx+=4;
 308                 break;
 309                 case 2:
 310                 break;
 311                 case 4:
 312                         //down
 313                         dire*=(player->d-2);
 314                         y+=qq;
 315                         by+=4;
 316                 break;
 317                 case 1:
 318                         //left
 319                         dire*=(player->d+2);
 320                         x-=qq;
 321                         bx-=4;
 322                 break;
 323         }
 324
 325 #ifdef SPRITE
 326 #define FRAME1 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 48, dire, 24, 32, PLAYERBMPDATA);
 327 #define FRAME2 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 24, dire, 24, 32, PLAYERBMPDATA);
 328 #define FRAME3 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 0, dire, 24, 32,  PLAYERBMPDATA);
 329 #define FRAME4 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 24, dire, 24, 32, PLAYERBMPDATA);
 330 #else
 331 #define FRAME1 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 24, 32, 2+dire);
 332 #define FRAME2 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 24, 32, 1+dire);
 333 #define FRAME3 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 24, 32, dire);
 334 #define FRAME4 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 24, 32, 1+dire);
 335 #endif
 336         if(!pageflipflop)
 337                 modexCopyPageRegion(pip->page, pip->page, x-4, y-4, x-4, y-4, 28, 36);
 338         else{
 339                 //copy old bg to page0
 340                 //modexCopyPageRegion(pip[3].page, pip[0].page, bx, by, 0, 0,   20, 36);
 341                 //update buffer
 342                 //modexCopyPageRegion(pip[0].page, pip[3].page, 0, 0,   x, y,   20, 36);
 343         }
 344         switch(ls)
 345         {
 346                 case 1:
 347                         FRAME1
 348                 break;
 349                 case 2:
 350                         FRAME2
 351                 break;
 352                 case 3:
 353                         FRAME3
 354                 break;
 355                 case 4:
 356                         FRAME4
 357                 break;
 358         }
 359         pip->video->r=1;
 360 }