TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
|' }6 v& o* ]) O% {+ Z<%If Not Request.QueryString("Ven") = "T" then%>
1 s" P! l# @, t: B% z<HTML>
" J! k9 D# X0 u& j D. R7 g<HEAD> $ T8 b( K0 t. v8 m
<META NAME="GENERATOR" C> 7 ] S4 M# S/ H
<TITLE></TITLE>
8 {. \+ V- k, _ I J- N</HEAD>
7 w- i8 K5 p7 S7 O<SCRIPT LANGUAGE=vbscript> & ]5 ~4 S4 |: }' v9 |1 a
function Redir()
: \' D+ L! X: c( _- Dwindow.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"
3 v6 P& M/ k1 `" l" owindow.history.back(-1) 7 Z. E$ w5 |( G9 ~8 i; Y; \1 ]
End function 7 a! H- z. R( H5 G$ j
</SCRIPT>
5 b6 h1 u3 V e6 Q1 @: B<BODY onload=Redir()> 5 ^, p3 q' v0 I7 R1 A: q9 S& r6 v
</BODY>
( r, V+ ^1 L5 Y7 T( b, W</HTML> 1 E' D" e. M) z, G
<%else%> ; u% g2 g* s, j$ n
<HTML>
, ~# j6 g1 p+ S& `9 g4 e<HEAD> ' y( d+ B5 C1 F" ?, ?! D7 |8 k
<META NAME="GENERATOR" C> - H5 K8 a2 _$ Q
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
$ c' x# F: z; t0 l8 s& A6 ^<Style Type="text/css">
! A9 u0 g/ C1 M3 {# Q5 N0 C<!--
% _ M4 i2 a! ?! {$ p& d4 q% j.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
: k" e* I8 s5 Y X) O0 B.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
& d2 L0 E6 W t4 O.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} 7 p. [' g; E3 v+ @- F9 z
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
' [$ L4 o5 f W6 ~4 M3 S" `; s z0 h8 i.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
# y/ s; }, [7 |" w; }- C1 I.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} " u5 }# p7 b7 c- [
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
4 g) Q' n* X4 b' B9 Y3 Y6 R/ r-->
/ H5 h. J' O& i</Style>
9 } f' a" |. ]" Z</HEAD> , x" @" A6 L1 Z( E8 @+ ?, A q6 p
<BODY topmargin=2 leftmargin=2>
) d' |5 @8 r7 Y5 {0 |7 `- x5 O1 m<div align="center"> 7 Q' G# X% x) I
<center> 6 P7 T6 q6 S$ y6 L- ~% u0 N) n* _
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> - Z# e- m: B8 S- i. B d
<center> 0 z/ U' q+ L0 c! {' o- j5 H" @
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
/ J% j4 g7 {4 `6 g! _9 u* |0 f; M0 s<tr height="18">
+ K4 Y; v8 f# h9 s& a$ ]<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> * }5 _: ~$ f" _& |2 x7 ^
<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> ) s$ Y1 ?3 b7 m9 [1 v$ |8 z& S$ e
</tr>
4 U* i/ G! [0 f<tr height="18"> + Y7 [/ t7 s) L7 j T$ {0 T9 f
<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> * `# P* F& d/ F. ~+ p6 Y/ Y+ K0 y) C, ^
<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>
" ^" x2 t s: c& S) O5 R</tr> ; Q7 M# R/ C2 l& @- }& N
<tr height="18"> T! U, x+ e, W
<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>
+ F) m5 d5 }9 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> ( E* N3 k( T! u* e: f& k9 V, J- v% Y
</tr>
/ s( D7 J6 S5 @/ b- }! e<tr height="18">
# {5 W9 G: |+ M<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> - U7 ?. t& a, z! _ `8 d
<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>
1 [ l2 S( P1 j3 A; s</tr>
7 B, E, Y2 B8 R% l! L1 ~7 I& W<tr height="18">
: e e) r8 Q2 u<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> ! y) S3 J1 F+ r& C, a( C) H1 ]3 K. K: b
<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>
2 ^6 R8 g0 C$ I2 ]" u4 d7 T8 s: c</tr> " e: M- [! U3 f2 y' A3 Q/ p" F
<tr height="18">
" w7 e9 D, |/ ]+ f% m& z) 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> 0 M5 u, @+ V/ t+ n" Z8 {
<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> 9 U% T6 i( ^( @1 }" g8 o) ?) K4 l
</tr>
/ I6 x2 N2 R C( Y0 [<tr height="18"> 4 ?- D. o2 {5 M' Q. i/ d+ 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>
, W6 _% h2 X' ?7 F# g" d7 ^<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> 4 ?+ y2 _1 i' u( f5 ]' T i
</tr> " G$ N% P Q/ ]
<tr height="18"> & ]: S. ~0 b# K$ Q/ S9 D
<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> : w0 ^# f/ M3 ]) j2 i) b
<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>
$ t( L( R% @" p2 d7 H</tr> 5 C M* @5 b8 b9 _( U
<tr height="18">
) {$ H: I' x3 I* f& ^<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> 2 ^% _0 P- n5 O3 V( ^& T; z
<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> * @( P# O4 t. j! O
</tr>
) h/ g- C: T j/ l) L<tr height="18">
6 z: D, X) d- ~ c1 d6 y8 K" a9 r<td ID="150" width="18"></td><td ID="151" width="18"></td><td ID="152" width="18"></td><td ID="153" width="18"></td><td ID="154" width="18"></td> " o0 I |6 Z k( U8 D3 t) L
<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 \" ]7 O# W% k( b7 S3 ]: n) U
</tr> ,
6 ]6 r5 Q/ w* H) v, Q9 g+ a<tr height="18"> , ~! l3 \* S/ u4 E
<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>
9 k7 ]6 l! m5 P6 p" g8 q% C<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> 7 A: V: d1 @" S/ Z* [7 Z
</tr> ( H3 ]3 {! P6 Q# ?6 {: L K- b' k/ `) w
<tr height="18"> : {6 A( A; V/ A: ]) E" 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>
* J4 z+ l: D9 l2 e2 |% j<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> $ N2 d# l. t7 O" h4 W% V
</tr>
( ?9 L1 J6 w: A! B<tr height="18"> 5 [! {9 `% G$ c0 c
<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>
6 i9 g; J5 j" @* u# U3 Y<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>
- Z J- _* F5 e</tr> 0 b: ^7 U$ z A0 {- W# C1 f
<tr height="18">
9 x& m# J& G! k3 s$ u$ o L<td ID="110" width="18"></td><td ID="111" width="18"></td><td ID="112" width="18"></td><td ID="113" width="18"></td><td ID="114" width="18"></td>
# a- E2 ?7 |) y ^7 F<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> & _# Z. {7 B$ H, X
</tr> k4 M* v: L2 d/ R/ q, d
<tr height="18"> - h/ Z. b; w+ e( x6 |
<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> 9 C3 w# r- x& m& a/ f
<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>
2 p; Y; A; S. o5 @, B& T</tr>
0 ~# p( M, X& N# o* t7 @/ {/ {2 ~<tr height="18">
2 g; r7 o5 h9 B4 g4 `6 l* o: T y<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>
: a2 n+ f/ f% A<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>
" ]4 u; ~5 e8 y0 f</tr> 2 e& Q7 T8 j6 I* `5 Y
<tr height="18">
# f, L. K5 R% J( M7 f ]<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> # d" D% E6 w* L: d
<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>
9 Z* J1 p" g; A% p; O# ~+ b</tr>
* x/ D4 f; X/ B, X1 Z4 z, u<tr height="18">
: x d/ i4 e: v) O( |; z. |<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>
& R) G2 J5 F# h2 j- 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 U3 T( | K' w1 e</tr> % N- q& v5 A/ z
<tr height="18">
8 \9 S4 D( U$ b* n5 k- A<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> ' T2 W( q7 k; B$ Z9 W. 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>
* j3 g/ P4 D! ], Z0 C</tr>
! U- w/ e( r( _: ~1 l* \7 z<tr height="18">
3 H6 l0 h8 v2 }2 L3 e<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> $ S" F. ^& B2 F+ @
<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> 1 n% J. i1 i1 c% |! x: g+ V2 O) s
</tr>
# H! A0 Y, A" n! _<tr height="18">
2 v6 @! n- \! r7 k r: y4 e* m<td ID="40" width="18"></td><td ID="41" width="18"></td><td ID="42" width="18"></td><td ID="43" width="18"></td><td ID="44" width="18"></td> + _+ |7 c7 s- u$ m
<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> 4 ?7 n" _! a1 [: e
</tr>
; L4 ?2 l9 `- H) h! ]; {<tr height="18">
, v8 I- T9 I* T2 ?<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>
3 x% q( x. S6 m$ H; g- n<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>
, i/ g$ v* l U( x# J3 k6 {' V# P</tr> . O1 c, U7 v4 |1 b; y9 |
<tr height="18">
8 ?7 b* W- I; j, d<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>
* _3 F" L) ^# U<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>
! E; C4 R' f9 S( |- M- J</tr>
, ]0 \2 ]. {- @' ^' L<tr height="18"> ( R0 y% I# ~# p: A4 G; W
<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> 6 ~) Q1 i! y9 p/ B. H/ D F. i8 x
<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> 1 }$ b3 H8 A- S x+ U
</tr> . P% p. r1 h8 N
<tr height="18">
2 V- i7 S7 b# s& F! i* E% U<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> 8 E! H" ]' Z' P- L7 Z
<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> % k0 @1 }5 Z- v* q* u& A
</tr> ! {- }1 w" l$ L4 w
</table>
- C3 [4 y* @* p: a6 K</center> ; H: C3 t$ W$ {; N8 p
</td> 7 m9 V. |. W0 B5 r. m
<td width="100"> # _7 d4 O8 |6 l+ ?9 _; Z; B2 l
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 6 s2 S* z# f5 |" {2 M
<tr height="30"> : u( L& Y& j+ R! @, s( {/ K. r: |
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
! k* ]) h3 Z1 \2 ` n* X" D</tr>
% t# C9 w: ?5 b0 r* u) d<tr height="20"> 8 q3 H4 c) h/ x: Z8 }
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> 8 T7 }, @/ X5 q9 ~4 [# v% a% F
</tr> / i9 }) }% y* z& j) R* f1 i; o
<tr height="100"> 6 [6 B9 k! Y2 ?7 k$ S
<td bgcolor="#FFCC00">
# d; u! u1 B, i. B1 |<!-- Inicio Preview --> 3 t3 w$ _: K% w) ~1 P2 D* S- e8 g
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> # B, H2 P, T! D' m7 ~& I
<tr height="18"> ; E, b8 t* V J- @+ J0 p
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> + M, i* Y8 \; R: c' H5 a1 q
</tr>
2 t2 S' L1 K% l5 X<tr height="18">
; h4 k; Q5 H5 h2 @* o<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 v/ O8 S# s$ Y$ }0 s0 o# A6 c
</tr> ) \; C* n" w& V
<tr height="18">
: M2 _% V4 S# J% C# j<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
6 D) c; y: {/ x k* G) a2 P9 I; Q</tr>
0 c0 q0 S# u- r1 [2 _" R</table></center></div>
5 K! }7 B% m% z0 L* S<!-- Fin Preview --> 1 r# b0 y& m" b8 X
</td> ) L x" S8 l3 b, Y# |6 s
</tr>
/ ^" X! P1 y. \- y2 O( H<tr height="32"> 3 Z9 l+ G4 A( f- Z+ Z& D
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
/ ]! k- E2 ~# R9 f% f</tr> 8 A: I: f! E1 g4 ^. U+ P2 L" K$ u
<tr height="32"> # Q% w$ E& V4 K: V+ M' o
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
' `$ ]' ]6 {1 K2 l</tr>
, a+ F" X/ V' C/ X, m$ k6 _, R<tr height="32">
6 X) }6 k C' }& U, q. V* X<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> 8 r x" X& C& X; p/ Y$ A
</tr>
, _0 m! _; Y( K' T' D6 w" O<tr height="32"> : X2 n. Q. W6 M+ e: f7 U
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
% I) H( S3 {3 E2 n: o& [# z</tr>
/ E2 }1 A \2 f. a5 d- Z: s; ^<tr height="32"> % a! X1 ^+ ~! g& K4 h) I7 _: k
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 7 F0 ^# q y9 T0 ?$ l
</tr> . ~2 i( C* d' U
<tr height="32"> * w S6 D& X4 |8 ~( \0 G
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
5 ~) l/ q, `9 }4 z" `+ P, d1 c</tr> 5 s' }9 g: s9 u' o6 x3 k
<tr height="32">
" ?% P% h* Y5 i! a" F<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> ) M, m% `2 k0 S$ p9 h$ g
</tr> # s, a2 S* V0 n% D' ~; N7 [9 P1 C
<tr height="32"> 2 _1 p! {/ v' T' e, i
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
' a6 `6 Q# L4 M" @</tr> ' e w! H( }& K3 \5 j
<tr height="38"> 8 f$ E0 D/ D; T+ d$ H n
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
2 i) o% z# U8 B; f/ Q</tr>
9 C2 f' l: D6 J/ c" w6 g</table> 0 v" T& f0 G. J. @: ]% R+ H* i% B
</td></tr></table></center></div>
) d x' }4 z" X- f5 O</BODY>
. O) Y5 G8 P+ [5 f3 ]; O8 {<SCRIPT LANGUAGE=vbscript> ' U; |9 ]( [, d [) O+ K
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver 1 z+ A0 X/ r! v4 w: ?
Dim hs(),sor(),hsant(),n(),s(),s2(),s3() % L$ m. |& ?5 [; f( ]: b$ |
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)
9 |( b W5 q. B5 }! oLevlIni = 1 3 m7 d$ N! s; j' s4 ?9 e0 [
Pausa = False : y) E, K8 a8 q- o
HastIni = VelLevel(LevlIni) ! C$ [9 n4 x/ H8 a) C" z6 F3 I
Hast = HastIni
. i- d9 c! ^5 l. FLevl = LevlIni ( ^+ v0 q( K, Q9 N' m9 W! y
Pos = Levl - 1 0 o' W# Y/ L6 d% Q6 B" v
ColorForm
2 M& m& E7 }$ oGOver = false / j+ w& o' Q. `8 c) K; u
function Iniciar(ind)
6 h( B& B9 n4 |% D2 ]if ind = "i" then
, x6 x* `4 w/ p' E0 h: ~score = 0
6 j1 ]5 V* p K% E, @GOver = false
& M. j1 q) ^& O2 LHast = HastIni . h ~1 J$ a% |6 u5 H
Levl = LevlIni 3 \6 n2 K& q" `0 T. @ s8 H, H7 H, f$ h
Pos = PosLevel(Levl)
" ]) \5 D4 Z/ zFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
. y8 e* u3 [+ A1 I$ e2 NFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
" z1 Q6 w" R! _& T" OTimer1 = window.setInterval("Andar()",Hast)
. x- W, n K" P7 m2 j' [$ sColorForm $ A. T& s* g3 t$ k% }4 ]# {" K7 Q
Fig2 = 0
" l0 W, e* N3 d' ~( @1 iNyfig
e. v0 [3 \ ]else 7 L# V) ]- ^ ]7 J+ x4 V: l! G/ @* s
window.clearInterval Timer1 7 {# q$ x I! B4 g( n8 z3 D
end if
7 L# S+ F. `8 Q, Z; Gend function 3 R! i1 [4 S3 {4 C0 @! `9 g$ a% u
Sub Nyfig()
0 Q( q& |0 e2 r8 \7 `Pos = Pos + 1
5 K6 a+ w/ ~7 Y( Bdocument.all("In06").innertext = Pos
0 u$ o) _4 b- L9 U+ gSelect Case Pos 1 n/ l7 y6 `6 n+ F, A7 ?+ W' w
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl & `8 U9 a' g' Z7 R8 x- T
Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl " J0 v# b W& \. |! h& t* w. ?/ Z( `
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl & [. {5 F! b( _# y: u
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
; \) b0 w# \0 ^5 G; J$ uCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl % Z% L/ P0 t7 ^+ l' p1 J
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl . P1 t% a% r8 C; r( U% o! r
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
$ {/ }, A9 X: [5 `Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
; W) H/ w$ G8 E3 `) M$ BCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl # \! y1 G2 r7 p. q/ ~8 r- k& G4 E
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
+ z& l1 c" U6 ?) l/ ^( u$ i k0 NEnd Select
% j* i5 z! R R; |, I3 hwindow.clearInterval Timer1
* Y7 g1 U- k$ d1 w3 Z% x* hTimer1 = window.setInterval("Andar()",Hast) + J% }, T7 X) [( j3 o
Fig = Fig2
& C) G( G; J) M. {1 x! OFarg = Farg2 / R0 R# A" _. Q- [
Fig2 = Int(Rnd * 7) + 1
+ F8 Y( ]* g; q, O; q" i) sX = 4 - ]' M! o! b! w* s3 Q
Y = 26 , ]( t/ w0 }" Y9 s, N3 c. S
Rot = 1
6 m2 e7 U+ |( \1 A0 G. j6 @$ |For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next ' R& j* _0 q9 a
Select Case Fig2
' H I; u0 O6 ~9 ACase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" ; Z" A4 [# ?, D s" B6 O
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
) ~3 t% s7 k( A& @ q, ~3 ~) o! |Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" 3 |% {& F6 [8 m7 k
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" x/ T9 ~0 g g( D+ m) S
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
2 S) U5 R1 G) }* j/ R/ C; ZCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
$ A7 P4 `0 k/ ^5 w7 v5 M8 LCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" 8 ]& P# [" ^6 v1 t' J* \( J
End Select
3 y- A& x Z+ f& H; N; }# ]* nFor i = 1 To 4
, N x5 R: v9 y6 a* NFor i2 = 1 To 3
; |8 Z% m, { y7 N. {document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" 2 [' ~, l4 X* F
If s2(i, i2) = True Then
" @% u5 o7 B. v0 Qdocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 & L( m( Z' G2 e) Z; l
End If 7 e* q, _! M- l2 q6 T& N3 o
Next ! [# [; R) N2 ?* O: Y2 n
Next
* c( f" X! t- r4 R) f' B% YEnd Sub 0 O# Y0 N2 g4 f% r3 k1 q8 f: A
Function PosLevel(Lev)
( |( b8 Y2 e1 c6 [! z/ ?. M. \4 Q$ tSelect Case Lev
6 d% M+ S2 Y, Y uCase 1: PosLevel = 1
1 O. }+ s4 ~( m5 D$ e7 yCase 2: PosLevel = 51 ; Q- J) ~3 P; W5 W
Case 3: PosLevel = 81 ! U6 m; L X% Z* \2 _
Case 4: PosLevel = 111
" J3 H1 I2 S V# |, P1 K! G2 n8 A; N: `Case 5: PosLevel = 141
* K3 K; K3 z3 o; z- `Case 6: PosLevel = 181
2 M$ V4 K+ Q% c) R; |3 ? T% XCase 7: PosLevel = 221
+ Q5 P# R9 e+ K+ g% `8 `* ?7 qCase 8: PosLevel = 261
! o4 y( w9 Q3 oCase 9: PosLevel = 301 * X' s M0 ?4 q( e+ r' ~( S! W
Case 10: PosLevel = 341 0 A9 W% N/ M0 R8 x
End Select ) W, B4 U8 J! `! R( L$ j4 \+ D
End Function
N& ?6 a+ }( \/ q' f) i" }3 Z" ]4 N' n“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
7 \- ^, z0 b: z' U$ h3 l$ p0 fFunction VelLevel(Velo) 9 @1 F: K$ W8 B/ Q) I
Select Case Velo
, h& h# O" y: qCase 1: VelLevel = 500 8 _+ e+ X6 U7 J5 X. U2 b- ^0 R4 ~8 H
Case 2: VelLevel = 450
8 p; f2 ~9 e$ X3 @8 n* VCase 3: VelLevel = 400
( N' I) [" R4 g- n1 V" ]( kCase 4: VelLevel = 350
! s0 Z0 a8 z$ h5 l# e, sCase 5: VelLevel = 300
$ f' {. S2 U7 T2 Z/ |2 S" {. YCase 6: VelLevel = 250 . n, S: k: u1 b7 |. _+ S1 I4 T
Case 7: VelLevel = 200
) U: O" H4 L. Z$ \# ^Case 8: VelLevel = 150
, r4 j$ J' E! N6 i. _* a6 V" fCase 9: VelLevel = 100
: L% N: m5 e; ?' a5 oCase 10: VelLevel = 50 ) U+ h2 }! W. N/ ]6 K- v
Case 11: VelLevel = 10 . h+ _1 d! c/ C- u2 C& |' l1 Z
End Select
6 X- T: Z3 V: f& M# bEnd Function
" L4 Y9 X# i, D! i- {& K& r) GSub ColorForm()
+ t# j: ]! T6 L0 l9 Q6 x1 xFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
* j7 L+ k6 L% V5 aFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next 4 W! m6 v5 t* p$ x. V' p
End Sub . \& B2 F& X3 ^
function Andar() 1 I |$ m$ V8 h0 p
For i = 1 To 4 9 c/ G' b5 A; N, y) ]- O+ n
For i2 = 1 To 4 + B! D9 u" A1 y! P
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
! m" R" E3 d" t7 Z J& T' ?& bIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then 5 y- Q8 t3 M8 e0 {. R5 p# K
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
w, P/ [4 f# EEnd If
0 `% ?+ Z' k; kNext 0 V. j) m, s) z' Y
Next
; T9 V1 w4 Z C, gIf Fig = 0 Then
3 v) ^0 K. f X. T' j; RFor i = 1 To 4 8 E7 T [8 b% b& V6 K! `( k8 x
For i2 = 1 To 4 # z# F! Q3 r# K! Y' T l) p
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
2 s1 I W4 s# s( o& TNext
8 E n7 E- Z L* S( @Next 7 y6 u& ]3 z1 U0 \7 E( I2 x
Ner
% Y d9 s3 |: I6 D. INyfig 6 i' v2 ^! W" D, j
Else
, \5 C, Z2 t8 ?9 LFor i = 1 To 4
" ~; i) t. ?- B& ^6 t) EFor i2 = 1 To 4
; I- y4 I, X/ K- {- j4 E" h. OIf s(i, i2) = True And s(i, i2 - 1) = False Then ! v2 d$ z2 G- c& u4 x
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" B) A1 _; |2 V S2 E
End If
, q' _0 S# f3 F+ D4 UNext ! N" G; m+ A2 @) ?6 r$ N& r
Next
; p6 Y# Z' ^6 R% M. M: qEnd If
1 c5 J! K+ |; h. S0 g- E4 V* g' QY = Y - 1 , q' j# R9 U: }& T4 i9 h/ W
For i = 1 To 4
/ b, U' z9 e& p5 z- |; jFor i2 = 1 To 4
L% C0 U1 U* n* F5 TIf s(i, i2) = True Then # v6 [ }5 R9 r: F9 q7 Z
if not gover = true then 2 S! B' f+ K7 K8 f$ U6 b
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
7 L8 n* y- z# [; q; n" [, yGameover * s' g3 ^" x J% t" f; R
end if ! f6 y+ H9 ]3 B9 `' c$ E9 V
end if
3 ?: y$ I, g3 S# n1 sEnd If
3 u) ^; y( T) {4 y; { ~If s(i, i2) = True Then
3 K4 S* N& K% K S6 o Fdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
$ r9 s7 B! f3 I$ W% b4 O. g5 F( |End If
- U K' Q# M& I) { x; GNext 6 S1 L7 D, s$ G1 U2 H+ B
Next
" [/ P5 a4 ?; H5 w$ h4 n% \4 u) M+ |end function 7 w4 N- v: L& I
Sub Gameover()
; V; r9 [# n+ EMsgBox "游戏结束！", , "俄罗斯方块" # r' R2 w' v, D* Y6 V3 I( o
window.clearInterval Timer1
& U3 p7 u+ o8 RGOver = true
3 [9 X. A8 K2 T: I: ~End Sub
1 K5 X& B/ W8 ?' YSub Ner()
9 N# i/ T7 y) K! |( g ], GScore = Score + 10 / I8 ~0 l( N8 P# t: |8 V
document.all("Sco02").innertext = Score
* H0 U+ ]7 i* w/ ]For i2 = 25 To 1 Step -1
- X \2 L- ^3 L9 b7 c) Aok = 1
/ k1 b2 c5 V' n' M' oFor i = 1 To 10
! d; S; U! q- i0 C$ o; o: ?/ Y0 wIf n(i, i2) = False Then ok = 0
. V6 ]9 p' l: k# ^& c3 MNext
. M- ^' G3 i) F2 D5 tIf ok = 1 Then
, G$ T5 ~: V. E( B( ^& C( E& SScore = Score + 150
2 M% }- X9 h K, i! ]2 ddocument.all("Sco02").innertext = Score
( w" J, p1 B# w5 ^% g4 \For i = 1 To 10 3 q8 G+ `- F6 @9 z1 [
For i3 = i2 To 24 : I& C( r5 d: H- Q2 \6 a9 P; M
n(i, i3) = n(i, i3 + 1) & j. l# U6 \. e) u5 X5 m
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor / C/ \& e& l1 O2 R, w
Next : t; M* w( Y: v4 D8 O5 u
Next
& u U7 q8 g! z! h# L9 B# uEnd If . n! u+ u8 s: O9 i0 A
Next
; C2 B- E% O* X% T/ a7 \End Sub 8 Z9 \, W3 g5 o! f1 _7 F
Function coor(xx, yy) * U, \/ a6 [$ D
coor = (yy - 1) * 10 + xx - 1 # B% e: @, }1 u) @3 t
End Function ) e& w) G5 C1 }! s& O% W
Sub Rota() 8 K9 n3 p" u8 Q( {5 |
Rot2 = Rot + 1 - j& j6 ]1 ]( C; }8 _" A
If Rot2 = 5 Then Rot2 = 1 ! _/ }; }0 N a, ^
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 $ l2 J3 E( d- ~8 `
For i = 1 To 4
/ {% `, s' W5 v& U' DFor i2 = 1 To 4 - f% [7 Z1 x" d. Q2 b( m- s1 \6 b5 L2 P3 S
s3(i, i2) = 0
' D1 \% M2 g( W V- LNext : m* u4 A+ M' {) f, J$ D! l
Next
Q, W; r8 d8 i7 x& v0 wSelect Case Fig
3 k" U; l. `! e9 K; WCase 2
# n+ e) g: k9 Q1 g4 ZSelect Case Rot2 $ t# g* }3 D8 g! @4 T9 p1 z
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
9 U& R. n4 Z4 |- }Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
# l1 O3 J3 C! _# {# Y* N MEnd Select # u9 K& ]- k* n' X# ?4 A- W5 m
Case 3 + j( V: i ~3 I: V! G7 l! p5 A) E
Select Case Rot2 4 G' X8 d" A" U4 c$ j
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True 3 w* f; A/ c* _: h, \5 u
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
% c! ~! l( w6 n( m8 }# ^7 X' {. JCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True h6 {7 W+ R4 X6 G
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
5 [. M# z& `( gEnd Select
: E" U7 {, W7 U& T" \0 zCase 4 $ F2 k6 ]+ c% C4 f$ {& ~2 Q1 H
Select Case Rot2
* y/ [8 C* W& i; d0 hCase 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
) U' n5 @5 d% K) e4 }! t" aCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True 4 |5 l4 W2 U/ g. l) C
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
1 B8 |6 {- l: x1 e( W, G! c2 B/ yCase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ' D* u! n+ o0 n+ L
End Select 6 `: S6 N% Z1 q; Q( c* [; Y3 m
Case 5
: r& _' o7 r3 Q5 z) ASelect Case Rot2 ?' U2 a! g) U4 ~7 D; P0 U
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
- E, D: f3 }2 w: T$ f" v; g: V4 uCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True & ^% T5 Y2 K& s! [, N
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
% c6 w. ^( {( I# |& W- LCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True & g( P2 L1 l/ z) n6 }0 Z/ b
End Select
, }( h0 A: Y: U; r( o5 SCase 6 " U7 |0 q; ]9 ^4 I6 K" d& M8 g
Select Case Rot2
; f& a# a* O% Y* D3 ~7 BCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True : M" X7 L! ? e& w9 k
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
! B2 }7 _) T- W. h R! e3 t* {End Select
2 K& B# x/ L& qCase 7 * r4 m. d# ]4 J1 p4 ?/ f/ b
Select Case Rot2
" J7 m1 j8 L8 n) t) A: XCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
2 g/ C6 y& m/ t: L9 }- \Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True + t1 V$ v, T4 i
End Select
. |4 O& @, |- B2 NEnd Select - _4 p% ^5 | f. V5 V* t
ok = 1 4 Y" j4 U h5 r b
For i = 1 To 4 G! R: w4 V5 P7 g
For i2 = 1 To 4
* s7 o; K8 N# c# F' GIf s3(i, i2) = True Then
3 w# ` N/ _! R- H/ Z6 U' zIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
! k7 T6 d- V8 y% v: I9 X9 JIf ok = 1 Then 6 g! k, J: l5 C+ @
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0
5 m/ m) F, t# m1 `4 s" bEnd If ) T7 d" B3 ~' S% w# Z
End If 0 Z" O" K+ X ~ x# R; V$ K- [
Next 6 U. ?6 e4 `3 ~
Next
7 q# L1 E( {( z4 W* P6 ^8 \If ok = 0 Then Exit Sub : F m% M( Y7 e7 O; A
Rot = Rot2 " P4 h% j( S# ?. E1 B' ]8 N7 K
For i = 1 To 4
. l, `# W% Y9 t1 n4 i" `0 GFor i2 = 1 To 4
4 m% H# F; d7 N; uIf s3(i, i2) = True And s(i, i2) = False Then 0 g. {8 j0 n% t; }6 q3 r9 v
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ) U* ^ T& _; a
End If
- u: K$ w1 I5 n8 BIf s3(i, i2) = False And s(i, i2) = True Then ! c. e! x9 |- a
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
. h4 h( K/ u! v. T! c5 ?) OEnd If
; s( b' K% ?* F/ r! o W( Vs(i, i2) = s3(i, i2)
* D. h: G& H5 ~$ H3 lNext
+ b. b1 W& V7 l0 t% @" dNext
1 i8 T: J! D P: c. }End Sub 8 s0 o& c( Q' U) _& A
Sub document_onkeydown 3 Y2 c6 f, }8 D' `8 C' b
If window.event.keyCode = 27 Then msgbox "Pause",,"TET" & S B' L2 H2 F* I6 ]" M! ~1 B* M
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") " e$ D/ ?7 A3 \: a
If window.event.keyCode = 113 Then iniciar("i") $ u! X) ~. b: Y6 \+ H2 y" F7 E+ |. ` E
If Not Pausa = True Then
. C& ^& V: N/ j3 F5 w- T& tIf window.event.keyCode = 38 And Fig > 1 Then Rota 4 z& @% \/ W" p' y F6 i- Z$ G
If window.event.keyCode = 37 Then 3 }1 c2 m/ o! W$ B, D4 ?3 q
ok = 1 # u7 H* H' y( N* m+ o4 R; E
For i = 1 To 4
4 Q) j( O/ E' y8 y: b/ {For i2 = 1 To 4
" f6 d: C1 `) d$ v8 m+ Q/ ]5 {If s(i, i2) = True And X + i - 1 - 1 > 0 Then 1 l; A; H/ C p/ p- W
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 1 N! G" J+ p# o# ~2 @
End If
4 O. r9 ~. Q* ? M0 p X" xIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 1 C* e2 }! ?) H
Next . c0 o; e3 ^2 V e: T3 H0 S8 m
Next 5 T9 @- _! C/ }. J' z$ L; q+ }
If ok = 1 Then
. T; ~- r6 m# o7 Y) U2 ^) vX = X - 1
f0 U; i4 B: e% k5 q QFor i = 1 To 4
' D" m! K4 @6 N. dFor i2 = 1 To 4 . Y# K! }3 D1 R' z
If s(i, i2) = True Then
8 E$ Y* t) Q2 M4 ]If s(i + 1, i2) = False Then * G3 w; x3 v K W7 A
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" 8 o8 k' o4 L7 H; y) j9 A
End If
$ ^; o4 m. V4 R& PEnd If 0 z9 W: T7 r& K ?
If s(i, i2) = True Then ' D9 X) m' a" l9 O* @* Y
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
( E2 W b* t- W3 i8 B7 l& [End If
n) H; j- M7 |! V$ D* SNext & Y1 y/ U U9 p
Next . }% O# o; T+ i
End If 2 B0 a+ H) F5 ?9 K# E' `
End If & y/ Q- {# k/ u; C. \. S2 N
If window.event.keyCode = 39 Then
$ h% a2 T' r; wok = 1 + h! P! S0 }5 `' `
For i = 1 To 4 # a) e M/ T* _. G
For i2 = 1 To 4 & k9 h" ^9 w% m7 r
If s(i, i2) = True And X + i - 1 + 1 < 11 Then
/ m: b) ~* z# o8 u C! G1 AIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 : B& p2 `7 F4 H+ a5 }. H/ P
End If
4 I' {: J5 Q# p# N6 |# h3 |If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 + t/ K) i) s! p, j
Next 2 g$ @# r( d& y1 E
Next , Z. ?* U# ?6 {1 D# |
If ok = 1 Then
$ U7 i& H. _) R+ J( Z2 wX = X + 1
! u: t: V, n+ U* z5 P1 ^For i = 1 To 4 8 t6 F- r1 D) d- l) [3 N$ |
For i2 = 1 To 4
; O' x5 K. r- L3 UIf s(i, i2) = True Then
j2 H c) t8 f* |If s(i - 1, i2) = False Then 1 ]4 a6 L5 Q- i' m1 ]* H# {
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" " N3 c* g C7 y1 {( B% z( i. E3 z3 c8 \
End If 8 h ~* _ Q- S4 J) Z& V+ l
End If
. ]. q) q$ ]8 U7 R* H& J$ f/ h2 OIf s(i, i2) = True Then 2 ^3 z+ F4 X: ?( W
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 4 P: `+ R# R- t
End If
/ g4 t' C- n5 h4 R, o( [$ J9 F$ }Next
. f: I# {& Y( ^* c% l; i, O% BNext
1 ]9 @6 |7 `& c1 r- \$ ?" ?) J; kEnd If
: L Z; L8 h2 ~8 {End If
, x; V$ d5 f/ I! s! [“Aqui
2 D& u; ]/ \( ^. {+ B- P, HIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then 4 X9 v/ ?+ z' w
If Fig > 0 Then : W& ]& P, d c2 p* S$ Z
For i = 1 To 4
. h3 i+ n: i0 S2 l* X. x4 o! sFor i2 = 1 To 4
: b! [1 A( x9 N4 U4 ]% XIf s(i, i2) = True Then 2 t3 u+ W! S. A' i
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 4 ^: x3 W' K2 ~2 k0 i
End If
. V. B- J& k- K) {3 Z ~Next 4 f1 `5 l& V9 \9 B0 G" K' z3 C
Next 7 j8 E) x: W# J4 B* |+ y
Do
- v8 y5 U. n/ a, LY = Y - 1 5 m( J/ S$ ^) A% c" |. {) g1 b' A
For i = 1 To 4 ' {/ f; U* V8 K q) x- |3 p5 `$ v
For i2 = 1 To 4 ) |4 S D- \) @% w4 G$ F
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 2 ^% b: b$ E8 G7 Y! i2 Y
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
# {1 x: Q: J% _4 qIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ) T5 M0 S; k" C* @
End If % b8 u1 G4 g9 v* R: Z
Next
7 I& T4 |/ K% INext 0 w7 p- M- b$ ]8 I& _* V% t7 O
Loop Until Fig = 0 ' k4 M2 W# E p
For i = 1 To 4
9 |" R7 I$ @. o/ F! V8 lFor i2 = 1 To 4
. i! @$ w2 P; `9 [* m" J b0 z7 OIf s(i, i2) = True Then
& ^# V+ W0 l( b) p6 k7 {document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
- _: @* z/ [* S% D2 `7 X2 bEnd If 3 V) V. S4 b% Y, b, Q, i1 t
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True & W" ]( {, _ m5 f6 N& V
Next
6 e, n$ ], @ GNext
4 |, f' L" `* G7 E0 A/ mEnd If
* A9 }0 m% d0 s6 I( G( ]End If
+ a& }" U3 v$ j b& s* REnd If
6 j9 A. r2 o; f( `End Sub
7 G% C1 f `/ K+ h% `& P; Cfunction Mmove(Index)
8 m, v7 ]4 g: c7 L w7 M9 E$ Aif index = "I" then
& g: y1 |! B+ V( x+ j8 |& n6 Hdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" 8 N# O; L7 L8 W. C1 L/ Z1 w
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
2 W9 z( w1 `" N, w! Uelse
: x, F0 A* _. w" _8 J; u6 [document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" $ H, A+ B2 Y3 e2 Z ^+ l0 W- s
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" . S% T k X8 W) A
end if , n+ J9 R" C* ]% K; p
end function ; j1 ~* H0 [6 e+ y
</script>
% R- n( [- p( k8 \ X2 Z/ ^</HTML>
6 d% j( B2 q, w1 i. Q<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主