-/* Project 16 Source Code~
- * Copyright (C) 2012-2015 sparky4 & pngwen & andrius4669
- *
- * This file is part of Project 16.
- *
- * Project 16 is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as publipage->shed by
- * the Free Software Foundation; either version 3 of the License, or
- * (at your option) any later version.
- *
- * Project 16 is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You page->should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>, or
- * write to the Free Software Foundation, Inc., 51 Franklin Street,
- * Fifth Floor, Boston, MA 02110-1301 USA.
- *
- */
-
-#include "src/lib/bakapee.h"
-
-//color \82Ä\82·\82Æ
-void colortest(page_t *page, bakapee_t *pee)
-{
- //if(pee->coor < 256)
- //{
- cls(page, pee->coor, VGA);
- pee->coor++;
- //}else pee->coor = 0;
-}
-
-//color \82Ä\82·\82Æ
-void colorz(page_t *page, bakapee_t *pee)
-{
- if(pee->coor <= HGQ)
- {
- cls(page, pee->coor, VGA);
- pee->coor++;
- }else pee->coor = LGQ;
-}
-
-//slow spectrum down
-void ssd(page_t *page, bakapee_t *pee, word svq)
-{
- if(pee->sy < page->sh+1)
- {
- if(pee->sx < page->sw+1)
- {
- //mxPutPixel(sx, sy, coor);
- //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);
- dingpp(page, pee);
- pee->sx++;
- }else pee->sx = 0;
- if(pee->sx == page->sw)
- {
- pee->sy++;
- if(svq == 7) pee->coor++;
- if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;
- }
- }else pee->sy = 0;
-}
-
-//plot pixel or plot tile
-void dingpp(page_t *page, bakapee_t *pee)
-{
-#ifdef TILE
-#ifndef MXLIB
- //fill_block(pee->xx, pee->yy, pee->xx+TILEWH, pee->yy+TILEWH, pee->coor);
- mxFillBox(pee->xx, pee->yy, TILEWH, TILEWH, pee->coor, OP_SET);
-#else
- modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);
-#endif
-#else
- modexputPixel(page, pee->xx, pee->yy, pee->coor);
-#endif
-}
-
-void dingo(page_t *page, bakapee_t *pee)
-{
- #ifdef TILE
- if(pee->xx<0) pee->xx=(page->sw-TILEWH);
- if(pee->yy<0) pee->yy=(page->sh-TILEWH);
- if(pee->xx>(page->sw-TILEWH)) pee->xx=0;
- if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;
- #else
- if(pee->xx<0) pee->xx=page->sw;
- if(pee->yy<0) pee->yy=page->sh;
- if(pee->xx>page->sw) pee->xx=0;
- if(pee->yy>page->sh) pee->yy=0;
- #endif
-}
-
-//assigning values from randomizer
-void dingas(bakapee_t *pee)
-{
- if(pee->gq == BONK) dingu(pee);
- if(!pee->bakax)
- {
- #ifdef TILE
- pee->xx-=TILEWH;
- #else
- pee->xx--;
- #endif
- }
- else if(pee->bakax>1)
- {
- #ifdef TILE
- pee->xx+=TILEWH;
- #else
- pee->xx++;
- #endif
- }
- if(!pee->bakay)
- {
- #ifdef TILE
- pee->yy-=TILEWH;
- #else
- pee->yy--;
- #endif
- }
- else if(pee->bakay>1)
- {
- #ifdef TILE
- pee->yy+=TILEWH;
- #else
- pee->yy++;
- #endif
- }
-}
-
-void dingu(bakapee_t *pee)
-{
- if(pee->coor < HGQ && pee->coor < LGQ) pee->coor = LGQ;
- if(pee->coor < HGQ)
- {
- pee->coor++;
- }else{
- pee->coor = LGQ;
- }
-}
-
-//randomizer
-void dingq(bakapee_t *pee)
-{
- if(pee->gq<BONK)
- {
- pee->gq++;
- }
- else
- {
- dingu(pee);
- pee->gq = 0;
- }
- pee->bakax = rand()%3; pee->bakay = rand()%3;
-}
-
-/*-----------ding-------------*/
-void ding(page_t *page, bakapee_t *pee, word q)
-{
- word d3y, tx=0,ty=0;
-
-//++++ if(q <= 4 && q!=2 && gq == BONK-1) coor = rand()%HGQ;
- switch(q)
- {
- case 1:
- dingq(pee);
- if(pee->xx==page->sw){pee->bakax=0;}
- if(pee->xx==0){pee->bakax=1;}
- if(pee->yy==page->sh){pee->bakay=0;}
- if(pee->yy==0){pee->bakay=1;}
- break;
- case 2:
- dingq(pee);
- dingas(pee);
- dingo(page, pee);
- dingpp(page, pee); //plot the pixel/tile
-#ifdef TILE
- modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
-#else
- modexputPixel(page, rand()%page->width, rand()%page->height, 0);
-#endif
- break;
- case 3:
- dingq(pee);
- if(pee->xx!=page->sw||pee->yy!=page->sh)
- {
- if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}
- if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}
- if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}
- if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}
- }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;
- if(d3y)
- {
- if(pee->bakay<0)
- {
- pee->yy--;
- d3y--;
- }else
- if(pee->bakay>0)
- {
- pee->yy++;
- d3y--;
- }
- }
- if(pee->bakax<0)
- {
- pee->xx--;
- }else
- if(pee->bakax>0)
- {
- pee->xx++;
- }
- dingpp(page, pee); //plot the pixel/tile
- break;
- case 4:
- dingq(pee);
- dingas(pee);
- dingo(page, pee);
- dingpp(page, pee); //plot the pixel/tile
- break;
- case 5:
- colortest(page, pee);
- break;
- case 6:
- pee->coor = rand()%256;
- cls(page, pee->coor, VGA);
- break;
- case 7:
- if(pee->coor <= HGQ)
- {
- ssd(page, pee, q);
- pee->coor++;
- }else pee->coor = LGQ;
- break;
- case 8:
- colorz(page, pee);
- modexprint(page, page->sw/2, page->sh/2, 1, 47, 0, "bakapi", 1);
- break;
- case 9:
- if(pee->coor <= HGQ)
- {
- ssd(page, pee, q);
- pee->coor++;
- }else pee->coor = LGQ;
- break;
- case 10:
- ssd(page, pee, q); /*printf("%d\n", pee->coor);*/
- break;
- case 11:
- colorz(page, pee); delay(100);
- break;
-
- case 16: //interesting effects
- dingq(pee);
- if(!pee->bakax){ pee->xx--;}
- else if(pee->bakax>0){ pee->xx++; }
- if(!pee->bakay){ pee->yy--;}
- else if(pee->bakay>0){ pee->yy++; }
- dingas(pee);
- tx+=pee->xx+TILEWH+4;
- ty+=pee->yy+TILEWH+4;
- modexClearRegion(page, tx, ty, 4, 4, pee->coor);
-#ifdef TILE
- modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);
-#else
- modexputPixel(page, rand()%page->width, rand()%(page->height), 0);
-#endif
- //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);
- break;
- default:
- break;
- }
- //pee->coor++;
-}
+/* Project 16 Source Code~\r
+ * Copyright (C) 2012-2021 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ *\r
+ * This file is part of Project 16.\r
+ *\r
+ * Project 16 is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 3 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * Project 16 is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program. If not, see <http://www.gnu.org/licenses/>, or\r
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,\r
+ * Fifth Floor, Boston, MA 02110-1301 USA.\r
+ *\r
+ */\r
+\r
+#include "src/lib/bakapee.h"\r
+\r
+//static word far* clockw= (word far*) 0x046C; /* 18.2hz clock */\r
+//char global_temp_status_text[512];\r
+//char global_temp_status_text2[512];\r
+\r
+//==========================================================================\r
+\r
+/*\r
+===================\r
+=\r
+= FizzleFade\r
+=\r
+= returns true if aborted\r
+=\r
+===================\r
+*/\r
+\r
+//extern ControlInfo c;\r
+#define PIXPOSX gvar->video.page[0].sw/2\r
+#define PIXPOSY gvar->video.page[0].sh/2\r
+\r
+/*\r
+===================\r
+=\r
+= FizzleFade\r
+=\r
+= returns true if aborted\r
+=\r
+===================\r
+*/\r
+\r
+//extern ControlInfo c;\r
+//#define PIXPOSX gvar->video.page[0].sw/2\r
+//#define PIXPOSY gvar->video.page[0].sh/2\r
+#ifdef BAKAFIZZUNSIGNED\r
+boolean baka_FizzleFade (unsigned source, unsigned dest, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
+{\r
+ word p,pixperframe;\r
+ unsigned drawofs,pagedelta;\r
+ byte mask,maskb[8] = {1,2,4,8};\r
+ unsigned x,y,frame;\r
+ long rndval;\r
+ word screenseg;\r
+#ifdef __WATCOMC__\r
+ unsigned esorig;//,q;\r
+#endif\r
+\r
+ pagedelta = dest-source;\r
+ rndval = 1;\r
+#ifdef __WATCOMC__\r
+ esorig = 0;// q = 16;\r
+#endif\r
+ x = y = 0;\r
+ pixperframe = (dword)(gvar->video.page[0].width*gvar->video.page[0].height)/frames;//64000/(dword)frames;\r
+ screenseg = SCREENSEG;\r
+\r
+// IN_StartAck (gvar);\r
+\r
+// modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);\r
+// modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);\r
+\r
+#ifdef __WATCOMC__\r
+ __asm {\r
+ mov [esorig],es\r
+ }\r
+#endif\r
+// TimeCount=\r
+ frame=0;\r
+ do // while (1)\r
+ {\r
+ if (abortable && kbhit())//IN_CheckAck (gvar) )\r
+ return true;\r
+\r
+ __asm {\r
+ mov es,[screenseg]\r
+ }\r
+\r
+ for (p=0;p<pixperframe;p++)\r
+ {\r
+ __asm {\r
+ //\r
+ // seperate random value into x/y pair\r
+ //\r
+ mov ax,[WORD PTR rndval]\r
+ mov dx,[WORD PTR rndval+2]\r
+ mov bx,ax\r
+ dec bl\r
+ mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate\r
+ mov bx,ax\r
+ mov cx,dx\r
+ mov [BYTE PTR x],ah // next 9 bits = x xoordinate\r
+ mov [BYTE PTR x+1],dl\r
+ //\r
+ // advance to next random element\r
+ //\r
+ shr dx,1\r
+ rcr ax,1\r
+ jnc noxor\r
+ xor dx,0x0001\r
+ xor ax,0x2000\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+noxor:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov [WORD PTR rndval],ax\r
+ mov [WORD PTR rndval+2],dx\r
+ }\r
+\r
+ if (x>width || y>height)\r
+// if ((x>width || y>height) && (x<width*2 && y<height*2))\r
+ continue;\r
+// drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
+ drawofs = source+(y*gvar->video.page[0].stridew) + (x>>2);\r
+/*\r
+sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
+modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
+modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "srce - %Fp", source);\r
+modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "dest - %Fp", dest);\r
+modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
+*/\r
+\r
+ //\r
+ // copy one pixel\r
+ //\r
+ mask = x&3;\r
+ VGAREADMAP(mask);\r
+ mask = maskb[mask];\r
+ VGAMAPMASK(mask);\r
+\r
+ __asm {\r
+ mov di,[drawofs]\r
+ mov al,[es:di]\r
+ add di,[pagedelta]\r
+ mov [es:di],al\r
+ }\r
+\r
+ if (rndval == 1) // entire sequence has been completed\r
+ return false;\r
+ }\r
+ frame++;\r
+//-- while (TimeCount<frame){}//; // don't go too fast\r
+ delay(1);\r
+ } while (1);\r
+#ifdef __WATCOMC__\r
+ __asm {\r
+ mov es,[esorig]\r
+ }\r
+ return false;\r
+#endif\r
+}\r
+#endif\r
+#if 0\r
+boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
+{\r
+ word p,pixperframe;\r
+ unsigned drawofs,pagedelta;\r
+// byte mask,maskb[8] = {1,2,4,8};\r
+ unsigned x,y,frame ,esorig,q;\r
+ dword rndval;\r
+ unsigned source,dest;\r
+ word screenseg = SCREENSEG;\r
+ source = ((word)sourcepage->data); dest = ((word)destpage->data);\r
+\r
+ pagedelta = dest-source;\r
+ rndval = 1; esorig = 0; q = 16;\r
+ x = y = 0;//destpage->dx;\r
+ pixperframe = 76800/(dword)frames;\r
+\r
+// IN_StartAck ();\r
+\r
+// VL_ShowPage(&(gvar->video.page[0]), 1, 0);\r
+// VL_ShowPage(&(gvar->video.page[1]), 1, 0);\r
+\r
+// modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);\r
+// modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);\r
+// VL_SetLineWidth(80, gvar);\r
+\r
+ __asm {\r
+ mov [esorig],es\r
+ }\r
+// TimeCount=\r
+ frame=0;\r
+ do // while (1)\r
+ {\r
+sprintf(global_temp_status_text, "%u", frame);\r
+modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);\r
+ if (abortable && kbhit())//IN_CheckAck () )\r
+ return true;\r
+\r
+ __asm {\r
+ mov es,[screenseg]\r
+ }\r
+\r
+ for (p=0;p<pixperframe;p++)\r
+ {\r
+ __asm {\r
+ //\r
+ // seperate random value into x/y pair\r
+ //\r
+ mov ax,[WORD PTR rndval]\r
+ mov dx,[WORD PTR rndval+2]\r
+ mov bx,ax\r
+ dec bl\r
+ mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate\r
+ mov bx,ax\r
+ mov cx,dx\r
+ mov [BYTE PTR x],ah // next 9 bits = x xoordinate\r
+ mov [BYTE PTR x+1],dl\r
+ //\r
+ // advance to next random element\r
+ //\r
+ shr dx,1\r
+ rcr ax,1\r
+ jnc noxor\r
+ xor dx,0x0001\r
+ xor ax,0x2000\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+noxor:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov [WORD PTR rndval],ax\r
+ mov [WORD PTR rndval+2],dx\r
+ }\r
+\r
+// if (x>destpage->width || y>destpage->height)\r
+// if (x<destpage->sw || y<destpage->sh)\r
+ if ((x>width || y>height) && (x<width*2 && y<height*2))\r
+ continue;\r
+ drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
+sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "desp - %Fp", destpage->data);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "srce - %Fp", source);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "dest - %Fp", dest);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
+\r
+ //\r
+ // copy one pixel\r
+ //\r
+/*\r
+ mask = x&3;\r
+ VGAREADMAP(mask);\r
+ mask = maskb[mask];\r
+ VGAMAPMASK(mask);\r
+/*/\r
+// modexputPixel(&(gvar->video.page[0]), x, y, rand());\r
+// VL_Plot (x, y, 15, &(gvar->video.ofs));\r
+ modexCopyPageRegion(destpage, sourcepage, x, y, x, y, 4, 4);\r
+\r
+ __asm {\r
+ mov di,[drawofs]\r
+ mov al,[es:di]\r
+ add di,[pagedelta]\r
+ mov [es:di],al\r
+ }\r
+\r
+ if (rndval == 1) // entire sequence has been completed\r
+ return false;\r
+ }\r
+ frame++;\r
+//-- while (TimeCount<frame){}//; // don't go too fast\r
+ } while (1);\r
+ __asm {\r
+ mov es,[esorig]\r
+ }\r
+ return false;\r
+}\r
+#endif\r
+\r
+#if 0\r
+boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
+{\r
+ word p,pixperframe;\r
+ unsigned drawofs,pagedelta;\r
+ byte mask,maskb[8] = {1,2,4,8};\r
+ unsigned x,y,frame ,esorig,q;\r
+ dword rndval;\r
+ unsigned source,dest;\r
+// word TimeCount = *clockw;\r
+ word screenseg = SCREENSEG;\r
+ source = ((word)sourcepage->data); dest = ((word)destpage->data);\r
+\r
+ pagedelta = dest-source;//(word)(source->data - dest->data);//(dest->data - source->data)\r
+ rndval = 1; esorig = 0; q = 16;\r
+ x = y = destpage->dx;\r
+ pixperframe = /*76800*/64000/(dword)frames;\r
+\r
+// IN_StartAck ();\r
+\r
+// VL_ShowPage(destpage, 1, 0);\r
+// VL_ShowPage(sourcepage, 1, 0);\r
+\r
+// modexClearRegion(destpage, 0, 0, (destpage->width), (destpage->height), 12);\r
+ modexClearRegion(sourcepage, 0, 0, (sourcepage->width), (sourcepage->height), 64);\r
+\r
+ __asm {\r
+ mov [esorig],es\r
+ }\r
+// TimeCount=\r
+ frame=0;\r
+ do // while (1)\r
+ {\r
+sprintf(global_temp_status_text, "%u", frame);\r
+modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);\r
+ if (abortable && kbhit())//IN_CheckAck () )\r
+ return true;\r
+\r
+ __asm {\r
+ mov es,[screenseg]\r
+ }\r
+\r
+ for (p=0;p<pixperframe;p++)\r
+ {\r
+ __asm {\r
+ //\r
+ // seperate random value into x/y pair\r
+ //\r
+ mov ax,[WORD PTR rndval]\r
+ mov dx,[WORD PTR rndval+2]\r
+ mov bx,ax\r
+ dec bl\r
+ mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate\r
+ mov bx,ax\r
+ mov cx,dx\r
+ mov [BYTE PTR x],ah // next 9 bits = x xoordinate\r
+ mov [BYTE PTR x+1],dl\r
+ //\r
+ // advance to next random element\r
+ //\r
+ shr dx,1\r
+ rcr ax,1\r
+ jnc noxor\r
+ xor dx,0x0001\r
+ xor ax,0x2000\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+noxor:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov [WORD PTR rndval],ax\r
+ mov [WORD PTR rndval+2],dx\r
+ }\r
+\r
+// if (x>destpage->width || y>destpage->height)\r
+// if (x<destpage->sw || y<destpage->sh)\r
+ if (x>width || y>height)\r
+ continue;\r
+ drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
+sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "desp - %Fp", destpage->data);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "srce - %Fp", source);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
+sprintf(global_temp_status_text, "dest - %Fp", dest);\r
+modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
+\r
+ //\r
+ // copy one pixel\r
+ //\r
+ mask = x&3;\r
+ VGAREADMAP(mask);\r
+ mask = maskb[mask];\r
+ VGAMAPMASK(mask);\r
+\r
+ __asm {\r
+ mov di,[drawofs]\r
+ mov al,[es:di]\r
+ add di,[pagedelta]\r
+ mov [es:di],al\r
+ }\r
+\r
+ if (rndval == 1) // entire sequence has been completed\r
+ return false;\r
+ }\r
+ frame++;\r
+//-- while (TimeCount<frame){}//; // don't go too fast\r
+ } while (1);\r
+ __asm {\r
+ mov es,[esorig]\r
+ }\r
+ return false;\r
+}\r
+#endif\r
+// clrstdin() clear any leftover chars tha may be in stdin stream //\r
+void clrstdin()\r
+{\r
+ int ch = 0;\r
+ while( ( ch = getchar() ) != '\n' && ch != EOF );\r
+}\r
+\r
+//===========================================================================\r
+\r
+/*\r
+====================\r
+=\r
+= TL_DosLibStartup\r
+=\r
+====================\r
+*/\r
+\r
+void TL_DosLibStartup(global_game_variables_t *gvar)\r
+{\r
+ if(gvar->DLStarted)\r
+ return;\r
+\r
+ // DOSLIB: check our environment\r
+ probe_dos();\r
+\r
+ // DOSLIB: what CPU are we using?\r
+ // NTS: I can see from the makefile Sparky4 intends this to run on 8088 by the -0 switch in CFLAGS.\r
+ // So this code by itself shouldn't care too much what CPU it's running on. Except that other\r
+ // parts of this project (DOSLIB itself) rely on CPU detection to know what is appropriate for\r
+ // the CPU to carry out tasks. --J.C.\r
+ cpu_probe();\r
+\r
+ // DOSLIB: check for VGA\r
+ if (!probe_vga()) {\r
+ printf("VGA probe failed\n");\r
+ return;\r
+ }\r
+ // hardware must be VGA or higher!\r
+ if (!(vga_state.vga_flags & VGA_IS_VGA)) {\r
+ printf("This program requires VGA or higher graphics hardware\n");\r
+ return;\r
+ }\r
+\r
+ textInit();\r
+ gvar->DLStarted = true;\r
+}\r
+\r
+//color \82Ä\82·\82Æ\r
+void colortest(page_t *page, bakapee_t *pee)\r
+{\r
+ //if(pee->coor < 256)\r
+ //{\r
+// modexcls(page, pee->coor, VGA);\r
+ VL_ClearVideo (pee->coor);\r
+ pee->coor++;\r
+ //}else pee->coor = 0;\r
+}\r
+\r
+//color \82Ä\82·\82Æ\r
+void colorz(page_t *page, bakapee_t *pee)\r
+{\r
+ if(pee->coor <= pee->hgq)\r
+ {\r
+// modexcls(page, pee->coor, VGA);\r
+ VL_ClearVideo (pee->coor);\r
+ pee->coor++;\r
+ }else pee->coor = pee->lgq;\r
+}\r
+\r
+//slow spectrum down\r
+void ssd(page_t *page, bakapee_t *pee, word svq)\r
+{\r
+ if(pee->sy < page->sh+1)\r
+ {\r
+ if(pee->sx < page->sw+1)\r
+ {\r
+ //mxPutPixel(sx, sy, coor);\r
+ //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);\r
+ dingpp(page, pee);\r
+ pee->sx++;\r
+ }else pee->sx = 0;\r
+ if(pee->sx == page->sw)\r
+ {\r
+ pee->sy++;\r
+ if(svq == 7) pee->coor++;\r
+ if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;\r
+ }\r
+ }else pee->sy = 0;\r
+}\r
+\r
+//plot pixel or plot tile\r
+void dingpp(page_t *page, bakapee_t *pee)\r
+{\r
+ if(pee->tile)\r
+ {\r
+ modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);\r
+ }\r
+ else\r
+ modexputPixel(page, pee->xx, pee->yy, pee->coor);\r
+}\r
+\r
+void dingo(page_t *page, bakapee_t *pee)\r
+{\r
+ if(pee->tile)\r
+ {\r
+ if(pee->xx<0) pee->xx=(page->sw-TILEWH);\r
+ if(pee->yy<0) pee->yy=(page->sh-TILEWH);\r
+ if(pee->xx>(page->sw-TILEWH)) pee->xx=0;\r
+ if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;\r
+ }\r
+ else\r
+ {\r
+ if(pee->xx<0) pee->xx=page->sw;\r
+ if(pee->yy<0) pee->yy=page->sh;\r
+ if(pee->xx>page->sw) pee->xx=0;\r
+ if(pee->yy>page->sh) pee->yy=0;\r
+ }\r
+}\r
+\r
+//assigning values from randomizer\r
+void dingas(bakapee_t *pee)\r
+{\r
+ if(pee->gq == pee->bonk) dingu(pee);\r
+ if(!pee->bakax)\r
+ {\r
+ if(pee->tile)\r
+ pee->xx-=TILEWH;\r
+ else pee->xx--;\r
+ }\r
+ else if(pee->bakax>1)\r
+ {\r
+ if(pee->tile)\r
+ pee->xx+=TILEWH;\r
+ else pee->xx++;\r
+ }\r
+ if(!pee->bakay)\r
+ {\r
+ if(pee->tile)\r
+ pee->yy-=TILEWH;\r
+ else pee->yy--;\r
+ }\r
+ else if(pee->bakay>1)\r
+ {\r
+ if(pee->tile)\r
+ pee->yy+=TILEWH;\r
+ else pee->yy++;\r
+ }\r
+}\r
+\r
+void dingaso(bakapee_t *pee)\r
+{\r
+ if(pee->gq == pee->bonk) dingu(pee);\r
+ if(!pee->bakax)\r
+ {\r
+ if(pee->tile)\r
+ pee->xx-=TILEWH;\r
+ else pee->xx--;\r
+ }\r
+ else\r
+ {\r
+ if(pee->tile)\r
+ pee->xx+=TILEWH;\r
+ else pee->xx++;\r
+ }\r
+ if(!pee->bakay)\r
+ {\r
+ if(pee->tile)\r
+ pee->yy-=TILEWH;\r
+ else pee->yy--;\r
+ }\r
+ else\r
+ {\r
+ if(pee->tile)\r
+ pee->yy+=TILEWH;\r
+ else pee->yy++;\r
+ }\r
+}\r
+\r
+void dingu(bakapee_t *pee)\r
+{\r
+ if(pee->coor < pee->hgq && pee->coor < pee->lgq) pee->coor = pee->lgq;\r
+ if(pee->coor < pee->hgq)\r
+ {\r
+ pee->coor++;\r
+ }else{\r
+ pee->coor = pee->lgq;\r
+ }\r
+}\r
+\r
+//randomizer\r
+void dingq(bakapee_t *pee)\r
+{\r
+ if(pee->gq<pee->bonk)\r
+ {\r
+ pee->gq++;\r
+ }\r
+ else\r
+ {\r
+ dingu(pee);\r
+ pee->gq = 0;\r
+ }\r
+ pee->bakax = rand()%3; pee->bakay = rand()%3;\r
+}\r
+\r
+void dingqo(bakapee_t *pee)\r
+{\r
+ if(pee->gq<pee->bonk)\r
+ {\r
+ pee->gq++;\r
+ pee->bakax = rand()%3; pee->bakay = rand()%3;\r
+ }\r
+ else\r
+ {\r
+ dingu(pee);\r
+ pee->gq = 0;\r
+ }\r
+ //either one will do wwww --4\r
+ pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;\r
+ //pee->bakax = rand()%2; pee->bakay = rand()%2;\r
+}\r
+\r
+/*-----------ding-------------*/\r
+void ding(page_t *page, bakapee_t *pee, word q)\r
+{\r
+ word tx=0,ty=0;//d3y,\r
+\r
+//++++ if(q <= 4 && q!=2 && gq == pee->bonk-1) coor = rand()%pee->hgq;\r
+ switch(q)\r
+ {\r
+ case 1:/*\r
+ dingq(pee);\r
+ if(pee->xx==page->sw){pee->bakax=0;}\r
+ if(pee->xx==0){pee->bakax=1;}\r
+ if(pee->yy==page->sh){pee->bakay=0;}\r
+ if(pee->yy==0){pee->bakay=1;}*/\r
+ dingqo(pee);\r
+ dingaso(pee);\r
+ dingo(page, pee);\r
+ dingpp(page, pee); //plot the pixel/tile\r
+ if(pee->tile)\r
+ modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);\r
+ else\r
+ modexputPixel(page, rand()%page->width, rand()%page->height, 0);\r
+ break;\r
+ case 2:\r
+ dingq(pee);\r
+ dingas(pee);\r
+ dingo(page, pee);\r
+ dingpp(page, pee); //plot the pixel/tile\r
+ if(pee->tile)\r
+ modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);\r
+ else\r
+ modexputPixel(page, rand()%page->width, rand()%page->height, 0);\r
+ break;\r
+ case 3:\r
+ /*dingq(pee);\r
+ if(pee->xx!=page->sw||pee->yy!=page->sh)\r
+ {\r
+ if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}\r
+ if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}\r
+ if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}\r
+ if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}\r
+ }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;\r
+ if(d3y)\r
+ {\r
+ if(pee->bakay<0)\r
+ {\r
+ pee->yy--;\r
+ d3y--;\r
+ }else\r
+ if(pee->bakay>0)\r
+ {\r
+ pee->yy++;\r
+ d3y--;\r
+ }\r
+ }\r
+ if(pee->bakax<0)\r
+ {\r
+ pee->xx--;\r
+ }else\r
+ if(pee->bakax>0)\r
+ {\r
+ pee->xx++;\r
+ }\r
+ dingpp(page, pee); //plot the pixel/tile*/\r
+ dingqo(pee);\r
+ dingaso(pee);\r
+ dingo(page, pee);\r
+ dingpp(page, pee); //plot the pixel/tile\r
+ break;\r
+ case 4:\r
+ dingq(pee);\r
+ dingas(pee);\r
+ dingo(page, pee);\r
+ dingpp(page, pee); //plot the pixel/tile\r
+ break;\r
+ case 5:\r
+ colortest(page, pee);\r
+ break;\r
+ case 6:\r
+// pee->coor = rand()%256;\r
+// modexcls(page, pee->coor, VGA);\r
+ colorz(page, pee);\r
+ modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");\r
+ break;\r
+ case 7:\r
+ if(pee->coor <= pee->hgq)\r
+ {\r
+ ssd(page, pee, q);\r
+ pee->coor++;\r
+ }else pee->coor = pee->lgq;\r
+ break;\r
+ case 8:\r
+ colorz(page, pee);\r
+ modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");\r
+ break;\r
+/* case 9:\r
+ modexClearRegion(&(ggvv->video.page[0]), 0, 0, ggvv->video.page[0].width/2, ggvv->video.page[0].height/2, 15);\r
+#ifdef BAKAFIZZUNSIGNED\r
+// baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);\r
+ baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, ggvv->video.page[0].width, ggvv->video.page[0].height, 70, true, ggvv);\r
+#else\r
+ baka_FizzleFade (&ggvv->video.page[1], &ggvv->video.page[0], vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);\r
+#endif\r
+ break;*/\r
+ case 10:\r
+ ssd(page, pee, q); /*printf("%d\n", pee->coor);*/\r
+ break;\r
+ case 11:\r
+ colorz(page, pee); delay(100);\r
+ break;\r
+\r
+ case 16: //interesting effects\r
+ dingq(pee);\r
+ if(!pee->bakax){ pee->xx--;}\r
+ else if(pee->bakax>0){ pee->xx++; }\r
+ if(!pee->bakay){ pee->yy--;}\r
+ else if(pee->bakay>0){ pee->yy++; }\r
+ dingas(pee);\r
+ tx+=pee->xx+TILEWH+4;\r
+ ty+=pee->yy+TILEWH+4;\r
+ modexClearRegion(page, tx, ty, 4, 4, pee->coor);\r
+ if(pee->tile)\r
+ modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);\r
+ else\r
+ modexputPixel(page, rand()%page->width, rand()%(page->height), 0);\r
+ //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+ //printf(" %dx%d %dx%d\n", pee->xx, pee->yy, tx, ty);\r
+ //pee->coor++;\r
+}\r