 TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：. X8 S2 a! m) F9 _
<%If Not Request.QueryString("Ven") = "T" then%> 6 W% d( m# i4 s' t/ t
<HTML>
- |# @2 @$ g. N0 d: A<HEAD>
3 H5 C2 I, W' W4 E<META NAME="GENERATOR" C> 4 D/ ?' ^% ?, N& b
<TITLE></TITLE> ) Q! H' Z1 n, b' S4 Y
</HEAD>
! H1 }' n8 `, Q* l6 _* _* n<SCRIPT LANGUAGE=vbscript>
5 ~6 B" W6 T/ Tfunction Redir()
* g7 D3 v; E0 ~0 R7 Rwindow.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" & K) m! |" D$ l+ n+ R
window.history.back(-1) 1 S6 T4 V5 v, O' ^; E- k
End function
0 a" B. p( ^) ~, q</SCRIPT> 6 q K+ w5 r. \
<BODY onload=Redir()>
* |: |+ [9 @- G" X7 R</BODY> % x: ]/ x0 S% ?# Z) N3 Y* `4 ]4 u* J+ n
</HTML> ! S! T! t: U7 B e8 Q0 v7 w
<%else%> - \$ E: i) l% T. V
<HTML> + \* U+ q! l l
<HEAD> 2 k) R( l( o- R( h& W' I
<META NAME="GENERATOR" C> ) l) Y t; V% A: `# m: g
<TITLE>**VBScript俄罗斯方块游戏**</TITLE> 6 m( x( g" k9 j2 A, R
<Style Type="text/css">
! X; q0 S4 v/ b: e7 S<!-- & r' ]! u- P+ V( w# Q( v/ c
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} . |( T3 J' g5 `
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
2 {4 o! `+ J- C3 d' h0 O) M- K- j.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
1 I9 q2 q. c0 V$ T; d1 e' I.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 3 W9 E) ^7 h3 K/ W6 }- H$ K
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 7 v! @. t1 A1 v5 q2 w
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
3 G% J% D- ?! } R6 ^, ` U.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} / p, ~) v! q2 j- v; a4 u" C! B
--> ]) r8 o* g6 A, _ A# U
</Style>
' L3 J2 d# a7 v; l. w8 T</HEAD> ; c' G( @9 _' `6 h U- v6 f( `
<BODY topmargin=2 leftmargin=2> 1 I7 I( R9 d* |
<div align="center">
J9 R$ I/ N3 a' }( H9 m" y<center> # E; E$ H# ?- L2 {( M! }
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> 9 [( y% Y9 G& G* `
<center>
; z0 H" @1 {5 M4 R<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> 7 e4 G$ @2 D' K) h' ^
<tr height="18"> @1 E/ J$ X8 y
<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> & f* _" {# d6 I2 A1 @% R4 w
<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>
, k* J. R* j, A" `$ V o</tr>
+ T8 G- }/ q1 E# R; G<tr height="18">
$ x3 L! Q! {, G<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> ( \6 ?! ]$ Z5 ?2 N+ Q+ S
<td ID="235" width="18"></td><td ID="236" width="18"></td><td ID="237" width="18"></td><td ID="238" width="18"></td><td ID="239" width="18"></td>
2 z& }% G- j2 d" b* @</tr>
- Q6 P8 h$ C: f/ B6 G<tr height="18">
5 U7 Y- t$ r* j3 ^& [7 P<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> 0 r3 R6 f+ Z0 a! V* v; O: t) l
<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>
% z3 M; L9 ]& s, e0 J</tr>
# b. b7 \. E- G. l$ t A' s% ^<tr height="18"> 1 m( M; ~- x* K- ?
<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> ) A ^0 k) x. ]! P g- l
<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>
0 \7 |. g) B5 t7 _/ D</tr>
" \, ^2 G+ g- g* Z( l<tr height="18"> $ ^9 y; E" X4 T* a( Y/ L1 C/ B0 E
<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> 7 C, c1 O, x& n: l6 d
<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> 7 h+ F1 S8 a3 c
</tr> ) r) A/ @4 K: @9 i# _
<tr height="18">
& n! b0 h* y+ ~9 U- r& V; o6 g! D- 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> 2 Z" }! k% Y% o- z% W
<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> 6 J, i0 u( z+ J( J& ]* Y, A, U' ]
</tr> ) j% J# J2 ]: e2 k9 T/ E
<tr height="18">
2 F, t4 i6 @' k( l8 x' n* V<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> + @) D, i1 G5 k8 h0 O" U& q
<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 l& F/ ^' V( T$ g, y0 n f
</tr>
! M$ L$ ?0 p) ?# |9 D$ Q<tr height="18"> B, @: i9 b f' }
<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> " u5 S2 K& T/ l& E' ]& p0 t: q- x
<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! t7 Z- {# W5 B
</tr>
9 S6 j; }: w; g7 |. l<tr height="18"> " ]) t6 J$ \5 U6 n4 |( n# c5 X8 r
<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> + y! N% N6 l$ x" D# V5 J
<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> 2 m$ z' I* v1 Z. Q& X( C
</tr> 9 S! `0 g m; H; |3 r, F1 O
<tr height="18"> ) E' @5 k* ?. W. I0 n0 q
<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>
/ l8 B3 _1 k% Q7 S<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> $ c. U% \7 n5 L2 M
</tr> ,
6 _: j8 m4 I& T( {/ d8 n( b<tr height="18"> 6 a* K8 ~. A% j" s% S. i
<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 v( e1 z+ q4 [: a* o9 j<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 u \" Q4 x& J9 H4 ` H- [9 {</tr> : R& g4 M( x1 @- p, _% Z
<tr height="18"> + B; S: q S5 ^
<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 X: L$ K0 k/ H/ b5 Z<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> : E; d( G, a! I4 R M7 k( I8 l) Z
</tr> ' \ }- E# r, `
<tr height="18"> 3 o; k% B' o0 ^$ ^( T* O% q
<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 k4 p/ _8 {5 s9 g0 L" s<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> \. t2 [' Z7 `% N
</tr> % v3 r; J, s* ~% L/ j
<tr height="18"> , J2 M! `1 [* D( J, N
<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> & w. ^* f# E. g# O6 \: v
<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>
. G/ V- S2 L( t9 c* o9 M( x" X3 j</tr> 2 P& I; S6 F$ L, ]. `$ f
<tr height="18"> + m" I/ U4 V3 Q' e) l7 v# y
<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>
3 V; L. a1 [; n<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>
3 v5 J- y' p' P# i5 f$ q</tr>
7 i- |% B$ j9 J. p* D<tr height="18">
( h! ?* }8 i1 b; C. J. K<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 [) i% ]3 t<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> E- ^) `2 b$ }6 \
</tr> # p u" `7 y* F& g4 E# v; I; L" M
<tr height="18">
+ Z: F! O: K6 \. w1 T; O<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> . B' U+ B1 Y8 r; i3 q& j
<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 }" o& y ~" V
</tr> % \# V6 [! j, p0 a" G7 t
<tr height="18">
0 l6 I6 t- x4 V% r- U0 C<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> ' S6 H6 v! V6 D4 E4 a: y1 J
<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>
1 Z( B! a+ k' X+ q7 |( H</tr>
1 b* N3 i1 ?; v4 O<tr height="18"> ' n/ Z8 e# H- V3 O# ~
<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> * a# Z1 |, f% ~) M* h- j$ D% q# ~" N
<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 S; W+ K7 t) c2 `* I</tr> 4 ?" W$ t; z8 s! s) o% `/ w
<tr height="18">
8 R; {" j: ?! r) i# S<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> ' X& S g+ j* L: T& P9 ^
<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 q5 x9 n8 @2 H+ w" P+ O</tr>
5 ^! m5 O7 q/ B, d5 ?2 O2 Q<tr height="18">
. m6 B# A D1 k; H" {<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> , f* }: W+ \$ c% Z8 `! ]
<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>
- q/ y/ j. ^ k( z6 Z5 ~</tr> $ h9 Z1 R; m/ r( @+ u
<tr height="18">
0 b, u' g. t* m1 R<td ID="30" width="18"></td><td ID="31" width="18"></td><td ID="32" width="18"></td><td ID="33" width="18"></td><td ID="34" width="18"></td>
$ [- N5 O" d8 y3 u) D) V% |0 L<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> / \, Y0 r4 ]: `
</tr> ; ?# [' I: ~2 m# {* r5 n; w$ {1 E" H
<tr height="18"> ( A, {3 r5 u5 |9 k
<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>
* {4 f! {. S& O0 a7 T3 {<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> - F& M* P v- N- G; y: L* J! p1 l
</tr> 9 R4 L% e' ]5 B- S& `
<tr height="18"> ! g3 m. \; H# ~* F+ @& [! k
<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>
' M9 a( ?. @: ~/ R. @0 M<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>
: R6 T) W% F# X, ^8 R/ U</tr>
* V W- o8 D4 ~/ R9 i3 ~3 U& z<tr height="18"> % f$ ?. n, t; 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> , s, O6 { z1 \+ F5 S
<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>
8 K: O0 o& N- Q7 }% e+ Y</tr> * Y/ l( f( i K j+ _
</table> ! ^& I. _; Z9 |, a) v/ x4 Z
</center>
, b. d3 ?. [" A6 ~, A</td> + K4 X. L3 ]/ `2 L+ A
<td width="100">
7 v1 N8 R4 B8 J+ G<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
6 O* W& n* u! x) Q2 z<tr height="30"> 8 ?/ ~7 w. L- e( M- x- x! m
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
4 r4 i/ h3 g' e5 V: Q6 a</tr>
8 W" ]2 ]0 x, X<tr height="20"> % |% y+ |: G9 C! h5 ]( x2 ]& o% T/ M
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
. o) E( X% I/ b' A+ h6 p</tr>
/ h# q* E" s* i( g4 l, v V, i5 V<tr height="100">
" k7 \9 b9 K+ v2 s3 `$ p<td bgcolor="#FFCC00">
7 Y9 \1 l% U: Y3 Q<!-- Inicio Preview --> 2 v9 M3 j) _( Q4 d
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> . q# y* P) R% z5 n
<tr height="18">
* A6 {- O* n: e6 Q0 M$ n9 K<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
* w/ j) r* F1 I8 Z) L" ^</tr> / J& u% x$ u t N
<tr height="18">
* g9 U! ^' J4 R<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> + ]: E, j- G+ c$ f1 e: o7 a) g
</tr> - B( T8 H! _& F' j' v+ ~0 J8 N
<tr height="18">
' k( O. f) A8 D) Y5 m<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> ' ^. c% t, E9 Q6 [& L% V- B, n
</tr>
" r* D; t7 R7 _! F; ^9 N& M4 G</table></center></div> U5 p/ b8 N. v( Z$ Q3 P |5 H
<!-- Fin Preview -->
2 W" z# x- B5 d+ |7 x) _- J/ r</td>
6 R( t# Y' D" d9 u: C1 J</tr> 5 Q/ V* Q! t; ~- Q( A$ Z5 T) R% G
<tr height="32"> 1 D0 w1 }5 E; R( _1 v: i6 y
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
2 ?% n) U# T* e! T</tr>
( {: R, ^% n4 S1 u! N7 P& G% ~% r<tr height="32"> N" W, Y7 ]% t0 l1 k
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
0 Y e% F- {# u. d</tr>
- h4 B- A5 ]5 | S i* L& J8 Q<tr height="32">
8 H: ^" h& w: i<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
$ V1 A! W( ^3 v# r) F ]0 F0 G</tr>
( i: g0 \; u# C, z7 p<tr height="32"> 5 Q; f2 P5 M5 O. F
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
: L9 ~' ~$ B, ]</tr> % ?- \& B* Q x$ E8 C4 i+ a
<tr height="32"> 7 x S+ w: o( N9 O
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
" f2 m3 u# @ y</tr>
# O% f0 e) p; g# V8 C<tr height="32"> ; r9 `6 E1 T1 n9 V7 m) E- R R
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
2 ~9 b: k: q) t8 A+ a# `+ w( \</tr> + A* _& [: R$ b# v2 ~
<tr height="32">
# |$ M4 j [0 H: k5 b; t<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> 2 F. n' F# Z' t% Z& N' B
</tr>
$ W1 |# T; N- R. x+ a<tr height="32"> 8 g- K/ m6 l0 J7 i" s* D
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> 1 W- ?$ q% g* ] Y7 ^8 Q3 B7 A5 Y
</tr>
+ a7 S, ?7 D. c# N0 [0 P<tr height="38"> ' \$ i- r v# o z
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> ( A T7 X+ Z2 k: D6 j& C3 s* n; W
</tr>
; \0 N" m; n T, e- S7 V</table>
9 C1 S; |$ Y+ D2 p7 V, _: G</td></tr></table></center></div>
( D' T) Z9 v3 Q& w7 h</BODY> % f( ]+ F, {* `. |, G, T
<SCRIPT LANGUAGE=vbscript>
; y% i9 r& o3 E0 |9 y* gDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver , d% o) V9 i: j7 o" k
Dim hs(),sor(),hsant(),n(),s(),s2(),s3() 2 X3 k' ?, q Y/ y
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) 6 V; I# H4 T ]' o
LevlIni = 1
" E, y$ d9 y! `! M3 C' bPausa = False 1 A% s$ R b& a P% l
HastIni = VelLevel(LevlIni) . @1 W S8 N& u+ v9 o3 h& n
Hast = HastIni ) F H. W n1 O
Levl = LevlIni
! N& O9 _* z) t; R j3 pPos = Levl - 1 U% s. T$ i* u# {
ColorForm
& X" J. N3 r" QGOver = false
" {; P# m5 _1 ]1 f4 Ofunction Iniciar(ind) ( z7 K0 b: N+ F, m9 Y, R) e
if ind = "i" then
6 g0 ^% O( W3 L( L0 kscore = 0
, D+ Q. _" t, [/ T _3 yGOver = false
2 x) ~8 g1 j/ uHast = HastIni
# ~2 k w% h5 e5 T0 Y9 fLevl = LevlIni ; L0 c# {6 L+ S+ S8 t7 f s+ ?
Pos = PosLevel(Levl) ) g" O9 @+ F) d* ?) t+ s
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next / f3 Z7 Y, e* X6 w8 `
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next - b1 n$ X, n' }- C h
Timer1 = window.setInterval("Andar()",Hast) . x" K2 X0 G' q z) A) P
ColorForm 5 ^+ L7 k1 w/ V
Fig2 = 0 5 S h, b8 v4 v' {, h1 n5 x% \
Nyfig
V$ J U9 G% t4 K- telse
+ _0 m1 }( |5 [4 f ]9 T( V) kwindow.clearInterval Timer1 7 }5 ?8 f v: S) L
end if
% i% o/ k/ c* ?) l0 w) G6 Send function ( y+ w8 C* Z0 B& L9 z6 G; y
Sub Nyfig()
7 [ s. S5 W2 j0 @: h& T* CPos = Pos + 1
* ]% V" F$ J" s$ k6 P: zdocument.all("In06").innertext = Pos
$ x7 K3 s" v* g7 N- eSelect Case Pos
6 d; s" _' \" a( _6 GCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
6 e) N: e5 W* v J% y% ACase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
L7 H& U0 H! k V8 D+ C* OCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl & e% o5 D( E& O9 y) }
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
# ^5 [6 [! v$ l0 JCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl " _5 e: X- f0 c9 a1 v& r
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl ) @: o7 Z) ^8 G6 ]
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
% v& g! m; y! i' ?: R9 HCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
+ o( H3 h; p! a; l, v1 VCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
5 R. h" ?) g' j! I6 e# b, CCase 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl ) C1 m: e5 @% p
End Select 6 ~8 `- p1 Q K+ b) N
window.clearInterval Timer1
5 ^+ z/ R5 \5 Z, z1 h5 H0 aTimer1 = window.setInterval("Andar()",Hast) ( r( V5 f4 O0 |: C' G- j
Fig = Fig2
( d0 S3 {9 u& j0 h( U+ H( tFarg = Farg2 3 j: i5 O2 T' _: S# v+ `/ Y
Fig2 = Int(Rnd * 7) + 1
: l1 `& B1 n1 S1 aX = 4
( l* |0 L0 C5 A2 p: }$ A1 GY = 26
. I9 Y1 q" [* jRot = 1 " [5 H$ F4 |' w$ L; W( d# @! t+ W
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
( P1 [, `. y f: u0 GSelect Case Fig2
5 R+ J/ E" j- ]: U9 @Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
0 M, q1 O" h. q" S! E2 y1 }: c( ACase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
/ y5 H& }8 B1 B* p/ s7 aCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
" Z: `% R: N/ a& q8 RCase 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" / }+ g5 Q5 w7 m7 I* y7 g J
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" 7 ^ F$ v) m4 O# z
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
) x6 O) O' k$ K8 v5 {Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
- h8 `1 k- U8 @4 [/ x0 AEnd Select
( Q6 `! Y& p+ l2 x! rFor i = 1 To 4
s7 y' T- k$ V8 e0 g& ]3 LFor i2 = 1 To 3
% A+ n1 Z3 d3 g& T) y. Jdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" + `1 |4 Q' `- F% l" l9 |6 r; |
If s2(i, i2) = True Then
) V- G9 n; B3 }7 W( {$ |; s* Tdocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 " M) T* |8 o3 k8 \! L5 G
End If 5 V; n- ^2 C6 l* [( Y* v7 w1 u. J
Next ; O/ G3 O- ]& @$ D
Next
5 `$ M( x% `4 _) i8 Q+ O* `6 KEnd Sub ; @! u( d; z& {0 @0 a
Function PosLevel(Lev) : v! E6 H. z, s$ v U
Select Case Lev $ N2 n3 u* c+ H
Case 1: PosLevel = 1 9 i3 Z/ s- P5 }7 f/ ?+ O
Case 2: PosLevel = 51 4 f8 \7 L* \3 e- j! n
Case 3: PosLevel = 81
5 j$ N" z5 L. _( C3 ~Case 4: PosLevel = 111 7 a: p6 h% F1 Z3 @/ ?
Case 5: PosLevel = 141 # B& n3 [% I& p( Y6 \
Case 6: PosLevel = 181
- R: k, ] X" xCase 7: PosLevel = 221 : c2 G% B& C& N. [3 u# f
Case 8: PosLevel = 261 ! A) o9 B3 Q/ K9 q+ T$ J, ~9 r
Case 9: PosLevel = 301 0 X7 o! f4 @( e; ^. d! g
Case 10: PosLevel = 341 , m3 H$ c1 j# W8 t! o( N: o
End Select
; M3 j6 ^- ]1 Q! O7 M) l: X9 LEnd Function 9 F9 H+ [8 C1 X ^" N2 h
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい . t" H/ _! l9 u. l% M( X+ M
Function VelLevel(Velo)
# V1 P5 d n* b1 x# TSelect Case Velo ( o7 F. z. w! w, q$ V. a
Case 1: VelLevel = 500 7 T5 `* X# W* ~/ ?
Case 2: VelLevel = 450
! C3 l0 B1 O( d/ N% A- d- B0 DCase 3: VelLevel = 400 ( J: ^" X6 M, H0 S- |
Case 4: VelLevel = 350
0 x3 A- F" H* g6 U+ FCase 5: VelLevel = 300
2 q# j0 `# E: F1 b: L) OCase 6: VelLevel = 250 , F3 J* m( j) l. l
Case 7: VelLevel = 200
. T: R$ |8 E( y2 q- v0 m% UCase 8: VelLevel = 150 * I. u) R+ D4 T) M
Case 9: VelLevel = 100 * t# G% j7 b8 r
Case 10: VelLevel = 50
9 i3 k8 Y1 @) b4 kCase 11: VelLevel = 10 . s6 Q& Y% [$ f4 ^
End Select
; U% K, V V4 DEnd Function # V% Y9 a5 u1 W9 q# _5 x, P( m, e
Sub ColorForm() 7 ~/ o% A; P5 [/ }# ]$ p- N! v5 h% r
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
2 @5 i; P3 H/ ^. U. ^0 N \. ~For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next $ P# n4 H1 u3 W! @2 q8 B
End Sub $ q5 |% h( I* Q" v
function Andar()
+ b& l* e6 |5 X, A2 k6 KFor i = 1 To 4
/ _' _7 z2 Z, JFor i2 = 1 To 4
7 Y! X4 T3 m |0 o8 i+ P. r* [7 m4 CIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
3 [1 K8 O2 `3 f/ UIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then : m1 Z, P# x+ I8 b
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
/ }4 X5 _8 Q- l: Z8 c R" FEnd If
/ B5 ?; |. m% I0 r+ i5 `: tNext 2 _4 s; C, b: `6 r7 t
Next
0 F6 ] H6 I; O) g, jIf Fig = 0 Then * F7 s. n- I, T& y/ A
For i = 1 To 4
6 R/ V- y) F# l4 gFor i2 = 1 To 4
! k( d( J2 b5 z9 v* C3 t/ GIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
S `/ U5 }, @Next 3 B& H# g8 W) f, U, [
Next ( Y* g0 C5 V/ l: x# H- u; U& V
Ner 3 w) A3 h& L( G B% A' X# q
Nyfig 1 n* U' @, h, c! K# P3 B
Else ; U% ^$ \. N8 x( K {; W
For i = 1 To 4
7 {, ]6 L. G7 N$ DFor i2 = 1 To 4 ! g0 V' I( {# w9 ?3 C
If s(i, i2) = True And s(i, i2 - 1) = False Then ; [! k+ {) J$ O& Z
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
4 K+ }8 q) R; T/ [' xEnd If 6 Q, n: W4 ^& a' D
Next + X) o3 J t3 |1 Y2 ^6 E
Next 1 c& s' S7 m6 K1 {) G
End If
- G( e- F, |# D2 jY = Y - 1
3 o8 E/ ]# m8 O% V+ a' ^/ _0 PFor i = 1 To 4 - e# _& W8 Q* C" D" k: U- ^4 T
For i2 = 1 To 4
: N- A0 m7 L' n2 S+ Y8 y4 dIf s(i, i2) = True Then
' K# w {! I9 E' u6 _+ _! G2 [if not gover = true then " H5 K% `5 l5 U/ h4 z8 X ?' ~+ m5 j* m
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 / v0 E# t E8 ^, R7 d: [) P
Gameover
$ k7 h1 B: z0 I' t7 }6 zend if 2 d2 u6 v9 Z; z. M, e) M% n
end if 3 K3 i. C- }- m. C0 |1 t: p8 p9 \
End If
% F% A2 Z; l, c/ m. L5 a$ U( zIf s(i, i2) = True Then
5 n' {- O! t' Cdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
* J; |7 v& ]- ^' w* ^+ ^End If
1 Q" p ~$ C6 Z, K UNext 1 }) b$ T8 \) k, ?: @, c
Next 5 w1 {. c8 q3 H p6 t d& S% [
end function % k+ `8 E s8 G4 f3 I) h3 E- F
Sub Gameover()
% ]( p3 O' p6 W- L( r+ JMsgBox "游戏结束！", , "俄罗斯方块" 7 P8 E0 |0 h: s& {
window.clearInterval Timer1
/ o' R, x0 m: b6 V% \* ~# [+ [GOver = true
r) k6 j8 f2 [2 _$ E9 H% zEnd Sub % z. f( Z5 Y/ B9 f- k
Sub Ner()
) j. ^8 g6 _' i V% RScore = Score + 10
5 T- D- q2 U% X! u2 vdocument.all("Sco02").innertext = Score S& |4 |/ n9 ^7 v
For i2 = 25 To 1 Step -1
" ~) d. p6 @5 f" e7 B" @4 Bok = 1 : { u& U% y- A
For i = 1 To 10 5 w% Q7 `# d# ?& Y# u
If n(i, i2) = False Then ok = 0 2 h/ m, `" r& I
Next 8 l! y* }6 F }, {
If ok = 1 Then 7 G# x9 J' C% S
Score = Score + 150 # Q4 G& A: H1 t& z6 H7 V
document.all("Sco02").innertext = Score 5 @8 f* C$ ^2 K3 P6 Y
For i = 1 To 10 1 ]4 I& f4 |. x+ f8 o+ K! b1 E
For i3 = i2 To 24
1 r( ^% b5 @+ [n(i, i3) = n(i, i3 + 1) e, D' F2 h3 d% D% j, S8 B
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
. ` y8 w, e+ `+ m; YNext ; E3 |7 x, V5 ?
Next
" H: p3 q+ p8 A2 B2 xEnd If
) N7 |% g2 R. W6 E: |8 @( z! Y- |Next ) Y" J5 J2 Z! _6 X
End Sub 3 E. \- i" F0 N" s5 ?+ K' _ e
Function coor(xx, yy)
$ @* u5 Y: k* z% ], Z [! {coor = (yy - 1) * 10 + xx - 1
+ E4 a$ H4 p9 _/ u6 \4 ]* |$ cEnd Function / w" ?, Y- _* C5 \* P3 U
Sub Rota() * U1 t. E1 C8 ?1 K$ P
Rot2 = Rot + 1
: h- L; @5 b7 y$ uIf Rot2 = 5 Then Rot2 = 1
! [( F3 v" a) G% D: l) Y& TIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
' e! |4 V. ~3 E$ z/ a8 W s( f( wFor i = 1 To 4
4 S! Y& G: E& b$ rFor i2 = 1 To 4 2 `2 u( m8 R5 J1 |, G6 N5 ^9 w
s3(i, i2) = 0 & C& r! q9 M J! c) w- h
Next
" j5 e7 P6 L& S" oNext
3 a1 M+ i/ u# TSelect Case Fig 9 P6 p, r7 m8 l( w1 v3 n
Case 2
- A2 ]- e" c; ~ pSelect Case Rot2 # U6 r9 I) p- {# J6 l
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
, [( Z8 q' \7 I" a* QCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
- @8 b6 b/ A( c8 i0 QEnd Select
) R; I$ c7 B. W# t7 bCase 3 0 ^2 M& l" s# Z# ]+ [
Select Case Rot2 2 D6 S2 t7 |2 w* `6 b9 N
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
( m& Z9 {1 L' t6 [$ _Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True $ T; s* ~) a; H* l
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
8 n% n; [' U' t; pCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True % E0 [2 U1 |& G/ \* B
End Select 1 i9 K4 ` G1 Q, P) ]
Case 4 8 \, O6 }- K7 |
Select Case Rot2
3 a: e( t9 m5 {# `. {Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True , l4 D0 H, Y4 N( O. u( S+ t
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
1 g) h8 Y7 O* i4 X/ M2 nCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True % J, o) P% n. f+ ?: E* Q0 ^7 l7 |) l7 ^
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 9 I& `, J/ `0 y& @8 K9 c' O' y
End Select
" d& B, w8 V9 z/ H3 QCase 5
% K% ~, z' d/ Z. j+ I. {: gSelect Case Rot2 / i9 p& E/ W; v9 { X, W5 ^
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True % d- r' m- c) X
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True / z6 d9 ~: `3 Q7 X6 G; I
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
6 I5 o+ U1 m, B0 V+ A% ICase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True 6 H& a5 f& X8 G2 X
End Select
/ m) P% j+ V- ]4 \% U4 eCase 6 3 Y A* ~% {7 l9 ]5 h
Select Case Rot2
3 {7 y4 T2 _) L) `9 f8 i& u! lCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
+ E! H7 j. \1 S' C" J' N" vCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
2 w$ d( K9 R9 w" t' YEnd Select 9 w/ F8 I& ~8 L9 g9 ?8 R
Case 7 3 v( z g( F+ p+ O
Select Case Rot2 ! l E- ~" x% A7 S" L5 [- O! J4 X
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True , H" }5 T6 m9 f! A
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
% n+ l7 p' `8 F- Q/ ~8 P+ z; T, qEnd Select
# `& _. f8 @3 L) v% w5 d- IEnd Select
7 W7 Y! Y+ u! Gok = 1 7 t! w, t1 @4 v: Y+ G. q4 C
For i = 1 To 4
/ A7 \5 D, t5 S. SFor i2 = 1 To 4 9 H* Y# B- O/ z/ _, N0 w
If s3(i, i2) = True Then % Y6 C% u& {) g) [
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
4 l( ^- g4 z& eIf ok = 1 Then
& x: T0 h4 d C9 T, iIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
/ b; b2 }2 W9 H8 K8 }End If
" }; p7 [# T/ j7 Y& P+ s* B. n& @5 pEnd If $ v" v9 t: @" }7 h6 ^* d
Next
$ R' V) s+ w* `0 a8 L$ nNext # L( G" e9 \; O8 }
If ok = 0 Then Exit Sub
. [2 {7 J u! B4 K* oRot = Rot2 2 T) A l% H! m8 V# a2 O1 o
For i = 1 To 4 5 G! V" ?- j8 Z- r- i: ^9 H; a; L; m
For i2 = 1 To 4
5 i) ~, K7 q- LIf s3(i, i2) = True And s(i, i2) = False Then ; ~7 A; i& @- N
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg " t8 s- e4 c4 k% ~
End If ! J" l9 T7 R0 |2 K2 s
If s3(i, i2) = False And s(i, i2) = True Then
1 _$ ]% S) g+ D$ W# |document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
} b/ R* _9 g5 u7 ?5 t2 E4 hEnd If
c. }- X/ w7 V; ?7 [' {s(i, i2) = s3(i, i2) ( E/ ~7 G" ]6 A7 g: M5 Y
Next
! m! K m* k+ I& F8 c) M& eNext
* ^5 j9 k0 R8 ]: s% Q: f+ C) HEnd Sub + ^& _" F6 q& }+ z' N
Sub document_onkeydown 4 }! z- N) {7 O5 O O; Q1 X" s
If window.event.keyCode = 27 Then msgbox "Pause",,"TET" + E2 G6 s' q! U, h/ O0 l9 ?
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
2 j5 c1 x! d, _5 Z# u# ^" v9 b8 BIf window.event.keyCode = 113 Then iniciar("i")
- ]) {3 ^ \$ l" f; o, zIf Not Pausa = True Then
, O( m1 e0 ~6 `) pIf window.event.keyCode = 38 And Fig > 1 Then Rota - v. Q) u% Q9 G) L/ ~
If window.event.keyCode = 37 Then . s7 c( G1 P6 M& F b) o/ h! G! j
ok = 1
) N: s1 B2 v* P7 U* |For i = 1 To 4
6 ~ x1 y3 [) e4 @For i2 = 1 To 4 1 C2 e! h u) e! u' \" k0 Q) Q
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
. V" N0 N% P+ uIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
+ d+ `: ~; A0 r8 zEnd If ' U- O; F' ^. a1 o
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 8 s8 n# d8 s$ y; i7 y# h
Next
- _8 u: S( [' v! r# aNext
e3 B% K; n; Y$ AIf ok = 1 Then 5 F5 k/ h* E0 a, |; I% x _
X = X - 1
+ r8 A; |; @8 p* FFor i = 1 To 4 w. A& x7 A* K* O
For i2 = 1 To 4 ! ~; f! N$ U, Y
If s(i, i2) = True Then
. @8 ^2 U) L* @" D0 s4 Y7 ~If s(i + 1, i2) = False Then " u- m7 C! H# I9 q
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" / Q/ |7 x# w+ q3 C8 T
End If ) K$ H) o8 C) P( k: [
End If 3 X3 k9 e* y& e9 g ~3 j6 c+ A8 L
If s(i, i2) = True Then 4 @. E' j' x2 l# M
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 6 F* C1 a% o' V( r) F6 f
End If / `! f+ W7 Z* E7 K& Y# i6 e
Next $ d! o' q' z+ R2 w! ^- u8 X) B
Next " V( ]2 r0 c3 X" k" `
End If ; ?7 r9 y3 G: _5 u+ K: F4 l
End If
) U, t: ?+ o+ ?If window.event.keyCode = 39 Then
' Q1 e H# n7 a: Dok = 1 " ]+ {5 \0 J9 I7 y$ M
For i = 1 To 4
* V3 T$ v, F+ BFor i2 = 1 To 4 ^/ u' F5 d& G
If s(i, i2) = True And X + i - 1 + 1 < 11 Then , [" X! \7 V; _) [ h9 G, g3 Q8 \
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 i) k# N0 w- [5 W
End If
- w8 H. B$ ^( f+ x2 I8 {If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
% ~" `4 A0 _9 _" e' O- C0 ENext ( z1 V5 W$ t# E2 _# g
Next
; O& g+ i, d) E" z8 b8 `# RIf ok = 1 Then
' x) ]/ Y; }* D' p3 ~9 WX = X + 1
% W+ A1 J0 ^1 O/ b, R% I1 I: _For i = 1 To 4
/ x( d9 c9 m# j- H9 y$ h. S+ \7 VFor i2 = 1 To 4
0 v# E# C5 o( Z- SIf s(i, i2) = True Then $ O4 L1 }3 R [9 k$ l, Q; z
If s(i - 1, i2) = False Then
2 m' S- B% u; p5 H+ f" E' Ddocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
. @6 [2 X' C' ~$ o/ t8 {End If
: W4 D5 U4 F" c$ l. U2 HEnd If # u H K" g" b* w( D
If s(i, i2) = True Then . K9 P- q, X( ~/ B; o( ?
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 9 Z# _8 ?" V, f; e; N# B5 e
End If 1 g! o: S$ ^ X& j6 `
Next
+ m2 w' ?7 P5 S' i3 |7 _* N5 bNext 3 S1 O- `: a. f# v/ L. k
End If
7 e% t a1 v0 n6 r3 X% [( ]$ REnd If
\/ l9 J9 w# V" o“Aqui ' a' u9 G% U7 N& p
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then * y* p& X' L8 Q
If Fig > 0 Then
; E3 j$ s5 X4 nFor i = 1 To 4 + q1 z: i! P* I- j, X4 X% G
For i2 = 1 To 4
9 d4 n! J0 G& |# eIf s(i, i2) = True Then + r& F! P: G) y- J5 e
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
( V2 U2 N: m2 yEnd If
6 ~8 `& x0 }5 zNext
: B/ T: x8 R* D9 u0 w1 vNext
m# `; Q! b- @: aDo
( m; K& }* K. [( aY = Y - 1 7 W" s1 o+ G: u! X, O
For i = 1 To 4
5 b" v P3 a$ I" G. f8 A3 HFor i2 = 1 To 4
. n9 I0 M) F# g4 ]If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
& Z0 U4 W3 F/ L) oIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
8 ?/ d4 l6 q# N, i2 AIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 5 n# y5 {+ K( r/ D3 ~
End If
4 ^# B; Z0 G5 n. I# k$ C2 K, SNext 1 I. d# X! W8 ]( k" [: n" S# V: n# o
Next 9 Y3 `0 \' M! {6 U5 W% J7 a
Loop Until Fig = 0 & B- F+ Y! L7 W
For i = 1 To 4 9 z# x/ D! }' ?# V) k$ y" }
For i2 = 1 To 4 3 | {! B e, L: k1 e8 L- O
If s(i, i2) = True Then 7 z( a& ^6 c0 p, W1 z
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg & V$ d; B0 R# ^
End If
8 R0 W; P5 O# w$ h ^+ I F) oIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True 8 h4 h) S; r* `0 q6 n! g _+ W4 `
Next
# [1 o* h) R r7 B. f/ X1 tNext
5 O- x* m: r; S3 K j! i0 y0 jEnd If
- r$ A2 A+ `( Y5 r6 a& I6 {End If
* L3 f! `: v- d3 |! PEnd If W6 ^ `+ X1 k4 b0 d' c
End Sub
& I( R) c/ i/ zfunction Mmove(Index)
' G* {2 E) b* I. n1 L) A0 wif index = "I" then
3 X, d, e! X; L$ |document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
6 d0 {1 { `1 A2 T/ Kdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
/ x3 R# j- [! Z4 A$ u8 |else ' c# ], `& P3 y- Y3 Z
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
/ z/ m2 u; i9 Idocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" : {' Z7 U! T' U$ H* [8 B
end if # }4 E5 k: w. c( q! y
end function
7 o8 @# `. M: N% S; Z; f1 U</script> 8 a4 q- F& c9 r1 v1 D" L* s+ X* ?
</HTML>
. A# e) u/ o4 k5 ?! a# b' c<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主