src/lib/bakapee.c

   1 /* Project 16 Source Code~\r
   2  * Copyright (C) 2012-2023 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
   3  *\r
   4  * This file is part of Project 16.\r
   5  *\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
  10  *\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
  15  *\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
  20  *\r
  21  */\r
  22 \r
  23 #include "src/lib/bakapee.h"\r
  24 \r
  25 //static word far* clockw= (word far*) 0x046C; /* 18.2hz clock */\r
  26 //char global_temp_status_text[512];\r
  27 //char global_temp_status_text2[512];\r
  28 \r
  29 //==========================================================================\r
  30 \r
  31 /*\r
  32 ===================\r
  33 =\r
  34 = FizzleFade\r
  35 =\r
  36 = returns true if aborted\r
  37 =\r
  38 ===================\r
  39 */\r
  40 \r
  41 //extern        ControlInfo     c;\r
  42 #define PIXPOSX                 gvar->video.page[0].sw/2\r
  43 #define PIXPOSY                 gvar->video.page[0].sh/2\r
  44 \r
  45 #ifdef BAKAFIZZUNSIGNED\r
  46 boolean baka_FizzleFade (unsigned source, unsigned dest, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
  47 {\r
  48         word            p,pixperframe;\r
  49         unsigned        drawofs,pagedelta;\r
  50         byte            mask,maskb[8] = {1,2,4,8};\r
  51         unsigned        x,y,frame;\r
  52         long            rndval;\r
  53         word            screenseg;\r
  54 #ifdef __WATCOMC__\r
  55         unsigned        esorig;//,q;\r
  56 #endif\r
  57 \r
  58         pagedelta = dest-source;\r
  59         rndval = 1;\r
  60 #ifdef __WATCOMC__\r
  61         esorig = 0;// q = 16;\r
  62 #endif\r
  63         x = y = 0;\r
  64         pixperframe = (dword)(gvar->video.page[0].width*gvar->video.page[0].height)/frames;//64000/(dword)frames;\r
  65         screenseg = SCREENSEG;\r
  66 \r
  67 //      IN_StartAck (gvar);\r
  68 \r
  69 //      modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);\r
  70 //      modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);\r
  71 \r
  72 #ifdef __WATCOMC__\r
  73         __asm {\r
  74                 mov     [esorig],es\r
  75         }\r
  76 #endif\r
  77 //      TimeCount=\r
  78         frame=0;\r
  79         do      // while (1)\r
  80         {\r
  81                 if (abortable && kbhit())//IN_CheckAck (gvar) )\r
  82                         return true;\r
  83 \r
  84                 __asm {\r
  85                         mov     es,[screenseg]\r
  86                 }\r
  87 \r
  88                 for (p=0;p<pixperframe;p++)\r
  89                 {\r
  90                         __asm {\r
  91                                 //\r
  92                                 // seperate random value into x/y pair\r
  93                                 //\r
  94                                 mov     ax,[WORD PTR rndval]\r
  95                                 mov     dx,[WORD PTR rndval+2]\r
  96                                 mov     bx,ax\r
  97                                 dec     bl\r
  98                                 mov     [BYTE PTR y],bl                 // low 8 bits - 1 = y xoordinate\r
  99                                 mov     bx,ax\r
 100                                 mov     cx,dx\r
 101                                 mov     [BYTE PTR x],ah                 // next 9 bits = x xoordinate\r
 102                                 mov     [BYTE PTR x+1],dl\r
 103                                 //\r
 104                                 // advance to next random element\r
 105                                 //\r
 106                                 shr     dx,1\r
 107                                 rcr     ax,1\r
 108                                 jnc     noxor\r
 109                                 xor     dx,0x0001\r
 110                                 xor     ax,0x2000\r
 111 #ifdef __BORLANDC__\r
 112                         }\r
 113 #endif\r
 114 noxor:\r
 115 #ifdef __BORLANDC__\r
 116                         __asm {\r
 117 #endif\r
 118                                 mov     [WORD PTR rndval],ax\r
 119                                 mov     [WORD PTR rndval+2],dx\r
 120                         }\r
 121 \r
 122                         if (x>width || y>height)\r
 123 //                      if ((x>width || y>height) && (x<width*2 && y<height*2))\r
 124                                 continue;\r
 125 //                      drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
 126                         drawofs = source+(y*gvar->video.page[0].stridew) + (x>>2);\r
 127 /*\r
 128 sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
 129 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 130 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
 131 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 132 sprintf(global_temp_status_text, "srce - %Fp", source);\r
 133 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 134 sprintf(global_temp_status_text, "dest - %Fp", dest);\r
 135 modexprint(&(gvar->video.page[0]), PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
 136 */\r
 137 \r
 138                         //\r
 139                         // copy one pixel\r
 140                         //\r
 141                         mask = x&3;\r
 142                         VGAREADMAP(mask);\r
 143                         mask = maskb[mask];\r
 144                         VGAMAPMASK(mask);\r
 145 \r
 146                         __asm {\r
 147                                 mov     di,[drawofs]\r
 148                                 mov     al,[es:di]\r
 149                                 add     di,[pagedelta]\r
 150                                 mov     [es:di],al\r
 151                         }\r
 152 \r
 153                         if (rndval == 1)                // entire sequence has been completed\r
 154                                 return false;\r
 155                 }\r
 156                 frame++;\r
 157 //--            while (TimeCount<frame){}//;            // don't go too fast\r
 158                 delay(1);\r
 159         } while (1);\r
 160 #ifdef __WATCOMC__\r
 161         __asm {\r
 162                 mov     es,[esorig]\r
 163         }\r
 164         return false;\r
 165 #endif\r
 166 }\r
 167 #endif\r
 168 #if 0\r
 169 boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
 170 {\r
 171         word            p,pixperframe;\r
 172         unsigned        drawofs,pagedelta;\r
 173 //      byte            mask,maskb[8] = {1,2,4,8};\r
 174         unsigned        x,y,frame               ,esorig,q;\r
 175         dword           rndval;\r
 176         unsigned        source,dest;\r
 177         word screenseg = SCREENSEG;\r
 178         source = ((word)sourcepage->data); dest = ((word)destpage->data);\r
 179 \r
 180         pagedelta = dest-source;\r
 181         rndval = 1;     esorig = 0; q = 16;\r
 182         x = y = 0;//destpage->dx;\r
 183         pixperframe = 76800/(dword)frames;\r
 184 \r
 185 //      IN_StartAck ();\r
 186 \r
 187 //      VL_ShowPage(&(gvar->video.page[0]), 1, 0);\r
 188 //      VL_ShowPage(&(gvar->video.page[1]), 1, 0);\r
 189 \r
 190 //      modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);\r
 191 //      modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);\r
 192 //      VL_SetLineWidth(80, gvar);\r
 193 \r
 194         __asm {\r
 195                 mov     [esorig],es\r
 196         }\r
 197 //      TimeCount=\r
 198         frame=0;\r
 199         do      // while (1)\r
 200         {\r
 201 sprintf(global_temp_status_text, "%u", frame);\r
 202 modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);\r
 203                 if (abortable && kbhit())//IN_CheckAck () )\r
 204                         return true;\r
 205 \r
 206                 __asm {\r
 207                         mov     es,[screenseg]\r
 208                 }\r
 209 \r
 210                 for (p=0;p<pixperframe;p++)\r
 211                 {\r
 212                         __asm {\r
 213                                 //\r
 214                                 // seperate random value into x/y pair\r
 215                                 //\r
 216                                 mov     ax,[WORD PTR rndval]\r
 217                                 mov     dx,[WORD PTR rndval+2]\r
 218                                 mov     bx,ax\r
 219                                 dec     bl\r
 220                                 mov     [BYTE PTR y],bl                 // low 8 bits - 1 = y xoordinate\r
 221                                 mov     bx,ax\r
 222                                 mov     cx,dx\r
 223                                 mov     [BYTE PTR x],ah                 // next 9 bits = x xoordinate\r
 224                                 mov     [BYTE PTR x+1],dl\r
 225                                 //\r
 226                                 // advance to next random element\r
 227                                 //\r
 228                                 shr     dx,1\r
 229                                 rcr     ax,1\r
 230                                 jnc     noxor\r
 231                                 xor     dx,0x0001\r
 232                                 xor     ax,0x2000\r
 233 #ifdef __BORLANDC__\r
 234                         }\r
 235 #endif\r
 236 noxor:\r
 237 #ifdef __BORLANDC__\r
 238                         __asm {\r
 239 #endif\r
 240                                 mov     [WORD PTR rndval],ax\r
 241                                 mov     [WORD PTR rndval+2],dx\r
 242                         }\r
 243 \r
 244 //                      if (x>destpage->width || y>destpage->height)\r
 245 //                      if (x<destpage->sw || y<destpage->sh)\r
 246                         if ((x>width || y>height) && (x<width*2 && y<height*2))\r
 247                                 continue;\r
 248                         drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
 249 sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
 250 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 251 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
 252 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 253 sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);\r
 254 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 255 sprintf(global_temp_status_text, "desp - %Fp", destpage->data);\r
 256 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 257 sprintf(global_temp_status_text, "srce - %Fp", source);\r
 258 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 259 sprintf(global_temp_status_text, "dest - %Fp", dest);\r
 260 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
 261 \r
 262                         //\r
 263                         // copy one pixel\r
 264                         //\r
 265 /*\r
 266                         mask = x&3;\r
 267                         VGAREADMAP(mask);\r
 268                         mask = maskb[mask];\r
 269                         VGAMAPMASK(mask);\r
 270 /*/\r
 271 //                      modexputPixel(&(gvar->video.page[0]), x, y, rand());\r
 272 //                      VL_Plot (x, y, 15, &(gvar->video.ofs));\r
 273                         modexCopyPageRegion(destpage, sourcepage, x, y, x, y, 4, 4);\r
 274 \r
 275                         __asm {\r
 276                                 mov     di,[drawofs]\r
 277                                 mov     al,[es:di]\r
 278                                 add     di,[pagedelta]\r
 279                                 mov     [es:di],al\r
 280                         }\r
 281 \r
 282                         if (rndval == 1)                // entire sequence has been completed\r
 283                                 return false;\r
 284                 }\r
 285                 frame++;\r
 286 //--            while (TimeCount<frame){}//;            // don't go too fast\r
 287         } while (1);\r
 288         __asm {\r
 289                 mov     es,[esorig]\r
 290         }\r
 291         return false;\r
 292 }\r
 293 #endif\r
 294 \r
 295 #if 0\r
 296 boolean baka_FizzleFade (page_t *sourcepage, page_t *destpage, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
 297 {\r
 298         word            p,pixperframe;\r
 299         unsigned        drawofs,pagedelta;\r
 300         byte            mask,maskb[8] = {1,2,4,8};\r
 301         unsigned        x,y,frame               ,esorig,q;\r
 302         dword           rndval;\r
 303         unsigned        source,dest;\r
 304 //      word TimeCount = *clockw;\r
 305         word screenseg = SCREENSEG;\r
 306         source = ((word)sourcepage->data); dest = ((word)destpage->data);\r
 307 \r
 308         pagedelta = dest-source;//(word)(source->data - dest->data);//(dest->data - source->data)\r
 309         rndval = 1;     esorig = 0; q = 16;\r
 310         x = y = destpage->dx;\r
 311         pixperframe = /*76800*/64000/(dword)frames;\r
 312 \r
 313 //      IN_StartAck ();\r
 314 \r
 315 //      VL_ShowPage(destpage, 1, 0);\r
 316 //      VL_ShowPage(sourcepage, 1, 0);\r
 317 \r
 318 //      modexClearRegion(destpage, 0, 0, (destpage->width), (destpage->height), 12);\r
 319         modexClearRegion(sourcepage, 0, 0, (sourcepage->width), (sourcepage->height), 64);\r
 320 \r
 321         __asm {\r
 322                 mov     [esorig],es\r
 323         }\r
 324 //      TimeCount=\r
 325         frame=0;\r
 326         do      // while (1)\r
 327         {\r
 328 sprintf(global_temp_status_text, "%u", frame);\r
 329 modexprint(destpage, PIXPOSX, PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text);\r
 330                 if (abortable && kbhit())//IN_CheckAck () )\r
 331                         return true;\r
 332 \r
 333                 __asm {\r
 334                         mov     es,[screenseg]\r
 335                 }\r
 336 \r
 337                 for (p=0;p<pixperframe;p++)\r
 338                 {\r
 339                         __asm {\r
 340                                 //\r
 341                                 // seperate random value into x/y pair\r
 342                                 //\r
 343                                 mov     ax,[WORD PTR rndval]\r
 344                                 mov     dx,[WORD PTR rndval+2]\r
 345                                 mov     bx,ax\r
 346                                 dec     bl\r
 347                                 mov     [BYTE PTR y],bl                 // low 8 bits - 1 = y xoordinate\r
 348                                 mov     bx,ax\r
 349                                 mov     cx,dx\r
 350                                 mov     [BYTE PTR x],ah                 // next 9 bits = x xoordinate\r
 351                                 mov     [BYTE PTR x+1],dl\r
 352                                 //\r
 353                                 // advance to next random element\r
 354                                 //\r
 355                                 shr     dx,1\r
 356                                 rcr     ax,1\r
 357                                 jnc     noxor\r
 358                                 xor     dx,0x0001\r
 359                                 xor     ax,0x2000\r
 360 #ifdef __BORLANDC__\r
 361                         }\r
 362 #endif\r
 363 noxor:\r
 364 #ifdef __BORLANDC__\r
 365                         __asm {\r
 366 #endif\r
 367                                 mov     [WORD PTR rndval],ax\r
 368                                 mov     [WORD PTR rndval+2],dx\r
 369                         }\r
 370 \r
 371 //                      if (x>destpage->width || y>destpage->height)\r
 372 //                      if (x<destpage->sw || y<destpage->sh)\r
 373                         if (x>width || y>height)\r
 374                                 continue;\r
 375                         drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
 376 sprintf(global_temp_status_text, "draw - %Fp", drawofs);\r
 377 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 378 sprintf(global_temp_status_text, "pdet - %Fp", pagedelta);\r
 379 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 380 sprintf(global_temp_status_text, "srcp - %Fp", sourcepage->data);\r
 381 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 382 sprintf(global_temp_status_text, "desp - %Fp", destpage->data);\r
 383 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 384 sprintf(global_temp_status_text, "srce - %Fp", source);\r
 385 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q+=8;\r
 386 sprintf(global_temp_status_text, "dest - %Fp", dest);\r
 387 modexprint(destpage, PIXPOSX, q+PIXPOSY, 1, 0, 47, 0, 1, global_temp_status_text); q=16;\r
 388 \r
 389                         //\r
 390                         // copy one pixel\r
 391                         //\r
 392                         mask = x&3;\r
 393                         VGAREADMAP(mask);\r
 394                         mask = maskb[mask];\r
 395                         VGAMAPMASK(mask);\r
 396 \r
 397                         __asm {\r
 398                                 mov     di,[drawofs]\r
 399                                 mov     al,[es:di]\r
 400                                 add     di,[pagedelta]\r
 401                                 mov     [es:di],al\r
 402                         }\r
 403 \r
 404                         if (rndval == 1)                // entire sequence has been completed\r
 405                                 return false;\r
 406                 }\r
 407                 frame++;\r
 408 //--            while (TimeCount<frame){}//;            // don't go too fast\r
 409         } while (1);\r
 410         __asm {\r
 411                 mov     es,[esorig]\r
 412         }\r
 413         return false;\r
 414 }\r
 415 #endif\r
 416 // clrstdin() clear any leftover chars tha may be in stdin stream //\r
 417 void clrstdin()\r
 418 {\r
 419    int ch = 0;\r
 420    while( ( ch = getchar() ) != '\n' && ch != EOF );\r
 421 }\r
 422 \r
 423 //===========================================================================\r
 424 \r
 425 /*\r
 426 ====================\r
 427 =\r
 428 = TL_DosLibStartup\r
 429 =\r
 430 ====================\r
 431 */\r
 432 \r
 433 void TL_DosLibStartup(global_game_variables_t *gvar)\r
 434 {\r
 435         if(gvar->DLStarted)\r
 436                 return;\r
 437 \r
 438         // DOSLIB: check our environment\r
 439         probe_dos();\r
 440 \r
 441         // DOSLIB: what CPU are we using?\r
 442         // NTS: I can see from the makefile Sparky4 intends this to run on 8088 by the -0 switch in CFLAGS.\r
 443         //        So this code by itself shouldn't care too much what CPU it's running on. Except that other\r
 444         //        parts of this project (DOSLIB itself) rely on CPU detection to know what is appropriate for\r
 445         //        the CPU to carry out tasks. --J.C.\r
 446         cpu_probe();\r
 447 \r
 448         // DOSLIB: check for VGA\r
 449         if (!probe_vga()) {\r
 450                 printf("VGA probe failed\n");\r
 451                 return;\r
 452         }\r
 453         // hardware must be VGA or higher!\r
 454         if (!(vga_state.vga_flags & VGA_IS_VGA)) {\r
 455                 printf("This program requires VGA or higher graphics hardware\n");\r
 456                 return;\r
 457         }\r
 458 \r
 459         textInit();\r
 460         gvar->DLStarted = true;\r
 461 }\r
 462 \r
 463 //color \82Ä\82·\82Æ\r
 464 void colortest(page_t *page, bakapee_t *pee)\r
 465 {\r
 466         //if(pee->coor < 256)\r
 467         //{\r
 468 //              modexcls(page, pee->coor, VGA);\r
 469                 VL_ClearVideo (pee->coor);\r
 470                 pee->coor++;\r
 471         //}else pee->coor = 0;\r
 472 }\r
 473 \r
 474 //color \82Ä\82·\82Æ\r
 475 void colorz(page_t *page, bakapee_t *pee)\r
 476 {\r
 477         if(pee->coor <= pee->hgq)\r
 478         {\r
 479 //              modexcls(page, pee->coor, VGA);\r
 480                 VL_ClearVideo (pee->coor);\r
 481                 pee->coor++;\r
 482         }else pee->coor = pee->lgq;\r
 483 }\r
 484 \r
 485 //slow spectrum down\r
 486 void ssd(page_t *page, bakapee_t *pee, word svq)\r
 487 {\r
 488         if(pee->sy < page->sh+1)\r
 489         {\r
 490                 if(pee->sx < page->sw+1)\r
 491                 {\r
 492                         //mxPutPixel(sx, sy, coor);\r
 493                         //printf("%d %d %d %d\n", pee->sx, pee->sy, svq, pee->coor);\r
 494                         dingpp(page, pee);\r
 495                         pee->sx++;\r
 496                 }else pee->sx = 0;\r
 497                 if(pee->sx == page->sw)\r
 498                 {\r
 499                         pee->sy++;\r
 500                         if(svq == 7) pee->coor++;\r
 501                         if(pee->sy == page->sh && svq == 8) pee->coor = rand()%256;\r
 502                 }\r
 503         }else pee->sy = 0;\r
 504 }\r
 505 \r
 506 //plot pixel or plot tile\r
 507 void dingpp(page_t *page, bakapee_t *pee)\r
 508 {\r
 509         if(pee->tile)\r
 510         {\r
 511                 modexClearRegion(page, pee->xx, pee->yy, TILEWH, TILEWH, pee->coor);\r
 512         }\r
 513         else\r
 514                 modexputPixel(page, pee->xx, pee->yy, pee->coor);\r
 515 }\r
 516 \r
 517 void dingo(page_t *page, bakapee_t *pee)\r
 518 {\r
 519         if(pee->tile)\r
 520         {\r
 521                 if(pee->xx<0) pee->xx=(page->sw-TILEWH);\r
 522                 if(pee->yy<0) pee->yy=(page->sh-TILEWH);\r
 523                 if(pee->xx>(page->sw-TILEWH)) pee->xx=0;\r
 524                 if(pee->yy>(page->sh-TILEWH)/*+(TILEWH*BUFFMX)*/) pee->yy=0;\r
 525         }\r
 526                 else\r
 527         {\r
 528                 if(pee->xx<0) pee->xx=page->sw;\r
 529                 if(pee->yy<0) pee->yy=page->sh;\r
 530                 if(pee->xx>page->sw) pee->xx=0;\r
 531                 if(pee->yy>page->sh) pee->yy=0;\r
 532         }\r
 533 }\r
 534 \r
 535 //assigning values from randomizer\r
 536 void dingas(bakapee_t *pee)\r
 537 {\r
 538         if(pee->gq == pee->bonk) dingu(pee);\r
 539         if(!pee->bakax)\r
 540         {\r
 541                 if(pee->tile)\r
 542                 pee->xx-=TILEWH;\r
 543                 else pee->xx--;\r
 544         }\r
 545         else if(pee->bakax>1)\r
 546         {\r
 547                 if(pee->tile)\r
 548                 pee->xx+=TILEWH;\r
 549                 else pee->xx++;\r
 550         }\r
 551         if(!pee->bakay)\r
 552         {\r
 553                 if(pee->tile)\r
 554                 pee->yy-=TILEWH;\r
 555                 else pee->yy--;\r
 556         }\r
 557         else if(pee->bakay>1)\r
 558         {\r
 559                 if(pee->tile)\r
 560                 pee->yy+=TILEWH;\r
 561                 else pee->yy++;\r
 562         }\r
 563 }\r
 564 \r
 565 void dingaso(bakapee_t *pee)\r
 566 {\r
 567         if(pee->gq == pee->bonk) dingu(pee);\r
 568         if(!pee->bakax)\r
 569         {\r
 570                 if(pee->tile)\r
 571                 pee->xx-=TILEWH;\r
 572                 else pee->xx--;\r
 573         }\r
 574         else\r
 575         {\r
 576                 if(pee->tile)\r
 577                 pee->xx+=TILEWH;\r
 578                 else pee->xx++;\r
 579         }\r
 580         if(!pee->bakay)\r
 581         {\r
 582                 if(pee->tile)\r
 583                 pee->yy-=TILEWH;\r
 584                 else pee->yy--;\r
 585         }\r
 586         else\r
 587         {\r
 588                 if(pee->tile)\r
 589                 pee->yy+=TILEWH;\r
 590                 else pee->yy++;\r
 591         }\r
 592 }\r
 593 \r
 594 void dingu(bakapee_t *pee)\r
 595 {\r
 596         if(pee->coor < pee->hgq && pee->coor < pee->lgq) pee->coor = pee->lgq;\r
 597         if(pee->coor < pee->hgq)\r
 598         {\r
 599                 pee->coor++;\r
 600         }else{\r
 601                 pee->coor = pee->lgq;\r
 602         }\r
 603 }\r
 604 \r
 605 //randomizer\r
 606 void dingq(bakapee_t *pee)\r
 607 {\r
 608         if(pee->gq<pee->bonk)\r
 609         {\r
 610                 pee->gq++;\r
 611         }\r
 612         else\r
 613         {\r
 614                 dingu(pee);\r
 615                 pee->gq = 0;\r
 616         }\r
 617         pee->bakax = rand()%3; pee->bakay = rand()%3;\r
 618 }\r
 619 \r
 620 void dingqo(bakapee_t *pee)\r
 621 {\r
 622         if(pee->gq<pee->bonk)\r
 623         {\r
 624                 pee->gq++;\r
 625                 pee->bakax = rand()%3; pee->bakay = rand()%3;\r
 626         }\r
 627         else\r
 628         {\r
 629                 dingu(pee);\r
 630                 pee->gq = 0;\r
 631         }\r
 632         //either one will do wwww --4\r
 633         pee->bakax = rand()&0x1; pee->bakay = rand()&0x1;\r
 634         //pee->bakax = rand()%2; pee->bakay = rand()%2;\r
 635 }\r
 636 \r
 637 /*-----------ding-------------*/\r
 638 void ding(page_t *page, bakapee_t *pee, word q)\r
 639 {\r
 640         word tx=0,ty=0;//d3y,\r
 641 \r
 642 //++++  if(q <= 4 && q!=2 && gq == pee->bonk-1) coor = rand()%pee->hgq;\r
 643         switch(q)\r
 644         {\r
 645                 case 1:/*\r
 646                         dingq(pee);\r
 647                         if(pee->xx==page->sw){pee->bakax=0;}\r
 648                         if(pee->xx==0){pee->bakax=1;}\r
 649                         if(pee->yy==page->sh){pee->bakay=0;}\r
 650                         if(pee->yy==0){pee->bakay=1;}*/\r
 651                         dingqo(pee);\r
 652                         dingaso(pee);\r
 653                         dingo(page, pee);\r
 654                         dingpp(page, pee);      //plot the pixel/tile\r
 655                         if(pee->tile)\r
 656                         modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);\r
 657                         else\r
 658                         modexputPixel(page, rand()%page->width, rand()%page->height, 0);\r
 659                 break;\r
 660                 case 2:\r
 661                         dingq(pee);\r
 662                         dingas(pee);\r
 663                         dingo(page, pee);\r
 664                         dingpp(page, pee);      //plot the pixel/tile\r
 665                         if(pee->tile)\r
 666                         modexClearRegion(page, (rand()*TILEWH)%page->width, (rand()*TILEWH)%(page->height), TILEWH, TILEWH, 0);\r
 667                         else\r
 668                         modexputPixel(page, rand()%page->width, rand()%page->height, 0);\r
 669                 break;\r
 670                 case 3:\r
 671                         /*dingq(pee);\r
 672                         if(pee->xx!=page->sw||pee->yy!=page->sh)\r
 673                         {\r
 674                                 if(pee->xx==0){pee->bakax=1;pee->bakay=-1;d3y=1;}\r
 675                                 if(pee->yy==0){pee->bakax=1;pee->bakay=0;d3y=1;}\r
 676                                 if(pee->xx==page->sw){pee->bakax=-1;pee->bakay=-1;d3y=1;}\r
 677                                 if(pee->yy==page->sh){pee->bakax=1;pee->bakay=0;d3y=1;}\r
 678                         }else if(pee->xx==page->sw&&pee->yy==page->sh) pee->xx=pee->yy=0;\r
 679                         if(d3y)\r
 680                         {\r
 681                                 if(pee->bakay<0)\r
 682                                 {\r
 683                                         pee->yy--;\r
 684                                         d3y--;\r
 685                                 }else\r
 686                                 if(pee->bakay>0)\r
 687                                 {\r
 688                                         pee->yy++;\r
 689                                         d3y--;\r
 690                                 }\r
 691                         }\r
 692                         if(pee->bakax<0)\r
 693                         {\r
 694                                 pee->xx--;\r
 695                         }else\r
 696                         if(pee->bakax>0)\r
 697                         {\r
 698                                 pee->xx++;\r
 699                         }\r
 700                         dingpp(page, pee);      //plot the pixel/tile*/\r
 701                         dingqo(pee);\r
 702                         dingaso(pee);\r
 703                         dingo(page, pee);\r
 704                         dingpp(page, pee);      //plot the pixel/tile\r
 705                 break;\r
 706                 case 4:\r
 707                         dingq(pee);\r
 708                         dingas(pee);\r
 709                         dingo(page, pee);\r
 710                         dingpp(page, pee);      //plot the pixel/tile\r
 711                 break;\r
 712                 case 5:\r
 713                         colortest(page, pee);\r
 714                 break;\r
 715                 case 6:\r
 716 //                      pee->coor = rand()%256;\r
 717 //                      modexcls(page, pee->coor, VGA);\r
 718                         colorz(page, pee);\r
 719                         modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");\r
 720                 break;\r
 721                 case 7:\r
 722                         if(pee->coor <= pee->hgq)\r
 723                         {\r
 724                                 ssd(page, pee, q);\r
 725                                 pee->coor++;\r
 726                         }else pee->coor = pee->lgq;\r
 727                 break;\r
 728                 case 8:\r
 729                         colorz(page, pee);\r
 730                         modexprint(page, page->sw/2, page->sh/2, 1, 0, 47, 0, 1, "bakapi");\r
 731                 break;\r
 732 /*              case 9:\r
 733                         modexClearRegion(&(ggvv->video.page[0]), 0, 0, ggvv->video.page[0].width/2, ggvv->video.page[0].height/2, 15);\r
 734 #ifdef BAKAFIZZUNSIGNED\r
 735 //                      baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);\r
 736                         baka_FizzleFade (ggvv->video.ofs.bufferofs, ggvv->video.ofs.displayofs, ggvv->video.page[0].width, ggvv->video.page[0].height, 70, true, ggvv);\r
 737 #else\r
 738                         baka_FizzleFade (&ggvv->video.page[1], &ggvv->video.page[0], vga_state.vga_width, vga_state.vga_height, 70, true, ggvv);\r
 739 #endif\r
 740                 break;*/\r
 741                 case 10:\r
 742                         ssd(page, pee, q); /*printf("%d\n", pee->coor);*/\r
 743                 break;\r
 744                 case 11:\r
 745                         colorz(page, pee); delay(100);\r
 746                 break;\r
 747 \r
 748                 case 16:        //interesting effects\r
 749                         dingq(pee);\r
 750                         if(!pee->bakax){ pee->xx--;}\r
 751                         else if(pee->bakax>0){ pee->xx++; }\r
 752                         if(!pee->bakay){ pee->yy--;}\r
 753                         else if(pee->bakay>0){ pee->yy++; }\r
 754                         dingas(pee);\r
 755                         tx+=pee->xx+TILEWH+4;\r
 756                         ty+=pee->yy+TILEWH+4;\r
 757                         modexClearRegion(page, tx, ty, 4, 4, pee->coor);\r
 758                         if(pee->tile)\r
 759                         modexClearRegion(page, (rand()*4)%page->width, (rand()*4)%(page->height), 4, 4, 0);\r
 760                         else\r
 761                         modexputPixel(page, rand()%page->width, rand()%(page->height), 0);\r
 762                         //printf("%d %d %d %d %d %d\n", pee->xx, pee->yy, tx, ty, TILEWH);\r
 763                 break;\r
 764                 default:\r
 765                 break;\r
 766         }\r
 767         //printf("      %dx%d   %dx%d\n", pee->xx, pee->yy, tx, ty);\r
 768         //pee->coor++;\r
 769 }\r