1 /* Project 16 Source Code~
\r
2 * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
\r
4 * This file is part of Project 16.
\r
6 * Project 16 is free software; you can redistribute it and/or modify
\r
7 * it under the terms of the GNU General Public License as published by
\r
8 * the Free Software Foundation; either version 3 of the License, or
\r
9 * (at your option) any later version.
\r
11 * Project 16 is distributed in the hope that it will be useful,
\r
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
\r
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\r
14 * GNU General Public License for more details.
\r
16 * You should have received a copy of the GNU General Public License
\r
17 * along with this program. If not, see <http://www.gnu.org/licenses/>, or
\r
18 * write to the Free Software Foundation, Inc., 51 Franklin Street,
\r
19 * Fifth Floor, Boston, MA 02110-1301 USA.
\r
23 #include "src/lib/bakapee.h"
\r
25 struct glob_game_vars *ggvv;
\r
26 //static word far* clockw= (word far*) 0x046C; /* 18.2hz clock */
\r
27 char global_temp_status_text[512];
\r
28 char global_temp_status_text2[512];
\r
30 //==========================================================================
\r
37 = returns true if aborted
\r
42 //extern ControlInfo c;
\r
43 #define PIXPOSX gvar->video.page[0].sw/2
\r
44 #define PIXPOSY gvar->video.page[0].sh/2
\r
51 = returns true if aborted
\r
56 //extern ControlInfo c;
\r
57 //#define PIXPOSX gvar->video.page[0].sw/2
\r
58 //#define PIXPOSY gvar->video.page[0].sh/2
\r
59 #ifdef BAKAFIZZUNSIGNED
\r
60 boolean baka_FizzleFade (unsigned source, unsigned dest, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
63 unsigned drawofs,pagedelta;
\r
64 byte mask,maskb[8] = {1,2,4,8};
\r
69 unsigned esorig;//,q;
\r
72 pagedelta = dest-source;
\r
75 esorig = 0;// q = 16;
\r
78 pixperframe = (dword)(gvar->video.page[0].width*gvar->video.page[0].height)/frames;//64000/(dword)frames;
\r
79 screenseg = SCREENSEG;
\r
81 // IN_StartAck (gvar);
\r
83 // modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);
\r
84 // modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);
\r
95 if (abortable && kbhit())//IN_CheckAck (gvar) )
\r
102 for (p=0;p<pixperframe;p++)
\r
106 // seperate random value into x/y pair
\r
108 mov ax,[WORD PTR rndval]
\r
109 mov dx,[WORD PTR rndval+2]
\r
112 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
115 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
116 mov [BYTE PTR x+1],dl
\r
118 // advance to next random element
\r
125 #ifdef __BORLANDC__
\r
129 #ifdef __BORLANDC__
\r
132 mov [WORD PTR rndval],ax
\r
133 mov [WORD PTR rndval+2],dx
\r
136 if (x>width || y>height)
\r
137 // if ((x>width || y>height) && (x<width*2 && y<height*2))
\r
139 // drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);
\r
140 drawofs = source+(y*gvar->video.page[0].stridew) + (x>>2);
\r
142 sprintf(global_temp_status_text, "draw - %Fp", drawofs);
\r
143 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
144 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);
\r
145 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
146 sprintf(global_temp_status_text, "srce - %Fp", source);
\r
147 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
148 sprintf(global_temp_status_text, "dest - %Fp", dest);
\r
149 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;
\r
157 mask = maskb[mask];
\r
167 if (rndval == 1) // entire sequence has been completed
\r
171 //-- while (TimeCount<frame){}//; // don't go too fast
\r
183 boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
185 word p,pixperframe;
\r
186 unsigned drawofs,pagedelta;
\r
187 // byte mask,maskb[8] = {1,2,4,8};
\r
188 unsigned x,y,frame ,esorig,q;
\r
190 unsigned source,dest;
\r
191 word screenseg = SCREENSEG;
\r
192 source = ((word)sourcepage->data); dest = ((word)destpage->data);
\r
194 pagedelta = dest-source;
\r
195 rndval = 1; esorig = 0; q = 16;
\r
196 x = y = 0;//destpage->dx;
\r
197 pixperframe = 76800/(dword)frames;
\r
201 // VL_ShowPage(&(gvar->video.page[0]), 1, 0);
\r
202 // VL_ShowPage(&(gvar->video.page[1]), 1, 0);
\r
204 // modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);
\r
205 // modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);
\r
206 // VL_SetLineWidth(80, gvar);
\r
215 sprintf(global_temp_status_text, "%u", frame);
\r
216 modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
217 if (abortable && kbhit())//IN_CheckAck () )
\r
224 for (p=0;p<pixperframe;p++)
\r
228 // seperate random value into x/y pair
\r
230 mov ax,[WORD PTR rndval]
\r
231 mov dx,[WORD PTR rndval+2]
\r
234 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
237 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
238 mov [BYTE PTR x+1],dl
\r
240 // advance to next random element
\r
247 #ifdef __BORLANDC__
\r
251 #ifdef __BORLANDC__
\r
254 mov [WORD PTR rndval],ax
\r
255 mov [WORD PTR rndval+2],dx
\r
258 // if (x>destpage->width || y>destpage->height)
\r
259 // if (x<destpage->sw || y<destpage->sh)
\r
260 if ((x>width || y>height) && (x<width*2 && y<height*2))
\r
262 drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);
\r
263 sprintf(global_temp_status_text, "draw - %Fp", drawofs);
\r
264 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
265 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);
\r
266 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
267 sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);
\r
268 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
269 sprintf(global_temp_status_text, "desp - %Fp", destpage->data);
\r
270 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
271 sprintf(global_temp_status_text, "srce - %Fp", source);
\r
272 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
273 sprintf(global_temp_status_text, "dest - %Fp", dest);
\r
274 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;
\r
282 mask = maskb[mask];
\r
285 // modexputPixel(&(gvar->video.page[0]), x, y, rand());
\r
286 // VL_Plot (x, y, 15, &(gvar->video.ofs));
\r
287 modexCopyPageRegion(destpage, sourcepage, x, y, x, y, 4, 4);
\r
296 if (rndval == 1) // entire sequence has been completed
\r
300 //-- while (TimeCount<frame){}//; // don't go too fast
\r
310 boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
312 word p,pixperframe;
\r
313 unsigned drawofs,pagedelta;
\r
314 byte mask,maskb[8] = {1,2,4,8};
\r
315 unsigned x,y,frame ,esorig,q;
\r
317 unsigned source,dest;
\r
318 // word TimeCount = *clockw;
\r
319 word screenseg = SCREENSEG;
\r
320 source = ((word)sourcepage->data); dest = ((word)destpage->data);
\r
322 pagedelta = dest-source;//(word)(source->data - dest->data);//(dest->data - source->data)
\r
323 rndval = 1; esorig = 0; q = 16;
\r
324 x = y = destpage->dx;
\r
325 pixperframe = /*76800*/64000/(dword)frames;
\r
329 // VL_ShowPage(destpage, 1, 0);
\r
330 // VL_ShowPage(sourcepage, 1, 0);
\r
332 // modexClearRegion(destpage, 0, 0, (destpage->width), (destpage->height), 12);
\r
333 modexClearRegion(sourcepage, 0, 0, (sourcepage->width), (sourcepage->height), 64);
\r
342 sprintf(global_temp_status_text, "%u", frame);
\r
343 modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
344 if (abortable && kbhit())//IN_CheckAck () )
\r
351 for (p=0;p<pixperframe;p++)
\r
355 // seperate random value into x/y pair
\r
357 mov ax,[WORD PTR rndval]
\r
358 mov dx,[WORD PTR rndval+2]
\r
361 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
364 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
365 mov [BYTE PTR x+1],dl
\r
367 // advance to next random element
\r
374 #ifdef __BORLANDC__
\r
378 #ifdef __BORLANDC__
\r
381 mov [WORD PTR rndval],ax
\r
382 mov [WORD PTR rndval+2],dx
\r
385 // if (x>destpage->width || y>destpage->height)
\r
386 // if (x<destpage->sw || y<destpage->sh)
\r
387 if (x>width || y>height)
\r
389 drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);
\r
390 sprintf(global_temp_status_text, "draw - %Fp", drawofs);
\r
391 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
392 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);
\r
393 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
394 sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);
\r
395 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
396 sprintf(global_temp_status_text, "desp - %Fp", destpage->data);
\r
397 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
398 sprintf(global_temp_status_text, "srce - %Fp", source);
\r
399 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;
\r
400 sprintf(global_temp_status_text, "dest - %Fp", dest);
\r
401 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;
\r
408 mask = maskb[mask];
\r
418 if (rndval == 1) // entire sequence has been completed
\r
422 //-- while (TimeCount<frame){}//; // don't go too fast
\r
430 // clrstdin() clear any leftover chars tha may be in stdin stream //
\r
434 while( ( ch = getchar() ) != '\n' && ch != EOF );
\r
437 //===========================================================================
\r
440 ====================
\r
444 ====================
\r
447 void TL_DosLibStartup(global_game_variables_t *gvar)
\r
449 if(gvar->DLStarted)
\r
452 // DOSLIB: check our environment
\r
455 // DOSLIB: what CPU are we using?
\r
456 // NTS: I can see from the makefile Sparky4 intends this to run on 8088 by the -0 switch in CFLAGS.
\r
457 // So this code by itself shouldn't care too much what CPU it's running on. Except that other
\r
458 // parts of this project (DOSLIB itself) rely on CPU detection to know what is appropriate for
\r
459 // the CPU to carry out tasks. --J.C.
\r
462 // DOSLIB: check for VGA
\r
463 if (!probe_vga()) {
\r
464 printf("VGA probe failed\n");
\r
467 // hardware must be VGA or higher!
\r
468 if (!(vga_state.vga_flags & VGA_IS_VGA)) {
\r
469 printf("This program requires VGA or higher graphics hardware\n");
\r
474 gvar->DLStarted = true;
\r
477 //color
\82Ä
\82·
\82Æ
\r
478 void colortest(page_t *page, bakapee_t *pee)
\r
480 //if(pee->coor < 256)
\r
482 // modexcls(page, pee->coor, VGA);
\r
483 VL_ClearVideo (pee->coor);
\r
485 //}else pee->coor = 0;
\r
488 //color
\82Ä
\82·
\82Æ
\r
489 void colorz(page_t *page, bakapee_t *pee)
\r
491 if(pee->coor <= pee->hgq)
\r
493 // modexcls(page, pee->coor, VGA);
\r
494 VL_ClearVideo (pee->coor);
\r
496 }else pee->coor = pee->lgq;
\r
499 //slow spectrum down
\r
500 void ssd(page_t *page, bakapee_t *pee, word svq)
\r
502 if(pee->sy < page->sh+1)
\r
504 if(pee->sx < page->sw+1)
\r
506 //mxPutPixel(sx, sy, coor);
\r
507 //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
\r
511 if(pee->sx == page->sw)
\r
514 if(svq == 7) pee->coor++;
\r
515 if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
\r
520 //plot pixel or plot tile
\r
521 void dingpp(page_t *page, bakapee_t *pee)
\r
525 modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
\r
528 modexputPixel(page, pee->xx, pee->yy, pee->coor);
\r
531 void dingo(page_t *page, bakapee_t *pee)
\r
535 if(pee->xx<0) pee->xx=(page->sw-TILEWH);
\r
536 if(pee->yy<0) pee->yy=(page->sh-TILEWH);
\r
537 if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
\r
538 if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
\r
542 if(pee->xx<0) pee->xx=page->sw;
\r
543 if(pee->yy<0) pee->yy=page->sh;
\r
544 if(pee->xx>page->sw) pee->xx=0;
\r
545 if(pee->yy>page->sh) pee->yy=0;
\r
549 //assigning values from randomizer
\r
550 void dingas(bakapee_t *pee)
\r
552 if(pee->gq == pee->bonk) dingu(pee);
\r
559 else if(pee->bakax>1)
\r
571 else if(pee->bakay>1)
\r
579 void dingaso(bakapee_t *pee)
\r
581 if(pee->gq == pee->bonk) dingu(pee);
\r
608 void dingu(bakapee_t *pee)
\r
610 if(pee->coor < pee->hgq && pee->coor < pee->lgq) pee->coor = pee->lgq;
\r
611 if(pee->coor < pee->hgq)
\r
615 pee->coor = pee->lgq;
\r
620 void dingq(bakapee_t *pee)
\r
622 if(pee->gq<pee->bonk)
\r
631 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
634 void dingqo(bakapee_t *pee)
\r
636 if(pee->gq<pee->bonk)
\r
639 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
646 //either one will do wwww --4
\r
647 pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;
\r
648 //pee->bakax = rand()%2; pee->bakay = rand()%2;
\r
651 /*-----------ding-------------*/
\r
652 void ding(page_t *page, bakapee_t *pee, word q)
\r
654 word tx=0,ty=0;//d3y,
\r
656 //++++ if(q <= 4 && q!=2 && gq == pee->bonk-1) coor = rand()%pee->hgq;
\r
661 if(pee->xx==page->sw){pee->bakax=0;}
\r
662 if(pee->xx==0){pee->bakax=1;}
\r
663 if(pee->yy==page->sh){pee->bakay=0;}
\r
664 if(pee->yy==0){pee->bakay=1;}*/
\r
668 dingpp(page, pee); //plot the pixel/tile
\r
670 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
672 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
678 dingpp(page, pee); //plot the pixel/tile
\r
680 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
682 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
686 if(pee->xx!=page->sw||pee->yy!=page->sh)
\r
688 if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
\r
689 if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
690 if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
\r
691 if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
692 }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
\r
714 dingpp(page, pee); //plot the pixel/tile*/
\r
718 dingpp(page, pee); //plot the pixel/tile
\r
724 dingpp(page, pee); //plot the pixel/tile
\r
727 colortest(page, pee);
\r
730 // pee->coor = rand()%256;
\r
731 // modexcls(page, pee->coor, VGA);
\r
733 modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");
\r
736 if(pee->coor <= pee->hgq)
\r
740 }else pee->coor = pee->lgq;
\r
744 modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");
\r
747 modexClearRegion(&(ggvv->video.page[0]), 0, 0, ggvv->video.page[0].width/2, ggvv->video.page[0].height/2, 15);
\r
748 #ifdef BAKAFIZZUNSIGNED
\r
749 // baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);
\r
750 baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, ggvv->video.page[0].width, ggvv->video.page[0].height, 70, true, ggvv);
\r
752 baka_FizzleFade (&ggvv->video.page[1], &ggvv->video.page[0], vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);
\r
756 ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
\r
759 colorz(page, pee); delay(100);
\r
762 case 16: //interesting effects
\r
764 if(!pee->bakax){ pee->xx--;}
\r
765 else if(pee->bakax>0){ pee->xx++; }
\r
766 if(!pee->bakay){ pee->yy--;}
\r
767 else if(pee->bakay>0){ pee->yy++; }
\r
769 tx+=pee->xx+TILEWH+4;
\r
770 ty+=pee->yy+TILEWH+4;
\r
771 modexClearRegion(page, tx, ty, 4, 4, pee->coor);
\r
773 modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);
\r
775 modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
\r
776 //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
\r
781 //printf(" %dx%d %dx%d\n", pee->xx, pee->yy, tx, ty);
\r