TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
, s/ O: t1 a6 ?6 n+ | P<%If Not Request.QueryString("Ven") = "T" then%>
5 c: y. t0 z4 |. S2 X1 v7 @! b<HTML> / ~" l+ ]2 j* W$ D0 \
<HEAD>
" |( F& Z% Z/ A8 A$ L f<META NAME="GENERATOR" C> % ?& ~$ p$ K3 I! [2 s6 a8 G4 O. {
<TITLE></TITLE>
9 F" b7 H5 e( l( A+ y</HEAD>
3 l$ J; o4 \, R, C! g<SCRIPT LANGUAGE=vbscript>
+ R& Y; K- M# w- n$ Bfunction Redir()
" s9 j8 `3 v- {" F4 q B) q/ 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"
# M2 S3 ]0 ?, uwindow.history.back(-1) 3 f4 q* B: a6 \+ N3 i
End function
. ^6 z3 b7 c! C/ e( v</SCRIPT>
( }$ \; |" I+ t7 I<BODY onload=Redir()> ( L7 g, @/ K2 E" y! o. \, ?/ {3 V
</BODY> 1 y8 |5 W, H+ }( i. }
</HTML> 2 Q& P$ `' o7 h
<%else%> ( g/ G2 I# I, z
<HTML>
/ O4 @8 C9 {# a<HEAD>
+ a3 |" M, S) e<META NAME="GENERATOR" C> 4 `1 \6 _, k E! }/ `( A
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
1 {, ]% ~/ Y1 \1 ?<Style Type="text/css">
5 x1 v* c( O6 x6 y" K, c# c<!-- : {5 s% H9 O- t/ l( s
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} & r5 |# z4 B+ E2 C
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
/ @: ^; @1 {$ _$ d.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} 7 f w! J; v% R# D
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
w* E4 b% [$ h8 z9 C% S.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
a! J3 ` i4 n+ Q& o7 V4 f.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} 6 w L( c! a- w- ^: r% t2 w
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} " p: R" m' c0 w+ n3 K
--> 7 w( d7 `# U- t# \) w0 Y3 O6 |0 e) {; n
</Style>
+ H1 o( O% ^- Y) R) O# {. {9 @</HEAD>
2 e% _9 r2 F5 g, p<BODY topmargin=2 leftmargin=2> $ ~% P+ H; o8 P+ @' J
<div align="center">
0 i# a" y. @ F' W4 N3 G<center>
! ~% g/ z! U" ~4 k; z3 T9 ~6 w& o<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
# i: d9 ]. T8 s- b* I<center> 9 S: a; A9 |. R! b4 k* \! S
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
/ ~9 E/ D6 N) g! C% |<tr height="18">
& W, Z6 k7 m' @/ ?4 g+ Z) 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>
, v4 `5 O$ e& l- {0 H' }<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>
# o& {* w4 V. z7 o: p</tr>
2 O" f, A: ^( f<tr height="18"> T. z# B- S6 T) 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> 7 Y7 k+ f) f( a" U4 h0 [
<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>
1 }& K! T& H/ Q6 J* y# C, {</tr>
: |: B8 e2 m8 _3 m<tr height="18"> & ]3 X# U- |: ?' R$ P: G* t, l& l
<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> # g7 j5 N+ A1 q; w9 Q! f
<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>
! |+ J! z) c) _8 O+ O/ W- @# R</tr>
0 u A( y0 a% [9 ^. c1 W s<tr height="18"> 9 W( N: i1 J T4 |
<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>
5 c" N3 D3 {$ r7 k" F* x7 }, o2 P<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> ! X" c1 ?. g6 }# v5 I, R: K: E
</tr> 8 U6 I9 D/ _' Y' W
<tr height="18">
+ ~/ I, h1 n3 \7 u& @6 a" \6 ]& H<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> ) O. V: M0 u# H* ^% |8 g1 T
<td ID="205" width="18"></td><td ID="206" width="18"></td><td ID="207" width="18"></td><td ID="208" width="18"></td><td ID="209" width="18"></td>
9 t5 ^9 s. K6 T5 p+ D3 C</tr>
* ~! p! e/ B6 j$ k( {2 F<tr height="18"> 8 |; Z0 ~& O6 {& h- b
<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> ) M8 ^- c; ~6 Z+ @3 I& X p, X
<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>
& z1 H" o. \ I% _</tr>
! a- ^1 n8 |8 F* i<tr height="18"> + @8 s+ \0 n: R# m" p5 X% k
<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>
" T) R# g3 b) p# ~# U2 B, ~<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>
6 o( x6 V! X. ?9 P$ O7 s, v8 a</tr>
: h3 ^/ o7 \2 `3 v( a2 _<tr height="18">
/ M3 }6 h4 O4 q<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> 8 M9 z( g/ o9 A: c4 M% O0 j
<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>
3 Z1 ]/ T" C. J' Y; Q</tr> 1 x2 L6 v: q: M( F0 m. E, |: O
<tr height="18">
8 S" @) N& R, G- ~5 O) [, A2 O<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> ! h+ b* m' q+ m6 |
<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> 3 h# p4 Q+ Y1 j
</tr>
( W# A* D5 ]; w& Z, r<tr height="18">
2 s: e4 h- K8 ]( N+ L) n<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> $ N9 A8 z" n, I
<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> & x+ Q% Z! z8 y5 K3 Y, d) k! c
</tr> ,
+ W+ u% W6 T6 o; k, \<tr height="18">
: x1 U" I: W1 V, @) a, W<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>
1 p) ~0 j/ X' K' Z<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>
0 I, Y2 ^7 C0 G</tr> % y. k' X2 F/ M
<tr height="18"> % p$ Y% j' x' e9 K' O% h
<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>
3 O/ \' g E& F<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> 8 s; v% a) y4 b4 u0 B
</tr>
& P; c2 l+ S$ G8 P) b! }$ k<tr height="18"> ( \; f- j" ?9 l# N* z
<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>
3 \! I) ]/ w, J# i# V& a! ^0 H<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>
( N9 H8 `% P: _0 Y</tr> h* l( h( s7 H" `4 J
<tr height="18"> 0 g* h% n/ F2 f6 a; F' v! [
<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> " M; h$ \+ O2 Y3 @2 }
<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> 4 ~" w0 G) T+ T% H( V+ D5 o% ^
</tr> 9 c6 o4 e( q8 A; z/ t/ k
<tr height="18">
! z' P+ L! p) u x/ B4 e; C. E<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>
+ F1 w& R" o" M" ]7 x<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> ) K: m% f q" _4 Z0 u* h6 }" ^
</tr>
; U* u) i3 y+ U<tr height="18">
' g$ v2 b) k) L/ o: j' c5 A j<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>
L4 w/ ?7 C9 p v' g8 V<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> 7 \& b9 f' R3 }/ C5 R1 d
</tr> 2 J5 @4 Q2 E4 D4 l. @* L3 m* n
<tr height="18"> # K9 w [! S P l) T; G$ f! p
<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>
( Y. d! l1 `" ~<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>
- }+ D4 |7 N0 @5 e</tr>
* O- X* f2 |4 ~# [+ g! B<tr height="18">
' V, I. _; B0 l( x<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> 0 W1 a/ i& j% O5 Q$ K1 m
<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> 2 Z" `0 Y4 c. f$ P) ^
</tr>
& }% n* {# n# d2 ?<tr height="18"> ) c v" E2 D! ~. L- Z5 ]: `
<td ID="60" width="18"></td><td ID="61" width="18"></td><td ID="62" width="18"></td><td ID="63" width="18"></td><td ID="64" width="18"></td>
, J( |) ]% d5 h; w, h# B# 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>
1 F9 | ?$ c: z% A9 m</tr>
1 u# m* Q K4 Q2 R<tr height="18"> / ^) w% v) N( ?1 G4 e$ i
<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>
5 e/ M, M9 O; w* U. w' \<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>
9 T. o0 W! ?! m8 O9 ~8 e0 ]& m</tr>
. ^, G- ?8 g, s# }, y( h+ C<tr height="18"> 3 p$ `0 j6 z5 v! x# J. k0 W, g
<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>
; g; i, ~) `, q, D; p<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>
6 m1 H. ^3 d7 P' r/ q0 B) C4 {</tr>
" X$ @' q, g+ q* t9 O* V) ?. r$ ^<tr height="18"> 8 t* r, g2 r0 [! v
<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 N$ A) u: ~+ c) N# Q# A<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> 4 s& L! B4 Y1 v% C
</tr> " I- _; X6 [4 s* |, i
<tr height="18"> $ x0 Z. W: F7 o0 m$ d8 A9 z2 P" g5 s
<td ID="20" width="18"></td><td ID="21" width="18"></td><td ID="22" width="18"></td><td ID="23" width="18"></td><td ID="24" width="18"></td>
& |: c& ]4 e9 L8 H: h<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>
/ }) j/ w/ z% w' z</tr>
6 F' o( o+ ]3 m) |: q# {<tr height="18">
& G/ S% {, i' p+ f<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> & V' o }& K, x6 F' g
<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>
: J# e0 o" X- l</tr>
h- S0 C& B2 ]$ k<tr height="18">
: Z/ Y6 l' [ Q2 O1 t+ g2 g<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>
/ H; u9 Y8 y. q! @! E$ Y& f" ` j<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>
& G& z! x4 ~% g</tr>
# `5 K6 g8 @5 j" m; @, E$ b9 G- }</table> 5 i7 S7 z6 i8 o4 T0 T
</center> 2 m! h5 a) r& m$ ]* v
</td> ( S4 ]% D9 {+ c9 V9 ?' Q; f
<td width="100">
4 v$ ?$ G& L) Y! ~+ ]. ^<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 9 |4 {! l4 j' |# q' x
<tr height="30"> 2 z+ W. c+ k& w |1 z
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
' a! J6 K7 }0 b4 e f</tr>
U- i+ M8 ?0 w% K: r/ G<tr height="20">
) ]: Y" _, m. z5 q<td class=normalD align=center bgcolor="#FFCC00">提示区</td> , C. o3 G7 M0 o9 N- S5 A
</tr>
% z4 R" a8 Z3 e( J) ?+ H<tr height="100"> % g( ?$ V0 I* C; m
<td bgcolor="#FFCC00">
! E7 d- r) U" Q2 W1 J<!-- Inicio Preview -->
# A; J0 n: ~9 ?0 I7 ?: r<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> 8 p7 X0 ^5 ]; N) o3 N! \1 d( M' T, J0 g
<tr height="18"> % _+ F, M0 h9 f7 z. L$ E& j/ x
<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 x# h$ O) c1 v</tr> ' Z* W8 E4 f. }$ G( r
<tr height="18"> % j2 L0 ^; O7 O' V q3 [
<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
2 U* A. D) G4 B1 j' g</tr> 6 ^, Q! ?7 w) G% Z
<tr height="18"> # c/ S' ~, `- D' U7 }* S" R0 m0 u
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> ! q% e4 Y ^" ~- f& W1 Z3 t# S
</tr>
v6 \! I* t- A0 F0 C</table></center></div> 3 ]. `3 z* q1 |5 x
<!-- Fin Preview --> Y6 Q' h' x5 U; r
</td> * V$ {9 r) t" Q
</tr>
4 N. F; P4 E Z+ ^6 f6 M<tr height="32">
; e7 [ c! z& t$ Y! o! j) V<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
( Y3 E. z3 j, ?' t* w</tr> 0 {# j" m# a+ b6 a' ]% Z# k8 T! n
<tr height="32"> 4 F. u8 O9 p2 K
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> ' g f3 h8 A+ e1 I2 K4 G4 ?
</tr>
7 C; _! u/ f5 O- _" l& G+ E<tr height="32">
8 Z( I! P. X- o0 E! F<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
n9 Z% a. P- G" g/ c) ]</tr> ! L7 F3 K- Y8 E5 [6 P- h L) y. r
<tr height="32">
4 W/ T3 Y& |6 ]1 x<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> % H V, ~2 i7 I& h3 ~8 B
</tr>
+ q; X% v7 K, u4 R1 b y( b: ?<tr height="32"> ! v* o6 e7 v% G
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
1 ^0 E3 G' x& u</tr> 4 `! _3 V7 }. z% }2 f/ R2 {
<tr height="32"> 9 x& Q$ ?( x+ E {( Q2 g3 J; x4 }5 ?
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ! Y: @; B( f) X
</tr>
+ r; `3 s8 i/ a2 }8 h s% B% i1 ^<tr height="32"> 9 U7 T: s2 S5 \! u+ H" S
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> # S0 Y* ~5 z- f" m/ i# e9 C
</tr> ! m5 T8 D0 K/ y' B+ a0 c
<tr height="32">
6 o/ b) v! y$ r$ q- m<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
& k; D7 T# w2 M4 H B7 O2 n5 t</tr>
( q8 t" q2 S# H0 j) n<tr height="38"> " ?( H- h2 U8 Z1 Z l1 n) j Q
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> 0 r; b+ F5 [4 z+ a" I
</tr>
2 f: M( a4 ]. j5 _1 l; m( G</table> 3 r7 F/ |- `9 \5 w. q/ ~
</td></tr></table></center></div>
" z* H- Z( t9 K# ?( t* ?5 o</BODY>
4 Q- t% C" e8 J+ Q<SCRIPT LANGUAGE=vbscript>
( u& J/ l4 o; O6 s0 P/ hDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver 4 T, F4 S/ g' @( U# f
Dim hs(),sor(),hsant(),n(),s(),s2(),s3() * F' H4 s! B( D g
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)
. Z- Y; R: M% V/ B8 v, kLevlIni = 1
8 R8 t# W# J& Z Q( o. F! ` LPausa = False ; h6 V* w6 N7 ? a" U; B
HastIni = VelLevel(LevlIni) ; d. Q+ ^; f3 ~' ~2 f5 u* V$ n
Hast = HastIni
7 w# Q7 b# _1 w) b N5 o1 pLevl = LevlIni . Z, B) y* C" p
Pos = Levl - 1
; b+ [% y Q* W7 X6 N+ s* MColorForm : f$ G% ^3 B0 A6 A/ X, a: M
GOver = false
5 A, b9 P, F( Q7 Xfunction Iniciar(ind) " v, e: G: a0 |1 G! s* p
if ind = "i" then
) n' X$ d- c+ T( r+ Y+ }9 \) J; O, nscore = 0
/ X$ d9 C0 Y$ @+ ]# q. cGOver = false ' v2 w9 A" z' b8 F0 `
Hast = HastIni
' e1 _. e. Z- A1 p, U% e/ [; TLevl = LevlIni / l" s" x/ N' |1 O2 D1 G5 V' T' {
Pos = PosLevel(Levl)
: A1 Y! p) d, tFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next ; c# Y3 n( k1 r
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next 4 k6 f; {" D( {. r% m! z( ?
Timer1 = window.setInterval("Andar()",Hast)
& L& v' C8 n, bColorForm # d2 a3 u C4 O9 z
Fig2 = 0
+ H1 ]4 g m* _8 tNyfig
4 J: m0 H( J; |) F: `1 helse
: ?9 |: N) k! e: J P* {/ ~& lwindow.clearInterval Timer1
( m+ G) S1 M; g) @end if
& n& |8 U" V* @7 T! u% H$ ~) [. Wend function ) S1 p' V4 v# G
Sub Nyfig()
( @" I2 q' O7 ePos = Pos + 1 0 b! {" E1 [- a, f
document.all("In06").innertext = Pos
9 k3 H8 b9 f" s& M1 n, {Select Case Pos
2 ]+ H, f2 c- E7 ~- ?/ R0 \: bCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl ' E1 f5 k) R% u8 z
Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
( _- ^/ }! \4 j1 A) PCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl " G5 I: }1 t+ w: N% h- ^0 Z, }
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
" v( t4 c; Y% `- n: e: L* r% yCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 3 u) |" T" w# l j. R0 S, m _9 a
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 v, u0 S8 Q6 r- @9 E+ z
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
* f3 N( q' |/ k5 qCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl * ~* \6 X: S7 d W. `
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl & D$ S7 N# V" |) v
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl + J% [7 D5 k' \( Z; e
End Select
: Z) a5 }: _8 M9 B' T8 K, w# iwindow.clearInterval Timer1 4 |& ~. Y6 ?& w& U9 u0 v
Timer1 = window.setInterval("Andar()",Hast) ) J4 J; R' }4 I w2 H, | U* l
Fig = Fig2
" {3 J2 M5 F9 P0 w5 r% j) _Farg = Farg2 8 }0 E7 Z' f; J$ q8 t P
Fig2 = Int(Rnd * 7) + 1 3 |+ K7 M5 q+ A; K0 ~2 [" O% F
X = 4
! d1 b; _4 _3 s5 f0 PY = 26 ( s. Y2 K5 Y* @7 X2 ?
Rot = 1
% d! V4 S" F& ? DFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next 6 C- Y" e6 v( D6 D* Z" ]
Select Case Fig2 1 z" X, E* x( L, l! n1 N* r
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" , }* {6 d% Z F+ J1 M
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
" G% N8 _' J& ]6 ?Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
8 i$ e' r: E# x& l! VCase 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" $ u# ]( {( Q" A p$ T# P3 }7 L
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
: w4 ?3 X( C0 C9 RCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" + d$ Z7 A: J/ K' n' t) S+ H
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
6 z" Z/ \) D4 \5 @) Y: zEnd Select 2 J6 y: t& I. k* S- M8 i" b
For i = 1 To 4
- E5 o) j: w8 ZFor i2 = 1 To 3
5 Q( j3 d1 _2 a( @ Ydocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" 8 O2 k3 V1 ]/ [5 h: U. N4 i
If s2(i, i2) = True Then 0 K- F- T) }( [7 N0 n" P
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
4 x& N6 r! h5 v7 x+ MEnd If
7 q9 ?/ A _, \% [, R. CNext
* D5 C9 B3 _2 h0 b' O' {+ }1 L1 ~' zNext
& q+ ]4 V/ _+ e- ^7 M. \) SEnd Sub
/ E# c% b; u) u6 yFunction PosLevel(Lev)
& o0 k h, D* H$ w- N7 zSelect Case Lev 9 o! V! F9 E+ Q* ], Z
Case 1: PosLevel = 1 9 j1 N# b( [* k4 \1 C# N3 k e
Case 2: PosLevel = 51
4 B+ b2 U8 z J6 r9 {. yCase 3: PosLevel = 81
9 Q4 w4 r7 V1 r8 F, `0 |Case 4: PosLevel = 111
0 B! m! m$ m: A. W2 s, ~; t, sCase 5: PosLevel = 141 . z# Z7 J, U# ^& N& g
Case 6: PosLevel = 181
0 }$ [( w5 | Y; |8 rCase 7: PosLevel = 221
! Q) Q+ H1 F8 V" T+ FCase 8: PosLevel = 261 2 {* F; O6 Q, q& N2 n: x
Case 9: PosLevel = 301 # o% K* n7 v7 `# s
Case 10: PosLevel = 341 3 a2 L; L: y8 E) o' l7 K/ @: _
End Select
' m* ~& j& M. j# w/ h4 a- sEnd Function / s" A% m1 s1 j2 ^
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
* W) P4 ] h6 }* j( U8 r) DFunction VelLevel(Velo) $ E* o' W& F. _: n j ` k/ p
Select Case Velo
$ k; P- r7 l2 p% _Case 1: VelLevel = 500
5 P6 S( R K& b/ y- _/ \7 fCase 2: VelLevel = 450
' e7 V' d2 q" V# wCase 3: VelLevel = 400 4 F, O4 e% q% e9 I. v
Case 4: VelLevel = 350 8 j' Z6 \3 `& E5 R% ^+ m
Case 5: VelLevel = 300
# L7 a8 ]. H) h9 \: Q6 q) xCase 6: VelLevel = 250
" u1 M3 {" K% M6 s5 h- _. mCase 7: VelLevel = 200
# ^6 H Q2 D. _$ L6 @ \Case 8: VelLevel = 150 4 [: {" S: m/ f( ~
Case 9: VelLevel = 100
- f5 V! _& @# q9 d/ MCase 10: VelLevel = 50
& ]* O$ Z6 f0 {( X* u. a# @, WCase 11: VelLevel = 10
: c$ j* [: T7 Q& ZEnd Select
0 F: [% z2 X# {2 ]End Function H H' E& w: ?, g
Sub ColorForm()
7 T; Q1 F4 k# j* y+ g, K2 BFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next $ T2 a ]+ a: T3 k) l3 c
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
l4 b5 T% U ?* z- W% HEnd Sub
9 Y- i; ]/ _2 qfunction Andar()
: ?( p! D; a. Y" y' y" g9 sFor i = 1 To 4 5 ~* D4 m3 E2 H' Y. t9 n
For i2 = 1 To 4 9 l* L/ F1 T, y- L! L8 S
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
* K8 E8 L6 }2 H: [If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
/ o3 T) G& ^& Y' x wIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
; w" p3 h" g( i5 i, S) m) gEnd If
1 N. h; w) u3 `0 d: D9 s3 INext 6 G* B. c' P7 r; B# |
Next
& C# h' r) k4 W* z4 ^If Fig = 0 Then ' [) W! m& r& Q+ X: F7 I: H' e
For i = 1 To 4
9 D2 Y. C/ i0 ?2 M \1 b2 } eFor i2 = 1 To 4
( y0 w( ]9 {* O' W2 LIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
8 b. z s2 X. M; sNext
4 k2 k! l! m7 r9 e( KNext & a* E4 y, Z; w! @9 S/ f( H
Ner
8 @( l& ^' f/ n% |Nyfig
$ m- ~+ ~- p2 n0 j1 X# M9 `Else
, m! N$ l# p/ \/ i' g, \For i = 1 To 4 " o* Y5 O; I( |
For i2 = 1 To 4 + m$ U2 F1 J# r6 c
If s(i, i2) = True And s(i, i2 - 1) = False Then
* ^6 g. K: D# M3 D0 n6 r. pdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 5 l8 M; B+ D: g6 V4 h
End If ) M: j, c; n- P1 f
Next 8 s, o4 V3 @4 r: |4 f
Next
' u0 m" x) d- TEnd If
$ a7 h3 ]$ ]2 wY = Y - 1
8 o# i/ f. ^: N; C- \. m0 ~1 yFor i = 1 To 4
1 U* J! x0 |1 ]* ?* M6 rFor i2 = 1 To 4 4 x! e) T% K$ r* o' B
If s(i, i2) = True Then 0 I" x6 y2 J2 H0 u) u8 @
if not gover = true then ! D. _3 L) `) a& R: ^
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
" m( S4 m# |- l% S# w1 u# o. p& S" HGameover % e, U( {6 _3 S2 \3 e T
end if . J* |1 f" I- k5 ^
end if
+ `1 z: R5 [, ]- m# VEnd If
; C6 q% }! h K4 s" l$ GIf s(i, i2) = True Then 1 ^/ k. M$ Z9 q' ]
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 4 |9 K' K# Q/ Y- Y4 U
End If 2 j0 B9 O. r# z3 A0 }- i: b+ P
Next
8 S9 x- N% h- o+ y/ [2 ?" `Next , n( I# q1 \/ I6 I2 E
end function
6 F; Y3 |, a# o, {% _Sub Gameover()
0 b: k) d0 }% [8 TMsgBox "游戏结束！", , "俄罗斯方块" ! E& w' L( @" Z' |+ I
window.clearInterval Timer1 2 \$ I6 s# X9 F6 [6 b7 I4 M
GOver = true
( K5 n4 r" o/ r& g$ zEnd Sub
?6 m; b5 L1 u! ^# fSub Ner() : g5 o0 ]' M4 P* e
Score = Score + 10 : f5 V+ m/ O' t! I8 j+ j
document.all("Sco02").innertext = Score
) i0 j0 o: N) K8 d* @For i2 = 25 To 1 Step -1 5 M. O, `" _ N1 {! m% Z
ok = 1 1 T# \+ n& D, t! c3 f
For i = 1 To 10 " T3 j9 {. N- d1 O' I
If n(i, i2) = False Then ok = 0 9 R/ e/ [; `! v, Z, r
Next
8 s3 Q1 w9 Q' m! LIf ok = 1 Then
l! }/ [- d8 V K7 u6 s' { `Score = Score + 150 1 h! O3 A5 y3 [# {0 [
document.all("Sco02").innertext = Score
$ H3 M( f' K3 w; ZFor i = 1 To 10 1 n; r- g% c5 u/ t' Y
For i3 = i2 To 24 % K! y: ^% D( [
n(i, i3) = n(i, i3 + 1)
! {9 I2 s; J% @; Tdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor 4 I# ^5 c. J+ |8 C9 S- a5 J
Next 1 _* ?' Z( L* m
Next ! A2 O. T1 ^9 z+ C6 |% V) ]# ~* H g
End If
! a# w9 c8 D' _# C+ Y6 }* ?Next $ G: s3 P) H- _+ n4 k' K
End Sub 5 y- ~+ G& G! R2 I' {" p
Function coor(xx, yy) ( c; s: O2 X9 H# u% d* U
coor = (yy - 1) * 10 + xx - 1 ! B3 _" T: C B* e- E& a7 C# E- l4 [
End Function
1 J) u# I. {: c0 y" Y, `Sub Rota()
( g3 Z. ~9 Q3 V' Q! t# c" E% RRot2 = Rot + 1 1 w$ _& S+ Y; E1 r' A3 @# r
If Rot2 = 5 Then Rot2 = 1
2 t+ [, r+ z7 s. b4 zIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
# K$ q9 A9 T! h$ q ZFor i = 1 To 4
7 ?6 _+ ?% @ @: mFor i2 = 1 To 4 : S. t ?- [, b- @* }
s3(i, i2) = 0 " X! ^$ R6 X5 U# |5 t! ~
Next
~7 m$ p* B+ B$ a9 Y) NNext
. E' j, a7 _& K. n) U: J _2 X% mSelect Case Fig / `' s/ v4 Z" N1 T0 B
Case 2
: K& Q3 f. s# e/ USelect Case Rot2 - g9 E) g8 Y# Z+ R) V- Q
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
' D# H9 H, x: ~: L7 p- w0 r# iCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
) E$ i/ x/ r( e2 s' E) a7 CEnd Select ' Q+ N8 }: `: I, z8 F
Case 3 ; j" w% k: M2 I' q/ C8 o
Select Case Rot2 / o: W0 N7 v8 `4 n* E
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
# p9 f0 Z$ T7 d0 i6 x7 VCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
1 C% d+ r7 `; C7 c8 u: D) O1 jCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
: W$ U7 z* \2 d0 s& E( W* gCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True 5 i! b0 l' I5 k( s# j1 R5 h% y
End Select + w: y% r2 T* y* z
Case 4 2 |0 N/ l/ r# M3 K. T
Select Case Rot2
, g1 ~9 U5 h6 |. v1 Y- T5 j& ?Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
3 Y0 ]- C9 ]' R3 b, [8 TCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True ( T$ }2 {# x& }/ w0 {! r% D1 Y* N
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True % C Z3 R2 \9 D0 i- j4 \
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
' A7 p! K7 x* L6 J+ G/ o4 }' h2 j: DEnd Select % X2 _+ ^5 J7 @3 k
Case 5 & d. I. A# Y0 w: `- [
Select Case Rot2 3 R! {' q, r2 B3 ^* J( T& F4 z
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
5 O) ~1 a5 T" D1 |, x+ yCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
' }( j* d0 U f# e# [2 B6 \$ KCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True % s0 l c( F R) n9 ~" k& h+ r
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True . o* M Z( y: V* J
End Select
" j. _3 W: h8 Z8 _# k' ^4 N( pCase 6 0 P6 a! }! F8 w( W# i
Select Case Rot2 , c- `8 N- K0 j2 v' s) i/ F9 @2 x
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
# }1 j/ P* h8 L8 RCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True ( R7 x4 c) m8 J0 T8 Y
End Select
9 Y( i6 g4 O9 [- vCase 7 0 o/ W; L4 d/ ` M' ]. |
Select Case Rot2
( _: f: ?7 c: [; HCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True # |) Z1 S* @; |
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 7 ~! @. T$ w X
End Select
" k, @( s- ]1 r3 ]End Select " y# N/ ]2 {' Q7 q
ok = 1 , ^8 o2 h. ]- {/ M
For i = 1 To 4
8 M" v; u" S5 p' } ^! [8 J0 _5 s. `For i2 = 1 To 4 ; k9 @' T+ h3 p- a, d$ Y
If s3(i, i2) = True Then : D3 @% T7 m7 ]7 B
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
- b% `. [( B: O3 j8 ~* GIf ok = 1 Then
6 k$ T4 G) O0 w7 A# G! BIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
. q0 Q7 m# i% z9 nEnd If
7 r, J: e) Z* vEnd If
# N2 o& |1 n2 }7 B: kNext
: p- n9 l2 A3 }Next
4 X2 L- g" E5 g" FIf ok = 0 Then Exit Sub
( |' U$ S5 k8 a' _0 l+ O/ S$ rRot = Rot2 # a( A4 e9 W* U4 j. t; D# R
For i = 1 To 4
4 q. q) L5 {7 C4 G: O T6 pFor i2 = 1 To 4
* B) b2 c5 `* |1 F+ N1 oIf s3(i, i2) = True And s(i, i2) = False Then # x/ Z+ O# o( Q* l' D
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg , G/ i4 T# H. ~# c
End If # z. D2 y% ` ]7 |* U6 G
If s3(i, i2) = False And s(i, i2) = True Then
, y) _+ t. v% F/ F& h+ tdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
3 j: `6 k& b# w8 P3 _End If , b/ Z' _5 H J# S
s(i, i2) = s3(i, i2) ' H# C% G9 {. P
Next
! s+ \2 r+ k8 u$ N S9 @$ NNext
/ o! o, o& s* s$ W! ^6 Z* yEnd Sub & d! A& M8 w' h2 x" \4 N
Sub document_onkeydown
! S& ]5 N: ~/ _. q5 ?3 zIf window.event.keyCode = 27 Then msgbox "Pause",,"TET"
4 o6 s% v7 k* ]If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") " \# f3 k% F4 m: h$ [
If window.event.keyCode = 113 Then iniciar("i")
: L, J! o, h+ @. {3 uIf Not Pausa = True Then _8 ?' P- [& v+ V, A7 X
If window.event.keyCode = 38 And Fig > 1 Then Rota 2 B, }2 [$ x* C# @4 M( {
If window.event.keyCode = 37 Then , }$ A" |6 a$ G" V+ f6 S7 ?2 G
ok = 1 4 k8 d, E7 V# Z9 [: w3 x5 L' A
For i = 1 To 4 0 m' f9 u1 w! ]6 G- O" p) _6 ?
For i2 = 1 To 4 4 A" T4 N1 M- b7 a$ u, w
If s(i, i2) = True And X + i - 1 - 1 > 0 Then 0 ^! `* m& U- \6 K) w2 W" e
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 * g& e; s% W3 A; K5 x3 b9 Y
End If - I5 J/ P/ W7 C% t" M0 ?. k, E7 r
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
2 v- x, N i }$ XNext
) M( B; l1 z* P k$ T, ?Next
1 |& M' S/ {6 }6 h" r- hIf ok = 1 Then
5 K6 A2 A+ L6 y; X" }; jX = X - 1 8 e+ F) b% g; ~- Y
For i = 1 To 4 0 S2 K3 v1 S( r5 F" o, b
For i2 = 1 To 4
0 R/ @8 `9 T1 D1 ]8 |8 `- \If s(i, i2) = True Then 1 J5 q- z$ g }" g
If s(i + 1, i2) = False Then ! q9 Z% u- I3 W% q- V
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" & g- n+ V/ @5 g' \0 C& z/ F$ N
End If 4 Y6 Z" |3 ^; m5 U" `; t3 q% D
End If , E; e/ D+ u- `/ m. N3 w! w3 g
If s(i, i2) = True Then
. | e# N+ Y) \" B2 o2 udocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
0 O& }: B9 _% P* x" ?1 nEnd If
2 T3 s& W* X' l9 GNext & d$ N# ~( x2 @2 y9 P* ~; N; O" U
Next , m& d# r8 l& ?, V. K" w
End If 9 D( E# ?7 u; F" M
End If
1 f( m. }0 R7 E" t3 |6 tIf window.event.keyCode = 39 Then
5 k4 `5 u% j! P K8 k" hok = 1 # I* N- U7 q) A) q% w( ]4 X1 M
For i = 1 To 4
n- u* C% l* sFor i2 = 1 To 4
. [- }. I2 i8 B& aIf s(i, i2) = True And X + i - 1 + 1 < 11 Then # }5 |6 o5 ?* j& o8 X# |6 [
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
5 N( T) P$ k* X2 Z. G$ ?: E" cEnd If
) x" c$ t& o$ N! s' C1 r1 R m* e" XIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 0 L# ~+ t }. r u! B7 {/ q: V
Next
0 j. o* ?* `% ]: [1 K& k/ iNext
/ J9 P! V" K+ E$ t, q L) \If ok = 1 Then ' W8 L. D$ [$ Y) M9 W2 F
X = X + 1 & I! Z$ k" E( j' t
For i = 1 To 4
' k7 U# K2 t3 Y+ U$ h, P" zFor i2 = 1 To 4
% y' F# Z& q; m' F/ f; IIf s(i, i2) = True Then 2 ]" F+ E; R7 u1 l( ~" j5 p% Z
If s(i - 1, i2) = False Then
9 k$ q; a6 f4 g9 T/ Odocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
- [7 U Z+ M" S3 M! x$ A+ o& e" A# ]End If
) e6 A& e! }* Z X% ]. d$ hEnd If
' j& \9 g2 A: q2 d( f- AIf s(i, i2) = True Then
# L! R* t+ r; f' Q$ \: Hdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg + C% x( C* ?9 ^, G4 B6 m
End If " O5 P- ?- Y, u8 z% L; ]4 N1 ~; |
Next 7 U+ i- g- T2 m6 y
Next
, @4 b. b E1 UEnd If ) J' g+ D$ {* T- r
End If , p x0 K: Y, i7 P
“Aqui : ?+ ~ e; {+ N. k1 p
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then 8 f2 [( e2 U5 B( F
If Fig > 0 Then
; ?, j0 Y. i: `$ Z' e& uFor i = 1 To 4 ' M9 q& M. J* x- a1 H% ]
For i2 = 1 To 4 3 S) a1 f! G3 h( E0 j
If s(i, i2) = True Then
6 |: x) l: V x9 C$ \( O$ Ddocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
9 m) i4 N9 T3 m, vEnd If
9 v6 I, i( t4 I6 ~2 ]4 G# ?) a& uNext ! b1 @& P1 z0 I3 e' ?
Next 2 Z8 ^* n( z" W% z# P! x* C
Do 2 x- n$ c# I9 y, \2 X5 `
Y = Y - 1 3 ^$ n* g O" A7 ~' p& r* h
For i = 1 To 4
% X5 ] J- H0 c3 n0 J8 V6 r8 fFor i2 = 1 To 4 % O5 Y9 Q* E' G0 v
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
# ?& b' i, u2 J3 Y8 ~3 lIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then " j" s) H A: E* _
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ( c# V, i- h2 U; \6 z5 |4 i
End If , O2 b; r" `+ w1 ^5 Y, ~
Next @% w; r1 {( J
Next
) ]; ^# l0 _+ j: P; w eLoop Until Fig = 0
. m0 l6 B5 @2 ^ P5 [For i = 1 To 4
, U/ R" v. L6 V) ^3 I! Q! KFor i2 = 1 To 4
O1 l0 K7 r7 \: |: Y. QIf s(i, i2) = True Then % b" }6 k' R: s k
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg * s5 z6 v2 [/ U6 a
End If
( {5 I/ \# N8 M. I: y6 GIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
# V! U5 x* h* [1 E. K' l" i7 pNext
9 @- Q i) V- p+ rNext
: [* i% Z6 ]1 J: } XEnd If 6 W! J! H8 x9 ^
End If ' _( E& Y$ O& D2 g4 o
End If 1 Y, \% ]/ J+ N+ R9 h
End Sub
. H7 c( H5 b5 zfunction Mmove(Index) . R1 {( Q1 z" A4 I9 I% L8 v' ~0 O k
if index = "I" then 4 B8 ~" `& M B% @5 V% K: j2 K
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
) _' B' Y6 ?' s0 ^9 z0 qdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
0 `6 p$ b9 `, K+ `$ |else 8 D" }$ E. M7 C* j
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" - Y3 \! i& U2 X3 s; {" W
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" / l* ]/ p6 }+ P* I1 q
end if ; c8 L4 B* |7 Z
end function d3 i( I2 V8 z* N
</script> " v0 a; }6 n8 I( Z4 {' a
</HTML>
+ C- ]: p) b5 o3 D5 W) m<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主