TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：2 ]2 s+ U# a7 {8 O% \: ]
<%If Not Request.QueryString("Ven") = "T" then%> * F3 p/ v! M& x0 l
<HTML> * w8 ~9 \8 X/ e& \. R; z& V& {
<HEAD>
: A2 y/ _* E; r# C( S* r$ _' A" E( C<META NAME="GENERATOR" C>
6 p Q0 s) ]# @- E' r1 P: \4 J$ g<TITLE></TITLE> . i& \0 ^" b2 ]. ~1 q
</HEAD> ; J. I, A3 L( {# P; k, v
<SCRIPT LANGUAGE=vbscript> ) H# z1 ?! d: j
function Redir()
' h# s- v( ~, E& J& ^4 `3 `9 c) _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" 3 s% p' R" y, }8 d% U6 v
window.history.back(-1)
7 `0 R7 d% z" kEnd function
2 Y$ A" T0 v- W</SCRIPT> # a5 g& W) i" m$ ~7 e5 e$ `- F
<BODY onload=Redir()>
" r! p5 {3 Q9 i$ t$ b4 D. C</BODY> . V8 ?8 k# _7 k; w
</HTML>
3 c9 I/ `# O3 D# l<%else%>
4 |4 p. h! e1 p$ l8 b7 y A<HTML> 0 x* i# N- R9 k: d
<HEAD>
1 X$ e1 R, ^& Z9 d. U<META NAME="GENERATOR" C>
& M: O& l% f& n<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
0 M* U/ K. C1 }3 N3 v. A<Style Type="text/css">
& k3 s# w8 c8 k9 y! \) `<!-- 5 i7 l; i* X) s! w# G
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
+ n8 W4 V" V5 l" i/ l) W% z.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
2 z) a0 N$ [* S0 r Y8 \.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} * y) U4 G2 @! y; ]% f4 w
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
6 B- \ z) u% L.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
; V2 n$ V! J& E% i( t.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
0 g: k R7 w2 p.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} 9 \* B3 _6 Z- g1 Z+ i
--> 7 g; W' z% E+ r% z3 e
</Style>
% q! f: ^' E$ ^+ d6 ]+ z</HEAD>
' s e) T$ x; Q' T8 I! A9 k<BODY topmargin=2 leftmargin=2> ! Y, D5 G, E; R* J/ Y
<div align="center">
1 ?; I" M6 F: A/ T& j<center> & i" H5 a' n* ^) I
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
% {( c' v9 n; N# t1 }% K6 z& N& q<center>
1 c- P8 h& |. R6 z2 ]9 H<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
0 e; x2 ^+ h5 ^/ L" G0 y1 S<tr height="18"> ; S+ {- z6 r2 d: _" D9 I" 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>
! v: ^, b! Q) J5 t7 g( i<td ID="245" width="18"></td><td ID="246" width="18"></td><td ID="247" width="18"></td><td ID="248" width="18"></td><td ID="249" width="18"></td> . k% \3 O- M: d0 k5 i! j7 i
</tr>
$ |0 J4 f! _! f- M6 p<tr height="18">
# ?! ~/ g+ O7 d+ O& M& g" h# R% 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> + h* u. `" q/ Y
<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> 3 a% \/ U: `* U# R$ J _
</tr> ?) {1 z+ f& w. z
<tr height="18"> # x; T7 E; t. {8 ^: |2 G
<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>
$ A) {1 |' G- a9 x<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> ) e+ ]1 x" I' w X( P7 O
</tr>
- ^2 `9 \1 x T: c<tr height="18">
+ |. H) k) n. R7 L0 W" 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> 9 j5 u( k R; [0 }# ?, R0 p L. y
<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>
# }6 t P1 V2 W3 q</tr>
8 U, C; b" y* B5 r; p4 g8 n2 r( x<tr height="18">
( d2 U. S6 C! R<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>
& z. b9 Y( m- v6 v: t5 k% w8 D7 Z<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>
1 c8 u/ U. {4 X F S& ]</tr>
. z$ M$ @! O1 B" G- G x" F) {1 X+ P<tr height="18"> $ _7 D z' |7 n! g6 _: \
<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>
' F5 J2 q8 ?& m& t2 h<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>
7 [* q1 Z1 h/ O0 F" H</tr> # g3 n: B) x/ x( D
<tr height="18">
0 h# G1 Q( {, e- N8 [<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> ; f( h$ m( r* b8 H/ W. c6 m
<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>
+ j3 q/ L' j4 X7 Z! q! v</tr> 6 r Y8 V% [, {2 g
<tr height="18">
* X2 P; J+ S0 L) K- `<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> 7 J! \0 n p9 M: e; [2 p- Y
<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> " j1 c% n E" U. ~- O% t
</tr> * I# Y+ y4 }2 o+ ?; }
<tr height="18">
9 R8 F4 j" P5 h- r" y<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> [1 E; P6 I8 P' p& t
<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>
/ h1 j0 r6 G' {. f+ Q, W* ]</tr>
0 q" P4 C: F* |4 f5 q3 v<tr height="18">
I0 j7 u5 ~4 J! Y* i<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> 2 c3 y' d# e* F6 C4 q
<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+ j; E6 A+ I- F- S6 m9 Z; F
</tr> , ) s* [1 R- n: @" q
<tr height="18">
/ a, k2 C* {( m: V" U+ P% H<td ID="140" width="18"></td><td ID="141" width="18"></td><td ID="142" width="18"></td><td ID="143" width="18"></td><td ID="144" width="18"></td>
7 b) X' A1 O. s5 y/ _<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> 4 T$ d( [) o7 k* Z+ U. R* ~/ O
</tr> % I: ^/ b3 H j
<tr height="18">
7 U0 O A# j5 F6 l. 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> # s5 }3 [ y; U" R. b# @
<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>
$ l6 f. P9 d8 B: K. E9 F/ C</tr>
, k' v' @. y( u/ C6 s<tr height="18"> 3 a. h! u2 T& B1 m8 P# z
<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>
3 \0 c& t j' |, ]<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>
" v7 L, P5 a& }% s$ o# f( }</tr>
0 ?4 a1 r+ v. j0 b) N" B<tr height="18">
7 N ^9 E) ?1 E9 E<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>
9 H% b1 E' X5 q3 v<td ID="115" width="18"></td><td ID="116" width="18"></td><td ID="117" width="18"></td><td ID="118" width="18"></td><td ID="119" width="18"></td> 9 G! N. k `7 H" I2 v/ l2 X
</tr>
9 c: E8 k8 L; j6 C9 l<tr height="18"> ) G4 r: `$ Z1 z/ X8 V: 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> ( b( M% a2 t( r
<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> 5 h, J! a5 r5 c, @% z- q; u0 A. P
</tr>
* O, G( L9 x8 h<tr height="18"> 8 K, r: o, P4 M$ X
<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>
( @! I2 @0 g S" ]! w<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>
`* Y+ C% v+ p8 g0 Q" B+ I</tr> # R6 \$ M. D8 g) s v" @
<tr height="18"> " z1 y+ \0 G5 N T0 V
<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> . f" L2 P' |& c9 ^4 n
<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>
' S# z3 r$ N4 Y6 l* A</tr> + z) w% X( |! Q: H6 C
<tr height="18"> 5 A/ |$ I. t- 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> 1 j u2 K) B# D/ ~! W2 c# N
<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>
3 J$ O4 L- T3 Q# B: y</tr>
0 L5 l2 O2 f: }. z9 B/ T j5 {<tr height="18"> ) ^% L% ^+ V+ {# k, ]' f
<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> . W$ g! E$ u6 p6 Z( H3 ^( v: _
<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 K! x5 ^3 f& l& w</tr> 8 v6 i3 R" y: Z, R
<tr height="18"> 6 }0 Z8 g1 \9 _/ I6 ?
<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>
8 s, T9 b @* v; \$ g, T1 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>
J( ]; N1 P* ~- Y/ o$ [ l+ x% f/ s</tr>
0 Q$ w( f3 v5 }<tr height="18"> ) ~& M \8 ?6 N" O- n7 F
<td ID="40" width="18"></td><td ID="41" width="18"></td><td ID="42" width="18"></td><td ID="43" width="18"></td><td ID="44" width="18"></td>
1 y: A$ Z( p# @ z# W( @<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> ' ]2 h7 }- g1 I: J$ L
</tr>
% _' F7 |6 W: e6 O<tr height="18"> & K( c, U6 F: f. P
<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>
+ H: W0 }0 k8 p" B! S4 s<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> 0 i! T* l( g- I3 R7 q. B, x; M
</tr> 6 G7 v0 r" Y& ?* Z& e
<tr height="18">
b7 i# q& R" I4 h<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> 2 S, d( l$ {& }# l2 J$ k+ G
<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>
3 T8 [) e% r% A$ t6 }4 S- [" `* F! _</tr>
6 r) m7 y9 w. o' O3 P ^9 H7 e<tr height="18">
+ W6 c1 D& T D$ W6 J1 W<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>
3 R G$ G, \% X F7 j) B6 D<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> . j. ]3 O# B0 K% E8 g& P
</tr>
4 b- r2 s8 |$ T7 ^8 A7 ]- `<tr height="18"> ( v% @" u- M1 f: p- ^ D- Q
<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>
2 ^) s5 w1 \# Q( B) z<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>
7 P9 l4 ]" z7 L" B</tr>
n* r9 C* |: C; r8 L9 o, W: V</table> / O4 h8 ^: c! [7 o/ G
</center> % P& w; p# d) t3 J8 b( l7 U
</td> 5 ?. j# }, W0 R% }% ^. H1 w# P. h
<td width="100">
) L3 h, e5 G* V& v2 ^2 _<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> . b" h( u0 z; o$ H5 f: g
<tr height="30"> ! t* J; a8 ^! p3 m
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
& v8 } P6 Q! j! ]4 a</tr> + c, `# d6 N# m3 B
<tr height="20"> 5 F3 A* I i& o* T& E9 K" E
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
) c3 l0 c4 [& W; L1 d+ ~</tr>
% ?+ T$ g( I% t5 v/ u4 f<tr height="100">
9 @4 s5 [ r. h<td bgcolor="#FFCC00">
9 v- c! {, u/ o$ x( X0 Z) H<!-- Inicio Preview --> $ b1 c# M5 Q, s/ B" [
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000"> |, I9 I" _: Q0 O
<tr height="18">
# t$ G$ n, B" c; s<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td> # W6 F( d) v% x L
</tr>
. q- l+ K4 e" f* ` q% a3 ]<tr height="18">
' d( |; `" n' `- R, T S3 E' M<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> ! v1 V) j: \# Y2 D8 H! m$ e A
</tr> 3 P) o/ C" a# A7 l0 T1 y
<tr height="18">
4 o/ _ F9 R; x2 p<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
7 [0 O1 E' K- z1 P3 i' |* M5 U/ {</tr> 2 J- r9 @1 v0 G) X* ~9 W# Q3 u
</table></center></div> 3 O, q, r6 ]% ^$ z+ d
<!-- Fin Preview -->
0 G8 `* L7 z1 X0 [5 f7 k' v9 W; r</td> & {+ ^* m7 d( t# {. r
</tr> A! `% {# T4 b! \% o7 u% d
<tr height="32"> 5 i; p" `& w; U% d7 R
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
& J$ S8 u7 B u7 h" B% `</tr> $ n4 r" n; j% I. o4 M
<tr height="32"> 9 N5 N0 S9 s7 h
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> 9 ^- M- i" k, ~+ p: h
</tr> / W6 }( u- \' p% r. Z
<tr height="32">
* ~/ w: Y1 c; j- n) Q, V<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> " O! j8 c, V1 g/ `
</tr>
1 V2 b) i2 V' F- y<tr height="32">
( y% m7 {# B3 T7 A( Z<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> $ f; W* K& x/ u1 x1 y- }
</tr>
& O' H3 e. `2 X0 i<tr height="32"> % { ?6 W" M! [
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 0 d0 D( b# L; [ I. _0 e
</tr>
* L7 e, ^; R+ m; T0 K% D6 U<tr height="32">
8 v4 x: M* U6 B/ n1 c5 `! U<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> 3 {3 Y3 U7 |) d
</tr> " J1 S' Z8 J" o- o! |% S! [0 n
<tr height="32">
5 r" O4 @0 k4 U6 C! s; }<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> ) @9 j, \/ X& ?9 ^ \
</tr>
: w" }2 _, g$ g4 w5 A; O& ~0 B<tr height="32"> 3 d; Y; c, J( G; x) W4 R
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
& y+ S# A4 N/ F- j5 h( J% W</tr>
1 { g9 T- V) o<tr height="38"> . b6 d V0 G+ b
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> 6 {7 P( R7 U% R
</tr>
5 i; I* P0 r7 W</table>
) D+ X: N! O( ?. u) X B4 U</td></tr></table></center></div>
( a% S3 I3 d6 D' o N6 ]4 j</BODY>
1 U: C! H) K# u; {<SCRIPT LANGUAGE=vbscript>
3 D, l+ C6 C c0 }# S# r$ PDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
5 R, B6 o. G# U8 k" F( B( }Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
* _1 N: J+ a" tredim 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) 2 z) M% {' \* c9 x' k
LevlIni = 1 ; d+ {9 S# f& k& `2 j% ^1 C0 E
Pausa = False
) _# _$ q" s! }5 h$ Z( N9 ~% ^& G: L2 D6 eHastIni = VelLevel(LevlIni)
) ^+ o6 B! q. h( g% B8 Z4 _9 mHast = HastIni
( v2 B6 I( W2 B' {- zLevl = LevlIni # t$ d$ P# Y, x( t$ [
Pos = Levl - 1
" |1 b7 F. P8 O; _) l e1 \% [ColorForm : R% B) R7 F* w* w
GOver = false , U: i% F/ V& L, h' B6 r" V
function Iniciar(ind)
% D3 s' o$ l% t0 i' s# `9 rif ind = "i" then 7 `6 n) ?3 t# R- Y9 J3 D- s
score = 0 / h% `" J5 u* v H2 x) ^
GOver = false
$ u( @( ?1 f( i# z* {Hast = HastIni 4 B5 j+ L7 @4 P5 t/ `
Levl = LevlIni
2 [$ f% O1 E$ V, EPos = PosLevel(Levl) 3 E( D9 D+ T3 a+ U* U0 `6 A% D& g
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next : R$ [- k; n- H8 k; v
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
! I, ?/ m) k6 t+ w' RTimer1 = window.setInterval("Andar()",Hast)
2 }! z9 Y+ i7 j/ s& Z& P, ]$ OColorForm
5 v6 e1 m n5 b$ s/ i' x4 m8 a, E% H1 ?+ @Fig2 = 0
# Z. s0 N# f8 ^6 G" Z1 `Nyfig
6 H& k! |, n1 i$ [" ^6 r. Yelse
- q e- M4 a6 F+ H' e( I- @: ]window.clearInterval Timer1 ( S' f* z( F) D6 ^/ y: @# e- e
end if
6 ^0 v' |7 j3 ^ m9 _5 u% \end function }7 g& }/ m) N. w( u
Sub Nyfig()
3 i. Z+ z& N6 }# X- PPos = Pos + 1
7 W% y V1 T1 |& N. P8 w1 f$ E# adocument.all("In06").innertext = Pos ( j0 W( A1 Z/ J1 F$ }& {
Select Case Pos % O, N7 w# H( M* L V! T, \ Y
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
( z l! n2 B, s! `" Z0 o; f# UCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl # n1 Q% [+ S5 b0 H: B- s$ M7 E R
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
- X9 D, y6 X, e# z5 f% `! OCase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl - I" x9 `- }0 `( n( S/ z, V
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
i# e* [5 {* n9 q0 sCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl n5 ?$ \$ ]3 n. C/ g# q5 h
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
; @: P; o, n% @2 x" O( u% fCase 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl 2 ~* r( W7 N; i h# w1 Q1 v
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl 5 U- b! k- X/ N$ L0 @, F
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
9 y6 R" L9 M/ Q N1 xEnd Select
4 A" Z3 L& N; D8 J$ |. R! V9 qwindow.clearInterval Timer1 ! ^: i( v; {5 w" ?1 f
Timer1 = window.setInterval("Andar()",Hast)
; n( t& P3 t* y9 m; Y' w. J& ]Fig = Fig2
8 M2 M$ U" w& oFarg = Farg2 $ u8 E' V5 \- g
Fig2 = Int(Rnd * 7) + 1 4 r$ K7 Z) |4 x
X = 4
( P5 n8 J; y }. o) G0 n+ yY = 26
- G, r7 G8 W- r" F! L0 |Rot = 1 4 W" z8 M" t0 p& x$ I& Q) L( H
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
& U; K' k# d2 H5 T- Q1 `- \ q' XSelect Case Fig2 , P1 ?; z( c2 r% f0 o
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
/ n. ^' L9 Z8 j; s( g# A; bCase 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" 8 k, I8 @2 e. Q+ S* k* S, P, D4 q
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
8 f% W+ u# G. [* D9 L# t# ?! \Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
* b0 s2 s( Q) u. OCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" " @4 _ \4 p8 Q% t1 H
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
6 D" F: f2 G8 D5 f( jCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
8 r2 Q6 I; U' M) X5 u6 A' REnd Select
' c5 o- V; K B9 H6 H: I4 s$ cFor i = 1 To 4
8 i. H9 p5 \: s+ ?8 E% r, L6 g: ?" yFor i2 = 1 To 3
7 k- b4 w/ S: u6 d% n: W. zdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
/ A* U$ _( Z1 M" YIf s2(i, i2) = True Then
0 I- j6 z$ w( | ldocument.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 * R- r# E+ z* h' y
End If
! R' T" \& I1 t' k; K% p \Next
1 h0 O* y: m6 w1 j8 hNext $ W* e9 U3 z, R
End Sub : o9 P9 Y0 h4 u* k# J5 \8 u* I. X: P
Function PosLevel(Lev) ; q" F! A& t8 e3 S6 }
Select Case Lev
5 j! N i# x1 a1 Z0 {4 hCase 1: PosLevel = 1 / q( M9 x3 Q& |% f- }# W6 N8 ^
Case 2: PosLevel = 51 * e' j% { z! p: h
Case 3: PosLevel = 81 " z5 D! v! s3 U. ^7 K: ~& ]: C
Case 4: PosLevel = 111
+ i/ ]! S. V _3 _' TCase 5: PosLevel = 141 6 u5 m0 a) K" J0 O: T7 ]
Case 6: PosLevel = 181 1 L* {6 V! U+ q5 n5 n
Case 7: PosLevel = 221 ! J Z" G2 d# T4 r
Case 8: PosLevel = 261 % K+ y- \7 s( J( w8 s) w1 g
Case 9: PosLevel = 301
6 E" L4 }6 ^( [! N$ {2 UCase 10: PosLevel = 341
8 V8 t: {( A& P- U6 OEnd Select ! L& ^- A. p: t) R7 Z* S
End Function
7 V) |9 a# Q' _% q“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
+ e; r- I, e" `! [Function VelLevel(Velo)
$ ^* R K8 { b! g% eSelect Case Velo 4 Z8 U) V8 |0 l- S/ Q- O
Case 1: VelLevel = 500 5 @* O/ L5 ~4 W
Case 2: VelLevel = 450
. |# t5 K6 y: o$ t. R( n- S& QCase 3: VelLevel = 400 - ] l- s9 W) z% w1 ?8 t
Case 4: VelLevel = 350
3 b; z4 b K3 HCase 5: VelLevel = 300 * C1 E2 f6 _) ~" D0 I/ S, U& b0 X0 |0 m
Case 6: VelLevel = 250 : x9 v' |. r9 q) z* _% I
Case 7: VelLevel = 200
) H) x/ r" h$ N. Z0 X. Q; S3 T+ bCase 8: VelLevel = 150
; l. b8 ?0 R1 j" A) TCase 9: VelLevel = 100
0 ^ Q v( o# ACase 10: VelLevel = 50 # e& i4 ~ L' k) w# w! V! u4 J. w- a
Case 11: VelLevel = 10 1 i; k# j: Q8 @/ w h7 D$ R. R. U
End Select
0 j2 x. ^+ B8 J- @End Function
- ?& K: G7 Z) v8 O( n! mSub ColorForm() ( D' U; U% z: j
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next ( |- f% ~8 e5 _
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next . I/ h1 o7 i5 i1 n; D' j8 G. L5 U8 \
End Sub
+ B( A7 i7 z4 K; G& N# P tfunction Andar()
: B2 L$ X% y! p3 zFor i = 1 To 4 7 [' c; \8 U p) `
For i2 = 1 To 4 2 G0 v# o3 e' y
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
+ A8 l# E9 `" d; \4 g+ P: i! M4 oIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then N0 ~; k5 s2 e3 A8 H$ E( P
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 & g' H" y2 i. {& K: s& S3 N1 X2 W
End If 0 q; ]9 [, l2 i8 D/ D/ A7 A4 r
Next
( I. n4 L ]' bNext
( X+ z0 V$ m3 A* nIf Fig = 0 Then + m) K; b8 z; L: Q
For i = 1 To 4
P1 M, U" q- Y. x& J) o4 vFor i2 = 1 To 4
, r, A% I4 z' N4 U9 ]/ SIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
' |( J+ y8 G. e; H rNext
' d4 N- N# G* W l& g, @, VNext
1 Q* [1 z2 V% L( ?Ner
, D& ^- z) U) VNyfig ! @4 ~7 x; [- {; Z$ N& l* P" [( P
Else + t2 f; d2 T" `, e8 F+ T
For i = 1 To 4 4 @, I% m9 d" f7 b6 I( L4 W1 \
For i2 = 1 To 4
" |! V% j5 x* v7 p2 t% U* sIf s(i, i2) = True And s(i, i2 - 1) = False Then
0 H2 V; k3 ~; L. w# jdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" $ T, [3 G4 O* a& m6 {0 t
End If
1 B J$ T, D( D0 o3 y# P9 J2 mNext 7 \; S3 E. i; p k# |$ e. p
Next : q+ b4 N" ^3 s- @- n3 ?
End If $ N6 o+ G6 N( y# F) L( R
Y = Y - 1
0 P# [, o8 L7 X. jFor i = 1 To 4
- J( z& E4 ?6 i; Q. V, ]For i2 = 1 To 4 * w/ y b, u, B( H N
If s(i, i2) = True Then 9 R' m N1 ]2 h9 m/ i
if not gover = true then : V2 }. V3 B7 G8 ~$ ^0 t* D6 r+ W
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 3 O9 r, |( Z2 Q( _+ q! [
Gameover
: p. A8 |1 T% G" j# R5 {+ Zend if ( C* S0 G5 e" i
end if
- Q' _0 }5 L* u' M: p+ i' n5 R8 QEnd If
' z- t- R8 F$ X* e4 o. K% W3 BIf s(i, i2) = True Then
! Y0 X* X/ c* U, b5 |document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 2 ?$ K1 R; Q6 T! S5 P
End If 9 p( K8 S. n& N: V
Next Z" w* `' k9 m1 P8 n/ O* d
Next
) z' ]! a, d+ Pend function
! }2 f6 s" u1 T0 F6 J' j; T9 kSub Gameover() ! x! Z5 f; N J& R; [+ G* t
MsgBox "游戏结束！", , "俄罗斯方块"
& N: L b: V6 ~! Gwindow.clearInterval Timer1
* R3 h# \! T+ \2 Y7 A( t2 gGOver = true
* u% s6 q& q# NEnd Sub
* y& [/ u0 ^0 y6 Z, s* f" CSub Ner() / E( T l+ u# E
Score = Score + 10
+ |# y5 W- j( J% @" b! z; L! b9 sdocument.all("Sco02").innertext = Score
) p2 ~) q9 \ ?7 \* d3 VFor i2 = 25 To 1 Step -1
# z# C. [) Y4 P# Z( vok = 1
. o0 c! v) U7 N! u7 u* GFor i = 1 To 10 ; b# n9 r+ i# ? W/ e
If n(i, i2) = False Then ok = 0
# S2 m" p1 x# W5 h: uNext ( R0 s2 r: c5 I8 O
If ok = 1 Then
: n/ l! |1 |; {" B# v' J% M, r% eScore = Score + 150 # C1 B1 p2 w2 |1 g) f/ b
document.all("Sco02").innertext = Score
/ T: l) w0 L- B( KFor i = 1 To 10
1 T9 t. p u3 LFor i3 = i2 To 24
+ y& g, _" ?1 Q6 |3 f. a6 qn(i, i3) = n(i, i3 + 1) * ~+ Y8 G7 Y/ i2 G
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor / s1 `% A/ b. W# W1 }
Next ) C: c. A5 {/ n4 l
Next
) ], l; {1 ~3 k+ A2 DEnd If 3 D% w6 r2 F2 K( }1 y
Next % m, N# ?9 ?6 w) I6 u
End Sub
8 x6 N/ ]6 v. L+ cFunction coor(xx, yy)
# h( i0 y, A1 d6 {, Lcoor = (yy - 1) * 10 + xx - 1 / B2 i2 g* s( Z- D; y
End Function
9 ^; y1 v$ y4 Y0 WSub Rota()
& L& E3 z3 m5 e1 e( G y' sRot2 = Rot + 1
6 k1 t& i" |! |# D3 m: c0 m# A+ pIf Rot2 = 5 Then Rot2 = 1 1 Q- C9 G2 j' U( y9 k9 I; L2 L
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
9 Z) q; f7 j6 P0 }4 m% AFor i = 1 To 4
9 C4 @- s J! O$ {: zFor i2 = 1 To 4
3 B$ F3 r6 }. j( A0 as3(i, i2) = 0 & A2 H, `9 M+ k
Next
1 H/ `) `7 c0 A5 t% z' ^4 M: _Next & |$ j' \% E; L' l, D2 z
Select Case Fig
! [9 B4 M3 t# LCase 2
) P, e+ c1 o- d% |5 JSelect Case Rot2
( i0 O( ]8 Z7 Z* h( _" h( M8 mCase 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True % z( j1 O6 l( ?
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True " Z7 d. l0 f4 |
End Select [4 `% z; z# h# R: p9 e' c
Case 3
, n9 m* l* A, [" PSelect Case Rot2
1 E; @; T; j$ v8 F" UCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
1 d$ Q1 w# v& I% p5 J0 PCase 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
# h5 H; L! }: P( kCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
) ~& {9 L# l5 P7 R' `4 zCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True 3 z0 i9 S/ W4 ?2 V
End Select
$ v$ |, j0 a& a8 X5 uCase 4
/ }$ b4 f7 Y/ W; h# F% } CSelect Case Rot2
( N2 l6 g9 n; }' _Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True ! t" [! R* E8 [7 z- b1 v- j
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True 7 F3 T0 P0 F9 j- D% e' M
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
; n* b0 Z' {7 zCase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
! b$ s3 V+ d7 B' tEnd Select A9 s* W" [( A
Case 5 5 @; U4 d) ]' q1 d' h
Select Case Rot2 ! v/ a, Y: V- d% I9 ^7 t
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True 3 [/ a3 Y- ?4 q5 }! c) E
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
3 n' R7 h% m+ V: F4 JCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
2 V6 s% T+ x/ r5 S, J" f! }) mCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
- H+ v3 Q, l0 i6 n* m5 {8 k2 P+ o: qEnd Select
* `- L& A* v! C* E1 e+ F& sCase 6
8 \ i4 X' ^0 _# }- QSelect Case Rot2
5 d6 B* i8 n* l2 b- [' g1 A! K# OCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
- t" |) a8 O- Y% f% ICase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True " z" I: l" e" M
End Select
) `* O m3 p; _0 M( E4 _7 w! KCase 7
- c$ D. g+ X0 e, k7 TSelect Case Rot2 8 n( X( R: n/ H! y- v6 K& l' t
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True ' l M/ L6 |% G; S
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
, {& S L8 ^' X% z" n" ]6 @. yEnd Select 4 O; o0 u6 Z4 X* b) c$ X3 Q1 f
End Select
. d3 e3 c3 U+ N5 P1 ?5 i7 l5 Nok = 1
$ A9 Y, k0 I. N( EFor i = 1 To 4
: S% r8 f4 Y4 p& HFor i2 = 1 To 4
( L! ]' k I. Y( i* q0 TIf s3(i, i2) = True Then
8 L" n; P& h$ c$ V# Y6 E4 KIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
/ W5 R. o0 Q1 c8 ~/ \! |If ok = 1 Then
5 G+ Q" N2 a/ U* X* Y2 e R! ]) CIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0 ! Z% _5 ?( ~5 X) o2 i- P, N1 m
End If 7 `; p# k3 V' I) l9 f; R& J
End If - T7 ?0 b$ q- T6 V( U
Next : c3 ]; C; n9 |# E n! z: i: W
Next ' G0 [" P z# p# s' Q
If ok = 0 Then Exit Sub
% j& ?8 \: D0 Z& c2 f5 o3 ]1 SRot = Rot2
( [: V* n7 Q6 |# TFor i = 1 To 4
& C2 [$ Z9 Z. e# _0 U6 W* OFor i2 = 1 To 4 9 i8 {3 v; ]; ]4 ?# ]
If s3(i, i2) = True And s(i, i2) = False Then ! |; X/ J9 m* f9 ~& [" {7 j/ @
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 c7 h# H1 q7 W3 o4 ]) A$ t) `
End If
5 @ U( `. I6 ?5 I; S! q% dIf s3(i, i2) = False And s(i, i2) = True Then
C1 h6 G4 [$ k+ B( }, qdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
2 e0 K# I: x: i5 Z7 XEnd If
" @5 b! c+ f( P/ ` J% W) P& ~1 V. ts(i, i2) = s3(i, i2)
- R4 U7 `0 t% J* BNext
5 e9 I3 B( M1 P7 O% g' [8 FNext & q1 P6 \8 q5 B: K/ D# e
End Sub 5 i5 c- `9 |! t' X
Sub document_onkeydown
$ \" R# t$ X+ ]7 {, `If window.event.keyCode = 27 Then msgbox "Pause",,"TET" 3 i6 n4 d% m, [
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") ' i+ M/ G) d. @
If window.event.keyCode = 113 Then iniciar("i") & [3 m! S% `2 a
If Not Pausa = True Then
9 S G9 a9 P1 m9 UIf window.event.keyCode = 38 And Fig > 1 Then Rota 2 ?* `% m1 f# H& t, W& l
If window.event.keyCode = 37 Then ( g: T9 V# V: G% r; n
ok = 1
: H" t8 G% L, r$ \8 _For i = 1 To 4
. ?" Y- h1 M3 G5 \( xFor i2 = 1 To 4 8 ]) Z4 p$ l# |+ V! R0 W# X
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
" ?( H) w- A' Q# `If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 $ ~# U1 H6 d/ R3 s: B! O
End If : q: [1 l- ^9 e
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 9 p) _& ~( @9 ]( D; ^
Next 6 U9 N! k+ I: n( Z" N# d8 o
Next 8 _0 v: X8 m+ b& o+ Z, }, w& b m
If ok = 1 Then - N* k1 o1 b# M: Y6 G' u
X = X - 1 0 e0 U% a- _# o# H/ V6 q* a
For i = 1 To 4
7 `) M1 F* @+ {For i2 = 1 To 4
7 I5 f3 N2 [0 CIf s(i, i2) = True Then 3 S, y2 B# t8 n
If s(i + 1, i2) = False Then
: u5 i5 B, K0 ^) B& o, j6 M! Xdocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
0 H/ g1 |( m, G9 W5 @; m. K' ]0 B3 eEnd If
) p4 m r* C S6 }End If
9 E& H& P1 o `8 V* OIf s(i, i2) = True Then 4 C3 k# ^7 _4 _
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
% N% U9 {1 @/ v4 l; ~End If 2 u" n+ W; \& ^) A; b% ?6 C
Next
* J5 k1 `" t0 z& ?" }6 {( |, ]Next
5 I% y& b# S: W/ ]/ M$ ZEnd If
; N4 A/ @. p& tEnd If
$ ^1 u9 S9 v1 v4 cIf window.event.keyCode = 39 Then
# Z9 W! C' N- G0 Y0 ~ok = 1 # i. _7 O( f( n9 Z5 Z1 `+ G+ |
For i = 1 To 4 % F6 D( l) C3 q) }/ K d& C: \
For i2 = 1 To 4 " H9 x) D- H3 k2 v4 `5 ?1 [
If s(i, i2) = True And X + i - 1 + 1 < 11 Then
N. q" }: ]+ M4 N) G: d- R8 DIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0 1 m" @( A1 L! T( r/ l' V
End If * |, b# }0 \) G3 x* }% l7 k
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
2 k# a) c8 o# ]3 X9 q6 mNext 2 [* T O7 }9 H; H$ Z
Next
: u8 ~# X5 J: tIf ok = 1 Then
3 A. o7 z; z% k5 HX = X + 1 6 m2 G5 Z) x, t" E
For i = 1 To 4 % E5 ]7 V5 Y U4 v. t
For i2 = 1 To 4 . M8 K& \/ i* c, q1 W
If s(i, i2) = True Then
. g( m6 J& B3 s5 EIf s(i - 1, i2) = False Then
% ~# W/ W# u' l( G |- g6 |3 wdocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" : L1 y$ `2 P- s) n+ W% Q. P
End If
0 x( j6 d7 J8 y. j! E9 dEnd If
/ o: C9 M4 x& }8 j" d9 FIf s(i, i2) = True Then 8 A/ @0 j4 o3 N% m
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 4 @: A. ^2 {9 x
End If ) g% _7 @7 B4 c% i" C# S
Next
6 [5 i( E& ?: N+ Z0 |& t: aNext
8 V& X; e$ g6 c: v4 p; V9 mEnd If $ ]3 d& K+ r/ ~4 I) s
End If 4 Y+ G7 S4 h% ~9 x% {+ [
“Aqui
# S1 q% E- K& }( [- K# cIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then # J- t4 F3 Z1 f* \& p; t
If Fig > 0 Then
8 K1 @4 V0 Z. S$ D" r$ oFor i = 1 To 4 + o: [( p& F# q
For i2 = 1 To 4 7 E8 [: F% H8 B& I0 B) a) c) \" B
If s(i, i2) = True Then * `1 p1 i& m) D2 X; {
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
( F, [5 S& W/ h) ]4 }/ ]5 f# pEnd If
: r; |7 w( H7 o. g( l- \) H; }Next 9 z% d1 u: Y; M" W
Next
& y( }! j+ J* E9 t8 v# D+ {Do
+ b. P/ X# p; Q3 vY = Y - 1 ! t- F& [. M4 p* x( u9 t: C1 T
For i = 1 To 4
! B9 s% F# Z# Q, u7 @/ gFor i2 = 1 To 4
% `, D- Z, Y# f2 I, H3 l2 P PIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 , `9 n- @$ p X1 ]8 t& a
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
7 f( @1 t" y( x7 F! R$ A( ~( TIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
- c" @! ~# B, A7 ? x4 G. CEnd If
% A# P; @' b$ k! l$ mNext 3 b0 V( p0 J$ F9 H! r1 A( \
Next
" V, |2 X7 M @- F( N# `: `' l3 HLoop Until Fig = 0
2 p7 X, y" i8 UFor i = 1 To 4
9 z: f% j N/ w8 C) dFor i2 = 1 To 4
3 L n" |1 W( |If s(i, i2) = True Then 4 V6 r9 P6 h2 s
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg $ g/ f$ x) [, S9 Y {$ X( A! i, r6 P
End If 1 I; a" X. C0 c; _: ^; F1 J
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
8 @! n: P8 _% J. UNext / ?' m4 n; Z2 o. ~
Next
! Y, h. R8 r& v% g2 K4 A: QEnd If
( A( e" f; s2 P* P- jEnd If . P5 T4 b: W0 D) y# @4 r
End If : T9 [& N# t& [% k" p g
End Sub & F4 c6 B# @( G% z6 ^' p8 R
function Mmove(Index) $ z9 P+ W6 i: I9 a& Z
if index = "I" then . a$ ?! X: Q! ~& R4 X
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
9 a0 ~. z% V; B- g' ~document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
! r) e+ W% d% v3 g0 F8 ~else , W J" t/ B1 r$ l/ X) Q
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" 2 A3 x7 w2 d9 D/ N/ b
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
* ]6 ~' a" M9 aend if
7 b& z/ R5 L5 S" Pend function ( p# H, ~. l& B5 q
</script> 3 U K: Q' e5 B T" V" y. U
</HTML>
- J- ?/ h5 `3 Y0 n( y<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主