src/lib/_croll16.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/scroll16.h"
  26 #include "src/lib/16_sprite.h"
  27
  28 void walk(map_view_t *pip, player_t *player, word pn)
  29 {
  30         #define INC_PER_FRAME if(player[pn].q&1) player[pn].persist_aniframe++; if(player[pn].persist_aniframe>4) player[pn].persist_aniframe = 1;
  31         //printf("player[%d].d=%d\n", pn, player[pn].d);
  32         switch(player[pn].d)
  33         {
  34                 //no direction
  35                 case 2:
  36                         //0000pip[0].video->startclk = (*clockw);
  37                 break;
  38                 //right movement
  39                 case 3:
  40                         //printf("pip[0].page->tilesw=%d        ", pip[0].page->tilesw); printf("pip[0].page->tw=%d\n", pip[0].page->tw);
  41                         if(pip[0].tx >= 0 && pip[0].tx+pip[0].page->tw < pip[0].map->width && player[pn].tx == pip[0].tx+pip[0].page->tilemidposscreenx &&
  42                         !(pip[0].map->data[(player[pn].tx)+(pip[0].map->width*(player[pn].ty-1))] == 0))//!(player[pn].tx+1 == TRIGGX && player[pn].ty == TRIGGY))      //collision detection!
  43                         {
  44                                 if(player[pn].q<=player[pn].spt)
  45                                 {
  46                                         INC_PER_FRAME;
  47                                         animatePlayer(pip, player, pn, 1);
  48                                         ScrollRight(pip, player, 3, pn);
  49                                         ScrollRight(pip, player, 2, pn);
  50                                         mapScrollRight(pip, player, !(pip[0].video->p), pn);
  51                                         mapScrollRight(pip, player, (pip[0].video->p), pn);
  52                                         if(!pageflipflop) modexShowPage(pip[1].page);
  53                                         player[pn].q++;
  54                                         //0000pip[0].video->clk = ((*clockw)-pip[0].video->startclk)/18.2;
  55                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].tx++; }
  56                         }
  57                         else if(player[pn].tx < pip[0].map->width && !(pip[0].map->data[(player[pn].tx)+(pip[0].map->width*(player[pn].ty-1))] == 0))//!(player[pn].tx+1 == TRIGGX && player[pn].ty == TRIGGY))
  58                         {
  59                                 if(player[pn].q<=player[pn].spt)
  60                                 {
  61                                         INC_PER_FRAME;
  62                                         player[pn].x+=(player[pn].speed);
  63                                         animatePlayer(pip, player, pn, 0);
  64                                         if(!pageflipflop) modexShowPage(pip[1].page);
  65                                         player[pn].q++;
  66                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].tx++; }
  67                         }
  68                         else
  69                         {
  70                                 if(!pageflipflop) modexCopyPageRegion(pip[1].page, pip[0].page, player[pn].x, player[pn].y-TILEWH, player[pn].x, player[pn].y-TILEWH, 16, 32);
  71 #ifdef SPRITE
  72                                 //PBUFSFUN(pip[0].page, player[pn].x, player[pn].y-TILEWH, 16, 32, 16, 32, PLAYERBMPDATA);
  73                                 animate_spri(player[pn].spri);
  74 #else
  75                                 modexClearRegion(pip[1].page, player[pn].x, player[pn].y-TILEWH, 16, 32, 14);
  76 #endif
  77                                 if(!pageflipflop) modexShowPage(pip[1].page);
  78                                 player[pn].d = 2;
  79                         }
  80                         player[pn].triggerx = player[pn].tx+1;
  81                         player[pn].triggery = player[pn].ty;
  82                 break;
  83
  84                 //left movement
  85                 case 1:
  86                         if(pip[0].tx > 0 && pip[0].tx+pip[0].page->tw <= pip[0].map->width && player[pn].tx == pip[0].tx+pip[0].page->tilemidposscreenx &&
  87                         !(pip[0].map->data[(player[pn].tx-2)+(pip[0].map->width*(player[pn].ty-1))] == 0))//!(player[pn].tx-1 == TRIGGX && player[pn].ty == TRIGGY))    //collision detection!
  88                         {
  89                                 if(player[pn].q<=player[pn].spt)
  90                                 {
  91                                         INC_PER_FRAME;
  92                                         animatePlayer(pip, player, pn, 1);
  93                                         ScrollLeft(pip, player, 3, pn);
  94                                         ScrollLeft(pip, player, 2, pn);
  95                                         mapScrollLeft(pip, player, !(pip[0].video->p), pn);
  96                                         mapScrollLeft(pip, player, (pip[0].video->p), pn);
  97                                         if(!pageflipflop) modexShowPage(pip[1].page);
  98                                         player[pn].q++;
  99                                         //0000pip[0].video->clk = ((*clockw)-pip[0].video->startclk)/18.2;
 100                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].tx--; }
 101                         }
 102                         else if(player[pn].tx > 1 && !(pip[0].map->data[(player[pn].tx-2)+(pip[0].map->width*(player[pn].ty-1))] == 0))//!(player[pn].tx-1 == TRIGGX && player[pn].ty == TRIGGY))
 103                         {
 104                                 if(player[pn].q<=player[pn].spt)
 105                                 {
 106                                         INC_PER_FRAME;
 107                                         player[pn].x-=(player[pn].speed);
 108                                         animatePlayer(pip, player, pn, 0);
 109                                         if(!pageflipflop) modexShowPage(pip[1].page);
 110                                         player[pn].q++;
 111                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].tx--; }
 112                         }
 113                         else
 114                         {
 115                                 if(!pageflipflop) modexCopyPageRegion(pip[1].page, pip[0].page, player[pn].x, player[pn].y-TILEWH, player[pn].x, player[pn].y-TILEWH, 16, 32);
 116 #ifdef SPRITE
 117                                 //PBUFSFUN(pip[0].page, player[pn].x, player[pn].y-TILEWH, 16, 96, 16, 32, PLAYERBMPDATA);
 118                                 animate_spri(player[pn].spri);
 119 #else
 120                                 modexClearRegion(pip[1].page, player[pn].x, player[pn].y-TILEWH, 16, 32, 10);
 121 #endif
 122                                 if(!pageflipflop) modexShowPage(pip[1].page);
 123                                 player[pn].d = 2;
 124                         }
 125                         player[pn].triggerx = player[pn].tx-1;
 126                         player[pn].triggery = player[pn].ty;
 127                 break;
 128
 129                 //down movement
 130                 case 4:
 131                         if(pip[0].ty >= 0 && pip[0].ty+pip[0].page->th < pip[0].map->height && player[pn].ty == pip[0].ty+pip[0].page->tilemidposscreeny &&
 132                         !(pip[0].map->data[(player[pn].tx-1)+(pip[0].map->width*(player[pn].ty))] == 0))//!(player[pn].tx == TRIGGX && player[pn].ty+1 == TRIGGY))      //collision detection!
 133                         {
 134                                 if(player[pn].q<=player[pn].spt)
 135                                 {
 136                                         INC_PER_FRAME;
 137                                         animatePlayer(pip, player, pn, 1);
 138                                         ScrollDown(pip, player, 3, pn);
 139                                         ScrollDown(pip, player, 2, pn);
 140                                         mapScrollDown(pip, player, !(pip[0].video->p), pn);
 141                                         mapScrollDown(pip, player, (pip[0].video->p), pn);
 142                                         if(!pageflipflop) modexShowPage(pip[1].page);
 143                                         player[pn].q++;
 144                                         //0000pip[0].video->clk = ((*clockw)-pip[0].video->startclk)/18.2;
 145                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].ty++; }
 146                         }
 147                         else if(player[pn].ty < pip[0].map->height && !(pip[0].map->data[(player[pn].tx-1)+(pip[0].map->width*(player[pn].ty))] == 0))//!(player[pn].tx == TRIGGX && player[pn].ty+1 == TRIGGY))
 148                         {
 149                                 if(player[pn].q<=player[pn].spt)
 150                                 {
 151                                         INC_PER_FRAME;
 152                                         player[pn].y+=(player[pn].speed);
 153                                         animatePlayer(pip, player, pn, 0);
 154                                         if(!pageflipflop) modexShowPage(pip[1].page);
 155                                         player[pn].q++;
 156                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].ty++; }
 157                         }
 158                         else
 159                         {
 160                                 if(!pageflipflop) modexCopyPageRegion(pip[1].page, pip[0].page, player[pn].x, player[pn].y-TILEWH, player[pn].x, player[pn].y-TILEWH, 16, 32);
 161 #ifdef SPRITE
 162                                 //PBUFSFUN(pip[0].page, player[pn].x, player[pn].y-TILEWH, 16, 64, 16, 32, PLAYERBMPDATA);
 163                                 animate_spri(player[pn].spri);
 164 #else
 165                                 modexClearRegion(pip[1].page, player[pn].x, player[pn].y-TILEWH, 16, 32, 9);
 166 #endif
 167                                 if(!pageflipflop) modexShowPage(pip[1].page);
 168                                 player[pn].d = 2;
 169                         }
 170                         player[pn].triggerx = player[pn].tx;
 171                         player[pn].triggery = player[pn].ty+1;
 172                 break;
 173
 174                 //up movement
 175                 case 0:
 176                         if(pip[0].ty > 0 && pip[0].ty+pip[0].page->th <= pip[0].map->height && player[pn].ty == pip[0].ty+pip[0].page->tilemidposscreeny &&
 177                         !(pip[0].map->data[(player[pn].tx-1)+(pip[0].map->width*(player[pn].ty-2))] == 0))//!(player[pn].tx == TRIGGX && player[pn].ty-1 == TRIGGY))    //collision detection!
 178                         {
 179                                 if(player[pn].q<=player[pn].spt)
 180                                 {
 181                                         INC_PER_FRAME;
 182                                         animatePlayer(pip, player, pn, 1);
 183                                         ScrollUp(pip, player, 3, pn);
 184                                         ScrollUp(pip, player, 2, pn);
 185                                         mapScrollUp(pip, player, !(pip[0].video->p), pn);
 186                                         mapScrollUp(pip, player, (pip[0].video->p), pn);
 187                                         if(!pageflipflop) modexShowPage(pip[1].page);
 188                                         player[pn].q++;
 189                                         //0000pip[0].video->clk = ((*clockw)-pip[0].video->startclk)/18.2;
 190                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].ty--; }
 191                         }
 192                         else if(player[pn].ty > 1 && !(pip[0].map->data[(player[pn].tx-1)+(pip[0].map->width*(player[pn].ty-2))] == 0))//!(player[pn].tx == TRIGGX &&  player[pn].ty-1 == TRIGGY))
 193                         {
 194                                 if(player[pn].q<=player[pn].spt)
 195                                 {
 196                                         INC_PER_FRAME;
 197                                         player[pn].y-=(player[pn].speed);
 198                                         animatePlayer(pip, player, 0, pn);
 199                                         if(!pageflipflop) modexShowPage(pip[1].page);
 200                                         player[pn].q++;
 201                                 } else { player[pn].q = 1; player[pn].d = 2; player[pn].ty--; }
 202                         }
 203                         else
 204                         {
 205                                 if(!pageflipflop) modexCopyPageRegion(pip[1].page, pip[0].page, player[pn].x, player[pn].y-TILEWH, player[pn].x, player[pn].y-TILEWH, 16, 32);
 206 #ifdef SPRITE
 207                                 //PBUFSFUN(pip[0].page, player[pn].x, player[pn].y-TILEWH, 16, 0, 16, 32, PLAYERBMPDATA);
 208                                 animate_spri(player[pn].spri);
 209 #else
 210                                 modexClearRegion(pip[1].page, player[pn].x, player[pn].y-TILEWH, 16, 32, 12);
 211 #endif
 212                                 if(!pageflipflop) modexShowPage(pip[1].page);
 213                                 player[pn].d = 2;
 214                         }
 215                         player[pn].triggerx = player[pn].tx;
 216                         player[pn].triggery = player[pn].ty-1;
 217                 break;
 218         }
 219 }
 220
 221 //panning page
 222 void panpagemanual(map_view_t *pip, player_t *player, word pn)
 223 {
 224         switch(player[pn].d)
 225         {
 226                 //right movement
 227                 case 3:
 228                         if(pip[pip[0].pan->pn].tx >= 0 && pip[pip[0].pan->pn].tx+pip[pip[0].pan->pn].page->tw < pip[pip[0].pan->pn].page->tilesw)
 229                         {
 230                                 if(player[pn].q<=player[pn].spt)
 231                                 {
 232                                         pip[pip[0].pan->pn].page->dx+=4;
 233                                         modexShowPage(pip[pip[0].pan->pn].page);
 234                                         player[pn].q++;
 235                                 } else { player[pn].q = 1; player[pn].d = 2; pip[pip[0].pan->pn].tx++; }
 236                         }
 237                 break;
 238
 239                 //left movement
 240                 case 1:
 241                         if(pip[pip[0].pan->pn].tx > 0 && pip[pip[0].pan->pn].tx+pip[pip[0].pan->pn].page->tw <= pip[pip[0].pan->pn].page->tilesw)
 242                         {
 243                                 if(player[pn].q<=player[pn].spt)
 244                                 {
 245                                         pip[pip[0].pan->pn].page->dx-=4;
 246                                         modexShowPage(pip[pip[0].pan->pn].page);
 247                                         player[pn].q++;
 248                                 } else { player[pn].q = 1; player[pn].d = 2; pip[pip[0].pan->pn].tx--; }
 249                         }
 250                 break;
 251
 252                 //down movement
 253                 case 4:
 254                         if(pip[pip[0].pan->pn].ty >= 0 && pip[pip[0].pan->pn].ty+pip[pip[0].pan->pn].page->th < pip[pip[0].pan->pn].page->tilesh)
 255                         {
 256                                 if(player[pn].q<=player[pn].spt)
 257                                 {
 258                                         pip[pip[0].pan->pn].page->dy+=4;
 259                                         modexShowPage(pip[pip[0].pan->pn].page);
 260                                         player[pn].q++;
 261                                 } else { player[pn].q = 1; player[pn].d = 2; pip[pip[0].pan->pn].ty++; }
 262                         }
 263                 break;
 264
 265                 //up movement
 266                 case 0:
 267                         if(pip[pip[0].pan->pn].ty > 0 && pip[pip[0].pan->pn].ty+pip[pip[0].pan->pn].page->th <= pip[pip[0].pan->pn].page->tilesh)
 268                         {
 269                                 if(player[pn].q<=player[pn].spt)
 270                                 {
 271                                         pip[pip[0].pan->pn].page->dy-=4;
 272                                         modexShowPage(pip[pip[0].pan->pn].page);
 273                                         player[pn].q++;
 274                                 } else { player[pn].q = 1; player[pn].d = 2; pip[pip[0].pan->pn].ty--; }
 275                         }
 276                         break;
 277         }
 278         //if (player[pn].d!=2) printf("player[%u].d=%u player[%u].q=%u\n", pn, player[pn].d, pn, player[pn].q);
 279 }
 280
 281 /*map_t
 282 allocMap(int w, int h) {
 283         map_t result;
 284
 285         result.width =w;
 286         result.height=h;
 287         result.data = malloc(sizeof(byte) * w * h);
 288         //result.data = (byte *)alloc_emem(((int)sizeof(byte) * w * h)/1024);
 289         if(isEMS() || checkEMS())
 290         {
 291                 XMOVE mm;
 292                 //emmhandle = mallocEMS(coretotalEMS());//alloc_emem((int)sizeof(map))
 293                 mm.length=sizeof(result);
 294                 mm.sourceH=0;
 295                 mm.sourceOff=ptr2long(&result);
 296                 mm.destH=emmhandle;
 297                 mm.destOff=0;
 298                 ist = move_emem(&mm);
 299                 if(!ist){ dealloc_emem(emmhandle); exit(5); }
 300                 printf("%d\n", coretotalEMS());
 301         }
 302
 303         return result;
 304 }*/
 305
 306 /*void
 307 initMap(map_t *map) {
 308         // just a place holder to fill out an alternating pattern
 309         int x, y, xx, yy;
 310         int i, q;
 311 //      int tile = 1;
 312         //if(!isEMS() || !checkEMS())
 313 //              map->tiles = malloc(sizeof(tiles_t));
 314         //else
 315         //      map->tiles = (tiles_t *)alloc_emem(sizeof(tiles_t));
 316
 317          //create the tile set
 318         //if(!isEMS() || !checkEMS())
 319 //              map->tiles->data = malloc(sizeof(bitmap_t));
 320         //else
 321         //      map->tiles->data = (bitmap_t *)alloc_emem(sizeof(bitmap_t));
 322 //      map->tiles->data->width = (TILEWH);
 323 //      map->tiles->data->height= TILEWH;
 324         //if(!isEMS() || !checkEMS())
 325 //              map->tiles->data->data = malloc((TILEWH*2)*TILEWH);
 326         //else
 327         //      map->tiles->data->data = (byte *)alloc_emem((TILEWH*2)*TILEWH);
 328 //      map->tiles->tileHeight = TILEWH;
 329 //      map->tiles->tileWidth =TILEWH;
 330 //      map->tiles->rows = 1;
 331 //      map->tiles->cols = 1;//2;
 332
 333         q=0;
 334         //for(y=0; y<map->height; y++) {
 335         //for(x=0; x<map->width; x++) {
 336         i=0;
 337         for(yy=0; yy<TILEWH; yy++) {
 338         for(xx=0; xx<(TILEWH); xx++) {
 339                 //if(x<TILEWH){
 340                   map->tiles->data->data[i+1] = map->data[q];//28;//0x24;
 341 //                printf("[%d]", map->tiles->data->data[i]);
 342                 //}else{
 343                   //map->tiles->data->data[i] = map->data[q];//0;//0x34;
 344                   //printf("]%d[==[%d]", i, map->tiles->data->data[i]);
 345                 //}
 346                 i++;
 347         }
 348 //      printf("\n");
 349         }
 350 //      printf("[%d]", map->data[q]);
 351         q++;
 352 //      }
 353         //printf("\n\n");
 354 //      }
 355
 356         i=0;
 357         for(y=0; y<map->height; y++) {
 358                 for(x=0; x<map->width; x++) {
 359 //                      map->data[i]=255;
 360                         printf("[%d]", map->data[i]);
 361                         //tile = tile ? 0 : 1;
 362                         i++;
 363                 }
 364                 //tile = tile ? 0 : 1;
 365         }
 366 }*/
 367
 368 void near mapScrollRight(map_view_t *mv, player_t *player, word id, word plid)
 369 {
 370         word x, y;  /* coordinate for drawing */
 371
 372         /* increment the pixel position and update the page */
 373         mv[id].page->dx += player[plid].speed;
 374
 375         /* check to see if this changes the tile */
 376         if(mv[id].page->dx >= mv[id].dxThresh )
 377         {
 378         /* go forward one tile */
 379         mv[id].tx++;
 380         /* Snap the origin forward */
 381         mv[id].page->data += 4;
 382
 383         mv[id].page->dx = mv[id].map->tiles->tileWidth;
 384         }
 385
 386         /* draw the next column */
 387         x= mv[0].page->sw + mv[id].map->tiles->tileWidth;
 388         if(player[plid].q%4)
 389                 if(id==0)
 390                         mapDrawCol(&mv[0], mv[0].tx + mv[0].page->tw, mv[0].ty-1, x, player, mv->page->dx);
 391                 else
 392                         if(!pageflipflop && !pageploop)
 393                                 modexCopyPageRegion(mv[id].page, mv[0].page, x, 0, x, 0, mv[id].map->tiles->tileWidth, mv[id].map->tiles->tileHeight*(mv[0].page->th+2));
 394         mv[0].video->r=1;
 395 }
 396
 397
 398 void near mapScrollLeft(map_view_t *mv, player_t *player, word id, word plid)
 399 {
 400         word x, y;  /* coordinate for drawing */
 401
 402         /* decrement the pixel position and update the page */
 403         mv[id].page->dx -= player[plid].speed;
 404
 405         /* check to see if this changes the tile */
 406         if(mv[id].page->dx == 0)
 407         {
 408         /* go backward one tile */
 409         mv[id].tx--;
 410         /* Snap the origin backward */
 411         mv[id].page->data -= 4;
 412
 413         mv[id].page->dx = mv[id].map->tiles->tileWidth;
 414         }
 415
 416         /* draw the next column */
 417         x= 0;
 418         if(player[plid].q%4)
 419                 if(id==0)
 420                         mapDrawCol(&mv[0], mv[0].tx - 1, mv[0].ty-1, x, player, mv->page->dx);
 421                 else
 422                         if(!pageflipflop && !pageploop)
 423                                 modexCopyPageRegion(mv[id].page, mv[0].page, x, 0, x, 0, mv[id].map->tiles->tileWidth, mv[id].map->tiles->tileHeight*(mv[0].page->th+2));
 424         mv[0].video->r=1;
 425 }
 426
 427
 428 void near mapScrollUp(map_view_t *mv, player_t *player, word id, word plid)
 429 {
 430         word x, y;  /* coordinate for drawing */
 431
 432         /* decrement the pixel position and update the page */
 433         mv[id].page->dy -= player[plid].speed;
 434
 435         /* check to see if this changes the tile */
 436         if(mv[id].page->dy == 0 )
 437         {
 438         /* go down one tile */
 439         mv[id].ty--;
 440         /* Snap the origin downward */
 441         mv[id].page->data -= mv[id].page->pi;
 442
 443         mv[id].page->dy = mv[id].map->tiles->tileHeight;
 444         }
 445
 446         /* draw the next row */
 447         y= 0;
 448         if(player[plid].q%3)
 449                 if(id==0)
 450                         mapDrawRow(&mv[0], mv[0].tx - 1, mv[0].ty-1, y, player, mv->page->dy);
 451                 else
 452                         if(!pageflipflop && !pageploop)
 453                                 modexCopyPageRegion(mv[id].page, mv[0].page, 0, y, 0, y, mv[id].map->tiles->tileWidth*(mv[0].page->tw+2), mv[id].map->tiles->tileHeight);
 454         mv[0].video->r=1;
 455 }
 456
 457 void near mapScrollDown(map_view_t *mv, player_t *player, word id, word plid)
 458 {
 459         word x, y;  /* coordinate for drawing */
 460
 461         /* increment the pixel position and update the page */
 462         mv[id].page->dy += player[plid].speed;
 463
 464         /* check to see if this changes the tile */
 465         if(mv[id].page->dy >= mv[id].dyThresh )
 466         {
 467         /* go down one tile */
 468         mv[id].ty++;
 469         /* Snap the origin downward */
 470         mv[id].page->data += mv[id].page->pi;
 471
 472         mv[id].page->dy = mv[id].map->tiles->tileHeight;
 473         }
 474
 475         /* draw the next row */
 476         y= mv[0].page->sh + mv[id].map->tiles->tileHeight;
 477         if(player[plid].q%3)
 478                 if(id==0)
 479                         mapDrawRow(&mv[0], mv[0].tx - 1, mv[0].ty+mv[0].page->th, y, player, mv->page->dy);
 480                 else
 481                         if(!pageflipflop && !pageploop)
 482                                 modexCopyPageRegion(mv[id].page, mv[0].page, 0, y, 0, y, mv[id].map->tiles->tileWidth*(mv[0].page->tw+2), mv[id].map->tiles->tileHeight);
 483         mv[0].video->r=1;
 484 }
 485
 486
 487 //TODO finish this wwww
 488 void near ScrollRight(map_view_t *mv, player_t *player, word id, word plid)
 489 {
 490         /* increment the pixel position and update the page */
 491         mv[id].page->dx += player[plid].speed;
 492
 493         /* check to see if this changes the tile */
 494         if(mv[id].page->dx >= mv[0].dxThresh )
 495         {
 496 //              vga_setup_wm1_block_copy();
 497 //              _fmemmove(mv[id].page->data+4, mv[id].page->data, mv[id].page->pagesize);
 498 //              vga_restore_rm0wm0();
 499                 /* Snap the origin forward */
 500                 mv[id].page->data += 4;
 501                 mv[id].page->dx = mv[0].map->tiles->tileWidth;
 502         }
 503 }
 504
 505 void near ScrollLeft(map_view_t *mv, player_t *player, word id, word plid)
 506 {
 507         /* decrement the pixel position and update the page */
 508         mv[id].page->dx -= player[plid].speed;
 509
 510         /* check to see if this changes the tile */
 511         if(mv[id].page->dx == 0)
 512         {
 513 //              vga_setup_wm1_block_copy();
 514 //              _fmemmove(mv[id].page->data-4, mv[id].page->data, mv[id].page->pagesize);
 515 //              vga_restore_rm0wm0();
 516                 /* Snap the origin backward */
 517                 mv[id].page->data -= 4;
 518                 mv[id].page->dx = mv[0].map->tiles->tileWidth;
 519         }
 520 }
 521
 522 void near ScrollUp(map_view_t *mv, player_t *player, word id, word plid)
 523 {
 524         /* decrement the pixel position and update the page */
 525         mv[id].page->dy -= player[plid].speed;
 526
 527         /* check to see if this changes the tile */
 528         if(mv[id].page->dy == 0)
 529         {
 530 //              vga_setup_wm1_block_copy();
 531 //              _fmemmove(mv[id].page->data-mv[id].page->pi, mv[id].page->data, mv[id].page->pagesize);
 532 //              vga_restore_rm0wm0();
 533                 /* Snap the origin backward */
 534                 mv[id].page->data -= mv[id].page->pi;
 535                 mv[id].page->dy = mv[0].map->tiles->tileWidth;
 536         }
 537 }
 538
 539 void near ScrollDown(map_view_t *mv, player_t *player, word id, word plid)
 540 {
 541         /* increment the pixel position and update the page */
 542         mv[id].page->dy += player[plid].speed;
 543
 544         /* check to see if this changes the tile */
 545         if(mv[id].page->dy >= mv[0].dxThresh )
 546         {
 547 //              vga_setup_wm1_block_copy();
 548 //              _fmemmove(mv[id].page->data+mv[id].page->pi, mv[id].page->data, mv[id].page->pagesize);
 549 //              vga_restore_rm0wm0();
 550                 /* Snap the origin forward */
 551                 mv[id].page->data += mv[id].page->pi;
 552                 mv[id].page->dy = mv[0].map->tiles->tileWidth;
 553         }
 554 }
 555
 556 sword chkmap(map_t *map, word q)
 557 {
 558 //      bitmap_t bp;
 559         static byte x[(MAPW*MAPH)+1] =
 560 { 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 };
 561 /*1,    2,      3,      4,      0,      3,      3,      3,      3,      3,      3,      3,      3,      4,      1,      1,      1,      1,      1,      1,      \
 562 5,      6,      7,      8,      0,      1,      0,      1,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 563 9,      10,     11,     12,     4,      1,      0,      1,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 564 13,     14,     15,     16,     0,      1,      1,      1,      5,      8,      1,      11,     11,     1,      1,      1,      1,      1,      1,      1,      \
 565 0,      0,      4,      0,      0,      0,      0,      0,      8,      8,      1,      11,     11,     3,      1,      1,      1,      1,      1,      1,      \
 566 1,      1,      1,      1,      0,      0,      0,      0,      8,      8,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 567 1,      1,      1,      1,      0,      0,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 568 1,      1,      1,      1,      0,      0,      0,      0,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 569 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 570 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 571 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 572 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 573 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      1,      1,      1,      \
 574 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      \
 575 1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      1,      3,      3,      3,      3,      1,      2,      3,      4 };*/
 576         //check for failed to load map
 577         if((map->width == map->height == 0) && (q>0))
 578         {
 579                 //initiate a null map!
 580                 map->width=MAPW;///2;
 581                 map->height=MAPH;///2;
 582 //              map->data = malloc(((map->width*map->height)+1)*sizeof(byte));
 583                 map->data = &x;
 584                 map->tiles = malloc(sizeof(tiles_t));
 585                 //fix this to be far~
 586 //              bp = bitmapLoadPcx("data/ed.pcx");
 587 //              map->tiles->data = &bp;
 588                 map->tiles->debug_data = map->data;
 589                 map->tiles->tileHeight = 16;
 590                 map->tiles->tileWidth = 16;
 591                 map->tiles->rows = 1;
 592                 map->tiles->cols = 1;
 593                 map->tiles->debug_text = true;
 594         }
 595         else map->tiles->debug_text = false;
 596         return 0;
 597 }
 598
 599 //TODO: player position here
 600 void mapGoTo(map_view_t *mv, int tx, int ty)
 601 {
 602         int px, py;
 603         unsigned int i;
 604
 605         /* set up the coordinates */
 606         mv[0].tx = mv[1].tx = tx;
 607         mv[0].ty = mv[1].ty = ty;
 608         mv[0].page->dx = mv[1].page->dx = mv[2].page->dx = mv[3].page->dx = mv->map->tiles->tileWidth;
 609         mv[0].page->dy = mv[1].page->dy = mv[2].page->dy = mv[3].page->dy = mv->map->tiles->tileHeight;
 610
 611         /* set up the thresholds */
 612         mv[0].dxThresh = mv[1].dxThresh = mv[2].dxThresh = mv[3].dxThresh = mv->map->tiles->tileWidth * 2;
 613         mv[0].dyThresh = mv[1].dyThresh = mv[2].dxThresh = mv[3].dxThresh = mv->map->tiles->tileHeight * 2;
 614
 615         /* draw the tiles */
 616         modexClearRegion(mv[0].page, 0, 0, mv[0].page->width, mv[0].page->height, 0);
 617         py=0;
 618         i=mv[0].ty * mv[0].map->width + mv[0].tx;
 619         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) {
 620                 mapDrawWRow(&mv[0], tx-1, ty, py);
 621         i+=mv->map->width - tx;
 622         }
 623         if(!pageploop) modexCopyPageRegion(mv[1].page, mv[0].page, 0, 0, 0, 0, mv[0].page->width, mv[0].page->height);
 624 //      {
 625 //              unsigned int k,j,o;
 626 //              /* fill screen with a distinctive pattern */
 627 //              for (k=0;k < vga_state.vga_width;k++) {
 628 //                      o = k >> 2;
 629 //                      vga_write_sequencer(0x02/*map mask*/,1 << (k&3));
 630 //                              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)
 631 //                                      vga_state.vga_graphics_ram[o] = (k^j)&15; // VRL samples put all colors in first 15!
 632 //              }
 633 //      }
 634         modexCopyPageRegion(mv[3].page, mv[0].page, 0/**/, 0/**/, 0, 0, 16, 32);
 635 }
 636
 637 void near
 638 mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y)
 639 {
 640         word rx;
 641         word ry;
 642         word textx=0;
 643         word texty=0;
 644         //if(i==0) i=2;
 645         if(i==0)
 646         {
 647                 //wwww
 648                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, 0); //currently the over scan color!
 649         }
 650         else
 651         {
 652                 rx = (((i-1) % ((t->data->width)/t->tileWidth)) * t->tileWidth);
 653                 ry = (((i-1) / ((t->data->height)/t->tileHeight)) * t->tileHeight);
 654 ////0000printf("i=%d\n", i);
 655                 switch(t->debug_text)
 656                 {
 657                         case 0:
 658 #ifndef TILERENDER
 659                                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, ((t->debug_data[i])+1));
 660                                 //modexprint(page, x, y, 1, 15, 0, (char const *)(t->debug_data[i]));
 661 #else
 662                                 PBUFBFUN                (page, x, y, rx, ry, t->tileWidth, t->tileHeight, (t->data));
 663                                 /* then the sprite. note modding ram ptr means we just draw to (x&3,0) */
 664                                 //draw_vrl1_vgax_modex(x-rx,y-ry,vrl_header,vrl_lineoffs,buffer+sizeof(*vrl_header),bufsz-sizeof(*vrl_header));
 665                                 //modexDrawBmpRegion    (page, x, y, rx, ry, t->tileWidth, t->tileHeight, (t->data));
 666 #endif
 667                         break;
 668                         case 1:
 669                                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, (t->debug_data[i])+1);
 670                                 //modexprintbig(page, x, y, 1, 15, 0, (t->debug_data));
 671                                 /*for(texty=0; texty<2; texty++)
 672                                 {
 673                                         for(textx=0; textx<2; textx++)
 674                                         {*/
 675 //                                              modexprint(page, x+(textx*8), y+(texty*8), 1, (word)(t->debug_data), 0, (t->debug_data));
 676 /*                                      }
 677                                 }*/
 678                         break;
 679                 }
 680         }
 681 }
 682
 683 void near mapDrawRow(map_view_t *mv, int tx, int ty, word y, player_t *p, word poopoffset)
 684 {
 685         word x;
 686         int i;
 687         poopoffset%=p[0].speed;
 688 //printf("y: %d\n", poopoffset);
 689         /* the position within the map array */
 690         i=ty * mv->map->width + tx;
 691         for(x=poopoffset; x<(mv->page->sw+mv->dxThresh)/(poopoffset+1) && tx < mv->map->width; x+=mv->map->tiles->tileWidth, tx++) {
 692         if(i>=0) {
 693                 /* we are in the map, so copy! */
 694                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
 695         }
 696         i++; /* next! */
 697         }
 698 }
 699
 700 void near mapDrawCol(map_view_t *mv, int tx, int ty, word x, player_t *p, word poopoffset)
 701 {
 702         int y;
 703         int i;
 704         poopoffset%=p[0].speed;
 705 //printf("x: %d\n", poopoffset);
 706         /* location in the map array */
 707         i=ty * mv->map->width + tx;
 708
 709         /* We'll copy all of the columns in the screen,
 710            i + 1 row above and one below */
 711         for(y=poopoffset; y<(mv->page->sh+mv->dyThresh)/(poopoffset+1) && ty < mv->map->height; y+=mv->map->tiles->tileHeight, ty++) {
 712         if(i>=0) {
 713                 /* we are in the map, so copy away! */
 714                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
 715         }
 716         i += mv->map->width;
 717         }
 718 }
 719
 720 void mapDrawWRow(map_view_t *mv, int tx, int ty, word y)
 721 {
 722         word x;
 723         int i;
 724
 725         /* the position within the map array */
 726         i=ty * mv->map->width + tx;
 727         for(x=0; x<mv->page->sw+mv->dxThresh && tx < mv->map->width; x+=mv->map->tiles->tileWidth, tx++) {
 728         if(i>=0) {
 729                 /* we are in the map, so copy! */
 730                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
 731         }
 732         i++; /* next! */
 733         }
 734 }
 735
 736 void mapDrawWCol(map_view_t *mv, int tx, int ty, word x)
 737 {
 738         int y;
 739         int i;
 740
 741         /* location in the map array */
 742         i=ty * mv->map->width + tx;
 743
 744         /* We'll copy all of the columns in the screen,
 745            i + 1 row above and one below */
 746         for(y=0; y<mv->page->sh+mv->dyThresh && ty < mv->map->height; y+=mv->map->tiles->tileHeight, ty++) {
 747         if(i>=0) {
 748                 /* we are in the map, so copy away! */
 749                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);
 750         }
 751         i += mv->map->width;
 752         }
 753 }
 754
 755 /*void qclean()
 756 {
 757         //setkb(0);
 758 }*/
 759
 760 unsigned char shinku_fps_indicator_page = 2;
 761 boolean pageflipflop = 1;
 762 boolean pageploop = 1;
 763
 764 /*      sync    */
 765 void shinku(global_game_variables_t *gv)
 766 {
 767         word x = (0) + gv->video.page[/*!*/(gv->video.p)].dx; // follow the screen
 768         word y = (0) + gv->video.page[/*!*/(gv->video.p)].dy; // follow the screen
 769         word w = 64, h = 8, col = 7, bgcol = 0, type = 1;
 770         byte o,o2,i;
 771         //modexCopyPageRegion(pip[1].page, pip[2].page, 16, 16, 16, 16, (14*8)+4, 8+4);
 772         /* block copy to visible RAM from offscreen */
 773 //      vga_setup_wm1_block_copy();
 774 //      modexCopyPageRegion(&(gv->video.page[shinku_fps_indicator_page]), &(gv->video.page[!shinku_fps_indicator_page]), x, y, x+w, 0, w, h);
 775 //      o =     *(gv->video.page[2].data); // source offscreen
 776 //      o2 =    *(gv->video.page[shinku_fps_indicator_page].data)+(y * vga_state.vga_stride) + (x >> 2); // dest visible (original stride)
 777 //      for (i=0;i < h;i++,o += vga_state.vga_draw_stride,o2 += vga_state.vga_stride) vga_wm1_mem_block_copy(o2,o,w >> 2);
 778         /* must restore Write Mode 0/Read Mode 0 for this code to continue drawing normally */
 779 //      vga_restore_rm0wm0();
 780         if(elapsed_timer(gv) >= (1.0 / gv->kurokku.frames_per_second))
 781         {
 782                 sprintf(gv->pee, "%.0f fps", (double)gv->kurokku.tiku/ticktock(gv));
 783                 //modexClearRegion(&(gv->video.page[shinku_fps_indicator_page]), x, y, w, h, 45);
 784                 modexprint(&(gv->video.page[/*!*/(gv->video.p)]), x, y, type, col, bgcol, gv->pee);
 785                 gv->kurokku.tiku=0;
 786                 /* block copy to visible RAM from offscreen */
 787 //              vga_setup_wm1_block_copy();
 788 //              o =     *(gv->video.page[shinku_fps_indicator_page].data); // source offscreen
 789 //              o2 =    *(gv->video.page[2].data)+(y * vga_state.vga_stride) + (x >> 2); // dest visible (original stride)
 790 //              for (i=0;i < h;i++,o += vga_state.vga_draw_stride,o2 += vga_state.vga_stride) vga_wm1_mem_block_copy(o2,o,w >> 2);
 791 //              modexCopyPageRegion(&(gv->video.page[shinku_fps_indicator_page]), &(gv->video.page[!shinku_fps_indicator_page]), x, y, x, 0, w, h);
 792                 /* must restore Write Mode 0/Read Mode 0 for this code to continue drawing normally */
 793 //              vga_restore_rm0wm0();
 794         }else //copy dat sheet
 795         gv->kurokku.tiku++;
 796
 797         switch(gv->kurokku.fpscap)
 798         {
 799                 case 0:
 800                         //modexprint(&(gv->video.page[shinku_fps_indicator_page]), x, y+8, type, col, bgcol, "sanic!");
 801                         gv->kurokku.frames_per_second=1;
 802                 break;
 803                 case 1:
 804                         //turn this off if XT
 805                         //modexWaitBorder();
 806                         vga_wait_for_vsync();
 807                         gv->kurokku.frames_per_second=60;
 808                 break;
 809         }
 810         if(pageflipflop){
 811         if(gv->video.r){
 812                 //vga_setup_wm1_block_copy();
 813                 //_fmemcpy((gv->video.page[(gv->video.p)]).data, (gv->video.page[(!gv->video.p)]).data, gv->video.page[(!gv->video.p)].pagesize);
 814                 //vga_restore_rm0wm0();
 815                 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);
 816                 modexShowPage(&(gv->video.page[gv->video.p]));
 817                 if(!pageploop) gv->video.p=!gv->video.p;
 818                 gv->video.r=!gv->video.r;
 819                 //0000gv->video.tickclk = ((*clockw)-gv->video.startclk)/18.2;
 820         }
 821         }
 822 }
 823
 824 void near animatePlayer(map_view_t *pip, player_t *player, word pn, sword scrollswitch)
 825 {
 826         sword x = player[pn].x;
 827         sword y = player[pn].y;
 828         sword bx = x+16;        //buffer's x
 829         sword by = y+16;        //buffer's y
 830         word dire=32; //direction
 831         sword qq; //scroll offset
 832         word ls = player[pn].persist_aniframe;
 833
 834         switch(scrollswitch)
 835         {
 836                 case 0:
 837                         qq = 0;
 838                 break;
 839                 default:
 840                         qq = ((player[pn].q)*(player[pn].speed));
 841                 break;
 842         }
 843         //x-=4;
 844         y-=pip[0].map->tiles->tileHeight;
 845         switch (player[pn].d)
 846         {
 847                 case 0:
 848                         //up
 849                         dire*=player[pn].d;
 850                         y-=qq;
 851                         by-=4;
 852                 break;
 853                 case 3:
 854                         // right
 855                         dire*=(player[pn].d-2);
 856                         x+=qq;
 857                         bx+=4;
 858                 break;
 859                 case 2:
 860                 break;
 861                 case 4:
 862                         //down
 863                         dire*=(player[pn].d-2);
 864                         y+=qq;
 865                         by+=4;
 866                 break;
 867                 case 1:
 868                         //left
 869                         dire*=(player[pn].d+2);
 870                         x-=qq;
 871                         bx-=4;
 872                 break;
 873         }
 874
 875 #ifdef SPRITE
 876 //#define FRAME1 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 32, dire, 16, 32,       PLAYERBMPDATA);
 877 //#define FRAME2 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 16, dire, 16, 32,       PLAYERBMPDATA);
 878 //#define FRAME3 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 0, dire, 16, 32,        PLAYERBMPDATA);
 879 //#define FRAME4 PBUFSFUN(pip[/*!*/(pip->video->p)].page, x, y, 16, dire, 16, 32,       PLAYERBMPDATA);
 880 #define FRAME1 animate_spri(player[pn].spri);
 881 #define FRAME2 animate_spri(player[pn].spri);
 882 #define FRAME3 animate_spri(player[pn].spri);
 883 #define FRAME4 animate_spri(player[pn].spri);
 884 #else
 885 #define FRAME1 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 16, 32, 2+dire);
 886 #define FRAME2 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 16, 32, 1+dire);
 887 #define FRAME3 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 16, 32, dire);
 888 #define FRAME4 modexClearRegion(pip[/*!*/(pip->video->p)].page, x, y, 16, 32, 1+dire);
 889 #endif
 890         if(!pageflipflop)
 891                 modexCopyPageRegion(pip[1].page, pip[0].page, x-4, y-4, x-4, y-4, 28, 36);
 892         else{
 893                 //copy old bg to page0
 894                 //modexCopyPageRegion(pip[3].page, pip[0].page, bx, by, 0, 0,   20, 36);
 895                 //update buffer
 896                 //modexCopyPageRegion(pip[0].page, pip[3].page, 0, 0,   x, y,   20, 36);
 897         }
 898 //modexCopyPageRegion(page_t *dest, page_t *src, word sx, word sy, word dx, word dy, word width, word height);
 899         //modexCopyPageRegion(pip[3].page, pip[!(pip->video->p)].page, x-4, y-4, 0, 128, 28, 36);
 900         /*modexCopyPageRegion(pip[pip->video->p].page,
 901  pip[!(pip->video->p)].page, x-4, y-4, x-4, y-4, 28, 36);*/
 902 //      else modexCopyPageRegion(pip[1].page, pip[0].page, x-4, y-4, x-4, y-4, 28, 40);
 903         switch(ls)
 904         {
 905                 case 1:
 906                         FRAME1
 907                 break;
 908                 case 2:
 909                         FRAME2
 910                 break;
 911                 case 3:
 912                         FRAME3
 913                 break;
 914                 case 4:
 915                         FRAME4
 916                 break;
 917         }
 918 //      if(2>ls && ls>=1) { FRAME1 }else
 919 //      if(3>ls && ls>=2) { FRAME2 }else
 920 //      if(4>ls && ls>=3) { FRAME3 }else
 921 //      if(5>ls && ls>=4) { FRAME4 }
 922         //modexCopyPageRegion(pip[0].page, pip[3].page, 0, 0, x, y, 16, 32);
 923         //printf("x=%d  y=%d    bx=%d           by=%d\n", x, y, bx, by);
 924         pip->video->r=1;
 925 }