TA的每日心情 | 开心 2014-7-28 21:47 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容:, q" u/ L% `& j- F
<%If Not Request.QueryString("Ven") = "T" then%>
: [3 \& q; n3 y; m' {- v9 H<HTML>
+ k5 b! a0 r& a4 G+ b# C<HEAD>
. |; ?7 V' O2 w' L<META NAME="GENERATOR" C>
* ` I/ ~$ q7 e4 ?4 `8 h<TITLE></TITLE> - X9 T+ ]0 w4 m, ]: H4 H
</HEAD>
( b, x# b: I; o! Y. E% ^- z<SCRIPT LANGUAGE=vbscript>
& _/ n1 v! B( G( L; I' @function Redir() v3 u* {& E0 }+ ]: E
window.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"
" ^* b* E x) T5 xwindow.history.back(-1) " b |$ `1 y% N- w9 E; ^
End function # ?. m6 E) n" M8 A0 u* |
</SCRIPT> : Q' i; [3 ], B. a6 Q% A+ u
<BODY onload=Redir()> $ ?6 Q- q: h4 b
</BODY> 9 h' O4 Y1 U/ [& [ b
</HTML>
' G8 A% v# J V' b M( }# ~<%else%> 2 o* Y- Y) g) B _7 _3 h4 \
<HTML>
M! A/ Q3 p5 R1 H8 T {& x Q<HEAD> : K! W# e3 d5 [# p7 u& f6 X* `
<META NAME="GENERATOR" C>
% M% s0 W% x7 j! A/ ^<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
2 K/ b% u+ [: |" [! l# Q+ _$ Y<Style Type="text/css"> $ A4 ]/ b D9 q" @6 }7 _- \# V
<!--
# u4 }* o. u& C# M+ |.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} 1 I+ d% P. Z2 k4 s/ M
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} % Z8 R3 X5 i: @3 j& |2 P
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
6 i8 X7 ?7 ]- B0 B7 ].normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
+ A" `& @1 O' v" f. b3 Q8 H( K.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} # i" M5 t }1 C' B! G% ]
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} & y& k9 s- E' N* p$ ~4 Z0 J
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
7 L0 Q# V; Y* G0 K; `-->
+ u- m9 U4 d& M0 `4 n5 j</Style> : B E3 r J* O2 ^
</HEAD> 8 v' z; _, d# F- {' Y- P: M0 B
<BODY topmargin=2 leftmargin=2>
4 e6 }0 ^, K7 W' ^) A2 E+ @<div align="center">
0 w8 ?: ~' P# X0 o6 @" A1 h<center>
4 p* C C8 v q, v4 i<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> 1 j/ l) A4 S! h4 G# |. Z: @, Q ^. F
<center> " Z# Y5 ]/ D" m% Q Y
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
" Q% q' B0 Z; F: q2 q& x<tr height="18">
|) e1 U5 H3 X, P4 V) 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> " O1 Q9 ~. n; I
<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> + f! r- F2 h( O$ J9 K
</tr> " o/ y% q2 {) `( e) M2 f$ S
<tr height="18">
5 S# L8 _8 |: `<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> 9 t$ n# M2 V; R; C0 x2 l, s% T
<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>
8 u; t% T" ?6 W- T</tr>
# f7 _% g: j: K( O8 N9 d5 n! _<tr height="18">
) b' s m |8 b& k<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>
1 C n. \7 j/ }: J8 \$ m R<td ID="225" width="18"></td><td ID="226" width="18"></td><td ID="227" width="18"></td><td ID="228" width="18"></td><td ID="229" width="18"></td> / i, v; Q, e# s: P( A) y9 F
</tr>
& r# q0 G( }( [( K. n: X<tr height="18"> % O1 j; o) f* ?# \
<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> % Y* {4 T8 l, h/ n7 b1 O# W
<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 p% p* G7 C) k# S2 v
</tr>
. Q6 m) ~6 ?3 N3 l<tr height="18">
6 d6 }7 K, ?2 t# k<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>
8 `6 c% ?- h( z8 v<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> 1 ?" s; I' T! C" v
</tr> # k! D& T/ B4 L8 ?
<tr height="18"> , \' m6 a- U0 H A% T3 I% S4 w
<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>
! A8 C6 I; Z+ U' C<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> ( P' T1 i/ L% U5 }) J. G, ~
</tr> / [! E" M. F5 w4 i5 V. t* S
<tr height="18">
0 F, L6 I0 b5 R4 N<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> 4 x+ J1 M$ B! L+ ]& J# ^" ?' K
<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>
0 N+ \4 q6 i3 m* j# Q, q</tr>
6 i" Y' ^( G1 }0 {+ U<tr height="18">
( S8 G9 R( C( H/ b* a/ n, ~5 u<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> 0 c& y: X# J2 M( H/ n
<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>
+ ?9 X4 p) l3 N/ X6 `! @</tr>
& T( F3 c w: [8 l9 j5 _<tr height="18">
+ J0 f0 {3 W3 C, k" d4 B7 B6 W<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$ s" V4 J u/ P, p. n1 [) A<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>
( E. Z: M7 u- h7 g% q</tr> + |5 j; D7 t* @( v% q4 a, [1 t
<tr height="18"> . S6 M; _) W2 l/ h
<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>
3 E9 R/ x/ G; s/ K6 d0 _2 ^6 p) N5 c<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>
- M/ W, i) t; a& O</tr> ,
; I6 l3 |6 R0 Q, [6 u4 k5 g<tr height="18">
2 x+ N8 F5 o% b# o5 M* M<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> ; G9 R# h2 w& U7 D% v9 W
<td ID="145" width="18"></td><td ID="146" width="18"></td><td ID="147" width="18"></td><td ID="148" width="18"></td><td ID="149" width="18"></td>
1 `+ @8 m0 d% B7 [( T</tr> 3 T3 J3 X4 ~$ T. u( q
<tr height="18"> $ h2 c5 L6 L6 Y5 m( A) l5 K* q
<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 f5 V) r6 ] _
<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>
0 n9 f) j* S# O, R1 T6 M( a% Q' W3 @</tr>
# Y& @; P* {6 z. t% _ V3 K! a<tr height="18"> 4 B: |# p2 V1 ]9 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>
1 C0 I- ^# m X- Y/ R) @<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>
A0 f. ^: l$ l0 Q/ u" b- S</tr>
7 R* q- {. [# [' R- \; n( c<tr height="18"> " q. J0 d2 \# A+ J! y
<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> / G5 v. R* R2 x4 v- z; r* Y
<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>
; T; D4 O( y* Q: _/ b' F</tr> 8 A% I5 z" h; Z d
<tr height="18">
' ^- y0 e3 n" u4 H1 n8 c* L<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>
( ?5 u. \ W6 [2 P* O* T<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> 0 e! q; u) M1 D8 F
</tr> 8 ?: O4 G, L1 ^# ~/ w: E
<tr height="18"> - t- L) W H' O! {( _
<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>
6 s6 i! K6 K/ r. \" i& q( |$ _<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>
9 J L) R+ B2 z/ b* E4 s+ [</tr>
5 K' ?7 t f( ?- w1 L* O2 b. D<tr height="18">
, V# r2 R3 p" K0 J6 N<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> 5 ?, l5 O6 h6 a+ j7 ^" O
<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> " {" l& Z4 S. d' z! u% s2 D0 B5 {
</tr>
( m$ P) y8 b" |<tr height="18"> 1 a6 z1 o U4 j4 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> : W+ Z+ l6 |9 {8 Y
<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>
+ f( d! k; A( U" \</tr>
* E# K$ C0 @ h6 ^<tr height="18"> $ z- V1 f+ l" U3 Y# ?" n# X
<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>
% `5 o, Z0 n! L5 }# Q<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>
4 _" v+ J) X6 _</tr> ' z8 w2 ~. N0 o; f4 T
<tr height="18"> ; X$ }) c3 W0 M6 Z" N
<td ID="50" width="18"></td><td ID="51" width="18"></td><td ID="52" width="18"></td><td ID="53" width="18"></td><td ID="54" width="18"></td>
' z1 M6 m) g7 D$ y4 n- S<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>
( R |' b4 \* R/ ?0 N, C</tr>
. m9 [& e+ F4 R; ~3 r& M<tr height="18"> a) u' `, A% V
<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>
% D/ ~( r) t7 G) Q9 U4 v<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>
* x& |! M% h2 O+ _</tr>
0 b. E/ G' X- r<tr height="18">
+ |$ C6 f. ~, _) U u<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>
% U7 s( v- o" j7 p<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>
& w, r3 H9 r8 f! j</tr>
- {8 [0 @) w' l/ v. U: v<tr height="18">
) t4 R w$ s: x3 j, _( V<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>
# B% a$ X8 C0 S+ [6 l<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>
& W1 Z( V/ _' \* e( T6 h1 d</tr> 9 Y" Z3 E+ K0 F8 L2 M
<tr height="18"> & {5 U" Z6 x, g- i; G- }$ H
<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>
. w1 g7 e# Q' M0 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> * Z" x5 {- \# A( A6 m, A
</tr>
. X5 v$ p w% [( n<tr height="18">
' {1 @" V% J, \<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> " K. t3 M1 k. m( ~8 K( ~
<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>
/ m. ?. a9 T6 M4 d3 V( S% u</tr> / _' t+ h8 l0 c$ Y _
</table>
$ N& b& Q' j: K0 N* h+ S</center> - S2 P7 J0 V1 b2 }9 C3 q0 ~
</td>
/ c, H* u5 Q/ d<td width="100"> ( Q2 J( t. i) M, @, d% C6 H
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
( W" T% M. q2 ~# ?* o<tr height="30"> 9 a9 }7 X3 h" ]( q
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 7 R! x5 J9 e1 v/ `. t* I* K& o+ |
</tr> 2 w! P+ H+ u: M( K/ O
<tr height="20">
+ x/ E& G. C! V& z. |+ }7 N! m<td class=normalD align=center bgcolor="#FFCC00">提示区</td> + _* `3 F8 |$ R7 Z6 w1 B1 f0 ]
</tr> / d/ T4 P J( N6 [6 |, j8 [ |
<tr height="100"> 0 y# {( _8 N2 T5 e0 a3 c
<td bgcolor="#FFCC00">
1 d$ h* P: p% I8 |- N( B6 a) c+ x<!-- Inicio Preview -->
" O5 ^+ Z+ l& }5 z; V8 d+ b<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
9 d% @8 Y0 \7 x3 ~. _ _8 ^<tr height="18"> & n# v3 H" u7 t# i+ B
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> / d* w- |/ R7 `* R# m
</tr>
/ y$ J( H a$ k) Y+ i<tr height="18">
$ z7 D2 P# I& d/ g) A) y<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> / X% l# e' @/ p5 a
</tr>
) r6 I5 m" z: x, T+ r<tr height="18">
+ J! z9 H7 K9 W3 @<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 Y2 T) F, N3 o% _2 X: O% W: G% R
</tr> 7 S8 z4 Z( j& @% k7 j% N4 v' \& o
</table></center></div>
. |* F o' d" l! Y, z: ^5 g4 o<!-- Fin Preview --> - k/ N& N( D- V$ o% {; K" O8 z
</td>
+ o3 V; O( f0 i4 @</tr>
3 f+ s6 U. I K& ]4 e3 }6 m<tr height="32"> 9 @9 e$ |9 {6 G* Y+ A3 }( y
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> 4 X0 f7 r4 _8 M8 L9 H
</tr>
& n# {( ]+ ]3 ]) D) T1 a0 Z$ [<tr height="32"> 5 l3 j) o3 A+ p t4 F9 P$ {6 W
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
* l& V& T3 }$ e5 U4 A0 h</tr> 2 `0 S! T1 {" w- O. d
<tr height="32">
0 \6 m8 m0 D. s8 }; i<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> * B0 a `1 x I1 q' Q
</tr> 8 V* `6 c+ K: ~- m J6 m
<tr height="32">
. Y; c$ A) V _: Q! V1 U0 x: c<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> V8 k- a! |# V: m
</tr> * `; I8 g; O3 q" o1 g" ^* n2 q- E! c8 U
<tr height="32"> # F" c9 R; U$ R' g; I$ e
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 9 \0 s0 i6 X2 _0 J+ d0 H5 v5 e5 r( k
</tr> ; r. ?+ O" x) L$ o& }
<tr height="32"> , T* ~* o& O' O# `
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> 5 T9 J7 S8 h3 q+ d6 s: ]
</tr>
6 `1 P: j/ C0 F5 a# i& f* L<tr height="32"> ; `$ }. f! a. z9 X! K% I
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
$ B) X; N. `; \4 b, I- ^" U |) z</tr> * f5 j6 _( K$ s7 U/ F5 e
<tr height="32"> 3 c' u7 V9 {( D/ U2 o
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
( |# r1 @1 O9 d! c6 s# H2 E1 i</tr> 6 p. S% g" F C3 X2 b
<tr height="38"> ; h; Q: w4 C4 `
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> # @: g8 `# `" l! B
</tr>
- {! E: Y; H z4 L</table> ; w2 `1 Y4 ] B! z7 P
</td></tr></table></center></div> # U& a& S+ X$ A7 v/ f& `
</BODY> - r1 p) g8 |. j. d
<SCRIPT LANGUAGE=vbscript>
8 m. T, p" p. g) ^9 b. o& lDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver ; n% G* P( w7 x) ?! f5 G8 ~/ Z
Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
4 J4 K- p' a4 {1 m% _* w: x7 mredim 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) # c7 ~" [# o9 }0 o- `' `
LevlIni = 1
3 ?7 G/ P$ S8 v5 lPausa = False & k* T* V, q9 \6 B4 x) p3 o
HastIni = VelLevel(LevlIni) 0 G0 x; G+ U; Z+ {
Hast = HastIni
6 X# i: O* y; @; W8 CLevl = LevlIni , z- p, x" v: h! R* \) q
Pos = Levl - 1 3 I( B' V+ a3 o& e* S9 p
ColorForm 0 t4 z8 @6 I' S+ e$ Y, L J
GOver = false
% \: A. @% G6 l: z4 Ofunction Iniciar(ind)
. R' {' D' B3 }! qif ind = "i" then
% d5 k% o/ T0 r: B0 U* Wscore = 0 ! y7 C' q5 j% H7 s
GOver = false 1 v/ E3 A) Y8 w9 p( m5 k
Hast = HastIni 3 K$ m- V. Q% n
Levl = LevlIni ; X/ k; M3 W& t3 l0 D5 _1 O
Pos = PosLevel(Levl) ; u2 v, [8 H' E( _ C# i
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
2 K% X( W& D3 p3 h! z- aFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
! W/ I! N$ ]3 u1 _Timer1 = window.setInterval("Andar()",Hast)
: U4 O" l# u: E @ColorForm , E- d* R9 k: u& n4 E' @1 M
Fig2 = 0
1 V. B x9 J5 c$ s( r1 n* o* lNyfig
3 X0 i' Y- i; h; J: M+ F0 E X" yelse : J' i/ }3 }0 H* Y( Q& U$ [5 Q/ n1 O
window.clearInterval Timer1
+ A; v6 u1 r% O4 p$ o( P" Y* Dend if 6 A& Z# z/ Y% D9 k- h
end function , R. j1 i! h0 d" w/ l
Sub Nyfig()
- J1 D; d: A" t. n5 r! PPos = Pos + 1 6 K1 m' N) W! n) s8 c
document.all("In06").innertext = Pos - }- y+ a% f u$ F. T+ j
Select Case Pos
9 M( ^1 {. `/ D* w5 {5 t" WCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
. a1 O, v: L# K4 b; B |* KCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl ; J# g! U& |' q/ d! e8 ?
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 f% r1 Y0 c* u+ h
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
3 A: \) `: t4 V L9 @8 h, QCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 ?. x) M" g9 {' T! g" v# f
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
% U4 n# g5 T4 o+ i7 J% d- U, ?# j. r) xCase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
" g. _6 _. Z# a3 ^# E- n. RCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl # ^9 ^5 e2 Y/ L
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl ( _3 t3 c+ u7 f: w2 |
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl $ W1 H' {; t; W6 L! L) Q& x B
End Select
; L+ E4 A) u2 ?. C1 m# {: T& Twindow.clearInterval Timer1
& q/ T! `. @3 b) o% G7 d( X: JTimer1 = window.setInterval("Andar()",Hast) : O5 x i4 F8 `2 I$ d: {
Fig = Fig2 ! O3 K, m8 @& C+ C
Farg = Farg2
) A/ J& s, [# S$ K3 CFig2 = Int(Rnd * 7) + 1
1 l: p2 v j# K K! R5 @+ a6 |X = 4 7 z8 p/ I Q9 k
Y = 26
( [0 n( Q+ y$ p7 bRot = 1 " S* n0 u9 p) Q& l3 e/ c6 n
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next % o; f0 f5 `, A0 f& c* G
Select Case Fig2
7 p2 Z% l) }, u* R- I# cCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
: O5 ~; v* ?( Z/ [3 ~" K; wCase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" ! e1 T) X; g' B
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" 8 E9 F/ m6 |" W5 ?9 x; l
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
# t3 d* a3 w* b) @3 RCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
) ]7 F( S' M/ @' P' T, cCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
) ?! x: r; @) m3 ~" B% jCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" 3 V4 U: M5 B) J; S; Y2 W
End Select 7 z8 u' ]% J! m7 y
For i = 1 To 4
# o+ Q0 |& H9 U; P' O5 \For i2 = 1 To 3 ) |& g# T& a: X) N
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" % | A& ~- ? v/ l7 ]4 _7 C3 S
If s2(i, i2) = True Then 9 ^. b% _( B/ Z6 Y1 {
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 ! N0 d7 M/ T7 K/ @* U$ r
End If
5 Y" b* L4 @% i6 a: C, o7 L! FNext * D, i& Z2 A: x
Next 5 r; K9 ?+ u; F! @7 ?- Q( @; n; F% ~
End Sub ( [6 W; g- d$ U% } Q
Function PosLevel(Lev)
0 M% c7 L! I# |, }0 ~* A! Q* t( ESelect Case Lev 2 d# m1 Q$ ~0 R" |2 `3 u6 _
Case 1: PosLevel = 1
3 k3 x6 w3 S5 m' b) M( Y: x: |Case 2: PosLevel = 51
$ A+ z; B8 i# B$ }' U' ?Case 3: PosLevel = 81
, G; u) l6 ~5 P5 k: DCase 4: PosLevel = 111 7 U/ w7 m" ^1 d
Case 5: PosLevel = 141 - ?3 A" z$ f4 w% E. t
Case 6: PosLevel = 181 1 U6 ?/ `; t/ L4 r3 Y! Z
Case 7: PosLevel = 221
8 f' A$ H5 E) g: r" [- ^Case 8: PosLevel = 261
3 T: B2 n3 v$ Q( a* MCase 9: PosLevel = 301 7 D; r# B+ G9 S- ?
Case 10: PosLevel = 341
& t; {! L ]5 [" R$ _- ZEnd Select
8 t# c8 J% h& iEnd Function a- {0 L; }2 i+ j3 m; |
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 2 ~2 a8 i4 H+ p) p
Function VelLevel(Velo)
6 J( k: D4 @7 @Select Case Velo ( ?5 d" D5 T0 n \" v9 {
Case 1: VelLevel = 500
1 n' r7 [% h: S& F. E; aCase 2: VelLevel = 450
+ c) M, }% w/ e3 t- b$ p! sCase 3: VelLevel = 400
& y9 U, P$ p3 |9 X: D1 a3 TCase 4: VelLevel = 350 ! W- x! K- x" U$ y& ]" J
Case 5: VelLevel = 300 " {# v+ o2 A! p! y( M, N
Case 6: VelLevel = 250 ! F; u O; A0 l% t( [1 G
Case 7: VelLevel = 200 / X; U& ]2 ?# n* O
Case 8: VelLevel = 150 . i5 D$ J4 y# G6 q# k* p
Case 9: VelLevel = 100 $ z9 K0 {/ I# n+ @ i/ C0 d
Case 10: VelLevel = 50
% n0 @3 t2 A% i7 h8 `Case 11: VelLevel = 10
5 y) h* p2 w- ?End Select / d: a, m& q6 E* X
End Function % C% p" H% F7 J* q
Sub ColorForm()
# d4 q/ [; u! h, EFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
( ^0 Z u# A8 I, AFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next . |% z$ [ {( K t' t7 u- V
End Sub 8 T3 a+ Q+ w3 V4 @' }0 M
function Andar()
8 b% J2 v2 B/ q1 Z' i7 a3 R! nFor i = 1 To 4 ' b6 U2 ?' `6 |
For i2 = 1 To 4 - F( E L) Z3 K( V
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 % V& d! E9 i. O2 A; E V I$ Q4 M
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
, J; [: }6 n9 |+ h9 WIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
) y- i1 {4 x; ?) w% A* o n* WEnd If " Y) G5 U2 W- N( M
Next
! p& ]6 n( V9 o1 P: r/ wNext
5 @% C+ s- } P3 x% Q* FIf Fig = 0 Then ; G+ T/ ^* u' b
For i = 1 To 4 9 H6 T- D: F5 C- c* x. Q
For i2 = 1 To 4
8 t8 z; E+ p3 F( LIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
$ V: h" F* P7 J% TNext
% {2 A& |6 D* | p2 vNext & K/ D8 N: N& @ t0 T6 J7 U
Ner 3 P5 f8 O5 r" t, ?) e
Nyfig
' ?9 g* h4 A6 e: Q1 X; Z9 LElse 8 A1 B7 M& f6 }5 s
For i = 1 To 4 % |: I4 t$ i0 n/ H' F$ b6 m* z' |
For i2 = 1 To 4
* S1 z$ f! ^% Z) K* b$ zIf s(i, i2) = True And s(i, i2 - 1) = False Then
' w! `' \+ Q3 idocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" ; ]; p/ H! V8 X! Q2 F
End If
5 b" G) d" N: y3 i( G( X; W5 }Next
$ b5 R/ d* n0 g2 uNext
# P4 L* a- m+ f6 {6 z3 d* FEnd If
: T5 G1 k3 p- b0 C7 F" LY = Y - 1
, s5 t6 ^: E, Q6 pFor i = 1 To 4
& C- _: B* M* I8 D. P- BFor i2 = 1 To 4 . U: W u; O0 w
If s(i, i2) = True Then
4 z. d7 _" x/ [7 u2 A& Uif not gover = true then
+ y I1 n6 w5 {+ F: n- U! cIf 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
q# S4 l c" t6 O! M- pGameover
1 ~$ _" H+ @; M- _' Z }: eend if 5 E9 h- V6 ] G* T3 B
end if 1 ^* a9 M `- }6 U- e3 Y! h
End If
+ g! n" W6 w* Q' L `3 J/ aIf s(i, i2) = True Then
/ e4 ]: U0 q7 K6 R5 gdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
+ P, V2 y- o" J5 s: p7 jEnd If 2 z( v# ^. O3 S( {5 J' l- |9 k
Next
& u: }" R) Q1 h" \% pNext
+ L# {+ X! p7 y2 R/ _end function
5 ?% f0 ?* w$ S6 W. j1 SSub Gameover()
( c# D, P% v- Z* SMsgBox "游戏结束!", , "俄罗斯方块"
+ N; T- c0 j6 Z* x0 @& b0 |: |window.clearInterval Timer1
3 ?! z" B+ g% A l4 ^0 M: BGOver = true
' b. M8 F# ^7 UEnd Sub
; d! G9 {" e5 W1 ^6 a" MSub Ner() # o8 q/ |! a3 y; h" ` ]
Score = Score + 10
) g! e7 w. c# u: O# G& J# i7 \, ?/ ^document.all("Sco02").innertext = Score
& F8 C( P, m4 ^& sFor i2 = 25 To 1 Step -1
9 H* W! Q8 b( v; H( P2 ]$ tok = 1
" Z. y" s1 X+ Z; s2 ^For i = 1 To 10 ' H3 [+ Y1 h% A
If n(i, i2) = False Then ok = 0 / S) K. B! h# v' U! X- p
Next
' G$ Q/ _# C* l* rIf ok = 1 Then
2 I9 v/ U+ X$ n- { A+ _1 `Score = Score + 150
, l* ] @# w5 p) l2 T+ Tdocument.all("Sco02").innertext = Score * X. R9 P/ b6 m% R2 i
For i = 1 To 10
6 q4 P8 r" D7 QFor i3 = i2 To 24
7 J2 _0 j; n; Hn(i, i3) = n(i, i3 + 1) + j3 @: m5 w7 X4 _1 c$ w
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
7 g0 K6 Q5 w: n! ANext 6 z( o+ P1 v9 h9 O1 ?
Next % P& e" M4 B& d( |1 c
End If 4 h# _/ @7 y% m. [4 q+ D! B
Next " Y5 o9 @" ~1 }/ v* i0 i0 P( b
End Sub 4 `1 p7 {- e, P2 H
Function coor(xx, yy) , [: g/ j$ k7 |3 Q! _1 B) E
coor = (yy - 1) * 10 + xx - 1 ( \4 p3 d; t9 F. {! A# o
End Function ' A9 y( M J2 v; g3 G
Sub Rota()
3 M1 p7 h, A5 iRot2 = Rot + 1
6 N) m; m! z( i% Y1 SIf Rot2 = 5 Then Rot2 = 1
J4 y6 p( \! J- H1 ~+ s& R. [If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
& E8 q5 Z/ `9 NFor i = 1 To 4 2 r2 ]" n* l2 O( x3 q+ ]) ?# {
For i2 = 1 To 4 & _8 u# Q+ P! U7 k. N; I* k
s3(i, i2) = 0 p% x( a2 ~5 U2 w& `: b
Next
+ j9 ? h& N5 J2 P9 x" o1 LNext ) `' ]% K' ~- P% j
Select Case Fig . S% o' k! A2 r; f. T
Case 2 ' b/ z, R' A3 v3 v2 y
Select Case Rot2
$ t: R* f7 U, DCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True , n; S7 O/ K7 w6 O r# h
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
7 ~" n ^( u4 u) V) g/ C8 P* TEnd Select
, |$ e- P. Q! C" vCase 3 * u5 r/ H& h2 z. B0 |/ d, T
Select Case Rot2 & \/ \! O: X# ?) M+ I) B: M: A
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True 3 R/ V7 t9 p" L
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True ; w3 Z& F/ Y: W
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 8 d1 g/ Q+ i/ w) s* r8 ~
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
4 S* F! m- R& D! b3 c- mEnd Select
% t9 {! \/ d; S! E9 GCase 4
% {' f6 j3 b$ m* t; ASelect Case Rot2 : l$ {! z7 U% j* W9 Y
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
. L9 U& L, w% cCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
+ n( Q, g+ z# |$ P' ~4 `( UCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True + [4 U# E/ V' r s/ N! x1 @
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
$ m0 O6 @; u0 s) W$ w' W' I# HEnd Select " f/ W7 ^ e. q' f! L4 z5 Q7 O! I
Case 5
" F- y& |& q) w, z" I0 H/ B6 A8 VSelect Case Rot2 9 m, ` ] u- R% ~. O$ l- j7 @: L
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
- w$ o; x8 m1 [( wCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
6 ^% \/ \; O0 q KCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True $ ]+ L$ t4 F1 ^+ L# B4 F
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
9 k2 s1 s0 i# m" pEnd Select 1 c8 t% B P+ x5 q% F" e: @' t
Case 6 - w0 K2 t4 e! E% l/ v
Select Case Rot2 2 r: I5 `2 B3 r3 B6 Y: p
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
0 R6 _# L- Q5 ~1 [. UCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True , P; H: j3 c8 g* U
End Select + w7 e5 d' S1 ]' q0 a5 C
Case 7 % ^7 o$ Z1 Z8 ^" O" X3 F$ M& Z7 R
Select Case Rot2 0 a, f. f; t+ v$ I; G
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
/ V; `0 Y v/ A6 m3 F* aCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
% o: M* e% c# HEnd Select
) F* }# Y- Q. ~& }End Select
' s+ M, R" L* t; l1 o5 y% J; wok = 1 ) `" S% f4 Y6 ^6 S( D. [
For i = 1 To 4 2 H. D$ g. c6 h' E( N2 Z! N n
For i2 = 1 To 4
+ t/ N z$ e5 Z E3 b& _If s3(i, i2) = True Then + H4 h8 n; ~- W: _$ O
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 " L/ M* t( y) K# i+ |8 T7 ^
If ok = 1 Then 5 [, x$ U/ T8 a4 U9 `
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 8 g, A* n$ w. |/ P
End If
! m0 Y! O2 y7 \. G. y9 i+ BEnd If 1 l" H( o. I3 W/ g
Next
3 }1 M+ y" F# }: c$ SNext
9 c5 J3 g' P2 \ C6 G3 x& M3 VIf ok = 0 Then Exit Sub 0 C/ i4 O8 A J
Rot = Rot2
2 m" d: S1 N! V$ d, L4 lFor i = 1 To 4 0 K% b: s8 B* ~* G u- Q
For i2 = 1 To 4 " w, J B3 P! ?$ I4 ?7 D
If s3(i, i2) = True And s(i, i2) = False Then
6 H% G: U, w! g7 ^; i1 @document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 4 o- U% H" |4 R. V5 C6 [
End If
& v6 I0 ~$ z3 a$ z/ qIf s3(i, i2) = False And s(i, i2) = True Then . O) h1 t' }! C8 i" p& L" J
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
$ C* @& ~% F- M2 ?End If
- B2 v1 W: `) t1 {# A) G; E1 Zs(i, i2) = s3(i, i2)
. P4 j0 F( x# S7 t( fNext
! C" W# r0 p: B' P5 u7 Q- Y0 cNext
( d% R# T5 O6 M$ Q6 n8 KEnd Sub
1 @' h$ g8 s7 ?" u0 ?Sub document_onkeydown 6 H4 x/ {5 g1 z {# @
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
4 E' \7 o* z1 i3 ]; H1 x3 A# {If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") # f# O" v9 Y* |+ C. {
If window.event.keyCode = 113 Then iniciar("i") , Q6 D j- ?/ p4 ^( S7 E: F! D
If Not Pausa = True Then
& o! k" S, W3 A2 OIf window.event.keyCode = 38 And Fig > 1 Then Rota
6 z' H' N' i% `% @! V% eIf window.event.keyCode = 37 Then 9 R0 m+ y9 U# w: p+ ]
ok = 1 ' i. N7 M9 ~1 K! d; U
For i = 1 To 4
f) K; Y5 R4 I. V0 KFor i2 = 1 To 4
" m# w+ Q$ t3 A2 hIf s(i, i2) = True And X + i - 1 - 1 > 0 Then
! r/ |' w5 u' |$ S" j; ~& [* SIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
/ }/ `0 `3 d* K4 u2 B2 ZEnd If
; X# P) J+ j$ Q. wIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 6 ~. h1 p1 I& E8 _4 X4 r; c" f2 }
Next
2 V8 H* ^4 g! ^/ l. i7 Q: TNext + q$ X6 a1 s! |7 x. |/ y ^
If ok = 1 Then
7 k/ U2 k1 ?& K9 |; w5 ~6 @" \5 @X = X - 1
`+ G- ?2 k- t3 ] u, }1 {For i = 1 To 4 % w- y7 b, R! f' Q1 }
For i2 = 1 To 4 0 Q$ S. ]8 D# E9 D
If s(i, i2) = True Then ' ?9 v. y! o. k5 N" r) ~" n
If s(i + 1, i2) = False Then
6 |8 x- b" ?; V' Qdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" ! M6 C$ X) w- V5 H$ p% |
End If
& m5 c+ d7 X6 z3 z2 X: Y8 \End If q; _$ x/ C8 u2 D* j
If s(i, i2) = True Then + y. H, e0 x [; {- e+ X2 B
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
2 r* t* r* F" g+ x( Y# f% cEnd If
( z" L% j; S0 D* mNext
" t3 e. j4 ?' ?Next
# r3 l" E; K. MEnd If
2 x# B+ x) I& t5 iEnd If ; R# H, k! H6 x& j8 r- j
If window.event.keyCode = 39 Then 1 M3 ?8 y2 O. C! \# ~% f5 c
ok = 1
# b' u( v- O9 [: o" iFor i = 1 To 4 / C2 r. y6 I. |
For i2 = 1 To 4
, e* I& I( C r/ m* G, w5 ~0 QIf s(i, i2) = True And X + i - 1 + 1 < 11 Then 4 c- L( D% c0 }' v6 W2 u! d
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
5 x8 F/ g4 S5 a& ZEnd If / q2 Z3 y6 \, R+ Q; B; r+ ~! w
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 l9 W. U% s7 C" [
Next
% V2 k& Q, {4 {+ }6 ?Next 8 @) \ _/ G# Z4 Y
If ok = 1 Then 3 @- J# j1 _" t, _
X = X + 1
# O1 P! Y( m4 n. Z; Q' b: ]For i = 1 To 4
$ T- B) Y7 A: }) i1 b: pFor i2 = 1 To 4 6 H/ |. q7 \9 g6 u2 W7 `% G
If s(i, i2) = True Then
: h, k' q, {3 ~& ?3 f sIf s(i - 1, i2) = False Then ( @" _, ^% t1 N# A- k" p; D
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
# a/ f/ H4 M2 @# iEnd If & U; V! H7 a/ B0 f$ s+ T
End If
, Y6 Q" \! W; g6 W- |If s(i, i2) = True Then
( c$ z6 V6 k/ ^" ?document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 6 q8 F4 `% t. G$ ~' B% e
End If
5 W" `& r& u. v- L8 K7 cNext
) U- |0 R) R8 r/ K8 INext 5 Q* l4 [: h/ M4 ^- ?
End If ! N. \4 k$ S3 T
End If 0 l8 V" m! J9 L0 M3 }" u
“Aqui 6 A4 T( g# V4 e" [7 I! t% e
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then # G- P, q; N) s* t2 [( _' N8 H
If Fig > 0 Then ! c1 U9 I% b$ m# g( W3 y
For i = 1 To 4
! U( d7 e9 `* }$ rFor i2 = 1 To 4
8 x0 p/ |- f6 }, w7 C% J# x& EIf s(i, i2) = True Then
. [. d2 f9 r/ O" O. L- A& ndocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" , n! L( J: T+ w
End If
5 [4 z$ O4 e. S4 E& GNext
6 d8 G Y6 G, b1 T4 _9 q5 i) ONext
1 C! F! S; b0 ?" |' [, U1 C ~Do
9 |0 Q8 b+ N/ P6 NY = Y - 1
4 B7 `3 g0 k/ v1 J1 d3 _0 W; ^For i = 1 To 4 : x4 V d; o# S( W! s' S6 N
For i2 = 1 To 4 ; Q" C5 t# o. b* M
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 # G+ R; P. E7 q" T8 }7 Q
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then : r$ |& `( ^& [% I% I2 ^
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 @2 D3 U* ~4 d7 s! f4 [9 [$ v& j
End If
~- U" D/ P) N6 [Next
0 g2 q: x/ P6 b4 _5 U9 GNext
! z; T) D& ~$ E/ ~Loop Until Fig = 0
5 _( ]2 K7 `7 M; w9 |2 g; U, @For i = 1 To 4
+ b+ p# d8 E& }( kFor i2 = 1 To 4
4 ?- H' Q+ L4 Y5 G8 g4 e& eIf s(i, i2) = True Then : K9 J5 w9 V5 o* v. f' x
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 0 t! j1 v, _: _0 S+ \0 U
End If
3 t0 z, j2 d0 u7 [/ iIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True , T% Y: O. {4 P
Next 0 F8 ~2 q+ _# B/ f7 A( W: @$ l
Next ! r0 `9 B @2 p! S- X8 W3 m
End If ; }+ f8 R1 y1 j8 O% b0 M9 `
End If
2 f* s( s: F z' `" H9 E! i6 KEnd If ' @6 O& r( ~6 n
End Sub ) |' F2 b4 i% n# W& E/ l
function Mmove(Index)
, b# v3 T0 T% }5 d* n9 Eif index = "I" then
! a: S# s9 U: ]0 Y4 `5 K- t# Fdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
( a+ a' c% T' r. q' ldocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
, M# M+ M* `( k, Jelse
, ~7 F. ~; c7 W# K% ^: c; f" Gdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH" % q) u1 }$ g, f+ I: |
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
3 W1 Z0 E3 H0 Y/ ]1 T7 Q4 \end if * g0 z3 X" q) Y( X c3 h
end function ) V. }2 l4 q; y1 ^( L- m
</script> 6 V+ F# t G- N+ P3 J' ?
</HTML>
1 Q! v* [* i( _( T: \8 ]: P<%End If%> |
|