TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
( O- f: X2 l' _+ N' n, n( w<%If Not Request.QueryString("Ven") = "T" then%>
+ h0 `/ A5 p7 Q7 G+ H* L) M- k4 _<HTML>
, V2 A2 s1 \2 \6 w1 W; L" c+ f<HEAD>
3 ? t. I+ p ~: t+ g<META NAME="GENERATOR" C>
1 e* B# w8 a; E9 ^<TITLE></TITLE>
! x: v! F# N1 S# Z5 [</HEAD>
0 H+ J, N b2 u! o+ B$ l% x<SCRIPT LANGUAGE=vbscript>
8 }, l* E* [+ D% W8 F) b3 |function Redir()
% o+ |, |% v! T$ b% ~ y! Twindow.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"
% P8 e' Z m/ i. r0 X0 b1 ~+ _window.history.back(-1)
% x S1 [4 `* Z5 l/ N% Z% OEnd function
; ]# Q" G9 Q! e7 y</SCRIPT>
5 M1 N2 M7 w' G2 D0 C; s- B$ k<BODY onload=Redir()>
/ i- q# b- A6 `6 @7 c8 F3 m</BODY> * t. o6 \5 v9 \
</HTML>
- I- `, a$ V7 M<%else%> , ]( _3 [% X; o1 a2 w6 g; P- p
<HTML>
8 W- G( ^* K k9 h2 G) o<HEAD>
4 Y4 H3 N! l8 U ~6 u( h<META NAME="GENERATOR" C> + @1 d, U/ N4 N$ S: Y+ j& ?
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
2 P% b9 J4 C* C<Style Type="text/css">
, l* S$ D" {( j. \3 v<!-- ! b5 D2 M+ ?7 }( a ~& s) T
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
* \) J$ h7 N; ?3 T& ?1 U.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} 4 N5 e$ j% e6 W6 {6 \; |4 h
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
% U" |, x: E) S' U.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
& \( W2 C. `' M8 j1 M) }5 y9 H+ H.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} + v- M/ w- ^! _7 ]1 p) s
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} + t) J5 V* b9 Q* R, r0 X
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} 8 A0 A+ ~5 n1 f# P2 D
--> 7 w0 i4 G+ y8 a. o
</Style> ( W8 O* |7 Z- b
</HEAD> 5 ~+ ?6 ^: m* `9 A* ^
<BODY topmargin=2 leftmargin=2> & v H1 x1 i c# i9 T5 @+ F2 r
<div align="center"> # v% u0 j2 T' c6 h4 V
<center>
8 L9 H+ d5 m9 |5 d" y0 E2 H$ b<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
$ ~. \! n |7 }<center>
6 X9 ?4 z2 _! T& \3 Z9 y: F: ?<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> m9 R7 t' d! B- h0 k+ l1 w7 B4 Z
<tr height="18"> " Q. `2 \) [" Q$ @4 Y
<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> + x+ ?; @0 l! g# X0 k. ?0 s
<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 N3 S5 u" Q5 G6 Q8 m</tr>
* n! a: I5 g/ s<tr height="18">
. ^3 R5 b& e3 F, N# \<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>
3 O P1 `0 t4 p4 A) z<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> - J1 f' i+ y0 X( p
</tr> , P, a1 l8 ?. }) h5 B
<tr height="18"> : ]' p O7 S7 }7 Y7 E
<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> 6 F2 _+ B. C% U: X5 b9 s b" ]& P, R
<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>
( Y% U' M8 Y+ J) g! f2 j1 \0 r- d) s9 Z</tr>
. G; E9 l& s5 I1 ~7 U<tr height="18"> 9 U; v0 _3 O1 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> y4 m# \% g3 q% _. B8 A5 A
<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>
3 ]1 c# Q5 P4 w6 q4 T</tr> ; B) @8 s, |7 m9 g8 C
<tr height="18">
1 c3 J' h" m! P0 \+ o; 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> ! n- I6 X1 z: v1 y6 ~$ D
<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>
: o/ C7 m$ y4 n8 s) l2 h0 B; p- w</tr> 9 O. g" @, t# u6 j& c$ {
<tr height="18"> " I {7 G. w0 U9 l# G7 u2 }/ n
<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> . S6 L: D' [+ |/ ^9 r4 h b
<td ID="195" width="18"></td><td ID="196" width="18"></td><td ID="197" width="18"></td><td ID="198" width="18"></td><td ID="199" width="18"></td>
8 g: [* A4 J3 I" e+ F/ d1 {2 @- ]</tr> & w' ?$ ^1 K# a& Z9 {1 J8 U8 B6 |
<tr height="18">
7 I* n9 B4 z$ `2 Y6 ^<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>
u+ d1 S( A# H' X, i2 o+ m8 P<td ID="185" width="18"></td><td ID="186" width="18"></td><td ID="187" width="18"></td><td ID="188" width="18"></td><td ID="189" width="18"></td>
1 v8 [% e- B# V) P7 C</tr>
- m8 f! p t- n<tr height="18"> 0 Y. T' C/ l; h" b" _
<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>
$ m8 z( p' y+ C) p' ? q<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>
0 U0 y4 ~: O2 q</tr>
1 T9 ^' Z/ l q5 y5 A<tr height="18">
v0 F j0 p6 o7 H0 e. ~4 \<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>
9 B. h# \% p H" E<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> * K$ }0 S, i* q2 R6 M
</tr>
( \) C6 m+ s/ Z6 `# _/ W7 }<tr height="18"> 1 i8 @& y5 _' W# _1 W
<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>
: T! P; N, x9 {+ J: @+ {* s<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>
- e+ K+ B6 m* M& O6 \* H</tr> ,
" s% [: ]* o: ^5 w! E( P4 Z. H; D<tr height="18"> 6 D3 X; ^, K/ m9 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>
# V( V$ ] ~$ z! S/ Q8 i+ W<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>
! ~' o' h" A$ y</tr> + F& r6 N6 \& _" s3 m
<tr height="18"> & N: t9 J% M6 z& S% }- Z6 o
<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>
: ], m4 s [1 K, b5 I* @<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> ; |# O9 Y) o% r
</tr> 5 z7 H: w; O$ o9 y7 X
<tr height="18"> 6 l) K# ?7 z. B$ V
<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>
' S% M+ K1 h4 V<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 b$ a. G! {0 R, d ?3 Z) u& s</tr> % R* U1 @; v: j
<tr height="18"> % { ~& i2 _+ n5 S i
<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> 2 L7 \' y/ c- F; W5 Q- M8 n4 |3 `9 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> - V: N+ Y8 F( Y: i3 Q9 S2 s( ?
</tr> 9 Y# [9 E0 {1 W8 V1 b: J" y
<tr height="18"> . d3 N$ L, [/ c
<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> ) Z# m, w$ _* E; d6 \
<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>
6 q1 c( w- c1 m</tr> # `- {- ^2 A. ~# b( f
<tr height="18"> % T9 `4 g9 z8 W! x, H/ l+ w; B% X
<td ID="90" width="18"></td><td ID="91" width="18"></td><td ID="92" width="18"></td><td ID="93" width="18"></td><td ID="94" width="18"></td>
* ?/ p( `' V' r4 B- r1 c; w& O<td ID="95" width="18"></td><td ID="96" width="18"></td><td ID="97" width="18"></td><td ID="98" width="18"></td><td ID="99" width="18"></td> 5 v5 e! a9 W# m1 E' h
</tr> % O( z. F. t) }; _* q% q
<tr height="18"> ; [- H9 ]; Z' j# b
<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>
' N1 u; |/ w j/ |1 G) {<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>
, x( p" W5 x$ z+ A( |" S8 H</tr> : v1 f7 u) d0 S
<tr height="18"> 4 I. u% z; d1 G* X7 {# [8 I6 r7 u
<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>
2 M2 b; o/ e8 {3 @$ i<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>
8 W! e' E! v* b</tr> ) M% e* N) s' V/ X
<tr height="18">
4 p0 @# B) `( `7 {1 G<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>
, S+ D! F. X. R<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>
5 l+ u) s( E# r2 M( z</tr>
3 F# V& l g( l! |$ M; J<tr height="18"> $ J( i! x7 C% n F. I) v
<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> + r; I i( M4 d6 K, G2 }
<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> 6 I' H* }$ O- p$ u. M% n$ f
</tr> " B, `7 `$ f" ]" u
<tr height="18">
! _2 O1 g- P+ V# _& ~, N<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> + f& D1 c2 N+ ^
<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" `& c! ]0 p) F4 H g</tr> + p# O6 E% L |/ e
<tr height="18"> 6 _( B) n& ` A! V4 n
<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 ?/ G/ Z) |) b
<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> ) j" z |: ?, b; S9 U( l( ]* K) Q
</tr> 6 ]$ c& D* F+ a/ O! `
<tr height="18"> 3 U7 @0 e' _2 r0 Z! y- o- M
<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>
* O s+ p/ |% t7 ~9 @<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>
2 T- N, f% @+ o2 X" a6 Z, e: q</tr>
6 z0 i3 [! Z" l6 f<tr height="18"> 0 Q4 \0 t3 X6 k4 S/ \
<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>
/ @/ a0 o9 T0 |* n, a7 n<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>
* a% i( ?- j- u& r( M, g</tr> % W. r- X& [0 k& A) r
<tr height="18"> + L/ f; i7 ^& D+ M5 Y& K1 J- D
<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>
- N+ f9 G7 A" d$ T8 R<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> ! n4 r1 }) J( O- B
</tr> 6 [ M T) E& s6 z4 t
</table> ( o& t6 q! _+ b: D# i
</center>
4 P( h1 u& s8 j$ [! ^/ g5 K E</td> 3 ?3 M6 b4 ?6 Y% u# J# X
<td width="100">
& J/ |$ ~4 J3 z<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
s1 M2 x, Z; @, o7 F; F3 I# j<tr height="30"> 6 m7 t# j! D3 O3 }3 o" n* O
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
1 [! V. k8 Z7 G% w" ]</tr> / q; h( N' C( \& |& [0 c" [" h
<tr height="20"> # Z( p. W( i2 {7 J y6 X( f
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> 7 y6 W. N" C/ i3 {
</tr> - P% v% Y, {4 ]
<tr height="100">
( f- A" Z) T# h* j<td bgcolor="#FFCC00">
Y" w. q, w& j# ^/ Q<!-- Inicio Preview --> ; S8 s/ _. L% V
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> % K6 u8 O$ x7 m5 P- @
<tr height="18"> 3 z9 d; A7 _( Z( O* F" E9 ?
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> . g% `/ r5 W5 t8 z: {! m
</tr> / z( T: V4 D4 u+ W' D
<tr height="18"> 2 p8 d( [0 g. W& b
<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> ! A9 `$ _" K4 z; a- Z" e
</tr> * ~0 `+ b- `0 X+ O
<tr height="18">
4 c5 m4 N3 `- c6 [<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> 9 z3 l" [8 Q3 p! X, n/ z4 P
</tr> 3 m" p( S% b7 P; l+ J) S, a
</table></center></div>
$ P) {0 K5 S# G8 }* ^5 x<!-- Fin Preview --> 4 u& }/ c) l, A
</td>
7 k( E; v" W. X</tr>
H9 k/ Q6 C7 Q% M3 e* W, t( T" Q<tr height="32">
8 f! ^6 K8 _+ a2 O1 z2 R+ f! \<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
+ O o& |2 } n) u+ U$ Y" S</tr>
1 ^8 ~* H5 ] ]$ e9 b% k<tr height="32"> ; U' \! C \, G# o3 x g, b
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> 7 M1 ]' P1 e$ m) L0 g
</tr>
( T/ G: X& N$ f V) ~5 O, J<tr height="32">
! X- x, ~/ y8 H<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> 1 ~5 z+ m3 ~% _; {" }' @8 P
</tr> - M+ E* c; L [7 I5 U/ y" X
<tr height="32"> # h1 d7 V8 G9 n' h- E1 C
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
2 {+ |& @2 E! @: r( v. V; g8 w</tr>
7 Q- h& Q# t. H, C/ V5 F I9 I<tr height="32"> . S5 \, V! B3 n2 B2 h$ s+ x# F
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
/ m; e5 R6 j, w* a9 N</tr>
* ?* _) |. o4 p3 Z<tr height="32">
m, k8 l( K; c8 @7 D3 W<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
- R7 W* C0 d2 ]% X; y' @0 _</tr>
$ N+ G/ e3 g4 S; ?0 I<tr height="32"> $ T( n7 f) f# s" H* d
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
# A, M, @! j3 s$ L1 t$ e& L+ \* N</tr>
( p. Z$ e4 X: J, K i7 w<tr height="32">
- R/ u3 K( F4 M' j<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> $ _- O+ S0 u+ `1 J2 K' D
</tr>
' n- V- Q0 Q h. i; ] u' Y7 U% L$ k<tr height="38">
9 ~( U! u* D- h$ Y<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> 1 d& ~ T! K; W* J+ J
</tr> % U0 s9 z. H* t6 V+ f& O
</table>
+ S# k' P# W7 s4 O' [% _</td></tr></table></center></div> " R! C4 T7 S2 e/ Q+ z0 P( F- [
</BODY> C; w) r' }9 @' y l/ w
<SCRIPT LANGUAGE=vbscript> . P. o9 C& K# g* t0 I2 W% n* b
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver + p5 Z* ]+ |6 ?9 K
Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
1 _6 N" ?! f2 {7 iredim 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)
$ Y, U: E. C; R0 ^. S1 iLevlIni = 1
( y* ^! b$ s" e& J8 a; lPausa = False 4 t, l+ u8 F3 F( [& E( K# E
HastIni = VelLevel(LevlIni)
" _9 [7 t ]4 d* B& `( e6 _: o6 BHast = HastIni
7 H$ p, f6 W' @9 U f, f% oLevl = LevlIni
% ?. p8 i8 X% I9 }* N; UPos = Levl - 1 7 J5 N/ b$ O" L
ColorForm
1 k4 K( T% ?3 G" i9 x( oGOver = false 2 J! A) ~ k% C; I$ n' x
function Iniciar(ind) % l' s! S0 j: s9 \/ ^; _0 V K
if ind = "i" then 9 _: Y8 j9 m6 T$ V; }+ y9 \. G) M
score = 0 + `# q5 P0 I: i( C- B% O
GOver = false 9 a: g! a# V0 ]6 A6 G+ Q4 g
Hast = HastIni
% a( X/ b& N0 S+ r. ]! ~( w$ c. r. XLevl = LevlIni " Q/ j3 X/ T' B" w! P2 ~
Pos = PosLevel(Levl) " C2 \ W/ Q9 A
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
Z: \2 w$ ~& _% F. @; QFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next ( n4 [1 B) I, j' ?/ q, K
Timer1 = window.setInterval("Andar()",Hast)
6 s* a5 _) k, V( |8 P4 J7 G6 Z, pColorForm
3 L5 E4 h/ h& T$ ~) H% {Fig2 = 0 / i4 y) G! M* g) ~( x
Nyfig
. k% O3 e/ q: A2 Telse
. |0 Y: b0 Q: H" F6 twindow.clearInterval Timer1 - }7 B& u1 M5 x' ~
end if
# D1 v% m; X" w2 o5 gend function
/ R* _5 z8 T- U) y( y) ?Sub Nyfig()
' N% H( K! `$ Y+ rPos = Pos + 1
x% B* t8 C' ] z# _document.all("In06").innertext = Pos
/ Z# Q4 v6 i$ X) p$ U4 Z0 I% A- M! _Select Case Pos
9 J1 H( k# H5 I5 x% d( o" DCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
4 \% R& {" x T$ x3 w) T- @- u- jCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
5 e4 r3 r m) v: O2 w1 }Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
# r* q ^4 M% R6 ~+ u' WCase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl % e+ I# g1 v# Y8 u
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
0 H3 n+ l+ I* K/ }! N" yCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
y/ ^3 H: l" S1 M! d0 p" ECase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
! n5 f9 O _ N- WCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
3 F+ g7 @3 t/ z: g3 V. kCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
; `1 [$ \9 K9 Y8 m1 R3 \# \Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl # ]7 R+ h( Q# o- t2 J# o
End Select * P, n" D5 d* R# h
window.clearInterval Timer1 1 k |3 Z" H' B2 X$ R- X
Timer1 = window.setInterval("Andar()",Hast) ) z, B* V3 e- i* a7 P! Z5 U, U' Y
Fig = Fig2
# { e+ A4 \ t3 a, ~Farg = Farg2
' ~1 i2 ]' x( X- j) ~Fig2 = Int(Rnd * 7) + 1 , _! ?5 p" x! E% d
X = 4 " f, Y5 T* p- X) x8 [2 X, C
Y = 26 9 }1 C$ w% D: _% {; h4 z. [
Rot = 1
, E, I7 e5 f& o% F4 {+ CFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
2 s: n! R$ w" g5 ]; W+ \) {6 bSelect Case Fig2 3 B7 e! W7 P3 Q9 N% ]# U
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
8 n o) V) ^& @" u `( L2 {Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" " K; I; q" j! E! R0 _0 f- E
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" # D; U( E1 h, V8 Q
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" + _: k8 r; H- C: X% A4 _5 A5 O
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
* M+ j0 C; J, e0 S# C. _Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
4 `" |& E/ a9 x( X; }! @5 q- ZCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
" v& a0 G8 @8 [1 m, v8 ^End Select " e1 m& P9 |* `. C- V' x
For i = 1 To 4 . ]6 Q# w, t8 f' g v E
For i2 = 1 To 3
5 q5 D5 b6 l! [7 p$ [) G! Gdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
' ^6 O- {/ T- _9 w" P9 ]/ T _+ ]9 qIf s2(i, i2) = True Then : m# G% E# y [( c, T% N9 @4 s" R
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
0 n5 q; H/ ?5 N, O& I! DEnd If
& @' i3 s% E* G# V: e2 nNext i, I! F/ J4 x) {
Next
& F/ G8 w4 |, L, w" |1 HEnd Sub ) K7 a( x8 p. g: q( S m5 W% }# T
Function PosLevel(Lev) 9 i6 a' L1 |. s4 n
Select Case Lev
N/ m0 b! A' G5 v# [" @+ gCase 1: PosLevel = 1 7 a+ d) B8 p; H: z6 r
Case 2: PosLevel = 51 8 S/ U( Z7 T( M6 O. U- P
Case 3: PosLevel = 81 " |; a9 Z" {- F% K
Case 4: PosLevel = 111 " U/ b2 ]8 O. y) Q
Case 5: PosLevel = 141 ; z+ B3 q& U2 a2 ~ h* {2 B( s$ Z
Case 6: PosLevel = 181 $ m' W+ t# h: {) B+ c7 ]& F* \
Case 7: PosLevel = 221
7 h0 y9 U0 O, h7 u& E: qCase 8: PosLevel = 261 9 p3 s& n9 A" e* N/ n! {& T/ l k
Case 9: PosLevel = 301
6 d: N, k; c% {Case 10: PosLevel = 341
& p0 d) z( n' x- ]! G( m6 O, k9 g# REnd Select , E, y2 d9 y9 V w- e- E$ {; B
End Function : R9 z8 p4 D! K& F: R
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
! k }" K; T( e8 t& NFunction VelLevel(Velo)
) R, V8 L( p, l% vSelect Case Velo
7 V4 C2 K+ N0 }3 w. J0 pCase 1: VelLevel = 500
5 j4 J, y, d, D) W& }6 XCase 2: VelLevel = 450 2 F' s0 R) J% ]& M. D4 T) ^2 C
Case 3: VelLevel = 400
! ? |3 @: O: D9 p; ^Case 4: VelLevel = 350
& @9 \! k8 `+ c$ m5 QCase 5: VelLevel = 300
: M0 V3 @" x# z+ h3 ACase 6: VelLevel = 250 ( _0 j) v7 x ~
Case 7: VelLevel = 200 6 v* c% p# o& `2 ^5 f( r
Case 8: VelLevel = 150
! _$ b5 U1 M& q, n* ]# FCase 9: VelLevel = 100 + `$ a1 r% l2 w! B. G# \
Case 10: VelLevel = 50 ) P- k9 `5 K4 l- q% U: N% c
Case 11: VelLevel = 10 # A. P% N5 h" }$ S+ w% R
End Select ! p2 c9 \4 t* {; D
End Function ) a, N; J* X5 S: Y' K0 @
Sub ColorForm()
# e4 P. K" ]6 C$ Y" vFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next # L- v. \% q" V" ]) A; V3 m- i
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next : J. E. J# q# B$ e4 K N) e. h
End Sub 8 W6 m6 x. R# G( b
function Andar()
4 ^' B. C7 P1 ]/ ^# o; IFor i = 1 To 4 / l- c7 h8 _. B5 i2 ?. R5 x! q$ j
For i2 = 1 To 4
) `) u3 @( T0 E& Z5 ]8 w5 hIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 ; Y2 G f" U/ o# u# _ j
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
- }( D8 |; i- v7 ^If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
6 S3 O. f& u- x* H [9 C: p: WEnd If
. R9 ^/ r- o! V+ aNext
, b; X8 C$ p. V8 p$ HNext 1 S/ u- y v- p) b
If Fig = 0 Then . T; i9 h8 y2 J+ F
For i = 1 To 4
6 J( P' Q6 K) c' GFor i2 = 1 To 4
- v' p: v" r: T* v( [. uIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
% c9 H$ X: Y7 R/ A. q; HNext
1 X* k, K2 _. f# @Next 4 H9 {2 N7 e& N0 o! r8 s7 J' U9 l
Ner
, S* d( |/ |- U- yNyfig 3 D k: v: I4 k7 A; Z8 B1 L) E: Y) r
Else 3 g& i4 J+ _! @1 ^6 \' }, G
For i = 1 To 4 % a: d* L8 s/ G/ H) B4 ?
For i2 = 1 To 4
8 s" ~6 d6 c7 D; | rIf s(i, i2) = True And s(i, i2 - 1) = False Then
" t3 K; R4 j" h3 V# adocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
- g0 e/ p- E, F3 b/ VEnd If : j0 H) `- o7 J% x/ p6 Y
Next
5 {/ }: X9 O# G) E" o. INext
' O; u' h& y/ J3 k2 F/ F8 C BEnd If : d, z, \* j0 w
Y = Y - 1 * N8 H' a$ O+ `$ }! N
For i = 1 To 4 # @% Y/ V C! I
For i2 = 1 To 4
8 ]$ m4 Q" h" a8 M- H2 \5 [If s(i, i2) = True Then
6 m7 _0 J# u8 bif not gover = true then + N) T" x9 J6 K4 s
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 9 Q" g: E# d7 K
Gameover . ^! m) S) q( _( F$ P
end if
+ H7 h( e) _+ v% _1 T# Yend if - G2 X1 q/ W$ }; [; W# g
End If : ~) v" v+ I* W, }# v# a
If s(i, i2) = True Then
# x, ]2 n1 Q: _5 X1 |document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
: h2 P6 u' z9 [8 oEnd If : O- J# F0 U7 {$ `: t
Next
8 S$ V2 n4 c/ \" S7 F/ XNext
3 t6 P4 f3 m. l6 A3 k zend function ! y& [( G: Y0 H* r$ K
Sub Gameover()
& b* R$ r# J9 K1 V7 H( wMsgBox "游戏结束！", , "俄罗斯方块"
3 J8 H* u, m# N' L+ a. V$ rwindow.clearInterval Timer1 , ~' s9 N: k1 T) M
GOver = true 3 M0 J! J" r5 c* Q. K
End Sub # D; t4 r) B4 R5 p; H5 M
Sub Ner() 8 z9 Q& i* v9 l& S- L. n
Score = Score + 10
/ d" H( y! }0 X& fdocument.all("Sco02").innertext = Score + Z: Y) e+ C/ D/ x1 F
For i2 = 25 To 1 Step -1
2 q0 a7 P3 t* q8 }0 c# v) Jok = 1
3 ~. j, _3 u% [) T: N; eFor i = 1 To 10
. N9 L/ i- w4 I& p: W% L0 t9 S% J8 ~" qIf n(i, i2) = False Then ok = 0
! Z: _0 P% L4 \( s1 B7 DNext
% E& b' Q, s1 i. x% f/ QIf ok = 1 Then
5 I4 e5 L* m1 y% G* AScore = Score + 150
* ?# J4 q4 b: o4 I9 J% d. Wdocument.all("Sco02").innertext = Score 7 m9 u1 r7 E! U4 N4 q$ j& O
For i = 1 To 10
0 i' C# h% C# c5 ZFor i3 = i2 To 24
& _( _: \/ _! i: An(i, i3) = n(i, i3 + 1) w7 Z- k5 ~- h1 ^8 h2 H
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
- u- B3 b% {3 x6 O' dNext # s0 g3 y$ A; B K9 g# k& z2 }$ D
Next
% p ^. o& S) b5 JEnd If ( ]5 S! S- P7 [' c, z2 ?$ O$ b
Next
- X( M$ Q$ j0 @) c! dEnd Sub
6 R* @8 n0 U9 _! S1 G" mFunction coor(xx, yy)
5 t |0 \0 z" w/ u/ p. X1 O7 zcoor = (yy - 1) * 10 + xx - 1 $ Y- J" Q0 E" H$ ]4 S& Y1 V
End Function
: A- b4 b: \% [+ ^% V/ gSub Rota() - X9 z& h" y, l K2 K7 O* C& l" J
Rot2 = Rot + 1 . _$ |( I3 s" y8 m
If Rot2 = 5 Then Rot2 = 1
5 a J2 N* } e, GIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
2 q- ^. L4 S# F' nFor i = 1 To 4 0 D$ r7 z9 }8 L: d7 l" i+ U
For i2 = 1 To 4 ! Z2 m# S# x7 Z' R4 A, O% V
s3(i, i2) = 0
: Q* V1 V. g# B' p: B! cNext ' ]3 q3 S0 f/ p. n t7 H' d
Next ' o8 z2 i1 ? a0 S" }. O
Select Case Fig
4 s& n+ ^4 k$ BCase 2 ' [3 U( N. e% j( ?, Q
Select Case Rot2 " s7 @5 C4 o) k7 \
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
" T0 S' t* f; c# Z. |( b* pCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
# \6 i. U; y# REnd Select
* V% g3 B4 K! ?+ U. \2 [6 `Case 3
, g, r4 {7 x& d9 |( q- P6 W$ ?Select Case Rot2 6 c( h* @5 \( H/ u( G* b5 w
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
* o1 `- @5 H* A0 Q- a5 L' eCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
! x; b1 H- r: f1 N. S& _Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True & Y9 K( |0 P. a2 p5 B1 Z. t7 b: L' g/ e9 Y
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
& F% L7 U+ F F0 W. N PEnd Select 0 q- V; `4 Z3 _: K# r) }
Case 4 4 B3 H2 r/ t, w. }/ d; f
Select Case Rot2
4 v3 |4 _, ]7 l1 t" TCase 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
0 H- p; d8 D/ w7 cCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True 8 X5 l: }/ i4 ]& g2 g
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True : O( E, B3 v" D. X* Y1 v( o
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ! e) x& I; C% J
End Select 7 R( ^8 f+ Y' ^ \$ f o
Case 5
( A& h/ m' a" L1 I9 o3 |Select Case Rot2 : O. C3 u/ Q( b! S% H) z2 H
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True & x {: S/ {, l2 Q5 }" |
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
/ j$ u. f- p8 {& x2 Z% PCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True ' z( A1 R- L: l
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True 4 b- ~# l! l$ F" S) ~+ J
End Select , N4 {5 A5 w5 X; I
Case 6
" ^4 Y4 i' L# L4 H1 [2 xSelect Case Rot2
# Z8 }* ?! T& K& n5 {4 [Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True : c3 L9 _ l& w* n/ B$ q$ E
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True + }0 X1 e7 `5 S, r6 G% y
End Select 1 x$ N* u+ \6 i# ]
Case 7
6 y; y0 Y3 F$ z( V# iSelect Case Rot2
) Q$ o- u; {- `7 m4 r% x1 \Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True ! P6 V& X3 P/ f4 F) Z K: ?" F
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
+ a' j. h+ z. U! \; L, O; QEnd Select
& n4 Q7 n+ C X$ O7 q1 ]End Select
, _# W7 v% J' T7 Q: d. Ook = 1
1 c, F0 G1 ^3 jFor i = 1 To 4
7 d$ M5 \/ p2 d8 TFor i2 = 1 To 4
' n$ b9 J( M1 R1 H0 B: U" yIf s3(i, i2) = True Then # d/ C- u7 K# q7 \- \8 o
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
( }# p ?" X& TIf ok = 1 Then
0 r- l3 N) g }2 K7 J. RIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
! Z/ ?5 P; \' t- A9 NEnd If # [" t; S. S- a: D a( [
End If
+ j# |( C# s$ ^# f1 B# T( eNext ' p) H' ~+ U" y
Next ' ~ M* R7 R0 w7 X7 s6 t
If ok = 0 Then Exit Sub
E L( E2 M, y5 eRot = Rot2
% h, x1 H1 X5 P* v! CFor i = 1 To 4
) o7 E b5 }' a, x. tFor i2 = 1 To 4
% w6 a9 h. [7 [* v5 SIf s3(i, i2) = True And s(i, i2) = False Then ! u3 e% `7 C1 M5 N; W/ W" U& C4 V
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg + K6 J! M% x/ i) ]% I
End If
. l5 I, O4 C0 R8 vIf s3(i, i2) = False And s(i, i2) = True Then $ {, b, A% a- I3 \( J: ?, M
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" & o# ?( j/ }( y4 c2 X9 W
End If
6 i R" l. ]" o! ^* B- ls(i, i2) = s3(i, i2)
/ B9 X2 S# ]6 tNext
: z$ Q* ~/ q& g& r. r( gNext
2 ]5 R# [* M7 z9 CEnd Sub
/ Y7 D2 Y8 _% w. f( vSub document_onkeydown
" T3 E1 C# g" R5 `$ I# zIf window.event.keyCode = 27 Then msgbox "Pause",,"TET"
& o0 m4 A# r4 QIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") : {0 C* Y" T9 w" k! I
If window.event.keyCode = 113 Then iniciar("i") 9 w% ?- K& x! @2 v- J
If Not Pausa = True Then , ?* b3 }0 s2 \% d
If window.event.keyCode = 38 And Fig > 1 Then Rota
( f% x4 q+ ^! P4 xIf window.event.keyCode = 37 Then ) j1 p; V% d7 j1 Q! g! F7 p6 q5 [% e
ok = 1
/ X3 O; R- |, z* a+ mFor i = 1 To 4 + U9 Y7 a4 E- |! |4 Z
For i2 = 1 To 4 7 m% X6 ? R9 ~7 ]. B- O
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
3 G) Y$ @# Y3 M l/ wIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
) u$ A" C8 |0 t8 q3 w' k- I* k, _End If 9 N3 T5 ~2 x; L9 [. r6 c5 v
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
+ b0 |, h$ g5 G. E9 X: tNext
* V$ f1 r% E- R. Y* D/ l2 {3 BNext ) W7 Q5 L5 u( x& T& f- I1 c+ g: a
If ok = 1 Then
" d1 X6 F4 ~: F9 H4 c- j2 TX = X - 1
+ T1 y1 [0 j1 O) |7 Y; M0 o& SFor i = 1 To 4 3 k) T1 v! D8 s8 z
For i2 = 1 To 4
9 ?% g* L! b/ {5 OIf s(i, i2) = True Then
* y: t8 U$ ?! f" {' A- [3 NIf s(i + 1, i2) = False Then % A9 V9 O5 \5 E# H, s# U5 x
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
; P) Y& s& e' a. Y0 yEnd If
; [" G, k) @/ m- zEnd If
1 q- ^# O" g9 m. hIf s(i, i2) = True Then
! Z7 w5 X5 F" ? i0 pdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
' d9 _3 h) N9 j# ?, ]: hEnd If 8 U3 R* Y7 w6 w2 o
Next
8 E- J2 |4 K9 E0 U( NNext , E; Y: M4 i h z% ^
End If
6 Q3 m2 C, X i' j& m, Q# A6 `End If 7 ^$ z! k! `5 [+ o" F
If window.event.keyCode = 39 Then
K3 A8 @4 w3 }* h& [- G0 X4 Jok = 1
+ J: L7 J9 J6 U. cFor i = 1 To 4 ; a! I' ]3 z7 m
For i2 = 1 To 4 0 V" i1 ~+ w+ `; c
If s(i, i2) = True And X + i - 1 + 1 < 11 Then `' [- `$ V6 p
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 4 E% p* T( E, H, f9 s5 [5 o
End If
5 w( e7 \ q$ N- h9 X, qIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 # v$ n6 s; Y% _4 |/ B
Next
* Q9 \, m% w5 @4 C- { INext
7 R, `6 H6 T% j9 a3 p+ e* e: fIf ok = 1 Then 2 l; i3 ^) Z, ^( x: i9 p1 C
X = X + 1 ! e+ i- F. R8 I7 N4 N, ]. E
For i = 1 To 4
4 N5 O3 n+ c5 I6 AFor i2 = 1 To 4
1 f- K" U! X3 v `; ~If s(i, i2) = True Then
6 }; s/ R, c3 C4 P! t, \6 ]4 OIf s(i - 1, i2) = False Then - Y* l7 S# j! j
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
; N9 D! n: j6 N& z# `End If
8 v s3 m# G7 S) a9 {End If
1 Q6 o) Y0 H9 v6 uIf s(i, i2) = True Then 6 Q* f7 `: M5 J0 |
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
/ J% v( X) x [" ?+ X* ^ @% \End If 7 N& e0 J. c7 z* b7 k0 a
Next
2 q X" l, ~ c/ L: sNext . p2 @4 i1 S# ~" \1 r
End If 1 h% x* }, p6 W6 J: x
End If
$ \( F/ m0 a3 ?: Q g% c“Aqui . W b: r% K& {
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then & k0 N+ a/ o1 @* D& H+ c
If Fig > 0 Then - z o! G* R; t$ F3 `/ c3 r4 o
For i = 1 To 4 - r4 w! I; ^5 U1 z c3 ?4 \7 Y
For i2 = 1 To 4 ; d1 W$ J- u' Y* d2 \
If s(i, i2) = True Then 8 v0 l- ~# h/ \+ K2 a3 H) Q- b
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
6 `) P% r/ |: ]$ j0 t8 }End If
4 G% V1 }6 ~7 }- u' QNext 1 t; z2 K2 O! N2 c5 i/ ~" |' b# v' N
Next
8 `9 u! W! l8 t) p/ M' r. iDo
5 W H% s7 E, j* A0 ~4 `( t. NY = Y - 1 * r; O) @2 f' s2 [; }( R; L
For i = 1 To 4 ; Z' i# s" i: |" s( Q4 R
For i2 = 1 To 4
" D2 d1 M% y) c! A% E% s4 s: b! F9 TIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
( A3 @' r" P, j; U, S' x! P4 v" f8 NIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then 3 s7 f/ i# K6 S8 i( Y6 T
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
5 Q, R( @# [2 A4 q: LEnd If # k; \) X* R0 b% C% s/ Y& z7 Z
Next
9 j% D* b1 t( w: `Next
$ q/ E! W: {( t n8 W( TLoop Until Fig = 0
: e; o; W- k6 L' ZFor i = 1 To 4
: B* h+ V+ s3 ~3 R. @For i2 = 1 To 4
6 U2 {% ~0 \7 k4 VIf s(i, i2) = True Then
8 Z r- T2 l* E2 O& v* `( @/ R) pdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
! n$ b- ]8 y2 L7 _End If 1 b# K Q( {& m
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
# L, H! v# ~+ i; N. w( uNext
( c1 t S/ J$ d! H" q# BNext
& X) j) C% O5 E! ?- l# wEnd If
: w: J% _* i- o3 U% n2 SEnd If
9 T" ^+ l0 a/ K2 T+ NEnd If
5 ^. k" e7 z7 UEnd Sub
0 f- h" j" i" F9 Z- `. f" b! \9 ifunction Mmove(Index)
8 D) v3 C8 b/ X/ ?6 Qif index = "I" then # @/ L m$ F% b& _
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
2 X' X& Q- T) P }7 c3 mdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
+ X" \! P' K) \else " f5 Z8 q/ A6 F7 l7 x
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
% D& t; `& Y8 i2 n! y+ T! Tdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" 3 {) u6 z- ~) K# U/ a
end if # W0 H, {6 l/ Q
end function
0 i9 B. C) d0 e7 L" V3 X# w" ]</script> ' d) g. {- A, G
</HTML> " S a6 g) C9 w, N+ p+ X+ P8 v
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主