TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：2 j; b+ ^! e8 s5 }( d+ p
<%If Not Request.QueryString("Ven") = "T" then%> , U- y& Q4 p- s6 N$ B6 f L
<HTML>
# Z1 g! L. N) C4 s" V$ a<HEAD> 9 B# k" Y/ w! n C% y5 n: E3 o
<META NAME="GENERATOR" C> 8 M v* S7 g. O. x/ E
<TITLE></TITLE>
( X' f8 s* L4 |1 N" i& W</HEAD> ' D' b5 A( B, ?+ P5 U/ p
<SCRIPT LANGUAGE=vbscript> " z1 u5 T, ~: q2 j2 B
function Redir()
9 p N9 _' K+ G: J: Y5 ^4 U/ W# cwindow.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" " e% e/ ~6 n* c7 K/ z# Z" l
window.history.back(-1)
$ _. N5 y1 I% s* \End function , t7 q3 p# e* ?5 J) O; E! B
</SCRIPT> 4 O4 w2 f/ @8 ]. J
<BODY onload=Redir()> ( @+ Z2 `5 _% H! W. o5 d4 F' L
</BODY>
) `) J/ v8 E/ p7 w# y3 T; q- h/ _</HTML> ! d7 D' u6 }0 V+ ^1 M
<%else%> 9 S/ d2 G- C' O8 J& D$ L' H
<HTML> ) L5 C W2 L. _- C
<HEAD> ; r: x2 `/ s; v- L- k" h
<META NAME="GENERATOR" C>
2 y; G7 N2 K0 X" O3 A5 a2 V. `9 c; K<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
1 ]1 Y- M) F; D' g3 p1 E1 F<Style Type="text/css">
1 ^2 ~+ R; D+ o4 [& [# F* v<!--
' P. B0 |- f4 E! _) [.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} ; I" J$ c. A0 _* X
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
8 A& P% ?; q& w% t7 U8 O.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} / Z# c4 Q8 X- q; X' R9 S
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
: C, W+ w. ], w5 M, a' L% Y: J.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} ! H# Y7 w- Q- ^" f
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
( Q- a% U, T+ K* ~! Y.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
& X% C6 A' l6 ]+ x( |) U/ I$ {--> ! h# w' k. [- a$ K
</Style> " U! q3 M/ m- }
</HEAD>
6 n' K* a) F" S5 U: l<BODY topmargin=2 leftmargin=2>
3 W, l4 v2 f( V! k/ U4 e( `8 o<div align="center">
" C- \$ Q$ T E/ L<center>
) c R {0 Z0 K, t<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> * h. n( P9 M" I! M
<center>
+ ^. ?! V6 F4 N4 e2 _- w6 Q<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> 9 m# Y: {8 ]& _+ G" K8 O. t( v8 g
<tr height="18">
/ s; k; |5 g! A5 {<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> * M8 Q0 n/ e4 A% V: }+ ]2 [
<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>
D' q K' M" u% O</tr> + M) z7 u' h5 @8 j
<tr height="18"> ) H3 u1 b: X! n# b* r8 i
<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> : c5 |9 O7 x6 ]" j
<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>
6 c9 A- R4 ^4 N7 V2 m/ t( a ^</tr> 7 c* d! ?1 o" C6 M, m5 w
<tr height="18">
( O+ x: g/ x# X2 B" 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>
/ c: [3 a8 n# m$ e1 k6 \ h b2 y<td ID="225" width="18"></td><td ID="226" width="18"></td><td ID="227" width="18"></td><td ID="228" width="18"></td><td ID="229" width="18"></td>
; _) T1 |2 a' k. h+ q; Y</tr>
8 A% x0 u9 S, W, n ^<tr height="18">
. ^5 G! f5 n! ~: `0 {0 Q2 s! _<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> ( j: J# c0 [- O
<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>
* U" ^. I9 B+ U8 j( z0 R' \3 U</tr>
# f% a) J) L6 a" n<tr height="18"> / {* n/ `' c6 }6 o& _4 V
<td ID="200" width="18"></td><td ID="201" width="18"></td><td ID="202" width="18"></td><td ID="203" width="18"></td><td ID="204" width="18"></td>
; k# C3 [, L# T! 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>
: w% d. `; H% j; j0 y</tr> : R4 f7 t( ?" c5 W' t5 h
<tr height="18">
- ?9 a" H& p+ S4 r9 `$ g$ V! w: X<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>
R8 R$ t+ i6 l& t8 ?<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> 8 {: D% K& c4 L8 V
</tr>
7 I% S$ Z5 A( A* c' M$ X<tr height="18">
' f1 L3 w; e; w j' Y. `$ 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>
$ S# }5 z, Z; l U; Z6 `5 W<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>
! f T# F e c</tr> ]$ R3 z4 a$ [( G
<tr height="18"> 1 {4 c2 ^! C& p, N2 N+ Q( l
<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>
6 A, s- _& y! X6 J<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>
, z6 j0 f. q J, M6 q" N4 Q3 y: ?0 Q</tr>
: R: d4 @0 X& _, O" c" [<tr height="18"> N8 ~5 S0 o7 p5 a7 B3 F+ V& J6 h! P3 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>
9 H ^5 N, I8 n$ {<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>
) A2 E! o7 m6 r! R! {</tr>
7 h) b/ N/ X4 Z3 O<tr height="18"> 2 d' G' z0 r# x& w6 Y+ G
<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> 7 B# R! s, Q& p( [5 c" 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>
. W4 H8 j' p( e8 @: W</tr> , & Y! o* Q( j5 y! t {4 x! I0 a
<tr height="18"> + X; b4 S6 C" g8 B5 r& ^5 [ Q" _
<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>
* }4 `1 P+ s6 n' {<td ID="145" width="18"></td><td ID="146" width="18"></td><td ID="147" width="18"></td><td ID="148" width="18"></td><td ID="149" width="18"></td> 0 t3 a* M; E( e# l
</tr> : @6 _1 S7 K5 S6 y+ F
<tr height="18"> d" t# |# `; V% X8 k* Y; T( E
<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> ( f5 |1 o/ j( z; W& i( v" _+ l" ^/ W
<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>
& r# k5 G2 d/ G. Z7 e) I" R</tr> ) V1 v) U0 Z2 D: o6 L
<tr height="18"> * o4 w8 r+ ~4 l/ |* m
<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> 5 q m/ Q5 q8 c+ M9 l3 M
<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>
- r+ P/ x& Y3 q# [( e9 ?8 c4 I% v</tr>
9 W! O& j4 O' H8 V8 c<tr height="18">
' b" K+ Y2 B) B8 \9 F0 v/ [7 W<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>
: B* u4 x' [; Z! T2 @6 I, P$ O 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> , D5 c1 w, s+ r6 y* M; e+ z, Y* h! h
</tr>
( f# b/ Q: M2 z" n" F2 V<tr height="18">
- I0 B G6 _) g2 K# \( p<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> " P2 q/ R: W7 c3 |
<td ID="105" width="18"></td><td ID="106" width="18"></td><td ID="107" width="18"></td><td ID="108" width="18"></td><td ID="109" width="18"></td> 0 V5 j4 c& W/ J# c, M" C
</tr>
# _4 R3 k. z/ V& m2 v<tr height="18"> 5 t4 K: H- e" X5 @
<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> * Y3 f& _* _' m: F. 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>
9 J1 s4 P# [5 A4 M/ E G</tr>
5 Z/ i0 ^" M6 G+ G/ v g& r. M s<tr height="18">
( @0 u6 @3 A' [% A6 |' T: F$ e4 s<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> ( W& g2 E) [$ J3 h* A
<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> : D' i+ R" e1 d9 y4 [8 ~
</tr> ( B* |) r m+ n
<tr height="18">
9 R: {& F# o6 [- N+ A+ M& L' X+ [<td ID="70" width="18"></td><td ID="71" width="18"></td><td ID="72" width="18"></td><td ID="73" width="18"></td><td ID="74" width="18"></td>
* Z6 w K5 s7 D8 ^% \6 R8 K<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>
( p) `: j4 F8 G3 Q</tr>
. b" F0 M. v9 x$ U- d C<tr height="18">
3 E3 |( \/ W& I, Z<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>
6 E- X1 y! D2 ~) J2 P/ N, 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> 5 m$ Z/ k. `* E& e, }9 B
</tr>
6 a0 t2 ?$ O b$ t<tr height="18"> 2 `& B, c# s' \3 X
<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>
( H8 R5 Z4 R$ b" [3 K* P3 j) C<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>
\6 n7 T4 q& _7 ?3 `, L; m; x- P</tr> / ~0 ~2 I9 e: P$ g
<tr height="18">
$ G/ I" e" K/ E. m; n' }<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>
2 o9 T- t; Z- E! r& u' b8 D9 |<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> 8 P4 I) Y. u/ J* k
</tr> + @9 p \ f& Y/ S; p* D
<tr height="18"> 3 A( o" e- 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>
3 G) D/ y. K0 `8 w$ _<td ID="35" width="18"></td><td ID="36" width="18"></td><td ID="37" width="18"></td><td ID="38" width="18"></td><td ID="39" width="18"></td>
4 ?0 V7 N" U: `</tr> 2 M* l/ y$ S! S9 r( L0 T6 p5 |7 ?
<tr height="18"> ( f1 Q7 w' Y |, y4 B
<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>
3 D7 D: J, r3 M<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> + g v2 o; ` Q5 R, X$ L- r" H
</tr> 5 r+ W0 h4 R/ x- }
<tr height="18">
6 H h$ j* j8 z4 m& z/ q<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> & R5 r0 t5 l7 |2 W4 l* L
<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>
8 M: ^5 l6 h0 N' A% z2 B8 p</tr>
: L e2 u* M" v6 W* ?' {* q<tr height="18">
* ?) F- i# U7 ^- r0 j# N<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> ; n% c0 o8 e+ P" u: `
<td ID="5" width="18"></td><td ID="6" width="18"></td><td ID="7" width="18"></td><td ID="8" width="18"></td><td ID="9" width="18"></td>
+ l* w0 {# P) e( S1 N% J</tr>
! Z; @* F& |7 s+ [) L</table>
) }, P8 `& `. {) F</center>
" \# ^4 }. ?1 v6 Y</td> , x4 `) S- D9 A, @: E
<td width="100"> . [$ k6 ]8 z! L: B/ J$ Q
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> ! t$ R5 G6 U; B# V, k
<tr height="30"> ! D( J+ w& C' b
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 1 ~) _4 C Q4 A3 d7 k, c
</tr>
& v p$ f8 X5 E% w7 V<tr height="20"> ' Y% R7 r0 H5 w5 F1 |, d" Y
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> 1 j, O) T" ?7 V; r, v l- e" A$ l
</tr>
+ A3 {! i2 l, h<tr height="100"> ! I3 e9 i+ e$ ~+ t6 E
<td bgcolor="#FFCC00"> # }- ~' s9 B& S5 ?2 N
<!-- Inicio Preview -->
4 [( L8 A* p; F, H<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
3 [. ]. H9 \3 c& f9 D<tr height="18"> : }4 z5 J2 V4 O
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> / |4 S. p1 @& v! D
</tr>
$ Y+ n# x$ S1 x! x<tr height="18">
6 j+ B- f2 R( n: @<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
; d+ {$ Z( k6 k* f</tr> $ ^) o, h" V5 o4 q2 B, {; K0 F
<tr height="18"> - _% y6 U8 K& x9 ]
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
v7 W1 y$ r- ~, Y</tr>
0 V' M0 k0 I& Q7 i</table></center></div>
) R. N! D \* L1 T U2 u<!-- Fin Preview --> 9 d# A2 k; f/ o8 K) k& G; P
</td>
" C+ h" ]6 ?& n' V</tr> ) A- P) w* [6 N4 L0 E0 Y. Q
<tr height="32"> & u+ u* Q9 {3 r* h" f4 L Q+ e
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> ; M5 f9 f0 J- E9 W& ?, K
</tr> % ^2 z8 t% ?: n% |: p0 e7 M! s4 _9 s9 }
<tr height="32">
( }! Y/ {* s( Q( u<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
- P$ N. r/ B7 H- I, M. o</tr> & L: \) m! L5 ^" i
<tr height="32"> + V( X0 Y: a; g# u
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
. n' q0 D0 X" c</tr>
# t: L1 W! I7 U) d9 e% Q h" J0 ~; U<tr height="32">
0 _ y& T) _& g: |- D<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 0 i% x0 j9 w4 g8 G
</tr>
4 ~8 Y. f4 ~, ]& p<tr height="32"> / K6 O2 C: z1 p" T, }: ~
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 5 d" H. E/ [9 H- i; D# W) J
</tr>
% H1 Y8 ?% l: E3 D<tr height="32">
) ^' _, A0 {; ]! ~: f6 s<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
+ L& Z2 H# F/ m# R9 e7 K</tr> * p: g+ [8 k+ i$ m
<tr height="32">
5 s* d" R3 w+ Q, _6 b! Y<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> & v& P k% S+ l4 h
</tr> & [3 t* w( w" q- j0 \8 ]
<tr height="32"> 9 o% d2 `: ~0 S F/ ~. O
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
$ r" o5 m) B; _# O. D5 i" x</tr> $ `. G* z9 j: V5 O& g
<tr height="38">
4 y: k2 d* d2 r8 ^. e( b<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> / U6 U/ F6 z. J
</tr> . e) k& b1 a9 t" D( O% G/ {
</table> # s, B7 r W+ n4 W5 Z* N
</td></tr></table></center></div> 4 c- @ h9 T0 i5 ?3 v3 S
</BODY>
7 q% t. F$ \2 X* ]/ ~$ J2 R<SCRIPT LANGUAGE=vbscript>
1 x/ x/ J; l; w9 m- q# T& ~. \Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
1 l& m, c# m3 g- x1 \: S% DDim hs(),sor(),hsant(),n(),s(),s2(),s3()
2 M. |: I1 R5 e$ Lredim 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)
3 o* p8 E4 _: l7 P/ ]& U( ULevlIni = 1 & A8 H/ s8 Q( f! h9 r: p
Pausa = False " I+ ^3 \3 t8 J2 s& i
HastIni = VelLevel(LevlIni) 2 f" P0 P! V9 W. l1 w2 d
Hast = HastIni $ o$ [, U. u) X
Levl = LevlIni / K" B" k$ t5 X- F v5 T
Pos = Levl - 1
* I2 @: }7 B6 h& ~. M2 q/ ~ColorForm
: d- X1 ?+ p. a5 P% {GOver = false
0 f) `: i9 `' u* Q* C& ]1 lfunction Iniciar(ind) 0 C) p2 b& O( r4 z$ i d# u, S
if ind = "i" then
. V2 f5 V+ u7 q1 `score = 0 ( B" P: [2 |, [6 o3 `" d
GOver = false 2 Y8 c, G* a' P2 Z3 E
Hast = HastIni : k$ I7 y; {+ |" a5 M
Levl = LevlIni
- j7 q2 ?! Y8 C& HPos = PosLevel(Levl) ; A$ q5 G- J' d
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next ; x2 Q, x+ i1 j5 x
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
9 }) i6 W9 _. v1 j: u6 \Timer1 = window.setInterval("Andar()",Hast) j& i' b+ y( T6 y1 ^' C. P2 g
ColorForm
" Q; V+ }- Z/ q/ t' l/ l. H; mFig2 = 0 - H) w8 s$ z+ e% x' s
Nyfig ! v- y @' I x& w6 G+ Z! [
else
- ~6 u: a, ~* d5 ?2 Q# Dwindow.clearInterval Timer1
5 F4 l* O9 [$ V* A$ s2 p# K4 t9 mend if
; J2 A- G4 g( }+ I9 {) hend function % t2 i% F% k( u4 l
Sub Nyfig()
- e* I, y3 ?* Q+ o; _0 uPos = Pos + 1 / `5 ^4 l0 ]) P8 ]/ y! P
document.all("In06").innertext = Pos
0 m, v: s! d; i) k5 WSelect Case Pos
4 Z( m' {/ v+ zCase 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
b( z/ m6 o" Q, L- rCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl 4 r" i# w0 s8 R
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 D% Y7 }2 }- _6 x2 j: p7 w) v
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
+ ^2 T; Y1 v& ~) y1 n3 b$ sCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
8 p/ B4 ~, |8 G% P$ FCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl * D0 Y l1 m) T, |: y. A5 E) n7 V/ B
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl * e. j( h8 y% b/ D
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
2 j0 L# m4 Y+ rCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl 4 t v/ b1 P$ C2 |& K. }6 W
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
p" }" |/ Z8 D# \, x2 n }End Select ! O# h+ i0 f+ p" `
window.clearInterval Timer1
% c" f P% P5 k [' b0 r! Y1 d' HTimer1 = window.setInterval("Andar()",Hast) + } f- K2 p/ T( }9 ~' b- t
Fig = Fig2
5 o# j. v' H; w% ^. s7 H N; LFarg = Farg2
* g( K3 y. X# V: |3 s# a7 uFig2 = Int(Rnd * 7) + 1
+ \0 ?2 i3 o) O2 d7 W) Y* ^. uX = 4 # q# T( p# U: ^& k! `+ g
Y = 26 " p0 W* z% @2 \ }0 _, J k
Rot = 1 2 v o& f5 _% q o& k1 A
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
. b m( s% u9 @% @% jSelect Case Fig2 : C# M% H) L! i8 k! k
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" j6 B: a# D6 O2 E+ y' N
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" & @. k2 X& o" V* q. Q. O
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ! r$ P5 k5 \: I _1 \+ p9 b
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" 7 w3 x2 V. W. m3 `# j2 Y
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" a9 q$ Q N: t/ r6 h$ J
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" 7 _3 f* b7 u% g* z, o
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
8 ^( A6 m7 \# U, |$ S, sEnd Select
6 {; ]( @ m4 `For i = 1 To 4 4 T2 [3 {: p/ i+ e0 u) u: b$ Q
For i2 = 1 To 3
5 _, A" E2 Y0 ydocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" - _) ~- [% p, \
If s2(i, i2) = True Then
( n- W9 R; \; @ J' Z5 S, odocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 * W# m$ ?7 c# s6 ]
End If
7 T/ j9 ~, ^! h/ x0 vNext
! c; y$ d9 M( t. `* @/ W# G3 V) fNext $ Y. Q4 v0 D& W$ i( b2 H
End Sub
' G! F( g0 ~$ e# \) L8 xFunction PosLevel(Lev)
1 u) E* i9 i( {* A, USelect Case Lev
, b8 S0 v V% u3 S/ l9 rCase 1: PosLevel = 1 ; p- F" X. @/ N7 ?# f$ v" u
Case 2: PosLevel = 51
' P0 K9 M: h; ` C M2 yCase 3: PosLevel = 81 ' S- u) J/ d0 |# Y: k
Case 4: PosLevel = 111 7 m, b! H" s3 M7 h+ S
Case 5: PosLevel = 141
. g! b! b: L- l5 ~! ACase 6: PosLevel = 181
' b' H" N: G8 a! B/ B, W! ?3 LCase 7: PosLevel = 221
: H# ]! ^& u2 h( x( RCase 8: PosLevel = 261 7 X$ R8 ^ ]6 C, Y" {" V7 N
Case 9: PosLevel = 301 3 j% p k7 B0 ^" w
Case 10: PosLevel = 341 5 {' S g" ~5 Y/ l: S7 K
End Select 5 D3 h1 n+ B; e; b# W
End Function ! ~* \1 V Y: j7 B7 w# L% E
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
7 g; K# L' T/ z+ q8 U- G4 FFunction VelLevel(Velo)
" \% D0 P; w* e, \$ `) Y% N8 V1 m3 hSelect Case Velo
3 b. D. l$ U4 X/ H: u- QCase 1: VelLevel = 500 - ^& L; J! n: @6 X) A) J, i
Case 2: VelLevel = 450 % r! t9 V; g% {7 ]1 g; y2 S7 z9 n: H
Case 3: VelLevel = 400
3 s9 u% e6 \3 r, pCase 4: VelLevel = 350
* x+ U3 @/ r4 @/ u6 l1 pCase 5: VelLevel = 300 % g$ ~1 i6 g) q; s! R: r
Case 6: VelLevel = 250 ! l+ K/ d! v) o _
Case 7: VelLevel = 200
# |# {( T7 H) S* pCase 8: VelLevel = 150
2 o7 n1 \% K6 n" iCase 9: VelLevel = 100
1 ?* h- G0 r# z* ZCase 10: VelLevel = 50
9 z( w% ^0 C6 s$ jCase 11: VelLevel = 10
. D. n" P0 @0 V! G+ E/ C) \$ ?& ^3 ZEnd Select
% ^; |8 }4 k2 J' R' MEnd Function 8 L$ X' @2 f) d) w, `' t
Sub ColorForm() - n: I( F+ b0 T- U" G
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next 7 w2 e8 L2 n$ _! V9 o. O
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
8 Y1 N, _" S# J. S6 pEnd Sub
6 a" g2 }, ]& L. v$ a# L. d- qfunction Andar()
- I" Q3 K( I2 Y+ nFor i = 1 To 4
% l! X, K' U# ^, eFor i2 = 1 To 4
5 T& g8 ?+ @+ O, [* F1 WIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 ; @( X4 a( n& \: L6 W' r
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then + B1 }9 T1 t7 h: b
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
% x6 {. h# H" n1 J) B8 e8 DEnd If 6 s2 S- a9 C; K4 S2 ~4 f3 k' ~
Next
1 O- G& f' x5 \9 Z5 C5 J- pNext
9 p& B- w$ o {$ M. r5 V" m6 XIf Fig = 0 Then & L9 x3 f Y+ d u
For i = 1 To 4
- ^) N6 @' |# GFor i2 = 1 To 4
8 t! h G1 ~; J* M& n8 ^7 Y4 ` W- x4 xIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True % c K" Q) I4 }5 u3 x- R3 n
Next
# R8 N# [+ X1 ^1 O9 Y3 cNext
% F- A7 C9 w; [Ner 3 o) ?0 e% D9 `7 U% P8 @
Nyfig
8 e1 t! Q. ?& w: }' j0 {" KElse 0 `0 M$ S* l* {! m6 a
For i = 1 To 4 / L& F& P& A) M
For i2 = 1 To 4
* R* f8 R$ }4 T6 `( pIf s(i, i2) = True And s(i, i2 - 1) = False Then ) @/ P$ o7 ?- y% z) x$ Q! Q
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
% ]; e, n3 E }6 D$ P: ?" V0 y+ @End If , O9 K' p! p& O& k7 X* Y
Next
- H6 s# Q t3 Q# w7 X4 FNext ( L3 \3 b) H3 e4 b" c2 O" d
End If
' A- B3 o/ ~9 J/ w8 h6 bY = Y - 1 - w1 e" N- M0 N. @' w1 }
For i = 1 To 4 $ N& b) E1 Y+ _4 \' F/ b
For i2 = 1 To 4
9 z) n2 U9 z$ H* kIf s(i, i2) = True Then
% I X" G$ ?/ r. s$ Mif not gover = true then
" v9 _2 J2 E; f$ s$ V7 [8 x2 H5 |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 1 W, x) q; o$ O) F1 {( A$ M+ [
Gameover
; r/ T6 ~( A3 n9 G4 ^% qend if
: G( V( u. j& I Jend if
8 C) e' c. B4 y( m7 N D' d' NEnd If
% C R( S( O7 Q, g+ C% ?' T/ h! PIf s(i, i2) = True Then 1 V0 t+ q5 H& ~2 h0 |$ O3 c; i$ x4 @
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg % |# g) E5 ~% e6 c8 t% f; P K
End If
9 `- J3 \, ^$ m. J0 H" v' V9 yNext + S9 d2 V- L; z1 |9 w- S! b1 `0 R7 c
Next ' b/ l g2 u- H! c# p j3 v
end function $ x/ C; e. T* a2 [, ^' B! ?
Sub Gameover() 7 P$ w( {) Q7 P
MsgBox "游戏结束！", , "俄罗斯方块"
) `9 M( n5 g1 a) j. Y, hwindow.clearInterval Timer1 # X2 \6 T( j- Y% n! \, Q
GOver = true
3 ]7 y9 d+ x) X# WEnd Sub
' r' f# N0 d/ o7 Y T: DSub Ner()
1 @6 e6 v( J, {* E. X; SScore = Score + 10
- M& _1 B6 i& |document.all("Sco02").innertext = Score
8 }6 J0 o' p* Q4 J8 H( xFor i2 = 25 To 1 Step -1 ! o3 L6 `6 [7 @8 G7 A
ok = 1 . [5 C* x6 N! X1 i' h% {; D
For i = 1 To 10
1 |! [2 U+ y; ~If n(i, i2) = False Then ok = 0
3 T- u" V4 i, }& [Next - a. X9 e! u' a$ Z/ c) W0 o5 g
If ok = 1 Then
! G% s* \, I9 f+ T$ j& SScore = Score + 150 9 s1 `7 z" i9 R, Z1 h b
document.all("Sco02").innertext = Score
: k, W$ w: e5 A% ]$ ~. Y: kFor i = 1 To 10 4 n' s0 y1 t6 E6 j' c) i7 j
For i3 = i2 To 24
4 W9 I' D" K) }+ ^% D$ An(i, i3) = n(i, i3 + 1)
& Y8 d8 d6 ~' }, }& ~document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor ! e# P- c" E2 P1 E
Next - K; Y0 P9 i/ Z7 n5 M# Q
Next 1 _8 x; O) g8 z4 @& b' O% \! m
End If 8 c9 i+ V5 d* R7 Y7 X
Next
+ o: U3 Q; r5 i) NEnd Sub
8 U9 V" q T/ tFunction coor(xx, yy) ( C! D) {0 p; O9 w& N; R1 \
coor = (yy - 1) * 10 + xx - 1 4 x1 V! B( E# M2 e
End Function
/ v+ w' Y) f- x* N! ]) ~" aSub Rota() 6 ^" U$ J* b% Q9 b p
Rot2 = Rot + 1 5 r6 @; Y$ W; ~& |9 g9 E/ Z
If Rot2 = 5 Then Rot2 = 1
: f* c1 c' ]3 G5 V* }# pIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
$ q2 `1 I! C: ^* \1 k2 T4 X0 F4 [; hFor i = 1 To 4
9 m1 _* f$ K, q" _! A+ nFor i2 = 1 To 4 " Z' ]- c5 A& ~7 G$ p ~
s3(i, i2) = 0 8 D8 c; K1 b# z: {; g
Next
3 W3 [; U H- y& v5 l! A! eNext ; E4 k* Q3 B; Y# B# q- I8 e
Select Case Fig
2 w. ]+ @! H0 y H/ rCase 2
1 c3 [. ~3 P5 P3 s' M) D* ?Select Case Rot2
( z2 V& f: |& y$ sCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True + \( K3 ~- ?* f6 s0 q: e) V# W4 y/ i
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
+ v# P+ u% U w! yEnd Select
( Y: `9 ^" ~' @; T6 b# A# ]( _3 ^Case 3
0 ?! ~& |8 h( f; X1 e( PSelect Case Rot2 / W0 c$ v4 \$ Z7 M7 v
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
, Y3 r/ B$ |0 N0 g) A' yCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
8 C" S" D: T9 d% Z- H2 gCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True 8 b- n+ G* |! O) ~! q% Q& v) Y
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True # X! z" M5 p/ J9 D6 U0 x1 ~# |) ^4 ?
End Select / d6 S/ J& e* m B8 s$ E7 |
Case 4 6 }0 \' d/ ?6 I6 d( R9 ^
Select Case Rot2 ) `7 r/ |2 L E8 |, ^
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
# E9 g$ [9 O& K1 s# wCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True ' }9 q/ u' P4 m$ | ]5 G
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
9 x" v" t, ^0 s; X2 @* kCase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 7 K, P2 C6 q! b9 u0 B# }: Z5 \
End Select
( ?( L% m1 C# o( f: c+ L# Y+ kCase 5
D8 ^1 T9 `1 I, KSelect Case Rot2
$ l* _( N$ Y1 c! i3 v, ^- C' u8 mCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
+ {' ^8 R y9 \ oCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
4 B1 A" d. k" [ x) H/ Y7 F; VCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
; ~9 \2 d+ A8 j6 M2 N: zCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True # B f' X- S/ V
End Select
9 f7 X5 z4 ^3 XCase 6
2 }- S5 ~0 O ?$ DSelect Case Rot2 - Y! J, p6 t8 }! ~
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
/ a7 p. q. s, r. `: X1 B. k" xCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True # j9 T! ]$ s, R6 P Z+ w
End Select
$ s$ Q4 q" w& l7 Q, RCase 7 : s# d3 s! B! T& E- @
Select Case Rot2
" r2 s0 l* K: e$ _5 dCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
2 ^' J7 _/ |5 s2 ?0 d/ OCase 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 2 V! y# z3 z; v) o1 p# W* W( G' h
End Select % X' V2 ]; i; n, H& O5 Y8 m- d4 P
End Select
0 X4 z( i8 j- C' pok = 1
" l' t) w: m& }* i* V( L4 C% TFor i = 1 To 4
# i4 I; F3 V$ ?: H, A$ TFor i2 = 1 To 4 2 N' O/ m5 V% `. L* {
If s3(i, i2) = True Then 7 n+ _3 L* n% e8 T
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 " r% n) _3 a) k' }8 r- h
If ok = 1 Then
" `- V9 L8 B. j2 f e, a* fIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0 7 ~1 n. r/ u$ V( r8 P
End If - [1 V- Q0 p( _5 g5 ^; Y6 P
End If : {7 _6 {5 o+ q3 K% A) h2 e' `/ V
Next # N2 V& [$ D5 X1 f
Next 5 ~7 P; L* [- G9 o6 U2 l' E$ h( T* t
If ok = 0 Then Exit Sub
5 v, N, V; @, b& R! HRot = Rot2
% B& M( Y% F& J% V3 Z% tFor i = 1 To 4 . A6 t+ }, R* D7 w u
For i2 = 1 To 4
. C- R% }/ w4 K0 F k7 YIf s3(i, i2) = True And s(i, i2) = False Then + J7 O4 q* G/ p- m. q' m m
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
2 t8 g4 E5 o7 W3 Q5 J& b& p: UEnd If
4 l: I$ b% \ K PIf s3(i, i2) = False And s(i, i2) = True Then
4 U( M: N7 @, N4 Hdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 3 ?* [! I- l9 \0 ^( D S
End If # _0 w1 z+ L( C z. X
s(i, i2) = s3(i, i2) 2 `! A0 F1 x7 S
Next ! L/ W6 V" q$ y
Next / a; O$ J L, S- e x6 L4 J0 R
End Sub
+ K* O1 T( }, I4 S* H9 y4 A, Y" M9 DSub document_onkeydown
* u% `; {% p( \: L# aIf window.event.keyCode = 27 Then msgbox "Pause",,"TET"
" w$ `9 T8 |% JIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
& ~2 M f8 E- l* L- xIf window.event.keyCode = 113 Then iniciar("i") " Q9 P5 a: r; J6 P+ I1 M9 M$ \
If Not Pausa = True Then " G6 [$ G3 b) f* Q C$ f% T
If window.event.keyCode = 38 And Fig > 1 Then Rota
# J: \+ v# u) Q! Y( q {; u' EIf window.event.keyCode = 37 Then & R- d) S' | t
ok = 1
" Y5 y- E# o3 DFor i = 1 To 4 % D' {) p3 M+ T& \) H% f
For i2 = 1 To 4 ! Y Z% o$ r/ f* a4 }# w: \8 `
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
- d3 q8 y0 Z2 C+ OIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
, }# _5 Q! {+ T$ M, z$ F7 h! LEnd If
{* M! P L) B1 Z @+ I: F, TIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 9 b' Y) c% m- x& F: u* a; H
Next % x' r9 _0 j3 F6 V9 k" w
Next ( }0 o5 T |4 Q3 P" K
If ok = 1 Then
" T7 ?. `+ n! t/ M2 k6 BX = X - 1
( w8 ?4 h- L& L8 i- @For i = 1 To 4
/ }/ e1 N+ g8 v) X4 `For i2 = 1 To 4 ! ]; b {$ _! j4 ]$ P/ e* ?& |
If s(i, i2) = True Then
# R& @2 P- l7 M. T3 N6 VIf s(i + 1, i2) = False Then 8 e# g6 h9 _9 H' i
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
& G8 F I/ e4 P7 }End If
. d& H' d, i4 m+ G; y+ z! pEnd If * h8 l5 \2 S& d; i, \7 `
If s(i, i2) = True Then 8 [0 r" g. V% U! M1 X( }! B: T1 X
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 5 S1 \) j; |8 B" F& ?
End If
3 Z/ w5 Y' q, d& n5 c9 I+ _2 PNext u8 L/ ~+ \; v, |
Next
+ z7 { f; r/ _, s) ^% {& d2 fEnd If # h( m3 P' v3 s4 ]+ o- l2 f
End If R3 L5 K! c4 o. V
If window.event.keyCode = 39 Then # X/ p, Y# c/ I$ u2 p8 ?
ok = 1
/ M2 g( P6 \" Q* U& H. @+ jFor i = 1 To 4
6 S/ l' K o* n) W! ]For i2 = 1 To 4 2 H% G& A- P( m g2 {8 k! [4 [4 D" ?
If s(i, i2) = True And X + i - 1 + 1 < 11 Then * q6 T: m2 w, l3 _
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
! e1 i, Y1 n8 w, f1 kEnd If
! p0 y9 d1 u% F6 b# ]) P) GIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 ; A8 a( I7 M. u
Next
% }& G/ O( O1 ~) o& Q" S. @( p! VNext * y- l$ _1 R4 ?" y5 P- [
If ok = 1 Then 5 _2 C6 z3 p- T' e
X = X + 1
$ Y1 M3 n# A, G) Q4 KFor i = 1 To 4
( t( T, @) D F% DFor i2 = 1 To 4 ; |: o& J/ O6 y& J. S
If s(i, i2) = True Then ! ~- x/ E/ v5 \0 s6 `1 ]
If s(i - 1, i2) = False Then
6 N! F- @6 k. c' M+ t: sdocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" * z0 k- G5 Q# b8 b/ U
End If ! l4 V# ] N" P* J. y
End If : |4 Q; I, t6 M$ z( w( Q& N% U3 C
If s(i, i2) = True Then 7 Q/ g4 S% v1 w& I* y
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
9 m% p5 p9 a- T8 \) Z0 F7 zEnd If
2 Y8 g' |+ u! F+ ^Next
) i" ^, g/ b: T1 J0 eNext
/ D' {& s' I$ x& PEnd If 4 [$ E) t: l$ \ Z: ~4 l
End If # z$ l1 b, t6 y# R
“Aqui - b6 |! P* C* r3 \
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
+ |9 I! l" U6 B% B# Y8 VIf Fig > 0 Then
( ^8 M& V& b; V% q: @For i = 1 To 4
3 b9 n7 N. ~- K7 v' _For i2 = 1 To 4 ! F; A2 s% e- n% S' I# k K0 @& u' r
If s(i, i2) = True Then , n5 j( R: o5 m# ~
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" + c: u3 o# q3 d4 L! \1 v8 S
End If , x' p& }5 I+ C
Next
3 ~. k; h# ^6 Q# [& S, D$ XNext 5 W' R: z. _$ n& v# _6 k& c
Do : A+ C8 G/ a W( N
Y = Y - 1
+ A# V5 x- R2 [: h/ x3 g" M3 l$ Z! |For i = 1 To 4
) ]+ y" k3 `) Y9 L5 CFor i2 = 1 To 4
- k. ^1 n5 Y1 X" aIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 5 p" X h' K' i# T9 g
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
/ K* h. w( E; D; H5 JIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ' W3 q7 y- Y; Q6 R
End If
; Z& @9 j' N" m7 s2 ONext
: W! Y! _8 _6 `- | pNext
) H' l0 B0 i+ }% O& |! ^/ \Loop Until Fig = 0
' ]/ d5 }/ w! SFor i = 1 To 4 2 `! l, m- ^. L' ^% W9 p$ m4 f
For i2 = 1 To 4
# T' E- p; s" f0 e9 w: R/ EIf s(i, i2) = True Then ; I6 m: K& i: x; S
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ( `7 F/ J- g8 t3 ^
End If % N. p0 e. u8 R6 W& d) O+ V7 i
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
. M9 p2 @3 F' y G& C" T" lNext
+ h# [0 T- ]3 k- y; iNext
+ O q; ^' K) H' o$ A3 j) sEnd If 0 F) J8 X$ L1 t3 y
End If - B0 W3 |3 f. F+ v
End If
4 H. [" n ?! r8 VEnd Sub 0 h: m5 X( C J7 h5 a- a# ]+ \ }
function Mmove(Index)
; O0 x- X z" S2 ~8 ~- Yif index = "I" then
1 ]# ^# G8 `* [+ o% P, F4 udocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" ( p, }* o( f6 }: I" `0 g
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
: `8 G9 X8 o- \+ Lelse
7 b4 E) K0 R) V/ O- }9 U2 I3 I: Vdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
" ]; ~: K+ v/ Q pdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
; n# ^" B# Z4 Q& z1 n' l6 uend if & r" E% ?- s$ x# Q+ m$ ^* \
end function
( m! x! c0 r/ D% O</script> 8 \, r' w6 w; G) |6 y9 g
</HTML> 8 a" d( \, m9 f+ x5 C! |! K' J6 k) z
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主