 TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
2 I2 o% ^1 |/ G5 k( ]$ q0 [: Q<%If Not Request.QueryString("Ven") = "T" then%>
+ F: @( R" S Y6 [. l9 k<HTML>
, Y, l' H1 Y# P; @; W2 L<HEAD> 0 n2 _# o4 T8 R$ c
<META NAME="GENERATOR" C>
8 ~# v. B2 x/ U! i! R1 o<TITLE></TITLE> , ?9 y" ~) `1 Q1 `4 ~; c
</HEAD>
! A& a F/ H/ z$ T+ Q3 G) @, u<SCRIPT LANGUAGE=vbscript>
, J( H# T# f0 w/ S! U4 afunction Redir()
5 Z W H6 x& x" l, I0 ]' Xwindow.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"
* S6 i$ W& W3 Lwindow.history.back(-1) " b2 W3 H& L5 B: m; l
End function
8 l: [) |/ Y3 }& H m- O</SCRIPT> 0 \. f- v4 G/ _: F( g" F0 ^8 t6 p3 v+ h
<BODY onload=Redir()> . ]7 X$ E2 O1 t9 q
</BODY> " y7 g. }( S) b0 b6 f3 x" R$ B+ [
</HTML>
9 t u9 n4 r& }& ^# `) n<%else%>
7 y8 s9 A' H) o/ R<HTML>
' T6 b, y5 H3 r. V<HEAD> " R; b: A, t6 T! w8 q
<META NAME="GENERATOR" C> 7 [+ O- \$ f* S; O, N& u
<TITLE>**VBScript俄罗斯方块游戏**</TITLE> 2 b. l) \0 L8 C- x
<Style Type="text/css">
, M" A1 {% N/ u& q# q: H( u& W<!-- : X3 F0 t% ?/ Q& g6 {" Q
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
/ v8 W9 ~" x* |+ X, y. |6 Y.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} # }7 i+ h$ O1 @# A
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
% [+ T9 l8 i0 V6 b5 [% p1 h/ j.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} $ ~8 a+ }; J/ U- ]; T
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
9 B' Y, G9 W6 o7 |/ c.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} 0 t v* q, [$ |% m
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} 2 O# }" @, b2 b: t. _
-->
% Z* O4 _+ c# T</Style> , _+ k# ?5 u! b9 E1 \
</HEAD>
6 i- v. Q3 w3 ~1 b% M0 ^& Q<BODY topmargin=2 leftmargin=2>
# W2 h9 U3 r) U5 a. L<div align="center"> 1 R0 T5 t$ p, P: Z: W6 L) h
<center>
9 a: Z) |! _1 f<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
8 B, ^( N9 a" |, f$ H. ?% H" U1 m<center>
$ H) ~* R7 b3 i( Y3 }/ L% s<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
6 v5 c/ h1 B, I/ K( _8 l! L<tr height="18"> 7 Y O3 R4 m6 C( D+ d$ V
<td ID="240" width="18"></td><td ID="241" width="18"></td><td ID="242" width="18"></td><td ID="243" width="18"></td><td ID="244" width="18"></td> 6 a( Z& }/ l# `
<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> 5 P. E9 ^/ _* ?% n% `0 N" j1 T) ]
</tr> 0 M" N# M3 b1 F" }4 `& T
<tr height="18">
7 z. |( h- ] C7 _0 O- s5 A<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>
" H! O" z W4 U U<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> 2 n8 A- K0 F& B* I
</tr>
3 X) t, @7 l# c* O; T& E<tr height="18"> ; a# s1 i# W6 O# t* @$ I3 P+ G
<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>
: e3 ~/ k: X2 A* G. N% T* l* Q: w<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> 0 K0 r; F& z \( K6 `
</tr> 9 H6 H" {* Y# O2 s
<tr height="18">
5 ~2 G) J: T* k3 {8 z<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>
+ W/ d. E4 S6 _<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> 2 m. k/ d; u# `! _% l' h
</tr>
* T f, V- X! n, g- H- y<tr height="18">
; @( J9 l- b; F5 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>
' Z# q" S+ A( \1 N/ g1 N1 S<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> j' @) O. l6 o3 |/ L( ^
</tr> $ i' I! w: d N( S6 b! l; O; L
<tr height="18"> $ o( \' ?) H8 X6 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>
+ j. {5 Y3 k4 w, [5 a<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>
- V. m2 Z. E% N" c8 l! c. ^( d</tr> E+ B3 Q% v4 k: q; [ \; s
<tr height="18">
5 y- Q8 f4 S1 {, r* W" [( B, s<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> r1 p% V$ V+ K+ ?7 j; n
<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>
2 A {% `+ ^& D- B</tr> , _7 a5 {) m. D
<tr height="18">
, {. N3 |$ J6 X1 B& [4 I: 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> 1 u3 ~) _7 _" {+ i$ p1 F/ L
<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> / w5 j' e- K' u8 ?% }
</tr> ) J& B9 I7 B+ o, e/ C4 p# A# g/ r# s
<tr height="18"> 0 j! v; o2 B8 T9 u q* N. ^
<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>
$ _+ M& W) x* B9 p# }<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>
$ Y5 o: f6 j; _</tr>
/ }3 r& z" f4 A! O2 \<tr height="18"> % W7 f1 [- f1 P
<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>
! G8 [. B9 n' s! }) M- T9 V5 e<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>
1 e% _/ d8 {: j. Q9 K4 C4 \; j</tr> , ; { l2 k% u. ?' B" r1 U
<tr height="18"> $ x: h0 I9 _: u9 F* ]: R
<td ID="140" width="18"></td><td ID="141" width="18"></td><td ID="142" width="18"></td><td ID="143" width="18"></td><td ID="144" width="18"></td> ' v: m3 t" g: a. g' E! i2 q1 N
<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>
b9 l+ n* _2 Q</tr> 0 F2 @; U, ~+ y/ R+ H9 H `% s
<tr height="18">
$ i, Z2 S% o0 B* g<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> * X5 W# R8 v6 o
<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> 7 _; }9 n: _6 L- B, u
</tr> 7 J. } ?4 L: o0 U2 u$ o) i5 @
<tr height="18"> 8 {. X! u8 }( N" z4 M* }
<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>
7 \9 l5 ~% e; _8 P& x( h" I2 ^2 g5 ]<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>
B' W! [0 }- Q' C4 c</tr> 2 I/ C f4 q( O7 H. D [: M% }
<tr height="18"> + L. `( |' M0 ~6 B
<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>
5 ^* k! r$ x; K' d" [) k<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>
" ^# ]8 r4 y/ L. W! I5 t7 w</tr> " x0 s& ~; s; ~8 w9 T
<tr height="18">
0 e2 ]" b. [, L6 J! E7 g6 B* x<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>
) _8 T6 K9 G% y) @<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> 9 G `& p4 [( l- J6 z+ Z
</tr>
8 e. f+ U' u' Y3 k( o1 p; ]6 f3 k+ Z<tr height="18">
3 U5 u4 K& J$ [$ _( ?3 }<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> 5 L$ ^6 q0 I' W! @. C( _ F
<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> 6 i' K2 P; P6 S/ u
</tr> 1 ]9 B2 g1 |8 h* z
<tr height="18">
6 q' c- V; e6 e! e; N# ]0 |<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> 7 D& R& i1 z2 f0 {, `9 Y( |
<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> 8 Q! D6 ?! {' t8 w: B; U
</tr> / \* D$ o! ?7 \: U, g' o
<tr height="18"> , r3 |; k, A/ e8 R: H
<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>
9 \4 y2 L% n& K( y9 X g<td ID="75" width="18"></td><td ID="76" width="18"></td><td ID="77" width="18"></td><td ID="78" width="18"></td><td ID="79" width="18"></td> 0 _! Y4 X: K3 V) Y5 W8 p. G: X
</tr> 8 S& r3 g' [# ~ ^9 z8 B
<tr height="18"> ( n$ c0 W; ^ p9 v; P
<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>
8 P6 N2 n0 T' w% p5 S<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>
2 q1 G" c7 f1 i/ ]</tr>
, X% n# ?2 Q L3 L# R3 y<tr height="18"> 2 j6 l: a9 t8 k- w
<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> ) h% W j5 j. q7 p) y- f& R/ 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> ) `6 {& g5 e8 @4 h f
</tr> # k. X4 V5 b0 l4 f$ i
<tr height="18">
+ M( \ a# p4 p, U4 y. x9 X$ J<td ID="40" width="18"></td><td ID="41" width="18"></td><td ID="42" width="18"></td><td ID="43" width="18"></td><td ID="44" width="18"></td>
( x! z4 ^8 h8 t6 Z1 b. H ?8 Z7 Y5 Y<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> 0 s& ?. v h7 _2 B
</tr> , Q1 [1 E5 ] Q: X# D0 K1 u% c9 L
<tr height="18"> 5 @$ M5 s2 C4 c$ N+ M) c9 h! R
<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> ! X# R8 d. t2 O9 O$ z) l7 F6 q
<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> 6 D2 `6 K% X, u! z9 P; P
</tr> 7 ^ w! Q7 [9 n) ^; w& A& U9 g
<tr height="18">
! x$ J, t% }2 u3 y<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>
) T/ a- g1 G S( Y; a! v3 z<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> * Q* M- j. _ G3 F
</tr>
4 `& Z( c. p$ f6 {<tr height="18">
7 K. [* k j" _" F3 L; I; y( j<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> , E2 c( a: I/ o8 ^) E
<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. C8 K2 J# r4 C' ~7 s
</tr>
, r' J! g: V1 w6 I! ]9 G<tr height="18"> 5 V4 h3 i0 Q: b% y0 E
<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> " x; ~( ^$ v: j7 _8 l
<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>
" Y! p6 a) _. {' {</tr>
8 E1 p6 J7 q- h4 b* g8 e( U</table>
1 E% E, Z- {8 r7 a/ G( w9 e6 I</center> E( A: E' `" d
</td> # p% \4 ?- |% O, l$ B) p0 G
<td width="100">
- u' Y- ~' X R$ I- P! B" T<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> / _- L* R% B$ M0 Z1 C8 _- k5 a
<tr height="30"> ! y% I0 S4 K `6 b; t/ _* v1 q# e
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
: e* ^' p3 C7 r% `* o</tr>
6 r9 @9 q8 J& h: F. h, U<tr height="20"> % S7 G5 [+ }% ]0 |- \5 K* W
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
7 b- U7 a5 v6 {</tr>
( @4 u: z4 \/ W% K. V: ~3 Y# ?* Y<tr height="100"> & z+ }3 C4 Q3 p; w5 X3 f3 d
<td bgcolor="#FFCC00">
! b2 Y6 {7 |# {3 p4 w2 j) ?' {* l<!-- Inicio Preview --> - e; h/ a% U' Y, ]* b# a' d" I# B
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> $ u3 {7 n4 P/ A9 v$ C
<tr height="18">
I9 k& t- X5 _+ S% y<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> $ l2 _' D4 T; H
</tr>
9 D0 c* Z2 o! x1 `) F, |<tr height="18">
8 k- L& i, N+ l# a' D8 E<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
/ g& q8 U" B7 Y. R5 [: P. [3 Q8 d</tr> : c+ D2 n. P4 X
<tr height="18">
& N2 M1 T8 C. l: Q) U) A0 q<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
7 o. N8 y* M$ {</tr>
+ \" v( Y1 P0 o! x* z/ T</table></center></div>
: [, `5 Y/ I$ `- r9 O+ V<!-- Fin Preview --> ) @7 |3 N w8 u/ o
</td> 9 f4 g+ j( J, z2 ?& F5 w" a$ w
</tr> 3 N) E( [1 [4 a' J
<tr height="32">
. e3 `6 |1 y6 M6 h<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
. h! x0 N' q/ q$ Y* C* _</tr> 2 s* ?7 V9 d( v) h% U3 @. _
<tr height="32">
3 X& Z5 j( p1 R* B$ h3 U<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> 6 {3 a( p- V( x1 u
</tr>
Q# l8 N* @( U2 H8 t<tr height="32">
! X9 O% H2 o+ b; c w( h<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> # K T2 J$ X5 N* V' d; k! ^
</tr> ' F3 ]( O, X0 x7 G, j
<tr height="32"> d7 o L* B+ X; R; [. ^
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 6 A& p/ [7 S" N7 z2 M* F
</tr> $ I' Z/ U, f& Y8 M# |
<tr height="32">
. j6 P( y9 F. r% ?5 e<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
, ]. Y% |) j6 {</tr> + S& o. H9 X& S' g; v! |
<tr height="32"> ; g; e1 N1 W" R1 _
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
; E; S; \1 [' i</tr>
8 ^7 k7 U' q+ P& p! K# ]<tr height="32">
) D% O l5 `1 \<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> 2 z2 z; B* Q' p1 ~/ K
</tr>
! n& @5 a# V, o/ j. k' ]<tr height="32"> 7 S, P J7 F e9 J i% r
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
- e/ s( B& ]# T( Q F8 X" P</tr>
% k, k3 [8 r' l9 b M1 R<tr height="38">
+ m9 n1 J. C9 W5 }<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
5 [* M/ b( _: A! s U' M3 L</tr>
9 u0 ^$ y! z# b/ Q1 S</table>
5 p6 n7 m, I2 C2 o' c: |2 t</td></tr></table></center></div> 1 }% w' G/ N9 V, H+ K! y
</BODY>
% u9 C+ x2 }9 m: S<SCRIPT LANGUAGE=vbscript>
I+ C6 {0 m) M9 _Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
" g7 i+ Z) P. V7 ?* [Dim hs(),sor(),hsant(),n(),s(),s2(),s3() z d. _8 s' C( a9 _6 U
redim hs(3, 15, 2):redim sor(3, 15):redim hsant(3):redim n(10, 25):redim s(5, 4):redim s2(4, 4):redim s3(4, 4) # e, M# K( C2 o
LevlIni = 1
) `9 \; y P! `% i1 _# IPausa = False 5 _6 J( }+ P- @
HastIni = VelLevel(LevlIni)
2 t( Y6 }4 b2 Q" ~1 ]1 NHast = HastIni 0 {' |4 `. I: c* m b
Levl = LevlIni * _' V# z. T5 y. w+ W
Pos = Levl - 1 % G9 I. ?1 ]6 k
ColorForm ) F% P# r7 G9 Z' z
GOver = false
& {4 l! b: b3 N ?3 dfunction Iniciar(ind)
2 r0 A. D( b' h9 q5 o! V5 g5 k! Tif ind = "i" then & u# t: W6 g( {! M& K0 a/ h
score = 0 3 C W; G! z5 L; J4 E6 b
GOver = false % `& H( ~, t) Q: X
Hast = HastIni
- i+ `- t# n3 uLevl = LevlIni
* D0 d: P9 f$ |% {5 ]# s% EPos = PosLevel(Levl)
, M( G5 ?; @ WFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
! L* i1 v3 h# e4 c/ I+ D, A7 y+ b% fFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next ' Q0 v& F2 t/ X& g7 x" ]; V8 [
Timer1 = window.setInterval("Andar()",Hast) * S) y% L: S) k( Q# k4 D
ColorForm
: I+ `9 a1 V# ^# z* yFig2 = 0
2 |! P, `3 F* q6 `" C+ ^* GNyfig
2 m% B9 s6 X7 @, N& ~else
' Y0 o$ X+ s a( N2 ~window.clearInterval Timer1
- h) i- ~* X9 K9 vend if
. ^+ s h& ?% G* Q* \* @end function ) z' [* j1 D V7 e' K* K6 h
Sub Nyfig()
% B, h; d/ D" Z/ j JPos = Pos + 1 - ~! P( w# r, {& F9 M6 b
document.all("In06").innertext = Pos + a. T1 n- W! h* `8 X. J
Select Case Pos ! V9 e- Q1 o, e$ r6 B
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
0 s0 @5 P/ h# f6 @; G' gCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl 0 H7 x: }0 m6 P; _
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl $ R3 |4 d0 l C; U0 N' }$ U* P
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
* P, ^3 y/ F! h2 V* F4 ICase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 6 F$ ?% z* i6 S4 M
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl 5 f* h* t% h- Q; ^
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
2 G& ^$ i. E/ ~! U/ |" T/ [Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl ) N; {' D$ i, U$ W% H
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl : J8 I8 \$ b# Z" ]) Q* N+ K3 G) ~
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
7 A& L; @, Q8 PEnd Select 3 M# U1 K& W; z9 C) v( }. ~: n m! x
window.clearInterval Timer1 " ]* L/ r$ j( {# v
Timer1 = window.setInterval("Andar()",Hast)
. v* H5 z' \5 Y& F5 |4 ?9 tFig = Fig2
" k+ E7 u6 g/ p' ~6 i: [; I, bFarg = Farg2 8 w) I% K/ s+ o9 k) Y: H
Fig2 = Int(Rnd * 7) + 1
* v% _7 E; }7 r3 [7 `+ i8 tX = 4
0 @8 @' w) C0 Y) N7 |1 LY = 26
# y9 X/ u7 ]- F$ {7 g9 ?Rot = 1
: h( F! |) \3 u. k( TFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next 8 S4 ]6 \" k7 P) V" ^! h* ?
Select Case Fig2
! `" w! Y6 o7 Z3 e; gCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" , z- n- B& t" x
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" d1 K' o1 m/ T: ^6 @
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" 7 ~- g; Y' O P
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
9 z- D- S7 s( D- Z; }8 c2 ECase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" : W; W/ ~- y, p7 ?* n; \; N- |
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
3 o) m6 A3 w; s: n& ECase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" - Z# I1 _, k) {# @6 i7 c
End Select 5 t9 ~2 M0 K- T/ J
For i = 1 To 4
$ H( C4 s; u0 \) V/ }5 O' s) gFor i2 = 1 To 3
2 U, l' {" {. C4 {) udocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
6 T. I8 p/ R2 ]- }* r7 |. eIf s2(i, i2) = True Then
# g# l P. N. x, ?4 @3 k2 ndocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
+ i; ^1 a: D N: Q# F# ^/ OEnd If 9 r {8 I/ E) z
Next
/ T. [3 f/ b. U3 [! t( w% B# R, INext 3 b4 D1 Q6 K% `% q7 b# Y
End Sub * `1 a7 g; q0 f; \* v$ {
Function PosLevel(Lev)
5 s% X' Q3 t0 J+ \Select Case Lev
/ {, `" A& q1 N- l% k+ E+ [. vCase 1: PosLevel = 1 4 `) m- m3 ]2 Y5 Z
Case 2: PosLevel = 51
& X/ j/ L9 X% y, L: ^, e; SCase 3: PosLevel = 81 * [0 p9 h# l/ G, G6 }
Case 4: PosLevel = 111 0 A5 s/ ?8 y4 K8 `$ {6 O2 o T
Case 5: PosLevel = 141
& t4 w# ?6 F* E8 pCase 6: PosLevel = 181
* X) Y& e; R: v( Z1 g0 k- A' ?Case 7: PosLevel = 221
/ B( _; Z6 b) e, V+ S% mCase 8: PosLevel = 261
' }* d4 A' r* T2 l% t4 [# DCase 9: PosLevel = 301
! k/ ?& d, q w9 @! W/ ICase 10: PosLevel = 341 & {& Q; `8 z. x; W7 ~% ]' v9 e
End Select
# \& d' y$ k3 o# n$ I( h5 BEnd Function . d2 p2 M9 T/ W7 Y* W% }9 s; _3 ?
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
5 a& K- z1 s( \) N; C }8 C+ H. R# FFunction VelLevel(Velo) , n0 v1 F7 ?- ]$ @$ I0 p
Select Case Velo 7 I% T0 G- n5 k0 T; O# J. A
Case 1: VelLevel = 500
2 k$ n; |, E2 t" m! y. z _Case 2: VelLevel = 450
Q' V- N& i) n" C0 q2 ]8 t5 O4 sCase 3: VelLevel = 400 9 ]% V+ S# [) ?% k6 `" w5 N/ }
Case 4: VelLevel = 350 . L0 P P' S* R. j
Case 5: VelLevel = 300
2 G9 t! `, e: |7 h* E+ {6 oCase 6: VelLevel = 250
w8 K$ a7 Q/ Q. B; f, d: Z0 RCase 7: VelLevel = 200
p8 `( `% Y) U1 f+ ~& zCase 8: VelLevel = 150
0 U' O; Y; I& z3 k, ^3 tCase 9: VelLevel = 100
5 l2 J( {3 d6 ^" |Case 10: VelLevel = 50
7 t4 C! }; \5 GCase 11: VelLevel = 10
$ R/ K ^ J! d2 GEnd Select
7 `: @/ s6 N) i8 |End Function
/ N8 K6 W, X* J E m* _Sub ColorForm()
: D3 e2 e1 d4 Z" PFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next & m+ F* i! Q! D/ c3 z$ m; m
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
( @# R, N2 } DEnd Sub
- M7 @. Z0 [- {/ u1 Gfunction Andar() , J c A& a4 u9 |
For i = 1 To 4 # ?0 Q) r/ v: ^/ Q# a, }, s$ y
For i2 = 1 To 4 : R( [8 m5 d, I+ r* \
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 + F8 ~ H1 V/ \% g
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
1 e& b) o( x. B0 XIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
6 y0 y) p1 n% g0 T5 S3 _5 ^End If
5 H H: @7 K8 H% X+ k- V% u7 hNext
) S* X! [1 ^/ R, n: @Next $ w/ F G; Q3 B i- s) \' V
If Fig = 0 Then
6 D2 n3 N0 y T" b7 z5 Y, {$ JFor i = 1 To 4
/ G7 n% Z7 _/ T( i3 BFor i2 = 1 To 4
( p% \* e* \' Z. F( R6 [If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
x+ C, I4 n2 N1 U0 BNext 3 i$ n: n8 y# @+ Z4 c
Next
" C& o4 m% @0 @. g+ ENer 5 V3 c) G4 O: V4 ^: p( ^
Nyfig ; E1 Z8 P o6 h8 Q
Else
9 v; U, A8 J( zFor i = 1 To 4 7 Y9 J% c- U- o% ^ W
For i2 = 1 To 4 " e0 e; D7 ?( _; u% I
If s(i, i2) = True And s(i, i2 - 1) = False Then . |3 ~9 I4 h( ]: Z
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
) n% ]9 A$ \' Q5 H, D2 F0 IEnd If
- j; d; l6 g; pNext
* q% o. M, r4 h: I DNext 0 X Q2 M" o' B% m @6 K. o5 B
End If
0 E2 Q/ a! f" ~, q+ BY = Y - 1 9 P* p0 x3 |0 d# F- g" i
For i = 1 To 4
7 n& G4 w4 x3 ?) a+ K0 Y& RFor i2 = 1 To 4 / `: A6 r- X$ C& Z' F% z
If s(i, i2) = True Then
( ~( ^9 @1 j. o3 q$ @* nif not gover = true then 3 H ~+ i" p2 i6 A. @6 h/ [
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 `* R+ ^ w6 b7 [4 i3 l) ~Gameover 9 ]/ o! F. d1 c" o* q1 M- L+ ^
end if ) [0 D( ?' E' a
end if
) `" y. n/ K( L# \End If 7 [, C, m! F; U; y4 u. E$ A$ Q
If s(i, i2) = True Then
4 j2 Q9 x) Z6 Mdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ) k$ H8 {9 x/ n# o: T* d
End If + m6 M+ D, \, }: ^4 i
Next , p& X; v8 Q0 ^, S4 _) T; W
Next
5 t6 h! R& J v$ f) N! m* }$ `9 k; Eend function 9 y! v- P# e' z! R. l8 ]& d
Sub Gameover()
. B7 c4 n: u- K, U# J" dMsgBox "游戏结束！", , "俄罗斯方块" ' E: k6 d- S1 `6 M* e3 C) {6 v
window.clearInterval Timer1
" t3 b3 H7 O4 ` b4 D9 EGOver = true 6 s% N" z( A' y& ?1 j _
End Sub 8 K4 ?. M; g; @. O( c7 I- U/ H
Sub Ner()
& V+ R4 f' r/ s# o; CScore = Score + 10
1 R9 ?! [( J$ s% d! ]' @' ^4 k" W3 Z1 Bdocument.all("Sco02").innertext = Score
% }( _5 X( v3 d" V7 i2 e% }0 d1 zFor i2 = 25 To 1 Step -1
' r4 U' ], l& F6 F) j3 bok = 1 8 `9 d2 x" d8 e- L. m) D
For i = 1 To 10 ' b$ Y8 T q3 }$ ^* P) s
If n(i, i2) = False Then ok = 0
( Y9 A, I" y1 x% M- }5 q6 `9 nNext
7 w6 Y! q' F- H+ G6 MIf ok = 1 Then 6 i/ Z- ?1 {! c9 M& e+ q
Score = Score + 150
9 h! u; p+ }5 s9 S4 Pdocument.all("Sco02").innertext = Score 8 V9 g4 k# s9 G% Z* Z" l$ u
For i = 1 To 10 7 v: [3 A& t2 J' y S8 C1 M
For i3 = i2 To 24
5 y" W$ b$ b) x2 \ ]2 kn(i, i3) = n(i, i3 + 1)
' X1 d0 ~2 q& odocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor ) O+ R4 `5 V2 Y7 X* Y
Next
, {0 e! t: q# f8 l% I0 @Next
. q. u: ^) @/ B" uEnd If 9 q% C4 y- G( [& m4 c
Next % Z- l8 w0 Q N% q g
End Sub
2 S/ o9 [3 g% OFunction coor(xx, yy)
" E7 S) R; C7 K- z. m2 U) d3 U6 @coor = (yy - 1) * 10 + xx - 1 7 D. P4 i ?2 C4 ]8 I/ {0 N5 e
End Function G0 m5 Q0 t5 y' J; F8 J2 F
Sub Rota()
0 R8 }9 {7 b! s' }+ g! IRot2 = Rot + 1
; }' {) d1 A% t7 TIf Rot2 = 5 Then Rot2 = 1
/ @ y* F/ S5 L. u, b3 ]* LIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
5 c4 P- {0 I/ A# {For i = 1 To 4 $ Y% Y ~" O2 A A P
For i2 = 1 To 4 * ~% p5 C/ Z- M* ]' Y0 Q! L% Y
s3(i, i2) = 0 2 b" M" J# B- z& b
Next
6 `+ @' x$ Z5 q& X$ ?9 nNext
# h9 l5 Q5 ]& NSelect Case Fig * q' a: `3 h: s; P6 U
Case 2
5 ^. q" N |/ j7 L( X+ cSelect Case Rot2
* D* V6 d- Y9 F7 M* h2 ~1 ]Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
q- _; ]$ y0 k! SCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
4 q) v: o7 O9 P0 u9 p0 A) e- j/ REnd Select & y1 x7 Y# ^9 }+ i d
Case 3
$ l& W+ C% T0 E. ]$ q: D6 oSelect Case Rot2
; O9 P, ?, \ Z2 q+ j- NCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True : p8 I) U" P! Q% [2 J5 z F7 x
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True 7 Y* F; H, b. v$ l" ]
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
5 ?+ O) h' `4 F6 xCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
3 M( A5 I+ d& qEnd Select 1 X3 s' m0 e8 {) [. c' O3 ]
Case 4 $ P8 H) ?/ c3 i& t* d2 H
Select Case Rot2
7 W$ e8 t% K* w0 JCase 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
+ o% ~3 ?3 _6 @3 D- r" a/ f/ qCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
6 b9 _' v5 M0 a) n' h8 p' ~% cCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True & F) e: {! \% Y$ N& m: U5 a( v* t
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
7 Q9 j( o' p5 fEnd Select
1 Q1 d. Z. B; \6 ^0 g9 gCase 5
- d( @0 [8 z1 B' jSelect Case Rot2 & W' t8 Q z( r
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
9 |$ m V5 L! L2 _6 z9 m4 iCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 9 i/ O s, J; E, ?, [6 k K8 p# p
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
% }+ u+ O6 g& M$ S9 C" V2 [1 u6 KCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
/ _; r/ h5 P7 r% l3 o( IEnd Select
1 E4 f5 s% h/ ~* [+ q8 y4 ~Case 6 {/ `& s8 M! _, D0 H1 _& b3 |
Select Case Rot2
. u- t2 t) o( G! Z! iCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
) L1 D: m1 ^2 @! |7 YCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True , \' J6 x. d$ C# q# R o# `+ r
End Select : E( a7 Y$ O( K7 Z. W P
Case 7
( P5 L K' l! i# wSelect Case Rot2 7 s3 @6 ~; j; ^/ k1 U* \
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True $ c; n' e3 `6 i+ G! I% [3 c3 s, _
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True / \9 a$ _4 {3 s; G' W& J: P& H
End Select / y, e: T3 U9 K1 C/ y Q6 r
End Select 7 H0 M) b) S1 @7 G
ok = 1
9 O. H2 ?3 k0 M+ }: B3 I" NFor i = 1 To 4
" k! A4 y$ r7 PFor i2 = 1 To 4
& R4 R4 d6 r1 M7 K. SIf s3(i, i2) = True Then
6 c7 ^9 t; m0 j/ Y& yIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 & ~9 @0 \% [$ [" R) w. h9 o
If ok = 1 Then
i* m/ F& J4 c8 K3 r d) X, _If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 - c$ u! ] l: ]7 u7 [. O
End If
& X4 H( D3 b, | N) W4 I8 FEnd If
, s/ K! z2 `# ~Next & k' l2 t' ^# o h$ s- k& e
Next
3 J/ M7 b2 q* m" U8 kIf ok = 0 Then Exit Sub : J& j* X% Y2 r) y
Rot = Rot2 : E B; Z7 F( C/ V- z
For i = 1 To 4 4 z4 _9 K4 v7 Y5 m B
For i2 = 1 To 4 + I* U" E( B! m j) }2 C5 j3 Y8 h
If s3(i, i2) = True And s(i, i2) = False Then ; [% Y2 K; G8 J, W" D" `. ^1 i
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
) D, K1 D) }( i; z7 \0 z+ ?+ ?End If 9 ?! z. T9 J) B% _% a! `
If s3(i, i2) = False And s(i, i2) = True Then 1 N! K8 G9 n" C; b i, [9 E
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 1 \4 w* ?+ P! Z, z2 @% G9 Z) }8 e6 C
End If 8 `8 {4 h- S6 w! _
s(i, i2) = s3(i, i2)
: ~2 P$ h4 N1 q2 |0 ~# INext
/ _# Y5 I/ U2 j4 w* T7 v( ~5 eNext
6 ^1 I M6 g& ]8 @6 XEnd Sub
1 M# r$ s4 b tSub document_onkeydown f9 A" |' Q5 p/ Z1 _% B3 S
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
* ?* ~0 ?, K% F+ EIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") : z3 i0 J e6 L5 C3 l' w, X" Y& \
If window.event.keyCode = 113 Then iniciar("i") ! H" f7 \0 p3 j' S
If Not Pausa = True Then
: K8 g- r/ W' f% i7 [ cIf window.event.keyCode = 38 And Fig > 1 Then Rota
) C1 J5 E1 l$ E+ y* MIf window.event.keyCode = 37 Then
0 f# ^0 H5 h% wok = 1 - N6 w& F. [: T+ \* s: x
For i = 1 To 4 * D$ {( ^2 H! I K/ i B) t& W2 Y1 S
For i2 = 1 To 4
* D2 z N; U9 o- \If s(i, i2) = True And X + i - 1 - 1 > 0 Then ; c' d! y' j- w! b+ j' y2 [. g, R
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
. f& I7 p* b0 T: i! GEnd If
5 h! H) z [9 d' H2 `If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 ; U8 W7 z) K9 T9 V& e
Next 0 Z' }9 h( B/ e) D4 Z1 C8 f
Next * q) P0 R2 w- @- H5 Q: f
If ok = 1 Then
8 l5 u7 S: @7 F LX = X - 1 2 w. O3 r7 A8 T$ ?; C
For i = 1 To 4
* M3 g* s R+ I* K. P1 O/ r4 C% AFor i2 = 1 To 4
, f0 @5 j$ M4 y8 EIf s(i, i2) = True Then
4 j8 i0 Y+ G+ b( f' `+ t: d1 [If s(i + 1, i2) = False Then
* p7 m* x- U0 zdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
9 S3 B# z4 t( b6 _# C) aEnd If 8 g/ Z$ a8 x1 q G( f* H: M! x* j
End If 9 Q& E) e6 ?; {( P0 c
If s(i, i2) = True Then , P4 ]8 G4 H3 n# p9 j" j" @
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg & i- H' l( j' M- Q
End If
" L; P6 ?$ W/ |Next
; }1 A9 A. x+ Y, F l' zNext " I- B' T/ v! J/ ?7 r8 w2 A
End If
6 S3 L0 `! r# _( \3 J1 p% Y& }, w) jEnd If
+ D( A1 @! n J( k$ {If window.event.keyCode = 39 Then 2 E9 i/ O8 C7 E4 {# Z3 w' Z
ok = 1
3 |" a$ N$ ?* q+ HFor i = 1 To 4
% m3 f' ^; ~- @- K4 WFor i2 = 1 To 4 9 ?# Q+ E; h7 ^. q# w: A
If s(i, i2) = True And X + i - 1 + 1 < 11 Then
% N5 a7 B! i3 D9 F7 oIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 ! g% P( | ~8 a8 H2 u# N% c
End If 8 p( f% f. B5 o1 d7 j
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 ( A& Z# R1 j+ D. t2 ^4 S' _
Next 0 `7 x" L' l% K7 X
Next 9 E% R$ `) B/ J$ N* |+ O
If ok = 1 Then 0 a% C$ _: N0 Y. |/ |! \
X = X + 1 ) {4 c, O9 M: a3 P! v7 ~7 M6 I( H
For i = 1 To 4 ' h$ _2 _4 G4 u* O$ `' a V' Z
For i2 = 1 To 4
* z" T% V7 @5 Q, J. v tIf s(i, i2) = True Then " V5 I6 w- T; j8 x% J6 p
If s(i - 1, i2) = False Then
8 N& V6 z' g: O0 @* t( y5 l, Adocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" # a _3 x& r% m: T
End If
! P4 q- x1 z+ t0 {End If : R% ^( m0 T0 ]5 ~3 W: r: U
If s(i, i2) = True Then , _7 J$ L. \7 V g1 s; Z
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 9 @# A& N6 B0 e; \2 n' [
End If
1 [) Y, F |& s5 yNext
! q- d& g3 Z; q, L7 J1 PNext 0 h# o. G ?! V w/ W; r! {
End If
1 K% ^/ f) p) g# i& U5 pEnd If }3 ^, X4 R& T
“Aqui * f$ H1 `7 r+ a% }4 F) ~
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then / Q9 [0 `% i1 K
If Fig > 0 Then # s- K/ o" R7 N2 R0 }
For i = 1 To 4
/ _, F& s; Z# V) F7 IFor i2 = 1 To 4 " F0 c' {7 C& s, Q W' B4 e ~8 j
If s(i, i2) = True Then ; c( Y: B) S# Z1 A) j. v* x% V
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 7 p! t1 A" `2 C: D( V' |& _* k! G
End If
* l# I6 n/ A% L' w( X" I9 GNext
M- K I7 g- S! w3 K+ v8 X9 _1 sNext
' W& o- V7 h2 V+ ^4 zDo 4 R5 w" r. e$ \
Y = Y - 1 ) ^3 \8 Y: w0 {! |
For i = 1 To 4 ( q5 b: b6 B5 `& h7 }
For i2 = 1 To 4
4 d& |! U B: B4 k% E# tIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 ' t9 ]- b8 t) e/ l+ y Y# j
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
0 l* M5 P z/ ?5 p$ hIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
& n# |7 H9 G7 qEnd If
. [5 S/ m) D1 q3 l! \5 G" bNext 3 ~5 s- h. P3 Q: l4 h5 O
Next
# d8 M8 J2 X3 n+ j- { ULoop Until Fig = 0 7 m v$ F" r+ F4 A5 U. U
For i = 1 To 4 . e$ w# q$ m2 R0 P
For i2 = 1 To 4 # `' c9 e: d! x1 b0 I
If s(i, i2) = True Then
8 M4 C9 N3 L! ~& }; }# y( L! i! Cdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ; R9 @1 X2 f. R
End If
% M0 Z, H% T2 u' M' OIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
5 |1 K$ w2 ~5 ?$ n# K7 w qNext
, s- c+ M3 v# e$ i8 v) ?% tNext
$ C6 O9 p+ F C, T- s7 hEnd If
" |, d5 H' o9 J! P' A. ZEnd If
/ i% [9 Z' F! f: o) t! P! A EEnd If
* T$ g+ q6 h, w1 r; D; rEnd Sub
, X/ e0 v7 K# }1 }, L% L0 ~function Mmove(Index) 4 x% s) J' \1 `% n# Y
if index = "I" then 7 B. q$ q) Q: n9 I: V; J; h. Q6 F& z
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" . |+ x$ t: }8 C# q& ~
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
1 g5 @3 G% g6 V# R& ?2 O" _else ; n1 u9 \- S3 q& f6 f$ h5 s3 p
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" ) a# j9 u" Z4 m1 z5 W
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
H- [6 c: T: W1 Y! {- A, r7 j# C9 bend if # a. ]4 k4 G, d, B% {& O
end function
) B- [, J8 |8 P, l7 ?, n6 z: `</script>
) U o: H3 U2 |0 T# r1 o0 ]" o</HTML> 2 {" h2 n$ V! c. m! c# ~2 e& k
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主