TA的每日心情 | 开心 2014-7-28 21:47 |
---|
签到天数: 2 天 [LV.1]初来乍到
|
以下为引用的内容:
0 f2 R/ u0 V; m7 T: O/ U1 Y6 w<%If Not Request.QueryString("Ven") = "T" then%>
8 ?4 D; g; a/ J4 f9 g<HTML> . y9 M K# P- u ~
<HEAD> ' R3 I R3 X) E+ s$ r( X/ \7 B
<META NAME="GENERATOR" C>
& v# r2 p! R, t" W+ W3 i<TITLE></TITLE> 6 k" Q9 F" v& ~2 l* A% g8 L* p4 M
</HEAD>
% _# W4 H, w& h" R6 Q<SCRIPT LANGUAGE=vbscript> 4 }7 i! X/ R/ o% A$ X
function Redir() & {' l1 c9 f# N' p8 @
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" 7 m7 _! K% V% Y/ r! j8 I. G/ ^
window.history.back(-1) ' L: M# x: t6 n" Y5 A8 Q
End function
, t" v8 }/ L9 I9 ~0 B3 n: {2 E</SCRIPT> $ Z( z6 ~! w# E( t3 @ w6 W* q
<BODY onload=Redir()> + o+ r: }# m$ x1 s' ~
</BODY>
5 q0 h7 e7 L6 f: D* ~4 l</HTML> ! n1 [/ u, I, B! z
<%else%>
2 ]" B% M. e; }<HTML> 5 x. e+ x1 g1 Q1 \. q
<HEAD>
4 n0 ]2 L. Z$ f/ d9 n7 _& ]<META NAME="GENERATOR" C> , E- x* @+ k( v, `: \4 d
<TITLE>**VBScript俄罗斯方块游戏**</TITLE> + P+ T& w5 o! y& V9 F: k6 P
<Style Type="text/css"> ; K8 t/ D: z8 d2 w `6 H7 e4 Z8 t
<!--
( v; @ C& W& Q- a$ X6 }.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;} , \ q& n: A/ h8 I
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
% M u3 U+ r4 m2 ]! y+ T! U0 T.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
4 l: C8 r% @5 E; `8 k.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
+ z- E' U* h0 C# g& a4 `.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;} - c& c4 s# p) {6 y& m7 o0 V9 n/ e0 f+ N
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;} 9 L3 x; b. l$ j" \
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
% {0 N0 f6 ^0 \3 O9 u/ @' G: e--> ( \% r4 ]& x& \7 c( P! F7 \
</Style> - Y' c! A4 t& k9 Z* G
</HEAD> 3 d# \+ N* e" U1 k+ F! w: P2 I
<BODY topmargin=2 leftmargin=2>
! O* Y2 f3 O' s$ I. D- C( M- Y<div align="center">
{6 z* v: w5 O5 A<center> ) v: r/ h$ w$ ~% J4 g, T
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
/ _% b9 S% G* v5 ^' U<center>
7 ^6 C4 Y, [+ x- {4 }8 [0 |& {" B<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
, w) {$ o8 u+ {4 Q$ Y6 W5 ?<tr height="18">
8 V5 h; {# N/ [* v<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> 7 G z/ {+ }4 y; [% b
<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>
0 p* i" K* j: M- m</tr> 2 L! m9 r& E" H) M! C" g a' X
<tr height="18"> 5 g( w, } G- {1 ^7 B' P
<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>
- y2 z; e5 x& q, f<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> : ]* }4 C% e- a" K2 |! G- u
</tr> . u. s R" m2 }9 v7 L$ h
<tr height="18">
( s* r! D6 f. l/ y4 Z4 F<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>
' c5 t( n. [! D1 [0 D<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>
; T* } {: `. U1 |3 d2 L" `</tr> 8 w, I8 i3 j2 a* }3 _' p H3 y1 S
<tr height="18"> + C( I* c- R6 f& e$ U4 b
<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> ' I; p7 p* C. 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>
+ {( z" `/ f+ d3 e: o& Y# U* }' P</tr>
) J7 l3 v |6 `! R. g0 X. h<tr height="18"> % t* N# p. P1 W
<td ID="200" width="18"></td><td ID="201" width="18"></td><td ID="202" width="18"></td><td ID="203" width="18"></td><td ID="204" width="18"></td>
, r( w1 ?& k1 S: I* V7 Q* @<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 o2 _$ |! _/ \' e9 r) a
</tr>
' ]! o5 j$ k" g% r8 M2 e<tr height="18"> ) Z* w j2 `4 f$ ~: y. f$ {
<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> , k- N8 T3 s( Z
<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>
& M/ N% ?1 \: t/ h1 i/ s</tr> , e7 n ]9 F3 \4 H- J3 S
<tr height="18"> R1 ? ?" g! U
<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>
3 T4 u4 c4 j$ W9 z7 f( \<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>
& T1 z) z6 t% m- W; w* n+ @</tr>
; N8 E* [$ t9 W<tr height="18">
& f! i/ a$ n5 J0 V0 C3 s<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> 2 g, H' A, j: k8 r u, s1 R3 D
<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> . @" i3 \, Y. T; s# h, m# y
</tr>
: [4 K9 z: v7 ` z4 @7 S<tr height="18">
1 Y& n* m9 H$ S- _; G1 e& x' `<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> 0 z; C( P3 B7 ^/ a
<td ID="165" width="18"></td><td ID="166" width="18"></td><td ID="167" width="18"></td><td ID="168" width="18"></td><td ID="169" width="18"></td> / a% Z" _( A4 k( N) H2 u
</tr>
) F/ G4 U8 R, Y. ?9 b+ u- [<tr height="18">
% R8 n# a7 l6 ~6 d5 M<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> p7 W$ f) U3 C$ ~
<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>
! ^/ O" |& b2 m. f3 F9 \4 \</tr> ,
( d3 v4 }0 @7 V2 k' N8 L f<tr height="18"> / k: a# D% h+ Q$ i
<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> 8 n4 O* ]6 P; n" j5 ^4 |
<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>
; I3 P5 K4 A) r1 Q</tr> 9 O, k! u7 C. Y
<tr height="18">
6 r0 `: `5 O! V' o- I: a* m4 @+ 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> 9 k/ E8 O. g9 w- g
<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> ; v( y7 X' Q9 t$ z1 M& Z' [! A5 |
</tr> ! }; M# H7 O9 H8 n E
<tr height="18">
7 u4 B. o; ?7 `" q<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> 1 }3 v! c0 l% l1 h# i6 C) {
<td ID="125" width="18"></td><td ID="126" width="18"></td><td ID="127" width="18"></td><td ID="128" width="18"></td><td ID="129" width="18"></td>
f' ]1 ~# a4 E6 @</tr> 5 e/ _$ S/ z5 d& g. A1 g" a' i* }$ ?
<tr height="18">
( D9 V2 e2 m* `; y" q<td ID="110" width="18"></td><td ID="111" width="18"></td><td ID="112" width="18"></td><td ID="113" width="18"></td><td ID="114" width="18"></td> - t* s' I( `/ k4 [' X4 u
<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> 6 k m/ O. P3 R4 `4 E% j
</tr>
0 G- I3 R* ~7 u; W! k6 v1 p5 F& a<tr height="18">
) J& J! C0 s* E: j, q$ f1 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> # l- f9 ^: w Z F
<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>
/ h+ T' V& {- U0 R" g</tr> 5 _, X0 ^$ l% a0 {9 [
<tr height="18">
# `, X% Y: e" L<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>
. A& L4 i2 F& d' U1 G3 K# e# L<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> , M- ^: l, i3 H, L2 I& h4 C
</tr> ) T+ _* H$ o# A& ~& L9 ?
<tr height="18">
, a0 j/ W% r2 x2 L+ v0 W<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>
( C* }: a! t! f j7 T<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>
: k/ X0 C0 S5 d: p8 Z7 G</tr> 1 \) h# j5 a% \: [1 Q _
<tr height="18"> 8 _% R/ R- x! ?1 w' L8 o s& [
<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>
* z! A6 Q4 D: W/ [, R9 B- E<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> , X( S2 k ^) M* c% L6 Q2 f& l
</tr>
! P2 Y" z$ ]. s4 x- s) {" I<tr height="18"> # H$ a: U; I& |5 @! G2 K
<td ID="60" width="18"></td><td ID="61" width="18"></td><td ID="62" width="18"></td><td ID="63" width="18"></td><td ID="64" width="18"></td>
3 g* ]9 W* X9 p E7 x1 a) e<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> 3 m E) V0 \9 B( V0 p3 }6 G( }
</tr>
4 m* O* h( T; Y1 j4 G. d<tr height="18">
. h6 Q6 M: ~! {) R/ l# k6 j<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> * f. F7 ?) ^$ ]. {" G7 t. _/ O5 R$ M
<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> , n; A: N3 k e1 `6 O2 |
</tr> 1 R& A ?1 U/ v0 l+ H: ^8 B6 e( `
<tr height="18">
; t% }! F% ]/ j<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> / U% E: y) o$ J7 R: M' ]
<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>
f& n( T r: d; U! z</tr> $ l e* h3 T7 t* L- Z
<tr height="18">
$ U$ K& v/ j7 b* @2 e<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> " z/ j, }; Q% o6 ~; H, w. {$ 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>
9 O8 L$ G# r, f; Y</tr>
4 T4 J& f, V9 Z* E<tr height="18"> 2 o! p2 I0 X3 L; [, `7 x3 i! S
<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>
& W3 ^& e6 l, F ^" 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> - d; [: H) s u* x: l
</tr> 0 s: M3 y+ e, ]6 d
<tr height="18"> - i% f. E0 @& t* 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 R( w j8 D* Y+ h% d9 h
<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>
. R* K( d( L( W' g" ^ ?</tr> . m4 ]% W# A0 v6 b- g
<tr height="18">
3 ^: B$ ]# g4 s9 S4 M: t<td ID="0" width="18"></td><td ID="1" width="18"></td><td ID="2" width="18"></td><td ID="3" width="18"></td><td ID="4" width="18"></td>
. |" }6 G0 e, c6 W* } w! I<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>
. |# Z# I6 ?; M" S8 ^</tr> , i/ Z4 I- H" y9 F& B6 J: L
</table>
: s! _5 H. ^) g% R</center> * W; E/ N; X' S" @. Q2 {+ P4 c
</td>
+ i/ B0 V4 m# m' U<td width="100"> + P _2 J* X% V! G0 M) }4 U
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
% E+ T! n* H. v9 f' K2 ^<tr height="30">
# h) R0 ~. |4 S$ o4 d<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td> 8 {0 u: H3 M1 Q/ P& d+ U. i* j- r1 O j
</tr>
2 `' G0 ^0 Q2 t' z* o! w% j! G* f9 J<tr height="20"> 3 V, S% _2 B7 a0 o
<td class=normalD align=center bgcolor="#FFCC00">提示区</td>
8 C: p% ?! k( i, X1 {! j</tr>
5 u$ \- U) o* U7 A, D<tr height="100">
) ]; y: ~5 i2 O<td bgcolor="#FFCC00">
* r( S* x" S3 V7 M! D9 S<!-- Inicio Preview --> ; ^0 { I. d- D1 z. O% E
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
$ _6 K, e& T* T. Q) F8 R% W0 F<tr height="18">
3 C) o- Q7 X. s, w/ |6 e<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
- h, U% \, d8 S2 r0 }/ q</tr> + l4 x- v c& {4 b) C8 M
<tr height="18">
) L( x5 E) z; H$ a5 `, e5 i% A5 y<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
( X4 ~4 S2 }" }: S. Z6 G</tr> 9 e: m: ~8 r) \! p7 W' B
<tr height="18">
# f. _7 ]: q4 J; _& y<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td> , R9 H$ V: s9 s- _; X2 ^
</tr>
$ ~( L( C: T/ k, B7 J</table></center></div>
8 m7 ^( m5 U+ W) r7 g- L( j<!-- Fin Preview --> ) ?2 X T/ n) ], l4 p
</td> 5 {/ }: ?5 c& f
</tr> ; O" C5 b( b+ ~
<tr height="32"> , |; }: H5 X3 j- K6 G; p/ l
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>得分</td> & m4 O5 I+ \ P4 ]
</tr>
$ ~% H) _8 I+ Q0 p0 ]# b<tr height="32"> $ j- q( D9 v0 l) u
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td> ( j) F Q; [* [, X
</tr> ! D6 G' l2 n# m& ~
<tr height="32"> 6 f$ L: P* b$ ~' q0 U" p" k7 d! Q$ ^. G
<td ID="In01" align=center bgcolor="#009900" class=normal onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>水平</td> $ {; d& {9 p, Z0 ^* d' s; z7 T
</tr>
. ?' N* J. v. r<tr height="32">
& I% Z7 \, P; }! t3 h% x6 N6 \' U<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td> 0 T! B* p! n x% D
</tr> 7 S q' G6 D: a1 m6 {1 d3 h4 W
<tr height="32">
) J$ n; c$ b! @<td ID="In05" align=center bgcolor="#009900" class=normalh onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>块</td> + x' Q& M) j3 S6 A0 ?
</tr> : u; R8 p1 @5 ?) R6 p
<tr height="32">
8 c, x1 i3 ?, L0 l! H+ G<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td> ) {1 O7 k, J5 W
</tr>
' ]4 b% h: H) e! }8 | E<tr height="32"> . R4 C) y# y9 f5 f' M# V# E
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>开始</td> 2 r9 D/ _. a( e! P
</tr>
2 M9 e% }9 x$ C! J4 a<tr height="32"> ; S& A$ b" X6 n% H
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>结束</td> \- T4 y, |' ]. ~0 D, o- Q
</tr> - ]2 J( _/ _0 D: H/ j& D* j9 R3 p, b
<tr height="38"> & n$ E2 a; ?( b8 m6 H- v
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmouseover=Mmove(“I“) onmouseout=Mmove(“O“)>关闭窗口</td>
! D5 h5 q1 [* Z' y7 i1 E# ]+ z* k</tr> : Z- \/ L* j1 V3 P% Q! r' G
</table>
) h5 ^ w$ G7 s$ i- y8 w</td></tr></table></center></div>
/ x. Y0 ~ p, M" _2 o* m0 `9 F</BODY>
+ {$ D5 y0 g# L/ m& b6 ^<SCRIPT LANGUAGE=vbscript> % l- |( o$ s' S1 B v+ i5 Y- S* q+ b9 \
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver ) j( _! {4 Q6 s) r" Z# C8 h m
Dim hs(),sor(),hsant(),n(),s(),s2(),s3() 6 u4 f; k& J" ?6 z- ?2 p8 @- U
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) 7 R: |* M/ H1 T& G" d+ e( I
LevlIni = 1 2 k2 }. l: y3 ^
Pausa = False ; l9 J2 U# f# Y2 y. {
HastIni = VelLevel(LevlIni)
+ Q% h# d3 W6 eHast = HastIni * I+ V6 z7 _7 B3 i1 g
Levl = LevlIni ) T' r$ D; a: h. W
Pos = Levl - 1
, N% y0 Y0 R* i# Q3 o; o8 x* I" T& ~ColorForm 4 z0 O# `3 w1 m8 {7 O% X$ o) W. T5 j
GOver = false
6 D5 Z6 z5 }! x- V, rfunction Iniciar(ind)
1 D: m) z7 C: o# z" ?if ind = "i" then - G3 b& F, l. F& y
score = 0
* @! c6 ?8 c" y, K; U( |* v$ O3 YGOver = false * b- L3 {" ]+ x* {3 Q* e4 _: j
Hast = HastIni
4 k0 T& S8 u4 C# o! iLevl = LevlIni
a+ \7 M' Z: |- nPos = PosLevel(Levl)
/ Q( ]5 ~' a5 ]' `$ GFor i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next 7 T7 d2 f1 d: n0 t D
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next ) p- {% N, U% r' M& j: Z' W
Timer1 = window.setInterval("Andar()",Hast)
) Y& p4 G8 r, d1 aColorForm . t% s1 U( a* v' U* H
Fig2 = 0
N ~& H/ v3 v3 N% z0 B6 X# `Nyfig
1 [: y; ^1 y& [! |. C0 celse
* V! m* ?0 C2 L) o$ pwindow.clearInterval Timer1 % \3 Q7 `0 _% O" C6 d- u
end if 1 q' b6 u% D& v7 d; D( k
end function
3 [4 ~- P e- zSub Nyfig()
& W- R8 d5 h2 G& `3 x7 T1 YPos = Pos + 1 # R: ]# g( j( G3 P
document.all("In06").innertext = Pos
4 B9 j0 H5 C- F9 b" L( X+ rSelect Case Pos
8 Y% ^ h6 e7 X7 l6 u0 j4 t, l, i: ]Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
! n+ [# ~9 c# N5 c; V) }/ ~4 ICase 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
' J4 T# L2 I* l! d& \& PCase 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl / L% k8 A' O: i5 U, X. h; p
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl 7 P$ l) |0 c/ J
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
4 i! Y2 e. u5 V$ KCase 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl . _$ U# b/ P1 B
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl 3 U5 i; P, } }5 \! k. X* I
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl ' Q, R& a6 T0 t# X1 E, Z0 e4 m
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl 8 f" H s; @' @: }5 r0 q6 z
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
/ v$ S# h1 Q1 L; K0 \! tEnd Select
6 k5 u; G2 l1 jwindow.clearInterval Timer1 + q K" A5 b! S6 c+ r: R( L0 \
Timer1 = window.setInterval("Andar()",Hast) # j' l" ?) v4 C; b; q
Fig = Fig2
- j& l; a/ w7 H0 {Farg = Farg2
% P+ T5 a9 s4 E& m& L! j" o9 XFig2 = Int(Rnd * 7) + 1 0 c! m. R& M- v* x' r8 M2 c) j6 L T
X = 4 5 B/ `/ x3 f" @( Z2 R1 {! A
Y = 26
0 Z3 s( t r, l4 s& a4 ]4 D, IRot = 1
5 W4 W' o" P" tFor i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
0 e* E* r6 z- r' _) D3 nSelect Case Fig2
- Q' V. W1 {( A2 _9 yCase 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000" # j9 b1 K: x, n& }: Z
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
' O, |) o% E4 }& k+ lCase 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900" ! M% x( O$ }0 v( k( s
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
& ^3 J2 m* c$ J6 p7 Z+ l8 PCase 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC" 6 U) I; m# O( T3 R e
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF" ( t# E8 U9 v1 \, ]! M: `* \# {
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC" + t( p) X; r5 {$ Y4 F9 u- V9 x
End Select
- l* m! K; s0 N1 v# b& x7 S0 P6 vFor i = 1 To 4 7 e+ t+ b( ?$ h# R, r5 f4 i+ p
For i2 = 1 To 3 L5 Y1 [2 L0 Y
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000" * a5 x" w Y$ u* X1 n8 w$ ^4 X" U" K
If s2(i, i2) = True Then + ?; C* i- P3 \7 M% u' E* X
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
# U2 q3 T) r8 l4 W" b/ `5 dEnd If 3 g5 T. `% D( @# H2 H
Next
2 k# |4 w5 ?; O# oNext 2 O( x' X' |3 m- U4 b$ i; D
End Sub
5 D8 C4 x3 x: j1 p' |Function PosLevel(Lev)
0 ~9 \ p3 m T% Q! ~' fSelect Case Lev 4 P* L, n4 d. s3 c0 ]/ ~$ }: W" ]
Case 1: PosLevel = 1 8 X8 e( O8 K( h2 `
Case 2: PosLevel = 51 $ F) i: U# G: Z3 T( H4 |. p5 g- t
Case 3: PosLevel = 81 6 R9 G4 A: A% X) \' S2 v& ~
Case 4: PosLevel = 111
" W9 ^) G8 B* L# y: j8 ACase 5: PosLevel = 141
* c$ ]. t5 r7 b! v1 V uCase 6: PosLevel = 181 / _ S/ D0 O" w% F: \
Case 7: PosLevel = 221
) u3 Z. C. L3 H4 c( V/ cCase 8: PosLevel = 261 1 I3 E/ E6 G' V' h( W# C5 q# h! V
Case 9: PosLevel = 301 ' {7 |4 |: _- @( B- Y
Case 10: PosLevel = 341 2 F1 h l) o6 v3 [5 A M1 J+ Z ^
End Select
% O" I% w2 j4 E) E7 ~9 qEnd Function 1 x& c$ @0 @' n1 X% K
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
J1 Y7 _2 J! H) U" RFunction VelLevel(Velo) & C, l+ I0 O# c
Select Case Velo
" k5 A5 D6 e) b& {, m2 u/ fCase 1: VelLevel = 500
! h& K6 X0 e3 Z1 A6 aCase 2: VelLevel = 450 * u5 r7 f- J, e" Z+ z0 c8 e/ I
Case 3: VelLevel = 400
% d$ e# o2 {* ~1 Y5 h9 YCase 4: VelLevel = 350 ) c0 s6 O" @- ?8 i
Case 5: VelLevel = 300 # x) m- o& U u' Z- E
Case 6: VelLevel = 250
, g, H- O/ h& n3 L; T CCase 7: VelLevel = 200 ! B; K- p2 W/ V& _4 e
Case 8: VelLevel = 150
# b6 _1 i9 J1 s) X j% pCase 9: VelLevel = 100 : d2 U" |# }3 B0 T/ E+ d
Case 10: VelLevel = 50 7 F" O+ w$ P* ^- M% g$ Z6 a! @: Z
Case 11: VelLevel = 10 3 `, ~) g7 S9 S& ~
End Select ( I& ^3 e/ u& ?/ f) N
End Function ' a: J. y% H' t( K: s
Sub ColorForm() ! |% d- _4 q) M8 h
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next : W6 `4 Y( |! P6 ~8 s& G& n
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
4 h$ F- ~) t4 C. ^ xEnd Sub
7 @* T/ }6 {8 W0 Z' g$ S0 pfunction Andar() ! b4 y6 G* g1 q c0 Q
For i = 1 To 4
( Z# F' |: W6 y' U$ yFor i2 = 1 To 4
5 U* T" n" `1 nIf s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
! L- {; T9 r V9 q! UIf Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then . _7 E: G9 z9 V7 i- N" {/ }
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0 ' K' b* j2 e* Z
End If
( x5 t8 V' H; ZNext
2 Y/ d% U |. u# o* E& K! T6 J9 wNext
0 `4 Y9 u' b6 \5 |% F5 p6 z' Z$ JIf Fig = 0 Then
' W/ h0 E7 ~9 r4 G* N/ tFor i = 1 To 4
- z- ?1 q% O8 L, E) k; q oFor i2 = 1 To 4 + I7 v' e% g2 m5 H! N: {* D% E7 b
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True $ p7 ^* P V3 |1 k
Next # g0 v# u. T; J8 N I
Next ) I8 u' |. I* q! e f! b
Ner . p5 F2 b3 G6 I0 X: E+ P' E
Nyfig
$ E S6 m M& qElse
3 q- W; z* w; h' f$ lFor i = 1 To 4 7 [9 U5 |3 e' ~# L6 G6 ~
For i2 = 1 To 4
4 q, N, O' r) \" l, g" k' [If s(i, i2) = True And s(i, i2 - 1) = False Then . O P# V- f+ Q+ x9 r; d" E6 G# A
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" # t, f! h/ A. z" Y) l# I4 ^8 R9 P
End If
4 q# w8 t( S& k( oNext
d/ K2 I: j. h. N( M5 N+ {- nNext
4 B- A8 r* I7 Z1 |End If ' z9 B) B" i: Q- d g# Q
Y = Y - 1
2 B* P+ k) o nFor i = 1 To 4 , ~: l2 x i) Q! h
For i2 = 1 To 4
5 Y/ Z- B7 |9 S0 i9 ~If s(i, i2) = True Then 1 K* `4 y$ j1 W8 s+ G
if not gover = true then 3 N9 ~2 Q- V5 A) u- t
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
' e+ E1 S1 D$ I% C3 z5 e; AGameover ' t( p, w- I! G
end if - y) g. q; K) U( S ^5 a" {: q( j3 j
end if ) m$ c0 N( x$ s* `5 z; r
End If
! a I9 U8 n6 ]/ q- hIf s(i, i2) = True Then 2 T+ s. T5 _" \$ y; K7 h, b
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
5 ?/ o/ w5 `7 H! c9 oEnd If
' M# N8 K' a6 c* n* Y9 h' _9 a8 {! FNext & j- d7 p# @( u
Next
4 v; B1 ]) b1 x' |4 G' @0 Nend function
( J( E7 P. \% t" G* K5 D$ ]Sub Gameover()
+ ]3 U' q; |/ T. n' q$ j( nMsgBox "游戏结束!", , "俄罗斯方块"
$ v* Q' ]! l% f3 |3 P& ^' `( owindow.clearInterval Timer1 ( i+ [ }0 ^) a5 _$ Z
GOver = true - t) q, {1 `3 f2 j2 ~ e6 _" T
End Sub
% q+ g3 q5 T9 c7 @Sub Ner() % x. V& e4 r% j6 Y: {0 `
Score = Score + 10
+ j3 {* r6 N1 }" \- M" ddocument.all("Sco02").innertext = Score
/ l) J) b: Z+ C, R3 ?0 eFor i2 = 25 To 1 Step -1
4 @# ^- t9 W- m2 R5 W+ O9 m- j+ A% lok = 1 ( U7 r/ @" \- |2 K
For i = 1 To 10 % t8 P5 i2 S/ K7 n. I0 ]
If n(i, i2) = False Then ok = 0 # G% L A3 C& ?; d, n; \: j
Next " l C5 }8 @- t! N. f
If ok = 1 Then
# R0 A* S( T$ R; A% h2 gScore = Score + 150
1 L9 X) K& r/ U, U0 b3 |% Xdocument.all("Sco02").innertext = Score
1 d' d; q& w: a: {; ^* t5 KFor i = 1 To 10 $ w+ O( ^5 R, b1 w
For i3 = i2 To 24 " J: Z. v6 _! x, [* J ~
n(i, i3) = n(i, i3 + 1) + O6 A7 V& t8 \. x" d; O: k
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor 0 p9 Y: _% K4 H. D( j' H
Next
6 W/ s4 a+ m0 Z1 x* X# KNext
0 |& C ^: d( P3 G. iEnd If
- r1 }( E/ \/ O. J7 S& k3 @. q/ mNext
+ L% q; B/ w# G1 A$ I# }3 XEnd Sub
1 W3 R% A) F- u1 s% _6 t: DFunction coor(xx, yy) / ^ K/ s4 Y4 p) [) ~4 `! i7 t
coor = (yy - 1) * 10 + xx - 1 ; X4 p5 I' h- Y) O' y" \
End Function
- n. h/ F5 O0 `- }* xSub Rota() . g* l& t2 K) @9 ?5 d3 P7 K9 Q+ N
Rot2 = Rot + 1 2 [) F* q! Q, r8 u2 E
If Rot2 = 5 Then Rot2 = 1 # f* d" y* k4 I1 [
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1 ( J2 ~+ d& q7 n" {1 }% z" Q
For i = 1 To 4 ! @/ B% L( O/ K% L. y( i
For i2 = 1 To 4 # X; k8 m+ a8 }4 C
s3(i, i2) = 0 9 O9 H0 [' z( L! @
Next
* Z5 K' Q. X( r* pNext 1 S5 O" ]2 o4 s% p
Select Case Fig
6 f: b# t3 k3 V1 A+ H2 yCase 2
; P' s" g4 P- G2 X/ P/ }2 a# L" ]Select Case Rot2 . k. V( M* P% Y7 q- P: f+ ]9 o3 W; l
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
" T/ R7 \! y$ \" {Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
3 s$ q5 P* l! |* D7 J4 vEnd Select 8 D" F8 @: U& I) D4 i( d9 h
Case 3 3 s0 j4 I; S% d3 B- I! }2 X
Select Case Rot2 7 Z- W: T/ p- ^, D6 w% B
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True 6 P3 ]5 @% k! L7 P# M
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True # c W6 O! |! q! j3 m! y
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
8 @( L" ~+ ]) }Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True & f+ W$ s- \# O. s
End Select
: ]6 v) d8 e; Y3 nCase 4 7 o( E- C, K# Z
Select Case Rot2 : K( p" k8 v: A# n$ p
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True 2 A. E/ D5 U; o8 [; I
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True $ P( G7 {) f; `* U! s2 `1 z! I
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True 3 T0 a& y/ R* K! b2 b# h# f
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 8 C3 _$ Z: _( V2 D4 m
End Select
C+ N! k3 Q1 ]& e! e0 E8 n$ SCase 5 ' ]' {" B7 F; H5 }* W3 ]
Select Case Rot2 5 i5 t# D# V1 h& `
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
, N1 I5 ?: m2 oCase 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True 3 i+ S' ~ f, N
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True 8 Z3 N; A! w8 a j c+ F9 w2 a, H
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
6 d6 m5 p" ?8 zEnd Select
7 d. h, Y' o1 L a8 j' O# x* P' ACase 6
$ O% R; K2 a3 ~8 V" ]7 \" cSelect Case Rot2
0 X; o1 A! m) S ~Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
" j3 O0 {( j8 J" T, b: WCase 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
x$ o p. y `4 L; qEnd Select ; Y: x1 ^" ]6 A2 X6 q! r" v) b( ?% N
Case 7
& d7 I6 M; [; _: X1 e" [- Y5 c% F n6 lSelect Case Rot2
s' h+ n# u/ r0 m9 `Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True 9 m+ s$ f4 b+ Z6 o" Y1 e5 P
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True 8 x; P, S; l0 Z- w+ N
End Select $ g# H' {% v2 B% c3 g r
End Select
5 P7 Z$ [ Y+ n5 _$ Fok = 1 - n9 f% |4 j' ]9 e* b3 W% L
For i = 1 To 4
& G; i+ j8 Y3 G3 L7 m8 r" f9 HFor i2 = 1 To 4 . C4 @! K4 I8 } F# h, F" q' }
If s3(i, i2) = True Then
$ e4 W* N; X( }8 oIf X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0 1 M; H# |( F( v( J4 d
If ok = 1 Then 0 C7 h2 X! |! }) {3 B$ o
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0 0 ^ b/ Y4 ^; H! k! c6 V
End If 2 F" B7 e9 N, j0 f) Q
End If : S" P1 x K _$ k4 o
Next
: B7 R2 n" C4 C: `( `/ f, tNext
/ B1 S/ J/ h `. A; g9 w, S* n! vIf ok = 0 Then Exit Sub + ^- e0 v9 _# L
Rot = Rot2 ' Q6 z/ n! C: }2 S4 N
For i = 1 To 4 & v* ?( U. Q$ l' q
For i2 = 1 To 4
& o$ d1 M: l, X9 }6 ]& e, ^1 C( }If s3(i, i2) = True And s(i, i2) = False Then
- Y3 ?( L; O6 i, Bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 w0 F! @. X/ e7 g8 T9 z
End If
' T% h# ^" g. ^7 l3 JIf s3(i, i2) = False And s(i, i2) = True Then
; ?" L$ ]& s) Z1 vdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" % ]/ L$ z! N/ d* X0 `
End If 2 E6 c, X. x! o) B- o
s(i, i2) = s3(i, i2)
7 t* j# ?( D8 {3 w6 ]7 GNext * g# v# o7 V) e$ e. a8 ^" s% U
Next
+ W" l6 x* G. `1 DEnd Sub # f: j- G" d& `) A v H3 E/ \
Sub document_onkeydown 9 Z7 D: u1 b! m. ^; Z9 j1 a
If window.event.keyCode = 27 Then msgbox "Pause",,"TET" 6 ?: t( r9 O! ]7 t& B* l; ]$ \( ]) \
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d") " d8 S1 A- y ^0 u4 m
If window.event.keyCode = 113 Then iniciar("i")
9 h1 v/ [8 P# A K8 b7 V9 y6 vIf Not Pausa = True Then ) F0 U) a# ]# ]( l
If window.event.keyCode = 38 And Fig > 1 Then Rota Z2 \3 ^3 K r" t
If window.event.keyCode = 37 Then 7 p' D4 J1 I% j/ _2 |
ok = 1
% d- k! w* y, Z& a5 I* V. cFor i = 1 To 4
. L$ r$ [* W Q6 ^For i2 = 1 To 4
$ K2 r* m5 P1 j. i2 ^& qIf s(i, i2) = True And X + i - 1 - 1 > 0 Then % Q; L1 N* B% L3 q) B( @* I# V4 v" `% `4 O
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
; |: j* {0 L+ y" M; k: FEnd If
0 l! F6 b) `, M6 MIf s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
( ~6 X F8 @; V" s, z( b, y- [/ FNext
5 U" r* k& D5 u2 j1 WNext
. U' e. W# y. \: r' N3 YIf ok = 1 Then
2 W! f3 o4 R: E z3 iX = X - 1 - B. M5 Z0 l6 g' p( \
For i = 1 To 4 : l3 j. H+ [$ g0 a: Z7 h6 K0 a
For i2 = 1 To 4 # U f$ ]+ O& e: n5 X. J
If s(i, i2) = True Then
5 b$ R3 c& s6 Z# ]) _If s(i + 1, i2) = False Then u7 l/ N) M$ {$ p; r
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
6 L3 B& o: L1 Q7 [End If
9 c, J$ u$ g* Q& DEnd If ( d$ ?+ _ f+ l
If s(i, i2) = True Then 0 j0 n e/ W0 ?0 c7 q* @
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
5 o: ^/ q/ A9 l% }End If
( |& l ^7 j8 t, z( ~+ fNext
- {- T! Z3 `5 g4 A: ]Next * a% j0 I. G) W: @/ g/ _
End If
P6 f9 n; J; k" G+ `* T8 }: X% AEnd If : g' U$ F% e; t
If window.event.keyCode = 39 Then
- u8 V) h1 B2 t& l' [1 Y/ Iok = 1
$ }, `) b0 o! {' UFor i = 1 To 4
( u4 P, D# K; T6 E( z z" UFor i2 = 1 To 4
% W$ w) U' r8 ~6 X* {8 n4 k. l1 oIf s(i, i2) = True And X + i - 1 + 1 < 11 Then 0 M4 d1 Z1 b& b* F% g' y
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
+ }* L# K; s, }End If
9 v V N+ f! e$ A. p% ^9 L8 WIf s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
( B% j. J2 @, W9 M+ ~Next
9 l5 c c" T* `+ R8 }Next
' V1 A4 }5 T7 ?4 h1 GIf ok = 1 Then
' ?# [, B9 d5 j( Y# [. RX = X + 1
8 C. \. M" v# [ r" a6 |For i = 1 To 4
/ J+ G$ S F/ b2 D$ `0 \For i2 = 1 To 4 + n6 b3 I, K& H6 D- |& E
If s(i, i2) = True Then
, H' j9 @: F& q' D: I: bIf s(i - 1, i2) = False Then + K3 U8 l6 g3 c
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
2 W' Y& k$ L8 u6 q bEnd If
+ s8 N) n7 ~% }7 I) l; lEnd If ! ?; F6 V. u" N; A) P" D# y+ |
If s(i, i2) = True Then
8 y3 X" W/ ^; j0 K) Bdocument.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg O; M8 K1 p' `2 ^/ C; d* L
End If # ]% r% D6 [- R1 d" b, U
Next
1 q: u$ V0 d, T7 S! |Next
' \4 G4 K8 A4 q% t5 T/ e9 OEnd If
K/ h. b+ E- W3 R- n, e0 CEnd If
1 K% b, t! B X8 G, s“Aqui
2 z) t. d: Q8 h3 IIf window.event.keyCode = 32 Or window.event.keyCode = 40 Then 4 C$ ~1 f _2 a# P
If Fig > 0 Then
! J7 E4 Z' j, W" X( d! EFor i = 1 To 4
2 K* X* f1 J W! O* \. l4 |3 {For i2 = 1 To 4 7 ~$ }6 F9 r! T; a3 l
If s(i, i2) = True Then
) A5 b, ?5 \& j5 S2 _4 \document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000" 3 G5 w& g( S+ M4 ^ V) j6 g4 h
End If
- D) E ~5 r- XNext
# p& B* c! S) d, O' U1 Q: P! oNext # Z$ U' k9 e/ c
Do & F& r& ?* V6 _. v
Y = Y - 1 " s$ ?# g4 Q' n3 Q
For i = 1 To 4 $ {. n$ ]& u. i! s" ?1 `
For i2 = 1 To 4 3 E9 c1 X3 h% `. n
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0 9 c' p1 M/ l) C" y* B& o9 e
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
- ^2 t" Z+ h/ W- O' z' RIf s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
- [* E- Y+ n V { }End If 7 h8 c( r8 S$ Q# `4 _) W' u; i, T
Next
" X9 B4 ~, m/ ANext 3 b. x1 |, o# l1 c8 p
Loop Until Fig = 0 4 ]1 _& y h. x
For i = 1 To 4 6 R2 G" g- n# C K& n/ J' O" ?
For i2 = 1 To 4 2 A7 h) T- c5 H3 l' Q2 u2 y
If s(i, i2) = True Then : L5 T0 o) w8 U& O3 h; u4 S% [* y
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg 3 m$ ?7 O0 P+ N, x% k: M S
End If
+ r0 ^5 H! m8 D& D( Z3 V: T+ w0 vIf s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
8 m. d" l; ^" fNext - `7 v" l ]4 t) D
Next ) a' {& [- F4 f7 X! U" s! R0 l
End If
) D* F& {" i' CEnd If ' R, V/ `' I6 d
End If 8 h5 @# I0 @! A" }. B$ s" u# G
End Sub
3 y5 i( v$ o; G# x8 l: [function Mmove(Index) $ I' a- C' `6 |0 o( y
if index = "I" then 5 K$ l3 K$ V, ]4 r- y6 Y m
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
; Z) s$ a0 c. w W) A* Z# ]2 j$ X& jdocument.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC" 4 a- k6 \, \# Y- e6 R( }* J$ i
else ; E+ u# n0 ~) ]
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH" ! ]1 N, V# ]" F' N. Y4 a# ]( G
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900" ; B! q4 R# x" }% g; ` z) @
end if , S& d. }) K; M% p
end function
$ E! `: g6 W7 l! t</script>
; A, Q" t" B- k/ W" s! @) ^1 V</HTML>
: ]/ H1 K% u" u: R<%End If%> |
|