 TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：0 q; y' G. w& Q" J5 ]
<%If Not Request.QueryString("Ven") = "T" then%>
5 g! `2 f# R; ~/ }* [! d<HTML>
7 Z: x% z4 d, D- }$ `& s<HEAD> # ?& @6 N$ o4 W7 w. E8 \' ~* x
<META NAME="GENERATOR" C>
. i ?. W2 o# X: d V. M<TITLE></TITLE> 9 x( {. }8 P g
</HEAD> ( A! L7 w' C+ F/ c7 `. o: N7 P
<SCRIPT LANGUAGE=vbscript>
8 \, Y o) g0 d/ Y) l$ q4 J+ Ffunction Redir() ) r! u. {8 s* w1 q$ X3 Y2 w4 M
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"
# g* R: `" N/ w! Y+ J5 j5 s0 N( iwindow.history.back(-1) % ]. |, Z6 |( H
End function ' M, ?1 R: E/ U0 [7 I5 C
</SCRIPT>
0 D5 P7 } k) [<BODY onload=Redir()> 0 I! \% J2 u/ d" e, B; _0 r
</BODY>
6 p7 e6 B" C4 f</HTML> * R( j2 I F9 ~
<%else%>
% K: ~8 f# y* i7 K<HTML>
$ a3 A, C4 H: z, J% `* X/ J<HEAD>
' c5 p1 e2 m9 C* @<META NAME="GENERATOR" C>
, }3 Z @3 q2 I \: C/ U<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
1 I+ B* ?6 F& E) X7 _: P<Style Type="text/css">
! v+ x5 b) D. j- W4 j M$ K9 ?<!-- ! Z! e. T3 d3 w, |4 e% G
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} " S' M4 r. K3 U& X, b8 }; }! C( a
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
4 i3 O5 G4 x# a6 w.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
* X- x0 k7 A- }0 c4 i3 U! u.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
* ~( |: J3 O7 n.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 5 _3 m0 a2 p7 \# S( d
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} ; t2 t6 E& {. y
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
/ ]! q% K4 I `4 T-->
1 P, p/ @+ R' O9 e5 y% I</Style> 4 E6 H+ w+ w2 f/ N2 f3 u
</HEAD>
' r+ v) S$ c3 j+ p<BODY topmargin=2 leftmargin=2> $ R: K( D. c/ s4 }2 b2 w+ A( j: {: L
<div align="center">
4 |5 @# \6 x& _8 g+ A# l: u<center> " B! F: J6 d2 @8 Y, {4 B: ]3 H7 n
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> ( u. C1 I8 u$ T1 Y2 I* B( \+ P# H
<center>
U. D6 h& H9 C: f% a<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> , B3 q! j6 B4 E) s: |: [7 e
<tr height="18">
) W4 U6 k$ Q$ N( A- B<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>
$ o7 g' E+ ~, N# [* L* f7 ?<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> * D6 z" _" U" s- K: J
</tr> # Q2 a0 q) j7 t
<tr height="18"> - P1 z2 @6 q. ] _& }6 k
<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>
2 g# P5 U( R g6 u8 O<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> & t' y* Q. y# y
</tr>
% L: Z3 i- O1 b4 |0 \<tr height="18"> 9 k9 R) K2 j7 V
<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>
+ W* C x0 |+ O. y<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>
3 T7 S/ F4 H! q# y. Y, Z$ m( C3 k</tr> 5 q/ T) U8 W+ E8 f
<tr height="18">
: \# k+ G$ t% z0 u+ v<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>
6 N' S% t8 Q" S+ S: }( n<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 W r- {- h' b: F
</tr>
, P0 E9 U: ?1 l( d<tr height="18"> ) Y0 @( v6 @8 v
<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> * v/ `0 M. K' Q c1 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>
* ]& m( }9 s% k* Y0 Z</tr> 4 r# @: k0 t, A1 e. D, a7 K6 U
<tr height="18"> 5 S3 [6 ~" x. k! ^
<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> 8 p+ f4 ?3 X2 q5 E s& E
<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> - q- F- t3 Y7 B( k
</tr>
8 I. X1 w1 q6 m3 ^; ^<tr height="18">
9 i4 t3 V' Q, G( p9 i- B3 T<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>
* ]# S) \4 _7 U+ n) c6 v& b- w z<td ID="185" width="18"></td><td ID="186" width="18"></td><td ID="187" width="18"></td><td ID="188" width="18"></td><td ID="189" width="18"></td> 1 z- @) L3 g H- f5 O
</tr> " d: j) t( |0 M/ @: k
<tr height="18"> . [: t1 ?6 L1 E* @9 C
<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>
7 K) e- }( K- I! Q; o' b$ T6 [<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>
$ i( H. k6 @0 V9 ~) f/ b</tr>
, ]1 `6 |# a, A7 i; K0 T<tr height="18">
9 p. c7 F: R* C1 z: \<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>
# f' ^- w2 W+ ]; q<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> ; \8 ~) D1 F9 ^0 w# F
</tr>
/ t2 j( O0 C9 c9 i2 F<tr height="18">
! Y7 t! w0 _3 }6 I<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>
9 `6 k2 w g y, W4 q1 U9 G<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> ; f* x# P9 w$ e* x3 G0 n
</tr> ,
' r* U R. d2 J# O' s- g<tr height="18">
& X! F6 N" T7 h<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>
$ p3 x5 k( Z4 c, 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>
2 I4 w* [3 m' _4 e8 S</tr>
* ?6 n* F9 d# P0 o+ \9 r& d<tr height="18">
8 B9 V' ^+ a- ?5 M$ n: Z6 ]1 ]<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>
( `, Q6 k }6 ?1 e7 i" f* U<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>
! P4 H: r) N% _</tr> ) Q- s4 n9 @/ o5 G; _* B$ h
<tr height="18"> $ {. X2 [. J3 w' S7 f
<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>
! J- |4 C# D0 L i2 B' {" ]. l<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> + n8 o; M/ F* ~1 ]
</tr>
. b9 k3 q$ ]8 n9 [0 N<tr height="18"> " z. Y' L) y& v6 O" i# m
<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> / O. N9 R1 t- b, p8 |( w _
<td ID="115" width="18"></td><td ID="116" width="18"></td><td ID="117" width="18"></td><td ID="118" width="18"></td><td ID="119" width="18"></td>
& u" c+ D# c) p- m, A, t</tr>
4 r. ^4 e' n0 H6 B4 A/ n<tr height="18">
4 L# ], D- E1 ~6 {5 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> # O8 z$ ~) o6 ?/ l) o+ a" y5 g6 s
<td ID="105" width="18"></td><td ID="106" width="18"></td><td ID="107" width="18"></td><td ID="108" width="18"></td><td ID="109" width="18"></td> 6 D- h. M- k$ I1 @4 t- w
</tr>
) x* R) o: u& `2 C; |$ m- }<tr height="18">
6 M/ I X( [0 ]<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> $ s3 n) @. d) `: E; C' {6 L
<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> * j5 L/ g( W$ u D- T5 ]
</tr> 5 u! N- O9 O5 X' v X
<tr height="18"> 5 w2 ^1 x: Y$ Q" U
<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>
' w0 W; u# p+ z1 _+ W% L<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>
) t+ y0 R* {% Z9 @1 O7 e</tr> & F0 G, x% }& Y: {+ K3 T! Q
<tr height="18"> 8 t3 }# w5 A2 W) J7 n" f* T4 c1 l
<td ID="70" width="18"></td><td ID="71" width="18"></td><td ID="72" width="18"></td><td ID="73" width="18"></td><td ID="74" width="18"></td> 2 `6 p/ c+ B9 d. S% K4 Q
<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>
, q- y% s( g( w3 Z5 k( d</tr> ' S- ^/ W. ^3 C, [, s: q
<tr height="18"> * s2 i) D* l$ U; S$ i8 i. W
<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> $ m, g+ w+ v" G9 i
<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> c, C8 c$ ^0 \$ d; A* n0 r3 D
</tr> ) x- e X0 u1 @
<tr height="18">
. \7 H, Y( b+ {* O1 |2 G2 |<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> K: X+ E, i9 T2 r" N. Y* D# T
<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>
( v( Z2 z4 q. D& G</tr> 6 ^7 h3 }# k0 C' A
<tr height="18">
4 M) K1 ~& ^5 _2 T$ j4 Y<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> + [( a4 B/ f/ K' H
<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>
3 j5 J# \+ v' w( l</tr> ( E! Q* U; l% x
<tr height="18">
# E8 E: n- s5 B) @ G+ x4 }& [<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>
' Q$ D: j+ P- m5 |<td ID="35" width="18"></td><td ID="36" width="18"></td><td ID="37" width="18"></td><td ID="38" width="18"></td><td ID="39" width="18"></td> 4 M* Z& {3 a5 `2 f: r7 H9 I
</tr> ( i! D F/ z* f C0 e# _
<tr height="18"> + k+ n7 c& i( b% u. n
<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> + E% W* E9 k( J j2 e2 k3 x
<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> 5 W1 J& y% z, v9 R k: F
</tr> - e/ D5 e0 N8 m+ X& J) n/ i
<tr height="18">
8 [( L# y' X8 z C<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>
9 C r: }9 g' d9 c# U<td ID="15" width="18"></td><td ID="16" width="18"></td><td ID="17" width="18"></td><td ID="18" width="18"></td><td ID="19" width="18"></td>
" j, |0 Q6 `" y3 R+ x# l</tr>
. n+ D, L- ?2 H. Z; J6 c7 i" A<tr height="18"> * J l U2 r* _# G( x1 O2 S% ?6 o0 a
<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> " E# ^& Z" w" o% a, b4 t! u
<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> 3 ^" `- b/ m9 t/ B( m/ [0 Y
</tr>
0 ^0 b N: a. C. g4 X# [6 W</table>
! n1 m0 i1 T7 _) x8 N& b% D' y) U</center>
0 Y3 o+ ~0 G2 x0 J* ^</td>
8 \) @/ Y$ n1 k- P* r A$ @<td width="100"> & e, h& M U% Q
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
" J5 h. H. M6 u0 Z<tr height="30">
9 l8 x2 e. [) ]: S<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> % Z! u7 \3 ]: o% w
</tr> 7 Z6 [- A/ `- |; R6 o) x2 u
<tr height="20"> ' K$ `/ l) R+ Z
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
5 N4 q3 @. M6 S6 l</tr>
' D, i% W" v9 s- f<tr height="100"> $ i$ y2 Y) G5 M/ J# ]8 x# P
<td bgcolor="#FFCC00"> % b2 i! b6 A. A5 z3 N' S
<!-- Inicio Preview -->
' M. [* a7 {; T) j0 ~% A<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
! ^8 M9 `+ a( M$ X8 ~" V. S<tr height="18"> $ p2 ^' E' @/ b, \6 h. u8 \
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
7 f; W- h1 T$ D/ _* ^# F* I7 \1 w</tr> - M$ c" @( G! o4 v& s3 [* b
<tr height="18">
+ t) N' K7 Q: ?3 Q<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* | J; w# n7 g4 z</tr>
/ C4 N, X) a# i3 W1 M9 m) d- u<tr height="18">
9 u2 g; z {6 `2 d0 T<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
$ \- W: S( e2 s0 C3 q Q* f* L; J</tr>
, T$ S1 s& Y, T" G! [</table></center></div> 2 n7 [" W% u- M6 y8 S2 m5 g' Q
<!-- Fin Preview --> 0 A2 D2 n/ [! |! @; c
</td> + W- k. W9 G" B- p2 U
</tr>
/ S& ^) f( d1 s; \# |$ ^<tr height="32">
; g, U6 L6 A+ p6 r<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> 4 ?+ q2 {$ D7 A- @- q
</tr> & s( c y2 d2 N: \" b$ @9 g* x
<tr height="32"> 5 y& i4 }2 W# m- [" w: D; F
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
. S! C1 M0 H# Q: x( _* h</tr>
% K" m$ {/ ]( O# v/ R# j$ D<tr height="32">
7 i# I" B: W: a g<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
, a9 a9 G. \( `( A% L. f+ @</tr> 8 }2 ~0 J2 n7 _7 G( i+ K. c
<tr height="32"> - u8 L, p0 I& P$ I1 v. Q
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
6 A$ s9 j; s" m</tr>
3 Z+ M$ ^* c/ t2 h F<tr height="32"> ) t, ~# O0 z0 Q4 F+ C
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
: v; L9 S0 j: W' a' v</tr> 5 G4 D( ]9 A& t1 T$ L
<tr height="32"> 0 L3 o0 ^& W1 ?9 B
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
. _4 S9 j6 t2 z: |# N</tr> 1 @1 A* o# m4 i* c
<tr height="32"> / Z" D, s9 @+ Q% ?, l4 q2 K
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> % h1 d6 ~, v m+ Q
</tr> ; W' _! j i: n) b
<tr height="32">
2 v+ t0 e; F. n5 I# A0 y9 S<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> ' ~, M& X8 W% k9 e& j; M+ [/ W1 U
</tr>
, m2 F. O4 ` F1 S- u* S<tr height="38"> ' K" r2 {& v# J3 H
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
, U$ \. g; P! d6 z6 K</tr>
5 }% I v% y, c. T2 ^- s8 s W+ x</table> ) z E1 A0 n$ B0 j- Y: z7 y
</td></tr></table></center></div>
: z$ D) s9 s9 Q# G</BODY>
& G; Q* Z5 @- a, _, H<SCRIPT LANGUAGE=vbscript>
: `* e h& M( t& f* D/ f+ n# XDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
! h" y/ T e, q4 sDim hs(),sor(),hsant(),n(),s(),s2(),s3()
0 S- s1 g; T- A* f0 d. s% @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 i% b$ d M z& s
LevlIni = 1
% Y3 K3 C- j E& xPausa = False : f: R# L2 I7 F1 R+ |
HastIni = VelLevel(LevlIni)
) z( y' ]; j" \; M# H; h3 PHast = HastIni $ b1 u$ k% z3 \4 R
Levl = LevlIni
7 C( Z2 f/ I! p5 gPos = Levl - 1
6 ~( n2 ?5 \& w, CColorForm
/ b5 e2 S6 a' c# a1 o1 Z7 dGOver = false ( x* I0 R9 }3 g. t) ?: X+ }6 p
function Iniciar(ind)
" z% U" j, |) Q% H" ~if ind = "i" then
/ ~ T4 p) }* c5 R4 W# x# Rscore = 0
7 ~7 d6 D4 @' L1 m. j* eGOver = false 9 G# }, i& |/ w6 R- s6 ?' [, o
Hast = HastIni
3 l8 H0 F) |# a* q: x% r( A4 ILevl = LevlIni
7 V# k$ v( O8 P6 R$ APos = PosLevel(Levl)
7 @0 R/ H/ @7 w3 ?2 }% v! D. IFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
9 K" D% v* N% d# U: }# R7 zFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next o, ~% S% {5 y% V2 q% ~
Timer1 = window.setInterval("Andar()",Hast)
8 W3 m/ K: h0 ?$ m4 n* `. I7 n% l3 \ColorForm ) \: Q; a, e* z/ s
Fig2 = 0
# @% z0 P2 t) ~) uNyfig
0 X0 v1 c" i0 |! L: Q: Z5 S! eelse
* f9 C5 \0 p2 \% q+ y2 ^window.clearInterval Timer1 , y7 @' |; ~9 E
end if 8 z! s/ W8 D a, _
end function
2 B/ W; g1 O6 m' SSub Nyfig()
2 M7 F8 c+ z" v/ ^Pos = Pos + 1
- ^( K$ o/ J( H/ I2 gdocument.all("In06").innertext = Pos & [- N/ P+ B8 x1 J4 h. h
Select Case Pos
! D( E% H. l! {8 B C5 {+ ~8 yCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
0 l) t' t9 ]$ Q% eCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl 0 X: V( V4 i( O% s9 L0 [
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl * n% y$ \* ^3 ~ @- p
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 6 J6 N/ H8 B& Q2 R" \) {
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl ( T* I- e9 |7 o1 I ?
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl 3 R' t/ r+ L; a6 D9 @3 I
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 0 S: n2 T, H& M8 @! f: \
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 Z& d9 _4 }* f H2 P+ x. o
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl . B2 G6 h C" V
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl 1 {7 m6 l4 U2 C3 @* y
End Select
1 Q* x. j+ n' O( ?& Z4 {9 Gwindow.clearInterval Timer1 ( y+ w( N9 N: l) q! C. ~
Timer1 = window.setInterval("Andar()",Hast) % T" m+ L0 b& g: h
Fig = Fig2
. \) U0 F6 _( T/ g e9 Z a2 UFarg = Farg2
' y' I6 o! Q7 K8 t5 {Fig2 = Int(Rnd * 7) + 1
$ W+ i6 r% D+ l( l- b* h, LX = 4 5 U7 e5 n) W5 i
Y = 26 - D/ B0 v/ Z) o7 g' z
Rot = 1
6 k' z, a _& X7 U# TFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
, f' F, i( D* H0 g' m6 B, W. oSelect Case Fig2
$ m1 V* ^" F# Y" n9 [3 HCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" 1 s% l/ O5 n4 w9 b
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
3 S4 N; v8 I* @6 k- SCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
5 B1 K- L7 t8 e, v9 E& ~% LCase 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" ) B# M ^0 f( N: f
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
5 i2 b4 S: G: N5 V4 kCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
0 p3 ]; `: y }. k1 M+ T3 ACase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
* \# e* c$ C3 f+ q* OEnd Select
8 I; w4 T: N5 M1 d$ X* @) VFor i = 1 To 4
' J3 B3 M+ N0 ?+ N. EFor i2 = 1 To 3 2 s1 M3 J# L3 ?( L, a
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" % Q; n4 g1 @; \. t
If s2(i, i2) = True Then & d- V* j" }) l4 y
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
6 ~- j2 n6 v) A2 LEnd If - |3 ~+ _! H8 {4 a
Next 1 _7 U& s& G4 ]& Q, w
Next
3 |( B4 B% w C) i, B5 d$ z1 YEnd Sub 1 \+ I* h* Y- }& v: s: t
Function PosLevel(Lev) ' z! s6 _4 | v5 ?% A/ a% A& \
Select Case Lev
: j0 W2 X! e+ y R5 h5 WCase 1: PosLevel = 1
1 t; P1 n$ T) }. MCase 2: PosLevel = 51
( F( @) R* Q ~/ M" x. eCase 3: PosLevel = 81 7 ^ G: e$ z: A$ E
Case 4: PosLevel = 111
C9 _; N; }. m: s# gCase 5: PosLevel = 141 : F9 U) S4 }$ n; |5 r; @ Q) G
Case 6: PosLevel = 181 : Y; ^# d& _2 a+ S0 f8 G0 r+ D
Case 7: PosLevel = 221 9 c$ V" i/ w' F
Case 8: PosLevel = 261 / \) ?! v: l# P, E- e' k8 f9 [
Case 9: PosLevel = 301 ! A# U( u8 `, ~- H) _" q8 F) Y
Case 10: PosLevel = 341 ( _4 U" a0 `- ?, I7 ?
End Select % D2 }% Q/ j/ m Y$ ?
End Function }9 o: D1 k" @5 d6 L# o2 F& c- P
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 0 T5 F( g; A( Q; }" N2 Y
Function VelLevel(Velo)
3 w' V/ h0 ^) ~Select Case Velo 5 g% q) |9 }4 M2 m! l* [/ Q2 H
Case 1: VelLevel = 500 ' f7 I) O) P1 L+ v& U, r# R- C
Case 2: VelLevel = 450
2 g7 s6 |3 }" ?. P0 MCase 3: VelLevel = 400
+ V- G/ z; F2 N! a: x& q' x- k: jCase 4: VelLevel = 350 3 Z E4 K, h: _' Q7 L6 ^; I; n
Case 5: VelLevel = 300 + K0 y! {6 a1 a7 Z' v
Case 6: VelLevel = 250 ' H, k0 i9 A: Q# o# b8 k
Case 7: VelLevel = 200
. x+ ?1 n0 m% k/ Z3 UCase 8: VelLevel = 150 6 ~" J }9 f& w o7 t1 ?
Case 9: VelLevel = 100
7 f: K6 T7 s9 `2 J6 V9 s( yCase 10: VelLevel = 50
/ P* S+ p1 n& h0 ~Case 11: VelLevel = 10
; y. A9 C+ _& R. _End Select
3 p, f9 i9 t; o; y- M2 F" dEnd Function
6 u, j! F5 e) V) n/ N5 W, ASub ColorForm() * [( w2 k* b. O3 _, Y
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next 2 w+ H& ~; A( l- e' s- |3 U* P
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next ! A+ S4 Q* V3 y# K# k) X
End Sub & \5 U* I3 T0 ]: \5 _. W: x7 Y9 r
function Andar() 2 r) I# l2 s3 V$ l( `# ` ?
For i = 1 To 4 ! ^( n4 |* r3 ]* u4 q
For i2 = 1 To 4
* {, V" b9 p( hIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
* d5 c; y$ a( ?0 J2 B9 [If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then $ V8 D2 O2 v6 r. z% l: U
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
, X5 p' t# A, x( sEnd If # `; [( F' B' Z: s4 R& P
Next " R1 q9 C/ P- X' K
Next
* _8 _% G' E" V( TIf Fig = 0 Then
' B: c% \, T; ?6 k OFor i = 1 To 4
- K" S$ W% I( @9 {! t/ r6 }For i2 = 1 To 4
' L0 J4 O9 F5 r! O$ A; tIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
$ O! E& a5 v- w ENext % ~& p1 x! ^& s
Next ' I$ W @4 l `# r0 \
Ner ' V% X% C' J; g# u
Nyfig " I$ x: b9 w2 v; r4 O/ d
Else
7 J& k7 y& ]* n& jFor i = 1 To 4
# R. x: P* ]" W& p+ S( E8 JFor i2 = 1 To 4 2 @( g3 T: m; P5 t0 N# g
If s(i, i2) = True And s(i, i2 - 1) = False Then ( r! b; M* u. t G8 E5 i4 K. Y. @. E
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
) u x" O/ S: L: `2 N: C6 `* BEnd If ! ^5 ^5 f9 f% U
Next d4 U3 U; ?7 Q% }! r
Next
) w# W; {/ n3 o6 i$ `' IEnd If
0 G' k4 Q- j5 u2 X2 \3 dY = Y - 1 2 o; j w8 N3 b8 u
For i = 1 To 4
8 q2 i$ y1 a/ k* o3 v3 H9 Y$ dFor i2 = 1 To 4
$ A9 G3 o% r) z# i9 jIf s(i, i2) = True Then ' h4 ~/ p$ v5 t' b
if not gover = true then % J$ r/ d3 o" S* T3 t
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 8 P& V- @) s9 O' z
Gameover
2 m/ L4 F* p4 V7 Hend if
# `3 b4 v! y9 {$ H" hend if ( g8 g5 ^( x/ b2 I# t
End If & p& ]4 z& `) n" h
If s(i, i2) = True Then 8 g9 u% c5 n, y# b% Z, E0 s- n
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
$ R; c+ J$ \5 o$ A; h0 `) tEnd If
1 q+ ?# l9 Y7 V$ c( ^Next
0 l% @% f# {- R+ rNext * y$ K5 C \4 p6 S8 a5 o6 D
end function 8 ~0 ^- y X" p' }0 N
Sub Gameover()
- O, [3 A' D* ]7 j% ZMsgBox "游戏结束！", , "俄罗斯方块"
@ y6 `) e9 w; m! `: zwindow.clearInterval Timer1
& A, @( c' C: l$ F' nGOver = true
8 I& V' q2 e& a0 VEnd Sub
) V6 L b/ P/ I. Z' oSub Ner() / o" G9 @% ?9 c# @! Y
Score = Score + 10
6 d$ c0 {: c J5 edocument.all("Sco02").innertext = Score
+ r% W+ Q [! |; n" t% pFor i2 = 25 To 1 Step -1 # z+ s+ n( g) o% T( s9 ?. F
ok = 1
: z6 g( c1 a2 }+ dFor i = 1 To 10 ; `8 _6 i- b( Y! }) F, i
If n(i, i2) = False Then ok = 0
& x+ S( H. }* s2 v( i3 JNext
. f; Q8 k9 w9 R: S, n3 MIf ok = 1 Then ) g3 Q# p8 a- U+ F( j
Score = Score + 150 2 R1 _. w0 d: P# j( b, J( w ?: p. V
document.all("Sco02").innertext = Score 5 [7 P* }- D; |6 Y! w0 ]
For i = 1 To 10
: G7 ~9 v9 r+ D6 K* ?# eFor i3 = i2 To 24
# C7 ?# h& O5 I6 S0 Z( Tn(i, i3) = n(i, i3 + 1) 6 Y% c7 S" o: G T
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
& m& F, H! q# [! K$ J0 U) DNext % j- K0 z: p2 l
Next 5 B' p7 ^8 X! R$ o
End If
' x5 b4 B) y% R% DNext
9 l3 D# P w3 M; H6 pEnd Sub
" G7 ]1 F6 i3 G+ u, DFunction coor(xx, yy) 3 f( J7 V/ Q: N5 n) n C" |
coor = (yy - 1) * 10 + xx - 1
; v: F# ?/ _( W% UEnd Function - x8 O9 Q+ ?1 N7 Q3 N; ]: u5 { ^
Sub Rota()
' g; V* f3 W zRot2 = Rot + 1
* s- Q1 y7 L K0 P, iIf Rot2 = 5 Then Rot2 = 1 9 o3 T9 I4 L8 O8 \" n
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
9 M# m: C8 b; }2 |8 {* `1 t9 ZFor i = 1 To 4
: r o$ X7 ~. j" z) }1 ]+ {For i2 = 1 To 4 + h( ~1 O& ~; |1 @
s3(i, i2) = 0 4 ?0 _0 x) |6 D% I* Z5 d, w1 U
Next & |) S3 e( [4 B& R- K$ }
Next & A, ]. c u! L
Select Case Fig
& Z E$ G* ?3 D- K; pCase 2 & ?* S$ H2 r( y
Select Case Rot2 1 U+ m0 S4 ~2 ~7 o% ]
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 8 B$ S# y% ^, {
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True 1 t+ L2 |( J; d& \: Y+ J! d" s9 ~! w
End Select
5 B/ n; @* t. E1 a: W3 a1 |Case 3
$ V9 c) E; y3 S$ f$ r2 ^; mSelect Case Rot2 6 q7 L0 L; q5 A) d# ]3 [9 W: B6 o
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
2 x' M$ C* ~) I3 ~; `; cCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
& ~3 M' o3 l/ A8 L# l+ _9 Q9 R nCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 5 `3 i m3 q8 r8 u1 e1 |+ A
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
3 `/ }7 p, a- DEnd Select " Z5 t2 t" M0 [& M& z! f/ l3 w
Case 4
c8 `0 I2 c; b0 c0 c5 BSelect Case Rot2 4 R7 {- E6 P9 C! x# }* P0 S9 c
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
. y3 y+ W$ @ g8 d2 o" _; {Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True - `4 o4 R5 v; I3 L/ K
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True 5 M w" |4 _' R% T: Y+ X
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ( V7 E# Y4 }# F2 ^: A7 n$ I
End Select
* x% p# G- I2 N |( LCase 5
9 S/ q( c" g5 l4 t9 `" U% m Y% X* ESelect Case Rot2 " d R! o. C! U5 q) G5 E# Z
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
0 a- |+ B' m; l0 ]' O. RCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True % y& e. m7 ?2 E# N8 ^
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
# S* D- |4 g/ kCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
. ?0 t: Z6 l+ ^1 s/ FEnd Select
# r& a$ I6 [6 b% |) r; ]Case 6
5 `! v; [$ `0 l4 @: [; f& k9 v# F* LSelect Case Rot2 + B3 @1 y0 V, b. Y
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True . E6 I" q7 N& k, `) d- I
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
3 I% O% k- _$ c# \; t4 a2 ^End Select 0 o. V9 v, J: B+ }% _* D# r
Case 7 9 w7 g; R9 e& t7 a1 T# ^" N
Select Case Rot2 5 Y; s& S- ~( x# M+ Y3 n1 }8 E& L# Y
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
- a d, X* H4 X7 `Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
2 D7 ~1 V5 Y% O9 eEnd Select
/ F5 J" o6 g4 V; a, G9 `9 e8 x; uEnd Select
1 L! d9 H5 x0 }- P1 Z }$ a: ook = 1 & C* b* g6 _7 l0 e) x
For i = 1 To 4
$ D2 S& D! }: _For i2 = 1 To 4 , h( }7 J; ^7 B/ g3 ^8 L" y
If s3(i, i2) = True Then
+ Z, {! ~% ~. n& GIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
" m3 O: ?1 X; v0 ?' QIf ok = 1 Then
* a0 d0 d) I% y8 L, a3 AIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0 2 L4 O, V4 _) U6 H' e
End If
, i5 j# Y5 U5 z- R: OEnd If 5 x7 C0 _& X# E2 r( F; ]/ b% B* Z
Next
- m1 m+ O. t3 W5 G* G1 a7 pNext & b: c! c3 T! K# c. T6 p
If ok = 0 Then Exit Sub - M* \5 x& m/ R# Y2 ~* e
Rot = Rot2
7 P# L0 w) O5 P8 D8 z3 zFor i = 1 To 4
4 v( p& x7 \# Q# u5 b! X# sFor i2 = 1 To 4 ! o# O' m$ ^2 S1 X3 o
If s3(i, i2) = True And s(i, i2) = False Then ! q( z% U5 |: m8 Z; g# f9 v
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg " }2 ^( I3 s8 x( M9 w; D
End If
* n$ T2 r7 e/ L2 hIf s3(i, i2) = False And s(i, i2) = True Then
1 q, C' r, A! \3 P/ `6 w- Jdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 2 |# J' @3 e) m* y* t+ V# n
End If 6 E2 S& G0 m, Y
s(i, i2) = s3(i, i2) & m2 d# R+ ]7 t
Next 5 F% n# @# L+ k0 M. g
Next 9 i7 t' n! ?; h; R2 g+ r C6 x* V+ _
End Sub + s) t3 f- P* S4 Z2 Y' m* S
Sub document_onkeydown ; z8 k- N2 ?( f* @
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
: V0 x& z' c# X0 M" W4 AIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
1 K: E( v) a% h! t. A( wIf window.event.keyCode = 113 Then iniciar("i")
6 b7 ]% ~! ]" f2 o( ^If Not Pausa = True Then
( T! \" \/ }& V' sIf window.event.keyCode = 38 And Fig > 1 Then Rota
% |/ ]1 H: ^% A- s4 j/ f# X: SIf window.event.keyCode = 37 Then
. l4 H4 I5 f1 o7 j. i: pok = 1
( d& Y4 P+ c2 w7 k3 l; }For i = 1 To 4
$ a; O; \7 L6 B8 O1 jFor i2 = 1 To 4 / p6 M$ p; f9 _* w; `
If s(i, i2) = True And X + i - 1 - 1 > 0 Then * v9 Y( L) S( d6 o( D8 r
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
2 {. s% y: c6 j$ G2 [, G cEnd If $ D2 [& w5 x- X* m/ G2 ]& D& ]
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 & Z5 {; Y- b2 W' B# Y) t+ s
Next 9 ~: P) W4 [; _& z
Next 7 q4 F6 V$ X+ m, g! i
If ok = 1 Then $ G/ w" G1 v6 L5 Z& t
X = X - 1
* w4 v3 y) a8 D' r2 ^0 K2 n/ N, }For i = 1 To 4 : j. o# H7 {+ o+ ~9 D1 m( Q
For i2 = 1 To 4 0 E7 x0 Y/ n; b
If s(i, i2) = True Then & _! D4 y& i* |) G* U% D5 |
If s(i + 1, i2) = False Then
9 p. A4 u- P6 ~/ E2 y7 O5 { O4 e0 vdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" # K% i! I2 W3 x+ a/ n6 @9 I0 S
End If 9 N* v6 \6 t9 F" c
End If & R' i# I) [5 z
If s(i, i2) = True Then $ [ N& O, \8 \7 k" j
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
; E9 R% f$ o# d' h, J! r7 {End If " {1 y* K* b# i
Next ! U7 s% j+ |2 o2 {% R5 M
Next , W4 P" w7 {& T7 l
End If * J! x: I; g; F5 ^: I/ q' u
End If * R Z: ]" P; ?) w2 K
If window.event.keyCode = 39 Then
: J1 {# d4 R4 H$ Wok = 1 3 K$ d/ t# N; @$ ^* M; z: b8 s
For i = 1 To 4
9 Y- L% o; H6 z- d! WFor i2 = 1 To 4 6 y3 I# J F6 |8 G
If s(i, i2) = True And X + i - 1 + 1 < 11 Then
8 H; R4 D" ]) l, p1 S; _5 kIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
" w9 T/ A% x& b! u! pEnd If
8 p' `( [4 W) p7 i! `6 IIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 % D% C4 a, k. v `
Next 0 j# B1 q4 j6 x; k: t( Y# y
Next 6 v) C) P- `9 h" u5 |
If ok = 1 Then
. P2 b* f- w; g! a3 J& p4 CX = X + 1
" i1 }, a5 }. `2 MFor i = 1 To 4 ( i- r1 }) y" E% H+ d' A: [
For i2 = 1 To 4 ^, f, b/ O& \1 S9 V: h u2 T
If s(i, i2) = True Then
2 k5 _' L2 U& ?7 h) [3 Y, JIf s(i - 1, i2) = False Then
" P* Q; u( p* F5 P) Kdocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" - `7 N0 v6 _6 s% H1 [: z
End If # _( ]6 K% K+ X. ~* m
End If ( q6 b0 {" {0 {2 \' G
If s(i, i2) = True Then 8 l% ?1 k/ k9 Q" U9 r7 ?+ `8 P
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
* ^2 i& _ }5 U' C$ r hEnd If % G+ a; o2 g' g. h2 W
Next
. X. f/ ^% s- P. uNext
7 C6 u$ P s! E7 Q x4 m3 ^2 ]6 N& ^End If
' M( d) i. S: O+ B- b2 h% gEnd If
0 K; V( ^' b* U: q“Aqui 9 n+ r! y% Y; ^% z5 [! Z
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
3 X9 J" I6 U- Z: q! G/ SIf Fig > 0 Then 7 m2 u( r# N$ ~! |
For i = 1 To 4
# H! o$ x* x7 w/ U dFor i2 = 1 To 4 , \6 O1 F$ }$ K8 w7 t1 ? L! Z
If s(i, i2) = True Then & P# u9 T+ q$ J$ {
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
5 K. W1 D% m0 x; z$ U7 FEnd If
. F, x1 X+ _+ x; t* k% _* I# |Next $ M, T- F1 T0 L# b$ f( }/ H( S0 w
Next : U* M# G1 m/ |2 u- ~4 j* b
Do - B$ |8 w9 z6 Q/ p
Y = Y - 1 # s/ ^ {$ _9 u8 N% U# U
For i = 1 To 4 j/ x; c4 S2 B# r+ V. f
For i2 = 1 To 4
6 ~# V4 y; r g9 X" i4 z4 X: J _If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 5 S: c2 o4 _' A
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then 6 q2 D% H1 ]$ c! [
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
& V! {; ~$ T7 z) t8 |End If
& _; I' n: x1 H# K* X' ]Next
) P" n9 }# a* \7 k3 }Next
# u% ~' \. W$ h+ T1 J1 PLoop Until Fig = 0 1 u+ C g( d0 h
For i = 1 To 4
6 ]" X& [& j5 I1 U) LFor i2 = 1 To 4 ) a4 y1 O9 y3 a' q7 f7 F0 {" t: [" F
If s(i, i2) = True Then
* f7 p; V1 ^' l) y+ M! H1 i xdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg : B* P- M5 q# Z% N8 L* g) I6 d
End If 2 l5 ~: R% [0 `5 L7 y
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
! v: i% r# I: E% P fNext 1 T6 Q4 v( }, W) J) u3 x: g
Next , {& k( s* v& Z+ @! f
End If
( t: ^ `% C h# k0 r I# OEnd If 0 O4 w/ Q. F1 e( j; P6 |$ t# N
End If
: e5 D2 `! q& IEnd Sub + U3 M- w, n# y" {$ L& k4 k( v. _! W
function Mmove(Index)
! f0 _ M! u3 `5 s r# eif index = "I" then
+ v' `/ O5 x: f4 K/ ?document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" ! ~) g s% V7 @8 v% ?
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
. o# x9 s" [$ yelse ! s" e8 m) v/ C3 b& C# b
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
6 f' f1 r* X1 T% s9 Wdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" 4 O& m7 ?) U" d
end if
' V0 O6 C' [! E, M/ S B# K+ d( iend function
* v) o5 Z8 h4 r7 D# Q$ D) p3 d9 n</script> 0 c3 _5 u u9 q- f6 J2 j
</HTML>
5 A# k5 p% b+ P Z. i) w<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主