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
46 boolean baka_FizzleFade (page_t *source, page_t *dest, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
48 dword p,pixperframe;
\r
49 unsigned drawofs,pagedelta;
\r
50 byte mask,maskb[8] = {1,2,4,8};
\r
51 unsigned x,y,frame ,esorig;
\r
53 // word TimeCount = *clockw;
\r
54 word screenseg = SCREENSEG;
\r
56 pagedelta = (word)dest->sw*dest->sh;//(word)(source->data - dest->data);//(dest->data - source->data)
\r
57 rndval = 1; esorig = 0;
\r
59 pixperframe = 76800/(dword)frames;
\r
63 // VL_ShowPage(dest, 1, 0);
\r
64 // VL_ShowPage(source, 1, 0);
\r
66 // modexClearRegion(dest, 0, 0, (dest->width), (dest->height), 12);
\r
67 modexClearRegion(source, 0, 0, (source->width), (source->height), 64);
\r
76 sprintf(global_temp_status_text, "%u", frame);
\r
77 modexprint(dest, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
78 if (abortable && kbhit())//IN_CheckAck () )
\r
85 for (p=0;p<pixperframe;p++)
\r
89 // seperate random value into x/y pair
\r
91 mov ax,[WORD PTR rndval]
\r
92 mov dx,[WORD PTR rndval+2]
\r
95 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
98 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
99 mov [BYTE PTR x+1],dl
\r
101 // advance to next random element
\r
108 #ifdef __BORLANDC__
\r
112 #ifdef __BORLANDC__
\r
115 mov [WORD PTR rndval],ax
\r
116 mov [WORD PTR rndval+2],dx
\r
119 if (x>dest->sw || y>dest->sh)
\r
121 drawofs = (word)(source->data)+gvar->video.ofs.ylookup[y] + (x>>2);
\r
122 sprintf(global_temp_status_text, "draw - %Fp", drawofs);
\r
123 modexprint(dest, PIXPOSX, 16+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
124 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);
\r
125 modexprint(dest, PIXPOSX, 24+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
126 sprintf(global_temp_status_text, "srce - %Fp", source->data);
\r
127 modexprint(dest, PIXPOSX, 32+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
128 sprintf(global_temp_status_text, "dest - %Fp", dest->data);
\r
129 modexprint(dest, PIXPOSX, 40+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);
\r
136 mask = maskb[mask];
\r
146 if (rndval == 1) // entire sequence has been completed
\r
150 //-- while (TimeCount<frame){}//; // don't go too fast
\r
158 boolean baka_FizzleFade (unsigned source, unsigned dest, unsigned width,unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
161 unsigned drawofs,pagedelta;
\r
162 byte mask,maskb[8] = {1,2,4,8};
\r
163 unsigned x,y,p,frame;
\r
165 word TimeCount = *clockw;
\r
166 word screenseg = SCREENSEG;
\r
168 pagedelta = dest-source;
\r
171 pixperframe = 64000/frames;
\r
173 VGAmodeX(0, 0, gvar);
\r
175 // VL_ShowPage((page_t *)dest, 1, 0);
\r
176 VGAmodeX(1, 0, gvar);
\r
181 if (abortable && !kbhit())//IN_CheckAck () )
\r
188 for (p=0;p<pixperframe;p++)
\r
192 // seperate random value into x/y pair
\r
194 mov ax,[WORD PTR rndval]
\r
195 mov dx,[WORD PTR rndval+2]
\r
198 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
201 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
202 mov [BYTE PTR x+1],dl
\r
204 // advance to next random element
\r
212 mov [WORD PTR rndval],ax
\r
213 mov [WORD PTR rndval+2],dx
\r
216 if (x>width || y>height)
\r
218 drawofs = source+gvar->video.ofs.ylookup[y] + (x>>2);
\r
225 mask = maskb[mask];
\r
235 if (rndval == 1) // entire sequence has been completed
\r
239 // while (TimeCount<frame){}//; // don't go too fast
\r
244 /* clrstdin() clear any leftover chars tha may be in stdin stream */
\r
248 while( ( ch = getchar() ) != '\n' && ch != EOF );
\r
251 //color
\82Ä
\82·
\82Æ
\r
252 void colortest(page_t *page, bakapee_t *pee)
\r
254 //if(pee->coor < 256)
\r
256 // modexcls(page, pee->coor, VGA);
\r
257 VL_ClearVideo (pee->coor);
\r
259 //}else pee->coor = 0;
\r
262 //color
\82Ä
\82·
\82Æ
\r
263 void colorz(page_t *page, bakapee_t *pee)
\r
265 if(pee->coor <= pee->hgq)
\r
267 // modexcls(page, pee->coor, VGA);
\r
268 VL_ClearVideo (pee->coor);
\r
270 }else pee->coor = pee->lgq;
\r
273 //slow spectrum down
\r
274 void ssd(page_t *page, bakapee_t *pee, word svq)
\r
276 if(pee->sy < page->sh+1)
\r
278 if(pee->sx < page->sw+1)
\r
280 //mxPutPixel(sx, sy, coor);
\r
281 //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
\r
285 if(pee->sx == page->sw)
\r
288 if(svq == 7) pee->coor++;
\r
289 if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
\r
294 //plot pixel or plot tile
\r
295 void dingpp(page_t *page, bakapee_t *pee)
\r
299 modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
\r
302 modexputPixel(page, pee->xx, pee->yy, pee->coor);
\r
305 void dingo(page_t *page, bakapee_t *pee)
\r
309 if(pee->xx<0) pee->xx=(page->sw-TILEWH);
\r
310 if(pee->yy<0) pee->yy=(page->sh-TILEWH);
\r
311 if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
\r
312 if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
\r
316 if(pee->xx<0) pee->xx=page->sw;
\r
317 if(pee->yy<0) pee->yy=page->sh;
\r
318 if(pee->xx>page->sw) pee->xx=0;
\r
319 if(pee->yy>page->sh) pee->yy=0;
\r
323 //assigning values from randomizer
\r
324 void dingas(bakapee_t *pee)
\r
326 if(pee->gq == pee->bonk) dingu(pee);
\r
333 else if(pee->bakax>1)
\r
345 else if(pee->bakay>1)
\r
353 void dingaso(bakapee_t *pee)
\r
355 if(pee->gq == pee->bonk) dingu(pee);
\r
382 void dingu(bakapee_t *pee)
\r
384 if(pee->coor < pee->hgq && pee->coor < pee->lgq) pee->coor = pee->lgq;
\r
385 if(pee->coor < pee->hgq)
\r
389 pee->coor = pee->lgq;
\r
394 void dingq(bakapee_t *pee)
\r
396 if(pee->gq<pee->bonk)
\r
405 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
408 void dingqo(bakapee_t *pee)
\r
410 if(pee->gq<pee->bonk)
\r
413 pee->bakax = rand()%3; pee->bakay = rand()%3;
\r
420 //either one will do wwww --4
\r
421 pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;
\r
422 //pee->bakax = rand()%2; pee->bakay = rand()%2;
\r
425 /*-----------ding-------------*/
\r
426 void ding(page_t *page, bakapee_t *pee, word q)
\r
428 word tx=0,ty=0;//d3y,
\r
430 //++++ if(q <= 4 && q!=2 && gq == pee->bonk-1) coor = rand()%pee->hgq;
\r
435 if(pee->xx==page->sw){pee->bakax=0;}
\r
436 if(pee->xx==0){pee->bakax=1;}
\r
437 if(pee->yy==page->sh){pee->bakay=0;}
\r
438 if(pee->yy==0){pee->bakay=1;}*/
\r
442 dingpp(page, pee); //plot the pixel/tile
\r
444 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
446 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
452 dingpp(page, pee); //plot the pixel/tile
\r
454 modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
\r
456 modexputPixel(page, rand()%page->width, rand()%page->height, 0);
\r
460 if(pee->xx!=page->sw||pee->yy!=page->sh)
\r
462 if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
\r
463 if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
464 if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
\r
465 if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
\r
466 }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
\r
488 dingpp(page, pee); //plot the pixel/tile*/
\r
492 dingpp(page, pee); //plot the pixel/tile
\r
498 dingpp(page, pee); //plot the pixel/tile
\r
501 colortest(page, pee);
\r
504 // pee->coor = rand()%256;
\r
505 // modexcls(page, pee->coor, VGA);
\r
507 modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");
\r
510 if(pee->coor <= pee->hgq)
\r
514 }else pee->coor = pee->lgq;
\r
518 modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");
\r
521 //baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, page->sw, page->sh, false, ggvv);
\r
522 // modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi start");
\r
523 // if(!baka_FizzleFade ((unsigned)page, (unsigned)page, page->width, page->height, 70, false, ggvv))
\r
526 ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
\r
529 colorz(page, pee); delay(100);
\r
532 case 16: //interesting effects
\r
534 if(!pee->bakax){ pee->xx--;}
\r
535 else if(pee->bakax>0){ pee->xx++; }
\r
536 if(!pee->bakay){ pee->yy--;}
\r
537 else if(pee->bakay>0){ pee->yy++; }
\r
539 tx+=pee->xx+TILEWH+4;
\r
540 ty+=pee->yy+TILEWH+4;
\r
541 modexClearRegion(page, tx, ty, 4, 4, pee->coor);
\r
543 modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);
\r
545 modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
\r
546 //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
\r
551 //printf(" %dx%d %dx%d\n", pee->xx, pee->yy, tx, ty);
\r