V与子敌伦刺激对白播放,国产一区二区精品在线观看,美丽人妇交换系列

//--------------------------------------------------------------------------//
// 源程序大公開 //
// (c) Copyright 2001－2025 xuwenjun //
// All Rights Reserved //
// V1.00 //
//--------------------------------------------------------------------------//
//標　題: 俄羅斯方塊程序 ? //
//文件名: xwj_fk.c //
//版　本: V1.00 //
//修改人: 徐文軍 E-mail:xuwenjun@21cn.com //
//日　期: 05-13 //
//描　述: 俄羅斯方塊程序 ? //
//聲　明: //
// 以下代碼僅免費提供給學習用途，但引用或修改后必須在文件中聲明出處. //
// 如用于商業用途請與作者聯系. E-mail:xuwenjun@21cn.com //
// 有問題請mailto xuwenjun@21cn.com 歡迎與我交流! //
//--------------------------------------------------------------------------//
//老版本: 無老版本文件名: //
//創建人: 徐文軍 E-mail:xuwenjun@21cn.com //
//日　期: 05-13 //
//描　述: //
// 1、功能完整，直接使用 //
// 2、模塊獨立性強，移植方便，外部僅init和move函數，修改顯示和輸入即可 //
// 3、對減少內存占用、盡量減少屏幕操作進行適當優化 //
// 4、新方塊生成高度隨機，絕對無規律 //
// 5、仿真環境為Keil7.5+Proteus6.5,可以聯機也可脫機運行 //
// CODE SIZE = 1845 ---- //
// CONSTANT SIZE = 326 ---- //
// DATA SIZE = 16 19 //
// IDATA SIZE = 50 ---- //
// BIT SIZE = 1 1 //
//--------------------------------------------------------------------------//
#include <stdlib.h>
#include "xwj_lcd16.h" // 字符液晶控制函數聲明 //
#include "xwj_lcd6963.h" // T6963C 公用函數
#include "xwj_hlkey.h" // P1口行列式鍵盤 //
#include "xwj_serial.h" //串口函數集
#include "change.h" //數制轉換
#include "xwj_fk.h" //俄羅斯方塊程序
#define ulong unsigned long
#define uint unsigned int
#define uchar unsigned char
extern void delay(unsigned int x);
//----------------俄羅斯方塊內部函數----------------------------------------//
void fk_dot(uchar x,uchar y); //顯示1個方塊點
void fk_cldot(uchar x,uchar y); //清除1個方塊點
void fk_show(void); //顯示分數
void fk_reffk(void); //刷新方塊
void fk_refnew(void); //刷新預覽方塊
void fk_refline(yy); //刷新1行背景
bit fk_chk(void); //沖突檢查
void fk_new(void); //產生新方塊
void fk_add(void); //方塊合并
/*
//-----------------俄羅斯方塊公用函數--------------------------------------//
void fk_init(void); //方塊初始化
void fk_move(unsigned char mode); //移動方塊
*/
//-------------------------------------------------------------------------//
#define FULLMAP 0x0fff /*掩碼*/
#define LINEGUAN 20 /*20行過一關*/
#define NEWX 15 /*預覽方塊X位置*/
#define NEWY 12 /*預覽方塊Y位置*/
#define LINEMAX 21 /*屏幕最高21行*/
uint idata fk_map[LINEMAX+4]; //背景映象
uchar fk_x,fk_y,fk_r; //方塊左右、高度、方向
uchar fk_type; //方塊形狀
uchar fk_oldx,fk_oldy,fk_oldr; //方塊上次左右、高度、方向
uchar fk_newtype,fk_newr; //新方塊形狀、方向
uint score; //總分
uint line; //總行數
uchar speed; //速度
uchar moven; //速度相關計數器
uchar automapn; //隨機方塊的行數
bit fk_run; //俄羅斯方坑蝸吩誦?
uchar code fk_mod[][4][4]={ //方塊模型號,4個方向,4行
0,0,7,2,0,1,3,1,0,0,2,7,0,2,3,2, //_|_
0,0,6,3,0,1,3,2,0,0,6,3,0,1,3,2, //_|~
0,0,3,6,0,2,3,1,0,0,3,6,0,2,3,1, //~|_
0,0,7,4,0,3,1,1,0,0,1,7,0,2,2,3, //|__
0,0,7,1,0,1,1,3,0,0,4,7,0,3,2,2, //__|
0,0,0,15,1,1,1,1,0,0,0,15,1,1,1,1, //____
0,0,3,3,0,0,3,3,0,0,3,3,0,0,3,3, //田字
};
uchar code strmap[4][9]={
"不錯！ ","真棒！ ","好極啦！","太棒了！",
};
//--------------------------------------------------------------------------//
void fk_dot(uchar x,uchar y) //顯示1個方塊點
{
printat(x*3+1, 241-(y-4)*12,"■");
}
//--------------------------------------------------------------------------//
void fk_cldot(uchar x,uchar y) //清除1個方塊點
{
// printat(x*3+1, 241-(y-4)*12,"□");
printat(x*3+1, 241-(y-4)*12,"┘");
}
//--------------------------------------------------------------------------//
void fk_show(void) //顯示分數
{
printat(50, 12,chnint(score,1));
printat(60, 12,"00");
printat(40, 12,"得分:");
printat(54,36,chnint(line,1));
printat(40, 36,"行數:");
printat(54,60,chnchar(speed,1));
printat(40,60,"速度:");
printat(54,84,chnchar(automapn,1));
printat(40,84,"關數:");
}
//--------------------------------------------------------------------------//
void fk_reffk(void) //刷新方塊
{
uchar i,j;
uchar temp;
//----------------------------------------------//清除原來的方塊
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_type][fk_oldr][i]);
for (j=fk_oldx;j<fk_oldx+4;j++)
{
if(temp&0x01)
{
fk_cldot(j,fk_oldy+i);
}
temp>>=1;
}
}
//----------------------------------------------//顯示新的方塊
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_type][fk_r][i]);
for (j=fk_x;j<fk_x+4;j++)
{
if(temp&0x01)
{
fk_dot(j,fk_y+i);
}
temp>>=1;
}
}
fk_oldx=fk_x;fk_oldy=fk_y;fk_oldr=fk_r; //保存新方塊位置
}
//--------------------------------------------------------------------------//
void fk_refnew(void) //刷新預覽方塊
{
uchar i,j;
uchar temp;
//----------------------------------------------//預覽方塊
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_newtype][fk_newr][i]);
for (j=NEWX;j<NEWX+4;j++)
{
if(temp&0x01)
{
fk_dot(j,NEWY+i);
}
else
{
fk_cldot(j,NEWY+i);
}
temp>>=1;
}
}
}
//--------------------------------------------------------------------------//
void fk_refline(yy) //刷新1行背景
{
uchar i;
uint temp;
if (yy>=4)
{
temp=fk_map[yy];
for (i=0;i<12;i++)
{
if ((temp&0x01) !=0)
fk_dot(i,yy);
else
fk_cldot(i,yy);
temp >>= 1;
}
}
}
//--------------------------------------------------------------------------//
bit fk_chk(void) //沖突檢查
{
uchar i;
bit neq=0;
for (i=0;i<4;i++)
{
if ( (((fk_mod[fk_type][fk_r][i])<<fk_x)+(fk_map[fk_y+i])) != (((fk_mod[fk_type][fk_r][i])<<fk_x)|(fk_map[fk_y+i])) )
neq=1;
}
return(neq);
}
//--------------------------------------------------------------------------//
void fk_new(void) //產生新方塊
{
srand(rand()+fk_x+fk_y+fk_r);
fk_oldx=fk_x=5;
fk_oldy=fk_y=LINEMAX;
fk_type = fk_newtype;
fk_oldr=fk_newr;
fk_newtype = rand()%7;
fk_newr=rand()%4;
fk_refnew(); //刷新預覽方塊
if (fk_run)
fk_reffk(); //刷新顯示
}
//--------------------------------------------------------------------------//
void fk_add(void) //方塊合并
{
uchar i,j;
uchar full=0x00;
uchar fulltemp;
uchar fullline=0x00;
for (i=0;i<4;i++) //方塊合并
{
fk_map[fk_y+i] |= (fk_mod[fk_type][fk_r][i])<<fk_x;
full <<= 1;
if ((fk_y+i >= 4) && (fk_map[fk_y+i] == 0xffff)) //滿行
{
full |= 0x01;
}
}
if (full != 0) //有滿行
{
for (j=0;j<3;j++) //消行閃爍3次
{
delay(300);
fulltemp=full;
for (i=0;i<4;i++) //4行
{
if ((fulltemp&0x08) != 0)
{
fk_map[fk_y+i] ^= FULLMAP;
}
fk_refline(fk_y+i);
fulltemp <<= 1;
}
}
fulltemp=full;
for (i=fk_y;i<LINEMAX+4+fullline;i++) //上面行下移
{
if ((i < LINEMAX+4)&&(fk_map[i-fullline]!=fk_map[i]))
{
fk_map[i-fullline]=fk_map[i];
fk_refline(i-fullline);
}
if ((i >= LINEMAX+4)&&(fk_map[i-fullline]!=~FULLMAP))
{
fk_map[i-fullline]=~FULLMAP; //背景映象
fk_refline(i-fullline);
}
if ((fulltemp&0x08) != 0)
{
fullline++;
}
fulltemp <<= 1;
}
if (((line+fullline)/LINEGUAN) != (line/LINEGUAN))//每20行速度+1
speed ++;
line += fullline; //更新分數、行數
score += (1<<fullline)-1;
printat(46,180,strmap[fullline-1]); //夸獎
fk_show(); //顯示分數
fk_new(); //產生新方塊
}
else
{
if (fk_y > LINEMAX-10) //在最高位置碰撞且不能消行則游戲結束
printat(46,180,"加油啊！"); //加油啊
if (fk_y > LINEMAX-6) //在最高位置碰撞且不能消行則游戲結束
printat(46,180,"糟糕了！"); //糟糕了
if (fk_y==LINEMAX) //在最高位置碰撞且不能消行則游戲結束
fk_run=0; //方塊初始化
else
fk_new(); //產生新方塊
}
}
//--------------------------------------------------------------------------//
void fk_init(void) //方塊初始化
{
uchar i;
fk_run = 0;
moven=0;
Lcd6963Cls();
Lcd6963Rec(0,0,152,255);
Lcd6963ChHz(0); //切換到16X16點陣
printat(2, 16,"歡迎光臨文君閣");
printat(2, 48,"請按鍵選擇：");
printat(2, 80,"-----------------");
printat(2, 96,"7左旋 8右旋 9右旋");
printat(2, 112,"4左移 5右旋 6右移");
printat(2, 128,"4速度 5開始 6關數");
printat(2, 144,"1左移 2下移 3右移");
printat(2, 160,"-----------------");
Lcd6963ChHz(1); //切換到12X12點陣
printat(46,180,"歡迎使用");
fk_show(); //顯示分數
while (~fk_run)
{
fk_move(); //等待設置速度關數開始
delay(10);
}
for (i=0;i<4;i++)
{
fk_map[i]=0xffff; //背景映象
} delay(3000);
for (i=4;i<LINEMAX+4;i++)
{
if (i<(automapn+4))
fk_map[i]=rand()-1|~FULLMAP; //背景映象
else
fk_map[i]=~FULLMAP; //背景映象
fk_refline(i); //刷新1行背景
}
fk_show(); //顯示分數
// fk_new(); //產生新方塊
}
//--------------------------------------------------------------------------//
void fk_move(void) //移動方塊
{
unsigned char temp;
if(KeyTest()) //檢查有無按鍵
{
putinbuf(KeyGetCode()); //按鍵碼輸入接收緩沖區
}
if (checkin())
{
temp=getbyte();
if (temp!=0) Lcd16WrCharhh(12,0,temp);
if (temp!=0) Lcd16WrChar(15,0,temp);
putchar(temp);
}
else
temp=0xff; //無鍵設為無效鍵用于下移方塊
temp -= '0';
switch(temp)
{
default:
if (--moven) //游戲難度
break;
else
{
moven=(252>>speed)+2;
}
case 2: //下移
if (fk_run) //游戲中下移
{
if(fk_y>0)
{
fk_y--;
if(fk_chk())
{
fk_y++; //有沖突取消操作,執行碰撞組合
fk_add(); //方塊合并 //產生新方塊
}
}
else //方塊到底也執行碰撞組合
{
fk_add(); //方塊合并
}
}
else //初始化時
{
fk_new(); //產生新方塊
}
break;
case 0: //下移到底
while((fk_y>0)&&~(fk_chk())) //一直下移直到沖突
{
fk_y--;
}
moven=1;
fk_y++; //恢復到未沖突位置
break;
case 3: //右移
case 6: //右移
if (fk_run) //游戲中右移
{
if(fk_x<12)
{
fk_x++;
if(fk_chk())
fk_x--;//有沖突取消操作
}
}
else //初始化時
{
automapn++;
automapn &= 0x0f;
fk_show(); //顯示分數
}
break;
case 1: //左移
case 4: //移
if (fk_run) //游戲中左移
{
if(fk_x>0)
{
fk_x--;
if(fk_chk())
fk_x++;//有沖突取消操作
}
}
else //初始化時
{
speed++;
speed &= 0x07;
fk_show(); //顯示分數
}
break;
case 9: //右轉
case 8: //右轉
case 5: //右轉
if (fk_run) //游戲中右轉
{
fk_r++;
if(fk_chk())
fk_r--; //有沖突取消操作
fk_r &= 0x03;
}
else //初始化時
{
fk_run = 1;
}
break;
case 7: //左轉
if (fk_run) //游戲中右轉
{
fk_r--;
if(fk_chk())
fk_r++; //有沖突取消操作
fk_r &= 0x03;
}
else //初始化時
{
fk_run = 1;
}
break;
}
if((fk_run)&& ((fk_x!=fk_oldx)||(fk_y!=fk_oldy)||(fk_r!=fk_oldr)) )
{
fk_reffk(); //刷新顯示
}
rand();
}
/*
// ---------------------------------------------- // 32字節
void delay(uint x)
{
uint i,j;
for (i=0; i<x;i++) {
for (j=0;j<102; j++) ;
}
}
//--------------------------------------------------------------------------//
void main(void) // 測試用
{
serial_init();
Lcd6963Init(); //Lcd6963復位
Lcd16Reset(); //Lcd16復位
Serial_main(); // 串口測試用主函數
Lcd16main(); //Lcd16臨時測試主程序
Lcd6963main(); //Lcd6963測試用
fk_init(); //方塊初始化
while(1)
{
if (~fk_run)
fk_init(); //方塊初始化
fk_move(); //移動方塊
delay(10);
}
}
*/

復制代碼