TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
$ U( L- s9 j2 [" |<%If Not Request.QueryString("Ven") = "T" then%>
3 I8 t1 g) w0 H. r5 ]. e! d/ R<HTML>
( z9 h" z! B4 l' ^6 ^<HEAD> ' \ R' h) K0 C( s8 C! T$ }+ E9 m
<META NAME="GENERATOR" C> : ]! ^8 Q+ R; n W- s
<TITLE></TITLE> / k2 }! k0 V6 ], w" d! y" O
</HEAD> $ S/ Y3 L; u, ~/ P. i5 \! D
<SCRIPT LANGUAGE=vbscript>
5 U, t9 k. x; q+ A' r1 Zfunction Redir()
; e4 H6 C' W0 R1 Wwindow.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"
2 I& P( f' j. m. ~8 X3 O$ swindow.history.back(-1) + L1 q, D3 t+ W0 D! {1 W9 h+ i
End function
& h( D( r8 M A! X! [1 P: W</SCRIPT>
3 Y9 M7 Q ?1 ^, @2 M/ n<BODY onload=Redir()>
8 e. J7 R* l5 h. ?/ o1 i</BODY>
! @6 t9 S% N3 Z# H% a/ ]7 p/ D</HTML>
" t) J1 E3 r, u7 `/ X5 j) |) P+ y<%else%> ; P) B; \+ j( [$ k4 c& S9 n
<HTML>
4 A! m0 e! ^, o5 @) x<HEAD>
5 E$ A" ^) {+ R<META NAME="GENERATOR" C> 0 V7 Z" T/ Z4 t j3 v
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
8 P; n" N3 q# L4 W! s<Style Type="text/css"> 6 M6 S: C$ G9 ~( y8 G
<!--
. M" U7 t, b9 W.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
& P! y8 d2 J% ^" A.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} 5 i5 m. i. ?; d8 f
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
1 S3 z, ^" H, H Y) G& P2 e3 x6 p! d.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 6 u0 J1 e" b3 w( {* O
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
: g2 d0 `/ @1 u.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} , k( P3 \! t2 S" s
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
% K2 r0 u( f! t' y8 n-->
+ L1 k7 u- _2 A5 f, j/ c</Style>
. l) c$ X( q2 F7 ~8 I J</HEAD>
B& l3 N$ M, H3 `5 o% a/ l<BODY topmargin=2 leftmargin=2> 3 u/ E( E: E/ L) S
<div align="center">
& c& y9 f2 V9 O* ]# H5 |, b5 t: P<center> g. g9 \6 U3 Y7 l0 Z" |
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> 8 d% H4 i4 D% Q$ c, M. T* d) [6 d9 w
<center> " F; p. K" y' k1 q E/ {" X
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
6 L8 K0 [! |7 W3 B* V, s$ T<tr height="18">
3 k+ `9 R( W. q$ v: s<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>
7 f& K' B3 o+ d7 ?; [<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> - \7 a! k. y* h2 C$ @/ r V1 N& |
</tr> % l% i- m$ E3 e, U" O2 ]9 y
<tr height="18">
& d! M& C$ x0 y! d<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 f0 s( x1 R( V
<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> 1 ?; A6 b* R5 B1 _; X
</tr>
- O0 K8 b4 S9 t4 T3 g1 s<tr height="18">
& v* T Y; L g' Y<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>
' h; L* k3 {, h h. N<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> & L z; e7 H- E( P
</tr> & y% T1 R) f) E7 r7 x" { G
<tr height="18">
0 r/ o. |6 Z$ o4 {& n6 P<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>
4 B% X0 o' Y# W0 S<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> 7 @8 [4 @- \0 Q3 W8 f: H* N' d
</tr> : V! W0 F( `, C' {; M$ L, Z
<tr height="18">
- |/ Y7 s3 _% c5 T8 C. H' Z<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>
! O0 l. y& m; t; k, J) f, v4 K<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> * K, @! O5 H' y- C/ @
</tr>
- Z& |( \6 f. o! o2 i<tr height="18">
5 G; R* g8 J: S/ D) U; w) 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> # b( z6 V7 J3 k# ?7 @2 I
<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>
( R1 D6 I p: }# ]! y: A9 ]</tr> 6 ^% ?) d: [# Z; Q( V
<tr height="18"> 4 q0 }8 f2 n0 E' h. Y
<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>
* z" W1 s0 t: h! L* o<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> 6 _3 g1 m+ M& a ]
</tr> ! F. [5 k4 k: U' ?
<tr height="18"> & l/ s$ o0 O0 G7 g7 j+ v
<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> ; Y4 g8 o. k, h* [; _# H
<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> " g' t2 s5 H+ I% V3 a. m' o
</tr> 5 l3 Z" h8 s ~ @, c
<tr height="18">
; b+ i: Y* x" w8 ~6 F* G<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>
* Y6 |/ P7 K" o U<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>
- }* o9 b% k% H0 z</tr>
$ q' H7 h6 R7 G1 i<tr height="18">
/ i# s) _+ u& q4 S5 ?<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>
: I- d$ Y0 Z, D* J | P* g4 i<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>
5 j, `. [# u% `</tr> ,
, I' L' I1 S3 g8 F4 H( z2 _( s<tr height="18"> / m* n5 ?% u5 M) `- D3 g
<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> 7 e. e+ l0 w! Q( d6 g4 G4 q
<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>
% [! p; _6 @# k# [</tr> ) m' Y3 Z5 y$ L- G u
<tr height="18">
: U2 v& ]/ {/ |<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>
4 S4 L7 w% I" M<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> ) ], v/ B3 @ [# O' w$ ?5 f
</tr>
% e D5 c+ k& t7 z- E3 q<tr height="18"> 3 p& S5 h/ ^7 ^( f! t6 ~
<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> " ? D$ J4 ?/ M) I: T- a T3 g4 f7 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> 1 k' U, x; E' f( C0 f
</tr>
1 R8 H) l& s( j! n- q<tr height="18"> $ i* P- i4 k( Y+ ~; E% u% E. Q: q
<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>
. e, U, C ~6 ~1 O Y) @" S<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>
' e" v; u% }) z* q @</tr>
( F: m( J8 p% m<tr height="18"> ) ]: e2 O% c0 T; [1 A' m$ ~
<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> 4 E! m- B$ p1 i
<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> 4 g0 G( L0 H9 n( | ~; r
</tr>
3 |5 Z* U5 @. g' u( m<tr height="18"> 2 t5 F0 o k+ \! s" w
<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> 7 I! r# L7 m, i* U C4 M
<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>
1 G; L+ u* |( S! ~+ h* N</tr>
+ ? d0 L; r* C3 Y& A* z<tr height="18"> 7 ^/ k- Z$ w8 i3 g2 i
<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>
. X$ Y1 _9 _( M" r& Y# H2 B<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> " G, \" b" P5 ~- A
</tr>
* s( b; ~. O* W& J* U! I, f<tr height="18"> 9 L$ j4 K6 ^" f- ]4 U; C8 O" N {
<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> 0 ~" p) q K; r4 D
<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> ( l6 n* g. @6 d" i# o8 H
</tr> : J* M- x h* X7 F* Q
<tr height="18"> 2 p4 j4 V' x" j
<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>
: o* d# z$ _2 t$ J$ }<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>
, V" u! P6 ?( e6 H</tr>
. m5 d" ?* R7 n! G D: {# S<tr height="18"> 7 [4 Q' u3 c4 |
<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>
& q3 \' H% L0 s. S( |2 i<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>
# |' [# Q3 {/ Q</tr> / |4 [* j% u+ o! ]$ ~4 R6 R
<tr height="18"> $ J7 m% ~1 Z4 a6 b
<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>
1 n6 r0 K; l, K2 l/ I' N6 _2 n<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 R$ b4 ~/ C* O, t. _1 y/ L</tr>
* ]# ?6 d$ h* q<tr height="18">
8 f/ X8 T+ w6 a% M<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>
+ ?0 Z8 P9 }2 Z T O4 X9 a2 T' R<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>
9 x: y! X; ^3 V3 R( F</tr> , S' p7 k1 P8 _* a/ W0 T' J
<tr height="18">
1 l! d# {+ {2 r1 A& O4 T E* X<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> % h) N1 o+ K9 m8 E
<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>
4 e, U: u6 X6 V- F</tr>
8 c$ N4 V4 f1 `7 A; ^5 s<tr height="18">
3 I) v( y; g) B9 O8 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> & C. N9 ]5 [) P8 e4 z; o
<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>
) {5 h+ P2 \1 E: X; _: J</tr> 0 @4 G+ V- z- J( _7 o9 Q# K- A
<tr height="18"> 6 p. {% h% Q* \+ X8 W. u3 y
<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>
4 }) V+ D0 f3 `/ V# @1 E/ _+ w<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> ) [1 _; H* @, i3 ~4 p5 F
</tr> w! m& G$ ?" d
</table>
" e6 B- f( |" |. v) e% O4 t- t8 u</center> 0 J. K+ P9 `1 N) D
</td>
- `% w- W; Z! H+ J% B5 ^- H+ C<td width="100">
% p7 {5 a0 E5 l% s) B% Q<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
3 A% j. k0 S: I' V- c<tr height="30"> ! L3 M \+ J$ Z) c" m
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
3 |/ d. w3 {- m. R& F( d5 e- f</tr> ( X+ Q; D+ k* e0 N& J
<tr height="20"> . w/ ]. C" t& r8 o8 T: N0 ]$ s5 ?
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
6 ^& U8 U) Z/ r; u$ Z</tr> 3 k5 O7 G/ P# |, b$ v8 U; |" j; H
<tr height="100"> : T" i9 G+ V% s8 b4 C% r! k7 A
<td bgcolor="#FFCC00">
( Y6 N e/ E: Z) B! n2 N<!-- Inicio Preview --> , L! z. O6 Z" ~6 H4 Z
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> , n {4 e0 e7 f" O
<tr height="18"> 1 |6 N. `. o. ^6 H
<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 k( O, d: ^1 E3 m+ t/ Z# i% T( q</tr> 2 n) y4 u/ U" {% t; a9 O
<tr height="18"> + T$ ^5 g- V; i: j& x) p
<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
: i3 t+ T* Y& z5 [</tr> 4 r( r9 V, e, ? f
<tr height="18"> " X' g4 A9 o) _4 n% y
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
; A# e) f; B7 ?</tr> 9 I% L% H$ x, \5 I6 w$ u' d8 V
</table></center></div>
* h m! O2 b* ]0 v7 Z<!-- Fin Preview --> # H* h& x. f& b
</td>
- l% o' L! `# I, e</tr>
u" f4 ?" B! L8 @<tr height="32"> + H: m8 j" K. }7 u
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
8 M5 B9 i5 R4 A9 e3 E' s! F0 h</tr> 0 n. d, c* f* }; r% d
<tr height="32"> - b7 G2 P; t# \
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
. r/ A% S1 m& o</tr> 7 T' y$ q7 g ]) I6 h9 S. ?
<tr height="32"> 1 `4 c$ m9 ^; e" `2 t( p$ u, J
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> . |, g1 z/ b" |) Z
</tr>
2 `2 q2 A6 H9 f0 C# X$ _9 c0 v<tr height="32"> $ ?/ G( O! j4 Q a" D, I/ J9 ]
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
6 k1 r0 j! N R* a! s</tr> 4 E! ]2 K4 c" h; O8 O
<tr height="32">
$ S' g8 R/ k3 f5 @- Y, x: Y) T<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 5 F7 P% I" }; F
</tr>
5 [: h! G7 [+ h- G% e& }0 O/ {<tr height="32"> . l2 G3 Q/ w4 |& k
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
: E V- l! O' h' ?2 Z6 u9 c</tr>
$ f! d0 r4 m) W+ \: t<tr height="32"> ' \/ Y9 P. s+ k$ T# K A0 a
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
" \/ V% W. T- u& Y! E</tr> {4 U& L, o; H
<tr height="32"> ! }. T6 |: D& u# o1 {+ v, M5 c) F
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
- m! f2 N6 M! `+ a& Y</tr> + b& B" Y, Q! N$ X: G# {
<tr height="38">
8 o5 G7 W9 K8 b9 S% X' r; r$ t" Z<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
# S F! J+ r, M, A! d</tr> 1 N' e4 j1 M$ u$ w& K0 t! M) \/ `( v
</table>
' {, E$ b7 D, [* s$ q</td></tr></table></center></div> , S5 D4 X/ ]$ x: v4 m, z+ q8 `
</BODY>
1 w# Q- _/ {5 F- [<SCRIPT LANGUAGE=vbscript>
5 c# _' c" e' @% p4 s9 p# aDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
N; Y& [7 J! t+ k1 O, q0 kDim hs(),sor(),hsant(),n(),s(),s2(),s3() - }' p9 D# w6 s2 E* [
redim hs(3, 15, 2):redim sor(3, 15):redim hsant(3):redim n(10, 25):redim s(5, 4):redim s2(4, 4):redim s3(4, 4) ( e' p; E$ E. n6 o# @: @- X
LevlIni = 1 / r. f& V8 U( w& d; X. T7 I
Pausa = False 6 H$ @( ]7 W5 f0 l; z0 @ y6 A, ]5 E
HastIni = VelLevel(LevlIni) 0 g8 B7 O7 D4 h( ^& t
Hast = HastIni : B6 J" w, z. f
Levl = LevlIni
" h" {0 {' L; b$ m3 _Pos = Levl - 1
# r8 L4 e- d) @0 i. h. EColorForm
2 ?; T3 f5 ?, J7 ?% `# kGOver = false ; m* K) d6 Q0 D/ B) s! j2 {- }; o
function Iniciar(ind) ' ]8 J8 M0 n- Y
if ind = "i" then
& j1 Z" |) F3 V) n, T+ w# g! xscore = 0 / ]6 O# }% v5 Q8 S* e- Q
GOver = false
( ?) x# r8 f+ Z- O, u& q8 LHast = HastIni
3 r" y6 x* k& V5 j+ b/ F1 fLevl = LevlIni + u& C( r3 K# ]( K: J# e
Pos = PosLevel(Levl) 4 k* X+ F' m* h8 _6 r
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next - S# E+ r. G! B x6 n: N& b
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next ' b$ f% P5 p3 \- ^4 P
Timer1 = window.setInterval("Andar()",Hast) - m# S8 x: f7 U$ E7 I( _* L$ `9 y
ColorForm
0 l1 u+ s* J: _' G' XFig2 = 0
X5 q X9 X3 k8 A9 }Nyfig : Y* I* X, B& v: r! V
else " ~* O( d9 Y: k/ n
window.clearInterval Timer1 ; S2 A0 z/ h! o
end if
; d1 j) A4 _9 T$ ]0 Vend function
$ O) Q. R8 p0 |5 M+ L# W2 V/ pSub Nyfig() * Y* R2 {) a% H. i( H
Pos = Pos + 1
3 T- w) c! k/ `1 V1 O" S7 J2 D. w) udocument.all("In06").innertext = Pos
" C1 v; o, q% ^6 V. P1 KSelect Case Pos 9 z4 a# T/ l' t! @) \6 z$ W
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl ! {: @' s" `8 h
Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl ) Q( a' b( L6 f9 ~; V
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
; S( G* E- B: R5 rCase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 5 Z: m! e/ s' e9 G4 H, K" L0 Q1 ~
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl : Q2 c1 P8 N M
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
b! q6 @1 U: n) |Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl - g7 l$ b# m+ {
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
$ G4 D- m* F4 ?9 h; ECase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl & e- |- ?6 Z. z8 M! M6 h) Y, _, b
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
" M: X4 V5 T2 c1 _" e% K) z- ~End Select 9 w6 A5 F8 R- e, J9 n, D
window.clearInterval Timer1
- A: h Y: k& ?# \8 v5 ?6 XTimer1 = window.setInterval("Andar()",Hast)
/ ?& z! K @$ ]% e" P$ B) nFig = Fig2 9 g7 [* @0 j. c: _. [3 x' M& P/ o, p
Farg = Farg2
1 M- Q& T# W) q9 l/ l! Y0 fFig2 = Int(Rnd * 7) + 1
8 N8 z, V9 Z' ]9 d& ^* ]X = 4 / T/ ?: o0 _4 z0 m
Y = 26
" G2 e$ v5 y `" ]Rot = 1
% C, b& L- n: H* q' x8 cFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
& B1 j I) l0 e6 ~Select Case Fig2 8 u' ]- h/ Q P. C
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
9 e3 c5 |) ~3 oCase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
s( y) | o( E4 f" [/ aCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ; k; c2 T0 d+ U* e
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
0 k- k, C( T; C% R& R9 FCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" - J* H2 S7 B' d4 K
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" r* A$ U4 z6 x
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
5 h0 `. p/ @1 h4 }! W! G% C6 H4 U: oEnd Select ( ?& M+ t* i. r& w' h
For i = 1 To 4
: ~8 q6 i+ v$ j2 J& n& k. G, l! MFor i2 = 1 To 3
# F7 V" F( r# P+ N0 Adocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" - w, h6 n- u* k1 {) _
If s2(i, i2) = True Then " V6 s0 y% ~: Y! w+ g! O: u0 |
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 ; B1 d7 {: X8 O& @# L. G2 a
End If 2 ]" S& \7 f; M7 D! Z9 T O
Next / z' k: T0 U: ?2 S% I
Next
. Y; x8 N% O- t- f5 r4 aEnd Sub
: z1 w0 ^ R! h% P' }0 o9 WFunction PosLevel(Lev)
% ^! I# ]( A0 ~1 T* lSelect Case Lev
6 s/ E3 Y$ H* H( k' J* cCase 1: PosLevel = 1
# `- W# j7 C: lCase 2: PosLevel = 51
$ z( c" m4 [/ R; S7 ^$ o3 nCase 3: PosLevel = 81 / j3 S5 ], w& o( _# n
Case 4: PosLevel = 111
9 U! |9 f9 l) \ BCase 5: PosLevel = 141
( N8 g9 F$ J0 x- S) JCase 6: PosLevel = 181
9 L. c/ ~3 D7 j8 N6 q0 l! n9 ^Case 7: PosLevel = 221 6 p3 a6 M: Z D5 k
Case 8: PosLevel = 261 1 o2 |6 T8 o# @! q
Case 9: PosLevel = 301 7 B, f% h" |' r9 U, M: {
Case 10: PosLevel = 341
0 M) h, @& H! v' {) PEnd Select $ x3 g* s) l$ i3 S" i& H
End Function 1 z/ p' ~6 l( ]( e1 `" v$ U" i' Y8 r
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい 9 M3 Z) e* b+ G$ ]4 z
Function VelLevel(Velo) 2 w8 ~+ `) n6 H8 \1 h; j
Select Case Velo 7 G) [- Q* @! z. ]) f7 }3 y
Case 1: VelLevel = 500
3 s! G, h4 T- A, `1 ^# _8 PCase 2: VelLevel = 450
8 f$ z; s- A( s0 q2 h2 T% N3 XCase 3: VelLevel = 400 9 f2 t* _8 Z( e% E3 a; b
Case 4: VelLevel = 350
p% q; n; | TCase 5: VelLevel = 300
1 t2 l, g4 _3 ICase 6: VelLevel = 250 2 R( n( X% g+ B# a9 U7 }
Case 7: VelLevel = 200 4 M3 X/ x2 ~9 \" H6 {4 O
Case 8: VelLevel = 150
2 c5 O9 S2 M3 dCase 9: VelLevel = 100 ; q% r' ]; S9 A' p: [1 j
Case 10: VelLevel = 50 ) c7 U- @- d4 W1 ^; y2 f
Case 11: VelLevel = 10
3 k% B, e. b( b9 g( T0 G% sEnd Select
' e( H% ]1 x8 s/ b# sEnd Function
6 K9 N! Y$ U9 ^, F6 X$ XSub ColorForm()
: |& A3 M h, ^; ~" m! |" eFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
' V8 ]1 O$ c) tFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next ( o+ [. X: N$ C1 X& X
End Sub ' F' q: i/ n! h; N5 o
function Andar()
. F% Q& N/ w" ^: A7 u. v6 oFor i = 1 To 4 5 J: {" f3 [7 ]) x, }8 {
For i2 = 1 To 4
; X6 W8 _ h3 w# p* X! VIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 ! B1 W/ p3 i- u; ]
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then 2 b& Q9 {0 Y1 d8 g9 V) V
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
. E/ n+ B' J, N' H! ~6 GEnd If * ]" y. Y L) P, B+ m
Next
/ h6 H* K( g' z; ENext }/ D* ?2 l& I c: U; D4 W/ Y
If Fig = 0 Then 2 m& g0 U# s& Z% \
For i = 1 To 4
2 h: h% L, p9 H! pFor i2 = 1 To 4
$ v: k- v- }) m' _. z2 `5 NIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True * ~ M: _ ^4 u: h9 P
Next
( t; F( |$ }/ f- n" f( dNext 4 {) Z: o: ` a( e2 \
Ner
3 n3 Y1 d( J7 x. O) [, k/ ]5 iNyfig # T# d: x- P- b4 S
Else : |! M. x, Z9 i
For i = 1 To 4 , X6 w+ g1 w2 |* F, h7 w- ^
For i2 = 1 To 4
- L+ @, R& l7 P( EIf s(i, i2) = True And s(i, i2 - 1) = False Then
1 }; K) V) f3 a }! fdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
/ {( }+ r* T. g# `$ j& TEnd If
2 Z5 Y5 r, }* ^ O# _9 f2 d. {# gNext
3 C4 Q, A7 h6 |) j, M& VNext & L) q D/ ]: [$ s0 G$ }
End If # f$ t/ r- @# ?+ G0 ^, x- F
Y = Y - 1 / q d$ s% e. S" L9 h6 e- i
For i = 1 To 4
! z+ d }8 t$ HFor i2 = 1 To 4
4 S. `4 i/ j) C H" rIf s(i, i2) = True Then
/ t7 V) j; L+ u7 a7 ~( qif not gover = true then 4 f( a! m6 u8 U* ^! r4 C# W( n9 h
If ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> "#000000" And ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> Farg Then / }" W \- P, k: S+ J' K
Gameover 1 a2 {2 o- x6 S9 z/ [0 A) i
end if ; M& r" y n9 j0 F% S1 Q
end if % V5 E- j+ I7 C3 d
End If
: g; l0 l# J3 p2 w' a0 FIf s(i, i2) = True Then
3 `1 Y+ w$ c: Y# q2 I: \document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
1 l3 j! O1 H$ V7 HEnd If
5 d% I0 A1 _/ D, b% F7 RNext / g5 ]! u `: w5 U
Next 2 K9 I l0 ^. w: r! Q: E
end function
& K' b) Y$ o& m9 aSub Gameover()
2 Q8 u0 z5 t* |: cMsgBox "游戏结束！", , "俄罗斯方块" 5 _) g6 S" S, F X3 [# l3 m
window.clearInterval Timer1
# z& {6 {) Z" q& B3 VGOver = true
4 a& u7 ^( f0 A4 T( _0 \2 ]7 U# rEnd Sub
2 G t6 a0 w% P/ BSub Ner()
; M* ^6 V5 o, s8 f' IScore = Score + 10
$ [1 I+ z. n. s3 Ydocument.all("Sco02").innertext = Score
; V. e5 u$ @( o3 J O* `4 YFor i2 = 25 To 1 Step -1
6 L8 Z7 j9 ]. K' O! |* t# h' j% Gok = 1
- D" w u: O: @: CFor i = 1 To 10
3 \) }, k J5 r6 hIf n(i, i2) = False Then ok = 0
7 N: P8 i! Q2 z- J. _' t8 vNext 3 E `. c. s0 H! a0 T9 c% c
If ok = 1 Then 7 X& f# h0 A E- F$ h
Score = Score + 150
( Z! A% X; ~' L; l0 f7 {7 v; W! qdocument.all("Sco02").innertext = Score ) c7 r. p% j" r! C3 a# w
For i = 1 To 10 7 M! H4 F* [& C# X
For i3 = i2 To 24
/ F( ^ M+ ^1 ]4 @3 E* P% T1 h0 Un(i, i3) = n(i, i3 + 1)
" f) C; }5 ?+ d: B" fdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
6 F) ]( S7 k8 f0 @ y* P! QNext
5 b/ Y) q& e$ ANext $ q1 _8 _9 B( N# E, w1 C- M
End If ) d7 H P( h+ p# C" _; T9 s
Next % u$ {9 o% W3 h* Z8 f, u
End Sub ; z* n5 W! F; X$ g) B
Function coor(xx, yy)
! P3 P7 H, m4 ecoor = (yy - 1) * 10 + xx - 1 8 \1 T& E8 j8 ^- j
End Function e8 C) h3 n( z6 g# M7 Z& D2 Y. f, `
Sub Rota()
/ }, U9 P# m) C% N( ?Rot2 = Rot + 1 6 K* [: [4 E% \' d6 E
If Rot2 = 5 Then Rot2 = 1 6 Y. I+ d1 a+ x$ S% m- b7 Y' I' A
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
: D3 d! y8 X: S) ~0 M; DFor i = 1 To 4 0 j" {1 d4 _1 C' c1 K
For i2 = 1 To 4
3 {/ X% z1 v; rs3(i, i2) = 0 ) H8 ]& w1 N, d+ P5 h1 Q
Next / ]% m. R2 h* [6 I; P6 W
Next
$ w" a: C6 n ZSelect Case Fig : J5 i) g% n! l( K( Y }
Case 2
& m0 u. d; `; q( C: CSelect Case Rot2 % U: L" Z0 f( N8 C! t* \4 y
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
P1 ^% ^' T7 G( |5 }Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
7 O& k9 P# E8 ~3 V) DEnd Select
: X f, |( F1 ?: a0 c5 i; l% |Case 3
5 j. W6 o. I, M" ?- ], {+ h; F$ \Select Case Rot2
) _2 W/ b3 u* a* _+ @! k, NCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
) v; i# _; H/ T' j) E. y7 r* O, z- u$ mCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True 9 M3 J! }2 A! v
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
# H" g& ]: k t; k: yCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
m! J- N3 s3 |7 z- ^6 fEnd Select
0 [% g0 M' {( P$ e* c/ h: R8 QCase 4 ; a2 y4 J' O9 A0 Q# h2 G
Select Case Rot2
" U6 U$ I+ }- {9 \9 ^Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True : h* N. \8 H* T3 A* o
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
; x6 ~. M5 K* V L# qCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
8 i5 \3 e! ~* j! ICase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
$ i: G& \; W( I( l6 E4 a0 QEnd Select % t! p" G$ M- j8 q/ `1 W0 G$ N3 k7 ~" L
Case 5
5 o+ v' a! `+ l8 SSelect Case Rot2 3 _& _) Z# U- l& R' p2 f
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True " C, ~( p2 h9 }7 h2 e$ k5 h6 o- A
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ) v4 P, r0 k* |0 S" q+ c* r7 A
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True / z$ ? O3 j, a7 ?, M& c6 T
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
, u- p& Y% T2 f" FEnd Select
: @: A4 c+ o* Q. Q! C: uCase 6
0 X: f, J2 P5 u R+ t2 R" QSelect Case Rot2
8 v: z) q: u- w8 @$ F( |Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
+ G$ {1 \# P" W% h# c1 nCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True 8 ~0 {4 r1 E4 ^4 e
End Select 8 ]% K9 E, @5 x$ y6 I/ R" o0 W
Case 7 ! M* A' H- U" y3 U$ x( E: s5 ~
Select Case Rot2 & }' u% |0 ?' ~/ D
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
) O9 j4 ~ R1 i/ G0 Y0 t, ~4 |Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True & w, }, _" }6 s% Z& f3 X
End Select + i4 ?; j: k4 k. n
End Select " T" z) u% Y& H# u0 Q# r
ok = 1
$ U# e2 R4 m" e/ T) Z+ _1 H2 \+ DFor i = 1 To 4
5 }# F2 }$ _* l, z. v: K. sFor i2 = 1 To 4
1 B6 z' ^5 d# I. O* EIf s3(i, i2) = True Then
2 A4 _& w8 J7 P* A$ SIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
/ i0 h; t3 E. k5 n" YIf ok = 1 Then
" i0 G# j) `4 ?' \If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 + S- h3 G$ j$ `. A
End If
0 U. A3 Y# P; EEnd If
6 ^- t% o4 H a5 ?, I9 G+ }Next
, Z6 Z" O5 D7 N( b6 c SNext
) ?4 t7 s+ k2 J! W _. L1 \8 |If ok = 0 Then Exit Sub
$ }( Q) t& [$ Q: c( f9 ?Rot = Rot2 - n& W6 s- N/ Y" ]- [
For i = 1 To 4
' y/ n% P: H$ G3 @For i2 = 1 To 4 9 q( c$ ~3 f) l5 P2 V6 q& |$ P
If s3(i, i2) = True And s(i, i2) = False Then + z" G8 F1 g! ?
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
/ ^( V, T1 `# y/ f2 LEnd If 4 r6 N2 i3 g0 H0 T. G6 i6 N
If s3(i, i2) = False And s(i, i2) = True Then 8 x0 C! {; a! ]' j$ o
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
# y4 i/ M2 Y: S/ U5 ^$ QEnd If
1 s2 G( h& m( Is(i, i2) = s3(i, i2)
+ i$ I, x& z/ h# ^+ o7 P8 L2 SNext
3 t/ m0 k# y# E/ ^! H- B) ^Next
[& X4 ^1 D- \" a5 ]0 J' V7 i0 yEnd Sub ( S: H9 W6 B/ I1 ^' \
Sub document_onkeydown : F2 v: s0 ?7 r1 y) R
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
9 G9 E1 A( ]8 j& q# S6 ?2 F7 r4 u, HIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") * i; t2 r+ m* m3 H6 z% t0 }
If window.event.keyCode = 113 Then iniciar("i")
8 ~4 R* y5 h" v6 n/ bIf Not Pausa = True Then 9 y9 k9 x- E- a Q$ ^8 `
If window.event.keyCode = 38 And Fig > 1 Then Rota
U w: ?& B& g. {- NIf window.event.keyCode = 37 Then
9 a3 G0 s7 Y5 h$ q! b# k+ T* Wok = 1
+ W* v. q+ B5 l% r2 HFor i = 1 To 4
; i4 J; z! \ V0 b+ C1 O Q* E9 wFor i2 = 1 To 4
6 [; n! Z' V: \" z* D3 a9 sIf s(i, i2) = True And X + i - 1 - 1 > 0 Then + Q; b4 J& [1 z& D$ z* r2 _% ]
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
3 t0 C4 Y; j9 ?6 b; SEnd If
) _0 Z/ [2 b- D: ?. w) OIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 ' J) f4 Y2 C' l+ p1 w9 ]: B/ z8 C
Next
% N/ U f! a' o5 d1 yNext
$ I- u1 y, }$ `If ok = 1 Then 3 Y: z0 ]" k* |
X = X - 1
# f/ g' e% q2 D2 V7 l" `% l2 T1 xFor i = 1 To 4 3 l$ P* T* A7 }. K: M! W
For i2 = 1 To 4 ; M4 W9 c; k4 ~7 j
If s(i, i2) = True Then " C# V {6 ?6 C4 |8 P5 L% ^/ u
If s(i + 1, i2) = False Then
) I: [& Y* \, f8 g- y6 sdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000" 9 _8 \& }! r5 b: O# Z; X
End If
s* A1 C! k& W" t" `End If
, h0 T; U% g: y2 G% @1 x: }If s(i, i2) = True Then 8 M0 Z( `: w; {! g* d
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
0 \, p5 b2 {: d' BEnd If S9 b0 N$ m2 j. u* N) k
Next # M5 N$ ?6 m, _
Next
# D' S1 l& T" w' u) ^End If 8 ~- h5 E. m8 x; j) k# V
End If . @. \/ g# C! `' _$ t
If window.event.keyCode = 39 Then 6 h5 N7 L, p, U( g8 W( B' y
ok = 1
2 w: \; t; t8 [8 T2 SFor i = 1 To 4
! P$ A; N; m q$ l( `! x' RFor i2 = 1 To 4
, v/ G; f4 Y* E7 }# x( _If s(i, i2) = True And X + i - 1 + 1 < 11 Then 3 s# D# z G4 A8 y" O
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 7 `7 t, {3 i# W: W1 @
End If
3 I& N0 s; O) U3 g, \* b( k4 {If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
; t' c/ U! v. @' W& R NNext
c8 A2 _9 `* P$ t; b1 q8 ]Next
5 C) G5 q: q# ^9 i0 R9 W) A' oIf ok = 1 Then
: H% I' M) l5 j( u; w' a4 iX = X + 1 1 ?- F6 q S+ I4 p% M9 }
For i = 1 To 4 - A# r8 Z, S/ a# J* M d& K% h
For i2 = 1 To 4 ; x# `4 z2 @' }6 v/ u, X6 E9 L
If s(i, i2) = True Then
Q6 w* d& S* s- F' kIf s(i - 1, i2) = False Then 4 I; b |* w/ p( O7 b+ H8 I0 @
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
7 O# y+ t% l5 z* @! w% gEnd If
, }! w u$ T% |3 l+ T f; }End If : I% Z3 b0 K4 P r# i/ z
If s(i, i2) = True Then
# z) d* J, \; Z0 [5 pdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 6 v8 l7 o8 Y7 R) J3 ?+ h
End If
& M. a1 M4 a" B* B2 {Next
5 w, M9 o! n& y2 ]9 Q$ t+ rNext
- V8 u5 Q7 c1 `: F$ PEnd If , w% g4 h2 m3 k1 F# j6 U
End If
: K' ~) R4 `7 u' \8 b. w0 c- n“Aqui 3 O! ~+ F2 V. Y/ T0 p8 y; I
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
+ _" [6 t6 v' _; P" nIf Fig > 0 Then 6 l( G# D$ c) j. x- J" }% Y+ D
For i = 1 To 4
& }/ K3 l- T) B: @# L5 jFor i2 = 1 To 4
+ l5 G9 I6 k( fIf s(i, i2) = True Then
+ k8 q( \6 J( T6 B9 r- a/ t O9 bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
# `; F. K6 a0 d6 t4 f! I) `* ^5 dEnd If
/ N# ?8 k3 E8 B4 `Next ! P4 x% A: p- n+ F6 }( @
Next T5 w, Z% s0 D9 P4 E' s+ A
Do
2 C; j2 I( l1 J# t! i8 DY = Y - 1
" k1 m$ g6 p- o4 n7 U4 H2 NFor i = 1 To 4 . D, h% q U& V: {$ m0 C% A
For i2 = 1 To 4 . E. F! t2 L3 }( _! @
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 7 ]! e, R6 g; k% h4 v& u
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
! j( c. u! q7 b& O$ U7 XIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 9 B" ~& T& z0 j. g$ a$ Z. u+ v) e
End If
( o4 S: ]1 q. b& J3 H8 Z4 c% XNext 8 J1 ?2 Y; \# Z6 c
Next
6 ?2 U8 `4 }$ a9 t! L, s, y7 wLoop Until Fig = 0
3 B8 Q' m# ^) B9 k2 d' yFor i = 1 To 4 * P7 L( j* s) z- U3 [
For i2 = 1 To 4 1 B+ [; z" l7 v; T- g5 q
If s(i, i2) = True Then
. M6 X2 A3 n/ rdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
! j1 T$ g- |) p cEnd If
* W. f5 R' H' C8 d1 \& Y zIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True $ x+ T. [6 B5 P6 e% N+ v
Next 6 H0 B$ q$ r/ h# j/ k9 p
Next 3 @% h$ |: ]" g
End If
0 O7 y2 P# v5 C2 i: I" f0 L7 w- pEnd If ; @; c. j8 @5 H0 z; Q( Q: z
End If 6 `2 O2 f6 V4 Y! u
End Sub $ ~$ `7 K" z8 S/ @8 p2 A- W
function Mmove(Index)
7 F9 [# X3 p9 ]: ?if index = "I" then 7 c2 }. V+ R. v- {3 ^6 I2 M2 J
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
3 h K5 w" ^1 h2 N/ {document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
# r) G: t b$ X; Y# felse
; D8 n8 a$ w3 o0 v* T9 \ T. ]document.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
& y/ @4 {7 u# Vdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
; w* [8 I. b \! Q( j8 Tend if : j; n! Q' H7 k7 @
end function 8 n1 s, j+ v% D9 @ }0 M
</script> ) X; o5 b2 u% o4 @. F. z! Q
</HTML> 7 Q! c! o' Q7 y w% x/ E
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主