TA的每日心情 | 开心
2014-7-28 21:47 |
|---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容：
4 @! S( _( C* U9 |( ]<%If Not Request.QueryString("Ven") = "T" then%>
8 {6 Y- [! P5 p<HTML> 6 V8 Z: U: c8 h( y4 c
<HEAD>
2 g4 m' q2 y' U! {9 O7 E/ z<META NAME="GENERATOR" C>
6 }3 U; P: l* B<TITLE></TITLE> 4 W6 m$ A& u( t$ R6 j( A
</HEAD> * b$ }4 K5 `" i* t
<SCRIPT LANGUAGE=vbscript>
2 Y5 p8 F7 J/ I& n& E9 ]5 W, rfunction Redir() + J5 |! D3 d$ q) \# y
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" % N# Y2 Q: C' X; e! a, k
window.history.back(-1) 4 S: n5 ~ Y- Z# ~7 I
End function ; V% N: e7 E' L, H. e
</SCRIPT> 5 S" _1 ^' f9 N& u' h+ j0 R' K* ?) K
<BODY onload=Redir()>
; ~- G; e- \# g0 z: Z</BODY>
8 ` W" [0 M z, L</HTML>
T1 i. D" S! w" G<%else%> ; Y+ F- |8 @3 L+ U4 N
<HTML>
# n+ l- {: \7 p# O& S. H<HEAD> : s% I8 p, J1 r H# l$ @- k" q/ t
<META NAME="GENERATOR" C> / O$ [" s5 ^: q/ b7 F& F }
<TITLE>**VBScript俄罗斯方块游戏**</TITLE> 6 q) ]9 a6 U' S: ~
<Style Type="text/css"> : G1 W% o, e+ O
<!--
( D5 Y; P1 r7 o) F% d.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
$ E6 v v+ [# [# Z# M9 _.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
% K9 y+ W% p8 y2 p0 d7 N* ^.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;} ) @( W, a8 c$ t( `0 o/ \- C
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} ! G0 s% u# u/ m$ z% Z( W
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} , U* A/ x3 q5 p$ [
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} : |0 o' H% n5 W9 d
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;} e- n: Q; C$ _7 j: z& @+ U( z
--> 0 |9 Y+ \4 m1 Y2 X" N7 A
</Style>
y4 F5 [) k! O' L</HEAD> ; e- t+ w5 `3 W F
<BODY topmargin=2 leftmargin=2> $ p9 V4 l$ {: M/ Z7 q
<div align="center">
, Z" z. l, Z# D, H! `4 [+ F- J<center>
% A; o1 ~, d5 t% j7 u9 z0 K- v<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
+ S; T+ C1 E# [9 ]8 F<center> 8 k `; t: Z& M U! v1 S
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
. u% G# F8 j& V2 r% h8 K1 Y7 b<tr height="18">
: } A' p: b- ^+ k<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>
6 t) U* j' w" y$ l; |- U<td ID="245" width="18"></td><td ID="246" width="18"></td><td ID="247" width="18"></td><td ID="248" width="18"></td><td ID="249" width="18"></td>
( E7 q7 z+ a( q3 g. t7 t</tr> 1 @7 n; U* j# j! `. ?2 e
<tr height="18"> * s# o* P$ ~6 o+ Q4 O
<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> $ f' {+ M6 E. ]
<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>
# \ z; C2 G0 _2 E3 o2 r</tr> } ~2 f8 \7 ~+ R' r1 `
<tr height="18">
) l" H3 b) E: E3 ~( O+ w<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>
) B( {1 y: @0 K! D; z<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>
; I8 Y* H6 T" A; Z! r: `</tr>
7 j$ O2 |. R5 K, H- r& C: N- J<tr height="18">
. E2 e" Q' e- x+ B4 h5 {<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>
5 z: c; {2 Y* ]3 m<td ID="215" width="18"></td><td ID="216" width="18"></td><td ID="217" width="18"></td><td ID="218" width="18"></td><td ID="219" width="18"></td> 2 \! s" ]$ T- p4 r* `- g8 b
</tr> $ Q! P. ?) Q7 o# k6 I( {/ z
<tr height="18"> : l9 a, S0 [( j- x5 |6 i% t
<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>
" a% F e0 o1 G: j<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>
8 G; m' _( k$ s; A( F1 Y</tr> * r( _/ R* w. S# M' X
<tr height="18"> ( T6 S( \! ?2 D; ~4 Z
<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>
M& n/ i+ _. W) t4 y<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>
# o8 O c* Q% e3 n2 Y</tr>
+ u4 i* P5 Y% V x5 j' j9 j<tr height="18">
* C2 g/ Q, x! N6 X. Y4 S4 \<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> ) x" y3 H1 ]% m- p
<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>
" s ^# m+ W4 I7 K% d; U</tr> ) j. o8 b3 w" F+ ?7 d: c" @4 [
<tr height="18">
: N/ v& R7 e+ n% o' h! Z% |<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>
8 F6 j% w: I/ e0 r<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> 6 a2 y2 M9 h; y' X+ D# e
</tr> " W& a2 N4 {( r
<tr height="18">
7 \, j. U% x. J5 _- s6 V<td ID="160" width="18"></td><td ID="161" width="18"></td><td ID="162" width="18"></td><td ID="163" width="18"></td><td ID="164" width="18"></td> / ?: L8 C# Z& c. ?( F
<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>
. X0 C: ?- o- {! _5 j</tr>
; f* D- X3 e8 c/ \2 P<tr height="18">
9 B$ u* S0 r; _<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>
% @$ H% ^1 [6 p9 d2 A" g<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> 1 d6 L* \* O2 U
</tr> ,
g9 a* N, \1 P1 C<tr height="18">
9 E, ^3 T# d! v0 [1 v- D2 \# M. K<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>
5 M" A6 ^# l* A" ?1 [: k<td ID="145" width="18"></td><td ID="146" width="18"></td><td ID="147" width="18"></td><td ID="148" width="18"></td><td ID="149" width="18"></td> 5 H; m2 |& [3 f
</tr> " X" A, `) d. G4 d
<tr height="18">
) {; B' @9 D) S6 C! c% O3 H2 ]<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>
( Y! R2 S0 P0 h8 ~$ `<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> ' }* u* Y* \: F! I
</tr> ) x) g3 k9 V" x3 t+ d
<tr height="18"> ) L1 M! N) R2 E, }% o0 ~" `
<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>
* g4 J$ s: o! Q% V/ B. A<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> 6 l( S4 h! j4 u6 S
</tr> ! }- ~" l- X2 H
<tr height="18">
/ u& T# ~: ^* c9 \% @8 o2 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>
4 {% [: f$ K3 X3 `( v8 Q ?<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>
4 b: p" a7 [3 `& |5 m7 P V+ x6 t</tr>
4 n1 }% J/ f: ~" E* L+ ]# @<tr height="18">
2 C3 B9 u6 K/ Z) [3 W; x- Z<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> : |% P; y' a# z7 G$ c
<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> # L7 M1 }6 x# \
</tr>
. G7 U1 |! O7 F. o<tr height="18"> * l7 g' M+ o8 ]; {' t2 R- c
<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> ! K" m& W) P1 F
<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> + N, L9 }$ ?) U1 c; d N
</tr> 8 x2 E' o5 q$ Z; E6 o$ P
<tr height="18">
' D3 O [9 i8 L) ~ u8 o0 Y- C, \, N<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> 2 ~' y/ ]1 P- H) g* H; _' W* d. P
<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>
% N& R$ v/ S$ m</tr>
# T$ T4 l! P& C/ j<tr height="18"> 7 m: F' w; D: m; w6 \* S% 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>
4 ]% a8 F+ b# h. k+ M1 d* ?3 w' G<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>
7 J; H4 l' |0 X& p% A5 O</tr>
7 _: ~# r( A5 P<tr height="18"> * F U! l8 n; `/ C* X& ?" _
<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>
8 Z) G: z" w- ?$ I<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> 1 T7 c# L" x2 P4 X o8 K
</tr> " J8 ]4 S# A4 }5 G$ Q7 k6 {
<tr height="18"> 4 f1 d- Q0 Y6 a) X
<td ID="50" width="18"></td><td ID="51" width="18"></td><td ID="52" width="18"></td><td ID="53" width="18"></td><td ID="54" width="18"></td>
5 P8 f; ?# A' q8 f( w<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>
- p/ E4 k6 K/ Y5 `' a</tr>
8 d! I/ g1 ^7 S6 {$ \* {( d<tr height="18">
3 l) x% @% Z/ G- d+ T1 U4 Q1 h3 O<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>
& ?. b8 B, t/ E& 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> ! N0 P8 B9 x3 G, Y) f4 j
</tr> - ^& ]5 y: |+ {( {& l) p1 k; p
<tr height="18"> ; c8 \' O3 J, A5 ~" N/ m
<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>
# e, A& l1 W( [- X<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>
2 L- n' b7 S" d2 {7 Q% M</tr>
1 v* ]9 j0 a; Z4 j* W6 A; \<tr height="18"> 7 c* z# P5 ~3 \* L- [
<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> ( r# z: ?* W) N- l
<td ID="25" width="18"></td><td ID="26" width="18"></td><td ID="27" width="18"></td><td ID="28" width="18"></td><td ID="29" width="18"></td> ! Y8 X4 T5 T: U0 C; s9 U1 r- {
</tr> , [3 y% a% F- Z# s
<tr height="18"> $ L2 P2 \9 ~3 X4 E; }3 }( X
<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> * X7 C \( \2 s1 X: m3 e# S d8 G
<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> , s3 Z6 Z( A. K' U
</tr> ! s" g3 z4 ^: D+ @6 u; o" E
<tr height="18"> ! E0 W4 [" X( @
<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>
0 G& s N$ G- J- W. i4 g$ X<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>
. {/ F2 _/ w4 m c- o</tr> 8 |) Z; S! ?) S9 @/ I9 i
</table> 2 o7 E- H: c* T! o7 [7 |2 |
</center>
8 }7 V. f* z/ K- I/ I</td>
8 b1 i' j2 J6 a; r! M<td width="100">
% a& c. Y# `* R+ k+ Z<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0"> 9 }# W' m; q' Y3 v; Q2 q4 ?
<tr height="30">
- h/ Q: Y' ~8 {<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> & Y' E& N, f" G: i7 q! j
</tr>
' I/ o4 Z7 J! i8 ~0 D4 e3 e/ f; l<tr height="20">
! j+ b+ `( ^ Z! X+ l<td class=normalD align=center bgcolor="#FFCC00">提示区</td> # G: N! f# a) a
</tr> & h3 ?1 O! @5 ^; y- |6 a6 u2 q
<tr height="100">
4 Y4 C4 G- `3 S9 p* h {3 R<td bgcolor="#FFCC00">
: v5 ?3 V8 c4 m0 Z) F3 V! b<!-- Inicio Preview -->
% q% ^( K+ X) B' V; B" Y1 e<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
, E' m$ ^5 C8 w0 A! H5 ?<tr height="18">
7 X9 v( ?/ N. B. w$ T<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
/ N: y$ D( A: y3 A! S4 g9 G</tr> " K7 A8 k4 g( N; }+ {- F) L1 |
<tr height="18"> . b' F0 B9 M2 g0 h M3 j' N8 |& U5 z
<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td> , D5 y% t7 s* R2 K8 D1 D8 N
</tr> 0 K( b. ~4 D) _! y
<tr height="18">
, ?( a8 o5 X6 U7 ]+ o% i$ w6 q<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> / ]. @1 W# `- V% ]
</tr> * e0 D4 `! ~* q: Y% G
</table></center></div>
/ m2 z- ], f- k. H+ S1 X2 F& B<!-- Fin Preview -->
$ k9 L) i3 O" S; q# @</td> . c' o' U4 [. b4 q6 A* [2 Q# i
</tr>
" B/ z |' O+ O4 E1 B$ _! E<tr height="32">
7 L' @1 j5 X( w9 B% ] h<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td>
0 N [2 g' w7 _% I( S</tr> 7 g' S5 o8 |8 P1 A5 n. ?$ N
<tr height="32"> ! e# H3 P7 _ d3 o& L% A5 ~5 m
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> , y9 v6 p! z0 O' o6 R; J9 [8 b4 w
</tr> 5 C1 C& i+ s; L R
<tr height="32">
7 g' P7 M, B4 Y I0 Z3 v8 E<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> ) w8 H+ o# S, X6 g0 T
</tr> 4 ^+ ?0 f+ R3 l/ j9 X5 O, r
<tr height="32">
6 l4 } U$ x. |- l8 A8 l& J<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> $ h- Q- S6 Z- {' A0 c
</tr>
* {! k" k$ Q" J0 Q<tr height="32">
# x8 I/ e! d% V3 C+ V9 V<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td>
+ z1 k+ x! l) h; f- c! k</tr>
. w+ ?5 c- r% f( ?: b/ s8 H h<tr height="32"> ' i6 d! c% _8 l1 N0 e& v9 I
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> 2 `* x9 \0 m" C/ b
</tr>
: ?; q: X9 q, f" t<tr height="32">
5 D' h' h0 w/ i( L' I<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td>
m6 y; q7 D2 j T7 l0 [( G& {</tr>
3 @1 m, U0 @5 p, h<tr height="32"> 2 W! j5 _# y: e3 ~* V& s8 R
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td>
; R1 J9 T) G+ d e1 y; Q5 T3 q</tr> - m. P9 M- E3 g" B1 X
<tr height="38"> ! O3 D7 l3 h9 O/ e- D F
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td> 7 ^9 z/ @ V6 w6 S' @
</tr> # U( y3 Y* p* Q
</table>
# f: L# a+ R" U e9 H</td></tr></table></center></div>
* z$ {- F. ]- i. e</BODY> # q* {/ E% S/ O
<SCRIPT LANGUAGE=vbscript>
& \8 L% F1 i& V/ t) h LDim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
, d# n6 t- ?/ aDim hs(),sor(),hsant(),n(),s(),s2(),s3()
& f9 d. j$ i- s( ?! A3 `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)
% e3 E2 G9 z& dLevlIni = 1 / f( Y+ ]% ]4 g; m5 a j& g
Pausa = False 5 P5 r8 S5 ^6 Z- p2 A2 g
HastIni = VelLevel(LevlIni)
& U1 O$ O! D) q3 W% b, aHast = HastIni 1 `4 j, {9 w/ @' ~. Z, F
Levl = LevlIni " Q" g1 f( G! U8 z! M
Pos = Levl - 1
. |6 y" {8 f7 F9 F# VColorForm / P, l/ i7 Y2 L/ Q5 N( n8 f1 N
GOver = false & `* Y# l! C& }, C& K0 e, s6 E
function Iniciar(ind)
/ {6 M% n7 J# B4 {if ind = "i" then 9 x- N2 \: X' E2 f
score = 0
' r% V1 }) n# a g2 O/ D+ C/ fGOver = false
1 e' D/ x$ ?* u5 ?6 hHast = HastIni
! o+ }. ]; s {- I% JLevl = LevlIni 9 v e* I& D( w( \
Pos = PosLevel(Levl) 9 S! y0 c7 [) y9 t4 k8 [! H v
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next 2 C( a9 o7 E. d" G. g/ W& H7 X
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
1 }: _' }2 t# S$ p$ i9 \ pTimer1 = window.setInterval("Andar()",Hast)
' Y+ _" r% A) C% b; Y' vColorForm
0 Q- c' H+ h- R3 ^! _7 NFig2 = 0
; w, `! a3 |. t- o2 K6 uNyfig 6 l* C5 q6 s; V! ?% F a0 q9 L' ~
else 8 v) L$ P" j( L6 w; A% ~8 ?
window.clearInterval Timer1 2 ]8 Q+ |2 Y3 E" s) U; z7 ^ p
end if $ W' M' N3 g* k0 C. Z9 U
end function
' @$ F2 v/ i6 N, W l) wSub Nyfig() . C3 Y7 x4 F8 l8 h% Z
Pos = Pos + 1
7 ?" l- m2 {) X+ r) C" L" f# `! Ddocument.all("In06").innertext = Pos 9 B4 _5 \6 B/ @
Select Case Pos
" i( `& E+ y' h6 J' X: v8 B8 ^& \Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
& r9 K) O! B7 q5 ~4 f, W7 PCase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
3 \% `7 z: w; `7 [- {; a/ RCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
7 b W' Z& ^9 ECase 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
1 ?1 b$ h' `* x( g8 H& fCase 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
" W s2 D, V# f" |& z' O7 {- bCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl * \7 n# ^, C1 |9 I/ |4 y" j
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 1 g. f. g6 @1 g6 t- Z2 N
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
( u3 c- {8 A* N4 cCase 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl ; }! x$ [' L0 k( N1 w
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
- e3 T" l( H- v' g' Y0 i' R& UEnd Select
9 i0 C# z2 |% ^# bwindow.clearInterval Timer1
" Y- N% v) f- M' R i8 o4 K& fTimer1 = window.setInterval("Andar()",Hast)
' O0 r4 E) f2 VFig = Fig2
7 a7 \5 X! s5 i5 F! W+ e; WFarg = Farg2 * |7 |7 v$ l k. ~5 {
Fig2 = Int(Rnd * 7) + 1
+ o; O) M) c% l$ iX = 4
5 u5 O A1 {: r' T F+ jY = 26 D5 f3 b* n, C/ @+ M$ V
Rot = 1 u- n4 d" P( z' p0 q, [* n
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next ! ]; } R1 s8 d- X% V: G; Q* m% k% n2 [
Select Case Fig2 7 U: l. \- U H# _* A' F8 Y
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
4 ^- m: O$ l& a! U1 \3 R$ ^Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33" * B# }: z1 M( x4 ?
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
$ _$ x1 `- H! R' M) C7 CCase 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666" ! k; A! t/ I9 }
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
3 A0 ] ^6 X: B, X/ Z* s) w" g6 TCase 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
, ^4 F# y( L$ z( M5 ^5 kCase 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" * ^9 @3 |/ X% s& \3 `7 @
End Select , r5 }+ Q7 n+ o- _2 V: p* t. c
For i = 1 To 4
& b* {& J6 e& n/ p" jFor i2 = 1 To 3 # y. p" o. D! U2 @" u* w* [# R6 [9 i
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
; h2 q$ N+ w7 {If s2(i, i2) = True Then
E1 B5 P& }- b: a$ U: _6 `8 p `document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
) C2 G, I9 e5 s/ A% j1 mEnd If , Q* _( B1 G9 Z
Next T( Z: z; O1 J+ G, v2 P7 w
Next
2 b8 `+ \' X3 [% T2 _End Sub
3 E- {* F" L9 A8 ?! K* }, CFunction PosLevel(Lev)
4 v7 |! u4 A5 s& V$ lSelect Case Lev
7 {5 ~+ L2 V3 {9 c8 f) Z5 BCase 1: PosLevel = 1
* S1 e0 y6 P; y/ ~8 [7 f( u" f3 bCase 2: PosLevel = 51 5 q; A5 s' D! H d8 c
Case 3: PosLevel = 81
" s; a7 h, [' G. }7 ]Case 4: PosLevel = 111
: o. [2 Y# O. S8 ~2 x# J7 M9 _Case 5: PosLevel = 141
- ]" i9 i& J, iCase 6: PosLevel = 181
, U: B; i# i+ x. ]4 A, H, PCase 7: PosLevel = 221
1 s0 M; R- {- \, GCase 8: PosLevel = 261 + S `6 @0 N) |3 R
Case 9: PosLevel = 301
8 f2 Z0 @" S8 e- S' e! ECase 10: PosLevel = 341
; X7 X5 b) L1 H: u5 v/ u' U# hEnd Select 1 h( h$ K w4 m
End Function
2 s7 n+ _1 ~) T1 t3 y, o7 f% r“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
, M) `+ a0 w- n6 I% S; KFunction VelLevel(Velo) 6 a% n @* @! J" J' U5 m
Select Case Velo 2 j B1 K* M, k2 l0 ?
Case 1: VelLevel = 500 ( Q& Z3 ~+ u* @" F
Case 2: VelLevel = 450 , S6 P( `, F3 j" w7 Z
Case 3: VelLevel = 400
% v; U5 d, c+ r* f1 {' mCase 4: VelLevel = 350 ' V9 L% a) F/ E' J# a8 V9 n$ ]
Case 5: VelLevel = 300
- D8 t+ k4 {5 u l; E6 c. RCase 6: VelLevel = 250
% q) f! Q a! L3 W+ G- m$ yCase 7: VelLevel = 200 8 V; d* \ A! }5 i* J1 i2 B$ r3 R- g
Case 8: VelLevel = 150
) _( x, H- [( T' M% v4 vCase 9: VelLevel = 100
4 ~3 i P& x2 n; r) e7 rCase 10: VelLevel = 50
6 {: ?5 R9 ?& ]Case 11: VelLevel = 10
W2 A2 R S' v) `' i/ p; qEnd Select 6 u, |% v/ B E7 g2 b
End Function
' @- a' i9 I8 g, D% e1 iSub ColorForm() + M" x- |- k8 B
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
7 u- e8 r! \0 x: LFor i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next 8 [" M8 R+ v8 X# a
End Sub $ m2 b3 T* E$ H0 Z( j
function Andar()
; p0 F" E9 C* SFor i = 1 To 4
# y) v3 J' M0 O1 S1 rFor i2 = 1 To 4 * ~8 g5 E1 P& J
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
2 X+ Z0 e5 r8 S6 QIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
5 e2 L/ l5 a: V5 r1 G5 J1 N; ?If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 1 q" P+ K: y! D. @$ s
End If
7 z& c7 M' F2 Z3 XNext
2 ~# A0 Q% ~4 O2 H& {: eNext
; J5 i- ~* V. \, @" c9 w6 q/ L& mIf Fig = 0 Then 9 q+ g9 f+ t+ B& y) d- ?
For i = 1 To 4
! y. P2 M8 G8 O2 D* F- k1 H# FFor i2 = 1 To 4 + s3 D* s i& _. m q
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
# p9 K/ a' M v1 f; `Next / r h9 [8 f: h+ X+ S8 Y% i
Next
2 L# |" f5 n1 K0 v$ aNer ; x3 t5 @; @! e8 `. I* T; ~& }
Nyfig
$ i) `6 O4 Q& cElse
: ?+ S" S ?/ W5 _6 k( f! Q- N; @For i = 1 To 4
' B/ [& I1 E Y W2 N& K4 nFor i2 = 1 To 4 0 D) p) R$ m/ v$ G4 ?; O
If s(i, i2) = True And s(i, i2 - 1) = False Then 8 a. s1 r% f' A/ a- Q% Q
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" # X3 H4 e* d1 z! X
End If * M. W% Z [/ d' d" \. `
Next
& T: r5 A+ W& ?/ J' [! TNext
2 ^. h- S- ?& }7 TEnd If
4 L/ c9 x# n' p& t4 c4 Z7 VY = Y - 1
3 W* t- l& U+ f& L. wFor i = 1 To 4
4 G2 v. i" r% ]7 }& k8 v+ Z+ qFor i2 = 1 To 4
6 }* t5 p5 z) @* L' Z/ \/ SIf s(i, i2) = True Then
, S0 i8 l; l' Nif not gover = true then ; S) w: p1 B( `/ Y; j6 |: _
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
4 \! w# N B. K: j5 MGameover / l6 R' D* a- _. x# n
end if * k$ a$ }0 V1 h% B" x+ O
end if 6 @6 O$ a; l7 J- B! P F( g4 w. w
End If
8 {& K4 J% L2 k2 UIf s(i, i2) = True Then 9 F2 L$ C4 _+ f$ t4 D
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
: e! V$ x8 A, Z7 T2 l7 Z7 EEnd If : t C( l( _0 @2 I7 Z
Next
* n: a+ R7 W/ v% x3 h9 N, m# M" TNext 9 {& m/ K4 i" ]0 U# W# p
end function
! J) N! f1 A# k) i7 f" F! KSub Gameover()
# _& Q9 b8 y9 V" m9 w% q2 MMsgBox "游戏结束！", , "俄罗斯方块" / b8 P$ o6 z- O& Z: n$ C
window.clearInterval Timer1 7 [7 a! U, D2 [7 N4 k _
GOver = true
4 @- k. S- z' h# d+ J) YEnd Sub
" S+ v6 P1 X, D4 D: n8 kSub Ner() 8 E$ J9 K7 x) |! X; l; H R: S9 O
Score = Score + 10 " w7 J9 G4 K; q2 c0 V) t. L) l
document.all("Sco02").innertext = Score
7 q# H; L1 h! KFor i2 = 25 To 1 Step -1 . C9 \3 J6 [9 E$ L3 y
ok = 1 ( s c8 Z% h4 t ~
For i = 1 To 10
9 k8 i3 R) b( CIf n(i, i2) = False Then ok = 0 7 }. d1 Q, i# J. O
Next
8 v2 e/ U& G7 t% c/ MIf ok = 1 Then # t8 M+ `1 c9 G
Score = Score + 150 & z+ J D9 U1 V, D6 g+ J
document.all("Sco02").innertext = Score 1 m$ k4 ~, r, w) r) H- r
For i = 1 To 10
7 I2 D; ^! i2 t4 q" r9 Z$ ^For i3 = i2 To 24 $ x1 D; m& Z6 k, M- r7 v
n(i, i3) = n(i, i3 + 1)
$ k$ b. y6 |2 h) g1 Pdocument.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor : z! }. |/ S2 u0 X/ i2 p' {* [- f
Next
! d' Y! X0 x" L2 B' uNext ! `0 w+ R5 c( M7 n+ l
End If 1 j8 E& I5 @5 R$ f
Next
, P& w3 W) c: G3 n2 T0 t6 p1 fEnd Sub
; P% w! D! a% J+ dFunction coor(xx, yy)
F( {2 M7 C4 K7 b9 i" `coor = (yy - 1) * 10 + xx - 1 % a( J% J7 G7 F; b% R8 g
End Function * R, [; u* ^ y# T* Q. d! ~+ u
Sub Rota() 4 ~& ^/ _; l; W5 p8 g
Rot2 = Rot + 1 ; g T# Y c4 H8 Y% ~
If Rot2 = 5 Then Rot2 = 1 $ n5 L+ Z+ h- S" v9 J
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
2 f2 B. _2 C, k1 \For i = 1 To 4
, C4 p2 z- x- n0 f7 ~" B kFor i2 = 1 To 4
/ C: i" ?. r- n+ o, A7 \7 A0 [s3(i, i2) = 0
` z! J1 \% p$ kNext
% `& d* F: { z4 |( m# Z" Z6 VNext
! Z( t2 N/ n$ sSelect Case Fig
8 k. R' ]0 t iCase 2
; a6 o* S& \8 H1 X% A5 N( @% gSelect Case Rot2 1 _8 z. v7 f4 i- L; V) b3 R& m
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 7 D+ V+ h2 f, I
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
* U0 `- P/ D0 f f9 sEnd Select
# W5 t2 p/ E/ M, ]6 dCase 3
8 `& q. j1 v# a& rSelect Case Rot2
9 b+ G" N7 z" G7 B! \; UCase 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True - G8 n; Y2 _" x& u3 d# t
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
$ ~" h7 q3 I' ]0 \7 r( i. MCase 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
, s {# Q* Z6 O9 XCase 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
' m) A* f5 `+ G$ L0 `/ R9 jEnd Select
' `& v3 L' ~! D+ ICase 4 8 ~+ F& {& [& |
Select Case Rot2 # i+ K0 s3 P d- a9 q( |$ ^3 R% X. U
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
8 F, Z1 q/ B, b0 l3 z* F9 ECase 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
6 I8 ?$ o( ^- F) @: c9 lCase 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
+ ?1 S+ Y6 N, m( Q+ D* ~9 F/ o2 v$ UCase 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
) p$ f$ Y& m5 _2 a, ^End Select
+ f- N: P2 [" e. O' ECase 5 3 H6 Z( }0 T$ A( N, o
Select Case Rot2 4 q8 Y/ m# X5 w( a ~' I; z
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True ) N$ j% T4 z( L3 J( `3 M
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True " O% s# m# m3 q6 I- T1 \
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
* K3 O( U' e$ P, q) F2 CCase 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
: b9 Q7 v% j. JEnd Select
8 I1 d/ o& D, b$ F- K4 fCase 6
, \5 H' i% [; u5 \1 I+ WSelect Case Rot2 * ?7 @# s6 f& d& A! s4 k
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True 1 e3 \# k$ C( n3 Q, g
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
7 j, t3 P8 `0 G4 H! PEnd Select
" z* t4 b2 }1 Z6 w% t0 {Case 7 / t+ c& p; L z8 Z: [/ T
Select Case Rot2
- s% F3 i9 Q1 ?, \$ }3 N4 \+ sCase 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True 3 @0 b$ H: N& |5 }4 }1 o
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 9 ^1 O$ a- H* L$ v. o+ X* o
End Select 0 I8 O7 U O3 {9 k2 V0 _
End Select 7 d' M' u5 F9 [ ^% P T
ok = 1
! \' c; N$ M6 @5 iFor i = 1 To 4
0 ~8 y$ z6 s) b% e; SFor i2 = 1 To 4
6 v1 _0 Q) Y& g z# qIf s3(i, i2) = True Then
2 \( K: d) u+ z/ z! R, QIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 ; r. q! H) ?% I/ I% h, |& G
If ok = 1 Then & K6 u( O0 L- |' k4 {
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 ) f J3 Y0 }# ?1 f6 V6 ^
End If * T" h. E/ r; @' l# q+ X
End If ) G0 S/ v, P5 D5 q! t
Next
2 o, n/ u0 F7 W+ l+ kNext
# X# a0 ^6 v h4 Y& Z% gIf ok = 0 Then Exit Sub % N3 ] ^% q, @9 v2 j: W- l
Rot = Rot2 A3 |9 s+ D1 o9 B
For i = 1 To 4 $ {/ S$ p2 x9 z3 w7 h7 X1 e* I$ m
For i2 = 1 To 4
& C" w, }1 J! w0 w$ yIf s3(i, i2) = True And s(i, i2) = False Then 4 x g4 G# J5 q" b& _. d, `
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg # W+ i1 S+ M' r2 v8 s
End If 3 x! Q4 r9 |" y9 ~' n5 |
If s3(i, i2) = False And s(i, i2) = True Then 9 _1 L* R% Q5 k) B1 D: o+ a
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
( E8 g. B5 f$ e9 |5 ?" J' [' V3 v% xEnd If
. g) h% T* \$ u. X# [' u8 Z6 us(i, i2) = s3(i, i2) " P- {0 n. N' J- [: G
Next E3 J2 [4 f2 w6 B+ F) Z' n
Next ; H; M+ ?9 f, F- c- i; P+ \
End Sub
; \' Q; b8 `: G# p& ~* ]! oSub document_onkeydown / M7 b, h' `- r& ?7 F( U$ k* m- x
If window.event.keyCode = 27 Then msgbox "Pause",,"TET" ) y- F1 l0 n d; V7 W3 P0 ^! A
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") ; g9 @; ]+ c' A5 X# v5 t M# Z2 Y
If window.event.keyCode = 113 Then iniciar("i")
( Q" j( J' H, |If Not Pausa = True Then
( a9 j! L% A4 A0 `2 {2 D) dIf window.event.keyCode = 38 And Fig > 1 Then Rota 0 Z1 s$ R# B* \8 s7 @
If window.event.keyCode = 37 Then
8 X- H$ ?) ^, M9 E1 kok = 1 # ~; v. \5 R( j( }$ L+ e# @: @
For i = 1 To 4 . j; ]& _$ v. p R
For i2 = 1 To 4 : S/ I3 s6 {" V7 v; a" ]( [; g
If s(i, i2) = True And X + i - 1 - 1 > 0 Then / g3 |' k0 p9 ~ @$ H% c% a
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
. y8 f8 m) e/ uEnd If
- ~$ D! `1 e5 s, q. l6 O* SIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
7 B; c6 E, n) n+ V; v( oNext ' K8 Z3 k1 q7 B0 ~: j4 [
Next 3 W1 f2 {* ~8 B; f4 ]5 k$ H" x/ Z/ T- h
If ok = 1 Then
* e" m+ _% p9 S9 d9 }" f+ ^% pX = X - 1
/ S i9 E8 S9 b5 r y5 O" OFor i = 1 To 4
0 ?8 G+ i: U, _) O8 b; aFor i2 = 1 To 4
) J+ O( H! F' n5 D; s6 p# eIf s(i, i2) = True Then
) @5 z1 H' a Z, yIf s(i + 1, i2) = False Then 9 ~, @* U) W. G/ l9 l
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
, w4 b: U7 e/ @0 H: j7 ]) U$ uEnd If
% R& V) `& c! |8 D0 Z1 T- p. M, BEnd If
+ h% Z% z A) q9 {/ LIf s(i, i2) = True Then
+ t# }" T" K" Q4 L7 c+ ^, zdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
5 R1 o8 {- w2 e5 v& e2 W& OEnd If ) m# R3 R6 K- r3 L' k/ [2 e
Next
9 I: k# z& s% g, Z1 A& T) NNext
+ A9 u7 M* y, z. r, G4 Y% i8 CEnd If 5 |) ~7 I K: U! B+ N' b
End If ( F, y; O4 _+ X) d; L, N4 a
If window.event.keyCode = 39 Then
5 g7 I( A( K2 D7 i* j7 Z6 C- mok = 1 " g/ W+ w/ K% f t
For i = 1 To 4
9 K1 |3 e% |- \/ s5 xFor i2 = 1 To 4
) G: }% q3 V( v2 f1 W6 C5 ?If s(i, i2) = True And X + i - 1 + 1 < 11 Then
2 o' \+ p! p& X% B p v" YIf n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
5 B1 e7 N+ v! y) l# JEnd If
# x1 c! \' j/ |4 w& xIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
$ Y/ v" _7 F) I7 i9 z' w+ p" MNext
6 q( W; f* n- O/ ?4 B7 r5 wNext
% N5 ]6 e0 w/ QIf ok = 1 Then
6 I* }' T1 L8 M/ \/ i7 LX = X + 1 4 G. i! ?( G8 E% [3 }) L: B
For i = 1 To 4 ! W* f3 m$ `. \' r; V3 A
For i2 = 1 To 4
6 E% ~, u3 e! e4 b, EIf s(i, i2) = True Then
# }3 S! h" }0 TIf s(i - 1, i2) = False Then
% R! Y" g# P% B4 O, `! Wdocument.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000" 6 a: `+ b% x( X. C3 y7 C
End If 1 V" Y& a- y7 k5 u8 @
End If
6 G. E/ u+ }" {& }% z# C8 L/ SIf s(i, i2) = True Then
) d) A' J7 f* S8 rdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
5 S. I% Z1 G- U9 m8 zEnd If 5 v* M9 P' \) C0 N
Next 8 r) J- p# d. C6 b! D6 P
Next ! q& ~* }2 e2 O
End If ( X& E' ]8 [; [6 c/ _: b
End If
% J& i/ P8 D0 Z/ ]0 Q& F“Aqui - z5 H8 V% j) K- n
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
+ p+ d7 z( j) @; D5 J+ F2 `/ QIf Fig > 0 Then
6 i) g/ ?2 _+ n0 V5 HFor i = 1 To 4 6 L8 M% F& D* v2 D2 ~
For i2 = 1 To 4 5 z0 N( r3 q8 U# z) F
If s(i, i2) = True Then
* P. d' f' M' H) T* q( @3 {9 N4 W: p. Xdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
9 e$ G Z3 d, c2 y+ \* R. C g9 XEnd If 1 X& h& x, r5 `7 ]* i' J4 h1 E% H
Next 3 G) P8 H) H6 P6 N2 m& \8 w- y
Next
, H* h- _$ Q: d8 NDo
@+ W9 }* [( I: l$ PY = Y - 1
( r @, z3 y% m2 E; H9 YFor i = 1 To 4 : }1 n3 j: a G4 f1 w
For i2 = 1 To 4
t2 S' e8 P7 K& V+ y0 ^If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
P3 V7 m# i2 b, L* wIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then ; C/ N, d; V. r! X& W/ W2 i
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ! s- I/ ^8 X8 ?+ D
End If
+ B% W8 E5 B% }$ a4 w) ONext
; q9 z& @& e7 hNext ' u* C; B+ ~' C8 w
Loop Until Fig = 0 ! E* t4 N/ |) z* T$ k
For i = 1 To 4 : {5 Q; c) C( B
For i2 = 1 To 4
3 t/ U0 ]9 H L. N5 l4 h1 ]If s(i, i2) = True Then
% c: z5 N( n2 X0 X5 C8 w5 f! p' ~7 ldocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg . K- v0 D$ K$ @, r5 I T2 r
End If
& y, Y' j' d) j9 pIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
& m3 _; v5 j: e C* MNext
$ k4 N, d1 Q0 V+ G0 p. l" J0 {Next
; P& o# l6 Q1 y) k# [End If ?* v1 Z$ y" l: y
End If 4 [# d8 M9 j. ]+ x) W
End If ) q' n4 D& ~* Y2 J4 o' G* W1 o! X1 M
End Sub
: |+ F" g( J) d( b" m# Ifunction Mmove(Index) ) e# p2 b1 D* s2 G) d
if index = "I" then 0 P; @/ F& z' K& r
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
m/ b0 E$ @" y& V1 R( r2 edocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
% e4 w. d3 r( j/ celse
$ S" V. Y. R- f) xdocument.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
2 \. V# V( ~1 s% e8 j7 gdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
- Y; V4 Q; z! Y; L% R! Uend if ( {: |4 J0 B6 ?! i4 [! l
end function
5 H$ P$ p2 x. [- N</script> 3 m; \0 |7 H" A e* t% @( v
</HTML> $ X# g# L1 X8 ?; a2 `3 E; }
<%End If%> |
|
/1 
IP卡
狗仔卡
发表于 2009-4-17 08:55:59
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
楼主