+#include "src/lib/dos_kb.h"\r
+#include "src/lib/mapread.c"\r
+//#include "16\lib\x\modex.h"\r
+#include "src/lib/wtest/wtest.c"\r
+#include "src/lib/planar.c"\r
+//====#include "src\lib\ems.c"\r
+\r
+//word far *clock= (word far*) 0x046C; /* 18.2hz clock */\r
+\r
+/*typedef struct {\r
+ bitmap_t *data;\r
+ word tileHeight;\r
+ word tileWidth;\r
+ unsigned int rows;\r
+ unsigned int cols;\r
+} tiles_t;\r
+\r
+\r
+typedef struct {\r
+ byte *data;\r
+ tiles_t *tiles;\r
+ int width;\r
+ int height;\r
+} map_t;*/\r
+\r
+\r
+typedef struct {\r
+ map_t *map;\r
+ page_t *page;\r
+ int tx; //appears to be the top left tile position on the viewable screen map\r
+ int ty; //appears to be the top left tile position on the viewable screen map\r
+ word dxThresh; //????\r
+ word dyThresh; //????\r
+} map_view_t;\r
+\r
+typedef struct {\r
+ int x; //player exact position on the viewable map\r
+ int y; //player exact position on the viewable map\r
+ int tx; //player tile position on the viewable map\r
+ int ty; //player tile position on the viewable map\r
+ int triggerx; //player's trigger box tile position on the viewable map\r
+ int triggery; //player's trigger box tile position on the viewable map\r
+ int setx; //NOT USED YET! player sprite sheet set on the image x\r
+ int sety; //NOT USED YET! player sprite sheet set on the image y\r
+ word q; //loop variable\r
+ word d; //direction\r
+ bitmap_t data; //supposively the sprite sheet data\r
+ int hp; //hitpoints of the player\r
+} actor_t;\r
+\r
+map_t allocMap(int w, int h);\r
+void initMap(map_t *map);\r
+void mapScrollRight(map_view_t *mv, byte offset);\r
+void mapScrollLeft(map_view_t *mv, byte offest);\r
+void mapScrollUp(map_view_t *mv, byte offset);\r
+void mapScrollDown(map_view_t *mv, byte offset);\r
+void mapGoTo(map_view_t *mv, int tx, int ty);\r
+void mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y);\r
+void mapDrawRow(map_view_t *mv, int tx, int ty, word y);\r
+void mapDrawCol(map_view_t *mv, int tx, int ty, word x);\r
+void qclean();\r
+void pdump(map_view_t *pee);\r
+void animatePlayer(map_view_t *src, map_view_t *dest, /*map_view_t *top, */sword d, short scrolloffsetswitch, int x, int y, int ls, int lp, bitmap_t *bmp);\r
+\r
+#define TILEWH 16\r
+#define QUADWH TILEWH/2\r
+#define SPEED 4\r
+//#define LOOPMAX (TILEWH/SPEED)\r
+\r
+//place holder definitions\r
+//#define MAPX 200\r
+//#define MAPY 150\r
+#define TRIGGX 10\r
+#define TRIGGY 9\r
+\r
+void main() {\r
+ size_t oldfreemem=GetFreeSize();\r
+ long emmhandle;\r
+ long emsavail;\r
+ char teststr[80];
+ word panswitch=0, panq=1, pand=0; //for panning!\r
+ int i;\r
+ static word paloffset=0;\r
+ bitmap_t ptmp;//, npctmp; // player sprite\r
+ planar_buf_t *p;\r
+ const char *cpus;\r
+ static int persist_aniframe = 0; /* gonna be increased to 1 before being used, so 0 is ok for default */\r
+ page_t screen, screen2, screen3;\r
+ map_t map;\r
+ map_view_t mv, mv2, mv3;\r
+ map_view_t *bg, *spri, *mask;//, *tmp;\r
+ byte *dpal, *gpal;\r
+ byte *ptr, *mappalptr;\r
+ actor_t player;\r
+ //actor_t npc0;\r
+\r
+// atexit(qclean());\r
+ /*if(!emmtest())\r
+ {\r
+ printf("Expanded memory is not present\n");\r
+ exit(0);\r
+ }\r
+ \r
+ if(!emmok())\r
+ {\r
+ printf("Expanded memory manager is not present\n");\r
+ exit(0);\r
+ }\r
+\r
+ emsavail = emmavail();\r
+ if(emsavail == -1)\r
+ {\r
+ printf("Expanded memory manager error\n");\r
+ exit(0);\r
+ }\r
+ printf("There are %ld pages available\n",emsavail);\r
+\r
+ if((emmhandle = emmalloc(emsavail)) < 0)\r
+ {\r
+ printf("Insufficient pages available\n");\r
+ exit(0);\r
+ }*/\r
+\r
+ /* create the map */\r
+//0000 printf("Total used @ before map load: %zu\n", oldfreemem-GetFreeSize());\r
+ loadmap("data/test.map", &map);\r
+//---- map = allocMap(map.width,map.height); //20x15 is the resolution of the screen you can make maps smaller than 20x15 but the null space needs to be drawn properly\r
+ //if(isEMS()) printf("%d tesuto\n", coretotalEMS());\r
+//---- initMap(&map);\r
+ mv.map = ↦\r
+ mv2.map = ↦\r
+ mv3.map = ↦\r
+\r
+ /* draw the tiles */\r
+ ptr = map.data;\r
+ mappalptr = map.tiles->data->palette;\r
+ /* data */\r
+//0000 printf("Total used @ before image loading: %zu\n", oldfreemem-GetFreeSize());\r
+ ptmp = bitmapLoadPcx("data/ptmp.pcx"); // load sprite\r
+ //npctmp = bitmapLoadPcx("ptmp1.pcx"); // load sprite\r
+ \r
+ /* create the planar buffer */\r
+//0000 printf("Total used @ before planar buffer creation: %zu\n", oldfreemem-GetFreeSize());\r
+ p = planar_buf_from_bitmap(&ptmp);\r
+//0000 printf("Total used @ after planar buffer creation: %zu\n", oldfreemem-GetFreeSize());\r
+\r
+ /*if(isEMS())\r
+ {\r
+ XMOVE mm;\r
+ mm.length=sizeof(map);\r
+ mm.sourceH=0;\r
+ mm.sourceOff=(long)↦\r
+ mm.destH=emmhandle;\r
+ mm.destOff=1;\r
+ //halp!\r
+ ist = move_emem(&mm);\r
+ printf("%d\n", coretotalEMS());\r
+ if(!ist){ dealloc_emem(emmhandle); exit(5); }\r
+ //printf("%d\n", emmhandle);\r
+ }\r
+\r
+ if(isEMS())\r
+ {\r
+ XMOVE mm;\r
+ mm.length=emmhandle;\r
+ mm.sourceH=0;\r
+ mm.sourceOff=(long)&ptmp;\r
+ mm.destH=emmhandle;\r
+ mm.destOff=0;\r
+ //halp!\r
+ ist = move_emem(&mm);\r
+ printf("%d\n", coretotalEMS());\r
+ if(!ist){ dealloc_emem(emmhandle); exit(5); }\r
+ //printf("%d\n", emmhandle);\r
+ }\r
+*/\r
+\r
+ /* save the palette */\r
+ dpal = modexNewPal();\r
+ modexPalSave(dpal);\r
+ modexFadeOff(4, dpal);\r
+\r
+ setkb(1);\r
+ modexEnter();\r
+ modexPalBlack(); //reset the palette~\r
+// printf("Total used @ before palette initiation: %zu\n", oldfreemem-GetFreeSize());\r
+ ptmp.offset=(paloffset/3);\r
+ modexPalUpdate(&ptmp, &paloffset, 0, 0);\r
+ //printf(" %d\n", sizeof(ptmp.data));\r
+ //printf("1: %d\n", paloffset);\r
+ map.tiles->data->offset=(paloffset/3);\r
+ modexPalUpdate(map.tiles->data, &paloffset, 0, 0);\r
+ printf("\n====\n");\r
+ printf("0 paloffset= %d\n", paloffset/3);\r
+ printf("====\n\n");\r
+ gpal = modexNewPal();\r
+ modexPalSave(gpal);\r
+ modexSavePalFile("data/g.pal", gpal);\r
+ modexPalBlack(); //so player will not see loadings~\r
+\r
+ /* setup camera and screen~ */\r
+ screen = modexDefaultPage();\r
+ screen.width += (TILEWH*2);\r
+ screen.height += (TILEWH*2)+QUADWH;\r
+ mv.page = &screen;\r
+ screen2 = modexNextPage(mv.page);\r
+ mv2.page = &screen2;\r
+ screen3 = screen2;\r
+ mv3.page = &screen3;\r
+\r
+ /* set up paging */\r
+ bg = &mv;\r
+ spri = &mv2;\r
+ mask = &mv3;\r
+\r
+//TODO: LOAD map data and position the map in the middle of the screen if smaller then screen\r
+ mapGoTo(bg, 0, 0);\r
+ mapGoTo(spri, 0, 0);\r
+ //mapGoTo(mask, 0, 0);\r
+\r
+ //TODO: put player in starting position of spot\r
+ //default player position on the viewable map\r
+ player.tx = bg->tx + 10;\r
+ player.ty = bg->ty + 8;\r
+ player.x = player.tx*TILEWH;\r
+ player.y = player.ty*TILEWH;\r
+ player.triggerx = player.tx;\r
+ player.triggery = player.ty+1;\r
+ player.q=1;\r
+ player.d=0;\r
+ player.hp=4;\r
+ //npc\r
+ /*npc0.tx = bg->tx + 1;\r
+ npc0.ty = bg->ty + 1;\r
+ npc0.x = npc0.tx*TILEWH;\r
+ npc0.y = npc0.ty*TILEWH;\r
+ npc0.triggerx = npc0.tx;\r
+ npc0.triggery = npc0.ty+1;\r
+ npc0.q=1;\r
+ npc0.d=0;\r
+ modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 64, 24, 32, &npctmp);*/\r
+ modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);\r
+\r
+ modexShowPage(spri->page);\r
+// printf("Total used @ before loop: %zu\n", oldfreemem-GetFreeSize());\r
+ modexFadeOn(4, gpal);\r
+ while(!keyp(1) && player.hp>0)\r
+ {\r
+ //top left corner & bottem right corner of map veiw be set as map edge trigger since maps are actually square\r
+ //to stop scrolling and have the player position data move to the edge of the screen with respect to the direction\r
+ //when player.tx or player.ty == 0 or player.tx == 20 or player.ty == 15 then stop because that is edge of map and you do not want to walk of the map\r
+ #define INC_PER_FRAME if(player.q&1) persist_aniframe++; if(persist_aniframe>4) persist_aniframe = 1;
+
+ //modexClearRegion(bg->page, player.x, player.y, 16, 16, 4); //currently the over scan color!\r
+ /*#define INC_PER_FRAME_NPC if(npc0.q&1) persist_aniframe++; if(persist_aniframe>4) persist_aniframe = 1;\r
+\r
+ if(npc0.d == 0 && npc0.q == 1) npc0.d =rand()%8;\r
+ if(npc0.d>4)\r
+ npc0.d=0;\r
+\r
+ //right movement\r
+ if(npc0.d == 2)\r
+ {\r
+ if(npc0.tx < map.width && !(npc0.tx+1 == TRIGGX && npc0.ty == TRIGGY) && !(npc0.tx+1 == player.tx && npc0.ty == player.ty))\r
+ {\r
+ if(npc0.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME_NPC;\r
+ npc0.x+=SPEED;\r
+ //animatePlayer(bg, spri, mask, 1, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
+ animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.q++;\r
+ } else { npc0.q = 1; npc0.d = 0; npc0.tx++; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 32, 24, 32, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.d = 0;\r
+ }\r
+ npc0.triggerx = npc0.tx+1;\r
+ npc0.triggery = npc0.ty;\r
+ }\r
+\r
+ //left movement\r
+ if(npc0.d == 4)\r
+ {\r
+ if(npc0.tx > 1 && !(npc0.tx-1 == TRIGGX && npc0.ty == TRIGGY) && !(npc0.tx-1 == player.tx && npc0.ty == player.ty))\r
+ {\r
+ if(npc0.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME_NPC;\r
+ npc0.x-=SPEED;\r
+ //animatePlayer(bg, spri, mask, 3, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
+ animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.q++;\r
+ } else { npc0.q = 1; npc0.d = 0; npc0.tx--; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 96, 24, 32, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.d = 0;\r
+ }\r
+ npc0.triggerx = npc0.tx-1;\r
+ npc0.triggery = npc0.ty;\r
+ }\r
+\r
+ //down movement\r
+ if(npc0.d == 3)\r
+ {\r
+ if(npc0.ty < map.height && !(npc0.tx == TRIGGX && npc0.ty+1 == TRIGGY) && !(npc0.tx == player.tx && npc0.ty == player.ty+1))\r
+ {\r
+ if(npc0.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME_NPC;\r
+ npc0.y+=SPEED;\r
+ //animatePlayer(bg, spri, mask, 2, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
+ animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.q++;\r
+ } else { npc0.q = 1; npc0.d = 0; npc0.ty++; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 64, 24, 32, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.d = 0;\r
+ }\r
+ npc0.triggerx = npc0.tx;\r
+ npc0.triggery = npc0.ty+1;\r
+ }\r
+\r
+ //up movement\r
+ if(npc0.d == 1)\r
+ {\r
+ if(npc0.ty > 1 && !(npc0.tx == TRIGGX && npc0.ty-1 == TRIGGY) && !(npc0.tx+1 == player.tx && npc0.ty == player.ty-1))\r
+ {\r
+ if(npc0.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME_NPC;\r
+ npc0.y-=SPEED;\r
+ //animatePlayer(bg, spri, mask, 0, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
+ modexShowPage(spri->page);\r
+ animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
+ npc0.q++;\r
+ } else { npc0.q = 1; npc0.d = 0; npc0.ty--; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 0, 24, 32, &npctmp);\r
+ modexShowPage(spri->page);\r
+ npc0.d = 0;\r
+ }\r
+ npc0.triggerx = npc0.tx;\r
+ npc0.triggery = npc0.ty-1;\r
+ }\r
+\r
+ if((npc0.triggery == player.ty && npc0.triggerx == player.tx) || (npc0.ty == player.ty && npc0.tx == player.tx)){ player.hp--; }\r
+*/\r
+\r
+ //player movement\r
+ //TODO: make movement into a function!
+ if(!panswitch){\r
+ //right movement\r
+ if((keyp(77) && !keyp(75) && player.d == 0) || player.d == 2)\r
+ {\r
+ if(player.d == 0){ player.d = 2; }\r
+ if(bg->tx >= 0 && bg->tx+20 < map.width && player.tx == bg->tx + 10 &&
+ !(bg->map->data[(player.tx)+(map.width*(player.ty-1))] == 0))//!(player.tx+1 == TRIGGX && player.ty == TRIGGY)) //collision detection!\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ //animatePlayer(bg, spri, mask, 1, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ mapScrollRight(bg, SPEED);\r
+ mapScrollRight(spri, SPEED);\r
+ //mapScrollRight(mask, SPEED);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.tx++; }\r
+ }\r
+ else if(player.tx < map.width && !(bg->map->data[(player.tx)+(map.width*(player.ty-1))] == 0))//!(player.tx+1 == TRIGGX && player.ty == TRIGGY))\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ player.x+=SPEED;\r
+ //animatePlayer(bg, spri, mask, 1, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.tx++; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 32, 24, 32, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.d = 0;\r
+ }\r
+ player.triggerx = player.tx+1;\r
+ player.triggery = player.ty;\r
+ }\r
+\r
+ //left movement\r
+ if((keyp(75) && !keyp(77) && player.d == 0) || player.d == 4)\r
+ {\r
+ if(player.d == 0){ player.d = 4; }\r
+ if(bg->tx > 0 && bg->tx+20 <= map.width && player.tx == bg->tx + 10 &&
+ !(bg->map->data[(player.tx-2)+(map.width*(player.ty-1))] == 0))//!(player.tx-1 == TRIGGX && player.ty == TRIGGY)) //collision detection!\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ //animatePlayer(bg, spri, mask, 3, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ mapScrollLeft(bg, SPEED);\r
+ mapScrollLeft(spri, SPEED);\r
+ //mapScrollLeft(mask, SPEED);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.tx--; }\r
+ }\r
+ else if(player.tx > 1 && !(bg->map->data[(player.tx-2)+(map.width*(player.ty-1))] == 0))//!(player.tx-1 == TRIGGX && player.ty == TRIGGY))\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ player.x-=SPEED;\r
+ //animatePlayer(bg, spri, mask, 3, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.tx--; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 96, 24, 32, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.d = 0;\r
+ }\r
+ player.triggerx = player.tx-1;\r
+ player.triggery = player.ty;\r
+ }\r
+\r
+ //down movement\r
+ if((keyp(80) && !keyp(72) && player.d == 0) || player.d == 3)\r
+ {\r
+ if(player.d == 0){ player.d = 3; }\r
+ if(bg->ty >= 0 && bg->ty+15 < map.height && player.ty == bg->ty + 8 &&
+ !(bg->map->data[(player.tx-1)+(map.width*(player.ty))] == 0))//!(player.tx == TRIGGX && player.ty+1 == TRIGGY)) //collision detection!\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ //animatePlayer(bg, spri, mask, 2, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ mapScrollDown(bg, SPEED);\r
+ mapScrollDown(spri, SPEED);\r
+ //mapScrollDown(mask, SPEED);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.ty++; }\r
+ }\r
+ else if(player.ty < map.height && !(bg->map->data[(player.tx-1)+(map.width*(player.ty))] == 0))//!(player.tx == TRIGGX && player.ty+1 == TRIGGY))\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ player.y+=SPEED;\r
+ //animatePlayer(bg, spri, mask, 2, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.ty++; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.d = 0;\r
+ }\r
+ player.triggerx = player.tx;\r
+ player.triggery = player.ty+1;\r
+ }\r
+\r
+ //up movement\r
+ if((keyp(72) && !keyp(80) && player.d == 0) || player.d == 1)\r
+ {\r
+ if(player.d == 0){ player.d = 1; }\r
+ if(bg->ty > 0 && bg->ty+15 <= map.height && player.ty == bg->ty + 8 &&
+ !(bg->map->data[(player.tx-1)+(map.width*(player.ty-2))] == 0))//!(player.tx == TRIGGX && player.ty-1 == TRIGGY)) //collision detection!\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ //animatePlayer(bg, spri, mask, 0, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ mapScrollUp(bg, SPEED);\r
+ mapScrollUp(spri, SPEED);\r
+ //mapScrollUp(mask, SPEED);\r
+ modexShowPage(spri->page);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.ty--; }\r
+ }\r
+ else if(player.ty > 1 && !(bg->map->data[(player.tx-1)+(map.width*(player.ty-2))] == 0))//!(player.tx == TRIGGX && player.ty-1 == TRIGGY))\r
+ {\r
+ if(player.q<=(TILEWH/SPEED))\r
+ {\r
+ INC_PER_FRAME;\r
+ player.y-=SPEED;\r
+ //animatePlayer(bg, spri, mask, 0, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
+ modexShowPage(spri->page);\r
+ animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
+ player.q++;\r
+ } else { player.q = 1; player.d = 0; player.ty--; }\r
+ }\r
+ else\r
+ {\r
+ modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
+ modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 0, 24, 32, &ptmp);\r
+ modexShowPage(spri->page);\r
+ player.d = 0;\r
+ }\r
+ player.triggerx = player.tx;\r
+ player.triggery = player.ty-1;\r
+ }\r
+}else{
+//88 switch!
+ //right movement\r
+ if((keyp(77) && !keyp(75) && pand == 0) || pand == 2)\r
+ {\r
+ if(pand == 0){ pand = 2; }\r
+ if(panq<=(TILEWH/SPEED))\r