<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html charset=gb2312">
<title>俄罗斯方块</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<script language="VBS">
<!--
'变量steptime表示图片移动的时间间隔
dim steptime
steptime=1000
'变量defen表示消除一行得的分数
dim defen
defen=50
'level表示当前级别
dim level
level=1
'levelbase表示升级的分数标准
dim levelbase
levelbase=400
'定义背景和方块的图片
dim w,s
w_src="w.jpg"
s_src="s.jpg"
'存储控制键的设定
dim lk,dk,rk,tk
'存储分数
dim score
'表示游戏是否开始
dim playing
playing=false
'表示游戏是否已经开始
dim havebegin
havebegin=false
'表示方块下落的主窗口对象
dim mainwindow
'表示预览窗口对象
dim prewindow
'定义下落的物体
dim downobj
'定义下一个将要出场的物体
dim preobj
'初始化下落方块的模型
dim model(6,3,3,3)
'杆儿的数据 0 "----"
'--------------------------------------------
model(0,0,0,0)=0
model(0,0,0,1)=1
model(0,0,0,2)=0
model(0,0,0,3)=0
model(0,0,1,0)=0
model(0,0,1,1)=1
model(0,0,1,2)=0
model(0,0,1,3)=0
model(0,0,2,0)=0
model(0,0,2,1)=1
model(0,0,2,2)=0
model(0,0,2,3)=0
model(0,0,3,0)=0
model(0,0,3,1)=1
model(0,0,3,2)=0
model(0,0,3,3)=0
'--------------------------------------------
model(0,1,0,0)=0
model(0,1,0,1)=0
model(0,1,0,2)=0
model(0,1,0,3)=0
model(0,1,1,0)=1
model(0,1,1,1)=1
model(0,1,1,2)=1
model(0,1,1,3)=1
model(0,1,2,0)=0
model(0,1,2,1)=0
model(0,1,2,2)=0
model(0,1,2,3)=0
model(0,1,3,0)=0
model(0,1,3,1)=0
model(0,1,3,2)=0
model(0,1,3,3)=0
'--------------------------------------------
dim i,j
for i=0 to 3
for j=0 to 3
model(0,2,i,j)=model(0,0,i,j)
model(0,3,i,j)=model(0,1,i,j)
next
next
'--------------------------------------------
'--------------------------------------------
'--------------------------------------------
'三角的数据 1 "_|_"
'--------------------------------------------
model(1,0,0,0)=0
model(1,0,0,1)=1
model(1,0,0,2)=0
model(1,0,0,3)=0
model(1,0,1,0)=1
model(1,0,1,1)=1
model(1,0,1,2)=1
model(1,0,1,3)=0
model(1,0,2,0)=0
model(1,0,2,1)=0
model(1,0,2,2)=0
model(1,0,2,3)=0
model(1,0,3,0)=0
model(1,0,3,1)=0
model(1,0,3,2)=0
model(1,0,3,3)=0
'--------------------------------------------
model(1,1,0,0)=1
model(1,1,0,1)=0
model(1,1,0,2)=0
model(1,1,0,3)=0
model(1,1,1,0)=1
model(1,1,1,1)=1
model(1,1,1,2)=0
model(1,1,1,3)=0
model(1,1,2,0)=1
model(1,1,2,1)=0
model(1,1,2,2)=0
model(1,1,2,3)=0
model(1,1,3,0)=0
model(1,1,3,1)=0
model(1,1,3,2)=0
model(1,1,3,3)=0
'--------------------------------------------
model(1,2,0,0)=1
model(1,2,0,1)=1
model(1,2,0,2)=1
model(1,2,0,3)=0
model(1,2,1,0)=0
model(1,2,1,1)=1
model(1,2,1,2)=0
model(1,2,1,3)=0
model(1,2,2,0)=0
model(1,2,2,1)=0
model(1,2,2,2)=0
model(1,2,2,3)=0
model(1,2,3,0)=0
model(1,2,3,1)=0
model(1,2,3,2)=0
model(1,2,3,3)=0
'--------------------------------------------
model(1,3,0,0)=0
model(1,3,0,1)=1
model(1,3,0,2)=0
model(1,3,0,3)=0
model(1,3,1,0)=1
model(1,3,1,1)=1
model(1,3,1,2)=0
model(1,3,1,3)=0
model(1,3,2,0)=0
model(1,3,2,1)=1
model(1,3,2,2)=0
model(1,3,2,3)=0
model(1,3,3,0)=0
model(1,3,3,1)=0
model(1,3,3,2)=0
model(1,3,3,3)=0
'--------------------------------------------
'--------------------------------------------
'顺时针的数据 2 "|__"
'--------------------------------------------
model(2,0,0,0)=1
model(2,0,0,1)=1
model(2,0,0,2)=0
model(2,0,0,3)=0
model(2,0,1,0)=1
model(2,0,1,1)=0
model(2,0,1,2)=0
model(2,0,1,3)=0
model(2,0,2,0)=1
model(2,0,2,1)=0
model(2,0,2,2)=0
model(2,0,2,3)=0
model(2,0,3,0)=0
model(2,0,3,1)=0
model(2,0,3,2)=0
model(2,0,3,3)=0
'--------------------------------------------
model(2,1,0,0)=1
model(2,1,0,1)=1
model(2,1,0,2)=1
model(2,1,0,3)=0
model(2,1,1,0)=0
model(2,1,1,1)=0
model(2,1,1,2)=1
model(2,1,1,3)=0
model(2,1,2,0)=0
model(2,1,2,1)=0
model(2,1,2,2)=0
model(2,1,2,3)=0
model(2,1,3,0)=0
model(2,1,3,1)=0
model(2,1,3,2)=0
model(2,1,3,3)=0
'--------------------------------------------
model(2,2,0,0)=0
model(2,2,0,1)=1
model(2,2,0,2)=0
model(2,2,0,3)=0
model(2,2,1,0)=0
model(2,2,1,1)=1
model(2,2,1,2)=0
model(2,2,1,3)=0
model(2,2,2,0)=1
model(2,2,2,1)=1
model(2,2,2,2)=0
model(2,2,2,3)=0
model(2,2,3,0)=0
model(2,2,3,1)=0
model(2,2,3,2)=0
model(2,2,3,3)=0
'--------------------------------------------
model(2,3,0,0)=1
model(2,3,0,1)=0
model(2,3,0,2)=0
model(2,3,0,3)=0
model(2,3,1,0)=1
model(2,3,1,1)=1
model(2,3,1,2)=1
model(2,3,1,3)=0
model(2,3,2,0)=0
model(2,3,2,1)=0
model(2,3,2,2)=0
model(2,3,2,3)=0
model(2,3,3,0)=0
model(2,3,3,1)=0
model(2,3,3,2)=0
model(2,3,3,3)=0
'--------------------------------------------
'--------------------------------------------
'逆时针的数据 3 "__|"
'--------------------------------------------
model(3,0,0,0)=0
model(3,0,0,1)=0
model(3,0,0,2)=1
model(3,0,0,3)=0
model(3,0,1,0)=1
model(3,0,1,1)=1
model(3,0,1,2)=1
model(3,0,1,3)=0
model(3,0,2,0)=0
model(3,0,2,1)=0
model(3,0,2,2)=0
model(3,0,2,3)=0
model(3,0,3,0)=0
model(3,0,3,1)=0
model(3,0,3,2)=0
model(3,0,3,3)=0
'--------------------------------------------
model(3,1,0,0)=1
model(3,1,0,1)=0
model(3,1,0,2)=0
model(3,1,0,3)=0
model(3,1,1,0)=1
model(3,1,1,1)=0
model(3,1,1,2)=0
model(3,1,1,3)=0
model(3,1,2,0)=1
model(3,1,2,1)=1
model(3,1,2,2)=0
model(3,1,2,3)=0
model(3,1,3,0)=0
model(3,1,3,1)=0
model(3,1,3,2)=0
model(3,1,3,3)=0
'--------------------------------------------
model(3,2,0,0)=1
model(3,2,0,1)=1
model(3,2,0,2)=1
model(3,2,0,3)=0
model(3,2,1,0)=1
model(3,2,1,1)=0
model(3,2,1,2)=0
model(3,2,1,3)=0
model(3,2,2,0)=0
model(3,2,2,1)=0
model(3,2,2,2)=0
model(3,2,2,3)=0
model(3,2,3,0)=0
model(3,2,3,1)=0
model(3,2,3,2)=0
model(3,2,3,3)=0
'--------------------------------------------
model(3,3,0,0)=1
model(3,3,0,1)=1
model(3,3,0,2)=0
model(3,3,0,3)=0
model(3,3,1,0)=0
model(3,3,1,1)=1
model(3,3,1,2)=0
model(3,3,1,3)=0
model(3,3,2,0)=0
model(3,3,2,1)=1
model(3,3,2,2)=0
model(3,3,2,3)=0
model(3,3,3,0)=0
model(3,3,3,1)=0
model(3,3,3,2)=0
model(3,3,3,3)=0
'--------------------------------------------
'--------------------------------------------
'方块的数据 4 "[]"
'--------------------------------------------
model(4,0,0,0)=1
model(4,0,0,1)=1
model(4,0,0,2)=0
model(4,0,0,3)=0
model(4,0,1,0)=1
model(4,0,1,1)=1
model(4,0,1,2)=0
model(4,0,1,3)=0
model(4,0,2,0)=0
model(4,0,2,1)=0
model(4,0,2,2)=0
model(4,0,2,3)=0
model(4,0,3,0)=0
model(4,0,3,1)=0
model(4,0,3,2)=0
model(4,0,3,3)=0
'--------------------------------------------
for i=0 to 3
for j=0 to 3
model(4,1,i,j)=model(4,0,i,j)
model(4,2,i,j)=model(4,0,i,j)
model(4,3,i,j)=model(4,0,i,j)
next
next
'--------------------------------------------
'--------------------------------------------
'弯的数据 5 "_|~"
'--------------------------------------------
model(5,0,0,0)=0
model(5,0,0,1)=1
model(5,0,0,2)=1
model(5,0,0,3)=0
model(5,0,1,0)=1
model(5,0,1,1)=1
model(5,0,1,2)=0
model(5,0,1,3)=0
model(5,0,2,0)=0
model(5,0,2,1)=0
model(5,0,2,2)=0
model(5,0,2,3)=0
model(5,0,3,0)=0
model(5,0,3,1)=0
model(5,0,3,2)=0
model(5,0,3,3)=0
'--------------------------------------------
model(5,1,0,0)=1
model(5,1,0,1)=0
model(5,1,0,2)=0
model(5,1,0,3)=0
model(5,1,1,0)=1
model(5,1,1,1)=1
model(5,1,1,2)=0
model(5,1,1,3)=0
model(5,1,2,0)=0
model(5,1,2,1)=1
model(5,1,2,2)=0
model(5,1,2,3)=0
model(5,1,3,0)=0
model(5,1,3,1)=0
model(5,1,3,2)=0
model(5,1,3,3)=0
'--------------------------------------------
for i= 0 to 3
for j=0 to 3
model(5,2,i,j)=model(5,0,i,j)
model(5,3,i,j)=model(5,1,i,j)
next
next
'--------------------------------------------
'--------------------------------------------
'弯的数据 6 "~|_"
'--------------------------------------------
model(6,0,0,0)=1
model(6,0,0,1)=1
model(6,0,0,2)=0
model(6,0,0,3)=0
model(6,0,1,0)=0
model(6,0,1,1)=1
mo
网上在线游戏俄罗斯方块
需积分: 50 188 浏览量
2001-12-26
00:00:00
上传
评论 27
收藏 50B ZIP 举报
普通网友
- 粉丝: 882
- 资源: 2万+
最新资源
- python 链接ms sqlserver的通用文件
- FOC,即Field-Oriented Control.zip
- 3339-VB一款N-Channel沟道SOT23的MOSFET晶体管参数介绍与应用说明
- QT6实现音频输出功能
- DSC_0019_BURST20240210145321463.JPG
- 涉及c语言面试题及答案
- DSC_0001_BURST20240224182755811.JPG
- 3338-VB一款N-Channel沟道SOT23的MOSFET晶体管参数介绍与应用说明
- 欢乐斗地主python项目游戏源码下载
- 3324-VB一款N-Channel沟道SOT23的MOSFET晶体管参数介绍与应用说明
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈