]> 4ch.mooo.com Git - 16.git/blob - src/scroll.c
6546d4decfd92894da3b8befc3f6132e027be028
[16.git] / src / scroll.c
1 #include "src/lib/dos_kb.h"\r
2 #include "src/lib/mapread.h"\r
3 #include "src/lib/wtest/wtest.c"\r
4 #include "src/lib/planar.c"\r
5 //====#include "src\lib\ems.c"\r
6
7 //word far *clock= (word far*) 0x046C; /* 18.2hz clock */\r
8 \r
9 typedef struct {\r
10         map_t *map;\r
11         page_t *page;\r
12         int tx; //appears to be the top left tile position on the viewable screen map\r
13         int ty; //appears to be the top left tile position on the viewable screen map\r
14         word dxThresh; //????\r
15         word dyThresh; //????\r
16 } map_view_t;\r
17 \r
18 typedef struct {\r
19         int x; //player exact position on the viewable map\r
20         int y; //player exact position on the viewable map\r
21         int tx; //player tile position on the viewable map\r
22         int ty; //player tile position on the viewable map\r
23         int triggerx; //player's trigger box tile position on the viewable map\r
24         int triggery; //player's trigger box tile position on the viewable map\r
25         int setx; //NOT USED YET! player sprite sheet set on the image x\r
26         int sety; //NOT USED YET! player sprite sheet set on the image y\r
27         word q; //loop variable\r
28         word d; //direction\r
29         bitmap_t data; //supposively the sprite sheet data\r
30         int hp; //hitpoints of the player\r
31 } actor_t;\r
32 \r
33 map_t allocMap(int w, int h);\r
34 void initMap(map_t *map);\r
35 void mapScrollRight(map_view_t *mv, byte offset);\r
36 void mapScrollLeft(map_view_t *mv, byte offest);\r
37 void mapScrollUp(map_view_t *mv, byte offset);\r
38 void mapScrollDown(map_view_t *mv, byte offset);\r
39 void mapGoTo(map_view_t *mv, int tx, int ty);\r
40 void mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y);\r
41 void mapDrawRow(map_view_t *mv, int tx, int ty, word y);\r
42 void mapDrawCol(map_view_t *mv, int tx, int ty, word x);\r
43 void qclean();\r
44 void pdump(map_view_t *pee);\r
45 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
46 \r
47 #define TILEWH 16\r
48 #define QUADWH                  TILEWH/2\r
49 #define SPEED 4\r
50 //#define LOOPMAX (TILEWH/SPEED)\r
51 \r
52 //place holder definitions\r
53 //#define MAPX 200\r
54 //#define MAPY 150\r
55 //#define TRIGGX 10\r
56 //#define TRIGGY 9\r
57 \r
58 void main() {\r
59         size_t oldfreemem=GetFreeSize();\r
60         /*long emmhandle;\r
61         long emsavail;\r
62         char teststr[80];*/
63         word panswitch=0, panq=1, pand=0; //for panning!\r
64         int i;\r
65         static word paloffset=0;\r
66         bitmap_t ptmp;//, npctmp; // player sprite\r
67         planar_buf_t *p;\r
68         const char *cpus;\r
69         static int persist_aniframe = 0;    /* gonna be increased to 1 before being used, so 0 is ok for default */\r
70         page_t screen, screen2, screen3;\r
71         map_t map;\r
72         map_view_t mv, mv2, mv3;\r
73         map_view_t *bg, *spri, *mask;//, *tmp;\r
74         byte *dpal, *gpal;\r
75         byte *ptr;
76         byte *mappalptr;\r
77         actor_t player;
78 //      bitmap_t font;\r
79         //actor_t npc0;\r
80 \r
81 //      atexit(qclean());\r
82         /*if(!emmtest())\r
83         {\r
84                 printf("Expanded memory is not present\n");\r
85                 exit(0);\r
86         }\r
87 \r
88         if(!emmok())\r
89         {\r
90                 printf("Expanded memory manager is not present\n");\r
91                 exit(0);\r
92         }\r
93 \r
94         emsavail = emmavail();\r
95         if(emsavail == -1)\r
96         {\r
97                 printf("Expanded memory manager error\n");\r
98                 exit(0);\r
99         }\r
100         printf("There are %ld pages available\n",emsavail);\r
101 \r
102         if((emmhandle = emmalloc(emsavail)) < 0)\r
103         {\r
104                 printf("Insufficient pages available\n");\r
105                 exit(0);\r
106         }*/\r
107 \r
108         /* create the map */\r
109 //0000  printf("Total used @ before map load:                   %zu\n", oldfreemem-GetFreeSize());
110 //0000  fprintf(stderr, "testing~\n");
111         loadmap("data/test.map", &map);
112 //0000  fprintf(stderr, "yay map loaded~~\n");
113 //----  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
114         //if(isEMS()) printf("%d tesuto\n", coretotalEMS());\r
115 //----  initMap(&map);\r
116         mv.map = &map;\r
117         mv2.map = &map;\r
118         mv3.map = &map;\r
119 \r
120         /* draw the tiles */\r
121         ptr = map.data;\r
122         mappalptr = map.tiles->data->palette;\r
123         /* data */\r
124 //0000  printf("Total used @ before image loading:              %zu\n", oldfreemem-GetFreeSize());
125         ptmp = bitmapLoadPcx("data/ptmp.pcx"); // load sprite
126 //      font = bitmapLoadPcx("data/font.pcx");
127         //npctmp = bitmapLoadPcx("ptmp1.pcx"); // load sprite\r
128 \r
129         /* create the planar buffer */\r
130 //0000  printf("Total used @ before planar buffer creation:     %zu\n", oldfreemem-GetFreeSize());
131         p = planar_buf_from_bitmap(&ptmp);
132 //0000  printf("Total used @ after planar buffer creation:      %zu\n", oldfreemem-GetFreeSize());\r
133 \r
134         /*if(isEMS())\r
135         {\r
136                 XMOVE mm;\r
137                 mm.length=sizeof(map);\r
138                 mm.sourceH=0;\r
139                 mm.sourceOff=(long)&map;\r
140                 mm.destH=emmhandle;\r
141                 mm.destOff=1;\r
142                 //halp!\r
143                 ist = move_emem(&mm);\r
144                 printf("%d\n", coretotalEMS());\r
145                 if(!ist){ dealloc_emem(emmhandle); exit(5); }\r
146                 //printf("%d\n", emmhandle);\r
147         }\r
148 \r
149         if(isEMS())\r
150         {\r
151                 XMOVE mm;\r
152                 mm.length=emmhandle;\r
153                 mm.sourceH=0;\r
154                 mm.sourceOff=(long)&ptmp;\r
155                 mm.destH=emmhandle;\r
156                 mm.destOff=0;\r
157                 //halp!\r
158                 ist = move_emem(&mm);\r
159                 printf("%d\n", coretotalEMS());\r
160                 if(!ist){ dealloc_emem(emmhandle); exit(5); }\r
161                 //printf("%d\n", emmhandle);\r
162         }\r
163 */\r
164 \r
165         /* save the palette */\r
166         dpal = modexNewPal();\r
167         modexPalSave(dpal);\r
168         modexFadeOff(4, dpal);\r
169 \r
170         setkb(1);\r
171         modexEnter();\r
172         modexPalBlack();        //reset the palette~\r
173 //      printf("Total used @ before palette initiation:         %zu\n", oldfreemem-GetFreeSize());\r
174         ptmp.offset=(paloffset/3);\r
175         modexPalUpdate(&ptmp, &paloffset, 0, 0);\r
176         //printf("      %d\n", sizeof(ptmp.data));\r
177         //printf("1:    %d\n", paloffset);\r
178         map.tiles->data->offset=(paloffset/3);\r
179         modexPalUpdate(map.tiles->data, &paloffset, 0, 0);\r
180         printf("\n====\n");\r
181         printf("0       paloffset=      %d\n", paloffset/3);\r
182         printf("====\n\n");\r
183         gpal = modexNewPal();\r
184         modexPalSave(gpal);\r
185         modexSavePalFile("data/g.pal", gpal);\r
186         modexPalBlack();        //so player will not see loadings~\r
187 \r
188         /* setup camera and screen~ */\r
189         screen = modexDefaultPage();\r
190         screen.width += (TILEWH*2);\r
191         screen.height += (TILEWH*2)+QUADWH;\r
192         mv.page = &screen;\r
193         screen2 = modexNextPage(mv.page);\r
194         mv2.page = &screen2;
195         screen3 = modexNextPage0(mv2.page, 352, 176);   //(352*176)+1024 is the remaining amount of memory left wwww
196         //screen3 = modexNextPage0(mv2.page, 320, 192); //(352*176)+1024 is the remaining amount of memory left wwww
197         mv3.page = &screen3;\r
198 \r
199         /* set up paging */\r
200         bg = &mv;\r
201         spri = &mv2;\r
202         mask = &mv3;\r
203 \r
204 //TODO: LOAD map data and position the map in the middle of the screen if smaller then screen\r
205         mapGoTo(bg, 0, 0);\r
206         mapGoTo(spri, 0, 0);\r
207         //mapGoTo(mask, 0, 0);\r
208 \r
209         //TODO: put player in starting position of spot\r
210         //default player position on the viewable map\r
211         player.tx = bg->tx + 10;\r
212         player.ty = bg->ty + 8;\r
213         player.x = player.tx*TILEWH;\r
214         player.y = player.ty*TILEWH;\r
215         player.triggerx = player.tx;\r
216         player.triggery = player.ty+1;\r
217         player.q=1;\r
218         player.d=0;\r
219         player.hp=4;\r
220         //npc\r
221         /*npc0.tx = bg->tx + 1;\r
222         npc0.ty = bg->ty + 1;\r
223         npc0.x = npc0.tx*TILEWH;\r
224         npc0.y = npc0.ty*TILEWH;\r
225         npc0.triggerx = npc0.tx;\r
226         npc0.triggery = npc0.ty+1;\r
227         npc0.q=1;\r
228         npc0.d=0;\r
229         modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 64, 24, 32, &npctmp);*/\r
230         modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);\r
231 \r
232         modexShowPage(spri->page);\r
233 //      printf("Total used @ before loop:                       %zu\n", oldfreemem-GetFreeSize());\r
234         modexFadeOn(4, gpal);\r
235         while(!keyp(1) && player.hp>0)\r
236         {\r
237         //top left corner & bottem right corner of map veiw be set as map edge trigger since maps are actually square\r
238         //to stop scrolling and have the player position data move to the edge of the screen with respect to the direction\r
239         //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
240         #define INC_PER_FRAME if(player.q&1) persist_aniframe++; if(persist_aniframe>4) persist_aniframe = 1;
241
242         //modexClearRegion(bg->page, player.x, player.y, 16, 16, 4); //currently the over scan color!\r
243         /*#define INC_PER_FRAME_NPC if(npc0.q&1) persist_aniframe++; if(persist_aniframe>4) persist_aniframe = 1;\r
244 \r
245         if(npc0.d == 0 && npc0.q == 1) npc0.d =rand()%8;\r
246         if(npc0.d>4)\r
247                 npc0.d=0;\r
248 \r
249         //right movement\r
250         if(npc0.d == 2)\r
251         {\r
252                 if(npc0.tx < map.width && !(npc0.tx+1 == TRIGGX && npc0.ty == TRIGGY) && !(npc0.tx+1 == player.tx && npc0.ty == player.ty))\r
253                 {\r
254                         if(npc0.q<=(TILEWH/SPEED))\r
255                         {\r
256                                 INC_PER_FRAME_NPC;\r
257                                 npc0.x+=SPEED;\r
258                                 //animatePlayer(bg, spri, mask, 1, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
259                                 animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
260                                 modexShowPage(spri->page);\r
261                                 npc0.q++;\r
262                         } else { npc0.q = 1; npc0.d = 0; npc0.tx++; }\r
263                 }\r
264                 else\r
265                 {\r
266                         modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
267                         modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 32, 24, 32, &npctmp);\r
268                         modexShowPage(spri->page);\r
269                         npc0.d = 0;\r
270                 }\r
271                 npc0.triggerx = npc0.tx+1;\r
272                 npc0.triggery = npc0.ty;\r
273         }\r
274 \r
275         //left movement\r
276         if(npc0.d == 4)\r
277         {\r
278                 if(npc0.tx > 1 && !(npc0.tx-1 == TRIGGX && npc0.ty == TRIGGY) && !(npc0.tx-1 == player.tx && npc0.ty == player.ty))\r
279                 {\r
280                         if(npc0.q<=(TILEWH/SPEED))\r
281                         {\r
282                                 INC_PER_FRAME_NPC;\r
283                                 npc0.x-=SPEED;\r
284                                 //animatePlayer(bg, spri, mask, 3, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
285                                 animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
286                                 modexShowPage(spri->page);\r
287                                 npc0.q++;\r
288                         } else { npc0.q = 1; npc0.d = 0; npc0.tx--; }\r
289                 }\r
290                 else\r
291                 {\r
292                         modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
293                         modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 96, 24, 32, &npctmp);\r
294                         modexShowPage(spri->page);\r
295                         npc0.d = 0;\r
296                 }\r
297                 npc0.triggerx = npc0.tx-1;\r
298                 npc0.triggery = npc0.ty;\r
299         }\r
300 \r
301         //down movement\r
302         if(npc0.d == 3)\r
303         {\r
304                 if(npc0.ty < map.height && !(npc0.tx == TRIGGX && npc0.ty+1 == TRIGGY) && !(npc0.tx == player.tx && npc0.ty == player.ty+1))\r
305                 {\r
306                         if(npc0.q<=(TILEWH/SPEED))\r
307                         {\r
308                                 INC_PER_FRAME_NPC;\r
309                                 npc0.y+=SPEED;\r
310                                 //animatePlayer(bg, spri, mask, 2, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
311                                 animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
312                                 modexShowPage(spri->page);\r
313                                 npc0.q++;\r
314                         } else { npc0.q = 1; npc0.d = 0; npc0.ty++; }\r
315                 }\r
316                 else\r
317                 {\r
318                         modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
319                         modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 64, 24, 32, &npctmp);\r
320                         modexShowPage(spri->page);\r
321                         npc0.d = 0;\r
322                 }\r
323                 npc0.triggerx = npc0.tx;\r
324                 npc0.triggery = npc0.ty+1;\r
325         }\r
326 \r
327         //up movement\r
328         if(npc0.d == 1)\r
329         {\r
330                 if(npc0.ty > 1 && !(npc0.tx == TRIGGX &&  npc0.ty-1 == TRIGGY) && !(npc0.tx+1 == player.tx && npc0.ty == player.ty-1))\r
331                 {\r
332                         if(npc0.q<=(TILEWH/SPEED))\r
333                         {\r
334                                 INC_PER_FRAME_NPC;\r
335                                 npc0.y-=SPEED;\r
336                                 //animatePlayer(bg, spri, mask, 0, 0, npc0.x, npc0.y, persist_aniframe, q, &npctmp);\r
337                                 modexShowPage(spri->page);\r
338                                 animatePlayer(bg, spri, npc0.d-1, 0, npc0.x, npc0.y, persist_aniframe, npc0.q, &npctmp);\r
339                                 npc0.q++;\r
340                         } else { npc0.q = 1; npc0.d = 0; npc0.ty--; }\r
341                 }\r
342                 else\r
343                 {\r
344                         modexCopyPageRegion(spri->page, bg->page, npc0.x-4, npc0.y-TILEWH, npc0.x-4, npc0.y-TILEWH, 24, 32);\r
345                         modexDrawSpriteRegion(spri->page, npc0.x-4, npc0.y-TILEWH, 24, 0, 24, 32, &npctmp);\r
346                         modexShowPage(spri->page);\r
347                         npc0.d = 0;\r
348                 }\r
349                 npc0.triggerx = npc0.tx;\r
350                 npc0.triggery = npc0.ty-1;\r
351         }\r
352 \r
353         if((npc0.triggery == player.ty && npc0.triggerx == player.tx) || (npc0.ty == player.ty && npc0.tx == player.tx)){ player.hp--; }\r
354 */\r
355 \r
356         //player movement\r
357         //TODO: make movement into a function!
358         if(!panswitch){\r
359         //right movement\r
360         if((keyp(77) && !keyp(75) && player.d == 0) || player.d == 2)\r
361         {\r
362                 if(player.d == 0){ player.d = 2; }\r
363                 if(bg->tx >= 0 && bg->tx+20 < map.width && player.tx == bg->tx + 10 &&
364                 !(bg->map->data[(player.tx)+(map.width*(player.ty-1))] == 0))//!(player.tx+1 == TRIGGX && player.ty == TRIGGY)) //collision detection!\r
365                 {\r
366                         if(player.q<=(TILEWH/SPEED))\r
367                         {\r
368                                 INC_PER_FRAME;\r
369                                 //animatePlayer(bg, spri, mask, 1, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
370                                 animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
371                                 mapScrollRight(bg, SPEED);\r
372                                 mapScrollRight(spri, SPEED);\r
373                                 //mapScrollRight(mask, SPEED);\r
374                                 modexShowPage(spri->page);\r
375                                 player.q++;\r
376                         } else { player.q = 1; player.d = 0; player.tx++; }\r
377                 }\r
378                 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
379                 {\r
380                         if(player.q<=(TILEWH/SPEED))\r
381                         {\r
382                                 INC_PER_FRAME;\r
383                                 player.x+=SPEED;\r
384                                 //animatePlayer(bg, spri, mask, 1, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
385                                 animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
386                                 modexShowPage(spri->page);\r
387                                 player.q++;\r
388                         } else { player.q = 1; player.d = 0; player.tx++; }\r
389                 }\r
390                 else\r
391                 {\r
392                         modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
393                         modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 32, 24, 32, &ptmp);\r
394                         modexShowPage(spri->page);\r
395                         player.d = 0;\r
396                 }\r
397                 player.triggerx = player.tx+1;\r
398                 player.triggery = player.ty;\r
399         }\r
400 \r
401         //left movement\r
402         if((keyp(75) && !keyp(77) && player.d == 0) || player.d == 4)\r
403         {\r
404                 if(player.d == 0){ player.d = 4; }\r
405                 if(bg->tx > 0 && bg->tx+20 <= map.width && player.tx == bg->tx + 10 &&
406                 !(bg->map->data[(player.tx-2)+(map.width*(player.ty-1))] == 0))//!(player.tx-1 == TRIGGX && player.ty == TRIGGY))       //collision detection!\r
407                 {\r
408                         if(player.q<=(TILEWH/SPEED))\r
409                         {\r
410                                 INC_PER_FRAME;\r
411                                 //animatePlayer(bg, spri, mask, 3, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
412                                 animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
413                                 mapScrollLeft(bg, SPEED);\r
414                                 mapScrollLeft(spri, SPEED);\r
415                                 //mapScrollLeft(mask, SPEED);\r
416                                 modexShowPage(spri->page);\r
417                                 player.q++;\r
418                         } else { player.q = 1; player.d = 0; player.tx--; }\r
419                 }\r
420                 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
421                 {\r
422                         if(player.q<=(TILEWH/SPEED))\r
423                         {\r
424                                 INC_PER_FRAME;\r
425                                 player.x-=SPEED;\r
426                                 //animatePlayer(bg, spri, mask, 3, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
427                                 animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
428                                 modexShowPage(spri->page);\r
429                                 player.q++;\r
430                         } else { player.q = 1; player.d = 0; player.tx--; }\r
431                 }\r
432                 else\r
433                 {\r
434                         modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
435                         modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 96, 24, 32, &ptmp);\r
436                         modexShowPage(spri->page);\r
437                         player.d = 0;\r
438                 }\r
439                 player.triggerx = player.tx-1;\r
440                 player.triggery = player.ty;\r
441         }\r
442 \r
443         //down movement\r
444         if((keyp(80) && !keyp(72) && player.d == 0) || player.d == 3)\r
445         {\r
446                 if(player.d == 0){ player.d = 3; }\r
447                 if(bg->ty >= 0 && bg->ty+15 < map.height && player.ty == bg->ty + 8 &&
448                 !(bg->map->data[(player.tx-1)+(map.width*(player.ty))] == 0))//!(player.tx == TRIGGX && player.ty+1 == TRIGGY)) //collision detection!\r
449                 {\r
450                         if(player.q<=(TILEWH/SPEED))\r
451                         {\r
452                                 INC_PER_FRAME;\r
453                                 //animatePlayer(bg, spri, mask, 2, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
454                                 animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
455                                 mapScrollDown(bg, SPEED);\r
456                                 mapScrollDown(spri, SPEED);\r
457                                 //mapScrollDown(mask, SPEED);\r
458                                 modexShowPage(spri->page);\r
459                                 player.q++;\r
460                         } else { player.q = 1; player.d = 0; player.ty++; }\r
461                 }\r
462                 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
463                 {\r
464                         if(player.q<=(TILEWH/SPEED))\r
465                         {\r
466                                 INC_PER_FRAME;\r
467                                 player.y+=SPEED;\r
468                                 //animatePlayer(bg, spri, mask, 2, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
469                                 animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
470                                 modexShowPage(spri->page);\r
471                                 player.q++;\r
472                         } else { player.q = 1; player.d = 0; player.ty++; }\r
473                 }\r
474                 else\r
475                 {\r
476                         modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
477                         modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 64, 24, 32, &ptmp);\r
478                         modexShowPage(spri->page);\r
479                         player.d = 0;\r
480                 }\r
481                 player.triggerx = player.tx;\r
482                 player.triggery = player.ty+1;\r
483         }\r
484 \r
485         //up movement\r
486         if((keyp(72) && !keyp(80) && player.d == 0) || player.d == 1)\r
487         {\r
488                 if(player.d == 0){ player.d = 1; }\r
489                 if(bg->ty > 0 && bg->ty+15 <= map.height && player.ty == bg->ty + 8 &&
490                 !(bg->map->data[(player.tx-1)+(map.width*(player.ty-2))] == 0))//!(player.tx == TRIGGX && player.ty-1 == TRIGGY))       //collision detection!\r
491                 {\r
492                         if(player.q<=(TILEWH/SPEED))\r
493                         {\r
494                                 INC_PER_FRAME;\r
495                                 //animatePlayer(bg, spri, mask, 0, 1, player.x, player.y, persist_aniframe, q, &ptmp);\r
496                                 animatePlayer(bg, spri, player.d-1, 1, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
497                                 mapScrollUp(bg, SPEED);\r
498                                 mapScrollUp(spri, SPEED);\r
499                                 //mapScrollUp(mask, SPEED);\r
500                                 modexShowPage(spri->page);\r
501                                 player.q++;\r
502                         } else { player.q = 1; player.d = 0; player.ty--; }\r
503                 }\r
504                 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
505                 {\r
506                         if(player.q<=(TILEWH/SPEED))\r
507                         {\r
508                                 INC_PER_FRAME;\r
509                                 player.y-=SPEED;\r
510                                 //animatePlayer(bg, spri, mask, 0, 0, player.x, player.y, persist_aniframe, q, &ptmp);\r
511                                 modexShowPage(spri->page);\r
512                                 animatePlayer(bg, spri, player.d-1, 0, player.x, player.y, persist_aniframe, player.q, &ptmp);\r
513                                 player.q++;\r
514                         } else { player.q = 1; player.d = 0; player.ty--; }\r
515                 }\r
516                 else\r
517                 {\r
518                         modexCopyPageRegion(spri->page, bg->page, player.x-4, player.y-TILEWH, player.x-4, player.y-TILEWH, 24, 32);\r
519                         modexDrawSpriteRegion(spri->page, player.x-4, player.y-TILEWH, 24, 0, 24, 32, &ptmp);\r
520                         modexShowPage(spri->page);\r
521                         player.d = 0;\r
522                 }\r
523                 player.triggerx = player.tx;\r
524                 player.triggery = player.ty-1;\r
525         }\r
526 }else{
527 //88 switch!
528         //right movement\r
529         if((keyp(77) && !keyp(75) && pand == 0) || pand == 2)\r
530         {\r
531                 if(pand == 0){ pand = 2; }\r
532                         if(panq<=(TILEWH/SPEED))\r
533                         {
534                                 bg->page->dx++;
535                                 spri->page->dx++;
536                                 mask->page->dx++;
537                                 modexShowPage(bg->page);
538                                 modexShowPage(spri->page);
539                                 modexShowPage(mask->page);
540                                 panq++;\r
541                         } else { panq = 1; pand = 0; }\r
542         }\r
543         //left movement\r
544         if((keyp(75) && !keyp(77) && pand == 0) || pand == 4)\r
545         {\r
546                 if(pand == 0){ pand = 4; }\r
547                         if(panq<=(TILEWH/SPEED))\r
548                         {\r
549                                 bg->page->dx--;
550                                 spri->page->dx--;
551                                 mask->page->dx--;
552                                 modexShowPage(bg->page);
553                                 modexShowPage(spri->page);
554                                 modexShowPage(mask->page);
555                                 panq++;\r
556                         } else { panq = 1; pand = 0; }\r
557         }\r
558         //down movement\r
559         if((keyp(72) && !keyp(80) && pand == 0) || pand == 3)\r
560         {\r
561                 if(pand == 0){ pand = 3; }\r
562                         if(panq<=(TILEWH/SPEED))\r
563                         {\r
564                                 bg->page->dy--;
565                                 spri->page->dy--;
566                                 mask->page->dy--;
567                                 modexShowPage(bg->page);
568                                 modexShowPage(spri->page);
569                                 modexShowPage(mask->page);
570                                 panq++;\r
571                         } else { panq = 1; pand = 0; }\r
572         }\r
573         //up movement\r
574         if((keyp(80) && !keyp(72) && pand == 0) || pand == 1)\r
575         {\r
576                 if(pand == 0){ pand = 1; }\r
577                         if(panq<=(TILEWH/SPEED))\r
578                         {\r
579                                 bg->page->dy++;
580                                 spri->page->dy++;
581                                 mask->page->dy++;
582                                 modexShowPage(bg->page);
583                                 modexShowPage(spri->page);
584                                 modexShowPage(mask->page);\r
585                                 panq++;\r
586                         } else { panq = 1; pand = 0; }\r
587         }
588 }
589
590         //the scripting stuf....
591 \r
592         //if(((player.triggerx == TRIGGX && player.triggery == TRIGGY) && keyp(0x1C))||(player.tx == 5 && player.ty == 5))
593         if(((bg->map->data[(player.triggerx-1)+(map.width*(player.triggery-1))] == 0) && keyp(0x1C))||(player.tx == 5 && player.ty == 5))\r
594         {\r
595                 short i;\r
596                 for(i=800; i>=400; i--)\r
597                 {\r
598                         sound(i);\r
599                 }\r
600                 nosound();\r
601         }\r
602         if(player.q == (TILEWH/SPEED)+1 && player.d > 0 && (player.triggerx == 5 && player.triggery == 5)){ player.hp--; }
603         //debugging binds!\r
604         //if(keyp(0x0E)) while(1){ if(xmsmalloc(24)) break; }
605         if(keyp(2)) modexShowPage(bg->page);
606         if(keyp(3)) modexShowPage(spri->page);
607         if(keyp(4)) modexShowPage(mask->page);
608         if(keyp(0x44)){ bputs(spri->page, player.x+(TILEWH*2), player.y+(TILEWH*2), "wwww"); }  //f10
609         if(keyp(25)){ pdump(bg); pdump(spri); } //p\r
610         if(keyp(24)){ modexPalUpdate0(gpal); paloffset=0; pdump(bg); pdump(spri); }\r
611         if(keyp(22)){\r
612         paloffset=0; modexPalBlack(); modexPalUpdate(&ptmp, &paloffset, 0, 0);\r
613         printf("1paloffset      =       %d\n", paloffset/3);\r
614          modexPalUpdate(map.tiles->data, &paloffset, 0, 0);\r
615         printf("2paloffset      =       %d\n", paloffset/3);\r
616          pdump(bg); pdump(spri); }
617         //pan switch\r
618         if(keyp(88)){if(!panswitch) panswitch++; else panswitch--; }    //f12
619         //TSR\r
620         if(keyp(87))    //f11\r
621         {\r
622                 modexLeave();\r
623                 setkb(0);\r
624                 __asm\r
625                 {\r
626                         mov ah,31h\r
627                         int 21h\r
628                 }\r
629         }
630
631         if((player.q==1) && !(player.x%TILEWH==0 && player.y%TILEWH==0)) break; //incase things go out of sync!
632 \r
633         }\r
634 \r
635         /* fade back to text mode */\r
636         /* but 1st lets save the game palette~ */\r
637         modexPalSave(gpal);\r
638         modexSavePalFile("data/g.pal", gpal);\r
639         modexFadeOff(4, gpal);\r
640         modexLeave();\r
641         setkb(0);\r
642         printf("Project 16 scroll.exe\n");\r
643         printf("tx: %d\n", bg->tx);\r
644         printf("ty: %d\n", bg->ty);
645         printf("player.x: %d", player.x); printf("              player.y: %d\n", player.y);\r
646         //if(player.hp==0) printf("%d wwww\n", player.y+8);\r
647         //else printf("\nplayer.y: %d\n", player.y);\r
648         printf("player.tx: %d", player.tx); printf("            player.ty: %d\n", player.ty);\r
649         printf("player.triggx: %d", player.triggerx); printf("  player.triggy: %d\n", player.triggery);\r
650         printf("player.hp: %d", player.hp);     printf("        player.q: %d", player.q);       printf("        player.d: %d\n", player.d);
651         printf("tile data value at player trigger position: %d\n", bg->map->data[(player.triggerx-1)+(map.width*(player.triggery-1))]);\r
652         printf("palette offset: %d\n", paloffset/3);\r
653         printf("Total used: %zu\n", oldfreemem-GetFreeSize());\r
654         printf("Total free: %zu\n", GetFreeSize());\r
655         printf("temporary player sprite 0: http://www.pixiv.net/member_illust.php?mode=medium&illust_id=45556867\n");\r
656         printf("temporary player sprite 1: http://www.pixiv.net/member_illust.php?mode=medium&illust_id=44606385\n");\r
657         printf("Screen: %dx", screen.width);    printf("%d\n", screen.height);\r
658         printf("Screen2: %dx", screen2.width);  printf("%d\n", screen2.height);
659         //printf("map.width=%d  map.height=%d   map.data[0]=%d\n", bg->map->width, bg->map->height, bg->map->data[0]);\r
660         //xmsfree(&map);\r
661         //xmsfree(bg);\r
662         //xmsfree(spri);\r
663         //xmsfree(mask);\r
664         //xmsreport();\r
665         //emmclose(emmhandle);
666         printf("%Fp\n", bios_8x8_font());
667         //printf("%c\n", *bios_8x8_font());\r
668         switch(detectcpu())\r
669         {\r
670                 case 0: cpus = "8086/8088 or 186/88"; break;\r
671                 case 1: cpus = "286"; break;\r
672                 case 2: cpus = "386 or newer"; break;\r
673                 default: cpus = "internal error"; break;\r
674         }\r
675         printf("detected CPU type: %s\n", cpus);\r
676         modexFadeOn(4, dpal);\r
677 }\r
678 \r
679 \r
680 map_t\r
681 allocMap(int w, int h) {\r
682         map_t result;\r
683 \r
684         result.width =w;\r
685         result.height=h;\r
686         result.data = malloc(sizeof(byte) * w * h);\r
687         //result.data = (byte *)alloc_emem(((int)sizeof(byte) * w * h)/1024);\r
688         /*if(isEMS() || checkEMS())\r
689         {\r
690                 XMOVE mm;\r
691                 //emmhandle = mallocEMS(coretotalEMS());//alloc_emem((int)sizeof(map))\r
692                 mm.length=sizeof(result);\r
693                 mm.sourceH=0;\r
694                 mm.sourceOff=ptr2long(&result);\r
695                 mm.destH=emmhandle;\r
696                 mm.destOff=0;\r
697                 ist = move_emem(&mm);\r
698                 if(!ist){ dealloc_emem(emmhandle); exit(5); }\r
699                 printf("%d\n", coretotalEMS());\r
700         }*/\r
701 \r
702         return result;\r
703 }\r
704 \r
705 void\r
706 initMap(map_t *map) {\r
707         /* just a place holder to fill out an alternating pattern */\r
708         int x, y, xx, yy;\r
709         int i, q;\r
710 //      int tile = 1;\r
711         //if(!isEMS() || !checkEMS())\r
712 //              map->tiles = malloc(sizeof(tiles_t));\r
713         //else\r
714         //      map->tiles = (tiles_t *)alloc_emem(sizeof(tiles_t));\r
715 \r
716         /* create the tile set */\r
717         //if(!isEMS() || !checkEMS())\r
718 //              map->tiles->data = malloc(sizeof(bitmap_t));\r
719         //else\r
720         //      map->tiles->data = (bitmap_t *)alloc_emem(sizeof(bitmap_t));\r
721 //      map->tiles->data->width = (TILEWH/**2*/);\r
722 //      map->tiles->data->height= TILEWH;\r
723         //if(!isEMS() || !checkEMS())\r
724 //              map->tiles->data->data = malloc((TILEWH*2)*TILEWH);\r
725         //else\r
726         //      map->tiles->data->data = (byte *)alloc_emem((TILEWH*2)*TILEWH);\r
727 //      map->tiles->tileHeight = TILEWH;\r
728 //      map->tiles->tileWidth =TILEWH;\r
729 //      map->tiles->rows = 1;\r
730 //      map->tiles->cols = 1;//2;\r
731 \r
732         /*q=0;\r
733         //for(y=0; y<map->height; y++) {\r
734         //for(x=0; x<map->width; x++) {\r
735         i=0;\r
736         for(yy=0; yy<TILEWH; yy++) {\r
737         for(xx=0; xx<(TILEWH); xx++) {\r
738                 //if(x<TILEWH){\r
739                   map->tiles->data->data[i+1] = map->data[q];//28;//0x24;\r
740 //                printf("[%d]", map->tiles->data->data[i]);\r
741                 //}else{\r
742                   //map->tiles->data->data[i] = map->data[q];//0;//0x34;\r
743                   //printf("]%d[==[%d]", i, map->tiles->data->data[i]);\r
744                 //}\r
745                 i++;\r
746         }\r
747 //      printf("\n");\r
748         }\r
749 //      printf("[%d]", map->data[q]);\r
750         q++;\r
751 //      }\r
752         //printf("\n\n");\r
753 //      }*/\r
754 \r
755         /*i=0;\r
756         for(y=0; y<map->height; y++) {\r
757                 for(x=0; x<map->width; x++) {\r
758 //                      map->data[i]=255;\r
759                         printf("[%d]", map->data[i]);\r
760                         //tile = tile ? 0 : 1;\r
761                         i++;\r
762                 }\r
763                 //tile = tile ? 0 : 1;\r
764         }*/\r
765 }\r
766 \r
767 \r
768 void\r
769 mapScrollRight(map_view_t *mv, byte offset) {\r
770         word x, y;  /* coordinate for drawing */\r
771 \r
772         /* increment the pixel position and update the page */\r
773         mv->page->dx += offset;\r
774 \r
775         /* check to see if this changes the tile */\r
776         if(mv->page->dx >= mv->dxThresh ) {\r
777         /* go forward one tile */\r
778         mv->tx++;\r
779         /* Snap the origin forward */\r
780         mv->page->data += 4;\r
781         mv->page->dx = mv->map->tiles->tileWidth;\r
782         //}\r
783 \r
784         /* draw the next column */\r
785         x= SCREEN_WIDTH + mv->map->tiles->tileWidth;\r
786                 mapDrawCol(mv, mv->tx + 20 , mv->ty-1, x);\r
787         }\r
788 }\r
789 \r
790 \r
791 void\r
792 mapScrollLeft(map_view_t *mv, byte offset) {\r
793         word x, y;  /* coordinate for drawing */\r
794 \r
795         /* increment the pixel position and update the page */\r
796         mv->page->dx -= offset;\r
797 \r
798         /* check to see if this changes the tile */\r
799         if(mv->page->dx == 0) {\r
800         /* go backward one tile */\r
801         mv->tx--;\r
802 \r
803         /* Snap the origin backward */\r
804         mv->page->data -= 4;\r
805         mv->page->dx = mv->map->tiles->tileWidth;\r
806         //}\r
807         /* draw the next column */\r
808                 mapDrawCol(mv, mv->tx-1, mv->ty-1, 0);\r
809         }\r
810 }\r
811 \r
812 \r
813 void\r
814 mapScrollUp(map_view_t *mv, byte offset) {\r
815         word x, y;  /* coordinate for drawing */\r
816 \r
817         /* increment the pixel position and update the page */\r
818         mv->page->dy -= offset;\r
819 \r
820         /* check to see if this changes the tile */\r
821         if(mv->page->dy == 0 ) {\r
822         /* go down one tile */\r
823         mv->ty--;\r
824         /* Snap the origin downward */\r
825         mv->page->data -= mv->page->width*4;\r
826         mv->page->dy = mv->map->tiles->tileHeight;\r
827         //}\r
828 \r
829         /* draw the next row */\r
830         y= 0;\r
831                 mapDrawRow(mv, mv->tx-1 , mv->ty-1, y);\r
832         }\r
833 }\r
834 \r
835 \r
836 void\r
837 mapScrollDown(map_view_t *mv, byte offset) {\r
838         word x, y;  /* coordinate for drawing */\r
839 \r
840         /* increment the pixel position and update the page */\r
841         mv->page->dy += offset;\r
842 \r
843         /* check to see if this changes the tile */\r
844         if(mv->page->dy >= mv->dyThresh ) {\r
845         /* go down one tile */\r
846         mv->ty++;\r
847         /* Snap the origin downward */\r
848         mv->page->data += mv->page->width*4;\r
849         mv->page->dy = mv->map->tiles->tileHeight;\r
850         //}\r
851 \r
852         /* draw the next row */\r
853         y= SCREEN_HEIGHT + mv->map->tiles->tileHeight;\r
854                 mapDrawRow(mv, mv->tx-1 , mv->ty+15, y);\r
855         }\r
856 \r
857 }\r
858 \r
859 \r
860 void\r
861 mapGoTo(map_view_t *mv, int tx, int ty) {\r
862         int px, py;\r
863         unsigned int i;\r
864 \r
865         /* set up the coordinates */\r
866         mv->tx = tx;\r
867         mv->ty = ty;\r
868         mv->page->dx = mv->map->tiles->tileWidth;\r
869         mv->page->dy = mv->map->tiles->tileHeight;\r
870 \r
871         /* set up the thresholds */\r
872         mv->dxThresh = mv->map->tiles->tileWidth * 2;\r
873         mv->dyThresh = mv->map->tiles->tileHeight * 2;\r
874 \r
875         /* draw the tiles */\r
876         modexClearRegion(mv->page, 0, 0, mv->page->width, mv->page->height, 0);\r
877         py=0;
878         i=mv->ty * mv->map->width + mv->tx;
879         for(ty=mv->ty-1; py < SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; ty++, py+=mv->map->tiles->tileHeight) {\r
880                 mapDrawRow(mv, tx-1, ty, py);\r
881         i+=mv->map->width - tx;\r
882         }\r
883 }\r
884 \r
885 \r
886 void\r
887 mapDrawTile(tiles_t *t, word i, page_t *page, word x, word y) {\r
888         word rx;\r
889         word ry;\r
890         //if(i==0) i=2;\r
891         if(i==0)\r
892         {\r
893                 //wwww
894                 modexClearRegion(page, x, y, t->tileWidth, t->tileHeight, 0); //currently the over scan color!\r
895         }\r
896         else\r
897         {\r
898         rx = (((i-1) % ((t->data->width)/t->tileWidth)) * t->tileWidth);\r
899         ry = (((i-1) / ((t->data->height)/t->tileHeight)) * t->tileHeight);
900 ////0000        printf("i=%d\n", i);\r
901         //mxPutTile(t->data, x, y, t->tileWidth, t->tileHeight);\r
902         modexDrawBmpRegion(page, x, y, rx, ry, t->tileWidth, t->tileHeight, (t->data));\r
903         }\r
904 }\r
905 \r
906 \r
907 void\r
908 mapDrawRow(map_view_t *mv, int tx, int ty, word y) {\r
909         word x;\r
910         int i;\r
911 \r
912         /* the position within the map array */\r
913         i=ty * mv->map->width + tx;
914         for(x=0; x<SCREEN_WIDTH+mv->dxThresh && tx < mv->map->width; x+=mv->map->tiles->tileWidth, tx++) {\r
915         if(i>=0) {\r
916                 /* we are in the map, so copy! */\r
917                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);\r
918         }\r
919         i++; /* next! */\r
920         }\r
921 }\r
922 \r
923 void\r
924 mapDrawCol(map_view_t *mv, int tx, int ty, word x) {\r
925         int y;\r
926         int i;\r
927 \r
928         /* location in the map array */\r
929         i=ty * mv->map->width + tx;\r
930 \r
931         /* We'll copy all of the columns in the screen, \r
932            i + 1 row above and one below */\r
933         for(y=0; y<SCREEN_HEIGHT+mv->dyThresh && ty < mv->map->height; y+=mv->map->tiles->tileHeight, ty++) {\r
934         if(i>=0) {\r
935                 /* we are in the map, so copy away! */\r
936                 mapDrawTile(mv->map->tiles, mv->map->data[i], mv->page, x, y);\r
937         }\r
938         i += mv->map->width;\r
939         }\r
940 }\r
941 \r
942 void qclean()\r
943 {\r
944         modexLeave();\r
945         setkb(0);\r
946 }\r
947 \r
948 void pdump(map_view_t *pee)\r
949 {\r
950         int mult=(QUADWH);\r
951         int palq=(mult)*TILEWH;\r
952         int palcol=0;\r
953         int palx, paly;\r
954         for(paly=0; paly<palq; paly+=mult){\r
955                 for(palx=0; palx<palq; palx+=mult){\r
956                                 modexClearRegion(pee->page, palx+TILEWH, paly+TILEWH, mult, mult, palcol);\r
957                         palcol++;\r
958                 }\r
959         }\r
960 }\r
961 \r
962 void\r
963 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
964 {\r
965         sword dire=32*d; //direction\r
966         sword qq; //scroll offset\r
967 \r
968         if(scrolloffsetswitch==0) qq = 0;\r
969         else qq = ((lp)*SPEED);\r
970         switch (d)\r
971         {\r
972                 case 0:\r
973                         //up\r
974                         x=x-4;\r
975                         y=y-qq-TILEWH;\r
976                 break;\r
977                 case 1:\r
978                         // right\r
979                         x=x+qq-4;\r
980                         y=y-TILEWH;\r
981                 break;\r
982                 case 2:\r
983                         //down\r
984                         x=x-4;\r
985                         y=y+qq-TILEWH;\r
986                 break;\r
987                 case 3:\r
988                         //left\r
989                         x=x-qq-4;\r
990                         y=y-TILEWH;\r
991                 break;\r
992         }\r
993         modexCopyPageRegion(dest->page, src->page, x-4, y-4, x-4, y-4, 28, 40);\r
994         if(2>ls && ls>=1) { modexDrawSpriteRegion(dest->page, x, y, 48, dire, 24, 32, bmp); }else\r
995         if(3>ls && ls>=2) { modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); }else\r
996         if(4>ls && ls>=3) { modexDrawSpriteRegion(dest->page, x, y, 0, dire, 24, 32, bmp); }else\r
997         if(5>ls && ls>=4) { modexDrawSpriteRegion(dest->page, x, y, 24, dire, 24, 32, bmp); }\r
998         //TODO: mask copy //modexCopyPageRegion(dest->page, src->page, x-4, y-4, x-4, y-4, 28, 40);\r
999         //modexClearRegion(top->page, 66, 66, 2, 40, 0);\r
1000         //modexCopyPageRegion(dest->page, top->page, 66, 66, 66, 66, 2, 40);\r
1001         //turn this off if XT\r
1002         if(detectcpu() > 0) modexWaitBorder();\r
1003 }\r