TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
, i) \' V) W2 Y: B<%If Not Request.QueryString("Ven") = "T" then%>
& i5 Z1 ?' t; h: ]: o<HTML> 9 t g) A% @$ i4 I1 [' Q
<HEAD>
, x6 b& A( W E0 O4 [<META NAME="GENERATOR" C> / ]7 W+ [8 O7 d3 t V
<TITLE></TITLE> & |% r7 ]) |( N y! f
</HEAD>
3 R# R# Y U* b5 Q, |7 m<SCRIPT LANGUAGE=vbscript> # w9 x& U! O7 {* q8 ?5 r' R
function Redir()
$ Y# a. Q7 N r8 p# {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"
5 D- f0 Y8 M! i7 }# D3 N% ^; Jwindow.history.back(-1)
0 X3 F: o1 X" D: q' O( V' }End function
' O X7 K L0 g</SCRIPT>
1 s8 `! p% z+ d# P# V. z<BODY onload=Redir()> # O! [ b( |. Q; g4 M
</BODY> 1 g& G; m Z5 t4 ~
</HTML>
' |0 v# Z% J8 c i8 H0 l<%else%>
; r% [2 P% ^1 A- v<HTML>
7 R @. f1 G+ g( u: A, i+ Z; S<HEAD>
5 M I; b# @: y<META NAME="GENERATOR" C>
* U/ l5 i- l5 u<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
& ^, [- v1 f7 {+ G<Style Type="text/css"> ( B/ z1 h5 H! C% T0 H
<!--
1 P$ i/ q! B; s7 s, {.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} / D& ~( A6 i2 C8 K, O6 M% o
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} , W1 H% k" [7 y* Q' T: p
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} $ {6 p: g0 C" }* h1 U s5 T9 o
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
! y" c+ c ?$ i3 @. e4 I3 `.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} % Y! [9 g0 ~4 T
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} & j% C3 J$ n! l5 u) g
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
& q, O( h! u4 H" O--> 0 w# _/ i6 h: ]+ s% p$ i, l. S
</Style>
' ~3 Z/ E$ Z% x/ ~7 a</HEAD>
6 _% o7 z8 ?1 q6 U+ G<BODY topmargin=2 leftmargin=2>
1 P" _' i! R x<div align="center"> + Q( p8 Q0 U: V, o
<center> . y8 X/ V9 G- i o) y: Y
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> 5 A/ j* @7 v$ R
<center>
7 p! ]. _0 @+ w! C8 {<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
5 g1 w: M# j, k- e<tr height="18">
( _: g4 F6 O- ^, d8 [! I i<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>
) f9 ?, d8 J& A0 U<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>
3 \3 {: P1 W; N1 i</tr>
. O3 z0 A" s9 n3 d" h3 U! H+ ], H<tr height="18">
! x0 W+ E) E$ p' b! f<td ID="230" width="18"></td><td ID="231" width="18"></td><td ID="232" width="18"></td><td ID="233" width="18"></td><td ID="234" width="18"></td> ) ]3 S7 n# q3 y7 |0 t3 L1 b6 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> 2 P6 x# o. X* r, X! W! Z( P
</tr> : v- e4 W! J, W! _
<tr height="18"> 0 Y& h3 d/ d0 M: b
<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>
2 b- _% X$ [0 I# a" v! r# s6 t- }) T& r<td ID="225" width="18"></td><td ID="226" width="18"></td><td ID="227" width="18"></td><td ID="228" width="18"></td><td ID="229" width="18"></td> ) b* |2 W7 ~5 R$ f9 P' K& h6 n7 E
</tr> % x! b- U0 @" b' f. l; B
<tr height="18"> ! n0 a. C# M& g% \$ |" ?
<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> ) F. ]9 [' y% ]* j) ?) R. T
<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 L2 z. F3 B; k4 k2 S- U1 q& w
</tr> ! U+ d7 `. r3 J5 Q3 S' S' _2 |+ D" W5 F
<tr height="18">
& P2 n" ~) s0 S<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> 9 t( `$ y1 J; m7 c' d) b9 |4 M; l
<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>
" c/ @1 O8 q# b# j" ^</tr> / q- f V6 e8 N- {" \
<tr height="18">
/ x, k/ O$ z* H<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 d$ ~0 t p( m! u& z<td ID="195" width="18"></td><td ID="196" width="18"></td><td ID="197" width="18"></td><td ID="198" width="18"></td><td ID="199" width="18"></td> {9 N, y x4 l. Q/ E- d
</tr>
4 V! V$ E$ {* |7 U& y' D$ E<tr height="18">
9 S4 N6 d+ h* M B( W<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>
8 V; g- X+ ]# d3 s/ E. u<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> ) f9 |" R8 \) k3 R. k' R
</tr>
& i Z9 E! z9 x3 d6 ^6 x. f<tr height="18">
8 i- t. Y7 |+ V2 i' }) `<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> ' S. Z& ]7 ?7 b% A0 y$ k
<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> 4 L4 _* }/ V( u* u! I0 P
</tr>
7 Y8 P% t9 t, F% n; w2 h, F) p/ L<tr height="18"> C" [) B0 Z+ |" g/ Z, V% _
<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> , }" R# X1 H$ C) z; U+ J% x
<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 i! ~* C7 d; [, P( ]1 ]
</tr>
+ I; y; ]3 U( w<tr height="18">
( |2 N' `' J# s7 m% l, n# |3 q" M3 i/ b& V<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> 4 d7 E" R( l: S) R2 K! C4 O
<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 T" U: K0 W) g1 v; D' P. @
</tr> , 5 A9 ?: d: b5 W) Z* r2 k9 w6 `
<tr height="18"> + R/ `! @3 Z& R8 j
<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>
2 S( V8 f/ P" ]<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>
5 X% P* ~: z, _$ a</tr> - \9 z. x3 {& Z( S3 M
<tr height="18"> ) d3 y+ [/ z8 [# y. [$ e1 C! ?
<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>
7 p8 Y0 f6 m8 y) @; C<td ID="135" width="18"></td><td ID="136" width="18"></td><td ID="137" width="18"></td><td ID="138" width="18"></td><td ID="139" width="18"></td>
0 _3 n: p* V( ` I; x0 D</tr>
* T2 B' A3 _0 E4 j% E1 g$ U4 J<tr height="18">
! B+ b5 b2 _. e4 i7 v. t<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> - r1 m7 f5 c3 U5 U K7 N
<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> $ ?0 p/ v" R9 [6 M' @5 \. t- w
</tr>
% O- h/ s# `* u. G) w<tr height="18"> % g& H$ w4 l" y( H& x, L. v
<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' R8 m8 y8 ?6 o8 e
<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> ' V* f$ C' k/ U! _1 y
</tr>
- I- q2 ^! a; d/ G5 h& \5 {# Q. B0 |<tr height="18">
, h+ a, s# m9 Q0 ~8 T$ b<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> + |$ F' ?3 Q0 W& v
<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> . ]: O% _! m$ y- `
</tr>
6 \" b1 k) {# Y<tr height="18">
2 n* K# [. l5 ]& E<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> ) P$ M0 O- T! f/ g) p! K1 u
<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> . S( c/ ?. y; c" c4 I/ s7 ]4 o
</tr>
5 f/ s3 Q! X6 u; G<tr height="18">
; {) i' J8 V( 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>
( D0 X$ ^3 H# i9 j ?! v" \4 V<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>
I9 @. s0 K" l+ l7 \</tr> 2 f0 j8 a& ?1 p$ \& q
<tr height="18"> $ ^8 l& {5 u$ z1 d
<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> " p2 |0 H4 _) O) N% P6 m; R/ C
<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> 8 M; j L% W# d
</tr> ) y4 W3 Q* }0 r: u$ A- T9 b/ z
<tr height="18"> ; [$ H* m0 b h$ ^! {. P0 G1 z* v
<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>
1 A# U+ g4 x' M3 K9 d# [% L<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>
: `5 g" V- f+ e5 Z</tr>
, T- Q$ S1 `0 s# k9 @9 t# p" S<tr height="18">
2 f: f b/ A$ }, e: e, g<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>
; W# q( ^# D m7 g/ q<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>
# y' F; G6 Y2 }: u</tr> ) d* y+ ^" P) X+ Z/ d
<tr height="18">
8 h, t# o1 b7 u! D<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> 0 A! m! W+ h/ p5 n) y
<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>
9 j5 n6 W/ J: B( |" U! h, l7 B</tr>
) W9 t8 F5 e, ]6 q% e<tr height="18"> 8 O- W9 ^' i5 W, x
<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>
4 s; K" \( C7 i; P" Z1 x6 u<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>
" I2 K# x( \, h( `) M% ]5 j% S</tr>
2 W: l4 d$ y/ H+ x+ X+ H2 x$ ?$ ^, d. f<tr height="18">
* m% v) Q4 A4 V" T<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> & `' ?& E7 v" G: C" h4 L& _
<td ID="25" width="18"></td><td ID="26" width="18"></td><td ID="27" width="18"></td><td ID="28" width="18"></td><td ID="29" width="18"></td> + E$ u+ ~7 Y- B( m, G0 @0 g
</tr>
; Y' l+ V9 Y: p. F<tr height="18">
3 b8 N0 O, `4 ?<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> ; f: @4 W+ [3 p2 V- r
<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>
+ S' z5 ?; s8 Y- b' I1 h. F</tr> - a9 P' B) s9 s! J0 d
<tr height="18"> * b0 t/ C8 q" |/ U
<td ID="0" width="18"></td><td ID="1" width="18"></td><td ID="2" width="18"></td><td ID="3" width="18"></td><td ID="4" width="18"></td>
* u9 c7 y0 @+ Y+ [; m<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> ( K/ C1 A/ _9 p7 X8 H/ R
</tr>
- o$ w% M( w) h</table> / L8 V! k7 J6 v% |( H
</center> " _, f0 q1 q/ o' K$ W
</td>
6 z3 o; D. D2 `6 [0 L<td width="100">
( a# x. B" w8 {' o- L<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 1 ^. S6 c, `" G' k8 |. |
<tr height="30"> 4 [4 R& d% `* r* E8 m1 \6 g
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 5 K- P! N+ X) s6 V
</tr>
" z) B) A7 G) c" ]<tr height="20"> : @; O/ q% |) ~$ A2 ~0 q* z; t" f
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> * [( G+ c3 _* U7 S! c
</tr> * z9 x9 V6 n4 z; J1 r3 c1 O
<tr height="100"> , I5 H* |1 ~. ~
<td bgcolor="#FFCC00">
3 N* Z2 t! Z! P- G<!-- Inicio Preview -->
: A- ~; Y* C. k6 \) I& D<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
g5 p9 R5 P. D a" }3 N<tr height="18">
8 E7 X% v1 D8 K: m! |4 z- t<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> 9 [9 g/ u# L: Z: Z; B
</tr>
/ I. m# g( _/ q5 g4 U' r, R- M; Z4 \<tr height="18">
" o& a$ i- z# q6 \0 Y1 T. h<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
3 Q1 z$ L3 m& ~# k2 I</tr>
7 |& U( [' V% _5 i' [1 A& Y<tr height="18"> 1 l [8 N4 ]. E* f3 H* N
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
% ]- n2 A& U) p6 w, p</tr>
5 c) u- ^" c! ?6 _- E</table></center></div> - j, W' c$ e' `0 B" J
<!-- Fin Preview --> / d) f" A8 ]5 N& ]$ j' g
</td> 5 q( A8 P O- x! D
</tr> . |. q& n! M( b0 o1 _+ O: d4 z4 S/ {1 g
<tr height="32"> ( E5 Z4 l* x( R: F" N
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
! {8 q1 @# y9 z3 t</tr>
6 b, q0 r" l: b2 k/ k! h% w1 t<tr height="32">
' p Q5 n* o& I v. Y% v. T% ~<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
3 R& B' ]! H Y0 @/ f# u( f</tr> ; P! T% P% C* I: n
<tr height="32"> 8 Z, S& g6 I7 c9 o C
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> $ j4 G: C0 ]8 L& E h8 ]% u6 G
</tr>
$ F( O6 _3 h/ g, y1 y<tr height="32">
! L& \5 r7 i" D2 j; t: A( x<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 8 o- ?$ v' M- l+ i# ]1 w6 |6 o
</tr> % H& l/ P g6 O2 o3 F
<tr height="32"> + J' m& f6 [) W/ Z! p" x
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
. B; b1 m2 Z3 _) N% I+ {</tr>
1 G) P u5 {, L<tr height="32"> . V) W9 n% v& Y- g4 e
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ' v; ?! b8 D8 p5 l$ b( A0 g* U, h
</tr>
3 p. S7 U! G' T<tr height="32"> ) ~$ @8 R1 k, n+ Z
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
- t% C( d b) w' u$ a</tr> * V C- K/ z* T) _8 Z0 H
<tr height="32"> , e( L% D- T! l, d
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> ; V0 l2 l4 s( P' P# F7 T Z
</tr>
+ c( {4 {7 T" z# N1 j' C8 A7 L<tr height="38"> $ `* {$ C9 U* d: h- {
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> / O5 p1 [( R' |( g% M$ @
</tr> / W3 R6 M; o9 f3 j) [1 u
</table> 1 P9 b6 |1 U- M: i
</td></tr></table></center></div> " b+ ^( t8 z* d9 l* E: e
</BODY> ( g0 \& t! P! _% b& x5 Z
<SCRIPT LANGUAGE=vbscript> ( v7 j$ f- P3 a$ w/ k" ^6 v y
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
- e3 r4 u, X/ z1 i8 vDim hs(),sor(),hsant(),n(),s(),s2(),s3()
, V" M4 |" p3 P4 o2 a# F/ z7 t" Wredim 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)
; m3 ^, [! z( r" W- z2 O8 o8 p- oLevlIni = 1 1 ^4 `6 X" Q) ~0 B1 ^3 q
Pausa = False 0 t. `: D9 m% n' r
HastIni = VelLevel(LevlIni) 8 m c) E& E2 F2 L. Y ?
Hast = HastIni
1 R8 d8 W3 Z1 L G! j8 P/ |Levl = LevlIni , W5 t* _9 f3 K2 X
Pos = Levl - 1
( J. Z% ?6 E' |9 |' o; Y9 W2 k2 ]ColorForm 8 Z+ f- n3 o) p( G2 r/ ]4 `+ g/ i# D
GOver = false
9 w' v6 T. w" v5 q) Tfunction Iniciar(ind)
$ {$ [; `! v/ E* [if ind = "i" then
! e# Q, Q3 p; Oscore = 0
K3 _3 f) y( C3 J8 v% F6 UGOver = false 2 j# {/ M& I1 t" e e* t% r! g
Hast = HastIni
% U# ^* U: d% } ^4 TLevl = LevlIni - E1 o$ ?* G8 f7 ~2 G4 c
Pos = PosLevel(Levl) " t3 i8 k+ {$ L# k8 o' k+ s9 Y
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
* c6 n) g! N& H) G# D) [% FFor i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next 5 b: e4 d! o, V7 }1 L- j# q
Timer1 = window.setInterval("Andar()",Hast) ( g" u; z% @1 T2 M, O8 ^) h
ColorForm
' M) v1 M5 q( L/ Q1 e/ BFig2 = 0
9 G! X3 Y, e% g$ ^7 i4 M) ZNyfig $ o, D. m) d3 Y8 z% _* u
else
* [' k! v* k" ~ |5 F7 u3 m( Q) lwindow.clearInterval Timer1
* F7 L) I8 k5 X gend if
# t. H/ a+ ]( E3 ]0 ]- oend function
' I$ d0 ?# s5 p: s# H6 R5 g; C2 nSub Nyfig() & Z' A& R3 z8 I7 g) L; ^
Pos = Pos + 1 7 c2 J- Y$ m5 F
document.all("In06").innertext = Pos " V4 T. z! h* ?, ?& c+ U
Select Case Pos ! Z6 W! n# y% m d" [" h
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
4 N- I. H6 |0 pCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
4 ~' u, e- s+ W0 ~) _3 O& ~' tCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
) c& F. u& i8 k0 T7 R9 }Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 [4 @. A4 }& p, D! V* b
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
: W$ ]9 E: ]- j* n. X+ uCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
, \6 p) n. ~: u9 mCase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
s" p2 B( n& n9 i+ P' dCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl $ K6 j& l: ]6 J! ]$ N' r
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl # }$ K( A3 p, j r2 u6 H/ C7 \, ?
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
* @8 P# ~) U) k) bEnd Select
7 k d7 o7 v; M) L# {: V* z% r) {8 _window.clearInterval Timer1
& k( W M; n* n5 q; dTimer1 = window.setInterval("Andar()",Hast)
' q# S7 x! v. y- e" F) BFig = Fig2
- Z& i/ d' q7 y) ?: ]; YFarg = Farg2
$ F" b6 x h/ \3 ~- q5 u+ N, XFig2 = Int(Rnd * 7) + 1 9 p3 ]" G$ y. O2 {- s: T' J
X = 4
4 m" \% g8 k0 G7 I6 m- sY = 26
M+ z$ ?, R2 H' k3 TRot = 1
( N8 v- k: O" ]# |For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
$ D* l) o+ r5 \* Q9 Z( ?Select Case Fig2 ! \- S7 B' B3 ^) x
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" 9 v9 I1 p2 A# V% [, ?4 q
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
' K3 j+ A* M* `# PCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" \5 c7 e5 m% B) w+ q# s; C
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" & O# c( j* m+ h( a4 F, {7 h4 b: u- s
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" 7 u0 T8 z3 Y. L4 ]2 Q, w+ S% p
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
& P7 B; y3 O: S' E DCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" ! X0 f- A$ s- S
End Select 3 y: f R$ S9 [8 n# k3 O$ W0 Y1 y( z v* L
For i = 1 To 4
. V$ [+ M# x& }: \! Y6 \# ?0 @/ T/ GFor i2 = 1 To 3
) H. [3 F. V% X9 Udocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
2 r, J& |, g. j9 mIf s2(i, i2) = True Then ) U- { g3 \; S: c0 _. m
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
, Y4 P: i7 E8 B& D2 x. ?% b) iEnd If
' T" d9 H; `5 G X. l9 ^+ oNext ' _, C, N Q) {3 y
Next 9 i k; v3 U3 A. `
End Sub
! m8 }- T) [: G7 e, GFunction PosLevel(Lev)
, m* ~, {2 @8 e1 e& f2 m" `! W& T$ CSelect Case Lev
' k& l, [& L$ a# E/ d( F0 d% i4 ~: K# V1 sCase 1: PosLevel = 1
( c1 E4 K# L- X7 j1 e* MCase 2: PosLevel = 51
" R2 A% Y; ~" D3 y0 wCase 3: PosLevel = 81
% {" P9 `. [. s( cCase 4: PosLevel = 111
9 a5 j& h5 l1 ~' U7 {Case 5: PosLevel = 141 + s+ d5 r' g8 A8 Z
Case 6: PosLevel = 181 ~+ r7 U( q2 p5 A8 v9 Z" H
Case 7: PosLevel = 221 " V( }7 q# x( n4 z6 g
Case 8: PosLevel = 261 . `; F6 G# l$ ?$ q1 Y; I% Z+ P
Case 9: PosLevel = 301 " r9 L6 }3 _$ ?$ y2 i
Case 10: PosLevel = 341 % e+ l4 z) X/ Q- f: |' x
End Select
- L' f. V( t5 m+ |End Function 5 R/ `1 }3 c/ s4 z+ A5 }5 C& t
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい % v8 m7 G5 f: i3 s% L( W' `
Function VelLevel(Velo) ) }0 u0 `( _ ~2 j$ Z% r
Select Case Velo
! H* E/ w( i0 S! [' Y% jCase 1: VelLevel = 500 . K. y/ a D2 R9 T- m. A- F2 V
Case 2: VelLevel = 450
- C1 n# Z+ }9 \* P$ X7 xCase 3: VelLevel = 400
3 O+ T- V0 k! p* a& MCase 4: VelLevel = 350
' b! _6 R2 x' VCase 5: VelLevel = 300
h) b E$ V# tCase 6: VelLevel = 250
. Z, X* U9 N. h; uCase 7: VelLevel = 200
( w, {* a5 E, `, x) cCase 8: VelLevel = 150
3 ~& V# q- ?3 A K- T% gCase 9: VelLevel = 100
" j. ] d# U* C/ y3 I: Q7 \Case 10: VelLevel = 50
% {- A; H A" p: g g7 yCase 11: VelLevel = 10
2 U; I+ q% v7 d; ^+ o6 t+ }End Select
q8 i! ^: i5 }4 mEnd Function
" I8 t: n, r* _% O) D% h% C3 LSub ColorForm()
" K% ^! c3 O% t0 o1 U xFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
1 {9 f- H+ R- d2 V# tFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
( \) p8 ~- c- _1 Y0 D, g, a5 m, C" {# TEnd Sub 5 [8 }9 l5 w& J2 l; W+ }
function Andar()
8 {; O! [0 J; t$ l/ E- hFor i = 1 To 4
' t! }% A' B, F' W) oFor i2 = 1 To 4 , L+ p1 `, c! f3 ]/ H+ S0 J
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 4 m: v) a: l& R+ v4 Z! W
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then % u9 N2 t+ G: J; g# |1 F
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 5 ?! y7 ~& }3 f3 W7 I' y+ Q
End If
; H0 M& H% W1 z- ^ ZNext ' y+ |" D) ^4 ^8 x# l7 [
Next
* P& x' q5 E- p [& fIf Fig = 0 Then . {" V% E6 P6 V" ~3 U
For i = 1 To 4
1 A8 V% b: v* n( J% fFor i2 = 1 To 4 5 z; q; ]. s% ^, h6 J8 l0 s
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True ! z9 r' f3 n! y6 ~0 u! W
Next ' ]# i& u- _& j
Next
1 H" x% P' N1 \0 V4 lNer ( }1 q) A. N6 F! m9 K! \
Nyfig 1 b7 V$ l6 }+ ~0 o; e3 ~9 [1 y
Else
( M" _( ]7 L7 P+ k( u+ jFor i = 1 To 4
4 ?" L2 ~% r$ }9 jFor i2 = 1 To 4 % v) q1 C8 G5 d6 I9 l3 c3 I9 _
If s(i, i2) = True And s(i, i2 - 1) = False Then 2 u4 y* { v5 m
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" * N3 x1 z+ @4 v8 u
End If
# s' u6 d& ^( [Next
$ \6 M8 c& Y1 tNext
$ d h$ Q) ]% aEnd If - l( w$ r) \& o8 R9 ^
Y = Y - 1 2 U! X+ u. G' i: o
For i = 1 To 4 " j1 X5 [( `: S$ e f4 A
For i2 = 1 To 4
% ?" }/ J( s% f( R) Q* M$ fIf s(i, i2) = True Then
/ o' h0 A# `2 K6 F0 ?if not gover = true then ) H2 Z. ]! J% L4 c: U9 A
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 z% A8 L* C6 V, dGameover - I; q; h8 M, E1 f6 l% s
end if
: E. _8 Y* f4 D( f% H9 jend if
/ F; b/ B z2 P, ]( Z$ zEnd If
0 V t7 o2 w2 p; S2 DIf s(i, i2) = True Then
- H) V* Q- `! t. C. q4 @" o/ Fdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
2 K& Q; Q2 V _7 c4 p3 VEnd If
P2 x9 x, F9 A6 |" h& ENext
0 \) W# ]7 l, q$ {3 DNext
% h( f+ {+ R! `9 Tend function
6 t* J9 m, Q/ FSub Gameover() 7 l V& G/ y+ h) O! m
MsgBox "游戏结束！", , "俄罗斯方块"
! y% o9 k4 Q# iwindow.clearInterval Timer1
( W, {7 H$ c8 k# m- U1 \$ h MGOver = true # {; N5 K- X* @' [' R3 N
End Sub & q9 l" l' ]+ X! @* p
Sub Ner() 5 G2 N2 b# X! Q9 G5 |
Score = Score + 10
4 [& T( w9 d" x* n( _; N" Cdocument.all("Sco02").innertext = Score . I+ o* k! s) B* G- m5 T
For i2 = 25 To 1 Step -1
) B r. X% b6 q: uok = 1
" P' x; m& p4 R% tFor i = 1 To 10 3 C% X% S& W& w1 g0 Y9 G4 B& |
If n(i, i2) = False Then ok = 0
: l) q. l: w; T8 [2 l1 C( h7 @Next ' R9 Z4 \: w5 j) n I
If ok = 1 Then
. x$ R# p8 K& r( ]6 YScore = Score + 150 * s0 s/ y7 H: Y$ ^
document.all("Sco02").innertext = Score ( N" U3 W" ^/ Z$ }0 o: F
For i = 1 To 10 ; s" n J1 J$ T/ X4 O
For i3 = i2 To 24 ; v* U8 r: t' `+ l$ x# j8 Z0 o
n(i, i3) = n(i, i3 + 1) : m, R7 k' n7 S. e
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor ! n. d, e6 }6 ?8 g. w
Next
- E4 |* f# P3 g6 A: ?Next & J f0 Q2 o/ B& _0 `- \" A5 N
End If 9 A* a8 F3 `% ?+ M
Next ' ~/ J( x" h0 e
End Sub
6 s# b% T+ J: t; W- H! m# VFunction coor(xx, yy)
- `; v- Z) K- ]9 H+ N4 u+ Ecoor = (yy - 1) * 10 + xx - 1
& F6 @- B+ c! fEnd Function 8 d7 Z2 X' t( y1 M
Sub Rota() ) [+ W5 }9 M+ s: B: e" l3 ~- _
Rot2 = Rot + 1 ; J6 F; m6 `; o4 L$ l$ E
If Rot2 = 5 Then Rot2 = 1 : `$ C$ q" }/ i& \
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
& I( ~0 Q, @- [$ g7 q* L0 S6 {For i = 1 To 4 4 _7 i9 C# Q; t' Z) h' w' u2 z1 Z5 i
For i2 = 1 To 4 5 n/ p! N" H8 O& |, \, z9 s
s3(i, i2) = 0
}' F+ r* V$ K, kNext 4 g8 {& `% [9 c# u b" y) t
Next ( ?+ t: c6 Z- I- K# }0 A/ e
Select Case Fig B! {* o' U6 B( x. ? C8 b* e
Case 2
7 H8 O. F% \2 d1 G2 T( P& W( h" ~# xSelect Case Rot2 " ]; t0 i% P1 R+ U4 o0 [5 W0 l
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
1 o; o {+ q" b# }8 ~8 p7 MCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
. w+ `# T8 @) Q5 I6 B" D# U HEnd Select
" X0 q$ J8 `5 i! uCase 3
+ p" W% u" G. _8 Q0 o+ `0 ?Select Case Rot2 $ G* K- [; P D# c( c
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
7 p. t" |( U$ C5 |- ?& k* ZCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
, r& z* S% ?: j0 k+ @/ JCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 7 L. l; Z; ^* u4 v, b+ a
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
; l2 P1 x; o& h: \$ N nEnd Select , |" `# c/ ?4 B& ]8 S" M# p
Case 4 . h, {# L* a4 T( [- C& a: \( j/ p
Select Case Rot2 . n! }( z' g2 u) e, |4 R; \: u; A
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True , i0 @- E8 ] `4 S7 u. A
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
7 C- w V) ]' k, z! P9 bCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True ' v6 n6 J, y: H* I' i$ p8 d
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 6 L! f0 D0 w2 W+ c
End Select
* y1 c9 {" [3 b6 k$ V6 E1 d- C) uCase 5 & p, @/ l. }# R+ b8 V# F3 }
Select Case Rot2 , l1 Z R' p! m. j8 E
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
* L3 D0 j/ d! M- w ]3 @$ g- p+ lCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True $ s! k# k; ?6 B+ w
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True 5 e7 ]. {9 ?7 H+ C2 }0 [* Z
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
+ O& b, G8 t( i i) E6 ?% rEnd Select
P4 N7 {& g. Q/ zCase 6 & ?$ v$ L# {$ W9 }0 ]" }) U' w
Select Case Rot2 - S" z9 J; D5 a* T( P, V2 r
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True $ R8 v0 ^/ G& R, E6 |* L8 Q% U
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True ; e& i6 B/ k. U' d
End Select
; V$ t7 o0 R! f2 H* B, XCase 7 d0 u' x6 y7 r
Select Case Rot2
! Q8 R: y3 ^: y" B3 K% rCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True ' m* D7 i+ [" h" y% @% [" s
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True * [+ x. q( s5 e6 a
End Select * z6 |7 C9 |9 Q) J
End Select ; C8 {5 `: ~% @% {+ u
ok = 1 - ~7 | `4 i5 Z
For i = 1 To 4
8 f/ s2 x6 `: kFor i2 = 1 To 4 % n X- ]& J1 ?% k3 U8 m
If s3(i, i2) = True Then ! J; N, |) y$ j# o* z- n' A
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 7 u/ |. ~9 N! O5 j& @
If ok = 1 Then
1 ~& Y; B# E- M8 o9 `2 PIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0 ) L$ j h: T; ]9 w
End If / x1 a2 C, G- @2 J0 j
End If ! k4 c+ v( J# X4 }8 i; r+ I) s% ? {
Next
9 k; Q' m; x; X4 R" k8 d9 e1 \; `% s) gNext
! O$ N7 d4 Y2 m7 {. F kIf ok = 0 Then Exit Sub
- h* U& J# i, a1 L7 t7 ?7 A" TRot = Rot2 " u) ]3 k- G# l
For i = 1 To 4
/ o1 m- m4 V1 G. y8 j5 t0 h* {For i2 = 1 To 4
: E4 C* e/ R0 f( p* x. c( RIf s3(i, i2) = True And s(i, i2) = False Then * F3 E2 p! r" k5 K( w) ]8 m
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
d9 j: D2 K. {7 l, `! _" }7 h1 {- Z+ |End If / u1 ^3 b5 J' J# u# o
If s3(i, i2) = False And s(i, i2) = True Then
- C- F Y/ Q1 _, c9 d* V) y+ hdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" ; I: D" t5 U, P6 Y+ ?# H h; _( H
End If : i0 X2 P7 y" T, Y( S
s(i, i2) = s3(i, i2)
/ O4 F! }5 R kNext
% c! k0 J) H1 P; ZNext , c! F0 p& m& u
End Sub . G X& v4 r8 T
Sub document_onkeydown
& Y5 O+ j' G( S2 Z( k$ ^% i" s5 FIf window.event.keyCode = 27 Then msgbox "Pause",,"TET"
2 D0 d& G5 f- J; U+ ?* xIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
+ _& G" B. B# [% U O5 KIf window.event.keyCode = 113 Then iniciar("i")
) n: p3 }: \# D9 W& A) KIf Not Pausa = True Then
7 L& i! i. a; \% x, D' B0 H* SIf window.event.keyCode = 38 And Fig > 1 Then Rota
) m6 W3 r: k/ V9 cIf window.event.keyCode = 37 Then
- }0 _" I# [8 K3 O5 ^1 o7 X" B+ f: Gok = 1
# ^1 ^; @) ]9 P1 x! L, ~For i = 1 To 4 ( m$ B! E3 C- V0 S/ X) V) _
For i2 = 1 To 4 8 ?6 l- C4 D1 r3 x
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
' Q# `. o' D- A5 GIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 4 D5 P' }; @/ q( ], ]+ x) s
End If
7 ^! j$ N' Z4 v# b- b" ?; TIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 & L8 v3 W, K5 [, a
Next
5 [& I9 a( I* W2 kNext 4 U( K' L8 S; n7 `* i* t$ g/ A6 ^
If ok = 1 Then
" r8 ^, [! ^/ HX = X - 1
5 T" I, w1 Q( O1 f3 J9 PFor i = 1 To 4
! F V6 s. r" V/ { {For i2 = 1 To 4
( Q3 X6 Q) j. ~/ ?If s(i, i2) = True Then
4 G: W# _; N q" t; z* l4 lIf s(i + 1, i2) = False Then , Z; d' A& k# c3 E3 s
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
" J6 X; j) a" q. j$ W/ bEnd If
- b' x- J+ Q9 Z. A& aEnd If 8 Z! p/ i) z' E" J
If s(i, i2) = True Then
3 b. B0 |5 z: _document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
2 m0 ~5 B3 D) o9 T* wEnd If 0 @/ }) a* \0 }. h8 i
Next ! r" z& @ Y6 Z$ ~/ G
Next
$ N6 T/ o9 y- k% r) GEnd If 4 n$ \) ~# p6 F& t U- x) q- Z1 [
End If
1 {: ]& X+ \2 _( n4 F8 ~3 dIf window.event.keyCode = 39 Then
9 q- H9 S* c' {: M: nok = 1
6 L" b* y: f9 W! d9 [7 A. K% WFor i = 1 To 4 # o2 }9 h( D. n* C/ Y3 C2 Q: b
For i2 = 1 To 4 7 g- }8 F" t# J# f
If s(i, i2) = True And X + i - 1 + 1 < 11 Then 1 e; m. V+ |% y: t( I
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 3 ^- W" |: ]1 Y" _+ V O' E
End If $ Y2 j5 M4 b0 z% Q7 y
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
, s) Q/ ?1 K0 e3 [; s5 |Next
# I0 L _* } D& N1 r% iNext , R5 A: Y: I, E% k( }" p0 \
If ok = 1 Then
4 ^. m: ?+ k Q7 r- M9 |$ ^) o9 vX = X + 1
/ X; I$ o1 m! S2 R- rFor i = 1 To 4
! J9 R7 P: \# i t+ qFor i2 = 1 To 4
4 G; h x5 b# C v/ G' kIf s(i, i2) = True Then
2 a2 Q+ g2 F* T" _If s(i - 1, i2) = False Then ! J8 ]; I" y/ B1 }, b0 k1 o
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" 7 ^: u, |4 J$ g/ t6 H9 `
End If 4 H2 `: t" \/ `5 B: Z
End If
/ H2 }% {) |$ F3 xIf s(i, i2) = True Then
. r' ]- V$ q$ }8 C! sdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
( `& y- C& H# G5 V \End If
; O) T1 J. n% P/ yNext 4 ~/ U7 a" S& k3 w* g; E" }& T
Next * x% W% \) b. h1 K- B$ E' @/ t
End If : q" D6 K% n6 G+ {
End If
0 x; D' `: s& R3 E) B- k" u7 h M“Aqui
# N/ V, o2 @% ~$ tIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then - R X% W5 F* `" @' Q; |7 G
If Fig > 0 Then
; t/ ~- a5 Y, _+ Q- F1 mFor i = 1 To 4 ' b. _5 U; m' Y7 L) _
For i2 = 1 To 4 , ]3 b! D+ i$ z6 a3 k
If s(i, i2) = True Then 4 P" O- z7 p. x. O. X( O7 L8 J
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
3 g1 @6 j# J8 _/ M! m& `6 SEnd If " z2 X- v* k% r; t9 g9 c% _
Next
* A+ @0 [: z7 K0 \9 cNext
8 N p, O6 T4 y( vDo 5 t/ d5 _$ N- u" |' l
Y = Y - 1 ) T* [' a, c3 E+ Y, @, V
For i = 1 To 4 2 R" j3 }) f; m; b5 \: z6 ^
For i2 = 1 To 4 * ] y9 W$ {, ]' G1 V+ V' b
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
& f0 N" ^& w3 d: ]. ]% w: jIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
1 r6 p6 E* B. s0 v$ WIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
+ K' ?3 K) C- J, a+ qEnd If 5 X) r2 H0 J- i. l% I( n: e( t7 P3 ^
Next 4 ]* M# l d# P& d$ o& a
Next / {5 b& ^8 w0 p8 M) l7 s. [( T4 T
Loop Until Fig = 0 2 g3 X$ D, \/ p$ R& E5 l+ q- B
For i = 1 To 4 8 m Y" O- I, L$ M
For i2 = 1 To 4
, l& R' H% s) _! rIf s(i, i2) = True Then $ O! r" f" Q9 T$ A4 |# h8 u' o) L/ ^
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
- [( F* z% [2 R- GEnd If
- L* T; K' D" S+ N; gIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
; q1 a4 G5 Q6 U' r2 w& VNext
9 K* e! i: ^8 d2 h) J8 z/ U( vNext
) B; s' U) X8 iEnd If
. _! E, J$ F7 C% \6 Q% yEnd If 1 ^" v- D6 ~- w) W% u
End If
0 k3 Y7 v( K. y, k4 V" R/ {7 ~& a; tEnd Sub
4 M1 _7 r& t4 x/ j6 W5 J2 Bfunction Mmove(Index)
7 i; _: x+ T+ f% I8 Z0 @if index = "I" then $ w7 y8 k" B0 G5 D
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" 7 c* P* n- C# X' l, k3 a
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" 8 K$ w" F; ?% \# S7 M
else
/ }) w7 U. r! ]# A; Cdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
7 G" b- w& @4 C, c5 Y/ |2 w, xdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" 2 ]/ i) d9 k: h: z- K
end if + _ `# Y9 I+ g3 W5 L% E
end function / A# \3 X* A. q# m& l3 K
</script> 4 e, | d8 O i _
</HTML>
5 h/ p- y# Q7 M<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主