TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
$ \# W) |0 ~" G& L- d& K- T<%If Not Request.QueryString("Ven") = "T" then%>
" f; F8 `9 G( T1 K: @2 o<HTML>
$ @4 i9 O( J# p: w<HEAD> & z' k* F2 L9 g8 _+ j1 }9 ?/ b3 K
<META NAME="GENERATOR" C>
8 ?! C/ w! c% V) [5 `/ L* v<TITLE></TITLE> : @/ e9 B. F* h: t
</HEAD> / W# o) h: X& w7 g# M/ d8 I5 p
<SCRIPT LANGUAGE=vbscript>
% ]+ O+ r( s* k# sfunction Redir()
$ l. D8 p7 x: t. _. I9 A- Qwindow.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"
6 B7 j7 }% P, y/ Z/ mwindow.history.back(-1) : N# L4 ^+ W& |7 S& p1 p7 f' U
End function
- O6 t) M" K$ k! H) m</SCRIPT> ) K* Z5 G! r5 s& P
<BODY onload=Redir()> ! H( O5 f: c6 u
</BODY>
3 Z. |2 W: g9 K8 |. J1 }</HTML>
) Q6 D" m% K F7 `' s% q<%else%> 0 `- V: ]- N0 A. @( m& m' p) q
<HTML>
: w; H" Z8 S. z6 a! s& x8 o<HEAD>
0 d. e$ }* K9 A/ C$ g2 g- g, t) c<META NAME="GENERATOR" C>
2 h( L. h+ V+ I7 y<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
& }+ W X7 ^" L% [( Q<Style Type="text/css">
) p; u4 D) `- ~3 D. _<!--
# s- `; Q! f( {8 D. O( } U.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
" U' |# J6 u7 a* y' l.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} 8 h3 A6 [. I$ w; t8 a* A4 s
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} ( E/ X( i' Q3 W* x* \& s$ P- e
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 6 o; S0 i/ l* z. g
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} ; M( W) a% [; s# |0 c* b! ?/ N$ k
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} 8 U3 [# i, k6 l7 V$ O
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} 7 Z2 |) J6 W/ X; ^/ A
-->
. ~3 _2 |; s8 G( d' b</Style>
6 m; P# a/ I# M3 _, c; K+ ^</HEAD>
5 y9 t6 M9 u( m7 H% F<BODY topmargin=2 leftmargin=2> ) P$ P+ C3 q' D) k: s: `
<div align="center">
* e# q* ?7 w3 W2 T: E<center> 8 j: ]! l( i7 R S" o. d: B2 r8 m
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
" r1 {4 P- O" g; y<center>
7 @. |+ _) _* }5 Z<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> . v5 @2 b' p: t) j8 H/ t8 V
<tr height="18"> + n9 W" s, K/ P" P7 G
<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> 4 O7 E5 r% L% q4 ^7 L; w
<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>
4 g- A' V1 f) e# M1 q% j</tr> 9 p; s" h( Q# m1 J
<tr height="18">
2 w9 m9 S9 R8 s$ j' { w; i<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> 2 Q& q8 S. A q
<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>
( I5 N' p5 V3 J: x6 C' T7 U</tr>
6 Q, [5 q2 l" r& O J1 g<tr height="18">
" ?! }7 |5 U! M# e' n- D<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: e) r$ N% X5 G<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> , i# y! I, B* B& J
</tr>
5 ~& A( p3 v6 s; O, Z<tr height="18"> . j) o0 i8 c2 V( p
<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> + J; g( J+ l6 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> 8 [; l5 ]& ^9 B( r; I0 e, \9 T& v! M
</tr>
. c+ x8 m! ^9 h* f. i- `<tr height="18">
0 B$ G8 x4 l2 _% I7 t9 O3 C0 w% P<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> - q5 R3 B, j3 I: u2 m v0 h& z% n2 E) M
<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> % c9 q) q7 [0 n
</tr> ; ]& ~7 M F/ B8 U3 F2 q, l$ l
<tr height="18"> 6 t; K) S3 S( k, l1 U6 }: A
<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> 7 i# q- \, ]* y% e& m6 Y8 j
<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>
# C+ t% Q1 X) e2 D4 |2 h</tr>
) N! L7 F$ K. }8 c" r<tr height="18"> ! m. y* B% K) Y# P- V
<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> ; { I6 P7 M% p [" v2 P3 q
<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> 9 P3 o1 s# _1 k
</tr>
3 d6 ~6 h3 v- {$ C2 k; ]0 W4 i<tr height="18"> " p: i: j( [' H
<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>
% F! x. U2 j7 k) w<td ID="175" width="18"></td><td ID="176" width="18"></td><td ID="177" width="18"></td><td ID="178" width="18"></td><td ID="179" width="18"></td> 6 r7 O6 Z. v3 ^- a! a* D3 ]
</tr> 8 L3 d+ J, t% t8 E1 T
<tr height="18">
( J$ y) e4 U1 p/ {$ ~- e5 C<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>
3 J% d0 l' B& F) @9 L4 r5 U<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>
8 H! i5 K$ Q7 W9 D</tr>
~. m! U) S8 C+ V<tr height="18"> 1 r; M& { f% l/ s3 J
<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> % D0 [$ M2 u( @) m' o5 T
<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>
9 |- [$ Y$ Q6 R1 |0 y9 |2 O</tr> ,
. c5 s: u# Y% c/ c. Y7 g<tr height="18"> ) _6 G- [" S" _1 O4 c* G
<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 f+ H! [$ {, w# ?6 T
<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> ; Z8 Y4 D0 u8 T* [0 ?- d
</tr> 9 S: B2 Z3 f, H; v! X3 L
<tr height="18">
* e0 Y- d. x$ \) @<td ID="130" width="18"></td><td ID="131" width="18"></td><td ID="132" width="18"></td><td ID="133" width="18"></td><td ID="134" width="18"></td>
}# A" f+ B; l( l" G) K<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>
& J2 G9 ]' N, [# [9 D8 v</tr> ( k* q; X! X0 y4 M* x6 s! Y( ~
<tr height="18">
6 K# i/ p- z7 [! k! U; m3 H<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>
& Y/ |& ~; x: ]: E H) K0 I, `<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>
/ K+ R; U# ~' N: L" L</tr>
- i/ T. R) B$ }$ l; C<tr height="18"> 9 q$ T2 c" k5 `( ]) A6 l
<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> " q" c; p! y( H& ?3 W
<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 @% S% I! y4 M M
</tr> # F# x y% ` J' B4 v9 H2 k, H
<tr height="18"> 4 j& p; g; }% u8 g6 _
<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>
% M+ r3 x: `5 W7 k7 p% s& {/ a<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>
& V; r* [ G6 p) \3 A; G7 _' y5 m</tr> 8 m8 D8 p. f+ B
<tr height="18">
8 I" W4 |# @2 x6 h<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> # Y, s" ?. j$ p6 W, ]: p. S
<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>
$ n2 Q+ w |8 H) I2 W</tr>
8 s4 c3 M' x4 t1 o7 k2 V<tr height="18"> " T7 m" ^) c7 L5 t D- @
<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>
9 h m! ~& j; k. e# F8 b: 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>
$ B, z. V1 z$ d( D</tr> ( D9 A3 `- [. ~" a4 p
<tr height="18">
5 V; B8 V4 }: {& N8 h: 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>
; M' h* i" v. L4 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>
. K! \' ?* o3 y</tr>
& y" S8 [8 @2 v& k+ D: S0 s<tr height="18"> 8 g3 ^; l! T; |) S; T( ~' t% }9 q
<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>
* `7 u/ [8 Y9 t: 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% P: t# @5 G
</tr>
( [- x! c3 [8 d6 G! f<tr height="18">
. l) o, P* a$ N* U) n8 h" R. N<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>
( K9 Y. {8 w2 O- b<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> 4 ?0 J; P8 F; H7 H" h; }
</tr>
$ f, c$ U/ R) e& }4 [, G0 Q<tr height="18">
& g5 U/ s& ]6 S; b ~! Q$ D1 Z<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>
7 }+ j* U& ], _' }! D* L* H W. Q<td ID="45" width="18"></td><td ID="46" width="18"></td><td ID="47" width="18"></td><td ID="48" width="18"></td><td ID="49" width="18"></td>
, T) X/ c6 O# l2 ?/ p% }; A; ?$ P</tr>
# W& M2 |# I' K2 w2 U; b<tr height="18">
# b5 ]! a$ W8 J7 ^0 t- J' S+ G<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> 7 W3 t. N- w$ @2 d1 }; I& x5 c, Z
<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>
5 c* Q n/ p2 t9 I. l8 H J5 \</tr>
$ B$ J) b) q0 _3 o; A& b4 P. y<tr height="18">
5 |5 \9 b7 h' S7 h; W<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>
# h) I( F. n: d3 ]4 J<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> l! e5 u/ l( E
</tr>
1 F% q: R2 h8 H<tr height="18"> ! g/ `% |; k) w% 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>
% ^+ s6 c$ r- O8 @+ ^/ K7 @: {<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>
G, u( f* O/ l: y</tr> / X' L/ U9 A, f
<tr height="18"> 9 i+ k# r# \+ ~
<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>
) [) d: z% |. U6 Q9 h3 |<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>
2 O5 x6 V4 n, p0 o/ W</tr>
. |, s& D# i- M& N4 U</table>
3 s: U( {% F9 A' ^4 L</center>
9 z: W0 J+ S1 Y/ [</td> + _9 p d$ I! J8 B+ Z
<td width="100"> ; Z( f, V) f1 Q1 ]) M. f |
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> / _" i. W7 B# B1 H2 n0 a( @$ w
<tr height="30"> 3 m" R, f/ o# _+ q0 l( R
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
' z( u9 D2 F4 R" d& ^</tr> 8 P! H1 H) L+ P: |% J% b& t; v
<tr height="20"> 4 \' Z/ o. B; ~8 D/ V
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> / _9 k3 W$ x0 M# X) z! S7 p; H* v
</tr> + p4 F$ K8 _. e, s# m
<tr height="100">
, l- C8 k( V3 } j0 M7 T! @0 K<td bgcolor="#FFCC00"> 1 k: b1 l! `' W- U: ]/ T+ [' U) x+ D
<!-- Inicio Preview -->
' d! }( c7 e4 @1 i<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
5 m1 Y1 ^! z6 I/ a<tr height="18"> 0 m% j1 C) e) J8 ~
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
7 |8 J/ f* ^! T</tr> , I% L7 B; i* Y2 |% G
<tr height="18"> 6 j( I7 Z# K" K1 i5 d7 i7 j
<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 k1 I7 j( a9 M0 C1 Z) k</tr>
( D% M# m% {3 ^<tr height="18"> 4 n0 ^' O7 ~- q* F7 `' p/ e
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
' V4 M Q' y" M: ^0 h& J, O8 p' Z3 V+ _</tr>
H. Z- h8 ?- z9 n! R7 {</table></center></div> : Z) W5 C3 s( m
<!-- Fin Preview -->
7 j/ u' ? c7 A: F W n2 m' h& |1 Q& y</td> ; v- Q% d5 o1 H
</tr> $ z5 y+ f7 F$ U8 A
<tr height="32"> ; I" v# p4 p! o; M- I" `! W
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
( K5 w3 ?: b8 q. [, D, S. K' R7 e</tr>
* `3 S6 }5 t/ ~. `: k, w W<tr height="32">
4 B' C* C# f( g8 k" k1 S<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> w1 o3 B; L5 E9 N1 d
</tr> 8 i9 D" B+ }/ r! Y. C
<tr height="32">
7 p4 }' y) s5 }- `# o# h- i<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> " O i: e0 M) P! E Y
</tr> % w3 }' S/ l5 M2 c( ]5 P, k
<tr height="32"> 9 e5 [8 x4 R$ n2 ^2 T
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
/ @" L' f/ v) a" I3 V</tr> 0 ], u$ n& ?1 y* l! X h, W
<tr height="32"> 3 l' d. {2 L( E1 L
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
3 Z; V% c" ?' G% r</tr>
% l% C1 f" c# O* ~, _9 Q+ M! @! v$ {<tr height="32"> - R' ^8 S* E {9 r+ ^* Z" A
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ; _- j. I+ J! m! y
</tr> " d+ h' [* \1 u9 t
<tr height="32">
* a3 ]% ?& F& \. c; I<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> - M r. _; l6 r7 x! _
</tr>
* |1 l/ w6 |* v9 a; k3 u<tr height="32">
x' X$ g0 Q0 w$ \5 q) \<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
% g5 Z* ?( H/ X6 H- f' }</tr> 2 N0 Q/ C: a5 O p: D* [$ ^0 g
<tr height="38">
4 F" k/ o& l( _/ a7 R8 L<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
# u- e0 l5 {! ` B$ ]: o3 n" r</tr>
1 N+ r4 c* x) v</table> : d0 f I* A! J" L
</td></tr></table></center></div> / @ v! @3 Y; m$ o
</BODY>
; A: a, T; c" z<SCRIPT LANGUAGE=vbscript> + z: N# h% B' F- f2 ~" ] h
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver - w7 H J5 {+ @% S* K _# b
Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
4 _& n4 o: ?, _7 gredim 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)
9 ~5 Z6 x0 i# e oLevlIni = 1
( l' W j6 z: ?) E# Q3 P9 N6 tPausa = False
0 M5 M( F& D. f. J7 O- h' c, xHastIni = VelLevel(LevlIni) . `: U0 g4 i& c$ n$ [/ {& l
Hast = HastIni ( ]# i# U9 ]. V4 g3 v! E
Levl = LevlIni 6 \9 W/ N1 V5 O4 W8 j, b
Pos = Levl - 1
/ i6 b% G$ {3 u4 U3 X/ yColorForm
( t, f" ]& Z* Q" X* E2 D0 s# y8 @. Y% TGOver = false
4 Z4 X j5 v/ E! Z: X" q1 f) Xfunction Iniciar(ind)
1 B+ k+ D* f6 }# J! |! U; Oif ind = "i" then
" V# q1 f# y2 ?& S, Wscore = 0
& P/ O, k/ Y$ h |GOver = false " p H' m2 y' ^
Hast = HastIni % ]9 d3 y( I& \
Levl = LevlIni
# r- L$ w- y$ H& }Pos = PosLevel(Levl)
6 m. {8 a$ x" h, p$ }For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next / r: O8 m4 o( z0 U( n* D( ~) j' s
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
1 S3 z8 G" f3 U M* ~; k! u5 qTimer1 = window.setInterval("Andar()",Hast)
4 a9 C: r/ B7 g+ E) X5 P' q% {ColorForm - P( {8 o' b6 w. [3 k% z: }* u
Fig2 = 0
! |9 u. A; A% o4 I8 VNyfig ) z6 I- \/ m+ i% t% q$ \
else 4 i6 k8 e+ }% X, h: B4 @3 k, b
window.clearInterval Timer1 9 ?9 a4 v- C. E; e( N1 W
end if
# C0 O' g" q7 ^# ^end function
9 r4 w7 P6 e1 d6 f# ~7 K' [Sub Nyfig()
. ]$ y. ?6 _- m% B7 w) fPos = Pos + 1
: c8 Z+ x4 O, C0 N' ^" edocument.all("In06").innertext = Pos : r% F/ D% C5 M0 ?4 o( w4 M
Select Case Pos 4 M1 Y& l% P: W* T) { d
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
* b; a% O9 `& }5 K+ eCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
- y' B9 Q8 ?; Z9 b/ m; s/ c8 s! XCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
8 x6 j F0 R- d! Q8 NCase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 1 \# r9 J2 {2 ]
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 f- M0 w/ k& H: Y
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
2 p6 a4 v/ m& XCase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 y# }: ^* v7 q1 J- R+ _' Z; e
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
5 J7 C* T; ~$ S( K) p l W1 UCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl 1 c" o/ |; I$ }' P: T" Y( U) j
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
! W: S+ Y3 \9 Z9 M' t( T: oEnd Select
- s4 H; t, N/ G$ {% k8 R, F I8 W( Wwindow.clearInterval Timer1
3 z3 y6 E* d v6 cTimer1 = window.setInterval("Andar()",Hast)
- r; h9 L) D- W' x nFig = Fig2
: T% w; R* ], ~4 d8 iFarg = Farg2
8 B O; \6 a" t- E3 Q& c4 P% AFig2 = Int(Rnd * 7) + 1 5 j3 A, X) L6 p# C) s
X = 4 # Q2 D) y6 [' J( _' m
Y = 26
* _- I5 Y+ S, a( U( nRot = 1
3 ]0 l9 i/ _' L. ?. L6 ?8 ^4 _For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next ) L3 e( E9 z- {( H. I
Select Case Fig2
" {% V( P. B$ Z9 X2 oCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" 0 x# k' Y- P9 Y8 i
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" + m+ u+ t2 l9 v8 R% Z! k# Z! G' ]
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
$ a# h" k/ B6 b. v# H* I6 gCase 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
% J$ k: I8 L8 X7 qCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" 5 m. c5 g9 \$ p; _( C) h+ o
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
5 [& z/ z5 ], w- o2 n# DCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
5 Y' B, C9 v/ D: C* sEnd Select 0 ?$ q! V) X, I c D$ z1 a
For i = 1 To 4 ! d9 n) v# u# V3 w
For i2 = 1 To 3 ) q# [" r8 ~; \, z2 B- A% k% F
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" 7 F/ S$ ]" S ]+ G1 z. B$ ^/ n5 i
If s2(i, i2) = True Then : t# S. u0 \ {- I1 \8 j" [
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 7 K' P/ v& F5 ~$ H
End If
) Y; ~7 U0 F. v& t! [Next 2 }9 E/ H$ K( Z1 C u
Next + y* `) r5 @/ o# J& S
End Sub ' n" Q" l- t8 Y$ F `
Function PosLevel(Lev) $ o3 Y/ G0 I" j8 L2 E2 L: @$ R
Select Case Lev 7 Y4 y$ s9 w7 M$ e
Case 1: PosLevel = 1
V1 x+ R5 k; a+ b/ @Case 2: PosLevel = 51 & Q j- u6 l0 q* I+ g2 I
Case 3: PosLevel = 81 & ~% g6 g4 C2 H
Case 4: PosLevel = 111
0 Q% l& s5 A3 n. ]Case 5: PosLevel = 141
4 h. `3 J5 e; f9 N, d# c( ~Case 6: PosLevel = 181
9 `3 \% l# u1 }. w! G1 j, cCase 7: PosLevel = 221
; M& `: D) G1 W5 S1 P+ VCase 8: PosLevel = 261 : d) h+ I) h' i9 W* {; U3 _5 V
Case 9: PosLevel = 301
0 g; n4 A: `$ S5 wCase 10: PosLevel = 341
0 \9 `0 G2 L# WEnd Select / ]; S6 i2 t, w5 x! @$ X
End Function
& i% R! n3 n/ y“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい * @$ f$ i4 D! ~. y1 c! W# {
Function VelLevel(Velo)
( h5 ]' e7 R" @7 e6 O- C$ C7 D ^ _( `Select Case Velo " N5 `5 w9 A# ^/ {, Q3 K) B
Case 1: VelLevel = 500
1 M2 ]7 o% o6 T s; w, } |Case 2: VelLevel = 450
+ K7 `, Z H- }- vCase 3: VelLevel = 400
4 z1 \! _' ~) H' p' l R3 K" kCase 4: VelLevel = 350 ( }3 M$ F, {1 N/ P' R
Case 5: VelLevel = 300 $ Y* _* i& |2 g/ ?5 `+ h
Case 6: VelLevel = 250 - `) M/ ]8 D# y7 A
Case 7: VelLevel = 200
7 M$ P* I0 l2 y6 m2 oCase 8: VelLevel = 150 2 v' D/ i2 g5 V" U7 l4 h7 Q9 t
Case 9: VelLevel = 100
. x" H: Y* s5 C0 FCase 10: VelLevel = 50 # e- M- @) M8 d4 F
Case 11: VelLevel = 10 2 m# M2 K3 K% q( S8 P6 }
End Select * X) }/ }6 H$ K( P. t
End Function / S6 v3 O" i2 Y( ]5 f2 `% W* g8 |
Sub ColorForm()
. V/ i1 x0 z0 B6 `( o5 WFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next + A1 {8 S. W$ A7 T0 @7 ^
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
( D n$ D( t2 }End Sub
" P4 b- k6 g1 e5 C" O* `; \& }function Andar() / M! C: c& ?0 M8 Z
For i = 1 To 4 $ ?+ @1 J3 B& }* I- t* m
For i2 = 1 To 4
1 d4 g' y$ K. F# c- TIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 `& H, n1 h9 ~) w% ?5 K
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then / {" c4 e2 Z' ^, p
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ) g7 _' C9 [6 X; @
End If & _2 p |3 {* Y* y& U4 m
Next
1 {3 W" y; k8 ?5 p( rNext ' y( {$ R6 _% O _" D" ~
If Fig = 0 Then $ S } c" O4 ~; V! u
For i = 1 To 4
( M! G1 G0 s6 B+ d yFor i2 = 1 To 4
; ]1 r& q5 X- }% sIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
- @/ S7 x( \0 I$ aNext ) i; E2 D" x1 G
Next 7 j3 C+ P# E) ~ M0 Z% a
Ner
5 K" K, B U: d3 e8 ~9 [& w6 P& RNyfig
9 y0 Z" |' v' {) K: @8 P7 ^# sElse 6 F- H$ B& @% E/ u6 o
For i = 1 To 4 ' ?5 `+ j& |6 p8 L- e2 d/ R
For i2 = 1 To 4 2 C3 s' y2 h. j* D
If s(i, i2) = True And s(i, i2 - 1) = False Then
1 l2 l$ t6 G/ c+ D( O. Cdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" . A9 J% I. c2 F7 K* g. [) Q0 H
End If
' e5 E1 q5 C3 d* {* j$ \Next : r/ r* g9 [4 G. `3 h2 ~: O
Next
o$ b2 `( _" K- _% ^: zEnd If + W, l3 D! i I: V7 z/ v
Y = Y - 1
' z9 K9 c, r& G8 |( D4 ^- T# GFor i = 1 To 4 ' u+ x7 N* {4 K3 i& U+ p
For i2 = 1 To 4 # M1 c! W$ r* M* b. Q, H
If s(i, i2) = True Then
& a3 Y9 |$ N e9 Jif not gover = true then , o& t* i* I- ]. `) w
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 , V( s- ?6 |% `& R
Gameover / q8 h$ Y3 J1 f# E/ B+ L
end if
r- ~. S$ v& a0 Zend if ; d$ o; @4 {: p8 L9 M
End If
# `0 H; l/ ^) RIf s(i, i2) = True Then
y2 \ r- Z/ a' d& F5 P: s& K" W: Ydocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ( ]# w4 E- i; G/ H
End If
3 d8 K- P* s6 `( a3 ZNext
8 O6 ?4 M9 ?' }$ ^ B, ]+ QNext
! L% }5 |1 l8 y, O( O" [end function
6 x+ X( O: `/ g$ g" PSub Gameover() , Q9 r5 ?; |* Z. x$ \
MsgBox "游戏结束！", , "俄罗斯方块" 9 s8 h$ Q$ [9 K
window.clearInterval Timer1
7 J, o3 l7 J" g% K, _GOver = true 2 f& @2 W4 y- L- W n
End Sub 5 y' l( g, Z& p% X! }+ V2 o( o5 Q9 {
Sub Ner()
3 j% |, y! A" M- \% WScore = Score + 10 - k6 B; O0 Q7 c Z3 S
document.all("Sco02").innertext = Score z% F: d9 D6 E& ~( q6 a
For i2 = 25 To 1 Step -1
1 w5 ` g2 ~1 ? n4 J9 E& A2 Jok = 1 ( {, I, F# A) n5 m. D
For i = 1 To 10 * c* y) Z' Q) Y8 I, I3 M
If n(i, i2) = False Then ok = 0
) U7 L# l9 ]7 e7 x& p* A! I7 ENext $ [# T6 \+ x4 Z" F" b; k* a8 g! d
If ok = 1 Then
5 u$ y. @0 r$ w. @' U& @) U7 hScore = Score + 150
& t( n9 w8 E- e5 [- T' Ndocument.all("Sco02").innertext = Score
& U U8 H I! t, i+ w2 m3 t: [; n- M+ EFor i = 1 To 10 # U4 o* k/ ?3 U9 n, R
For i3 = i2 To 24 ( L' S' l( T- g) A- @7 J
n(i, i3) = n(i, i3 + 1)
1 ]$ J) S- ^" o7 a9 Bdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
5 F3 P& e- k0 I4 c2 }& ~" {) tNext 5 L+ M; f" _* x
Next
4 t) p9 Q: U# M9 M; sEnd If 5 L# z3 }8 h* B) d
Next H' U, v- y( {4 H# ]
End Sub
& K3 o5 Q; ]4 h* gFunction coor(xx, yy)
8 \( m, l$ j) z( H k4 mcoor = (yy - 1) * 10 + xx - 1
8 q- ], z2 D; X9 U7 wEnd Function
1 }3 }: ?: x4 x3 G. mSub Rota()
: T) Z/ c: k7 o* I/ wRot2 = Rot + 1
" o+ h) `0 \% |2 e2 d3 b! w; \If Rot2 = 5 Then Rot2 = 1
9 d! a! c) I8 _% v) uIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 0 {# t. H- p% T; A7 _+ x1 O
For i = 1 To 4 ) q: `5 K/ \! N: m4 o0 W
For i2 = 1 To 4
; S5 G2 d0 C: E9 es3(i, i2) = 0
" X$ f# A( o' M2 M" ^2 Q5 t' G' ]Next
" {8 n) m" G( `/ U. DNext
% b# N( O/ I; ^9 K! `Select Case Fig ! H! D' L7 W1 b' j/ r$ i
Case 2 7 s: k# _4 P3 U5 c+ W2 }
Select Case Rot2
$ `. Y2 F3 t( I, f2 rCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
" U7 G" O; y' \- ~ l) _2 r/ V' DCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True 9 @4 n/ I$ j3 W3 x2 S. ]& v
End Select : R1 E# f" L% N+ |6 P
Case 3 % n3 g* D. q! J9 X
Select Case Rot2 0 a$ A3 q% z6 \; {( Z3 ~) W1 M
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True 5 R# K$ w9 p+ y' K z2 o, S
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True ! o- |) V7 ?2 K! ]% `; Y
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True ( o( _' Y' D' z. _
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
5 L2 ^" C! b- o5 k: T1 _1 DEnd Select & J3 L) _0 {6 ?$ B2 [6 U4 N" y
Case 4 ; ^' F. y* E7 ^2 _/ \6 H/ w( p
Select Case Rot2
) Y6 n2 [6 A' w6 H" wCase 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True ( M: @. O8 \0 b% `3 A2 I L
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True 2 l# |% R2 S F
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True 8 u# ?2 {* u1 F( I! a
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
: i4 F$ G5 Q% i8 q5 W# aEnd Select
' G2 ]. o2 ^6 ]: d7 S9 WCase 5 , ]' R3 E P9 y9 i/ G
Select Case Rot2
9 p" j0 I- q* p) v/ |4 e: dCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
3 [0 k8 q6 g- l" M6 {6 w- MCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
( A1 C5 [/ i7 b, S) LCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
- V0 A$ A$ m2 V. s# n, ?Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
% G# x4 _% u3 g; W, p- ZEnd Select
/ {$ i8 ]( l& F& [0 c9 zCase 6
; U$ l; a7 `/ J: VSelect Case Rot2 8 `' `3 v7 e( A& a
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
0 q8 K$ m) n. E, nCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
/ B; \% O/ H$ _& f' T1 U. mEnd Select . G, \8 w/ U9 o# N
Case 7 ' x, \$ K6 }3 H# S- r* K
Select Case Rot2 / g. q1 Z P7 h" f5 H* B% M
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True 2 X# [( h, h6 i s, \$ g
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
. y8 n9 t1 R |0 sEnd Select
8 x6 p5 h L, n, |: SEnd Select & ~$ w) l1 w5 W- `- G/ N1 R* t
ok = 1 3 L$ o) h; P" G2 o
For i = 1 To 4 * @7 J* G3 C$ s! R2 }
For i2 = 1 To 4
( C, \& U& p( s4 A' z# ~If s3(i, i2) = True Then - N8 A( x; s! @8 T/ H$ ^) i9 q: ~
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
2 w+ x8 w5 M$ b2 C/ E6 w" BIf ok = 1 Then
0 u/ t* j: }' }+ m* sIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
' Y9 u h4 y, U0 W( m& k9 ?9 e- yEnd If
' ^( H4 {% |: ~) G) LEnd If & W5 K- r1 @9 D7 U
Next & _8 l# W) p( \
Next 4 E# u& d C4 d$ W. W w+ n
If ok = 0 Then Exit Sub ) i1 T( {. o7 m# g1 G4 _! f) Y
Rot = Rot2 3 `( Q3 I* b8 P: P
For i = 1 To 4
/ D$ b0 B2 o; g1 X, J6 bFor i2 = 1 To 4
! y7 x% K0 B& OIf s3(i, i2) = True And s(i, i2) = False Then
# j! i# v1 z8 M4 `/ Bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 H0 b' f/ q, \+ |% K, W
End If
( t9 I! r5 r; b) C8 [( c7 yIf s3(i, i2) = False And s(i, i2) = True Then , _- I* a& G9 s. _( W# B
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
* ^7 [3 b, J9 w7 }End If 4 W/ r8 J+ ~, T" I# E
s(i, i2) = s3(i, i2) ( r6 M. \) y. R7 O7 h+ p
Next
3 o4 Z( W, k, Z XNext & [) d) W7 q: C4 y7 A
End Sub
, H& p2 C; A- I3 VSub document_onkeydown
- |) R) O& ]* E# p) F, `If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
- `1 z3 u5 L1 S" h5 @8 i- BIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") 6 h* w; Q: b, ^7 M8 q
If window.event.keyCode = 113 Then iniciar("i") 6 f# F0 k2 s! f' c, r: s6 ^ j" ~
If Not Pausa = True Then q4 f* F9 P& M# \
If window.event.keyCode = 38 And Fig > 1 Then Rota
( R. f! [6 h" s4 C$ Z2 pIf window.event.keyCode = 37 Then 8 |$ R6 I7 x8 ` i; E& w$ ^
ok = 1
, f' f+ F" u; G- [For i = 1 To 4
4 h N+ b/ o/ yFor i2 = 1 To 4 0 e0 a6 O- i( `4 K& p
If s(i, i2) = True And X + i - 1 - 1 > 0 Then # J& M$ ], m+ K; A2 k
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
! T1 i' r+ V' o9 k1 D) T ZEnd If
3 ]8 a9 d) M O; s0 B% p! H1 C* K. x# pIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
+ w) m4 p0 O; A2 i5 G& ?Next 5 C% Y$ N2 g* M. [: y
Next
$ e5 l7 a- @, x- ?% P2 V3 KIf ok = 1 Then 5 F. {, C$ F- c$ y* h
X = X - 1
% }2 W+ f, R/ @) l, @. w9 oFor i = 1 To 4 - V6 Y. i3 D. J- v' n0 C0 |
For i2 = 1 To 4
$ N$ Z2 N \4 j- w2 C" @" r ]If s(i, i2) = True Then
2 K" M2 ^1 w3 a# g) CIf s(i + 1, i2) = False Then 9 n4 }3 n% h. _& t' G S, m
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
! c9 q# D, { N+ w6 LEnd If # ?* {' }" Z. E$ @, _" U! y
End If
; O1 b; \" v2 p2 L- H fIf s(i, i2) = True Then
r7 Y# R* [- W& p/ Ydocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
b8 M8 R! u+ u A0 M4 {8 b/ MEnd If 2 |' E& S1 \" q- F. N/ B
Next
( v6 s, v8 N" j6 i; N, yNext
+ C* F$ S* r$ \: y) REnd If ) K3 `# J& n6 |
End If 7 L! F: p& |. e- D' Q
If window.event.keyCode = 39 Then
- j. _- I3 q' O8 }' }' l5 [ok = 1 8 w9 N6 X% T/ P6 ~# o2 e
For i = 1 To 4 8 W3 ^8 O3 t' C# J# @- d/ c
For i2 = 1 To 4
+ l: W; z6 p8 n/ Z& o& w, hIf s(i, i2) = True And X + i - 1 + 1 < 11 Then
. X Q9 T" N/ g/ O3 U1 |If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 % t3 Z+ _& A: P; [) i* @8 \
End If 8 T% r, W/ c! g7 Z: s8 h: L
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
* z; d5 k2 b; K; A) ^Next . q& k4 r R8 o7 |+ M5 X! x
Next 8 @7 L6 ]& p+ Z L1 Q2 p' t1 U4 ]( E& `
If ok = 1 Then
; a) C! u1 ]: j+ D, X# kX = X + 1 & @' ^( B6 |8 V1 `$ B( z
For i = 1 To 4
8 F3 U5 f" Z+ l$ wFor i2 = 1 To 4
T* {8 M7 N3 `3 ?# j; O$ |If s(i, i2) = True Then % Z- C! R6 C# w' j) u) t+ {
If s(i - 1, i2) = False Then $ {/ S% L! z) F" m
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" 3 g1 {- T1 e8 C% X: S
End If
% n: i! }" _# |0 w, SEnd If
) @9 x8 }) C; E( _. p6 `If s(i, i2) = True Then
1 D9 P5 u( b0 t9 ^# W# ddocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
# r) s: \6 @9 bEnd If s3 [# b* w( R7 e
Next
7 B d$ g6 \6 a4 |: U8 O; Q; ?# j6 `Next 3 J3 @ N3 @0 W- Z2 h
End If
. L5 G& z( j6 U& N, DEnd If
% G" f; J2 H/ N5 {/ f“Aqui
* A4 W* J9 x. _. mIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then
' ~" \) L$ s$ M) _( N' K, v: TIf Fig > 0 Then
& a2 Q- W7 f/ Q- r1 p. X2 cFor i = 1 To 4
) Z1 [8 g" s/ t% L" ~0 [For i2 = 1 To 4 ) `4 V# z( R% N6 K7 v9 o5 {+ p
If s(i, i2) = True Then + O2 h1 ]/ ^' W) [" n
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" & w# {8 c- O0 K3 G6 J' |0 R# h
End If
) {" V0 y# J* MNext 5 h" l- @/ _$ _+ r) D8 h/ E
Next 0 R& M' d' T& c8 L1 y
Do 0 T- M0 q* B- ?
Y = Y - 1
. h( M k6 j$ xFor i = 1 To 4 # W# x1 ~2 {. A- D! y9 o! T- r
For i2 = 1 To 4 , |/ Z$ G5 a) o1 W( g. H; A
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 3 A1 E& R* o; [) t' E$ ?
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then ) d6 _" V- ^8 a- u8 N! u
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 \2 ]. ?& _3 ^( v
End If
* F7 r7 Z7 F+ k M! \6 MNext
6 h. T5 v% j. q" u# v( h: |( MNext
, r3 p9 G* R8 k* ?% }; d2 ^( `Loop Until Fig = 0
2 s. L: S+ D: R) X8 ~For i = 1 To 4 # X! Y1 @9 H. }& }4 t$ u0 q
For i2 = 1 To 4 / z. g3 r9 S3 U2 K9 O$ V
If s(i, i2) = True Then + q3 N" n& M" v5 _* O( C
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ! i4 ~" q; h1 b/ n% r
End If 5 P' i8 R$ Z" H' `) x
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True * J3 k1 k) _7 G% ]
Next
% G0 O; c$ t) j. w; x0 \Next 4 W/ U, }& D& b4 u2 ?1 ^
End If & _% t& `) ?% J: g7 w# i
End If
3 D y9 S: q. S1 s, O! fEnd If 6 w( F& g0 L1 C3 o, q0 b3 @
End Sub
. V; O2 X7 o& o3 O5 I) A9 F7 Rfunction Mmove(Index) 3 T# q6 a! ?' o+ G% t
if index = "I" then 6 s4 s. D- _* u/ C6 i- C6 o
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
: {+ W; k" P0 t+ K5 ^0 K) Gdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
1 L( k- I5 a3 y; e9 e# P$ d* celse
8 `$ G0 S* _3 F' Y" A Q1 Xdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
9 d1 e; c9 D$ s* z, l" f0 ?document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
6 b! y" Z) P3 |' k& @end if * M6 Z' g, f/ A$ \. P
end function
! s. q T/ y7 `8 P! U</script>
# Z- E, Y5 w7 C2 e1 i</HTML>
2 U3 t/ j* |; }* p<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主