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

下沙论坛

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

用新浪微博连接

一步搞定

QQ登录

QQ登录

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

用ASP编写俄罗斯方块游戏

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

    • 签到天数: 2 天

    [LV.1]初来乍到
    跳转到指定楼层
    1楼
    发表于 2009-4-17 08:55:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    以下为引用的内容：9 U0 T% P2 [: q' I9 `
    <%If Not Request.QueryString("Ven") = "T" then%> 9 D' p& q- s9 r; D
    <HTML>
    3 h3 g5 }; m6 \2 v9 A; k<HEAD> 1 b! P- B" d- R/ `) ?6 P
    <META NAME="GENERATOR" C>
    : [; C" V0 ]* i' }  n<TITLE></TITLE>
    : z0 ~, T6 r5 n8 n  |" w# ]</HEAD>   Q. g) K$ \1 M9 x, Y& j" D/ d
    <SCRIPT LANGUAGE=vbscript>
    . A/ M; o. F$ w0 i5 i" gfunction Redir()
    % c- e# V( D) A; Q3 V' t% hwindow.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" 7 d1 j6 V! w! B3 X3 v5 g
    window.history.back(-1)
      p1 v% }6 n% Y/ e" y  \+ eEnd function
    1 l3 x% I5 G6 G6 n* N2 C9 o</SCRIPT>
    $ O% q% d: W( H; A, R' b( b5 w<BODY onload=Redir()>
    - S0 {& h# k) l  x</BODY> + s$ g: @" }4 n: p; l7 L
    </HTML>
    1 O2 a( P# ^0 D6 D- X<%else%> 4 m, ^. |* S7 i% S
    <HTML>
    ; {2 `" C" j+ C; o) w& R5 [. d<HEAD>
    6 Z4 w: T1 y. _/ x  k/ e# k3 {<META NAME="GENERATOR" C>
    " b" A& V5 j2 t) ^4 x<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
      X* j9 _9 _3 d<Style Type="text/css">   _& J7 U; z' |8 C/ r) n2 a
    <!--
    * C! h6 X' m' e% b  J) a.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
    , i- Q( i" @, z! }.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
    6 E4 \  v! c8 X; i- X1 B6 ].normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} 9 e, G3 T6 r; ]9 o& Q, {& @
    .normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
    + P/ N! J) c6 o.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} ( i7 C2 \* I5 k5 _4 u# C1 o0 j/ J
    .normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
    4 y& \  i- e# x$ W1 g4 x' ?.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} - k9 o$ A8 A( e' R3 D3 \
    -->
    ( b+ O0 Z9 U; ?% |3 {! X! l! T</Style>
    9 q& S- ]/ a+ u2 }# n</HEAD> ' R3 V" {- C) ?% N: B+ c) f- V
    <BODY topmargin=2 leftmargin=2>
    ' x! S4 z, v- Q" c/ ~2 d<div align="center">
    # B( O# s8 c) P4 q, L<center> * `7 A' `5 d% R  |* E
    <table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> $ i5 u0 N" Y) ]; Z4 J  n  g
    <center> 7 l3 P5 M4 R6 _3 i3 @
    <table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
    * z; _) T, C. O% C9 F<tr height="18">
    $ C/ Z$ _6 |3 J$ L% N9 {<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>
    % H% j+ Q) T2 c" g3 \( I$ N% q- ^8 P7 ?<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> 2 i9 K2 m" q) {! u5 C
    </tr> & x3 `2 z! W) S# k; }8 D+ {' |8 u
    <tr height="18"> 4 B/ f* a# ~9 k- z' z: E4 N4 T% }
    <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> 1 B. F0 m4 _1 I4 w
    <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> ! L* |& f2 ~- e
    </tr> % }& R+ Z, x* K) x+ `6 ]7 _/ v
    <tr height="18"> & @  }3 A3 ?$ }* E8 [4 J( ~. ]. o
    <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> . u$ l* `+ o. L* d2 e+ A1 ~4 t/ N& R0 \
    <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> % r& d" \% m8 X0 @' x
    </tr> ) l* E0 w$ z9 i: T$ K
    <tr height="18">
    8 v' y8 }1 t' h0 ?+ q<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> 0 V$ k2 u$ s  A; D+ t
    <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>
    $ q. B7 u- ~1 S</tr>
    ! ]* B6 m3 W$ ~$ m# ]<tr height="18">
    $ ?0 Y& V) z0 N# G/ Y5 v<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>
    5 j& c. u: l" f<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> 9 t) ~7 N& F8 V8 l5 ^
    </tr> ) C0 S, s: _" K! m. U9 ?) z
    <tr height="18"> * s7 m' r  A* k5 w/ `! ~' Z
    <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>
    0 T0 E- V% r' H* D6 }. {1 Y; \<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> " z3 K& {$ r2 X8 \
    </tr> $ N$ B6 [. g" _/ `
    <tr height="18"> * Q! x0 Q1 U. e- J
    <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> # ^' d. J& k+ U8 t
    <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>
    4 H& i5 C% Q0 J) M( k) s, \</tr>
    ! D& l: K3 F" |2 F# {! {8 P5 \<tr height="18">
    5 @/ j" Q( O! G8 `9 J0 f<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>
    * _4 x5 e! I4 w4 p" N4 ?; {<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>
    ' W& G$ M9 v6 @4 H5 ?- `, H$ p</tr>
    ) r% `1 A8 H1 w<tr height="18">
    5 z+ P$ }2 _3 m3 U! U0 {<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> ( B4 J1 l3 Q& K5 U& M1 n
    <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>
    1 ^& I4 E' U' k- t0 E, L$ n</tr>
    / ^0 h1 q6 Y! a; i( n, e<tr height="18">
    " e: `. k( u6 x1 e! b7 f<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> - O# i  L; c# @! |+ q+ g4 D
    <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> 1 M; m. V: Y: `& Q4 ]
    </tr> ,
    * ?6 S) z+ K" w: ]  y<tr height="18"> 9 n0 W5 v. M$ m) P# U. p3 C" F
    <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> : J# r0 w5 l, 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> / z7 y2 F- _: `. T
    </tr>
    ; L# m8 Z* K" _2 E$ J<tr height="18"> $ Y0 B. h- H) ], 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>
    4 t! c% b, \7 K: _- D$ F( S<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>
    " `* i% ^/ e% M. c; s</tr>
    , z8 @/ d+ S1 f% D2 L9 X<tr height="18"> 2 Y* W& x/ D" U( n
    <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>
    4 m) N7 P5 s; B# Z7 F<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> 6 u. }: @' X, C& ^/ W
    </tr> 0 ]& D6 l2 h! W4 X% P& W9 h
    <tr height="18">
    5 @) u' @! R) K# u' }7 q<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>
    5 d  @0 u/ g2 I  j4 j; K" M<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> 0 Q. ^: ], V2 q/ b/ w, q
    </tr> 5 A0 j" M( n  l6 I, u3 j
    <tr height="18">
    - e+ w  A0 d1 e0 J/ J<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> ( J: w, v6 k8 L
    <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>
    & ?: T, V% N* H</tr>
    " z% O/ A6 g: _9 r, ?<tr height="18">
    ) P8 ^# q) v# X" |<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> $ |$ b# Z9 O0 t7 t, F( O
    <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>
    6 K9 H: V1 _) A& ]1 g</tr>
    2 U1 b5 `) a3 o( M, t0 r  c5 D, ?<tr height="18">
    9 r7 y: s- ~/ w% l<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> ) j- t- Z2 Z; E4 \/ O4 e0 z
    <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>
    " `- z; g8 v. J  u" {! F! p</tr>
    ) c( [" ?3 F) o<tr height="18">
    1 H; R; v/ ?! Q, V<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>
    + ]; N/ N7 K. [/ [  d6 ~0 Y, ~! 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>
    ; s, Z" o6 \  l</tr>
    - _& S- E8 x' |4 e8 T( F& L<tr height="18">
    0 |) ^1 Z+ O8 }6 d, w7 u( I<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>
    + ~/ J+ @2 P- ?1 m3 o; C4 l<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> ! ~) U$ O* ]1 L- q/ W4 Z; P; l5 i
    </tr> 4 P- a' W- e  l& P2 N) W
    <tr height="18"> . U4 Y+ \: x6 ^# ]( }$ Q
    <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>
    8 W+ j/ \8 [7 O<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>
    . \, ^8 H( K5 ]" Z; W# E</tr>
    ' m4 ?( ~" K/ z  W. Z% Q, k<tr height="18">
    1 X, i; \' U' M6 z! b2 ?<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> 0 q) J2 E( b1 K  |& S, S& w
    <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> 1 R0 r" C% }8 L; D- ~' A. Q# \
    </tr> $ I3 W6 v( \" F8 m8 p
    <tr height="18"> * v6 X# G. R  g; a3 \
    <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>
    5 {% r' r  i* M<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> / D5 ^$ X. v, n/ _/ ^( T/ u0 A& V
    </tr> : f4 i& z$ l8 _. J( g
    <tr height="18"> 2 C! m( o- r: P( h+ t4 j
    <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>
    ' I* r/ E; l1 e, P( T- F<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>
    ! C( x* [4 m4 a/ [) Q) k# e! p, ~% m</tr>
    & {, \" O: Q6 q6 C* p<tr height="18"> 5 |* z% [: X2 ~4 w9 i( J
    <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>
    0 J; t' `# J/ T! N+ |9 g$ k9 d<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>
    , L2 k* K5 ~: @</tr>
    # R* N6 O1 S4 T( F% W<tr height="18"> 6 E3 B* A; C; D& a) J+ U$ p8 a
    <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>
    ( A* ^  C; U7 g: w1 Y<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> - y6 O! I+ K  g) U: N. g
    </tr>
    9 ^" O% p6 u) G( D- `7 R</table> / n  d2 ~3 d* `- g- i
    </center>
    1 x4 F# g- j  t* p& `0 l</td>
    , h1 `+ B  \; |" n<td width="100"> " Q: }, _" S1 Q/ x! f
    <table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
    1 k( n3 M+ K9 `* v# Z- R6 S<tr height="30"> ) m3 g4 l  k. Z% N
    <td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> " {: d* V5 G1 g9 t! d9 {
    </tr> / ?7 k+ H$ f$ p- \
    <tr height="20"> ) Z# ?" j- X) a7 f- S+ G
    <td class=normalD align=center bgcolor="#FFCC00">提示区</td>
    4 z) [3 @  V* g; Q( x6 u</tr>
    ! C( z  @6 v- C9 k0 h, K<tr height="100"> 2 U7 O. |" ?4 E+ q
    <td bgcolor="#FFCC00">
    " q( w+ W( u. v/ |& [, U<!-- Inicio Preview -->
    8 ^. s4 ~" F: D3 D. e, _! u<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> ' t" u" O6 k$ U  R. ~
    <tr height="18"> 4 x0 @! F. C7 W- G8 w- j
    <td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
    % t" d1 E$ D/ u& W</tr> ; ~& `, j% }& a+ a/ k
    <tr height="18">   z3 R, W9 f4 f
    <td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> 7 D9 k( {, p1 l5 ?
    </tr> : A( w- l1 V& ?! P7 P$ D+ n( i
    <tr height="18">
    / d( q# i7 s- @% R  r<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> 5 q3 h5 M5 V- B+ m
    </tr>
    $ Y; }9 E& \: w; Y0 b$ f9 |</table></center></div> 1 z" H+ Y+ [1 y( I: M
    <!-- Fin Preview --> , R6 d! t% P: ~9 y
    </td> ) q; H* E, B& _+ a
    </tr>
    # j: g) Z  y% U" F$ s) a<tr height="32">
    8 K, M9 C3 h1 U. d, `. m<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
    1 m/ k% T1 j. b. x</tr> 1 |9 Y, A1 Z- ~, W4 G1 N6 G
    <tr height="32"> ; {, [7 W' X( }
    <td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> 0 e5 {. \% j) U6 ?6 {0 z  `
    </tr>
    ; Z" F- K' W9 ^! `  N2 _<tr height="32">
    . m6 Y: N- G( C! \" y2 y4 `! O4 c% j<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
    ' Q' S: f9 d: O1 d; S8 k</tr> ; Y, K% R7 O( i. a/ |6 Y3 j' K
    <tr height="32"> * x0 G; r3 c+ p- w. ]/ L& ~
    <td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
      q4 F) O' A' i# u</tr>
    , y3 H; x9 L8 r2 d3 r, }3 C<tr height="32"> 4 x& W$ C; f" o6 v# L
    <td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
    ; o+ J+ Y" _# q4 ^2 ^</tr>
    , h* [! J. j2 G: z/ h  i<tr height="32"> 7 I  q9 H+ Q: w* P- V( r6 q
    <td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ) e3 M4 B$ ~! W& a& ?
    </tr>   k8 |; b3 _, |4 N
    <tr height="32">
    1 k# R5 v+ p; k& w1 y<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
    / A7 Z; ^1 q" N7 n& I* K</tr> : i# ^2 y: d( d9 i0 @6 c' L; i! A5 Y
    <tr height="32">
    * [2 ]8 u0 u9 C& o4 ]( Y1 q1 l$ }<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> : v  r/ ~" M+ D  J
    </tr> 7 g( }1 E1 D! P4 g. W0 y, V
    <tr height="38">
    % w- Z+ L4 M! G' |, b  c<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> 0 e1 k: M# Q  L$ z# |
    </tr>
    ; K' z& z, k  L0 g* k; Q! w, l2 ?</table> / @9 P& a, h  r+ f4 N- p4 U
    </td></tr></table></center></div>
    ( u* \0 y4 j' j! Y% [  ^$ a</BODY> 2 ^- H) \, \0 j9 p
    <SCRIPT LANGUAGE=vbscript> 9 U4 |) m4 p0 H! O9 h+ ]
    Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver 2 k' w( e" n7 X# I( I
    Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
    8 s$ l: a1 F% _9 F) fredim 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)
    ; [1 h% [" S4 OLevlIni = 1
    , _7 g6 r3 @: u# p/ B9 }# tPausa = False # M% T, J& C! o: i
    HastIni = VelLevel(LevlIni) . S9 S! J- W  n
    Hast = HastIni ' N! q2 N: [7 C4 j. Q( T1 J
    Levl = LevlIni & c3 Z* {; B3 C6 ^0 T5 h3 B& [% H' S
    Pos = Levl - 1 7 k+ d; Q8 F: w% d$ X  G$ d0 l) a
    ColorForm
    $ g9 i; `! L* D2 \GOver = false 1 w, J3 T4 Z( `% E1 v
    function Iniciar(ind)
    ' ^, e; L% f& c0 m+ |if ind = "i" then 4 u! @2 N( V* ]% t( Z/ ]) @( c9 q
    score = 0
    9 Z$ P+ v3 Q& {: dGOver = false 0 f: Y* D( n) \+ s5 B* `' z8 {
    Hast = HastIni
    7 q! C3 J: m, c6 ]2 b9 GLevl = LevlIni # T# _. A3 ^2 L
    Pos = PosLevel(Levl) % s9 B. u- M  F/ J7 H+ N# D1 ]) m
    For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next 1 R1 P1 I" `4 k* }
    For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next 9 A& K; a! D$ v) C* x) H
    Timer1 = window.setInterval("Andar()",Hast)
    , E. p% \' K2 x% _8 }) M; cColorForm
    0 ~6 s" m# }/ S' K' UFig2 = 0
    0 X! u9 A; @) {4 J" oNyfig
    . `# u4 r  I% U  gelse   F( L1 S  Q, y/ Y
    window.clearInterval Timer1 ! G: j: h; q2 `7 g
    end if
    * D/ ^1 E6 K6 ]0 ?# u5 N# |end function 2 T5 ?; a) G7 T6 I0 A) {6 A
    Sub Nyfig() 5 w" @% t6 b) z& q0 t( l( C
    Pos = Pos + 1
    ! v. G/ p4 [# \/ r, Vdocument.all("In06").innertext = Pos
    9 k; A) O: a2 O4 Z2 [7 Z: }+ ESelect Case Pos 6 t  G: ~* J4 f" |5 v& m: L& k  M
    Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl 2 A. L% w- J6 e5 b. }
    Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl , N- q5 l$ r( G2 B( h/ L! Y& |
    Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 I0 M3 m& E& t% }' R. J9 \
    Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
    : S; ~( s# ]1 _Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 0 G. ]1 q$ F. q/ y" D
    Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
    ! F3 W/ e  O2 x; HCase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 4 a* z' w) q8 B/ D
    Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl % T1 N+ z2 ]4 a1 t: T% X
    Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
    # P6 j8 Z0 b, lCase 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl   S) [; _* o* E
    End Select   q+ g4 ?: d! N5 v# O
    window.clearInterval Timer1 $ h  Z' q9 n; Q1 n8 }+ d
    Timer1 = window.setInterval("Andar()",Hast) ' @# p0 U: g0 H8 C% Y# c/ ~
    Fig = Fig2 3 \5 J+ f3 y$ i0 f2 F1 z2 A
    Farg = Farg2
    : b$ d+ V& C! d0 vFig2 = Int(Rnd * 7) + 1
    % ]! @' r, K( K# f$ d8 g. t8 |7 Q. |X = 4 6 y- S; `1 Z) D! C  F
    Y = 26
    , S0 C/ B8 U* J" p) @Rot = 1 , S; h" {' C! s
    For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
    1 [, v% T" ~% D* B  ?/ |, w! ?Select Case Fig2 9 i  l0 m) r7 z( [
    Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
      p* H  x1 C9 d. \9 H5 \$ R- ~) VCase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
      Z: ~  x( z- }! ^  `+ t' \7 LCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" 3 E" i  T2 Y6 H- r; L- B6 x3 ~
    Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
    * X- N1 b/ K- T4 ?( k! ~9 E( t. FCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" ' Z" k( O& N# ]7 O* G( B& V
    Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" 5 G5 [7 M( [* o+ \$ d( W
    Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
    - R: f3 ~1 t0 @+ Y2 LEnd Select
    - ^+ `, k! U! G0 w% BFor i = 1 To 4
    5 x# F7 U, W) R7 f$ f' H- ]For i2 = 1 To 3
    5 v- k. S; L3 \% l; Pdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" ) z: H) H, c5 E6 N; W3 M3 [. s
    If s2(i, i2) = True Then
    7 [9 A& F9 }$ T/ ]* |document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 + ^6 S* @4 Z/ x( a  G7 _
    End If
    / z8 Q- Z3 B# ]* o5 WNext 5 s7 b0 _  u$ j: Y6 r. M  B' i7 o
    Next
    + c0 T  m- b% ?$ Q' p; r: bEnd Sub 7 c% U6 F* _9 I2 s# e4 Q! B- ]
    Function PosLevel(Lev)   A# g, ?3 c2 S  L5 R& {
    Select Case Lev 3 G& r4 e4 |2 z% d3 o1 {/ p- j
    Case 1: PosLevel = 1
    ! Y' d: E! O: w* s4 vCase 2: PosLevel = 51
    ( g6 A- K  Q1 t# q0 p1 pCase 3: PosLevel = 81
    4 h) X& I7 b& n1 FCase 4: PosLevel = 111
    6 a9 _* @8 S) ~6 w6 x* ZCase 5: PosLevel = 141
    6 }4 m% e, U9 `* _" l; pCase 6: PosLevel = 181
    % k+ q4 Y  Z% F6 x; e0 c1 |Case 7: PosLevel = 221
    7 @! d, w( U  [  D9 ?# x/ q7 DCase 8: PosLevel = 261
    % O( }/ c5 s3 ^6 P& KCase 9: PosLevel = 301
    % }) |' R( V- ?; w6 H* MCase 10: PosLevel = 341
    : |$ C, z: V; h+ s# XEnd Select
    ) E" _: V4 ~# [1 nEnd Function
    7 k# _0 M$ |1 v  X; B“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 4 }9 M4 ^+ m7 G9 B1 a6 ~  f
    Function VelLevel(Velo)
      n$ s+ E6 ]3 K, H  N: d# S! KSelect Case Velo
    & G* O' ~0 g0 s1 _( v9 ~% j& jCase 1: VelLevel = 500
      T7 q$ E  L4 _; W3 _1 w) QCase 2: VelLevel = 450
    , |0 K: y: z6 C* ?Case 3: VelLevel = 400
    , o4 m% \' b7 ^! y! W" S' N, ^Case 4: VelLevel = 350 6 [' L+ W  _4 m$ y3 b9 `' M
    Case 5: VelLevel = 300 3 q9 Y5 P/ p4 R0 f3 j) ~- w# z
    Case 6: VelLevel = 250
    4 \/ P- @; y) F2 K; ^# Q% LCase 7: VelLevel = 200
    ) h( H- C; e+ M. d1 X* fCase 8: VelLevel = 150 ) Y, o) w, ]$ l2 U! ?7 w# f3 S
    Case 9: VelLevel = 100 " d# @6 m+ ?% \
    Case 10: VelLevel = 50
    3 b' p* V5 h' s4 A. ^Case 11: VelLevel = 10
    5 o3 I8 p5 Z' {6 l" _* DEnd Select # a( {1 L1 g- a) I7 P  K4 G
    End Function
    - I0 r. t  P/ D6 O9 c9 L( ?" _2 KSub ColorForm()
    0 _$ w6 I! @0 i8 l( a9 y' C/ MFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next . e* }% Q% g" t" f+ T
    For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next ( h$ v' ]0 b# t7 ~5 V) A
    End Sub 9 W; X  ^! @$ U: y, o8 t
    function Andar() . X; g1 U# [8 C: [" S
    For i = 1 To 4 - w0 J8 t7 A7 T- D9 S9 B4 u# F
    For i2 = 1 To 4 # P; M, e- q5 Y6 F
    If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
    - }/ Z6 E) O$ V2 NIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then % G; h% l- G, n; F6 D4 m
    If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
    ; x9 ?3 a5 _6 s, i; U+ h- GEnd If
    , n! l) ]7 r" y( S3 zNext
    ! C* E! C  I5 M% D8 CNext
    1 M  d6 q* |8 s" \If Fig = 0 Then 5 n8 ?3 P& U% f  B0 \. ?
    For i = 1 To 4 ) R( ~, W( T8 I
    For i2 = 1 To 4 9 z! H1 D! N+ r# s
    If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True 5 ~1 B3 r: z( w/ H; J, q: F" X& U5 U
    Next
    ! S3 i9 H+ ]+ n6 z1 uNext
    , h4 N8 V6 f- [! n- fNer 6 b/ p4 s: a& e  O. y# }" X5 \
    Nyfig
    7 h! h/ O* D1 |9 d  s! L2 K, ^' uElse 1 W+ }5 j7 r% d, ]: o1 S
    For i = 1 To 4
    + s3 v6 Y& B" |, A+ ]% _- I/ d& hFor i2 = 1 To 4 + X( E# U+ {/ y* n6 W
    If s(i, i2) = True And s(i, i2 - 1) = False Then
    2 q! K  d( w; ]/ K) S5 y  X4 @document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
    6 _1 u/ H% a. p7 x# g! ^2 qEnd If
    , O; c1 S; K; ^' I, J2 y: hNext 8 l! {, j; ^* A' y' `9 W/ t2 s
    Next " _9 z! h/ T) b- d8 _5 a, _
    End If
    * ~' P$ k6 A2 s: M4 h9 G: sY = Y - 1
    ) o$ h$ H4 u3 C5 xFor i = 1 To 4 9 I% z' [: K$ o: {% C. r% {4 s/ R
    For i2 = 1 To 4
    ; q9 u* L* E6 m1 ?, JIf s(i, i2) = True Then
    4 \, Y4 y, H: Q8 r+ }1 |( d. Yif not gover = true then * X" r9 _" `- v+ }5 \
    If 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 6 w1 a# R4 }$ A
    Gameover 3 s2 Q- S: v; h
    end if & s) d+ X: h6 z  l+ M) w
    end if
    4 ]6 |2 U. d* M! v9 G5 k# j8 QEnd If
    ; e1 K1 S% T7 U! r, YIf s(i, i2) = True Then # W5 n9 B/ ^" B+ n& c
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg # {8 k7 w1 ]9 M3 J5 j/ Q1 c* P
    End If
    % c- L/ }% c& ]: C5 M  L- Q4 M: INext 7 e  w1 X( o) s( ^# p& E, T
    Next . N2 n7 C! W; E$ }% r2 i7 A
    end function - \' s; q8 w% ?8 z
    Sub Gameover()   V1 n+ G# v5 Q, |* d1 S9 N  g
    MsgBox "游戏结束！", , "俄罗斯方块" $ S4 p- m' m# Z7 k# t( ^  K0 S( g$ q
    window.clearInterval Timer1
    * L- `+ G2 ~( `/ qGOver = true . O2 U; p9 i  z7 U( ~
    End Sub
    3 d0 P! u5 {" Z7 vSub Ner()
    % o$ z6 E& l; {& \& V* N% g9 jScore = Score + 10 2 e6 V: T4 w/ e$ N0 I- l5 c
    document.all("Sco02").innertext = Score ' i7 L) G7 y6 T8 t
    For i2 = 25 To 1 Step -1
    , r5 X7 M3 L5 T% J% G. ]ok = 1 & b, N+ l8 z0 @- ?: Y) G# K5 P
    For i = 1 To 10
    % Q. A: e! |% FIf n(i, i2) = False Then ok = 0
    9 u8 {. n! U" e0 A* |Next
    2 d8 [! G6 v6 }6 i% aIf ok = 1 Then
    . `* l3 S8 a0 B, j( MScore = Score + 150
    , m# u, r1 e9 l+ |+ J5 U( w7 b' Sdocument.all("Sco02").innertext = Score   o, N( A0 i+ A% R  X* S
    For i = 1 To 10
    3 C  I0 S/ y: Q, `! k! vFor i3 = i2 To 24 - s8 Q- i' }2 J
    n(i, i3) = n(i, i3 + 1) 4 p) A, ~7 K  Y5 a# r/ O
    document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor + _9 m% y% M( D! ~
    Next + ~( `7 O- |' d5 ^
    Next ( ?3 y7 H5 ?5 {% d& u# p/ E$ e$ g& _* g
    End If
    8 T4 K1 b5 M. A  V& ~9 b5 TNext
    - B7 h' ?% K5 R) E6 i1 C# TEnd Sub : @1 v4 t+ w8 y/ b+ D0 E7 s
    Function coor(xx, yy)
    ) g* `  d! W. w. t& U( kcoor = (yy - 1) * 10 + xx - 1
    : s7 b# ]# z/ yEnd Function 8 z. z( _' _3 @" M
    Sub Rota()
    6 E5 j( ^. L7 H/ eRot2 = Rot + 1 - S( ?( G5 G& T0 ?
    If Rot2 = 5 Then Rot2 = 1 * ?; i5 T. Z# E
    If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 $ W9 j" P, a% y1 h- E( Y
    For i = 1 To 4 ( F9 R" z8 m" v' C; X9 ~. _: k6 s
    For i2 = 1 To 4 ; E+ F0 b( \; ^' P. s( _
    s3(i, i2) = 0 5 ]9 ^% g% _" p: e) R
    Next
    ( k) {4 ?8 s6 f! i: T: u) eNext
    ! l5 o. e8 N+ \  J, wSelect Case Fig
    / d0 a) G) n" x  ^) ]Case 2
    , ]+ U8 {9 x8 F, C  S( pSelect Case Rot2
    + o- E( D8 W7 Q0 Q- v- U/ uCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
    ! P2 b) Z" _1 ]& |2 [1 z$ OCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
      ?9 ?5 Q$ c9 `3 s* ]3 UEnd Select # E4 m; `" {$ p. m
    Case 3
    7 Q* s+ ^6 l' d4 W8 WSelect Case Rot2 8 C1 n! @5 h( u
    Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
    ! I! R, n! I0 x0 A6 g' LCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
    " i* `1 A4 ~5 `+ J* OCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 7 a9 ]0 e3 g4 f3 B0 z
    Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
    : r: S: v: L/ K" }, LEnd Select ( k- p4 |! Q$ m: d9 W
    Case 4 " B9 d0 p( u* u& u+ N; J7 r  J4 X
    Select Case Rot2 * O, U: B4 S( m$ M* F
    Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
    . \, G6 y7 d7 Y5 g# ECase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
    : N0 L' o* ?, J2 M" h" p) UCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True % P0 K9 l' H) {) G
    Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
      k. n; t" a' i' UEnd Select
      m- u2 Z& u/ N, _1 M- J; oCase 5
    ( r7 h3 r' S3 hSelect Case Rot2 . C$ ?3 T0 P% `
    Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True ' ]  _1 A3 j  a) _: ^
    Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True % F! s% p3 e# D3 {
    Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True 9 s, U  A' `/ W, A* G  _/ R+ P2 C' ?: w
    Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
    , {( N5 [% P& S; K, E8 x$ qEnd Select ) R5 c* l! ^/ k4 h
    Case 6
    * r! R; a% n$ W/ k$ v2 ISelect Case Rot2
    $ X, y$ F; `7 \0 ?' G, j3 [Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True ! g; U# ^# `: v5 u9 Y% J
    Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True / |3 ]  U9 j, n- T* ^5 C$ O
    End Select 8 p5 P1 M7 R& A. |
    Case 7 ' Y6 z! l* _! I! Z
    Select Case Rot2
    ( A$ E8 @% p1 dCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
    ; F% F, }8 P. A$ A3 z& oCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 9 D6 C+ L3 q6 J3 g# z' G5 z
    End Select 9 y7 {; Z- ?9 n' L! J; G
    End Select ) r2 Y1 m$ s, T. i# n
    ok = 1
    ! r. ?" ?( z. X% }1 Z, q" UFor i = 1 To 4 " R! F3 |4 j8 M
    For i2 = 1 To 4 3 T! w! I) G8 c- I' _1 _
    If s3(i, i2) = True Then   B1 w! D3 }5 o7 W6 W
    If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
    8 k6 ~  \8 I( GIf ok = 1 Then
    + n: B9 S0 C# ?7 e5 u: o* {- t# t/ oIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0 : [+ m6 d  P/ i4 e4 g: L
    End If
    + t! L& u6 `$ wEnd If
      a/ F( s4 T- W9 Y( RNext
    % ~3 d  R6 n/ n/ W6 T" ^2 zNext 0 r; @* H: E; R# `3 y7 d0 L
    If ok = 0 Then Exit Sub
    % ?  @3 [- r6 j5 q- V; ~Rot = Rot2 % [- ^* u& O5 _1 b
    For i = 1 To 4 0 T; x+ L6 A" ]; O9 S
    For i2 = 1 To 4 / ]5 g* ?2 E6 I( H: X* j3 T1 h/ V" [
    If s3(i, i2) = True And s(i, i2) = False Then
    $ E) N. q" z5 f" b9 d9 `" _document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 7 S" j. M1 d6 P: Y
    End If
      M" }/ g- C  M/ W$ pIf s3(i, i2) = False And s(i, i2) = True Then % n! S: E& q% k4 y% u6 i
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" . c: Z: K/ D2 k6 U3 l# b
    End If 1 n6 c( i& s9 y; f
    s(i, i2) = s3(i, i2)
    8 G- }6 u8 q" ?4 t, u2 FNext
    7 a+ ^% B9 s% C7 U6 c3 P/ H' _/ d0 SNext 7 m; g3 f+ `2 \0 m
    End Sub 1 r+ g& s: O1 w% |# D3 E; t9 v
    Sub document_onkeydown
    7 Y! F9 U* T/ }" wIf window.event.keyCode = 27 Then msgbox "Pause",,"TET" % `" M: |9 W+ r7 p4 Q3 j
    If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
    , U$ c( s) \4 M# _- w; w' c2 UIf window.event.keyCode = 113 Then iniciar("i")
      R# _7 W+ [# v( \- MIf Not Pausa = True Then
    # X, {' o# K  b6 [* R  H& q& h: AIf window.event.keyCode = 38 And Fig > 1 Then Rota   n! _2 e% ~" |: o3 M  C2 G7 e% m" r
    If window.event.keyCode = 37 Then / a5 i6 c+ B$ Q( n+ {
    ok = 1 4 W4 V! S3 Y4 ^5 p0 B$ P
    For i = 1 To 4
    0 |, k" r7 A( }  F+ v. Q5 WFor i2 = 1 To 4
    6 \$ D, M$ C- m. E1 W6 e. gIf s(i, i2) = True And X + i - 1 - 1 > 0 Then
    ' e6 ?' ~2 U# n' z" KIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 % ~; `# d- }8 y1 n
    End If " _9 s2 a5 S+ g5 r+ z
    If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
    ; U! E$ F( T2 \Next + s1 Q% P( h8 _; s9 B' D$ W5 _
    Next : U( R; C8 Y5 c9 e' r
    If ok = 1 Then . A: I. d: ?' `/ w6 R/ D1 r# A
    X = X - 1 7 y* a% ~2 z4 P
    For i = 1 To 4 7 V5 \1 f1 B) ~/ R
    For i2 = 1 To 4
    6 k2 M0 ^4 [9 E9 t8 vIf s(i, i2) = True Then ) N* l) Q) |8 e  r$ l/ {9 f+ p
    If s(i + 1, i2) = False Then
    0 ]# M, w# |, Rdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
    2 D  G) N( s; y- e" f; D/ J! S! S3 |. xEnd If ) R" t; M3 W: x* `' {/ A
    End If
      C, Z. O9 y8 l, O: f& r+ ]1 Z7 aIf s(i, i2) = True Then 7 U5 B# W$ J# X8 J2 n( O7 l; I6 A3 u$ T
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    ! b, ?! v3 T% ?" p, PEnd If
    - u4 P- d5 y& q- }+ v: ENext . X6 R: W& F0 e
    Next
    2 d5 q" y& \, r9 SEnd If
    9 _9 H! Q) T; ^+ j  G# YEnd If
    - O/ V8 d! U4 k' T, ]3 Y1 a) b! UIf window.event.keyCode = 39 Then ' H+ j. J7 e4 G- G' a' O9 ?
    ok = 1 5 w6 W- q+ v! ~/ ^: Z
    For i = 1 To 4
    6 F% f; H7 \) z" gFor i2 = 1 To 4 & j" o% T% [4 T5 R. Z# p( D
    If s(i, i2) = True And X + i - 1 + 1 < 11 Then 8 f$ _+ n( v/ P1 C  b3 N6 t
    If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 4 Q; j) Y0 y  z5 P* T" M
    End If
    - }; f) d2 ]: {If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 . z1 K" Z' u3 E
    Next
      d. m& y0 w' b. wNext
    : H1 z+ Z& W1 ]1 W; p8 BIf ok = 1 Then 7 {5 r( ^8 n9 L2 f* b; |
    X = X + 1 : ?* [9 t1 o4 S& M% q# Q
    For i = 1 To 4 & A2 W; K7 v2 W/ Y* @
    For i2 = 1 To 4
    9 L# u* g3 Q, p6 c% o9 @1 F$ HIf s(i, i2) = True Then
    ) u& Q! f5 z; j/ C/ B# k+ E. T7 WIf s(i - 1, i2) = False Then   t% w7 R; L- a
    document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
    8 P" ^" a/ A9 C8 O* Z3 mEnd If # T, Z; H% J, q$ z  A
    End If $ `  E, Y4 c' B7 x6 m' K
    If s(i, i2) = True Then . r  R7 b* A. F  T7 w
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 1 P% ~9 L$ U$ D+ t
    End If : J2 s- Q$ i. \. _" c3 \" x+ L- D
    Next 2 g% g9 ]) u  x/ `& v
    Next / _& G  t$ m$ U
    End If , [/ T3 a, i* t5 {% |
    End If
    $ _) q0 _2 ~4 n' s' H% F' U“Aqui
    . i8 v; Y7 d+ t% I; O; A7 ~! P( DIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then
    4 e) X- C" }/ F# n  C- j) GIf Fig > 0 Then
    4 B5 F' e* Q' i5 |1 RFor i = 1 To 4 . x* o1 o4 V# n8 p3 j
    For i2 = 1 To 4
    . e8 E) M( o' a7 vIf s(i, i2) = True Then
    / m% b1 R/ i5 \6 kdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" ' ?$ X5 `$ {3 C- W. `
    End If , _9 M( ^! Y1 }' s
    Next
    & O5 n! e* ?7 @( c8 p  DNext
    ! I; }3 P9 F1 X, _6 n/ Z' Y- t; d; tDo 1 G2 p! P* }8 b, k" h- H3 L7 p
    Y = Y - 1 0 S. Y  E( G! R$ R4 }0 e2 B
    For i = 1 To 4
    & r6 A0 H5 O) Z) H0 K1 E5 g! eFor i2 = 1 To 4
    . Y  D4 Q+ {$ bIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 ! G1 c% p% E" V$ I
    If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
    ( l) U% o, d- s0 o% tIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 5 x" e" I6 S2 M+ m' r/ R
    End If
    5 [# Z0 b9 H& O3 KNext ; b4 }1 ~$ `4 ~+ {9 t' {
    Next
    & B( {0 N# n( ]  _% R) [- B7 sLoop Until Fig = 0 $ ~, C6 W5 L; c" r' b( r
    For i = 1 To 4 / r2 D- ?% W) C5 i
    For i2 = 1 To 4 1 w  z  H- j& ~5 B8 X
    If s(i, i2) = True Then
    5 L% U$ b; ?6 L' Y0 k; ]4 Edocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    % i7 a& U! j3 D8 yEnd If
    ' D2 |4 m9 T% U3 {, g: rIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
    3 v& g( U/ v1 q! H8 mNext
    + ?" _: P$ N$ d8 rNext ( _) w# W# H) ?9 C* v
    End If : q& W5 k! V, K5 [
    End If
    * t. v3 i+ }2 ]% @5 uEnd If - S& p7 S9 p' n& G$ m
    End Sub
    ' K' r" [0 z! m% p$ L! Tfunction Mmove(Index)
    # i( k; K( Y9 O" J/ nif index = "I" then 8 g2 f5 H; `3 T/ h# n
    document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
    8 T: i/ x# j3 u7 M. ]8 B/ z3 ?; Q& Sdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
    % L4 C+ S4 a; K3 a* p. gelse
    - H$ D7 u* `5 U7 G: w& M2 m1 S7 Cdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
    % ?6 A# J0 T) i  m  Odocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
    7 n' w+ S6 v! v/ a! M$ qend if
    ( F! W9 \8 d# d2 v/ r* @end function
    0 w5 N; f' T. \% U</script> 2 c% a7 q8 P( W# @- m/ `
    </HTML> + y) ~# j8 ]6 a* [3 a1 J6 F
    <%End If%>  
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏 分享分享 顶顶 踩踩 转发到微博
    回复

    使用道具 举报

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

    • 签到天数: 2 天

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

    使用道具 举报

    返回列表 发新帖

    本版积分规则

    关闭

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

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