TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：; J' `3 J7 A( l# d3 c
<%If Not Request.QueryString("Ven") = "T" then%>
* R. X& X. {7 `8 w3 ~) c<HTML>
6 D9 e z$ ]3 `* U<HEAD> 1 N& I" h) ?$ I" q' M
<META NAME="GENERATOR" C>
3 m7 |7 s5 t1 k1 `. u* V: }* l<TITLE></TITLE>
+ R/ m( d- D6 m1 B1 x</HEAD>
: u0 |3 q6 o. ]2 ?1 @& R<SCRIPT LANGUAGE=vbscript> 8 \& w, W* }! N# p
function Redir() 3 S9 o' `/ E0 g$ v# B) r
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"
0 u8 D; e8 ~+ {6 j: d. E6 L& cwindow.history.back(-1)
+ G6 D( T4 R+ w* ^8 ]End function 8 i* e7 Q# T; V3 y" y7 b
</SCRIPT>
( g C8 E1 O2 {" D" T5 \/ w<BODY onload=Redir()>
; K/ o+ I* T. U2 A</BODY>
' y, r) A! U2 S& Q! b+ ~' ^</HTML> $ n) t8 D( e1 E9 A: R; x# G- L: H
<%else%>
8 k! U; d4 D" M2 a" {/ P<HTML>
! |" B* D# S: R/ Q0 ^2 |<HEAD> ! F/ G. }) t n' V+ M: x0 K* F9 p \
<META NAME="GENERATOR" C> 4 c! ^ Y* p# |$ `) B
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
% f7 Y ?% H) s( L p4 C<Style Type="text/css">
/ p( a- h2 p* x+ R<!--
+ r" x* a: j1 U0 {& g/ z- i' r. Q0 T.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} # I8 B$ t' N5 V
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} + V6 Z9 Y; u, x
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
$ G/ G" R1 [0 D; D9 r: w.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
5 Y( i% {( j' G7 z' ^0 T' L.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} # H0 H8 J# }3 Y/ t. _
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} " d4 @2 E4 m' |' z3 Z
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} ( k1 d: `4 I* H% D) H U
-->
' a1 u0 F7 E) o* F: U- _5 ]</Style>
( q4 H9 v' Z3 R/ f& ~$ Z& r+ f</HEAD> - \3 O* i" A( k v4 u4 Q
<BODY topmargin=2 leftmargin=2> 9 L% Y# d: r! D0 K( Q% e8 A
<div align="center"> 0 B3 O( J1 g: z' J& h& K5 o+ C
<center> ( ^% B" `1 x+ ?, {7 G; d# s# B/ }
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> ' T% M3 d+ [1 m' v. T+ r5 `
<center> 2 B# a. c' p) j6 E) ~) l, Z( L
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> R% }/ T; y' {( ]$ O
<tr height="18"> ) F4 u. D9 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>
) g2 X; a* Y% {, \<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> S5 d( F1 c7 a( T/ n7 }& z
</tr>
8 z) O+ b+ c: |% k- l# Q4 X<tr height="18"> 2 P: `4 f! I% P) r; b1 v- z' c 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> 0 b# l5 ^7 f; 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>
$ C) D v I' k o</tr> / @# Y" t* n' N! `; j! i! T# E9 b
<tr height="18"> " r1 L/ g8 q1 S# 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> / d, u9 g2 m e
<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>
$ ]9 f& Y! Z& e& O; t7 m, J</tr>
/ n- G1 i1 b' b, C( i3 h<tr height="18">
3 j/ Y V. Q7 ~! q1 H; v5 `<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> * a/ L3 A9 f6 e8 E, c! d8 C
<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>
! V" u$ I! h" b3 u6 z" {1 C</tr>
; ^! H1 S1 ?( C6 a& x<tr height="18">
2 e2 s- A; k$ }. K; R<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> 7 e0 Q' c' W" ]1 A9 e% |
<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> , G9 U7 |! N8 H$ V! V9 V i
</tr> ) w" }( V1 D4 q, c
<tr height="18"> 7 j' L! Z6 \/ t4 n* G
<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> 9 Y; e! ]& [, |& x d; C+ V
<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>
* V8 v' m6 p1 \0 J: s9 |% t: e</tr>
: `( e7 k' N- L( j1 N: J: k<tr height="18">
/ N, \: E& U. 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>
; ~* K/ M# a, ~2 D<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>
+ Y. G" J( r0 B3 W: R4 E% a/ Q</tr> 8 f3 y, S7 Q& m k* H v Z
<tr height="18">
, E1 J3 b8 u8 _5 N<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> . u6 K. m+ d2 h0 f, W$ }& k5 Z; I; X
<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>
# K- k7 Z3 k4 t4 K/ X: Z M) W! P$ m</tr>
+ G/ P5 J! K+ j+ [: j5 c6 Z<tr height="18"> 8 u$ ~1 b3 Y5 [# H9 L5 o0 J0 d
<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> - w0 ?* [, T+ h
<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>
# x1 r* c: K% H; M6 x, G</tr> . e4 c' ]# J+ f3 q; N5 J
<tr height="18">
' g/ j" J o' i# p5 K, ^# r<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>
8 r |0 l A O! g% C: r<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>
0 k$ F' c9 e; w</tr> , # |% P0 e+ l9 c
<tr height="18">
) V% p. k; K9 z$ \2 O$ R<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 i `- K( e( |$ c0 L2 D
<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> 8 u* l2 ^2 d5 }( F5 ]4 u3 q) s5 F9 r D
</tr>
' p4 I4 Z$ g1 \<tr height="18"> ( j7 O( X0 x, S$ ]. [& ]3 |
<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>
" Y) e `0 M& q<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> 2 X0 t6 U* E/ x' F( h% p$ C U n
</tr> 1 S3 d, U1 E3 @1 C. N: j3 _! p
<tr height="18">
: q& b0 C! E! u% M) Z2 _<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>
* }& f$ x5 a( T$ s2 _) M<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>
1 W' t. i! N5 B) ~. H6 b</tr>
0 H' v$ p; j$ U- x<tr height="18">
, a: Q% [2 o. U<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> . C, d1 [! K! C
<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> 7 p; K: S- O: W8 g! J. ]
</tr> 8 {- Y+ e4 m. ^% A* F5 i5 J* g f
<tr height="18">
; L9 Q$ U! e- T/ 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> ! }' X# O- l2 Y3 _; ^$ z) M; I9 G$ W9 E$ S
<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>
: i/ J, Z- ?% n" I, @1 a( w: j& j</tr> % E% A2 Z$ H) n$ \- [8 B
<tr height="18">
! U O# c* K. g$ `4 @% \- Z& O<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> - R) z I0 {; W' Q2 v5 J0 Y6 ?
<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>
! l0 |) o+ C- k4 a2 n1 h, Y+ A</tr> $ w( W7 z) z' g8 x
<tr height="18"> - }8 V- x2 Y0 `& P4 y* 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> 6 a$ s! H/ I9 |+ t0 ~
<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>
1 |; E. \" R" M F9 M, Z</tr> 6 k9 M, X `+ ]2 W+ |
<tr height="18">
. }- n6 v& {* D; A" V1 b/ 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> / g0 d+ }* e5 v$ g! D) P& S9 Z$ Y
<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>
0 a6 [( d% b. d7 _</tr>
) x: L$ S, }' A; p4 }8 ^<tr height="18"> 1 m0 \1 v- f7 A1 S+ c0 E8 ?
<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> + p! @0 m4 L3 @9 F- O
<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> & F$ {; `; ^5 C5 k- Z. I4 H
</tr>
% N: O' i3 H" P! o" p<tr height="18">
{+ x I. c; a<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>
& e& N! g' T6 o8 _) @<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> " t9 H% z4 a8 S* `9 I
</tr>
! O& m! ^- E; M4 g4 f7 m7 p2 A3 g<tr height="18"> 8 g+ |5 U6 i1 T% p: F
<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> / \' `8 ?" R" }; A5 y/ u
<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> * J. ^9 V% A" {7 X/ {7 V
</tr>
5 X6 y ~- @3 k+ ]( `0 p! }9 f+ ~<tr height="18"> ) r$ u2 J' ]4 Y
<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> 0 I# w. I. ~9 D
<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>
& l B3 L/ Y y* F# _</tr>
% W: S$ Y8 k+ k2 W3 X) H. @<tr height="18"> + L: d! @5 l. c/ l+ Q
<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> ; [: W7 B4 T( k+ _5 [6 d( S
<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> ( V$ O x7 \6 }0 M( |
</tr>
8 E5 L5 ^/ O7 ~4 e. c f<tr height="18">
' g+ {. z+ r* b$ M6 ^( r<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> j0 X8 V% q6 R5 P5 N- H$ b
<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>
3 q9 p' s) g6 l</tr>
5 Z6 `/ E L% t" @' m3 x<tr height="18">
- T4 N ?/ {% H3 P3 |<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> 7 ]/ j4 O$ a* _5 ~) s
<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>
R8 d) G* g' [) Z. b2 _+ v" @</tr>
* ]( ?) x2 L. P G) I6 E</table>
( J+ W. O$ t9 ^8 s* ^1 x</center>
- y, }, }' \! n</td>
7 Y( R- a3 ~! L0 q1 D! S<td width="100"> ' M& n; g2 \- o5 P# g8 l
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 5 c) k5 u, r7 ?) o/ N
<tr height="30">
- F; V! O3 U$ P& _2 b<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 0 @% a" V4 I# M* v- E
</tr>
( h# X$ q( c. Q" H. ^- g<tr height="20"> 3 k+ y' v/ r( t1 b' @; o0 J
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
1 T: h. G; a4 w9 G</tr> ) m' S3 u/ k# R( J: i4 ?& O1 |
<tr height="100">
8 c7 x: _2 s+ {' X' L+ {# u<td bgcolor="#FFCC00">
7 v6 t4 I& W+ ]8 F: `( Y# K/ g<!-- Inicio Preview --> - b0 M" D- |6 R! S+ O4 a; ~
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> ! r* |5 M( t9 w
<tr height="18"> ; M1 [& J; c2 G8 k- p# [6 M
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> 4 |4 }, p1 v8 I7 q! r6 N4 s. q
</tr> + m+ i1 N& }% B4 g+ p( B
<tr height="18">
- ^. Q5 R# _: ?9 k$ S3 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>
7 m b0 u$ N5 r% x</tr>
- g# v! \' M. e7 y b7 i<tr height="18">
3 {" C; a/ v6 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>
0 s0 R- B* R7 j3 z</tr> " s S6 ~( h* b6 n# m6 W9 W
</table></center></div>
( e1 S; t& X) m/ s) J& i; a4 Q<!-- Fin Preview --> 6 T6 o) w' L$ I
</td> Y& B6 C: J/ J/ m$ C( K' W. w
</tr> # k( v2 u, {8 k- }/ y, @+ O
<tr height="32"> 4 @8 f+ [" d; Z" z
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> 9 q% b9 u6 t9 a! D+ F# }+ C+ r
</tr>
, {. S" f4 A" a$ q( k<tr height="32"> 3 o' V% D, k. r$ m3 o2 P1 H
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> 0 A/ X, g) j7 a' W$ c" G' y8 N+ @
</tr>
9 }$ |# d B0 j: h6 q<tr height="32"> i' ~7 z. N. O+ n5 }
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> 2 J' a: X# P+ @! P D
</tr>
% a1 ]5 ^' {" _" q6 X6 U ^2 O<tr height="32">
. ^. v8 {0 h# L; d0 B<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 0 H# |8 T: ~- t
</tr> : g# E( Y7 _4 X8 Q; R
<tr height="32">
' b: }# `, I }" G2 p# |- s+ M, P- a, w) E<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
' k: A; Q6 M( M6 e( ~: g</tr> 4 g! z8 f" H6 b$ z- D- q+ t
<tr height="32"> \' E& }7 H3 p: r3 |4 L" E
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> 0 E5 c1 ~8 H/ K9 N, s2 _
</tr> - p* b/ m# y6 I3 x& s
<tr height="32"> ' z& N! ^* i% L U1 t' w6 j9 B n
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
: X2 S! }' r' d2 a: C9 R5 Q9 G</tr> # `. ~! Y' ~: U% ~" ^" t9 B
<tr height="32">
# t; M& ~3 V& u( ?1 }<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> & R0 W, c; Q8 X# l' M
</tr> B, s3 a* R7 g; P0 [
<tr height="38">
4 H4 u. q; O9 v3 [8 @, ?" G% s<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
v8 ?' I3 I# }; {</tr>
* K5 D; f7 O7 p2 f' p- p9 a/ D/ R$ |</table>
8 d. }" `" N- A</td></tr></table></center></div> & @0 J& _5 Q1 y# X& ?5 [
</BODY> . `, F& D* R7 K. A0 Z0 [
<SCRIPT LANGUAGE=vbscript>
1 C5 v. w: _2 ]- A8 f1 p* d) yDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
: n1 A u! _+ T- Y+ ^ rDim hs(),sor(),hsant(),n(),s(),s2(),s3()
+ j& o9 i# E$ ]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)
% g% @2 h0 k1 s( M4 b1 Z, hLevlIni = 1 ' E* s) }8 H$ J. L# u
Pausa = False
7 m. H3 Q8 o, C. @HastIni = VelLevel(LevlIni) - q- U Y" s' k+ I
Hast = HastIni
0 m. {3 j q* m$ A; T( ~Levl = LevlIni
) b$ _ K' ?# L1 {. ]5 _Pos = Levl - 1 9 ^$ h8 y; u2 X* e
ColorForm 8 w# {1 t$ \3 C0 C0 Z2 X- k1 V2 f
GOver = false
2 m6 M0 D) R0 s: N0 C% n( hfunction Iniciar(ind)
$ |4 q# v# M7 Wif ind = "i" then 5 p8 \ f s* k: l" r. W
score = 0 1 T! {/ p/ N( G. W2 Y1 w6 y; Q
GOver = false % N( W' T8 ?- C$ f1 `0 w5 Z
Hast = HastIni ; E ^6 y$ `* g0 |/ @/ Z* ?( B
Levl = LevlIni
& @: c- ^/ p; H" QPos = PosLevel(Levl)
. o; G% H: E2 f" yFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next 1 g! l( }8 m: J& A# ]* J: }
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
Z6 m! o( z: }& {2 ETimer1 = window.setInterval("Andar()",Hast)
' ]: G% Z- o; ~6 R2 mColorForm 7 ?' a8 y0 C# p; u& E2 D
Fig2 = 0 ) V: I4 Z5 i% s
Nyfig
/ M( _& @/ N1 i; H. M" @else
3 k) }$ @% |4 v$ B5 Bwindow.clearInterval Timer1 3 | l) g' x6 }: t9 H
end if 7 U0 U0 q& G) ]# U+ f
end function
8 V# v9 E- c& zSub Nyfig()
0 O9 k# h/ n* J0 O, R& D% [Pos = Pos + 1 ) t9 F' i; V* N: r$ k
document.all("In06").innertext = Pos 4 S2 V. u# b# `' ]
Select Case Pos
) ~' k6 P; s) Q8 Y& _/ H4 x. DCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
u! D' D ^5 eCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl 4 L& |4 i+ b- U: ]& J8 P% D
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
- @9 u3 {$ Z5 p/ H( w0 eCase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
1 y- r3 i1 m" S* ?1 x9 j3 sCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 4 B7 ~) b8 H: X5 {( y
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl . m3 y' }$ D: F2 | g6 [
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl & v; J0 W% k& I# d& G- ?) A! r$ u
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
- u; D8 B- p) l7 F) ACase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl # @. N- d7 f" P$ H9 e& I
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl - b' l% z F$ Q5 l/ c: u
End Select
# A2 J9 U- @3 A; pwindow.clearInterval Timer1 4 t1 o1 E+ X5 k0 E
Timer1 = window.setInterval("Andar()",Hast) r) o! Y+ t3 b ^( d) P
Fig = Fig2
4 g c* _; `; Y5 G+ X6 h: m+ d6 S9 \Farg = Farg2
% f1 f3 a+ u+ F q; h; HFig2 = Int(Rnd * 7) + 1 5 f$ X, O; s- v$ a j
X = 4 ! C8 j9 ?, c* Q3 Q4 H
Y = 26 L0 @1 S' V& ?! O, K% V6 v5 J9 d
Rot = 1
6 x- P. d* M a( y3 g# a8 ~7 zFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
) H6 h, R5 [% g% @' r+ V' j) U5 PSelect Case Fig2 5 V5 c& q6 z9 L& w! p) I
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" * u2 s* p# C' [! R
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" 0 j( Q$ r/ ~' d5 I! }
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" / d7 X; Q) W1 {8 |$ ?
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
+ G6 q( l! s9 M* I8 m; rCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" , E) l! s2 t6 F& E# {4 E# L: I
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" ( E. h8 D0 A" h3 u4 q9 z: k' ]2 y+ g
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
" N _! W8 {4 @% i' e3 f& h" a$ a' z3 dEnd Select ! q3 w/ B" b4 E+ e2 L U; `* M' i% o
For i = 1 To 4 / t1 u- M- J4 t* O* g8 i
For i2 = 1 To 3 $ ]# {. i. `+ [4 _8 x; ~3 n" h
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" % A( d. c/ m1 X3 v ?* ^! g" L
If s2(i, i2) = True Then : [2 U( Q$ ^: r# {
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 8 m& l, r* D. Q h+ c4 J, d: i! T9 P
End If
% G7 ?( M- |% PNext 9 U8 _! b3 ~1 v2 Z% \
Next $ Z$ ^6 S: W$ w# i- O- P) `
End Sub
$ L3 k! Y5 p% vFunction PosLevel(Lev) ( y: }: a* A& |. P, O1 q
Select Case Lev
j& i& y& w: ~; x9 V3 tCase 1: PosLevel = 1
2 f: \, c: X- K2 j/ Y6 mCase 2: PosLevel = 51 0 u J5 c. F; p/ f! c& J2 o
Case 3: PosLevel = 81 4 L) K( E8 }& N7 J5 ]& t
Case 4: PosLevel = 111 / e8 V7 c- _- C
Case 5: PosLevel = 141
9 z" m8 w% u5 d$ B7 j+ ~Case 6: PosLevel = 181
! X$ G, H) G! K) I3 ACase 7: PosLevel = 221 ! `0 a8 l$ j; H8 ?: B4 W
Case 8: PosLevel = 261
6 \- f9 t& L# d# i) {# ?/ T! hCase 9: PosLevel = 301 / {0 C+ T0 \8 T3 ?! |9 G. m6 e
Case 10: PosLevel = 341
; e9 R1 W* L3 q' @$ x* @7 kEnd Select ; m# E0 B- i8 p: t; f
End Function
+ M* p5 Z" S, u“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい # N: y& s1 i' m' a+ p
Function VelLevel(Velo)
7 a Q. e& U6 G4 W" ?; q- y' W5 ~Select Case Velo ! R+ e. l7 P( n* y
Case 1: VelLevel = 500
" l8 @7 u' ^1 D* l. r: R# hCase 2: VelLevel = 450 # T0 Y& b; D% S
Case 3: VelLevel = 400
$ m: [. b+ u! B0 J1 N( @8 z* S$ HCase 4: VelLevel = 350
/ K) O/ n( w" k# UCase 5: VelLevel = 300
7 ^, v! p2 Q+ ^6 T( G- ICase 6: VelLevel = 250
( e. z# g7 D% [$ V5 `Case 7: VelLevel = 200 2 X3 h8 U* a I" t3 X
Case 8: VelLevel = 150 , S! u) s. u c) S
Case 9: VelLevel = 100 % s% w& s# K( o) Z' J! a' G
Case 10: VelLevel = 50 , b6 }* D) i" f) ?4 \, L" e
Case 11: VelLevel = 10 + e% x" V+ l2 U+ Z
End Select
8 _7 }6 Z7 d1 B. p/ dEnd Function , T8 P9 |0 v* q8 {, L8 X2 g0 p
Sub ColorForm()
1 ]- b4 H2 W) FFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
: i( v& r7 o! r K. U' z8 qFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next 8 X! E- D4 I7 n( T
End Sub 5 ]7 l/ _- s& P- _) G
function Andar()
/ {, b5 C' Y; }7 w2 g# L4 g3 t# SFor i = 1 To 4
/ n! w! C7 C* u% v; DFor i2 = 1 To 4
* J R! p k7 v5 VIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
# S7 L; j& z1 k4 xIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then . j3 d) U0 {: X# c0 n
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
, o# D$ f% G+ WEnd If
/ ?2 X9 U4 H: @* YNext 2 H9 i9 t1 |7 X& p7 a9 g3 N6 n P
Next
6 O8 c7 w6 C4 i6 m2 A( i: EIf Fig = 0 Then
: i! `9 L) g& Q' e, d5 cFor i = 1 To 4 7 {7 z$ x; s$ h$ P/ \( o6 C0 I
For i2 = 1 To 4 - a: C1 M$ Z# U
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
9 I1 e! i2 ~) w0 U% p Q1 NNext 7 r$ K: h2 P2 R& v' D
Next
4 W1 i3 z; }! T! ?4 eNer
q6 K5 ^# A' G; O$ Y4 SNyfig 7 j% K: }! k$ g
Else ( U$ O# y) Q6 O; \
For i = 1 To 4
( m& \' K9 B( D- J- w) R9 |* d0 p" W# xFor i2 = 1 To 4 . s% O& T, d+ P$ g* k, y, q( }. _
If s(i, i2) = True And s(i, i2 - 1) = False Then
. S" o# ]9 O) @$ j: D( t4 pdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 3 `+ Y- X( e/ `0 S" k4 e0 \
End If
' |2 g. f% |! o4 o7 Y# t+ wNext * p+ d# H1 [6 _) Z
Next . ]1 G- @9 g+ \2 z3 F; F7 ~
End If ' a7 C( d; X' k ^
Y = Y - 1 1 ?: e% W$ O, |8 J5 t. S5 B
For i = 1 To 4 / C2 ~/ W4 z3 E% ^
For i2 = 1 To 4
+ J( Y; d0 O. b7 b3 ~) o( U l: GIf s(i, i2) = True Then
& ]. s! X) _0 q; N9 t; \9 N6 E8 Tif not gover = true then
) n# Y. m8 A1 @4 Y3 [$ FIf 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
# @) Z' l0 e1 LGameover 5 @ ~* q/ B+ @1 `( b7 b/ h
end if 6 I* R5 _$ @% c9 A% M# A5 l" L* q
end if
0 z7 `7 b( x4 v3 _6 l# X/ VEnd If
- y( i% Q) A; n, c5 d! ? u/ lIf s(i, i2) = True Then
- }, i" [5 Q8 H) ~. X) a; V' z$ w3 sdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
3 S, A& n0 H% Z4 N0 l# i* x7 yEnd If
' ]) p& Z; C+ G8 N5 D: x9 zNext
& u7 F d' H2 |- mNext % Z2 d! J3 S8 i; d- x# L
end function 2 J# {, m3 P3 g6 ?1 I7 \9 j% w
Sub Gameover() [% \6 b: e: s' u# c
MsgBox "游戏结束！", , "俄罗斯方块"
' p1 S4 P$ U4 Lwindow.clearInterval Timer1 # y! n M1 g# B; _
GOver = true % P% X2 \4 U# V
End Sub
) x) h& z, r n- J7 ]Sub Ner()
9 G8 C; Y# P. x: O: r3 _$ ]0 X3 Z7 PScore = Score + 10
) m0 Z8 U$ |8 k H0 ^document.all("Sco02").innertext = Score
# y9 u" k6 }; W9 K$ R3 mFor i2 = 25 To 1 Step -1 : e m O: b+ j
ok = 1
* X/ a: F5 W2 X! kFor i = 1 To 10 " r: @' f! N5 u: a& X4 L6 u
If n(i, i2) = False Then ok = 0
, v6 d3 I" m) J1 V! N- X0 H9 x9 wNext ; B- l6 k$ f8 p5 |$ o6 a8 O
If ok = 1 Then
' G5 ^0 ^4 e& X$ N* qScore = Score + 150 ) q# J1 R7 K% |# Q: X
document.all("Sco02").innertext = Score
# B2 T# d2 q' @8 x6 v" i3 V- O! IFor i = 1 To 10
0 S9 r) {0 @7 _& PFor i3 = i2 To 24
+ o! D8 ?, W( o( |6 K% E+ X, Dn(i, i3) = n(i, i3 + 1)
2 z$ C2 q( e9 Y- q$ M; ndocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
$ x; f8 ]$ `( i& N5 P: s1 @Next
8 ] h, l" S0 }# f3 A/ GNext
# f( w) Q' P, u7 x$ _4 yEnd If 5 q3 z% {; z9 ?3 C# c" M9 c
Next - o* [+ H1 X @' W; D
End Sub ( L0 N' _5 N* u6 `6 G0 F& x' h
Function coor(xx, yy)
" x$ [$ Y' h/ g& G( x0 `coor = (yy - 1) * 10 + xx - 1 / c2 v; T. C+ L% f
End Function
2 g3 R6 d/ G/ s9 qSub Rota()
5 e( ^# P( ~. S. L8 QRot2 = Rot + 1
6 k4 _6 t( E, d) D7 Z. {7 uIf Rot2 = 5 Then Rot2 = 1 7 U* K# J0 F. j6 H: n; d6 Y
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 3 C8 \4 z2 F. d: m% ]
For i = 1 To 4 . m4 k# `; K! \5 V" ^
For i2 = 1 To 4
5 T7 U% \2 [: g0 j% T( j3 Xs3(i, i2) = 0 . H/ |# i3 |3 s9 Q
Next
+ V" U/ q5 H8 J1 ONext 2 l7 g, B6 i, p8 y t- B% g
Select Case Fig . q' }# E2 U9 P8 U$ W' P
Case 2
3 j0 E" {3 t# U" }( pSelect Case Rot2
8 ^1 w1 V. e" U6 g7 {Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
7 a& @+ U3 H! T, J3 eCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True ) l$ Y& y$ p2 t
End Select 8 E; ~) W9 m8 t4 j6 S% D6 U- @. C5 F
Case 3 " L; I0 }6 f8 g1 J1 }, w
Select Case Rot2
2 O0 d* {$ Y/ H/ b3 ]# yCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True # @3 q' N2 Z* w8 @7 D: D: Q
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
4 X$ |1 D) a* n; GCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 0 W- G* g' ]" m4 b% c' a* H
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True + c7 H; f @0 Q4 a& P6 W
End Select
5 n/ l) a5 R% b# a7 BCase 4
$ e7 y$ l/ ^7 `; G/ Q5 hSelect Case Rot2 + b" B" U3 \" E1 L' X
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
. C$ r" u" g) u/ x, YCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
' B/ W1 \7 @! U' \- T$ kCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True 1 x( y, I8 ?# Z! ?; C( L
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
4 X, M! M6 i. J' `End Select
3 f5 v8 u! P+ ?. H* n0 _% `8 i/ u0 xCase 5 9 G h: U% h8 X- P! a" B, j& U v
Select Case Rot2 H- q) W1 C" c; E1 I
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True 8 @1 B8 m2 [% G' M
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
4 ?7 r) b- @, j' |9 QCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
! k( C% H: H% L: iCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True 1 w! K+ Z( x, ]( r
End Select
" G' q. g# V1 J: z% W3 Z6 Y* C( i9 WCase 6
: {. C& B5 h. w& TSelect Case Rot2 : z6 Z) v. R! c0 X, [
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True ) ]4 T" m8 ^. I8 f; t( r2 Z8 J
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
, L5 J4 _, ~9 H/ {End Select
& \, m' `: B0 h; [( T+ hCase 7
9 B8 W# `5 E; z: r6 CSelect Case Rot2 / v, m4 R# Y( S1 u6 K
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
1 J1 C+ F, U& j! w; [1 lCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
9 }* B2 k8 I6 F7 OEnd Select
2 {0 g: p5 S( x2 v2 Z* _4 B( NEnd Select
1 v& m, O! r, r7 A9 Cok = 1
& `" J, j0 ]. PFor i = 1 To 4 ( J; U+ _: a: \$ K: c6 {4 |+ U$ f
For i2 = 1 To 4
' u0 G8 J# N0 U7 sIf s3(i, i2) = True Then " J4 i) f! t0 E3 `# y; W1 @
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
, L- B$ C, ^ y7 D. ^; B# g, I: h+ DIf ok = 1 Then
* a! e3 Z$ b* A" h- e. m6 OIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
7 k Y0 j) i7 z$ q5 T/ ]End If
# ?3 Z, a- P# Q1 iEnd If . E! l0 @- t0 M! h
Next
4 m! C1 `/ X4 I- {$ Y2 e' }$ A# XNext
6 {: i3 r9 a# _; ~; u& L# `If ok = 0 Then Exit Sub % }# z& s. V- {& p7 @' Q4 i. K
Rot = Rot2 4 o5 i- f; F: d9 a0 ]
For i = 1 To 4 : S3 G, C$ W$ N" U4 |% }& k
For i2 = 1 To 4 3 i* ^* M- y/ {, S+ f, Z( u
If s3(i, i2) = True And s(i, i2) = False Then
8 J: L$ ?, p0 W- Q8 U$ Gdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
' H3 S* F1 k$ QEnd If % Y9 z3 e* T: i8 m1 S I3 C. F
If s3(i, i2) = False And s(i, i2) = True Then ; S0 j$ I* e1 x5 H3 q, K
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 6 F. _& r5 [* w/ \) y8 B
End If
8 m, X/ Z* j/ q5 G2 _( |* [5 ~( }s(i, i2) = s3(i, i2) : [2 N, W$ e3 e
Next
, ~/ _ b" ~0 z# J9 }: j6 x5 S3 ?$ CNext
v1 [( s9 @$ GEnd Sub 8 ]1 E8 g% a' x z; R1 K, o8 ~" T4 @
Sub document_onkeydown 0 n# Y/ X- P0 z& T
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
: [ T9 O( Y, U* g1 c5 AIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") 3 u; y K6 J9 u! Q; r
If window.event.keyCode = 113 Then iniciar("i") - T& U1 n' O' f6 O
If Not Pausa = True Then 7 J, F& B4 S/ N4 d/ C: x7 C
If window.event.keyCode = 38 And Fig > 1 Then Rota
- p0 E; u. O1 S h1 i, DIf window.event.keyCode = 37 Then
/ F& l6 m3 B: n; [ok = 1
; @9 ^! e( |" M$ RFor i = 1 To 4 8 @4 Z0 q0 I+ c o
For i2 = 1 To 4
( j. m2 T) D; ?1 rIf s(i, i2) = True And X + i - 1 - 1 > 0 Then + I9 G8 b# c! U$ y( V% x
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
9 c. E5 [4 p% {7 z# GEnd If ( P" K9 q3 Y8 Y2 z+ y) q# @/ u
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 5 o( s2 E. X3 V# `/ B
Next
& o% c p! C8 cNext 9 Y0 E! `1 V) \- t( g+ }
If ok = 1 Then
% b9 r ^) F& @2 i) Y/ B; qX = X - 1
' |4 m. y; }" t* d. l" t% q& ]For i = 1 To 4 N& E3 @# M* T, z0 O) o+ [
For i2 = 1 To 4 , ~/ P# Y8 T6 B+ N4 U/ C9 c
If s(i, i2) = True Then
; J. ^- D6 H! W* L1 c0 b4 dIf s(i + 1, i2) = False Then
. O0 ~' \- t+ j2 Z# {6 k W# k5 _document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
$ q& A9 }; U' |End If ' r( q0 M/ `. w3 J! ]
End If 5 s3 g& x: ?( F: z- c8 ~
If s(i, i2) = True Then 8 j6 L) `$ C) M) @. T
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
3 y7 ?1 _* i* T/ Q8 HEnd If
2 m3 Y$ U/ a& ~+ `# RNext ) g; |3 Z' I# U2 N
Next ; U G) F+ t7 o, b! l7 a/ X
End If
& x4 B# X+ p4 Q# }# m( M5 _End If
1 @2 F. ^# M6 L! v% n" S0 d2 ?If window.event.keyCode = 39 Then
% z- h, ~6 g; h/ m" i. f! ~" _# t( Aok = 1
9 j( {$ w. J' O5 VFor i = 1 To 4
% @$ G; G5 k$ `8 fFor i2 = 1 To 4
9 Y( M& o9 N! W1 ^, ~) [If s(i, i2) = True And X + i - 1 + 1 < 11 Then 9 H1 `) ?* G. x( D/ D. I
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
# F# K- }1 L4 pEnd If ) @9 w7 d9 K. _7 c3 _) i" Y1 Y
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 + A: C& w: W* l8 Q* V% q8 x
Next ( M' _, O' ?& P/ ]. g
Next : ~3 B# E4 ?1 n5 h' R# u4 |4 N
If ok = 1 Then ) H9 `2 k8 a8 A
X = X + 1 ; G; g: Z) A5 V. d. Y) W* U
For i = 1 To 4 , }# B7 p: c; b) F9 }2 N
For i2 = 1 To 4
) V- Z" A E: z+ v6 R% g. cIf s(i, i2) = True Then 2 G" K( E6 ]3 P5 v# @2 T
If s(i - 1, i2) = False Then / C; \; o. O7 h9 M4 n
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
/ P8 O, J7 o; K" s* E! oEnd If
/ t3 q; O# t) b* a2 QEnd If
' a9 h1 N! d6 SIf s(i, i2) = True Then
F. C% E& R5 k. c: T5 Y1 R0 Kdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg + x P' X: w3 s- b7 W I
End If ' Z7 _! N/ K8 o1 L# ?. e
Next
& q3 I6 @) N' R" v, d% |# CNext * Y8 e9 Z H) p8 ~* {, Q0 P4 W( p. U" R
End If , y8 C% d K; p% \8 ^
End If
2 D& H! ]5 n- m9 Q* ^“Aqui + L( Y; Q% F) x; M0 f
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then 4 c) ^ A$ ]' c
If Fig > 0 Then ' N7 V+ `% C1 q* q* E
For i = 1 To 4
- Y% U% D; r0 `( M+ x4 `) M3 [For i2 = 1 To 4 + ~# f$ A! G' c7 `
If s(i, i2) = True Then / w M/ |# }) d N( r
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
, P* ~: b$ K+ J2 X" @/ gEnd If # _4 b3 d u3 i7 S0 R) Y- g9 p
Next ( ^1 c: d4 d" S( d
Next c3 p% k. m0 e' A3 {, \
Do
/ B* P9 {! k4 c5 U! o* g0 HY = Y - 1
6 J" U( j6 S, p# BFor i = 1 To 4 . N% a* ?; i, E& `, E8 U/ U
For i2 = 1 To 4
4 i8 t* }2 p) E3 w8 U* ^If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
. r) W3 y+ ]/ `% B+ B/ uIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
; i5 T9 S( t. W% ]If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 2 K$ S7 U( l H1 Y
End If
# h j& n g$ o3 {* s+ kNext
2 ]# o1 r6 E* P* VNext
2 X9 H; r. }; w, G7 ?Loop Until Fig = 0
% k$ T& O x5 j' T" e9 d1 lFor i = 1 To 4 , f9 _2 L5 s" g
For i2 = 1 To 4
. D% o. Y7 w" m m* o; t+ SIf s(i, i2) = True Then
9 W6 ]- h( ~5 V# X9 ~/ K4 }document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
% ^6 {5 o5 B) NEnd If
, h* f# F0 d8 b7 \# eIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True & R9 w" m, [& ]8 H
Next
( B7 h% X! ?" c% v) DNext ; l4 O& v' c$ W) D5 [2 {. U
End If
D, I7 |3 q( c% x: R3 IEnd If
3 ~, W/ u. b. CEnd If : w' \* G7 Q! l# m
End Sub
% [: V# D7 M' K, mfunction Mmove(Index) 8 @% @, G4 Q2 W( H5 Q- _
if index = "I" then
2 S; d! H2 W: S1 E& j/ F/ Xdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
2 T- n0 C1 k' ^8 d4 U, C9 Pdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" # Y$ H6 |/ l5 s0 A( F7 c
else 0 q6 W" L+ f5 l5 n* I- u' M
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" * |" h2 X% R) e
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" ( Y+ d& W& A- A6 _
end if
" b! N+ u$ o. R$ R) E. T1 V9 I4 Zend function
% t9 _7 q Q5 K' t) T" P5 d& p$ m</script> 3 ~8 Y" d% o1 K7 n1 ]) ?( J+ d
</HTML>
$ `* t2 g- N/ J( t3 S/ J4 }<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主