 TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：8 D- ]& i4 ~7 D
<%If Not Request.QueryString("Ven") = "T" then%>
* ~: z4 ^$ I5 y8 H _, b7 a<HTML>
7 N0 G/ D& p/ |8 l* l& F" v9 ^<HEAD> * D6 x% j7 b3 p% K8 s
<META NAME="GENERATOR" C> + f( `) z2 E6 Y4 a; v
<TITLE></TITLE> 9 h9 N& L- ]6 L3 G% n
</HEAD> 2 Q5 `& b1 g) T
<SCRIPT LANGUAGE=vbscript> % q. D* _0 |% |9 C& X
function Redir()
0 K0 ?) [# X# _- e# ?$ ~% p! \window.open "<%= right(Request.ServerVariables("SCRIPT_NAME"),len(Request.ServerVariables("SCRIPT_NAME"))-instrrev(Request.ServerVariables("SCRIPT_NAME"),"/",len(Request.ServerVariables("SCRIPT_NAME"))))%>?Ven=T","user","status=no,toolbar=no,menubar=no,height=456,width=304,top=100,left=100,scrollbars=no"
# t# L& F$ y5 a9 D) Bwindow.history.back(-1)
8 S2 }& g, l9 v0 _% U. u1 FEnd function
2 w# Y4 w# V5 ?7 N</SCRIPT> 6 |8 }3 J+ |* S8 P W7 }
<BODY onload=Redir()> , [+ m% b, ^9 Q: b
</BODY>
: g$ P( Z7 ~3 U) \</HTML>
% b2 w3 @6 n. C! N h6 L<%else%> y, ~1 [& w5 c/ J: i
<HTML>
/ g: o/ i; p" k, M( m# G6 K4 S: C<HEAD> , ?1 J9 u4 a( z0 A
<META NAME="GENERATOR" C> - o# v) A6 o2 ?% D; b( L6 _; K
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
5 P, d a# _1 r' h: i6 J2 h2 q<Style Type="text/css"> $ v# ^, H: h5 B+ c, q+ T
<!--
! e/ W: ?1 ~( C" A.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} ) @7 A" q" r. o9 q" A
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;} 7 k7 g! F( C! u9 a% Y4 }
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} ) Y+ I& b# N2 c" k' [
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
7 {% |6 j; k: h; D1 c.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
; Y7 n8 f; r" I, w: a# e.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
) G0 E/ h# y7 b1 e.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} 6 r( k" q* R& k$ f- X; K1 D3 h0 f
--> ! Q6 ~+ l2 K! Z8 Z- I+ r/ l
</Style> ' v- X# ?7 l6 k' M
</HEAD>
4 P7 i8 V/ j: T* F) X<BODY topmargin=2 leftmargin=2>
3 X. u$ N; H" M<div align="center"> 8 ^, p" x7 D2 S" w
<center>
: @2 k/ \) w0 m H2 T<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200"> & ?3 g& j8 ~: b( h/ R+ `. A* O
<center>
0 a' e4 w$ w8 m4 D6 {<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000"> % m W3 j+ m$ }0 P$ v
<tr height="18">
5 n& M7 k6 y( u0 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>
0 h" Z0 r: {" B4 R<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> N( H3 D8 c2 Y a# J5 z
</tr>
1 u5 R7 Y" n$ N# O2 |# e, p' ]0 ?$ Q# h<tr height="18"> : A. i+ W9 J& b- v) v- O9 [
<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> ( F5 m O7 A9 L1 o; A. H% U
<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>
+ O- ?3 K3 H' c N) ~/ t! F</tr>
7 Y. `0 L( q5 c4 `! C7 y* X6 l- d! B G" r<tr height="18"> - o: `( g( f& h3 x- W9 |) M
<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>
; C4 d5 n6 L$ O# k<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> ; H; }$ `3 t- ~' X( x, a+ ?9 c7 s+ @$ |
</tr>
4 R/ C, t! Q! J/ o4 }<tr height="18"> % |! H0 Z; c" n- Q; e7 h
<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 D, Y% h" ?; s! w" y, K( l
<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>
3 ^0 ]' ~9 A" [</tr>
8 f6 Y5 ^: y( L5 t& J1 Y<tr height="18"> 2 k8 ^, A/ ~5 S2 O* k5 X9 m
<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> $ S8 e3 J, D; J2 M5 [% X T
<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 n6 `7 \) D# I$ I4 j$ f9 c# l
</tr> % i' t& p5 k6 A) `. C( I
<tr height="18"> & b# P7 H6 {) e$ c/ E' q# U+ O% `
<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>
6 b4 ]- A4 [% u6 @$ j [<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> ) _6 f" s6 i8 V5 o
</tr>
' u0 G9 Q. a" h# W1 F/ t<tr height="18">
% b0 Z& \ I( v( j1 t<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>
2 j# D! l% H9 w! d+ b) Y<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>
% M7 _% r2 A1 [ [* P5 }7 L</tr>
9 B+ {, {1 r7 D9 n/ i5 E2 I<tr height="18"> * ^ y7 F3 t9 O0 E, f( p* j7 n
<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> ! x6 f9 m( v, T8 ~* ]5 h
<td ID="175" width="18"></td><td ID="176" width="18"></td><td ID="177" width="18"></td><td ID="178" width="18"></td><td ID="179" width="18"></td> , S$ p0 L6 s% Z# D n- a
</tr>
1 m: D$ r* L: i3 a( L1 ]$ x<tr height="18"> 1 L4 d) X* x( B5 [% s: f+ D4 i. \
<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> % N. g5 u- u* ~/ w, b# i
<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> 3 j, x* V) u8 y$ ]9 K% Z b
</tr>
l& h& N. m) B<tr height="18">
3 F4 o, f) i, x u<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>
: P5 h0 U& ]4 l1 ]9 q9 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> - D/ n, |/ I) ?. V& D
</tr> , # m/ f6 Y- [3 Q4 ?- o8 x7 S
<tr height="18"> ( z* F! S& ?( U0 X8 c' E: 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>
! Y: m1 C0 S( g( e, u<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>
+ F8 a2 j/ ?6 V</tr> ' u: N e) K9 \: K- [
<tr height="18">
, M# \' J& Y/ T' w1 t<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>
3 l- j9 a( |+ }" q<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>
; w0 @, W2 ^6 z</tr> ' v7 v( `/ b' B. U) P% g: e
<tr height="18">
' Z, _7 k' m! q2 F4 c& [<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> 2 D+ X! p: q' m; D
<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>
* w# r. K/ Z; P</tr>
3 N [5 u- Y) C* A9 ~' g<tr height="18"> , E% _* O, u5 @3 R6 Z
<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>
: d7 }8 O: j# @% k6 H<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>
) n" E5 x9 s) |6 c2 |" ^3 A</tr> % q5 f" z |9 Y* H2 A; @
<tr height="18"> ) z x G3 h2 A( y7 M
<td ID="100" width="18"></td><td ID="101" width="18"></td><td ID="102" width="18"></td><td ID="103" width="18"></td><td ID="104" width="18"></td> & q6 V7 {; _6 _/ Z
<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>
# K9 ~( a: a' L1 m</tr> . |4 Y; j5 b4 j5 j4 q, `: J0 z
<tr height="18">
0 y! N( h: }4 |# w<td ID="90" width="18"></td><td ID="91" width="18"></td><td ID="92" width="18"></td><td ID="93" width="18"></td><td ID="94" width="18"></td> % {1 K2 r6 `1 R4 Y+ y5 q! E9 _
<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 z$ `6 E- }7 Z. F% C" }; Q</tr>
0 n) t$ s0 } ?4 V2 [' Y* ]<tr height="18">
% p9 F3 n( l: U, L6 ^<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> 8 h' {" k2 t* Y2 j
<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>
7 O( J1 J3 J! }) A" O1 C</tr> # g$ M& G& S5 W, N0 @% R
<tr height="18">
. y: u! y4 P9 o* w" v: Y+ [<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> , g4 i/ F& [- s& v
<td ID="75" width="18"></td><td ID="76" width="18"></td><td ID="77" width="18"></td><td ID="78" width="18"></td><td ID="79" width="18"></td> 8 k4 f, V$ p) G# w. X9 d U" \
</tr> 1 d) ?& e; Y# C4 ]
<tr height="18">
' |: y8 P* o0 N$ g8 f* _0 @<td ID="60" width="18"></td><td ID="61" width="18"></td><td ID="62" width="18"></td><td ID="63" width="18"></td><td ID="64" width="18"></td> ; ?1 b9 j& p1 t
<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>
+ [/ Z; L6 T& a</tr>
! d4 w4 n0 c5 v<tr height="18"> 0 H! ]" d+ p; a, O3 E, X `6 g
<td ID="50" width="18"></td><td ID="51" width="18"></td><td ID="52" width="18"></td><td ID="53" width="18"></td><td ID="54" width="18"></td> ; D9 b$ @- p |9 }; d( L: b
<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>
. u5 ^1 D# \ v' y5 \7 G, n</tr> . q5 @7 Q$ @) o- E' m. M
<tr height="18">
u/ i1 B% V+ v9 I9 s6 X# 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>
5 U1 M0 N2 g. D8 s3 X3 c<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>
@6 R5 w1 C* d" S1 ~. _9 j4 _& s</tr> 3 x [& a# }- T: Y
<tr height="18">
0 K1 B6 Z, }$ q. C<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> 9 L3 W' \" H, S0 L& K+ f4 B
<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> & }# Q& @0 K+ v1 ^7 z4 L" E
</tr> : v2 O, u, H# Y8 z; v* b
<tr height="18"> 1 k `. y' v9 g& w3 n* ^3 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>
' k% g- O0 l j/ l5 H% `9 I/ b<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>
2 |4 b% p M v</tr>
9 Y5 k: o# f" m5 [/ N' A<tr height="18">
9 H+ E% o$ `; l1 w# r, y<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>
5 q+ d. M( T* h$ F2 W% t6 L) I0 z" t<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> . O' u4 S( n Y0 X2 r" l& L
</tr>
; F- Y# v" _4 ?8 ]. h$ N<tr height="18">
# T' ]( Q9 G. s, e9 u& k4 r$ k, y# y<td ID="0" width="18"></td><td ID="1" width="18"></td><td ID="2" width="18"></td><td ID="3" width="18"></td><td ID="4" width="18"></td>
+ W! S K8 D0 j7 U6 Y/ o. L<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> 5 _1 A. j& y* P1 D1 u9 }3 T+ d" e' {
</tr>
1 U+ J3 {2 D: X# y/ K: U' f9 O; }</table> 9 q) N2 `) ?( Y; @4 N
</center>
! i' K' | `8 Y</td>
5 F9 `$ }6 T; e, x<td width="100">
9 f; K0 b, ~) o! ^8 v; d) j: i8 L<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 0 N0 L& m- f; P+ Z9 \# Q
<tr height="30">
* B1 L+ Y( Z$ {6 |& G3 F" _6 R, j1 @5 I<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
, L7 {6 O8 |% h- S</tr>
# R+ U2 Q4 e) Z. U" t2 w. i<tr height="20"> 3 K& L! s+ j% U1 ?' C
<td class=normalD align=center bgcolor="#FFCC00">提示区</td> & i# J8 J3 a& @( r9 `) G+ w
</tr> ) t: Z3 S% B3 q$ x
<tr height="100"> ; f0 n; a- q; I1 A- K+ @& _
<td bgcolor="#FFCC00"> & B+ E2 s9 m" x/ V6 g# n
<!-- Inicio Preview -->
) W* g, h9 a4 Z$ n<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
5 {$ p. p2 O/ H9 {4 k3 `<tr height="18">
+ b* `/ G6 ]1 n7 c- i9 L, K5 J/ l: 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> * l3 T! }. W* O- J2 `, [+ u% v
</tr> 9 j3 }/ H7 d$ i; T8 ^
<tr height="18">
5 G% y; J* A2 d* K# S, X<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> 2 t4 @5 Y B9 U3 t
</tr> ) C. L5 Q4 ]* y" w, q; o( ^/ i1 E3 G
<tr height="18">
- Q& w1 }2 j5 k- {8 _8 n1 W<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- X3 K+ K. b9 f5 o</tr> & a( i) |( T+ M f6 e5 n8 M" ?
</table></center></div> . L6 J f1 s R5 q
<!-- Fin Preview --> 6 @3 I. i$ n* G3 U; g8 ~
</td>
8 L2 @: m, e+ f/ l9 Y8 D; D</tr> / z! m1 a# h& @
<tr height="32"> ' z0 |3 Z% A' c! |5 k% |$ P
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
q5 {7 O9 {" `( z</tr> 0 n& T" ~% ^) G% Z: ~; a1 Q1 k1 w
<tr height="32"> 8 X$ u; l; O) M, }, q, v! H2 g
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
% u: l: ^5 {1 O% O7 a2 S</tr>
& O- v/ f9 g% T0 d+ v5 W; ^- [! C1 N<tr height="32"> 1 g( y6 S8 P% R+ G4 j& h
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> ( ~, H2 L: O8 {! W1 {$ O3 z
</tr> 5 f% S9 `+ V. ^# ?5 _$ d
<tr height="32"> , i, E* v, F: G' \% q; E+ m
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> / C# U! ]$ K7 `/ _8 v* V! x$ u6 N4 G
</tr>
8 m0 e" R6 E) x x4 b Z- \: c<tr height="32"> $ \% t0 q$ r. t, ^9 h
<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> 6 \) V+ O6 l" h" f
</tr>
) w9 s/ k4 u4 T1 `/ ?: q* J<tr height="32">
3 D' q4 y6 Y8 n7 @7 s<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ' r$ U8 ], ^0 Q4 K8 z# n
</tr> . B+ G3 e3 `) C& Z9 F9 s
<tr height="32">
" X! V7 l( A% D% `1 }7 n" R" @<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
. k# T" j. g0 ^. y</tr>
; ]- t0 d- ^$ |% [0 D<tr height="32">
4 k, K4 w3 @! J5 l<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
( v' P8 R5 O: C+ M* s4 Q</tr>
( t; t) }: q& S5 p! o% \<tr height="38">
* b6 c" O) Y3 x8 Q/ {- j) `' R9 ?<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> , \, l0 w: Q* d+ l; y
</tr>
* F! [& t# L/ a5 Z( S9 |1 M</table> 5 U: o7 g8 T' L- u3 _; Z
</td></tr></table></center></div> - Q2 ~8 n9 i9 ^9 _) N- }. k
</BODY>
+ Z' H6 G3 u# u: Y<SCRIPT LANGUAGE=vbscript> . S3 v8 E8 ~/ m3 `) f
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
. r5 k' Z/ s& U3 m/ x' DDim hs(),sor(),hsant(),n(),s(),s2(),s3()
$ b6 v/ m6 I/ h7 ~redim hs(3, 15, 2):redim sor(3, 15):redim hsant(3):redim n(10, 25):redim s(5, 4):redim s2(4, 4):redim s3(4, 4) 6 e; l! g7 z1 D# ^$ l9 r5 C. D
LevlIni = 1 6 P2 j3 S: w# i# E- m
Pausa = False 3 q: l7 U/ I# T
HastIni = VelLevel(LevlIni)
# Z' Z! B( ^% v) A/ r: B% [Hast = HastIni
- _; C) ?% Q- {+ a3 w( zLevl = LevlIni & S r/ `( Z0 f5 {9 C+ W; v' {, |
Pos = Levl - 1 5 K0 ~- i$ D% O' W. m
ColorForm 0 A9 |$ J' [0 t, R$ l2 k4 @- K
GOver = false
/ c0 w0 x- A! A. z/ Nfunction Iniciar(ind) # {: F& W- _" d
if ind = "i" then 2 N* L/ F0 A. }
score = 0 , Q- t( T! q7 }1 M/ I. d/ ~4 V
GOver = false
* v8 \' e' `" r& X5 G+ A8 HHast = HastIni
' ]* |! s+ @, R0 ULevl = LevlIni
) L; {# U% \- x# y/ I8 OPos = PosLevel(Levl)
, G8 F. e5 M& ~% oFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next $ x4 ]8 ?, O9 |
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next 0 n/ z, x0 W9 W/ q5 S
Timer1 = window.setInterval("Andar()",Hast) ) Y) a2 ^( n [/ V2 t" Q Z
ColorForm
% }- t( g3 J& r$ R& zFig2 = 0 + ?2 q6 b+ o- a/ O) `
Nyfig
7 {! }( `1 U* Ielse
* z0 f8 ?' f7 U Nwindow.clearInterval Timer1
# K: N: h( ~9 J0 C0 m( q4 S) Jend if
6 i0 S( b7 w% Nend function & ~0 o, C, \( S% Q
Sub Nyfig() - a+ t3 r( W+ d& A) m
Pos = Pos + 1
' `( w8 l) M% ^7 i" h9 mdocument.all("In06").innertext = Pos
6 q3 _5 Q! B% o) R$ C5 D; nSelect Case Pos 4 a/ ]) X2 D8 Q7 h! @8 l
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl 8 E1 o4 s3 Y. I9 m7 O# F5 Y- \
Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
) W, h [! l$ |# f sCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl + q% g1 c3 w1 k5 ^8 W: r$ l
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
5 o% Q" R. @# s1 A7 oCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
% n, `) j" T% |* Z' E5 JCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl 9 s0 ]4 y0 u' M9 O- `4 ~/ M$ [5 G
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl / t; H9 W$ G! X! L
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl 1 I5 M* H9 t2 c# E. N( G! `
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
# |3 ?/ w/ v6 E8 L4 HCase 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl & L$ k& F8 p. c2 S0 E, c
End Select + x. c& T2 r4 t: N/ Y/ P- y+ V+ W
window.clearInterval Timer1
4 ] e) |, {/ x! LTimer1 = window.setInterval("Andar()",Hast) / y. ~" z7 [# w
Fig = Fig2
3 S7 r0 U5 k' j8 q! q) FFarg = Farg2
& m) R! l5 m# R& jFig2 = Int(Rnd * 7) + 1 6 F; |1 ?1 \' q
X = 4 3 I3 }; T3 O e8 |5 D! E
Y = 26
$ d: c' J/ l3 q7 iRot = 1
6 S* w. @2 V$ }1 e8 ?- |For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
7 \) p8 ^2 m9 L6 e& J) z' ZSelect Case Fig2
# b$ [7 R5 p: k9 b# F( B8 |Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" " Q" C; d9 J1 O( f* M
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" 0 Z: }: I3 D# a7 l5 t( m
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" 2 T+ u5 R0 K* z! X
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
: c$ w: W! P; j" `Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
' k9 M6 `1 V& V) H5 J2 HCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
2 _& j' R, w! r( x. M, Y% K" FCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" M& Q& G. Q4 j6 D2 l
End Select + w% c- W* H& z0 E
For i = 1 To 4 0 h3 \8 ` n1 x& g
For i2 = 1 To 3
! ]7 m% q3 p! d$ D9 q& Y: I6 K1 Fdocument.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
9 l/ D8 r1 g4 r8 mIf s2(i, i2) = True Then ( [4 J2 Z. ?1 Y% J# K
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2 7 [0 o8 e4 e& O3 n: |4 U0 K
End If + a f7 \" l/ J9 @+ O% ^9 {
Next
5 b% R5 c% g$ H* I* Y0 sNext 6 t& M/ v: N; i+ S# W+ F
End Sub
: l/ F* q5 @2 r K& G, A, GFunction PosLevel(Lev) . e3 ?1 p# a- U) S
Select Case Lev - K. j u) C- Y
Case 1: PosLevel = 1 / R* H5 V* m5 }3 Q! X/ A% Y
Case 2: PosLevel = 51
3 q& |& @% a8 X7 ECase 3: PosLevel = 81 ; v% J. Y; n6 C+ H
Case 4: PosLevel = 111 6 f$ z( j& @" G( i( V/ T0 f
Case 5: PosLevel = 141 % k- V* E! n; D- Y0 g
Case 6: PosLevel = 181 1 Y7 `! S7 e( m, |+ |0 z1 B
Case 7: PosLevel = 221
6 h3 D5 H* }# q# d$ O% I, ~3 |Case 8: PosLevel = 261 & v9 t- V _( ?+ ?: R# n) K" q: W
Case 9: PosLevel = 301 * Y, L" L$ l# Q; {. R( i9 f7 @
Case 10: PosLevel = 341 / ^2 k: w2 c! O
End Select 4 N3 T9 ~2 ~1 D( A; H
End Function # M- }+ `- r% e: h/ L Y
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
" \* s% h2 i9 H- `( oFunction VelLevel(Velo) - K. {4 |5 o- \3 P, q: ^ v
Select Case Velo
" h6 ]- G1 i1 {+ @* H# K! fCase 1: VelLevel = 500 4 i. Y; V- O& y$ Z$ w
Case 2: VelLevel = 450 + b7 x/ U2 l, y
Case 3: VelLevel = 400
: J( L- f4 J: CCase 4: VelLevel = 350 . I3 j8 ^# b9 `9 N9 |( F7 |
Case 5: VelLevel = 300
( R$ Z+ P7 K0 h! ^/ ACase 6: VelLevel = 250 6 \- x3 @$ h9 X$ V
Case 7: VelLevel = 200 9 H [6 [% N! R2 T4 C
Case 8: VelLevel = 150 ' f0 j/ v" E8 R$ `6 w% _ K
Case 9: VelLevel = 100
! W! A; C7 T1 }7 tCase 10: VelLevel = 50
+ |; G6 T/ c+ m4 O3 TCase 11: VelLevel = 10 2 s7 \4 P$ K9 I5 [1 M! i
End Select % L* d9 W; l; C8 N; y
End Function % U! H# t# g; T! \
Sub ColorForm() % I' e3 F" V, [
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next 7 d8 L3 B( H. A) I% `# l/ B' O
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next , J7 \$ D& X! C
End Sub , J4 j# W7 E! T3 z N, ~3 X
function Andar()
4 I# F* D. P# I' A k' eFor i = 1 To 4 & j. \3 K" U7 {1 c+ B8 _% F
For i2 = 1 To 4 # ]- d: |: v1 W( G* t8 j2 Z
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 & x1 y- S7 a8 }" e% i$ |
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then " ^1 C9 x* _: b7 I4 z7 T" \+ d
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 , m) x9 |9 E+ j, L" W
End If ) [2 m- W' b6 ~! g4 J* F- x) I J. v9 G
Next & d7 U ?8 L0 u Y1 b* j
Next
2 }8 V$ V, A x$ }7 y" }If Fig = 0 Then : A1 C. s: b1 i0 r' j
For i = 1 To 4
6 z6 T% ?. p+ NFor i2 = 1 To 4
( |1 I% \% s3 A/ H5 sIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True # h$ J/ g" a+ w1 k; [% M
Next
! h! x* H7 f8 B% \2 N+ U& KNext / y9 [5 Z6 L! @' i5 A! h* v3 p3 I& z, b
Ner
q6 m) h6 R+ x: ~ [2 }4 }Nyfig 8 H: {2 S* t0 G$ E' Q
Else ; r: |( ^/ f& u0 }7 X: C9 f4 `7 q7 m
For i = 1 To 4 - g3 C8 S( p3 W& I5 I3 S2 _
For i2 = 1 To 4 6 }5 K% ?2 g9 N; r: [6 R% D
If s(i, i2) = True And s(i, i2 - 1) = False Then
- \" s2 F% f1 n) l6 P+ wdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 4 |; F" ~) F- A+ q
End If
. J% J ^8 E" O2 v+ cNext
! x; n6 L0 ~6 N1 RNext : K' L9 A @. u; j0 m: ?* d
End If 8 p" x9 n6 Q4 f' ^+ X
Y = Y - 1 8 y0 j5 H% j( D! M
For i = 1 To 4 ' ~ y8 K6 x3 G$ j( }! ?
For i2 = 1 To 4
) R' K1 ]( `( |1 s7 tIf s(i, i2) = True Then
9 M( Y7 B* G; Z6 h3 Mif not gover = true then ' b0 T- o) o$ b" o' f& l5 i
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
Z( C6 x" x/ X" w! EGameover / x1 _4 s6 D. H' r! N( ~
end if : \, T0 ~! V7 E
end if ( o: T6 U" X }$ R3 i1 ~' s
End If
1 F7 k: b' y& b; ?& y5 _If s(i, i2) = True Then
N5 a! v- a- `; W: Y5 L Mdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
* }1 _# Y' I [2 SEnd If ; |0 V# P" {7 Q) ~
Next
3 q) T/ W: J9 s3 ?! FNext
; F- V7 c9 y3 ]end function " ]) X) P$ J3 Q' b
Sub Gameover() , P6 q2 Z; @' b5 b( c8 I3 B
MsgBox "游戏结束！", , "俄罗斯方块" , [" \, Q7 {( i; ?( ^; B i
window.clearInterval Timer1
9 p G0 l6 N9 d9 B. uGOver = true $ D$ ?1 ^7 t4 W( }6 m* V# T( E
End Sub N% I" a3 E4 L
Sub Ner()
1 Z6 ?+ D. F+ N* ~$ W* `7 u. uScore = Score + 10
+ H4 S% d6 o" i% l, v! Tdocument.all("Sco02").innertext = Score
& T5 R6 {! ^+ o2 J3 _For i2 = 25 To 1 Step -1
2 E9 q5 Y1 l( v3 q9 Y' F5 Yok = 1
1 O9 V; E/ L" t+ n# u2 J* QFor i = 1 To 10
; N* P* A; A4 r, v/ h) oIf n(i, i2) = False Then ok = 0 o* Z4 ?6 I$ l5 y
Next . L. L% Q6 }2 [
If ok = 1 Then
- A, V: N0 b9 oScore = Score + 150 % k9 [7 Y$ u! m) @$ \
document.all("Sco02").innertext = Score
/ D" R, K& C; Y. C- x# q. \For i = 1 To 10
# P3 ^3 d% _* c- J8 L& \For i3 = i2 To 24 W( U" J1 j& N$ S
n(i, i3) = n(i, i3 + 1) $ ]0 C8 S$ Q2 V1 B# z: o: F
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
6 D* k7 d" y% B4 A, MNext % N) \6 R/ q0 K+ D
Next
0 R. d5 Q* N2 ~; Z! [7 NEnd If
9 d# [( N7 g2 _7 Y5 I' FNext 7 g6 l U! f( B) K3 I5 x
End Sub 1 q4 v5 K) W% z. J$ D K
Function coor(xx, yy) 4 b5 T* d5 F# k5 o3 p4 [( ~
coor = (yy - 1) * 10 + xx - 1
- q% {2 y3 U' f2 }End Function $ v9 [9 u- B, S! S) W% I, f3 s. y
Sub Rota()
: \+ l! ~! ~! ~% O% b+ P4 BRot2 = Rot + 1 . y9 ?% l/ o4 e% t% b6 l
If Rot2 = 5 Then Rot2 = 1
6 D2 b+ E; W# Z* S2 SIf (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
$ C5 A5 \) c1 M1 Q* |$ }7 aFor i = 1 To 4 ' @2 J+ Y- ]4 s2 O1 i$ }
For i2 = 1 To 4
/ q- L4 J' I: t0 ^- z/ m& T' X/ is3(i, i2) = 0
6 {( h J$ z) q4 A7 I2 r9 |Next 2 T$ z; z6 W: G9 Y! \% ~# v3 b0 m
Next
# q: ?* J3 z; g6 h6 a7 mSelect Case Fig
( L8 E7 J- w9 u) i3 H9 CCase 2 3 b2 @7 C' R" D- G. S8 z# O$ F% ]
Select Case Rot2 7 r1 u6 h9 s* y7 j5 g, S8 I1 l, }
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
' ^) B, z. i0 q0 VCase 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
/ I. e' ~& ]. ^$ r! @* HEnd Select
7 A: f. Q. u, k+ S" YCase 3
q( r* }* M5 }# ?Select Case Rot2
, [ W5 }# F/ m( A& i4 oCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True # l ^1 g7 B, j" u6 }+ w
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
# w2 R/ k! ]- }* T- \7 fCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
# [1 ~5 |7 C4 q' MCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
! W# ]# |6 x3 Z! J# REnd Select
) i( d: t1 ~, U$ U/ v7 v' rCase 4 " g0 Y$ j0 X: h8 i9 L
Select Case Rot2 8 u7 f8 U+ J+ g& P0 m
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
5 e5 J( p/ t' L; u8 Q# ICase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
" u6 ~ V" q% O8 ~% }. d) g2 O `Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True / ~( u- x2 r- n$ b* d
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 0 `9 Q" ^- b! A: ]8 d
End Select
; U" j! u, i F3 e' g, gCase 5 * Y! @. Y- e6 t9 V! d. \
Select Case Rot2
+ N2 U$ \; x8 U" ~9 R! A2 jCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
3 l6 |8 Z( L6 H. L4 M% tCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
\! R- Y: U* O. D: tCase 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True " l2 \3 J1 A; |; z
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True 8 j, g+ E5 K" S% P
End Select ( j. s# w# C' y
Case 6
0 o1 u/ b4 A6 W9 \Select Case Rot2
" d& J7 ]+ b* ~/ K# k. _0 RCase 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True 6 m" K* j, B2 }9 l4 Q
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True ( J4 [0 l M5 }& T
End Select % ^3 L B- N: C9 S' G
Case 7 1 m( ^# h( t/ z- r
Select Case Rot2 ( N j" k1 X5 \
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True 6 J4 b- I( e3 j6 t; v; b
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
2 r s# i9 v2 @$ s" r5 G& I$ h, ?# cEnd Select ( v' b* p' `$ c2 M
End Select
, X* c6 o- Y2 |+ ?, rok = 1
! ~. @# ?' S$ O1 aFor i = 1 To 4
J" F9 b$ N# j; D% VFor i2 = 1 To 4
) k1 ]4 y- y: V" h! N6 x) }" i2 ZIf s3(i, i2) = True Then $ ^3 j& ~2 X# e+ |
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
- k2 U, V& \: ]- QIf ok = 1 Then
4 d) q: y& {# |( p6 @( t5 cIf n(X + i - 1, Y - i2 + 1) = True Then ok = 0
: ~% u1 t- `" N1 oEnd If , W. g" q- b2 V; K4 s
End If 8 K) G" g. Y; z/ ^( h1 T
Next
1 |" C6 h& L, Q- b ^1 }1 z4 a/ dNext , ^- {& M. B# N; q( m+ E3 l
If ok = 0 Then Exit Sub 9 u1 I+ G- V& N. n" Y! E
Rot = Rot2 }/ z% i) |9 I
For i = 1 To 4
3 U0 J* Z# w/ l) m/ L$ X( NFor i2 = 1 To 4 , M' O4 a7 E2 b! d0 B6 j
If s3(i, i2) = True And s(i, i2) = False Then 2 h+ y; z. D4 b" ?5 C
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
* I% @5 l2 Q8 }2 b& b: t* SEnd If # N @" @$ Z+ j" [% _6 I! j
If s3(i, i2) = False And s(i, i2) = True Then ( u) @8 ]6 u8 U7 S& ^, y
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" ! I$ Y- ^1 X1 U% ]
End If 9 k7 X# `% S2 h; @
s(i, i2) = s3(i, i2)
# L5 ~4 b6 @' b$ i# \4 }Next
) e% o9 r! P+ Q$ u, Y+ M6 u8 ?Next $ L- A! {8 J6 B, S: v7 _
End Sub
2 ]- M. o& Y- g4 _% tSub document_onkeydown : z( |4 O& k( h& M$ e" m
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
! M1 _7 r. o3 s& c# sIf window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") . x4 B( i* _+ B% @# m
If window.event.keyCode = 113 Then iniciar("i") . C3 y& p0 x9 H) g: ]+ B' c
If Not Pausa = True Then % r9 j8 c0 g; e& ]" f! @1 Z
If window.event.keyCode = 38 And Fig > 1 Then Rota
9 }) f4 x$ w* \, k f" nIf window.event.keyCode = 37 Then 3 D# T7 p" `! J0 T& W2 }5 G' F
ok = 1
7 x$ J2 [. @( ~& ?% m$ CFor i = 1 To 4 1 {# K+ G7 K) O
For i2 = 1 To 4
9 w: V( X% Y2 k) VIf s(i, i2) = True And X + i - 1 - 1 > 0 Then
2 o4 m" E. e: s; i0 C! Q9 uIf n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0 ' H+ B6 {. S- C& g# Y# Z# l; ~8 A# v
End If
7 Z- c1 O$ `& D% o! BIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0 % }& X' i8 n4 ]% v' e- Z
Next # Q" M+ p, T W. ~& {# x F
Next 5 R% n( g# ^1 P, E9 L
If ok = 1 Then 8 D# F) k/ G, ?; s
X = X - 1
" ~8 X& h+ g+ M& e# FFor i = 1 To 4
0 M# \% T. P) b! v2 B( [, @3 fFor i2 = 1 To 4 + K- c9 J& L9 J$ H% B! U
If s(i, i2) = True Then - N' g* t0 F1 M: ^2 A( _2 s
If s(i + 1, i2) = False Then
! {4 l6 s/ K$ P. @+ u& k8 H- Ndocument.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
; O4 m# O& j7 CEnd If
2 ^$ v2 x6 |( `- X+ IEnd If
+ _5 d- [/ ^9 I; j7 uIf s(i, i2) = True Then 0 C. [3 g4 v3 R
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg / s4 _% S- d+ u$ r* C
End If
- H( E% P7 ]6 MNext
! Y% _8 Y. T8 u# D; S1 nNext
* u7 f% w7 d/ H. U9 wEnd If
N- z1 x( o* F* {2 ?End If z2 M# Z" T) b7 H+ Q* S
If window.event.keyCode = 39 Then : T! n Y3 z9 C5 L( J
ok = 1 1 Y" F' i# |" F, m, N, H
For i = 1 To 4
0 h* x# ]4 K4 q q2 z1 n1 o* _For i2 = 1 To 4
; X" b. S3 s9 T. {9 u" o/ qIf s(i, i2) = True And X + i - 1 + 1 < 11 Then 0 k7 v+ U4 }, u9 T
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
$ B6 Z9 m a% l0 G' G" c; yEnd If 4 c: B3 U9 ~$ n. A6 W' d9 u3 x% b
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0 ! O, h' v7 ?" s
Next & v1 l/ d3 R* b
Next 9 R0 u/ m8 T# Q' U2 B# v" e+ _
If ok = 1 Then
+ X* U1 B! o, ^8 ~X = X + 1
. _: Q/ X7 \$ y4 @- [2 HFor i = 1 To 4 : Z u* w$ h0 X! x0 w) D* G+ D; Y4 x
For i2 = 1 To 4 / z( S3 S! G; H
If s(i, i2) = True Then
! l) f1 O' r. l0 f) a4 E! BIf s(i - 1, i2) = False Then
8 f4 o& `8 z |! R) [2 |document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
: w' u: s- X) M& PEnd If 2 B, V. }9 u2 p; u P0 o
End If
$ ?$ A" b5 Q9 r A) f+ X4 n ?. yIf s(i, i2) = True Then # \& y. {3 V( N- Q1 n
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg , {1 i) K9 G( d- @
End If w3 p8 J( d9 @3 M# }" v
Next
( I% l# _$ {. R$ r# m/ ?Next ( u8 M4 f8 f* ] c
End If
4 E2 H, u8 S6 J$ A' ^End If & x2 `6 j* C2 O
“Aqui ! B3 {: ], G& w6 {+ z
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
# j( g6 Q/ q' `/ U. A3 x& KIf Fig > 0 Then 3 F( i0 R$ F; Q/ H% n5 h! d! s
For i = 1 To 4
. B3 t/ v. B' P, tFor i2 = 1 To 4
& l% r0 F# k9 l5 _3 L* [6 ?) W4 }If s(i, i2) = True Then 1 P$ K( V Y: A
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 1 y( J. V6 _# A5 P( M
End If
% F9 K9 x' h! c- vNext / r( B, _/ o, ^+ O' y4 \: @7 O
Next
, E( P7 v$ \, L* C/ G7 V$ EDo
. R+ P* A( A5 q7 qY = Y - 1 : P- i# }7 Y c" \% B
For i = 1 To 4 4 m1 I& o2 U2 U) H
For i2 = 1 To 4
2 X) H" w2 J0 ~! _0 X" ZIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 7 n# ` f+ a/ K& f( C5 J
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then ' P0 D! v# S( @) g( `. }% `
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 3 i& w. t, r' Z
End If 3 s, i5 ]; ?0 Y+ G5 B: G2 G
Next , x$ n5 }+ x( j" _5 u0 [
Next . d0 s- Y6 M8 m$ J$ ^! P0 h4 x3 A
Loop Until Fig = 0
& M5 @/ P: D0 D* z! @- ^* `/ hFor i = 1 To 4
# l7 x' t w( h- A/ R- BFor i2 = 1 To 4 $ j- g6 v- E: [ l& h4 y/ H7 g
If s(i, i2) = True Then
: e+ W4 Q1 n2 Q R7 y4 ddocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
: A. q% w/ |) L4 x6 W( D) eEnd If ! a7 A! o/ h* h- J
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True ) v% T* ~: }2 r4 C
Next
8 |6 c0 R7 F, G& Q+ {8 \& RNext 2 V+ k& U& Z0 E- f! B$ ?7 r2 `
End If ! k9 O' [- P W7 z5 Z
End If
: D R& @! N, t+ v, a8 c! ?End If
! b+ w' d5 d6 [1 j- ^$ wEnd Sub
* O. J/ D. W1 o9 zfunction Mmove(Index) . v/ `- `4 }+ q
if index = "I" then
9 m7 d2 M1 _ o' K. Ydocument.all(Window.Event.SrcElement.sourceindex).classname = "normalHI" ' D$ t4 x" [" r2 w
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" " o: b5 Y3 J& L3 U" @
else
8 ?8 B* H5 X7 J0 D! @' ^1 N" fdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
( X. \/ {6 A/ ^# Xdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" * t3 r. L4 Q9 H; O5 q8 f+ Z
end if 0 L1 x# @7 ?6 o! H/ G* }
end function
1 e( I& @, f6 m</script>
" X5 T3 w7 p( Y0 y2 f</HTML> : }3 p* m1 {3 ]% B; `( v6 B
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主