 TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
, z; h! Y' K. s% K7 j0 B$ q" B<%If Not Request.QueryString("Ven") = "T" then%>
* j) q$ D+ V/ q% |& Q<HTML> 0 c2 E7 |2 A: p# g0 k2 @4 W
<HEAD> - n7 `7 ^2 |" h# u
<META NAME="GENERATOR" C> + D' L' `+ _& s" ?7 h( P* a7 S
<TITLE></TITLE> - f' g2 e/ d0 ]$ o
</HEAD>
# P* T( j" N$ F<SCRIPT LANGUAGE=vbscript>
" P, S" d& k# Y5 O2 Nfunction Redir()
& b. J* t, X, |- P0 O8 {5 }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" : q/ e2 Z U- F4 R4 Z5 V/ K5 l
window.history.back(-1) % S5 \5 L$ G, M0 |& o* U
End function 6 L0 f$ f. f; v
</SCRIPT>
/ M! S4 E* E7 A6 N<BODY onload=Redir()>
7 {. ]# r* h( U/ J% o) p$ {7 Q</BODY>
. _) P' [$ n" E</HTML> ' C2 _; J4 t! R% _
<%else%> ! L8 y4 l) l6 p! D5 W% T2 W
<HTML> * T0 f l/ w9 _& T$ c: S; L
<HEAD>
& q8 A' w5 S+ |) _) x<META NAME="GENERATOR" C> / r0 Y8 D: _4 O( t& s. t3 A
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
: ?$ `# a& P; } r<Style Type="text/css"> 1 Z7 N8 D- S, I, M4 I/ Z( h. F" m" T; j
<!--
0 W, y4 i0 C, @.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} 3 P$ H; F- g, q
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} % U( g$ f3 z8 _4 d
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
' D) a. `- ]) L( {/ W; X, J.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
0 J/ W/ l+ G5 q0 I% G.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} 0 Z; u- b. `( W, M5 b/ o* `
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} " [% Z3 r9 ^1 j! Y) k( m" y- y
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
/ P0 \' X# K/ n+ x5 L-->
3 S' w R- l5 V4 d</Style> $ U9 R8 m% n0 F( d
</HEAD>
) X( b: S1 I2 ^' v: k5 [<BODY topmargin=2 leftmargin=2>
4 ^7 b/ n; V& J<div align="center"> ) z4 |$ a% g( N5 p( j' a3 I
<center> % C: `% c- m! z( L) `6 e/ V
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
: a: x* j! L- J. v<center> ! _/ D* X+ V- l# |! k" t" i2 m: o5 W. z
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> ?: {& s5 E3 E* {% V3 s3 h
<tr height="18">
: N7 N" A9 Y `# s# G% y<td ID="240" width="18"></td><td ID="241" width="18"></td><td ID="242" width="18"></td><td ID="243" width="18"></td><td ID="244" width="18"></td> 3 a% u, \' G- x" n; T- _
<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>
: l9 ]* H2 m: f</tr> ( w6 B, e5 u* e6 ^
<tr height="18">
8 w) q3 E* ^/ G; 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> 0 B' d: |3 Y# G( K
<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> ^: l Z8 o& V8 v4 r ?, m
</tr> & \/ Y; y. l2 Y4 w! v
<tr height="18"> ' o+ n/ i5 c& P( I9 Y1 T0 k; P
<td ID="220" width="18"></td><td ID="221" width="18"></td><td ID="222" width="18"></td><td ID="223" width="18"></td><td ID="224" width="18"></td> ( O( x$ H1 {+ W+ f; J% k8 }& F
<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>
6 ^/ d+ j* d6 x' n; U4 d9 t</tr>
2 ~5 Y4 o' T$ s3 B m% d6 q<tr height="18"> ) m) X9 t4 |: p, c1 i4 l2 J4 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> . V+ q- F& q7 T3 \, u
<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>
9 @1 g2 V6 O% B</tr>
! c+ P- m5 p: N( i0 |: E ^ y$ c<tr height="18"> ; L7 ?/ @0 I+ j# l+ n
<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>
, R, W) w% K2 H7 S<td ID="205" width="18"></td><td ID="206" width="18"></td><td ID="207" width="18"></td><td ID="208" width="18"></td><td ID="209" width="18"></td> ( m- O' h# C! R- X. F$ [
</tr> & }0 z9 v* w! p& S3 ]5 S' G' m
<tr height="18"> $ M6 ^6 Y3 ?1 `5 n9 p
<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> 4 @$ `* `7 @8 x
<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>
; V W3 e: A0 }: d9 k- a</tr>
/ _1 ], D0 F+ I<tr height="18">
( z6 j' d2 U* ?- }# W1 ~, g<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> ! W/ R6 G3 O2 O+ m7 x
<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>
$ w* O% l, X0 }7 |2 ^' f</tr>
# z# L! q+ H2 m' B<tr height="18">
) C+ |# `; J+ M5 b<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> 3 s2 @$ c$ C/ y* m
<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>
: w" o k7 K" i6 d9 y4 p</tr> ' K6 c# m- R# m% T3 f A+ h
<tr height="18">
( I* v) X" ~& l! l<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>
: c$ H3 x2 O+ i/ A( v/ v6 [- k<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> : \, a- v- \5 D- N& x; S3 Y k
</tr> 3 l* Z# }" R' \ }. t* E4 d2 C0 {
<tr height="18"> # x4 S* Q% ]% Y+ d1 E0 d
<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> ' j' ]1 T5 ?, k5 ^ V; z
<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>
$ X+ y) `- M( T</tr> ,
( D8 L, ^1 S8 i" [: a/ f<tr height="18"> 8 I0 R* D& H, E
<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>
% B2 ]4 d3 E0 y3 F# I0 `" F<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 \5 ^2 [# F# V) w# [</tr> 0 R$ A! E3 ?& h3 n" g2 R0 w
<tr height="18">
, t4 Z0 p; ^6 c, R5 H5 U0 s' B<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>
0 c" s' I9 j- _+ z9 [1 S1 N6 F<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> 1 e' q3 r" K$ } L4 {
</tr> 3 {4 e0 y9 w1 O) L+ u
<tr height="18">
6 S' \, }& X9 L0 f/ E# }<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>
% Q- G# v: W T6 f3 Q' ~( ^# |<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>
# F$ `. V2 o6 a3 N</tr>
5 C+ F) ^: t# j0 ^7 W7 ^; @<tr height="18">
7 S0 r- Y. [4 w1 u) H<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>
* t% m4 `! f+ V. Z0 e+ J- 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> / f ~/ |6 E' e3 @! u
</tr>
$ p! ~1 A! Y- g, w5 _; z' a<tr height="18">
$ `+ Z6 n9 w6 G. l<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>
( ]! s9 E* ]. A<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> & `2 a( z+ H1 t
</tr>
% v2 x1 X; N8 S& Y+ @' L6 }<tr height="18">
' k! U/ r b( v0 g) _<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> 8 ^; P: v; b$ b" @: j% s5 [
<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>
/ _( q( C M; x6 s</tr> " x6 {$ P8 Z: n& U. p$ a: j6 t
<tr height="18">
0 [/ q% w* @2 f! g# N. j/ j6 ^. ?8 u9 E<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> 6 Y% { @3 w; \+ }- i# e9 k
<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> 0 B6 M4 D5 J2 ]% C& v% |1 _
</tr> 3 K! j2 D$ n! a1 o$ t2 p- G' g% ^
<tr height="18"> + @! E- }' i& p
<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>
9 q) O% ^, m/ }; s! M<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> ! l* ? r: b; N+ \. s' Z( W2 k
</tr> * V% v8 ? n) F: k& ~! O: q! \
<tr height="18">
" Q& Y, b& F6 l. K8 h) w6 E, O9 _<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>
3 o/ ]% \$ L! S<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> ( p1 ?& S8 q6 [' ~. q
</tr> ( T9 z+ {3 H( f3 u( Q( R& v% L0 Y$ g' i9 Z
<tr height="18"> * L( a W1 Q9 Q% s5 ~' a
<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> ; D7 ]- O4 y3 c* B' D
<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> 4 h0 A% s, H9 m0 w- X5 t! M
</tr> 0 \" ?7 U7 {" r, ~4 I
<tr height="18"> " g- O. q+ Q; {0 a' |
<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>
- T6 C7 s* L2 S3 G& W7 ]4 f2 C& D<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> + \! ]( H8 M" b7 N+ t( F" Z
</tr> % ?( X! L. E' f; M
<tr height="18"> - d# {1 b( c# z$ J/ M8 U
<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>
/ a; ~ `7 ^5 n4 Z y<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> ! q2 a$ f) A5 F" S: E, A
</tr>
* l7 R1 z% @) a<tr height="18">
8 k1 _) w; [0 Z<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> + s9 f3 E' R* N9 R0 ~* Q: X
<td ID="25" width="18"></td><td ID="26" width="18"></td><td ID="27" width="18"></td><td ID="28" width="18"></td><td ID="29" width="18"></td>
! X7 Y# W$ H: `</tr> 2 x) x- f- A- {& A9 D5 w: }, C# ]
<tr height="18"> ) |# w% m: d1 [" ?8 r; {" Y# N0 {
<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>
; ]+ S0 d" R. k0 @4 l; Y! d& T% k<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> 7 Y4 C% P/ D' H) q3 a) P7 P
</tr>
( ~- D {6 L9 |/ u. i# y% l<tr height="18"> ) s' W) E0 ~# E1 S" t
<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>
3 |0 b; {- I" i; o1 y<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> : @! |: A) ?3 q E1 d
</tr> 6 Q }! v3 N( f( W2 u1 | P
</table>
% o$ X( d( Q- m9 \* F- E. j; Q</center> ( Z1 k* ]7 _1 r5 R6 b/ n
</td> ) L9 ^' h; t6 C
<td width="100"> . W: U# J6 r! h# J6 C& Y3 i
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
% C6 u! x' `6 m$ f1 w; F$ l- u<tr height="30"> 0 S/ k1 h$ ~) }8 ?
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> # _/ y/ @# ^ {! }- o
</tr>
( B8 u7 G, m# s6 o/ _. `<tr height="20"> + b( C; ?' W/ r/ b5 ^! r, S' t
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
1 z# Q; G( q, m</tr> 4 o2 @% X$ W0 G+ q0 _2 f ?
<tr height="100">
( y5 m3 g, ]$ B0 C4 w) d9 p7 ]<td bgcolor="#FFCC00">
' E8 a5 U+ m; M4 k3 m$ O<!-- Inicio Preview -->
3 t4 G% v, V7 J$ q# Z+ x* h* w) w<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
. B6 n6 C9 S. N1 W<tr height="18">
( B$ b6 v# N( g( Y<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
# s8 ~2 x6 q" t$ {& H</tr> 8 l, D9 |0 T: H) F& l8 J9 [* L
<tr height="18">
( p* D6 |$ A; z+ ^, [ N) U<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
% B1 F( G1 F( L2 }1 p' l+ m! w: P</tr>
# ]0 G, t8 |8 b$ E5 ^4 G5 S: ?<tr height="18">
- `/ w0 x! [. j) r7 O<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> . P, s1 f7 i; c$ @3 s3 o
</tr> # n6 [" |* N3 g5 c) X
</table></center></div> 1 q( `* D- K: X8 m8 C7 b6 m) h
<!-- Fin Preview -->
4 [! u& l6 k5 l9 H</td> 2 j( r9 y, t9 V2 T W
</tr>
# m* A+ A& o0 {) s- W6 G<tr height="32"> # k9 H; I- U. ~2 \- ~- L/ ~
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> " b6 r0 D2 |# G% t$ t5 I/ H
</tr> - t. i Z7 l, _* z+ W1 v/ C
<tr height="32"> : U% }$ x+ z2 G' F
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
3 D( G7 h" L1 ?& l m k</tr> # E0 M7 Z- k2 e* N/ ^1 {
<tr height="32"> " s% B$ ^$ F+ z; ?
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td>
/ L2 b% h% h8 C* [1 V/ p6 U+ N</tr>
( f+ ~5 J: k3 T( j<tr height="32"> 4 d4 r5 `0 C/ L
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 8 `3 v9 `8 H1 l
</tr> 9 r0 Z( O/ t5 g. e. @6 n( h2 H
<tr height="32"> , ]& q0 E" y' z( ], @# ~! _
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 6 o8 V% D- P/ K
</tr> 2 z. V4 O# z0 G, E8 M f. Q5 g
<tr height="32"> Z5 K- H C% z2 a7 \. [" _6 H% L
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
" Z4 f. R6 z/ L, a; c. t</tr>
4 Q) |4 g3 z) e: T6 T! r# F<tr height="32"> 7 W4 L, k$ S* A4 t0 z9 R0 p6 l
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> : `8 u# n0 T$ Q. S. C( G) X; b
</tr>
; s' w! l: x* T; k<tr height="32">
5 }/ w( i& ^" {9 f<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
3 V+ i8 B$ n4 |- D7 @7 B9 ]</tr>
- ^+ P: f1 f) v( d1 n( }7 y<tr height="38"> 3 S1 L3 g4 l* z5 J5 K2 v; q" m S
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
% l2 s8 P) ^& I0 V7 H# k8 u. [4 i# f</tr> - ^( l0 X7 E3 n
</table>
( I$ v3 ]# s2 M* R</td></tr></table></center></div>
4 S, H! A# `0 h% J4 U; q2 ]</BODY> . R# A. \6 h; R3 R4 S
<SCRIPT LANGUAGE=vbscript> % r! n- a6 {9 M
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver 0 C( A6 t; k1 C7 j: S6 b2 @; y
Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
+ U- j/ r$ ]! ~ P8 Q8 x9 Dredim 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)
( ~8 d+ O) o, [# E$ Y4 ULevlIni = 1
& m7 G: t& k) b: G9 i7 U2 {- ?/ CPausa = False
, p0 k1 R" F( n' @. e; a8 ?HastIni = VelLevel(LevlIni)
; E6 A# s5 B4 R% b6 zHast = HastIni ' X& w' n6 y) X2 J
Levl = LevlIni ; J5 n) l+ P9 ?" Z, v. e: \
Pos = Levl - 1 ' Q- P$ w4 k9 u6 W5 x/ h
ColorForm
3 g) D+ s: l; o5 N% }9 \% VGOver = false
: H2 h, ?3 Q: v* ~function Iniciar(ind) 5 q- w7 l! `; Z" V& g: Y: a5 p
if ind = "i" then
/ P+ q0 \' @$ l3 v* y6 t/ _' yscore = 0 4 o( l+ C+ q! s
GOver = false
8 `( e. G& w0 ^ x+ [1 lHast = HastIni , {3 c8 ?$ g+ P9 h
Levl = LevlIni
' y0 I, U$ V7 c0 R, M5 wPos = PosLevel(Levl)
/ N1 a% i: J$ }# LFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next * f+ }& }' @) ^9 d. V8 ~; q9 D% H
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
[( I' x8 i$ P7 Y* K! G3 {. [8 fTimer1 = window.setInterval("Andar()",Hast) % o; n/ g2 ^0 y2 |% B
ColorForm : r: O l+ k \% z. @9 H, g
Fig2 = 0
( |* e. S5 K$ h' H5 B* }Nyfig
# E0 l1 H8 y* [/ p' U: }& Z8 Gelse
. m0 F& w/ l( }& R2 B iwindow.clearInterval Timer1
; f. ~9 `/ s8 Uend if
) Y, m( z! q! J( y8 `+ v6 W3 Hend function
9 R) M& t, g" d. {. Z6 A, ~Sub Nyfig()
# z) ~; J2 J5 g9 yPos = Pos + 1 : }0 i5 X' Z4 n
document.all("In06").innertext = Pos ; k' a5 a% i0 O/ J+ b1 H! P9 Z
Select Case Pos & d, X. P1 U* Z: k
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
$ G' T. v4 o: BCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
) u5 y% l) M9 R; L- b/ oCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl ; o+ K5 G- d4 I( \6 |& p' Y) K
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
4 _9 g" ^" E& |" [3 ?; {7 t% G: ?7 yCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl * k8 t r- B6 a( H+ M: A
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
0 x7 h+ d0 Q( C; f( s! t5 Z. @$ u5 oCase 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 6 i) K" W( K( k( M/ r# Z
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
P4 C" } ~- f! x$ |+ _Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl $ [0 o1 K g; Y
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
7 z: v( n* p/ U! T) ?9 EEnd Select 2 O# A( K" w4 w- G1 f& u8 T* L
window.clearInterval Timer1 & d# ^9 `- M2 A3 N O
Timer1 = window.setInterval("Andar()",Hast)
L t) k0 [/ j2 w! Z. XFig = Fig2 ( S$ r6 G6 `7 f4 p0 a$ M
Farg = Farg2
1 s2 D5 x; h4 H$ g6 G+ b* Y8 OFig2 = Int(Rnd * 7) + 1
6 ^) [" q+ z8 V# u/ kX = 4
& Z6 E1 ?* `4 ] V9 Q- X5 Z$ WY = 26 0 p. h! e i3 n
Rot = 1 2 v( [( E" h6 Y
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
& G; m5 g. Z! a. mSelect Case Fig2
. d9 N7 O. v; [& y* t9 wCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
3 ?/ X; d2 { T% J' {Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
! O+ C- d1 F$ J) h: j _7 a5 q' ?Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ' D3 X: [( c+ t
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" : H) \8 G1 c5 I8 N
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
* t; @7 d7 k% j" X1 ]1 _5 sCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" 5 D" {: [* }% \8 d# i) p
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" + j6 @$ C% q+ [1 }. O9 }& B
End Select ' F/ h, p) |: k$ Q
For i = 1 To 4 % x G8 L6 d/ x: i( [/ o: p
For i2 = 1 To 3
, }$ D0 d1 k2 G; jdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" : m; p+ A8 v/ D0 _4 |
If s2(i, i2) = True Then
5 A& ? ?; ?3 T1 A6 N" ndocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
' B! {3 N+ o7 Z* x7 f: uEnd If
, m. H+ M/ o& E3 k. nNext
7 f4 Y. I" u" }Next
3 G; W7 l" q& s7 v+ z, g3 ]& xEnd Sub
- z9 l% [6 E% s- w0 M1 G0 s/ B" LFunction PosLevel(Lev)
6 H' M9 X' T" B) @* E# l8 ~# \; jSelect Case Lev . E( Q1 T( h5 J
Case 1: PosLevel = 1 R" E$ O' b$ y
Case 2: PosLevel = 51
, c' l/ J6 R* PCase 3: PosLevel = 81 9 t* c( O* ~+ P% E7 f8 D
Case 4: PosLevel = 111
" f3 r( ~$ t) c( ]' O$ oCase 5: PosLevel = 141 . B: E! I" g2 F# g' K' u; l" i
Case 6: PosLevel = 181 ( v' l j4 b: r0 P7 k0 n9 m$ Z
Case 7: PosLevel = 221
( t9 X, v& {# P9 @ w# B- hCase 8: PosLevel = 261
1 D0 ]. k0 I- x C* f1 qCase 9: PosLevel = 301 7 H9 T1 b* N, `; ]! T
Case 10: PosLevel = 341
x$ L' u7 n9 @: f+ S1 g6 a3 GEnd Select
2 C7 [) [& k" }1 zEnd Function
, x5 U* }5 u# D# _: X. c& ~( R7 T“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
# m3 n1 B% p/ r/ l/ T3 xFunction VelLevel(Velo) 0 F% b, \! i* ^
Select Case Velo 9 w3 a$ ^8 K" ~3 p
Case 1: VelLevel = 500
: u$ r4 m- Z$ R, F& g. y; [Case 2: VelLevel = 450 % d& N( D5 ~/ _& Q7 L2 x4 v
Case 3: VelLevel = 400
3 a: h; G, I& a: t' fCase 4: VelLevel = 350 - G; \ t( r5 d8 m
Case 5: VelLevel = 300 5 w9 K( s1 Y" q" C: F5 S
Case 6: VelLevel = 250 ( o! {! g, N# W- }0 O. x
Case 7: VelLevel = 200 8 A# i8 d0 [4 j+ X P
Case 8: VelLevel = 150
0 D% u- M+ c2 S, K) jCase 9: VelLevel = 100 + m" |; ]: q% {, K# L
Case 10: VelLevel = 50 # R, t1 P7 [# j6 l
Case 11: VelLevel = 10
" f7 l: v% i* LEnd Select
+ E8 N$ m& A6 y' I& vEnd Function
4 p0 r' v" u8 a |Sub ColorForm()
! i" ]9 e) H; E8 Y# \, QFor i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next , m3 d& |8 S0 F: _( Q
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
: {4 n1 K. | a- l0 k- v( a7 QEnd Sub
* G8 R+ J3 @" {7 Xfunction Andar()
+ }) J' O; l, M7 v& RFor i = 1 To 4
' W+ q8 ^9 `* v- f2 f$ V- }For i2 = 1 To 4
2 D4 a9 P( q) Y. |3 NIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
1 h% `! g2 k T: \1 I& nIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then + y- D. b; P, e* C" _& x% U
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ; F8 u, u7 ^. n0 h* L a
End If
# c# `. }# O, T* x2 ^7 UNext 4 n' _% @4 p! U' b I2 q; U! t
Next
4 _) t0 a+ E/ |2 k9 k- A( l8 d- TIf Fig = 0 Then , k, d5 |( u9 Z; v1 h
For i = 1 To 4 , p! j8 x4 R U7 s( j2 h, N
For i2 = 1 To 4
$ ^) b' K/ F6 V% y; m! rIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
1 C" d& N. K' M i. Z2 `0 CNext
6 t2 A7 b( I) T8 w$ h) C2 q, z8 C$ bNext 5 }# p8 p; S: b( }1 b
Ner
! _4 I, F' G: F, o8 ZNyfig
! i) F. k% o% }Else 2 C& j7 m- W& A6 T+ ^* J9 b
For i = 1 To 4
: \5 Q3 _% }& Q% \For i2 = 1 To 4
+ p! ~$ Z2 p W! }4 O8 BIf s(i, i2) = True And s(i, i2 - 1) = False Then X# ?4 a) p! _" K, x
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" z- ]' e1 F1 b( u
End If
' _, @8 ^- @ m6 ]1 hNext ' @' D) n$ W( [( A1 T
Next
7 x0 X$ ]3 T2 e y4 cEnd If ( t/ t# G6 o9 `, U1 \! H) H
Y = Y - 1
: t( N1 x2 {% A* AFor i = 1 To 4
7 F' F* V( y( J/ i9 gFor i2 = 1 To 4 # O* s! L! E; b
If s(i, i2) = True Then ; H' h- t. M; t
if not gover = true then
& ^5 Q3 Q; Y5 Z8 TIf 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 2 H1 h% j+ N; r
Gameover ' n/ j. ~- q2 i" Z7 f* Y, }
end if
3 q* N0 _6 U* [" Q/ F* dend if
! M4 v! Q0 g; lEnd If
- P: G7 T6 U1 c9 ]$ YIf s(i, i2) = True Then
& k2 v- M/ Z" Odocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg ! ]; c) D' m5 y# S
End If
& `5 A; x8 H. s4 ], D* }Next
/ z! ~! U, Y. m8 d8 iNext ' `# G( Q' @" i8 @8 q" V
end function : t$ Z8 y+ W6 r3 D; ^) ?! E
Sub Gameover()
8 F# X! o* i0 XMsgBox "游戏结束！", , "俄罗斯方块"
$ w5 J6 j: K% {/ u- F5 \9 @; swindow.clearInterval Timer1
( n* e2 J. g, a# { d# m3 r1 MGOver = true + s6 g! h6 M: `3 ^! f9 k
End Sub ! o5 `7 l# o1 m1 l4 Q6 i# t
Sub Ner() * h+ I4 v, j1 W8 E4 s0 n/ Q
Score = Score + 10
0 C6 v! D& b- Y$ n+ G% Ndocument.all("Sco02").innertext = Score
! Z1 G; `- J. w, Q0 D/ jFor i2 = 25 To 1 Step -1 * `$ H& P7 G3 H1 z# ^
ok = 1
. H* A& w2 O+ OFor i = 1 To 10
% b/ V3 V5 e% AIf n(i, i2) = False Then ok = 0
; ?: {9 U H7 |2 V. `& d* \Next . U' e7 l5 v, V% l- i
If ok = 1 Then
; }6 j3 S& r* ~9 o& _# ZScore = Score + 150 * g+ ?* a- t2 z- Q! ?# {
document.all("Sco02").innertext = Score 0 v d2 ]# e- R c3 ?6 Y. ?
For i = 1 To 10 , U1 V: i/ Z) W* [
For i3 = i2 To 24
$ ~% b" n: ?+ J% Pn(i, i3) = n(i, i3 + 1)
$ w8 d* _4 C, Gdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor . p8 n; ?% j# G) ^; Q
Next
& h3 V! `' p7 U/ G0 T! UNext 9 \$ H" @( z% Y( x$ ]0 {
End If
1 M$ F, Q$ K8 R! V5 CNext
U: T- W/ l3 L" H& _8 yEnd Sub 4 L* e, s" E* A* o5 p9 l9 a3 @& z3 K
Function coor(xx, yy)
8 U9 S2 E4 H Ncoor = (yy - 1) * 10 + xx - 1 $ E% O) |/ D( {, V3 u; P
End Function * d e7 _2 v# v7 o- ]% ?4 H; p3 q5 c
Sub Rota() , r: A0 b! ~7 M( o, [
Rot2 = Rot + 1 E3 ~* w5 L7 J- I" t. ? m% D
If Rot2 = 5 Then Rot2 = 1
* M5 U. G! l7 VIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
3 I V, c% h F+ b# a# a+ f5 a1 PFor i = 1 To 4 / B% r' l0 U- x4 |3 O3 h
For i2 = 1 To 4
. n6 `7 x [8 c2 _6 w6 Gs3(i, i2) = 0
]; u( [4 @1 K* s- }1 [; w H- _7 xNext
" D3 S# J& Q) n" S5 q7 ?Next
( h6 H, f. K ?3 B& _Select Case Fig
& |2 K/ R& N c, W1 `% [9 s4 dCase 2 # f% x$ E7 g# ]& S
Select Case Rot2
5 f7 I& H# t- L$ a, U0 T& ~5 CCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True * o1 I# M O S8 R0 ]2 H
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
9 B0 ~0 c8 p, q: KEnd Select
9 @6 q! P1 p" M9 P7 |3 u2 @! ?Case 3 ' y: m' a1 [$ p
Select Case Rot2 8 g" K/ j3 M9 a8 s; f' ]
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True % ?3 Z1 R. i$ Q" b; e
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
: n! \& b( J! r6 k8 E+ q6 _/ r$ YCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True ) @7 @1 S# m" ]/ u7 R6 m
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
9 u: K" |1 t6 VEnd Select
. C3 H: L- I0 k& q. jCase 4
; r/ ^' E: W/ ~ O6 ESelect Case Rot2 , U) ]/ z6 V6 w4 l
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True I5 v. u8 S% H2 Y/ x% v
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True / E& {2 [+ g3 p+ K
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
1 }- K$ B( B. E9 P% D" D" u$ ?5 ~Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True # V: J0 l* o3 g8 q0 F" M
End Select
" ]6 S' M1 Y4 }6 PCase 5 9 t: b0 g: [5 }3 X6 ?7 X
Select Case Rot2 " a, Y% S+ t6 C+ S. w: R' f* W
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True 7 ?2 E) p9 B }& h8 C
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True ' J* {2 _: a0 R Y, H X
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True + n' P9 M- e" R s" F0 X4 P* {6 G
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True ! s. K/ c& C6 K$ ? k' s
End Select
( F' k( K* E8 a JCase 6 ( Q5 Y% U2 R: @- H0 N# A
Select Case Rot2
9 N! v6 d7 f4 |7 vCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
# x: V* ~( S- a3 v: k2 xCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True ; u, u, I" m: T8 k0 |+ Z1 a( W1 w# u+ Y
End Select / v! U' u: q0 J
Case 7
* C$ Q8 V3 E! s4 ~7 T L0 D$ nSelect Case Rot2
) g( P1 x! W; U( Q! ?- ~/ BCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True ! `# ]2 f. L! X% {8 A6 L
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
* a( g" m/ l1 g8 EEnd Select 4 t0 x) Z/ q% e. ~1 f
End Select j& v0 _: A8 y- {5 F! T5 y
ok = 1 + ]! }& C) A! s" v; N, ]' U4 s
For i = 1 To 4 5 L8 u+ V* s' M+ x
For i2 = 1 To 4
: X0 H, m) z5 b0 j0 R) wIf s3(i, i2) = True Then - S. g: V- N% d+ C t4 y5 a
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 / r7 g# _5 x: n8 k& y" C
If ok = 1 Then 5 b$ q' j) q6 c' k+ N( n2 l5 Y
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0
9 |/ j6 T b- L2 y4 uEnd If
$ P" E% m8 S" _. A# s: ]End If
) x! t/ h( M0 o! y; \! H8 q! r. A, yNext ( M3 h# C) G: ]) I/ p& ^ b
Next Q$ Z/ C, ~: n! J% [
If ok = 0 Then Exit Sub ; [& A" K, ?! U- s1 v0 P: M
Rot = Rot2 " V9 {' Z" p9 W2 c7 P
For i = 1 To 4 9 {. [1 d _: g1 y0 o
For i2 = 1 To 4 # v: D/ O4 C( L7 X
If s3(i, i2) = True And s(i, i2) = False Then # b6 P# t# E- H- O
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
5 k3 d! o/ F& I5 P* r! ?7 uEnd If 4 A- v" @" F. ^8 U# v8 ]! S
If s3(i, i2) = False And s(i, i2) = True Then $ F$ Q& C: [4 r) F
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 5 l+ L$ s: C* ?, ?( e4 O+ W4 h5 C
End If # k3 h% h0 r3 B) J$ s: F" B
s(i, i2) = s3(i, i2) ( ]2 r8 l' a$ L
Next
9 ~/ A! {: |/ y7 DNext
3 \8 r5 ^2 R+ b) lEnd Sub
* O+ t# Y; [: H; xSub document_onkeydown " A7 @" F4 i5 G" l/ ^! v3 f& ~3 J
If window.event.keyCode = 27 Then msgbox "Pause",,"TET" - `+ @& A2 f w# I# c1 x
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
5 o/ c" T7 o* b( m/ KIf window.event.keyCode = 113 Then iniciar("i") # p4 o' T8 e+ @3 x% w! G# j, {
If Not Pausa = True Then 7 j$ y1 I* y0 `0 G, ^" q& Q1 C2 Q
If window.event.keyCode = 38 And Fig > 1 Then Rota / y e [4 O- \
If window.event.keyCode = 37 Then ' k/ {1 {1 [6 O& w' x
ok = 1 ! q# d" K! S S ^
For i = 1 To 4
3 X9 `! U- j$ `" `) ~4 F* FFor i2 = 1 To 4 ; O/ ]% t/ j$ z7 q3 J2 T
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
v8 y" U+ D) Z1 c! N- qIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 : m, W0 \* v5 {( j9 v2 o3 `7 @
End If
2 M+ e/ f2 ^% K/ T5 JIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 % l: L4 p- ]8 j9 @+ Y2 F Q2 C% Z
Next
9 k* B" k0 B" @' v6 C$ x9 A0 ANext
: O1 r, T3 U1 ]3 H+ {If ok = 1 Then
/ U) u4 ?7 J7 C1 k9 A9 @, BX = X - 1
) s; Y/ g: ~' a9 O& JFor i = 1 To 4 2 Q6 h8 Q- W& o$ m( y
For i2 = 1 To 4
T4 u2 E" O! r3 l c( KIf s(i, i2) = True Then
' V8 B B2 z* v% yIf s(i + 1, i2) = False Then ( _! q$ o6 u# D. l, h: t+ a3 z% W
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
, b+ F: C$ K: C3 R/ z+ R7 T$ @End If 9 v$ h- G& R- M6 z! h
End If ( D4 @3 M' ]4 m& a# e
If s(i, i2) = True Then
6 @9 }) r5 H' D( B9 c7 c4 fdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
3 z3 L- q$ |0 E- SEnd If
; G( \, E5 ^" ]1 pNext 4 e. P) K# w" c
Next
0 ^* F& U# S( |6 _# HEnd If
5 Y" X7 J& [$ n. ]# Z) kEnd If
3 J8 t8 N2 C3 bIf window.event.keyCode = 39 Then
5 t' c( i! @/ K7 G6 g# s/ P1 tok = 1 2 }; c! f. z$ G
For i = 1 To 4
: z$ t( j1 q' ~For i2 = 1 To 4
1 e% f, m8 Q0 l/ @/ I) D/ ]5 R7 hIf s(i, i2) = True And X + i - 1 + 1 < 11 Then
K' a1 d' m# R, P% j D% W+ ZIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 " V. W" O/ _) Z- d$ k- M
End If
# I" J/ c# D d3 h! N" jIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
& l# ?7 g* j5 V9 `Next 5 O/ X: Q6 W9 Y# l( j: f* |
Next
4 Q6 p7 @8 _& @8 HIf ok = 1 Then
- M% P# U% N! E9 _7 n5 j5 p$ }& xX = X + 1 9 n0 I' O' ]1 I. @" [
For i = 1 To 4 ' a. r. @1 h# h. s5 R# \' O
For i2 = 1 To 4
5 ~; Z/ ^9 j! v: E4 f/ jIf s(i, i2) = True Then
+ n) m" V+ D3 Z4 J; d3 jIf s(i - 1, i2) = False Then 1 i. N! j7 I _4 p! z5 J" w
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" 5 c3 c( w' K( U
End If , K4 C3 @) F, p0 U1 S6 N( a; A: {
End If # f! M. _2 l5 l* i& ?
If s(i, i2) = True Then
$ T- p* Z) I% L' t* _4 Hdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
) E$ u7 k7 t( B3 x YEnd If
: A3 F3 ]* p. k& @' j; n& ENext " m3 X* Y; ]* {' t
Next 0 i+ {" D" V- d5 P7 `
End If
7 M6 M6 X8 u6 @! @6 U" lEnd If
/ q! J0 i6 c. X2 _* `# f) ^2 g“Aqui
$ m0 ^) W/ `3 ^/ |: c# T4 H) XIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then
% f+ N4 W) b2 o9 Q. _3 S3 xIf Fig > 0 Then
; f9 o- m1 _9 x2 ^0 L% GFor i = 1 To 4
k. Q* c1 T; C5 \) i) YFor i2 = 1 To 4
9 U. u8 A6 q' qIf s(i, i2) = True Then
& V( X, r @5 V* Z" mdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 2 n% q7 x! S8 F# a6 _
End If . ~% R! H2 M$ H5 {9 ?
Next
/ I% K7 ^ G# Z+ d( j* ]# |6 ]Next ) \9 B3 H+ I( B# x' \
Do + R# n& [5 ?( A# [! y# X8 i
Y = Y - 1
6 R* W3 z* Z1 d' V! N6 }$ |+ h' HFor i = 1 To 4
6 ]3 h: E# w4 o ~, PFor i2 = 1 To 4
* m3 d4 S6 H& h& v0 qIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 9 i6 X" d7 o7 @$ `8 n: b! P V
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then 0 m# N; X+ l+ H- A
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 " M+ V4 S" ?+ B1 M* @* L$ g
End If
2 P0 r9 F& t" J* p( x6 ]( INext
" u, s% D& H, R |% rNext
' T: L. \$ B' m. wLoop Until Fig = 0
# R* S K. L$ Y4 o T' E5 Q) SFor i = 1 To 4
9 L3 l o3 l7 h+ o+ ~1 G& p1 P/ g( BFor i2 = 1 To 4
' D. u4 [( k4 P3 [1 pIf s(i, i2) = True Then
2 p, u2 b1 V( F4 {, R/ m/ a/ cdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
: Q' L) M9 P% |0 B2 rEnd If
/ K$ D/ M5 R8 }- @' v0 D5 O" OIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True 0 A ^. F8 d8 E$ } N
Next : y: I# a! f7 b( H) N
Next
8 v4 m- {+ y0 D+ q& E& FEnd If # L2 f" B1 q' r( L C9 t5 e
End If
$ I7 \0 H9 g" t& F: J2 m2 q1 }End If
8 q: f! A& E8 z; |+ E$ {End Sub
+ Y- Z Q% ^. @( lfunction Mmove(Index) 0 M% u; u" z$ G/ ?; i
if index = "I" then
' @7 p% }" e( n0 t( b" _! v* Tdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
/ V+ f7 [( f- \" w0 A' odocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" : s/ p5 N* d) e5 N$ W
else
- @# d j: E& e6 o7 h2 p+ T4 f% mdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
0 E! K6 P9 B% c: u- Adocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" : y. ?0 x n% ?, ]/ u1 S4 `
end if
" p: L4 y0 z. x/ f( C% uend function 2 f+ ?3 m3 g" X: e T i
</script> 2 A% T2 b; J# Z, Y
</HTML>
/ M5 H' N' ] J! L<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主