-/////////////////////////////////////////////////////////////////////////////\r
-// //\r
-// MoveTo() - This moves to position X*4 on a chain 4 screen. //\r
-// Note: As soon as I find documentation, this function //\r
-// will be better documented. - Snowman //\r
-// //\r
-/////////////////////////////////////////////////////////////////////////////\r
-/*\r
-void MoveTo (word X, word Y) {\r
-\r
-// word O = Y*SIZE*2+X;\r
- word O = Y*widthBytes*2+X;\r
-\r
- asm {\r
- mov bx, [O]\r
- mov ah, bh\r
- mov al, 0x0C\r
-\r
- mov dx, 0x3D4\r
- out dx, ax\r
-\r
- mov ah, bl\r
- mov al, 0x0D\r
- mov dx, 0x3D4\r
- out dx, ax\r
- }\r
-\r
-}\r
-\r
-//Procedure Play;\r
-void Play()\r
-{\r
- int loop1,loop2;\r
- int xpos,ypos,xdir,ydir;\r
- //int ch;\r
-// for(loop1=1;loop1<=62;loop1++)\r
- //Pal ((char)loop1,(char)loop1,(char)0,(char)(62-loop1)); // { This sets up the pallette for the pic }\r
-\r
- moveto(0,0,Size); // { This moves the view to the top left hand corner }\r
-\r
-// for(loop1=0;loop1<=3;loop1++)\r
-// for(loop2=0;loop2<=5;loop2++)\r
-// Putpic (loop1*160,loop2*66); // { This places the picture all over the\r
- // chain-4 screen }\r
-// getch();\r
-// ch=0x0;\r
-// xpos=rand (78)+1;\r
-// ypos=rand (198)+1; // { Random start positions for the view }\r
- xpos=0;\r
- ypos=0;\r
- xdir=1;\r
- ydir=1;\r
-// while(1)\r
-// {\r
- WaitRetrace(); // { Take this out and watch the screen go crazy! }\r
- moveto (xpos,ypos,Size);\r
- xpos=xpos+xdir;\r
- ypos=ypos+ydir;\r
- if( (xpos>79) || (xpos<1))xdir=-xdir;\r
- if( (ypos>199) || (ypos<1))ydir=-ydir; // { Hit a boundry, change\r
- // direction! }\r
-// if(_bios_keybrd(_KEYBRD_READY))ch=getch();\r
-// if(ch==0x71)break; // 'q'\r
-// if(ch==0x1b)break; // 'ESC'\r
-// }\r
-}\r
-*/\r