设为首页收藏本站
开启辅助访问

下沙论坛

 找回密码
 注册论坛(EC通行证)

用新浪微博连接

一步搞定

QQ登录

QQ登录

下沙大学生网QQ群8（千人群）
群号：6490324 ,验证：下沙大学生网。
下沙论坛»下沙论坛 › ╃摩登&时代╃ › 科技．电脑网络 › 用ASP编写俄罗斯方块游戏
用手机发布本地信息严禁群发，各种宣传贴请发表在下沙信息版块有问必答，欢迎提问 提升会员等级，助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
返回列表 发新帖
查看: 2179|回复: 1
打印 上一主题 下一主题

用ASP编写俄罗斯方块游戏

[复制链接]
秋风舞落叶
  • TA的每日心情
    开心
    2014-7-28 21:47

    • 签到天数: 2 天

    [LV.1]初来乍到
    跳转到指定楼层
    1楼
    发表于 2009-4-17 08:55:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    以下为引用的内容：0 }$ V+ q6 g! T! ?% ]
    <%If Not Request.QueryString("Ven") = "T" then%>
    5 K5 f/ U! ^' _. ?! U<HTML>
    / z; C& G! t3 t+ c; O$ L<HEAD>
    " b  W" w" {+ S! u: m6 N<META NAME="GENERATOR" C>
    4 M% j3 f" n1 {1 D  s$ M<TITLE></TITLE>
    - y* d/ b, i+ ~; k1 {</HEAD>
    3 z$ T& \% B1 @% j4 \7 p/ ^* N<SCRIPT LANGUAGE=vbscript> : _) z6 D$ U( f! m: l( N
    function Redir()
    ' Y- }4 S& P% n4 awindow.open "<%= right(Request.ServerVariables("SCRIPT_NAME"),len(Request.ServerVariables("SCRIPT_NAME"))-instrrev(Request.ServerVariables("SCRIPT_NAME"),"/",len(Request.ServerVariables("SCRIPT_NAME"))))%>?Ven=T","user","status=no,toolbar=no,menubar=no,height=456,width=304,top=100,left=100,scrollbars=no"
    % _9 r) v& Q+ ^$ \2 X; qwindow.history.back(-1)
    1 v- L7 _( ]2 y2 FEnd function
    % f8 t, Q7 R4 G/ I0 `</SCRIPT>
    : _9 e5 F% Q* h0 N. p4 ~2 j# d<BODY onload=Redir()> + ?5 E: }1 {) q! c- F3 A
    </BODY> : o4 n7 L5 S4 w; W
    </HTML>
    & ]& L& C. A0 e: h! C<%else%> " Z- ], N2 r% w: d* p
    <HTML> & U; E4 |% z4 O- m) Q. b; Z' F
    <HEAD>
    , j- B1 H7 I& i# U) i<META NAME="GENERATOR" C> ! Z4 g$ }& P1 O
    <TITLE>**VBScript俄罗斯方块游戏**</TITLE> & L, ^* s3 b9 @2 m$ {; Y; t  Z
    <Style Type="text/css">
    2 F# {6 U! h2 `6 m( P5 t9 S% g' f7 S% R<!--
    ! a! u  Y! O9 H9 \8 x. R4 c' u7 a) F  ~: z.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} 5 l/ {: s- ?2 l4 R1 g% n. d6 f, I5 S
    .normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
    % I  l7 y! H0 C.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}   p( Z8 |, }5 H) T# t0 q( C
    .normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
    + |8 s2 O2 I% [+ f3 }( Q& K+ d.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
    & n# a9 x% j' m# i0 F" _.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
    ; i1 C9 l9 Z/ J' S* b.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
    9 u) p( p' a; U-->
    4 l& u8 F* O8 e3 c. _5 f</Style> / J' r+ s. o: d& d0 D- z5 D
    </HEAD>
    . b' Y. I7 D6 a0 w5 ^7 X<BODY topmargin=2 leftmargin=2> ( B. G4 I" |' U* r- b
    <div align="center"> : x/ {' s* H2 i* c8 h
    <center> ! O. t2 I8 m( R$ L! s! q1 e
    <table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> " w- D+ K9 Y3 ^4 j
    <center>
      M7 M+ _' N- t( _/ H  E<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> # e& f, W/ ?% ]  K
    <tr height="18">
    ; w# @! y# b+ {, y7 ?% b* J<td ID="240" width="18"></td><td ID="241" width="18"></td><td ID="242" width="18"></td><td ID="243" width="18"></td><td ID="244" width="18"></td> 5 V& |" \! v' a6 ^3 @' z* F
    <td ID="245" width="18"></td><td ID="246" width="18"></td><td ID="247" width="18"></td><td ID="248" width="18"></td><td ID="249" width="18"></td>
    1 x8 C  I1 E* j$ Q9 C$ w# J  C</tr>
    5 ^3 l# g* U( v. f1 r! [$ _<tr height="18"> ' H0 v5 l9 K+ d; w9 r; I$ p
    <td ID="230" width="18"></td><td ID="231" width="18"></td><td ID="232" width="18"></td><td ID="233" width="18"></td><td ID="234" width="18"></td>
    " U; e9 h! d) [! Y' E" [( c- E<td ID="235" width="18"></td><td ID="236" width="18"></td><td ID="237" width="18"></td><td ID="238" width="18"></td><td ID="239" width="18"></td> # F0 j+ x' h( n  k4 O3 {
    </tr> 5 v8 z+ b) W( f
    <tr height="18"> " H# d/ o1 s2 h2 j
    <td ID="220" width="18"></td><td ID="221" width="18"></td><td ID="222" width="18"></td><td ID="223" width="18"></td><td ID="224" width="18"></td>
    9 v! A  [5 ?) {/ j- a* y/ I<td ID="225" width="18"></td><td ID="226" width="18"></td><td ID="227" width="18"></td><td ID="228" width="18"></td><td ID="229" width="18"></td>
    5 ~# K6 C' h; v0 H& ^5 [  R2 y</tr> ) H% O# Y* q6 J' A: T
    <tr height="18"> * A8 \5 L; A% O0 y: Z$ n. V) I
    <td ID="210" width="18"></td><td ID="211" width="18"></td><td ID="212" width="18"></td><td ID="213" width="18"></td><td ID="214" width="18"></td> & e7 E+ J  w! l9 _
    <td ID="215" width="18"></td><td ID="216" width="18"></td><td ID="217" width="18"></td><td ID="218" width="18"></td><td ID="219" width="18"></td>
    / k" M$ g) e5 M: R: m- `* v</tr> . q5 l: w. {+ D; D3 v/ p# }
    <tr height="18">
    + s  D. R9 S6 I: ^$ i1 ]<td ID="200" width="18"></td><td ID="201" width="18"></td><td ID="202" width="18"></td><td ID="203" width="18"></td><td ID="204" width="18"></td>
    # I  g0 q. E4 s' i/ M0 h<td ID="205" width="18"></td><td ID="206" width="18"></td><td ID="207" width="18"></td><td ID="208" width="18"></td><td ID="209" width="18"></td> ' }! j! e: v- b8 x/ A
    </tr>
      d3 j) U  y5 l& e" s0 v<tr height="18">
    + v1 v# h& Y9 \1 o! C' U<td ID="190" width="18"></td><td ID="191" width="18"></td><td ID="192" width="18"></td><td ID="193" width="18"></td><td ID="194" width="18"></td>
    % N( v& ~! R- G$ ~<td ID="195" width="18"></td><td ID="196" width="18"></td><td ID="197" width="18"></td><td ID="198" width="18"></td><td ID="199" width="18"></td> 8 P% A/ q- s5 G. P0 s8 w! @/ J
    </tr>
    ! Z* P% i- P6 ^1 X<tr height="18">
    3 ~( j$ L, ^. P1 k<td ID="180" width="18"></td><td ID="181" width="18"></td><td ID="182" width="18"></td><td ID="183" width="18"></td><td ID="184" width="18"></td> 9 U) z- Y6 O2 g: B1 N
    <td ID="185" width="18"></td><td ID="186" width="18"></td><td ID="187" width="18"></td><td ID="188" width="18"></td><td ID="189" width="18"></td> 1 s! g4 O# B8 o9 |) i
    </tr>
    , S( \# C" h1 }( v  @% h& h<tr height="18"> 6 x- t- h& P* k  i0 _9 i
    <td ID="170" width="18"></td><td ID="171" width="18"></td><td ID="172" width="18"></td><td ID="173" width="18"></td><td ID="174" width="18"></td>
    - s" p0 t: C/ ~1 ]* w. P# b0 @<td ID="175" width="18"></td><td ID="176" width="18"></td><td ID="177" width="18"></td><td ID="178" width="18"></td><td ID="179" width="18"></td> 6 X& A! Z( z% F2 n$ @7 V. H
    </tr> % Z) Q  ]% p2 |+ q: T& d
    <tr height="18"> 3 j. S- l7 u" o$ b# o& @
    <td ID="160" width="18"></td><td ID="161" width="18"></td><td ID="162" width="18"></td><td ID="163" width="18"></td><td ID="164" width="18"></td> ( Z! m% m" P5 k: U" l( Z4 I
    <td ID="165" width="18"></td><td ID="166" width="18"></td><td ID="167" width="18"></td><td ID="168" width="18"></td><td ID="169" width="18"></td>
      m( f. F  V8 v$ M: c</tr>
    ) a: M' k' p7 t2 Y. ^9 k8 [2 ~<tr height="18">   D' m6 E/ L! x( U' u9 |# g
    <td ID="150" width="18"></td><td ID="151" width="18"></td><td ID="152" width="18"></td><td ID="153" width="18"></td><td ID="154" width="18"></td>
    2 j2 ?* Q7 U" p2 a<td ID="155" width="18"></td><td ID="156" width="18"></td><td ID="157" width="18"></td><td ID="158" width="18"></td><td ID="159" width="18"></td>
    & `3 x4 D3 w; W/ X. {</tr> ,
    0 u6 g" z& y" j<tr height="18">
    ; w- @7 u0 D7 G3 `<td ID="140" width="18"></td><td ID="141" width="18"></td><td ID="142" width="18"></td><td ID="143" width="18"></td><td ID="144" width="18"></td>
    7 `- Y1 s0 A5 X: `4 Z  b! e<td ID="145" width="18"></td><td ID="146" width="18"></td><td ID="147" width="18"></td><td ID="148" width="18"></td><td ID="149" width="18"></td> " X( l& g; S0 O* l, z0 M
    </tr>
    2 _) z" s' z4 }. G# k7 o9 X; h5 }<tr height="18"> 1 \) B' N8 ?. |. e+ @5 R; B
    <td ID="130" width="18"></td><td ID="131" width="18"></td><td ID="132" width="18"></td><td ID="133" width="18"></td><td ID="134" width="18"></td> ; A! f) g; T* p
    <td ID="135" width="18"></td><td ID="136" width="18"></td><td ID="137" width="18"></td><td ID="138" width="18"></td><td ID="139" width="18"></td>
    , k+ f; b3 o  _9 f</tr> ; `, {& K! z* H# V& x  g  D
    <tr height="18">
    / e( h& q, l6 m+ u7 P6 d<td ID="120" width="18"></td><td ID="121" width="18"></td><td ID="122" width="18"></td><td ID="123" width="18"></td><td ID="124" width="18"></td>
    : p: w: M. L6 H0 F7 g<td ID="125" width="18"></td><td ID="126" width="18"></td><td ID="127" width="18"></td><td ID="128" width="18"></td><td ID="129" width="18"></td> & A1 B) f2 B/ i! w( y
    </tr>
    5 _' n/ \* z) P6 _" M  t% R  B<tr height="18"> 9 T+ o. w' g  ?
    <td ID="110" width="18"></td><td ID="111" width="18"></td><td ID="112" width="18"></td><td ID="113" width="18"></td><td ID="114" width="18"></td> ! B2 d! s- W, e: w$ R' V3 Q
    <td ID="115" width="18"></td><td ID="116" width="18"></td><td ID="117" width="18"></td><td ID="118" width="18"></td><td ID="119" width="18"></td>
    & B) G7 Y# O& \</tr> ) B! T+ h& O) f' j
    <tr height="18"> " M3 A$ y* m4 l6 \% B% I
    <td ID="100" width="18"></td><td ID="101" width="18"></td><td ID="102" width="18"></td><td ID="103" width="18"></td><td ID="104" width="18"></td>
    ' X8 A  Z+ E( K$ P! s' K% N<td ID="105" width="18"></td><td ID="106" width="18"></td><td ID="107" width="18"></td><td ID="108" width="18"></td><td ID="109" width="18"></td> 4 Z! K# M' P1 e
    </tr>
    7 q7 O* z: Z' Z) X+ x0 |<tr height="18">
    * ^: N( W8 d2 w" Z9 P$ M; P/ x4 P; e<td ID="90" width="18"></td><td ID="91" width="18"></td><td ID="92" width="18"></td><td ID="93" width="18"></td><td ID="94" width="18"></td> ) T6 I) |& H: }
    <td ID="95" width="18"></td><td ID="96" width="18"></td><td ID="97" width="18"></td><td ID="98" width="18"></td><td ID="99" width="18"></td>
    - [; A9 b, r" G( c- G1 L</tr>
    ! u* x+ O- a" L6 f<tr height="18">
    . b$ u5 o3 y! S/ Q# q<td ID="80" width="18"></td><td ID="81" width="18"></td><td ID="82" width="18"></td><td ID="83" width="18"></td><td ID="84" width="18"></td>
    3 D2 @: S5 Y4 ^. k  D  a<td ID="85" width="18"></td><td ID="86" width="18"></td><td ID="87" width="18"></td><td ID="88" width="18"></td><td ID="89" width="18"></td> $ w9 p& l9 k* B6 v4 u( ^& H
    </tr>
    % W% I0 P* o9 {  C" r, z$ R9 k2 A<tr height="18"> : y: ~# v. }8 i2 Q0 V6 F
    <td ID="70" width="18"></td><td ID="71" width="18"></td><td ID="72" width="18"></td><td ID="73" width="18"></td><td ID="74" width="18"></td>
    6 d% k& h1 Q. g! s, `0 n<td ID="75" width="18"></td><td ID="76" width="18"></td><td ID="77" width="18"></td><td ID="78" width="18"></td><td ID="79" width="18"></td> ' W3 q3 y1 K- H& y- k
    </tr> # k% X; J: R, e- B. z
    <tr height="18"> , m2 n6 L" d4 ?
    <td ID="60" width="18"></td><td ID="61" width="18"></td><td ID="62" width="18"></td><td ID="63" width="18"></td><td ID="64" width="18"></td> ) A& b1 a! ]# I# s$ j* B& ~
    <td ID="65" width="18"></td><td ID="66" width="18"></td><td ID="67" width="18"></td><td ID="68" width="18"></td><td ID="69" width="18"></td>
    $ ~& H" }$ \# R( ~# @  R0 i</tr>
    " q" z, d6 b. I3 n4 J0 [8 t<tr height="18"> ( v: n- v3 i# Q( c- P5 m0 h+ A, W
    <td ID="50" width="18"></td><td ID="51" width="18"></td><td ID="52" width="18"></td><td ID="53" width="18"></td><td ID="54" width="18"></td> 7 Y, m- l  u' `3 }# ]; _; _
    <td ID="55" width="18"></td><td ID="56" width="18"></td><td ID="57" width="18"></td><td ID="58" width="18"></td><td ID="59" width="18"></td> : j% g" O. U$ ^/ S. O' v( p
    </tr>
    ; M' D6 y( k: O+ l- l) e<tr height="18"> $ }# P. V& d0 Q' _% g6 t7 T
    <td ID="40" width="18"></td><td ID="41" width="18"></td><td ID="42" width="18"></td><td ID="43" width="18"></td><td ID="44" width="18"></td>
    ' o" c7 v0 h2 \1 G2 _% E! I* q<td ID="45" width="18"></td><td ID="46" width="18"></td><td ID="47" width="18"></td><td ID="48" width="18"></td><td ID="49" width="18"></td>
    & \" Z5 q( n  w$ f1 M& `  z8 D% N</tr> & |% A3 Z* T5 N+ Y: ~9 m
    <tr height="18"> 0 y7 |" s+ A  c
    <td ID="30" width="18"></td><td ID="31" width="18"></td><td ID="32" width="18"></td><td ID="33" width="18"></td><td ID="34" width="18"></td>
      F- H  g( G. I3 T3 \<td ID="35" width="18"></td><td ID="36" width="18"></td><td ID="37" width="18"></td><td ID="38" width="18"></td><td ID="39" width="18"></td>
    / f: x4 J+ \- W0 J9 O! h! ^7 n2 E</tr> ) D( W7 V3 s% e# e3 I4 I( ^/ o
    <tr height="18">
    7 t- @1 Q4 p4 A1 A' Y4 v; g$ f<td ID="20" width="18"></td><td ID="21" width="18"></td><td ID="22" width="18"></td><td ID="23" width="18"></td><td ID="24" width="18"></td> 3 M9 I) n& E2 g
    <td ID="25" width="18"></td><td ID="26" width="18"></td><td ID="27" width="18"></td><td ID="28" width="18"></td><td ID="29" width="18"></td> , R) S' K9 d8 ~3 H% S) i
    </tr>
    1 U8 \& z: D' y7 y9 u: A<tr height="18"> 9 E  U; d+ S- ^1 I9 y
    <td ID="10" width="18"></td><td ID="11" width="18"></td><td ID="12" width="18"></td><td ID="13" width="18"></td><td ID="14" width="18"></td> % v) a% U  r$ b" W% X
    <td ID="15" width="18"></td><td ID="16" width="18"></td><td ID="17" width="18"></td><td ID="18" width="18"></td><td ID="19" width="18"></td> ; b6 ~% W  ^. d2 {6 N+ J+ c
    </tr>
    5 K2 e. u' s. w7 c<tr height="18"> 9 l% K2 {% z3 n* U+ B, q
    <td ID="0" width="18"></td><td ID="1" width="18"></td><td ID="2" width="18"></td><td ID="3" width="18"></td><td ID="4" width="18"></td>
      _& ]0 g) Y, D: E<td ID="5" width="18"></td><td ID="6" width="18"></td><td ID="7" width="18"></td><td ID="8" width="18"></td><td ID="9" width="18"></td> ' J/ p5 f: E3 W$ c
    </tr>
    # H4 \" B% d: O( V</table> $ i- U* h$ V4 S7 |. r
    </center> ' l% E% J$ m6 r9 O/ ~
    </td> / T4 D2 j/ \/ V" w# A6 {+ |- K
    <td width="100">
    * V2 K) V9 X# r& @<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> ) D: I+ `. R4 i. [* U! l3 f
    <tr height="30"> " w* D" k0 Q+ ?7 `/ \% j: ?# \
    <td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 8 i4 l2 ^5 l$ v) @
    </tr>
    : |$ }4 z3 K1 f1 W# ~+ ^& g1 ^<tr height="20">
    - a9 I, Y& X. u, F<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
    ' q: ^* Y( A4 u, z! U</tr> : {+ M. d! U) I# K7 Y( ^" b
    <tr height="100"> + K$ u! e, B5 h" f7 d
    <td bgcolor="#FFCC00"> ) V8 g* N( s: E. t9 i9 D# }
    <!-- Inicio Preview -->
    + f4 Z5 M* g' j3 ^8 t7 A<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> ) _% Y$ O, j1 z3 ~9 _! `
    <tr height="18">
    7 d$ V1 R. O7 b" c4 m6 _1 T: l! |<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
    2 o2 `. u+ |$ T5 f8 p  g! x+ Z</tr> , w& z; s  s' _4 }$ |
    <tr height="18"> % r; X/ ]1 [5 y. w, u# H; O
    <td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
    + X0 ^5 p7 {8 P. b</tr> * t( {& s4 H/ j
    <tr height="18">
    - G  F4 {1 I; I$ d<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> & c9 D/ s- v( s0 e* F* Q9 l
    </tr> ) u, c1 A* ]" d; D' P0 s& e
    </table></center></div> 4 S% ^4 z  ~% u8 {  c% B$ E: }
    <!-- Fin Preview -->
    2 u8 U2 m5 s) R* U5 C( K8 L( \</td> + c( S' `/ ^- h6 b4 g
    </tr>
    * v, ?/ [/ G9 q# @) Q; c<tr height="32">
    ( P1 J5 y, {. J4 A: w<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
    ! v2 i) q/ j6 Q0 |4 J1 f8 [  h</tr> " v, m: b/ E  F2 ~8 [$ M
    <tr height="32">
    7 h" ~6 n2 R( O' j: a<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> * c- M8 v* x: _, k" @( J
    </tr>
    & o: a1 }7 }6 P* S! ?3 X4 k<tr height="32"> ( a/ ?2 w0 y4 f; w
    <td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> 8 m/ N. s* M( S1 P6 T6 D9 d  c
    </tr> 4 T" t9 ?9 E) H, d
    <tr height="32"> ( X+ b0 z7 n3 b  s$ O  T: R( ]  O$ Z
    <td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
    . e" ?+ N. V& s5 C! r2 D</tr> 4 [& n* T, t& L- @: o. W6 r
    <tr height="32"> # r$ w% H1 v: I
    <td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
    0 `6 ^' h1 I, H</tr>
    * J% ?9 A- J! j1 s<tr height="32">
    , E( h$ H1 `  `' v, C( t<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
    4 Y0 Z8 i* \& C( a/ \</tr>
    $ Y) w+ R  I5 p. b7 Q+ U# s<tr height="32"> 2 S  Y- |9 F$ L2 V: z
    <td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
    ( E, P5 @7 V7 G% Y! |# Y* S: \</tr> & \3 s# v  H5 z2 I
    <tr height="32"> 9 l5 I8 \6 J% |8 V& ?: G- `  P
    <td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
    $ n9 b" h9 l- Q2 F# J) H1 k6 B: b: o</tr>
    * Z& s3 U% W9 V- g; h$ `8 }8 N<tr height="38"> * C$ j" g& e) V- x* X. w
    <td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
    $ m6 g) Q# p6 g7 C$ \$ Z  \6 `% p. X</tr>
    ) v* Y! I1 \: D+ h6 {" S4 K- D/ n- K: \5 t</table>
    # J# P$ h9 B6 A; X+ t( o0 |</td></tr></table></center></div>
    7 W3 P- t. k! V: V. x' W</BODY> 7 G' a0 ~7 |6 G) S( U, ^
    <SCRIPT LANGUAGE=vbscript> & D' f1 y% f# ~
    Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver 3 j" ]& H: p& d. E- b
    Dim hs(),sor(),hsant(),n(),s(),s2(),s3() 4 P& g% k, N: ]( Y
    redim hs(3, 15, 2):redim sor(3, 15):redim hsant(3):redim n(10, 25):redim s(5, 4):redim s2(4, 4):redim s3(4, 4)
    0 B4 Y+ d) K2 p% n5 J- ]LevlIni = 1
    * X( _6 `9 ?+ n2 TPausa = False
    ; S- l) o/ \( AHastIni = VelLevel(LevlIni)
      e, A' t. K6 r( N# MHast = HastIni ) g5 o  d) E2 [3 _; O. i, \% R
    Levl = LevlIni
    4 l+ H. z0 O2 x, `+ w7 I' VPos = Levl - 1
    / R. E% {% [/ l' `ColorForm . ^6 C- i9 K: \: ]. G
    GOver = false
    8 d7 I8 e$ L# ?function Iniciar(ind) # U3 H0 M; {/ V' o7 b- b9 _) ]5 w
    if ind = "i" then
    0 I3 F: |0 k3 i/ escore = 0
    1 J+ g; H+ w* Q1 _GOver = false , p+ }5 N; U! |. C; ?
    Hast = HastIni * L+ P9 {* G0 O* F
    Levl = LevlIni 3 a* W1 @, E; W5 K" n- h
    Pos = PosLevel(Levl)
    - P" q: u4 E, G) \For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next " d: l3 p& @$ }5 J+ q) a+ j5 s
    For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
    / t7 M3 b4 o# S! X) j' yTimer1 = window.setInterval("Andar()",Hast) / t% d! D- I0 B
    ColorForm
    . H3 u% ^- {4 {4 |Fig2 = 0
    * O9 a% D- ?. y, D, a* z0 D! n" |Nyfig ; A( A5 `$ S0 j
    else ( |2 x8 q0 d+ ?& B4 f
    window.clearInterval Timer1
    $ l; Z( m9 E, {" O- S1 xend if
    9 o8 ?$ J& Y7 q& Mend function
    9 i1 r1 d! x# |0 u$ }" d6 n4 D( i9 gSub Nyfig() 1 s3 M' m$ l3 m. f& y
    Pos = Pos + 1
    * X: q! F; k9 bdocument.all("In06").innertext = Pos & ~' x, [1 p/ X* Z
    Select Case Pos
    - d; S( B5 d# s0 o# _" G0 s) W5 Z$ kCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
    7 H8 [( X* a8 M/ m) n$ b( A0 a9 D6 \Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
    % [: G" j, O# m* O  D1 v# SCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl ' S% }2 W, W2 D3 w
    Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl $ G* I+ K/ ~+ Q+ c" K' P
    Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
    7 ~0 X3 k/ q5 p: |Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 b/ R  p! [! p' T2 S$ P
    Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl * G7 J* y* v* G- s6 L% \; X
    Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
    ! Q; K- L9 {# |! c5 g, FCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
    # U7 U3 P4 i9 s1 p- \; w* s# f- e1 cCase 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
    # o3 t9 F' w& J0 y7 EEnd Select 0 [' {7 j8 O7 e) U7 j* f' E  [
    window.clearInterval Timer1 4 v  }5 s  Y$ I) G9 e4 n0 x5 V$ D
    Timer1 = window.setInterval("Andar()",Hast)
    : W- c; g: l' y0 Q9 ?Fig = Fig2
    / `  ^$ U4 _5 J# d- c' x7 u: BFarg = Farg2 5 u/ w2 _: ]7 q# I5 s# M2 B( \% y
    Fig2 = Int(Rnd * 7) + 1
    & |, n' I- U: o/ z  ~8 cX = 4
    % I, ]# e6 ~6 Q$ QY = 26 4 y2 h# S" v/ B/ L! C5 B  D, F! e. M2 t
    Rot = 1
    , ]: g- W7 h# OFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
    ( }2 H0 e) T* XSelect Case Fig2 0 e5 R8 U% _, w% H+ b
    Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
    3 K" z0 J% e$ t* P8 eCase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" % F1 C1 o& k' f$ m
    Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ; e" t) N5 z/ l% y3 ^" n6 z% ~% ]
    Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
    2 q0 {! h& U6 r& h1 }$ jCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
    ) ?# L! c7 `: |% j, J+ CCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
    # Q. Q+ y6 v$ iCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" 7 M3 L7 |/ }. {" h0 w
    End Select * n/ e/ S$ u: N: \! L
    For i = 1 To 4
    4 W( T0 W: |% W: J% P  D( M  S* hFor i2 = 1 To 3
    * ~/ O8 r! n2 qdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
    # H/ V- [: Z: A- rIf s2(i, i2) = True Then 1 j# i4 I8 c  p3 L1 v
    document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2   s2 ^, F4 U  H& b: i! L
    End If
    ; G: [2 O0 x5 M  M% y( XNext ! T' c9 x% O7 ^" I7 |2 j: f
    Next
    ) m$ A" r. f  l5 GEnd Sub   R2 G5 N% L) M7 a' I
    Function PosLevel(Lev)
    / p" n1 \. V8 mSelect Case Lev
      J& Z- T/ `& h( Z- o) K9 xCase 1: PosLevel = 1
    3 T* }- t) a) w6 ~3 u+ {5 _Case 2: PosLevel = 51
    ) u/ A2 T# @0 [! [( uCase 3: PosLevel = 81
    ; }- t8 A5 D4 l% O, J5 l8 dCase 4: PosLevel = 111
    6 g( }2 w8 B% d6 k" dCase 5: PosLevel = 141 2 [* @* O3 v, x+ }! n' v; s
    Case 6: PosLevel = 181
    $ @; p6 w9 m( a- {/ }( I2 `3 f% PCase 7: PosLevel = 221 * ~2 D. @% r5 }! e: M  k
    Case 8: PosLevel = 261
    ( Z8 y8 Q4 a- g& \# J9 ICase 9: PosLevel = 301
    ( j! x( L  v4 H+ vCase 10: PosLevel = 341
    6 x# V6 ^+ K1 Z1 n( q6 KEnd Select
    4 u4 m/ ]2 h( VEnd Function 4 u3 ~( \* n; E$ @; H/ B2 ~
    “いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
    * z/ I, F. B! c/ wFunction VelLevel(Velo)
    2 l# x$ ^$ F, [+ R0 t' pSelect Case Velo $ \- L# }. Y" h0 v' S/ [8 _# x
    Case 1: VelLevel = 500 . U9 L9 n( `4 q% g$ F3 q
    Case 2: VelLevel = 450
    + I% F6 G  I$ ZCase 3: VelLevel = 400   w# E6 \! H6 g% [! x5 J
    Case 4: VelLevel = 350
    + _7 r2 ~( I8 h! X  LCase 5: VelLevel = 300
    : b# b" T- W% p/ v$ ~) |9 ]# Q7 dCase 6: VelLevel = 250
    + _% K4 y, m9 v  ~! {+ u* e0 eCase 7: VelLevel = 200
    . M! a: ~, u! y% Y% t( fCase 8: VelLevel = 150 # s$ o) t" J% O. S* y. e. u
    Case 9: VelLevel = 100
    - [6 U: G& r" s1 k; d4 k; q+ F# UCase 10: VelLevel = 50
    9 Q6 v6 f! Q3 ~0 k0 k, U7 U: XCase 11: VelLevel = 10
    * P& k  Q5 q- ?4 j/ d/ }, GEnd Select
    , V- ~/ R2 c& s$ x- W0 nEnd Function
    $ W* m" ?# e2 JSub ColorForm()
    ) W4 A- \8 I) u) A8 l1 }  ]; uFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
    : \4 ?+ e  |* a+ mFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
    % I+ _4 T2 B6 d! J3 X9 WEnd Sub # h) a6 d/ ?% e" W: b
    function Andar()
    8 h7 y' W. Y0 @' A: QFor i = 1 To 4
    0 @$ ~4 r4 i* H- m  JFor i2 = 1 To 4
    8 F) g+ Z0 F/ D6 p# BIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 " }8 i: E4 G( T
    If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then " l5 \0 K! w' q  n: Q
    If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
    ! M# a5 T2 V) i  gEnd If
    0 T. K6 C* ]2 M3 @9 P2 xNext
    ! h- _+ M; |; F, m1 E6 WNext 8 p% D; w8 b6 Y" n) N( Q
    If Fig = 0 Then % f6 ^. t! Y+ O
    For i = 1 To 4
    3 M& a; C7 ?  O9 y+ J4 M! E3 CFor i2 = 1 To 4
    2 ^" D7 k8 s# H& j/ p: E: QIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
    : d1 k: q; j% u7 l: G/ @Next
    # s1 M2 U; O- HNext
    3 J; u  s: {* q& TNer ; @$ T6 w: p( h4 Q' e
    Nyfig / C- z9 @1 i2 Z& i) a2 l' P
    Else 4 Y2 @) j- t' u& q7 W
    For i = 1 To 4
      I. Q0 a9 ~5 L' t2 sFor i2 = 1 To 4
    3 f- {: S/ b6 K0 W2 x4 _+ U: gIf s(i, i2) = True And s(i, i2 - 1) = False Then
    5 m# \. q3 a3 J; x5 {. ddocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" / X0 I. \9 \# s$ c( @" b
    End If
    9 z- x6 O( D1 F( XNext
    ( i+ [& \  _# {2 T5 qNext $ \7 @. z8 E0 Z) l8 Z- ?+ v3 g% k
    End If
    ; S  ?0 ^$ T+ }5 p+ j& wY = Y - 1 . |$ U/ e3 T- Z0 Q
    For i = 1 To 4 4 N: X! V) _6 |  x, t
    For i2 = 1 To 4
    : Q& G, q  N3 f: B0 r3 e! dIf s(i, i2) = True Then
    8 r. V" L! p, q& qif not gover = true then
    $ ?+ m2 C/ t8 IIf ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> "#000000" And ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> Farg Then 8 s7 C, T8 h" S, }3 @1 j! y$ ~8 i# g
    Gameover 7 C. C- W9 I+ h) n
    end if ; F4 p. J! K5 h8 P6 c, u
    end if
    2 O9 \% w: x- r  p6 d6 d: vEnd If
    0 j& W' |7 f8 c; ^+ u0 MIf s(i, i2) = True Then
    6 K( R4 Z1 e' y/ W" F2 y9 mdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 9 l7 P( `, _* N& t
    End If
    # d. M# ^/ Y# `5 f! i2 o' [Next ' f3 g' @2 Z; A3 P/ w
    Next
    2 R7 g3 ~" y$ q2 ?. w  o( Pend function
    " P2 c+ ]$ x9 ?# i/ k* ASub Gameover()
    & ^( p! u/ \2 |: E& ]* {MsgBox "游戏结束！", , "俄罗斯方块" ) }0 H) y0 z* X4 W5 U
    window.clearInterval Timer1 ! G" o" I/ }, S
    GOver = true
    - S* k4 z8 R  L- P: t* z/ {End Sub
    : N  A  {( M# H: P2 @0 zSub Ner() ' q5 m7 m: h) J+ E' y5 z5 K
    Score = Score + 10 8 r/ M, x0 T0 `+ e+ o# Z) g. C4 U
    document.all("Sco02").innertext = Score
    , V2 u; T: m$ m7 J0 L; v6 f  nFor i2 = 25 To 1 Step -1 ) E' c* w3 X+ j) q
    ok = 1 " X7 f* q2 V& \/ X( H
    For i = 1 To 10 ; g; w, y1 B* U$ P4 V' ~# |. B
    If n(i, i2) = False Then ok = 0
      y2 F- H1 i" [! l6 TNext
    4 k* ?4 V6 L9 R# w/ e  oIf ok = 1 Then 6 F- I6 v. b4 n  b7 `' B
    Score = Score + 150 , D) V0 q, b$ ~2 `5 N; _
    document.all("Sco02").innertext = Score
    2 k/ F8 T7 W: @For i = 1 To 10
    8 c' n/ ?+ H+ _For i3 = i2 To 24
      Z) J; E$ x. en(i, i3) = n(i, i3 + 1)
    ( {0 l) n" D9 W9 z* vdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor , E* S7 C& i& _: e
    Next
    ) P; Q' k* `$ K& |' V3 M  m0 u' INext
    ; g6 @: [% y# |: YEnd If
    . ]4 W( A: C  h4 [5 |, uNext % t# R; \) K2 s3 k/ t1 o
    End Sub % P. ?& l$ E! D. g9 `- B
    Function coor(xx, yy)
    6 R0 K) w8 O, Y( D- Ncoor = (yy - 1) * 10 + xx - 1
    ! `3 U0 w3 R1 g$ l( d& W; FEnd Function
    & g' I$ w2 x4 e& X# W$ O. J: MSub Rota()
    % z' i' H- l; H/ YRot2 = Rot + 1
    0 f0 J, F9 z+ t. KIf Rot2 = 5 Then Rot2 = 1
    $ Q8 |: A( Z8 {& q3 A# }If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
    * X  [) u- i2 ?, T! n2 |; {5 lFor i = 1 To 4
    # q) h4 G; }7 o2 `3 D6 @For i2 = 1 To 4 # }) m0 M7 y& B- j
    s3(i, i2) = 0
    / T5 A% U# T  ~/ e) |, }Next 0 n9 l6 B. \2 M' E- n7 a6 S
    Next 2 O# c' o% C& g+ O! Y
    Select Case Fig
    ( l# P: @  `0 N7 s9 Z) W, iCase 2 7 v: a. L' {. O4 {/ z
    Select Case Rot2
    ! E- I, W. G& x6 \' p' I: nCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
    , B  @: k* s+ K$ E3 ^$ y+ g/ mCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True & _* D1 p7 n( i* |: K
    End Select
    ; I8 `- N7 q# q& x" A" JCase 3
    ( v9 l# U$ Y5 O! ], [4 D5 A6 tSelect Case Rot2 ; y+ t7 _1 [3 m  ~) i
    Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
    + i* w5 W( b5 w8 H* JCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
    / i# j; x2 A8 ?( Q* bCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
    4 |" ^& s" z3 M0 FCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True , E5 O- ?  D4 S, {, V
    End Select ) t9 s! ]9 F6 y, X
    Case 4
    " v3 `4 h; A7 x& [! t! D9 wSelect Case Rot2
    5 G* r* N& j2 N; r  {Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
    2 @2 i5 t! Y# Y1 k$ _& \% rCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
    . x# t' n) l5 ?Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
    3 I- A$ u+ [& o& u1 v( HCase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ; l) T3 S* h4 ]7 p" ?
    End Select + u. S' F* e9 G& n
    Case 5
    5 k' M* x" R' X  hSelect Case Rot2 % D+ }$ z; p+ i
    Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True   w# \$ k% ?2 L8 I* b$ Y9 {7 T# }0 g
    Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
    7 S8 j" X6 p/ _& J1 I2 LCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
    5 ]& t- X+ q" W. `" tCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
    ; c" w) V# n! ~; z6 iEnd Select
    5 _% C3 @5 Z- b' }& wCase 6
    . W2 Q& P4 u: d0 I7 i! WSelect Case Rot2
    & @8 H6 o( V* }1 r% @8 h' X# iCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True 4 i; B" q: E% P$ n8 k5 r
    Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True + |- }0 R  G% ~: q( o
    End Select
    + t% u/ }4 k# M+ B3 B& ]Case 7 9 i/ I4 m& x* X9 \
    Select Case Rot2 0 ?0 g$ H9 j  `. X
    Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
    5 D$ H  q& H7 D4 J. f9 vCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 1 H. j3 a5 K% K# k$ a/ |) s; j5 [
    End Select
    + _4 q; E- U, C& ^2 yEnd Select 0 p' o( _+ n" F  C
    ok = 1 , Q  I/ B; |$ Y) N, T# i) ]( A
    For i = 1 To 4 5 L( V) j9 @1 }
    For i2 = 1 To 4
    " [% f* P( y% Z3 ]9 O* \8 `If s3(i, i2) = True Then $ C3 ]" W4 d; x- c
    If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 $ G$ a/ B* q. z3 F. r+ f5 y
    If ok = 1 Then
    & o. [9 w! D0 c$ qIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
    # v- e# ]+ v% I5 {5 ]7 e' b  sEnd If
    9 g" P3 W- J* _+ U" E3 YEnd If
    1 S( |2 A% e2 c6 h! Z) tNext 3 z( E* s9 b; p
    Next
    % C! _  p& B9 R- s) v# g  ZIf ok = 0 Then Exit Sub 4 |! x, H- X$ I
    Rot = Rot2
    % w& q+ G- G% l( M+ H& ?9 FFor i = 1 To 4
    # T$ V# J2 i; z% ~# p  a" u: N* FFor i2 = 1 To 4 ) |- S4 G, i& u  A* i
    If s3(i, i2) = True And s(i, i2) = False Then ; w2 M# }/ r3 _. n: Z/ n
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    5 |3 d6 V" i- E' VEnd If " ~1 Y# i, r+ o3 F: S( v$ }1 P& N$ E
    If s3(i, i2) = False And s(i, i2) = True Then
    9 p; H# m4 J& i/ O2 wdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
    + A6 B+ w% X: _- q' C  o6 wEnd If - k7 m8 V" P. n$ N  p
    s(i, i2) = s3(i, i2)
    ( q6 N9 G( t% V' Z  i2 [& @Next : v) X: N1 ^# x; d5 d
    Next
    . B: p, ^6 G4 N( X. Y& V% OEnd Sub 6 n, l* y# h. M" J$ R; a9 X4 s
    Sub document_onkeydown 5 K& _8 J) K. e/ E! ]2 @, `6 v
    If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
    - H3 M+ A6 D  U6 }If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") + ~/ Q( `% h3 J0 a
    If window.event.keyCode = 113 Then iniciar("i")
    : j! U6 d7 V- I# y" M' Y: `' ]If Not Pausa = True Then 0 C7 y, i/ A7 ~7 O& p
    If window.event.keyCode = 38 And Fig > 1 Then Rota * o5 D, o- {9 b) J" [
    If window.event.keyCode = 37 Then
    ; Q% m& A" j  D, o% cok = 1 9 C- \. a4 w( h" V
    For i = 1 To 4
    ; x* P+ W5 V8 Y( O: h* d! U$ RFor i2 = 1 To 4
    0 q* \8 z: r' u. {2 ~) T5 `* WIf s(i, i2) = True And X + i - 1 - 1 > 0 Then : x$ ^, O( B" U: M( [; `. r
    If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
    9 v( @1 |0 K9 c* ZEnd If
    + K+ n5 W0 P3 v6 ]' WIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 9 b' Q9 o& Z4 r2 C8 f
    Next 6 b7 y. t# j/ n" p, J  ]% y% Y( G
    Next 0 }1 x+ l2 _1 x) b! L" k2 r' m7 w
    If ok = 1 Then 1 B( Z; w" m; v/ t
    X = X - 1
    - h* `8 }' O8 A5 ^& K; v$ @- DFor i = 1 To 4 # J# U# m- K5 n# _7 Q
    For i2 = 1 To 4 ' l; b! _, F) d3 |# I' k
    If s(i, i2) = True Then 7 J; z( \2 X. ~4 u) Z, |
    If s(i + 1, i2) = False Then
    " o; \- G9 i! ?: }document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
    % g7 n" T! X! [% W2 `+ ~2 Z" l0 ^End If
    4 a# ~  j6 {( Z$ Y  K7 KEnd If , m. c9 U$ {' A
    If s(i, i2) = True Then " T. `( S! \; ]
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    5 m  J  P$ q* |% e  o3 bEnd If
    1 c: m1 T2 z1 u4 f1 Y  QNext
    ' i! M  Q5 S3 ^& ENext
    4 e4 J6 j& \! G, K$ kEnd If * [- @: j" O. ]% Z
    End If
    1 G8 ?$ |) B1 i- [+ wIf window.event.keyCode = 39 Then - H8 c# v2 `5 C3 b. e1 }5 x8 Z& g4 S
    ok = 1 6 O. J. l) n& D
    For i = 1 To 4 + e1 ^; B3 M; {( l' D2 e
    For i2 = 1 To 4 % x3 q/ u4 U+ D2 V" G! G9 H4 E
    If s(i, i2) = True And X + i - 1 + 1 < 11 Then ! g( _' S( a& t& i5 ?! e& Z
    If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 4 a- Q6 @* v9 u3 O1 i
    End If
    ; t% \) S% @( o' Z( \If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
    9 R3 o- J9 d4 Y- K' GNext % t6 G& D6 z) Q7 |" _& d
    Next # x# f. F# |1 d. s3 U- C
    If ok = 1 Then 9 e; I( f2 d! R1 t( \: u* H. c. r
    X = X + 1
    * C! `* _, T, {- t, r0 aFor i = 1 To 4 & v3 _6 ]2 G8 d
    For i2 = 1 To 4 , e$ `  y8 c, ?0 ]
    If s(i, i2) = True Then " g2 t# o4 y/ a; ?
    If s(i - 1, i2) = False Then
    ( G  Q% w( M" f- R( S3 }/ zdocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
    ! M' X- w" e& z7 x1 kEnd If
    & N' _1 B# r' S5 T1 t3 _End If 9 u& n3 O. A/ @  _
    If s(i, i2) = True Then 4 C- l- r6 f% h% L" w6 N
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
      ^, R( j6 u3 P5 EEnd If
    ) L" j' }2 K& O0 e: j2 pNext
    4 m& ~+ d* c$ R# [  X/ qNext
    $ {  l- Y) Q7 QEnd If # v8 L  j- @) B9 Y2 P1 ?
    End If
    , s: X6 A3 f, v9 ^1 j# {: S/ m“Aqui
    1 J3 j4 A+ s) P6 D. OIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then
    - ?% h1 u' Z9 fIf Fig > 0 Then
    ) w0 E5 b" P( lFor i = 1 To 4
    8 M: ^. a3 K3 C  ?. D3 LFor i2 = 1 To 4 " S( Y+ l6 W0 R7 a& [
    If s(i, i2) = True Then
    ; Q) U% s) y# @4 odocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" : t( H4 M, p& c1 ~% L& {' r! ~) c
    End If
    % P, `- U6 v, H- l2 jNext + {$ u1 Y+ l" P; J, @" C& k
    Next / V1 y# E+ q4 ]
    Do 1 d- q" h) J* p8 S
    Y = Y - 1
    " n6 E0 X' P7 F: _For i = 1 To 4
      ~4 U/ W4 u6 `4 a+ ^  m* l) u- eFor i2 = 1 To 4 . [. t& R  o- ]" ^! ]( a
    If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
    5 z! Z* l2 n/ t+ T% SIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
    6 F; G, f5 t( h  EIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 * D- ?1 b2 P* v1 u; i/ E
    End If 9 I7 R. b  a( k/ m0 |
    Next & ?# Q1 Y7 J" }) N' j% o* T
    Next
    * t- H) B) B$ w7 h) U5 |: V$ ?Loop Until Fig = 0 ! O0 K* g# c9 W
    For i = 1 To 4
    % _1 e# C! ^& o9 L4 K- x. jFor i2 = 1 To 4
    7 B# j. e; N# E7 ]9 s& mIf s(i, i2) = True Then " X& ^0 U) r6 j- N( {( G4 a
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ( J9 k2 ?. g3 ^. q& t8 e
    End If ( ~4 O  A7 P6 [
    If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True ' a0 ~" ]- h- T, V3 o/ f$ e) c/ D
    Next ; U& d0 P) k5 g
    Next
    : L: T" Z* w$ t% c# m5 yEnd If
    ; y$ ^' {5 l; G8 {) PEnd If
    : c3 I8 A2 k' B6 \End If
    * ~9 z: d; V* R. C9 fEnd Sub " a. q+ A( H" w
    function Mmove(Index)
    * o1 ^% l9 u& o0 G5 Q% q4 Q$ m& Tif index = "I" then " u/ K& r; i+ P- Y3 f
    document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
    7 m, v' W% S  |& K1 I- J# N: `- gdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" 4 M/ T9 R( I+ e+ F- ^' [9 G( T
    else
    # e3 |7 Y$ p( `0 ~document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" # l- R* Y" Y. |  q" i$ P, n% q
    document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
    2 u4 z: j. x2 k3 i  X8 V" \* b1 hend if
    5 R# P2 M+ X- }0 o" ~4 ^3 fend function - B0 j, f- O# c9 S: Z+ H: c$ R
    </script> ' i- b. g! Q+ J$ Y  m7 Y6 v3 X2 x/ _
    </HTML>
    % A! c6 g- F# f6 v+ D% E. l6 }& f* d<%End If%>  
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏 分享分享 顶顶 踩踩 转发到微博
    回复

    使用道具 举报

    秋风舞落叶
  • TA的每日心情
    开心
    2014-7-28 21:47

    • 签到天数: 2 天

    [LV.1]初来乍到
    2楼
     楼主| 发表于 2009-4-17 08:56:11 | 只看该作者
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

    下沙大学生网推荐上一条 /1 下一条

    快速回复 返回顶部 返回列表