下沙论坛

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

用新浪微博连接

一步搞定

QQ登录

QQ登录

下沙大学生网QQ群8(千人群)
群号:6490324 ,验证:下沙大学生网。
用手机发布本地信息严禁群发,各种宣传贴请发表在下沙信息版块有问必答,欢迎提问 提升会员等级,助你宣传
新会员必读 大学生的论坛下沙新生必读下沙币获得方法及使用
查看: 2232|回复: 1
打印 上一主题 下一主题

用ASP编写俄罗斯方块游戏

[复制链接]
  • TA的每日心情
    开心
    2014-7-28 21:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    跳转到指定楼层
    1
    发表于 2009-4-17 08:55:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    以下为引用的内容:
    0 f2 R/ u0 V; m7 T: O/ U1 Y6 w
    <%If Not Request.QueryString("Ven") = "T" then%>
    8 ?4 D; g; a/ J4 f9 g<HTML> . y9 M  K# P- u  ~
    <HEAD> ' R3 I  R3 X) E+ s$ r( X/ \7 B
    <META NAME="GENERATOR" C>
    & v# r2 p! R, t" W+ W3 i<TITLE></TITLE> 6 k" Q9 F" v& ~2 l* A% g8 L* p4 M
    </HEAD>
    % _# W4 H, w& h" R6 Q<SCRIPT LANGUAGE=vbscript> 4 }7 i! X/ R/ o% A$ X
    function Redir() & {' l1 c9 f# N' p8 @
    window.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 m7 _! K% V% Y/ r! j8 I. G/ ^
    window.history.back(-1) ' L: M# x: t6 n" Y5 A8 Q
    End function
    , t" v8 }/ L9 I9 ~0 B3 n: {2 E</SCRIPT> $ Z( z6 ~! w# E( t3 @  w6 W* q
    <BODY onload=Redir()> + o+ r: }# m$ x1 s' ~
    </BODY>
    5 q0 h7 e7 L6 f: D* ~4 l</HTML> ! n1 [/ u, I, B! z
    <%else%>
    2 ]" B% M. e; }<HTML> 5 x. e+ x1 g1 Q1 \. q
    <HEAD>
    4 n0 ]2 L. Z$ f/ d9 n7 _& ]<META NAME="GENERATOR" C> , E- x* @+ k( v, `: \4 d
    <TITLE>**VBScript俄罗斯方块游戏**</TITLE> + P+ T& w5 o! y& V9 F: k6 P
    <Style Type="text/css"> ; K8 t/ D: z8 d2 w  `6 H7 e4 Z8 t
    <!--
    ( v; @  C& W& Q- a$ X6 }.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} , \  q& n: A/ h8 I
    .normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
    % M  u3 U+ r4 m2 ]! y+ T! U0 T.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
    4 l: C8 r% @5 E; `8 k.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
    + z- E' U* h0 C# g& a4 `.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} - c& c4 s# p) {6 y& m7 o0 V9 n/ e0 f+ N
    .normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} 9 L3 x; b. l$ j" \
    .normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
    % {0 N0 f6 ^0 \3 O9 u/ @' G: e--> ( \% r4 ]& x& \7 c( P! F7 \
    </Style> - Y' c! A4 t& k9 Z* G
    </HEAD> 3 d# \+ N* e" U1 k+ F! w: P2 I
    <BODY topmargin=2 leftmargin=2>
    ! O* Y2 f3 O' s$ I. D- C( M- Y<div align="center">
      {6 z* v: w5 O5 A<center> ) v: r/ h$ w$ ~% J4 g, T
    <table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
    / _% b9 S% G* v5 ^' U<center>
    7 ^6 C4 Y, [+ x- {4 }8 [0 |& {" B<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
    , w) {$ o8 u+ {4 Q$ Y6 W5 ?<tr height="18">
    8 V5 h; {# N/ [* v<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> 7 G  z/ {+ }4 y; [% b
    <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>
    0 p* i" K* j: M- m</tr> 2 L! m9 r& E" H) M! C" g  a' X
    <tr height="18"> 5 g( w, }  G- {1 ^7 B' 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>
    - y2 z; e5 x& q, f<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> : ]* }4 C% e- a" K2 |! G- u
    </tr> . u. s  R" m2 }9 v7 L$ h
    <tr height="18">
    ( s* r! D6 f. l/ y4 Z4 F<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>
    ' c5 t( n. [! D1 [0 D<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>
    ; T* }  {: `. U1 |3 d2 L" `</tr> 8 w, I8 i3 j2 a* }3 _' p  H3 y1 S
    <tr height="18"> + C( I* c- R6 f& e$ U4 b
    <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> ' I; p7 p* C. y
    <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>
    + {( z" `/ f+ d3 e: o& Y# U* }' P</tr>
    ) J7 l3 v  |6 `! R. g0 X. h<tr height="18"> % t* N# p. P1 W
    <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>
    , r( w1 ?& k1 S: I* V7 Q* @<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> 8 o2 _$ |! _/ \' e9 r) a
    </tr>
    ' ]! o5 j$ k" g% r8 M2 e<tr height="18"> ) Z* w  j2 `4 f$ ~: y. f$ {
    <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> , k- N8 T3 s( Z
    <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>
    & M/ N% ?1 \: t/ h1 i/ s</tr> , e7 n  ]9 F3 \4 H- J3 S
    <tr height="18">   R1 ?  ?" g! U
    <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>
    3 T4 u4 c4 j$ W9 z7 f( \<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>
    & T1 z) z6 t% m- W; w* n+ @</tr>
    ; N8 E* [$ t9 W<tr height="18">
    & f! i/ a$ n5 J0 V0 C3 s<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> 2 g, H' A, j: k8 r  u, s1 R3 D
    <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> . @" i3 \, Y. T; s# h, m# y
    </tr>
    : [4 K9 z: v7 `  z4 @7 S<tr height="18">
    1 Y& n* m9 H$ S- _; G1 e& x' `<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> 0 z; C( P3 B7 ^/ a
    <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> / a% Z" _( A4 k( N) H2 u
    </tr>
    ) F/ G4 U8 R, Y. ?9 b+ u- [<tr height="18">
    % R8 n# a7 l6 ~6 d5 M<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>   p7 W$ f) U3 C$ ~
    <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>
    ! ^/ O" |& b2 m. f3 F9 \4 \</tr> ,
    ( d3 v4 }0 @7 V2 k' N8 L  f<tr height="18"> / k: a# D% h+ Q$ i
    <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> 8 n4 O* ]6 P; n" j5 ^4 |
    <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>
    ; I3 P5 K4 A) r1 Q</tr> 9 O, k! u7 C. Y
    <tr height="18">
    6 r0 `: `5 O! V' o- I: a* m4 @+ c<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> 9 k/ E8 O. g9 w- g
    <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> ; v( y7 X' Q9 t$ z1 M& Z' [! A5 |
    </tr> ! }; M# H7 O9 H8 n  E
    <tr height="18">
    7 u4 B. o; ?7 `" q<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> 1 }3 v! c0 l% l1 h# i6 C) {
    <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>
      f' ]1 ~# a4 E6 @</tr> 5 e/ _$ S/ z5 d& g. A1 g" a' i* }$ ?
    <tr height="18">
    ( D9 V2 e2 m* `; y" 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> - t* s' I( `/ k4 [' X4 u
    <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> 6 k  m/ O. P3 R4 `4 E% j
    </tr>
    0 G- I3 R* ~7 u; W! k6 v1 p5 F& a<tr height="18">
    ) J& J! C0 s* E: j, q$ f1 b<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> # l- f9 ^: w  Z  F
    <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>
    / h+ T' V& {- U0 R" g</tr> 5 _, X0 ^$ l% a0 {9 [
    <tr height="18">
    # `, X% Y: e" L<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>
    . A& L4 i2 F& d' U1 G3 K# e# L<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> , M- ^: l, i3 H, L2 I& h4 C
    </tr> ) T+ _* H$ o# A& ~& L9 ?
    <tr height="18">
    , a0 j/ W% r2 x2 L+ v0 W<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>
    ( C* }: a! t! f  j7 T<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>
    : k/ X0 C0 S5 d: p8 Z7 G</tr> 1 \) h# j5 a% \: [1 Q  _
    <tr height="18"> 8 _% R/ R- x! ?1 w' L8 o  s& [
    <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>
    * z! A6 Q4 D: W/ [, R9 B- E<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> , X( S2 k  ^) M* c% L6 Q2 f& l
    </tr>
    ! P2 Y" z$ ]. s4 x- s) {" I<tr height="18"> # H$ a: U; I& |5 @! G2 K
    <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>
    3 g* ]9 W* X9 p  E7 x1 a) e<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> 3 m  E) V0 \9 B( V0 p3 }6 G( }
    </tr>
    4 m* O* h( T; Y1 j4 G. d<tr height="18">
    . h6 Q6 M: ~! {) R/ l# k6 j<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> * f. F7 ?) ^$ ]. {" G7 t. _/ O5 R$ M
    <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> , n; A: N3 k  e1 `6 O2 |
    </tr> 1 R& A  ?1 U/ v0 l+ H: ^8 B6 e( `
    <tr height="18">
    ; t% }! F% ]/ j<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> / U% E: y) o$ J7 R: M' ]
    <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>
      f& n( T  r: d; U! z</tr> $ l  e* h3 T7 t* L- Z
    <tr height="18">
    $ U$ K& v/ j7 b* @2 e<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> " z/ j, }; Q% o6 ~; H, w. {$ S
    <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>
    9 O8 L$ G# r, f; Y</tr>
    4 T4 J& f, V9 Z* E<tr height="18"> 2 o! p2 I0 X3 L; [, `7 x3 i! S
    <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>
    & W3 ^& e6 l, F  ^" L<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> - d; [: H) s  u* x: l
    </tr> 0 s: M3 y+ e, ]6 d
    <tr height="18"> - i% f. E0 @& t* 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> 5 R( w  j8 D* Y+ h% d9 h
    <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>
    . R* K( d( L( W' g" ^  ?</tr> . m4 ]% W# A0 v6 b- g
    <tr height="18">
    3 ^: B$ ]# g4 s9 S4 M: t<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>
    . |" }6 G0 e, c6 W* }  w! I<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>
    . |# Z# I6 ?; M" S8 ^</tr> , i/ Z4 I- H" y9 F& B6 J: L
    </table>
    : s! _5 H. ^) g% R</center> * W; E/ N; X' S" @. Q2 {+ P4 c
    </td>
    + i/ B0 V4 m# m' U<td width="100"> + P  _2 J* X% V! G0 M) }4 U
    <table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
    % E+ T! n* H. v9 f' K2 ^<tr height="30">
    # h) R0 ~. |4 S$ o4 d<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 8 {0 u: H3 M1 Q/ P& d+ U. i* j- r1 O  j
    </tr>
    2 `' G0 ^0 Q2 t' z* o! w% j! G* f9 J<tr height="20"> 3 V, S% _2 B7 a0 o
    <td class=normalD align=center bgcolor="#FFCC00">提示区</td>
    8 C: p% ?! k( i, X1 {! j</tr>
    5 u$ \- U) o* U7 A, D<tr height="100">
    ) ]; y: ~5 i2 O<td bgcolor="#FFCC00">
    * r( S* x" S3 V7 M! D9 S<!-- Inicio Preview --> ; ^0 {  I. d- D1 z. O% E
    <div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
    $ _6 K, e& T* T. Q) F8 R% W0 F<tr height="18">
    3 C) o- Q7 X. s, w/ |6 e<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
    - h, U% \, d8 S2 r0 }/ q</tr> + l4 x- v  c& {4 b) C8 M
    <tr height="18">
    ) L( x5 E) z; H$ a5 `, e5 i% A5 y<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
    ( X4 ~4 S2 }" }: S. Z6 G</tr> 9 e: m: ~8 r) \! p7 W' B
    <tr height="18">
    # f. _7 ]: q4 J; _& y<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> , R9 H$ V: s9 s- _; X2 ^
    </tr>
    $ ~( L( C: T/ k, B7 J</table></center></div>
    8 m7 ^( m5 U+ W) r7 g- L( j<!-- Fin Preview --> ) ?2 X  T/ n) ], l4 p
    </td> 5 {/ }: ?5 c& f
    </tr> ; O" C5 b( b+ ~
    <tr height="32"> , |; }: H5 X3 j- K6 G; p/ l
    <td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> & m4 O5 I+ \  P4 ]
    </tr>
    $ ~% H) _8 I+ Q0 p0 ]# b<tr height="32"> $ j- q( D9 v0 l) u
    <td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> ( j) F  Q; [* [, X
    </tr> ! D6 G' l2 n# m& ~
    <tr height="32"> 6 f$ L: P* b$ ~' q0 U" p" k7 d! Q$ ^. G
    <td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> $ {; d& {9 p, Z0 ^* d' s; z7 T
    </tr>
    . ?' N* J. v. r<tr height="32">
    & I% Z7 \, P; }! t3 h% x6 N6 \' U<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 0 T! B* p! n  x% D
    </tr> 7 S  q' G6 D: a1 m6 {1 d3 h4 W
    <tr height="32">
    ) J$ n; c$ b! @<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> + x' Q& M) j3 S6 A0 ?
    </tr> : u; R8 p1 @5 ?) R6 p
    <tr height="32">
    8 c, x1 i3 ?, L0 l! H+ G<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ) {1 O7 k, J5 W
    </tr>
    ' ]4 b% h: H) e! }8 |  E<tr height="32"> . R4 C) y# y9 f5 f' M# V# E
    <td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> 2 r9 D/ _. a( e! P
    </tr>
    2 M9 e% }9 x$ C! J4 a<tr height="32"> ; S& A$ b" X6 n% H
    <td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>   \- T4 y, |' ]. ~0 D, o- Q
    </tr> - ]2 J( _/ _0 D: H/ j& D* j9 R3 p, b
    <tr height="38"> & n$ E2 a; ?( b8 m6 H- v
    <td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
    ! D5 h5 q1 [* Z' y7 i1 E# ]+ z* k</tr> : Z- \/ L* j1 V3 P% Q! r' G
    </table>
    ) h5 ^  w$ G7 s$ i- y8 w</td></tr></table></center></div>
    / x. Y0 ~  p, M" _2 o* m0 `9 F</BODY>
    + {$ D5 y0 g# L/ m& b6 ^<SCRIPT LANGUAGE=vbscript> % l- |( o$ s' S1 B  v+ i5 Y- S* q+ b9 \
    Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver ) j( _! {4 Q6 s) r" Z# C8 h  m
    Dim hs(),sor(),hsant(),n(),s(),s2(),s3() 6 u4 f; k& J" ?6 z- ?2 p8 @- U
    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) 7 R: |* M/ H1 T& G" d+ e( I
    LevlIni = 1 2 k2 }. l: y3 ^
    Pausa = False ; l9 J2 U# f# Y2 y. {
    HastIni = VelLevel(LevlIni)
    + Q% h# d3 W6 eHast = HastIni * I+ V6 z7 _7 B3 i1 g
    Levl = LevlIni ) T' r$ D; a: h. W
    Pos = Levl - 1
    , N% y0 Y0 R* i# Q3 o; o8 x* I" T& ~ColorForm 4 z0 O# `3 w1 m8 {7 O% X$ o) W. T5 j
    GOver = false
    6 D5 Z6 z5 }! x- V, rfunction Iniciar(ind)
    1 D: m) z7 C: o# z" ?if ind = "i" then - G3 b& F, l. F& y
    score = 0
    * @! c6 ?8 c" y, K; U( |* v$ O3 YGOver = false * b- L3 {" ]+ x* {3 Q* e4 _: j
    Hast = HastIni
    4 k0 T& S8 u4 C# o! iLevl = LevlIni
      a+ \7 M' Z: |- nPos = PosLevel(Levl)
    / Q( ]5 ~' a5 ]' `$ GFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next 7 T7 d2 f1 d: n0 t  D
    For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next ) p- {% N, U% r' M& j: Z' W
    Timer1 = window.setInterval("Andar()",Hast)
    ) Y& p4 G8 r, d1 aColorForm . t% s1 U( a* v' U* H
    Fig2 = 0
      N  ~& H/ v3 v3 N% z0 B6 X# `Nyfig
    1 [: y; ^1 y& [! |. C0 celse
    * V! m* ?0 C2 L) o$ pwindow.clearInterval Timer1 % \3 Q7 `0 _% O" C6 d- u
    end if 1 q' b6 u% D& v7 d; D( k
    end function
    3 [4 ~- P  e- zSub Nyfig()
    & W- R8 d5 h2 G& `3 x7 T1 YPos = Pos + 1 # R: ]# g( j( G3 P
    document.all("In06").innertext = Pos
    4 B9 j0 H5 C- F9 b" L( X+ rSelect Case Pos
    8 Y% ^  h6 e7 X7 l6 u0 j4 t, l, i: ]Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
    ! n+ [# ~9 c# N5 c; V) }/ ~4 ICase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
    ' J4 T# L2 I* l! d& \& PCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl / L% k8 A' O: i5 U, X. h; p
    Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 P$ l) |0 c/ J
    Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
    4 i! Y2 e. u5 V$ KCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl . _$ U# b/ P1 B
    Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 3 U5 i; P, }  }5 \! k. X* I
    Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl ' Q, R& a6 T0 t# X1 E, Z0 e4 m
    Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl 8 f" H  s; @' @: }5 r0 q6 z
    Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
    / v$ S# h1 Q1 L; K0 \! tEnd Select
    6 k5 u; G2 l1 jwindow.clearInterval Timer1 + q  K" A5 b! S6 c+ r: R( L0 \
    Timer1 = window.setInterval("Andar()",Hast) # j' l" ?) v4 C; b; q
    Fig = Fig2
    - j& l; a/ w7 H0 {Farg = Farg2
    % P+ T5 a9 s4 E& m& L! j" o9 XFig2 = Int(Rnd * 7) + 1 0 c! m. R& M- v* x' r8 M2 c) j6 L  T
    X = 4 5 B/ `/ x3 f" @( Z2 R1 {! A
    Y = 26
    0 Z3 s( t  r, l4 s& a4 ]4 D, IRot = 1
    5 W4 W' o" P" tFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
    0 e* E* r6 z- r' _) D3 nSelect Case Fig2
    - Q' V. W1 {( A2 _9 yCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" # j9 b1 K: x, n& }: Z
    Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
    ' O, |) o% E4 }& k+ lCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ! M% x( O$ }0 v( k( s
    Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
    & ^3 J2 m* c$ J6 p7 Z+ l8 PCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" 6 U) I; m# O( T3 R  e
    Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" ( t# E8 U9 v1 \, ]! M: `* \# {
    Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" + t( p) X; r5 {$ Y4 F9 u- V9 x
    End Select
    - l* m! K; s0 N1 v# b& x7 S0 P6 vFor i = 1 To 4 7 e+ t+ b( ?$ h# R, r5 f4 i+ p
    For i2 = 1 To 3   L5 Y1 [2 L0 Y
    document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" * a5 x" w  Y$ u* X1 n8 w$ ^4 X" U" K
    If s2(i, i2) = True Then + ?; C* i- P3 \7 M% u' E* X
    document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
    # U2 q3 T) r8 l4 W" b/ `5 dEnd If 3 g5 T. `% D( @# H2 H
    Next
    2 k# |4 w5 ?; O# oNext 2 O( x' X' |3 m- U4 b$ i; D
    End Sub
    5 D8 C4 x3 x: j1 p' |Function PosLevel(Lev)
    0 ~9 \  p3 m  T% Q! ~' fSelect Case Lev 4 P* L, n4 d. s3 c0 ]/ ~$ }: W" ]
    Case 1: PosLevel = 1 8 X8 e( O8 K( h2 `
    Case 2: PosLevel = 51 $ F) i: U# G: Z3 T( H4 |. p5 g- t
    Case 3: PosLevel = 81 6 R9 G4 A: A% X) \' S2 v& ~
    Case 4: PosLevel = 111
    " W9 ^) G8 B* L# y: j8 ACase 5: PosLevel = 141
    * c$ ]. t5 r7 b! v1 V  uCase 6: PosLevel = 181 / _  S/ D0 O" w% F: \
    Case 7: PosLevel = 221
    ) u3 Z. C. L3 H4 c( V/ cCase 8: PosLevel = 261 1 I3 E/ E6 G' V' h( W# C5 q# h! V
    Case 9: PosLevel = 301 ' {7 |4 |: _- @( B- Y
    Case 10: PosLevel = 341 2 F1 h  l) o6 v3 [5 A  M1 J+ Z  ^
    End Select
    % O" I% w2 j4 E) E7 ~9 qEnd Function 1 x& c$ @0 @' n1 X% K
    “いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
      J1 Y7 _2 J! H) U" RFunction VelLevel(Velo) & C, l+ I0 O# c
    Select Case Velo
    " k5 A5 D6 e) b& {, m2 u/ fCase 1: VelLevel = 500
    ! h& K6 X0 e3 Z1 A6 aCase 2: VelLevel = 450 * u5 r7 f- J, e" Z+ z0 c8 e/ I
    Case 3: VelLevel = 400
    % d$ e# o2 {* ~1 Y5 h9 YCase 4: VelLevel = 350 ) c0 s6 O" @- ?8 i
    Case 5: VelLevel = 300 # x) m- o& U  u' Z- E
    Case 6: VelLevel = 250
    , g, H- O/ h& n3 L; T  CCase 7: VelLevel = 200 ! B; K- p2 W/ V& _4 e
    Case 8: VelLevel = 150
    # b6 _1 i9 J1 s) X  j% pCase 9: VelLevel = 100 : d2 U" |# }3 B0 T/ E+ d
    Case 10: VelLevel = 50 7 F" O+ w$ P* ^- M% g$ Z6 a! @: Z
    Case 11: VelLevel = 10 3 `, ~) g7 S9 S& ~
    End Select ( I& ^3 e/ u& ?/ f) N
    End Function ' a: J. y% H' t( K: s
    Sub ColorForm() ! |% d- _4 q) M8 h
    For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next : W6 `4 Y( |! P6 ~8 s& G& n
    For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
    4 h$ F- ~) t4 C. ^  xEnd Sub
    7 @* T/ }6 {8 W0 Z' g$ S0 pfunction Andar() ! b4 y6 G* g1 q  c0 Q
    For i = 1 To 4
    ( Z# F' |: W6 y' U$ yFor i2 = 1 To 4
    5 U* T" n" `1 nIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
    ! L- {; T9 r  V9 q! UIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then . _7 E: G9 z9 V7 i- N" {/ }
    If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ' K' b* j2 e* Z
    End If
    ( x5 t8 V' H; ZNext
    2 Y/ d% U  |. u# o* E& K! T6 J9 wNext
    0 `4 Y9 u' b6 \5 |% F5 p6 z' Z$ JIf Fig = 0 Then
    ' W/ h0 E7 ~9 r4 G* N/ tFor i = 1 To 4
    - z- ?1 q% O8 L, E) k; q  oFor i2 = 1 To 4 + I7 v' e% g2 m5 H! N: {* D% E7 b
    If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True $ p7 ^* P  V3 |1 k
    Next # g0 v# u. T; J8 N  I
    Next ) I8 u' |. I* q! e  f! b
    Ner . p5 F2 b3 G6 I0 X: E+ P' E
    Nyfig
    $ E  S6 m  M& qElse
    3 q- W; z* w; h' f$ lFor i = 1 To 4 7 [9 U5 |3 e' ~# L6 G6 ~
    For i2 = 1 To 4
    4 q, N, O' r) \" l, g" k' [If s(i, i2) = True And s(i, i2 - 1) = False Then . O  P# V- f+ Q+ x9 r; d" E6 G# A
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" # t, f! h/ A. z" Y) l# I4 ^8 R9 P
    End If
    4 q# w8 t( S& k( oNext
      d/ K2 I: j. h. N( M5 N+ {- nNext
    4 B- A8 r* I7 Z1 |End If ' z9 B) B" i: Q- d  g# Q
    Y = Y - 1
    2 B* P+ k) o  nFor i = 1 To 4 , ~: l2 x  i) Q! h
    For i2 = 1 To 4
    5 Y/ Z- B7 |9 S0 i9 ~If s(i, i2) = True Then 1 K* `4 y$ j1 W8 s+ G
    if not gover = true then 3 N9 ~2 Q- V5 A) u- t
    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
    ' e+ E1 S1 D$ I% C3 z5 e; AGameover ' t( p, w- I! G
    end if - y) g. q; K) U( S  ^5 a" {: q( j3 j
    end if ) m$ c0 N( x$ s* `5 z; r
    End If
    ! a  I9 U8 n6 ]/ q- hIf s(i, i2) = True Then 2 T+ s. T5 _" \$ y; K7 h, b
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    5 ?/ o/ w5 `7 H! c9 oEnd If
    ' M# N8 K' a6 c* n* Y9 h' _9 a8 {! FNext & j- d7 p# @( u
    Next
    4 v; B1 ]) b1 x' |4 G' @0 Nend function
    ( J( E7 P. \% t" G* K5 D$ ]Sub Gameover()
    + ]3 U' q; |/ T. n' q$ j( nMsgBox "游戏结束!", , "俄罗斯方块"
    $ v* Q' ]! l% f3 |3 P& ^' `( owindow.clearInterval Timer1 ( i+ [  }0 ^) a5 _$ Z
    GOver = true - t) q, {1 `3 f2 j2 ~  e6 _" T
    End Sub
    % q+ g3 q5 T9 c7 @Sub Ner() % x. V& e4 r% j6 Y: {0 `
    Score = Score + 10
    + j3 {* r6 N1 }" \- M" ddocument.all("Sco02").innertext = Score
    / l) J) b: Z+ C, R3 ?0 eFor i2 = 25 To 1 Step -1
    4 @# ^- t9 W- m2 R5 W+ O9 m- j+ A% lok = 1 ( U7 r/ @" \- |2 K
    For i = 1 To 10 % t8 P5 i2 S/ K7 n. I0 ]
    If n(i, i2) = False Then ok = 0 # G% L  A3 C& ?; d, n; \: j
    Next " l  C5 }8 @- t! N. f
    If ok = 1 Then
    # R0 A* S( T$ R; A% h2 gScore = Score + 150
    1 L9 X) K& r/ U, U0 b3 |% Xdocument.all("Sco02").innertext = Score
    1 d' d; q& w: a: {; ^* t5 KFor i = 1 To 10 $ w+ O( ^5 R, b1 w
    For i3 = i2 To 24 " J: Z. v6 _! x, [* J  ~
    n(i, i3) = n(i, i3 + 1) + O6 A7 V& t8 \. x" d; O: k
    document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor 0 p9 Y: _% K4 H. D( j' H
    Next
    6 W/ s4 a+ m0 Z1 x* X# KNext
    0 |& C  ^: d( P3 G. iEnd If
    - r1 }( E/ \/ O. J7 S& k3 @. q/ mNext
    + L% q; B/ w# G1 A$ I# }3 XEnd Sub
    1 W3 R% A) F- u1 s% _6 t: DFunction coor(xx, yy) / ^  K/ s4 Y4 p) [) ~4 `! i7 t
    coor = (yy - 1) * 10 + xx - 1 ; X4 p5 I' h- Y) O' y" \
    End Function
    - n. h/ F5 O0 `- }* xSub Rota() . g* l& t2 K) @9 ?5 d3 P7 K9 Q+ N
    Rot2 = Rot + 1 2 [) F* q! Q, r8 u2 E
    If Rot2 = 5 Then Rot2 = 1 # f* d" y* k4 I1 [
    If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 ( J2 ~+ d& q7 n" {1 }% z" Q
    For i = 1 To 4 ! @/ B% L( O/ K% L. y( i
    For i2 = 1 To 4 # X; k8 m+ a8 }4 C
    s3(i, i2) = 0 9 O9 H0 [' z( L! @
    Next
    * Z5 K' Q. X( r* pNext 1 S5 O" ]2 o4 s% p
    Select Case Fig
    6 f: b# t3 k3 V1 A+ H2 yCase 2
    ; P' s" g4 P- G2 X/ P/ }2 a# L" ]Select Case Rot2 . k. V( M* P% Y7 q- P: f+ ]9 o3 W; l
    Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
    " T/ R7 \! y$ \" {Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
    3 s$ q5 P* l! |* D7 J4 vEnd Select 8 D" F8 @: U& I) D4 i( d9 h
    Case 3 3 s0 j4 I; S% d3 B- I! }2 X
    Select Case Rot2 7 Z- W: T/ p- ^, D6 w% B
    Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True 6 P3 ]5 @% k! L7 P# M
    Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True # c  W6 O! |! q! j3 m! y
    Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
    8 @( L" ~+ ]) }Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True & f+ W$ s- \# O. s
    End Select
    : ]6 v) d8 e; Y3 nCase 4 7 o( E- C, K# Z
    Select Case Rot2 : K( p" k8 v: A# n$ p
    Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True 2 A. E/ D5 U; o8 [; I
    Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True $ P( G7 {) f; `* U! s2 `1 z! I
    Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True 3 T0 a& y/ R* K! b2 b# h# f
    Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 8 C3 _$ Z: _( V2 D4 m
    End Select
      C+ N! k3 Q1 ]& e! e0 E8 n$ SCase 5 ' ]' {" B7 F; H5 }* W3 ]
    Select Case Rot2 5 i5 t# D# V1 h& `
    Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
    , N1 I5 ?: m2 oCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 3 i+ S' ~  f, N
    Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True 8 Z3 N; A! w8 a  j  c+ F9 w2 a, H
    Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
    6 d6 m5 p" ?8 zEnd Select
    7 d. h, Y' o1 L  a8 j' O# x* P' ACase 6
    $ O% R; K2 a3 ~8 V" ]7 \" cSelect Case Rot2
    0 X; o1 A! m) S  ~Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
    " j3 O0 {( j8 J" T, b: WCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
      x$ o  p. y  `4 L; qEnd Select ; Y: x1 ^" ]6 A2 X6 q! r" v) b( ?% N
    Case 7
    & d7 I6 M; [; _: X1 e" [- Y5 c% F  n6 lSelect Case Rot2
      s' h+ n# u/ r0 m9 `Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True 9 m+ s$ f4 b+ Z6 o" Y1 e5 P
    Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 8 x; P, S; l0 Z- w+ N
    End Select $ g# H' {% v2 B% c3 g  r
    End Select
    5 P7 Z$ [  Y+ n5 _$ Fok = 1 - n9 f% |4 j' ]9 e* b3 W% L
    For i = 1 To 4
    & G; i+ j8 Y3 G3 L7 m8 r" f9 HFor i2 = 1 To 4 . C4 @! K4 I8 }  F# h, F" q' }
    If s3(i, i2) = True Then
    $ e4 W* N; X( }8 oIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 1 M; H# |( F( v( J4 d
    If ok = 1 Then 0 C7 h2 X! |! }) {3 B$ o
    If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 0 ^  b/ Y4 ^; H! k! c6 V
    End If 2 F" B7 e9 N, j0 f) Q
    End If : S" P1 x  K  _$ k4 o
    Next
    : B7 R2 n" C4 C: `( `/ f, tNext
    / B1 S/ J/ h  `. A; g9 w, S* n! vIf ok = 0 Then Exit Sub + ^- e0 v9 _# L
    Rot = Rot2 ' Q6 z/ n! C: }2 S4 N
    For i = 1 To 4 & v* ?( U. Q$ l' q
    For i2 = 1 To 4
    & o$ d1 M: l, X9 }6 ]& e, ^1 C( }If s3(i, i2) = True And s(i, i2) = False Then
    - Y3 ?( L; O6 i, Bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 w0 F! @. X/ e7 g8 T9 z
    End If
    ' T% h# ^" g. ^7 l3 JIf s3(i, i2) = False And s(i, i2) = True Then
    ; ?" L$ ]& s) Z1 vdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" % ]/ L$ z! N/ d* X0 `
    End If 2 E6 c, X. x! o) B- o
    s(i, i2) = s3(i, i2)
    7 t* j# ?( D8 {3 w6 ]7 GNext * g# v# o7 V) e$ e. a8 ^" s% U
    Next
    + W" l6 x* G. `1 DEnd Sub # f: j- G" d& `) A  v  H3 E/ \
    Sub document_onkeydown 9 Z7 D: u1 b! m. ^; Z9 j1 a
    If window.event.keyCode = 27 Then msgbox "Pause",,"TET" 6 ?: t( r9 O! ]7 t& B* l; ]$ \( ]) \
    If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") " d8 S1 A- y  ^0 u4 m
    If window.event.keyCode = 113 Then iniciar("i")
    9 h1 v/ [8 P# A  K8 b7 V9 y6 vIf Not Pausa = True Then ) F0 U) a# ]# ]( l
    If window.event.keyCode = 38 And Fig > 1 Then Rota   Z2 \3 ^3 K  r" t
    If window.event.keyCode = 37 Then 7 p' D4 J1 I% j/ _2 |
    ok = 1
    % d- k! w* y, Z& a5 I* V. cFor i = 1 To 4
    . L$ r$ [* W  Q6 ^For i2 = 1 To 4
    $ K2 r* m5 P1 j. i2 ^& qIf s(i, i2) = True And X + i - 1 - 1 > 0 Then % Q; L1 N* B% L3 q) B( @* I# V4 v" `% `4 O
    If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
    ; |: j* {0 L+ y" M; k: FEnd If
    0 l! F6 b) `, M6 MIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
    ( ~6 X  F8 @; V" s, z( b, y- [/ FNext
    5 U" r* k& D5 u2 j1 WNext
    . U' e. W# y. \: r' N3 YIf ok = 1 Then
    2 W! f3 o4 R: E  z3 iX = X - 1 - B. M5 Z0 l6 g' p( \
    For i = 1 To 4 : l3 j. H+ [$ g0 a: Z7 h6 K0 a
    For i2 = 1 To 4 # U  f$ ]+ O& e: n5 X. J
    If s(i, i2) = True Then
    5 b$ R3 c& s6 Z# ]) _If s(i + 1, i2) = False Then   u7 l/ N) M$ {$ p; r
    document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
    6 L3 B& o: L1 Q7 [End If
    9 c, J$ u$ g* Q& DEnd If ( d$ ?+ _  f+ l
    If s(i, i2) = True Then 0 j0 n  e/ W0 ?0 c7 q* @
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
    5 o: ^/ q/ A9 l% }End If
    ( |& l  ^7 j8 t, z( ~+ fNext
    - {- T! Z3 `5 g4 A: ]Next * a% j0 I. G) W: @/ g/ _
    End If
      P6 f9 n; J; k" G+ `* T8 }: X% AEnd If : g' U$ F% e; t
    If window.event.keyCode = 39 Then
    - u8 V) h1 B2 t& l' [1 Y/ Iok = 1
    $ }, `) b0 o! {' UFor i = 1 To 4
    ( u4 P, D# K; T6 E( z  z" UFor i2 = 1 To 4
    % W$ w) U' r8 ~6 X* {8 n4 k. l1 oIf s(i, i2) = True And X + i - 1 + 1 < 11 Then 0 M4 d1 Z1 b& b* F% g' y
    If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
    + }* L# K; s, }End If
    9 v  V  N+ f! e$ A. p% ^9 L8 WIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
    ( B% j. J2 @, W9 M+ ~Next
    9 l5 c  c" T* `+ R8 }Next
    ' V1 A4 }5 T7 ?4 h1 GIf ok = 1 Then
    ' ?# [, B9 d5 j( Y# [. RX = X + 1
    8 C. \. M" v# [  r" a6 |For i = 1 To 4
    / J+ G$ S  F/ b2 D$ `0 \For i2 = 1 To 4 + n6 b3 I, K& H6 D- |& E
    If s(i, i2) = True Then
    , H' j9 @: F& q' D: I: bIf s(i - 1, i2) = False Then + K3 U8 l6 g3 c
    document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
    2 W' Y& k$ L8 u6 q  bEnd If
    + s8 N) n7 ~% }7 I) l; lEnd If ! ?; F6 V. u" N; A) P" D# y+ |
    If s(i, i2) = True Then
    8 y3 X" W/ ^; j0 K) Bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg   O; M8 K1 p' `2 ^/ C; d* L
    End If # ]% r% D6 [- R1 d" b, U
    Next
    1 q: u$ V0 d, T7 S! |Next
    ' \4 G4 K8 A4 q% t5 T/ e9 OEnd If
      K/ h. b+ E- W3 R- n, e0 CEnd If
    1 K% b, t! B  X8 G, s“Aqui
    2 z) t. d: Q8 h3 IIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then 4 C$ ~1 f  _2 a# P
    If Fig > 0 Then
    ! J7 E4 Z' j, W" X( d! EFor i = 1 To 4
    2 K* X* f1 J  W! O* \. l4 |3 {For i2 = 1 To 4 7 ~$ }6 F9 r! T; a3 l
    If s(i, i2) = True Then
    ) A5 b, ?5 \& j5 S2 _4 \document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 3 G5 w& g( S+ M4 ^  V) j6 g4 h
    End If
    - D) E  ~5 r- XNext
    # p& B* c! S) d, O' U1 Q: P! oNext # Z$ U' k9 e/ c
    Do & F& r& ?* V6 _. v
    Y = Y - 1 " s$ ?# g4 Q' n3 Q
    For i = 1 To 4 $ {. n$ ]& u. i! s" ?1 `
    For i2 = 1 To 4 3 E9 c1 X3 h% `. n
    If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 9 c' p1 M/ l) C" y* B& o9 e
    If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
    - ^2 t" Z+ h/ W- O' z' RIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
    - [* E- Y+ n  V  {  }End If 7 h8 c( r8 S$ Q# `4 _) W' u; i, T
    Next
    " X9 B4 ~, m/ ANext 3 b. x1 |, o# l1 c8 p
    Loop Until Fig = 0 4 ]1 _& y  h. x
    For i = 1 To 4 6 R2 G" g- n# C  K& n/ J' O" ?
    For i2 = 1 To 4 2 A7 h) T- c5 H3 l' Q2 u2 y
    If s(i, i2) = True Then : L5 T0 o) w8 U& O3 h; u4 S% [* y
    document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 m$ ?7 O0 P+ N, x% k: M  S
    End If
    + r0 ^5 H! m8 D& D( Z3 V: T+ w0 vIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
    8 m. d" l; ^" fNext - `7 v" l  ]4 t) D
    Next ) a' {& [- F4 f7 X! U" s! R0 l
    End If
    ) D* F& {" i' CEnd If ' R, V/ `' I6 d
    End If 8 h5 @# I0 @! A" }. B$ s" u# G
    End Sub
    3 y5 i( v$ o; G# x8 l: [function Mmove(Index) $ I' a- C' `6 |0 o( y
    if index = "I" then 5 K$ l3 K$ V, ]4 r- y6 Y  m
    document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
    ; Z) s$ a0 c. w  W) A* Z# ]2 j$ X& jdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" 4 a- k6 \, \# Y- e6 R( }* J$ i
    else ; E+ u# n0 ~) ]
    document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" ! ]1 N, V# ]" F' N. Y4 a# ]( G
    document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" ; B! q4 R# x" }% g; `  z) @
    end if , S& d. }) K; M% p
    end function
    $ E! `: g6 W7 l! t</script>
    ; A, Q" t" B- k/ W" s! @) ^1 V</HTML>
    : ]/ H1 K% u" u: R<%End If%>  
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏 分享分享 顶 踩 转发到微博
  • TA的每日心情
    开心
    2014-7-28 21:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    2
     楼主| 发表于 2009-4-17 08:56:11 | 只看该作者
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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