用vbs实现的连连看在线游戏

在线演示
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>连连看_www.jb51.net_我们</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=VBScript name=VI60_defaultClientScript>
<META content=charset=gb2312>
<STYLE type=text/css>.mytb {
    FONT-WEIGHT: bolder; VERTICAL-ALIGN: middle; CURSOR: hand; COLOR: #FF6600; FONT-FAMILY: "Wingdings"; TEXT-ALIGN: center
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY>
<TABLE cellSpacing=0 cellPadding=0 width=800 align=center border=0>
  <TBODY>
  <TR>
    <TD>连连看游戏:将两个相同格子连接起来就会消失,看谁连的快,限时10分钟!</TD></TR></TBODY></TABLE><BR>
<TABLE borderColor=#000066 height=20 cellSpacing=0 cellPadding=0 width=600 
align=center border=1>
  <TBODY>
  <TR>
    <TD id=myproc1 borderColor=#0099cc width=0 bgColor=#000066></TD>
    <TD id=myproc2 borderColor=#0099cc width=600></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=400 align=center border=0>
  <TBODY>
  <TR>
    <TD align=middle width="30%">用时:</TD>
    <TD id=Showmytime align=middle width="30%"> </TD>
    <TD align=middle width="30%">秒</TD></TR></TBODY></TABLE>
<TABLE class=mytb borderColor=#0066CC cellSpacing=0 cellPadding=0 align=center 
border=1>
  <TBODY>
  <TR>
    <TD id=td_0_0 width=40 height=40></TD>
    <TD id=td_0_1 width=40 height=40></TD>
    <TD id=td_0_2 width=40 height=40></TD>
    <TD id=td_0_3 width=40 height=40></TD>
    <TD id=td_0_4 width=40 height=40></TD>
    <TD id=td_0_5 width=40 height=40></TD>
    <TD id=td_0_6 width=40 height=40></TD>
    <TD id=td_0_7 width=40 height=40></TD>
    <TD id=td_0_8 width=40 height=40></TD>
    <TD id=td_0_9 width=40 height=40></TD>
    <TD id=td_0_10 width=40 height=40></TD>
    <TD id=td_0_11 width=40 height=40></TD>
    <TD id=td_0_12 width=40 height=40></TD>
    <TD id=td_0_13 width=40 height=40></TD>
    <TD id=td_0_14 width=40 height=40></TD>
    <TD id=td_0_15 width=40 height=40></TD>
    <TD id=td_0_16 width=40 height=40></TD>
    <TD id=td_0_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_1_0 width=40 height=40></TD>
    <TD id=td_1_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_1_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_2_0 width=40 height=40></TD>
    <TD id=td_2_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_2_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_3_0 width=40 height=40></TD>
    <TD id=td_3_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_3_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_4_0 width=40 height=40></TD>
    <TD id=td_4_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_4_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_5_0 width=40 height=40></TD>
    <TD id=td_5_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_5_17 onclick=vbs:aaa(me) width=40 height=40></TD></TR>
  <TR>
    <TD id=td_6_0 width=40 height=40></TD>
    <TD id=td_6_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_6_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_7_0 width=40 height=40></TD>
    <TD id=td_7_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
      <TD id=td_7_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_7_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_8_0 width=40 height=40></TD>
    <TD id=td_8_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
      <TD id=td_8_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_8_17 width=40 height=40 ></TD></TR>
  <TR>
    <TD id=td_9_0 width=40 height=40></TD>
    <TD id=td_9_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40 
    height=40></TD>
    <TD id=td_9_17 width=40 height=40></TD></TR>
  <TR>
    <TD id=td_10_0 width=40 height=40></TD>
    <TD id=td_10_1 width=40 height=40></TD>
    <TD id=td_10_2 width=40 height=40></TD>
    <TD id=td_10_3 width=40 height=40></TD>
    <TD id=td_10_4 width=40 height=40></TD>
    <TD id=td_10_5 width=40 height=40></TD>
    <TD id=td_10_6 width=40 height=40></TD>
    <TD id=td_10_7 width=40 height=40></TD>
    <TD id=td_10_8 width=40 height=40></TD>
    <TD id=td_10_9 width=40 height=40></TD>
    <TD id=td_10_10 width=40 height=40></TD>
    <TD id=td_10_11 width=40 height=40></TD>
    <TD id=td_10_12 width=40 height=40></TD>
    <TD id=td_10_13 width=40 height=40></TD>
    <TD id=td_10_14 width=40 height=40></TD>
    <TD id=td_10_15 width=40 height=40></TD>
    <TD id=td_10_16 width=40 height=40></TD>
    <TD id=td_10_17 width=40 height=40></TD></TR></TBODY></TABLE><BR>
<BR>
<SCRIPT language=vbscript>
<!--

dim x,y
dim clickId
dim obj1,obj2,Flag1
dim Num1,Num2
dim mytime
dim Myrnd
dim x1,y1,x2,y2
Flag1=0
dim NumArray(10,17)
dim QuanArray(10,17)
dim LuJArray(10,17)
dim RTN,RTN1,RTN2
dim totalNum,lastNum
lastNum=0

'初始化数字数组开始
            for x=0 to 10
                for y=0 to 17                
                    numArray(x,y)=0
                    QuanArray(x,y)=0            
                next
            next
        '初始化数字数组结束

for x=1 to 9
            for y=1 to 16
                window.execScript "td_" & X & "_" & y & ".innerText =" & chr(34) & "0" & chr(34),"vbs"                
            next
        next

'随便放些数字开始        
        do 
                randomize
                RndX=cint(rnd*9)+1
                randomize
                Rndy=cint(rnd*16)+1 
                randomize
                 Myrnd=cint(rnd*30)+1 
                window.execScript "lastNum=td_" & RndX & "_" &     Rndy & ".innerText","vbs"

if lastNum="0" then
                    window.execScript "td_" & RndX & "_" &     Rndy & ".innerText =" & Myrnd,"vbs"
                    NumArray(RndX,Rndy)=Myrnd
                    totalNum=totalNum+1
                            do
                            randomize
                            RndX=cint(rnd*9)+1
                            randomize
                            Rndy=cint(rnd*16)+1 
                            window.execScript "lastNum=td_" & RndX & "_" &     Rndy & ".innerText"
                            if lastNum="0" then
                                window.execScript "td_" & RndX & "_" &     Rndy & ".innerText =" & Myrnd,"vbs"
                                NumArray(RndX,Rndy)=Myrnd
                                totalNum=totalNum+1
                                exit do
                            end if
                            loop                         
                end if
                 if totalNum=16*9 then exit do'如果生成了全部数字,那么退出
        loop
'随便放些数字结束

sub aaa(obj)
            for x=0 to 10
                for y=0 to 17    
                    QuanArray(x,y)=0            
                next
            next    
    if obj1=obj.id then exit sub    '如果选择还是相同那么认为没选,跳出本过程

Flag1=Flag1+1
    Flag1=Flag1 mod 3
    RTN=fase
    select case Flag1
    case 0'什么也没选

case 1
        obj1=obj.id
        Num1=obj.innerText
        obj.bordercolor="#ff0000"
        temarray=split(obj1,"_")
        x1=cint(temarray(1))
        y1=cint(temarray(2))
    case 2
        obj2=obj.id        
        Num2=obj.innerText
        obj.bordercolor="#ff0000"
        temarray=split(obj2,"_")
        x2=cint(temarray(1))
        y2=cint(temarray(2))
        if Num1=Num2 then    
        RTN1=CheckLink(x1,y1,x2,y2)

if RTN1=true then 
                Dispear x1,y1,x2,y2 
                Flag1=0    
            else
            '恢复
                    Flag1=0        
                    window.execScript "td_" & x1 & "_" & y1  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
                    window.execScript "td_" & x2 & "_" & y2  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
            end if                
        else
        '恢复
        Flag1=0

window.execScript "td_" & x1 & "_" & y1  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
    window.execScript "td_" & x2 & "_" & y2  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"

end if
    end select

end sub

function CheckLink(xx1,yy1,xx2,yy2)
RTN=false
        for x=0 to 10
            for y=0 to 17
                QuanArray(x,y)=0                
            next
        next
        QuanArray(xx1,yy1)=1
        RTN2=gogogogo(xx1,yy1)
    CheckLink= RTN

end function

function gogogogo(xx,yy)
'vartype(xx) & "!"& xx & "-" & yy & "*" & vartype(x2) & " !" & x2 & "-" & y2
'msgbox xx & "-" & yy
'if xx<=10 and xx>=0 and yy<=17 and yy>=0 then
    'window.execScript  "td_" & xx & "_" & yy  & ".innertext =" & chr(34) & "#" & chr(34),"vbs"
    'window.execScript  "td_" & xx & "_" & yy  & ".bordercolor =" & chr(34) & "#0000ff" & chr(34),"vbs"
'end if
if vartype(xx)<>2 then xx=cint(xx)
if vartype(yy)<>2 then yy=cint(yy)
if vartype(x2)<>2 then x2=cint(x2)
if vartype(y2)<>2 then y2=cint(y2)

if RTN=true then 
    gogogogo=true
    exit function
end if
if    (xx+1=x2 and yy =y2) or (xx-1=x2 and yy=y2) or (yy+1=y2 and xx=x2) or (yy-1=y2 and xx=x2) then'先判断四周是不是
            '连到了的选项
            gogogogo=true
            RTN=true        
            exit function        
else'这里是已经判断了四周不是

'向下开始
                        if xx+1<=10 then'是否碰壁
                            if not(xx+1=x2 and yy =y2) then'是否连到了
                                if numArray(xx+1,yy)=0 then '是否碰到了别的图片
                                    '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok!
                                    if (xx+2 =x2 and yy=y2) or (xx+1 =x2 and yy+1=y2) or (xx+1 =x2 and yy-1=y2) then
                                                '连到了的选项

gogogogo=true
                                                RTN=true

exit function
                                    else
                                    '这里是空地但是还没连上目标mm
                                        if QuanArray(xx+1,yy)=0  then'是否已经来过此地
                                            '连通空地,继续走继续朝前走的选项
                                            QuanArray(xx+1,yy)=1'撒尿标记:老孙从这个方向到此一游!
                                            RTN2=gogogogo(xx+1,yy)'继续去取经
                                        else
                                        '来过了
                                        end if                
                                    end if
                                else    
                                    '碰到了别的图片,和碰壁查不多
                                end if
                            else
                                '连到了的选项
                                gogogogo=true
                                RTN=true    
                                exit function    
                            end if
                        else
                        '碰壁了                
                        end if
                    '向下结束
                    '向上开始
                        if xx-1>=0 then'是否碰壁
                            if not(xx-1=x2 and yy=y2) then '是否连到了
                                if numArray(xx-1,yy)=0 then '是否碰到了别的图片
                                    '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok!
                                    if (xx-2 =x2 and yy=y2) or (xx-1 =x2 and yy+1=y2) or (xx-1 =x2 and yy-1=y2) then
                                                '连到了的选项

gogogogo=true
                                                RTN=true

exit function
                                    else
                                    '这里是空地但是还没连上目标mm
                                        if QuanArray(xx-1,yy)=0  then'是否已经来过此地
                                            '连通空地,继续走继续朝前走的选项
                                            QuanArray(xx-1,yy)=2'撒尿标记:老孙从这个方向到此一游!
                                            RTN2=gogogogo(xx-1,yy)'继续去取经
                                        else
                                        '来过了
                                        end if                
                                    end if
                                else    
                                    '碰到了别的图片,和碰壁查不多
                                end if
                            else
                                '连到了的选项
                        gogogogo=true
                                RTN=true
                                exit function    
                            end if
                        else
                        '碰壁了                
                        end if
                    '向上结束
                                        '向左开始
                        if yy-1>=0 then'是否碰壁
                            if not(yy-1=y2 and xx=x2) then '是否连到了
                                if numArray(xx,yy-1)=0 then '是否碰到了别的图片
                                    '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok!
                                    if (xx =x2 and yy-2=y2) or (xx+1 =x2 and yy-1=y2) or (xx-1 =x2 and yy-1=y2) then
                                                '连到了的选项

gogogogo=true
                                                RTN=true

exit function
                                    else
                                    '这里是空地但是还没连上目标mm
                                        if QuanArray(xx,yy-1)=0 then'是否已经来过此地
                                            '连通空地,继续走继续朝前走的选项
                                            QuanArray(xx,yy-1)=4'撒尿标记:老孙从这个方向到此一游!
                                            RTN2=gogogogo(xx,yy-1)'继续去取经
                                        else
                                        '来过了
                                        end if                
                                    end if
                                else    
                                    '碰到了别的图片,和碰壁查不多
                                end if
                            else
                                '连到了的选项
                            gogogogo=true
                                RTN=true    
                                exit function    
                            end if
                        else
                        '碰壁了                
                        end if
                    '向左结束

'向右开始
                        if yy+1<=17 then'是否碰壁
                            if not(yy+1=y2 and xx=x2) then '是否连到了
                                if numArray(xx,yy+1)=0 then '是否碰到了别的图片
                                    '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok!
                                    if (xx =x2 and yy+2=y2) or (xx+1 =x2 and yy+1=y2) or (xx-1 =x2 and yy+1=y2) then
                                                '连到了的选项

gogogogo=true
                                                RTN=true

exit function
                                    else
                                    '这里是空地但是还没连上目标mm
                                        if QuanArray(xx,yy+1)=0  then'是否已经来过此地
                                            '连通空地,继续走继续朝前走的选项
                                            QuanArray(xx,yy+1)=3'撒尿标记:老孙从这个方向到此一游!
                                            RTN2=gogogogo(xx,yy+1)'继续去取经
                                        else
                                        '来过了
                                        end if                
                                    end if
                                else    
                                    '碰到了别的图片,和碰壁查不多
                                end if
                            else
                                '连到了的选项
                        gogogogo=true
                                RTN=true
                                exit function    
                            end if
                        else
                        '碰壁了                
                        end if
                    '向右结束

end if                    
end function

sub Dispear(xx1,yy1,xx2,yy2)'处理消失的模块
        window.execScript "td_" & xx1 & "_" & yy1  & ".innerText =" & chr(34) & chr(34),"vbs"
        window.execScript "td_" & xx2 & "_" & yy2  & ".innerText =" & chr(34) & chr(34),"vbs"
        window.execScript "td_" & xx1 & "_" & yy1  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
        window.execScript "td_" & xx2 & "_" & yy2  & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"            
        NumArray(xx1,yy1)=0
        NumArray(xx2,yy2)=0

end sub

'5分钟
eee
dim Succed
sub eee()
Succed=true
    window.setTimeout "eee","1000"
    mytime=mytime+1
    Showmytime.innerText=mytime

if mytime>=10 * 60 then
        msgbox "抱歉,10分钟时间已经到了!重来"
        window.location.href ="link.htm"
        else
        myproc1.width =mytime
        myproc2.width =600-mytime
    end if
    for x=1 to 9
            for y=1 to 16
                if NumArray(x,y)<>0    then
                Succed=false
                exit for
                end if            
            next
            if NumArray(x,y)<>0    then
                Succed=false
                exit for
                end if
        next        
        if Succed=true then    
            Succed=false
            msgbox "恭喜你,辛苦了!,你用了" & mytime & "秒时间,继续!"        
            window.location.href ="addlink.asp?time=" & mytime
        exit sub
        end if
end sub
Sub document_onselectstart
document.selection.clear
End Sub
-->
</SCRIPT>

<P id=ppp></P></BODY></HTML>

(0)

相关推荐

  • 使用非html5实现js板连连看游戏示例代码

    向大家分享一款如何实现js版连连看游戏,如下图所示: 首先看一下html的布局方式在index.html文件中: 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head> <meta http

  • 用javascript做一个webgame连连看大家看下

    最后成品代码写的仓促,没有容错,封装也不合理,只实现了核心部分,其他部分,喜欢添加的旧添加吧. 下面就开始我的教程(姑且算是教程吧,草草写点吧,时间太少,大家原谅) 以最高难度游戏级别作的分析. 第一步,大体分析 看看游戏主要包含哪些元素,发现3部分,一些成对的图片块,一个能盛图片块的方盘容器,一个能连接两个图块的线. 第二步,元素分析 图块:图块一共有32种不同的图案,每种图案4张,图块会相应鼠标的点击,图块会消失,图块有高度和宽度. 方盘:能承载128个图块,2维承载,横向16块,纵向8块,

  • javascript 连连看代码出炉

    0 && TmpInt0 && TmpInt0 && TmpInt0 && TmpInt"; for(j=0; j"; for(i=0; i"; } else{ TmpInt--; Matrix[i][j] = 1 + Math.floor( PicMax * Math.random() ); if(TmpInt"; //添图片(webdings图标) TmpStr += String.fromChar

  • 原生JavaScript实现连连看游戏(附源码)

    向大家推荐一款原生JavaScript版连连看游戏,源码下载,首页如下图所示:  首先看一下html的布局方式在index.html文件中: 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html> <head>

  • Python 连连看连接算法

    功能:为连连看游戏提供连接算法 说明:模块中包含一个Point类,该类是游戏的基本单元"点",该类包含属性:x,y,value. 其中x,y代表了该点的坐标,value代表该点的特征:0代表没有被填充,1-8代表被填充为游戏图案,9代表被填充为墙壁 模块中还包含一个名为points的Point列表,其中保存着整个游戏界面中的每个点 使用模块的时候应首先调用createPoints方法,初始化游戏界面中每个点,然后可通过points访问到每个点,继而初始化界面 模块中核心的方法是link

  • 用vbs实现的连连看在线游戏

    在线演示<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>连连看_www.jb51.net_我们</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <META content

  • 在线游戏大家来找茬II

    在线游戏大家来找茬II-我们整理从网上看到一个在线的游戏是asp版的,看到官方网站是html的,所以就弄了一份.大家可以玩试试,要的给我留言啊 大家来找茬II

  • python递归法实现简易连连看小游戏

    问题:简单版连连看小游戏 一个分割成w*h个正方格子的矩形板上,每个正方格子可以有游戏卡,也可以没有游戏卡 两个游戏卡之间有一条路径相连需满足以下三个条件: 1.路径只包含水平和垂直的直线段 2.路径不能穿过别的游戏卡片 3.允许路径临时离开矩形板 输入要求: 第一行包括两个整数:w 和 h ; w:矩形板的宽度,h:矩形板的长度 下面h行,每行包括w个字符,表示矩形板上卡片的分布情况:'X'代表这个地方有卡片:'O'代表无卡片 之后一行包括4个整数:X1,Y1,X2,Y2(1<=X1,X2<

  • 利用Matlab编写简易版连连看小游戏

    这是一款MATLAB连连看小游戏,基本实现了连连看的功能,不过目前没有写出死局判定的模块,日后可能会对其进行改进. 游戏截图 游戏组装说明 我们的变量path输入的是图像包的相对路径或绝对路径 这里我们由于文件夹名称就叫“图片”所以直接path='图片’是没啥问题的. 文件夹里就是图片素材啦,其名称没有任何要求,形状最好是方的,不过不是的话问题也不大,程序会自动将其拉伸成方的........ 我们这里要求的是读入jpg格式,想要png,jpg都读的话,.....最简单的就是直接读两次 完整代码

  • java实现简易连连看小游戏

    本文实例为大家分享了java实现简易连连看小游戏的具体代码,供大家参考,具体内容如下 新手上路,分享一下 直接上代码 package linkgame; import javax.swing.*; import java.awt.*; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.awt.event.WindowAdapter; import java.awt.event.

  • JavaScript编写连连看小游戏

    天天看到别人玩连连看, 表示没有认真玩过, 不就把两个一样的图片连接在一起么, 我自己写一个都可以呢. 使用Javascript写了一个, 托管到github, 在线DEMO地址查看:打开 最终的效果图: 写连连看之前要先考虑哪些呢? 1:如何判断两个元素可以连接呢, 刚刚开始的时候我也纳闷, 可以参考这里:打开: 2:模板引擎怎么选择呢, 我用了底线库的template,因为语法简单. 本来想用Handlebars,但是这个有点大啊, 而且底线库也提供很多常用工具方法( •̀ ω •́ )y:

  • 易语言制作连连看小游戏的代码

    图片资源表 .版本 2 .图片 卡通 .图片 横线 .图片 竖线 .图片 左上 .图片 右上 .图片 左下 .图片 右下 .图片 苹果, , 背景图 连连看的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 显示图片, 字节型, , "0" .程序集变量 上次移动, 字节型 .程序集变量 上次点击, 字节型 .程序集变量 横数, 字节型 .程序集变量 竖数, 字节型 .程序集变量 图片数, 字节型 .程序集变量 可消除, 文本型, , "0" .程序集变量 剩

  • 用Java实现连连看小游戏

    很多人写游戏都是从连连看或者五子棋这类的简单小游戏入手的,最近我也尝试着写了一个连连看,想要再梳理一遍其中的思路. 连连看的规则 连连看要求在一定范围内找到两个特征一样并且能够通过空白的通道在两折(直角)以内相连的东西,连续点击两个东西之后消除.通常我们会选择用图片来进行匹配,这样更直观有趣. 如何存储连连看的数据 使用二维数组进行存储,每一个数组元素对应一个位置上的图片种类.例如我们分别用1,2,3,4代表四个不同的图片,用0代表没有图片:那么二维数组{{},{},{},{}}就相应地存储对应

  • java实现连连看游戏

    本文实例为大家分享了java实现连连看游戏的具体代码,供大家参考,具体内容如下 代码会实现共享的,这个是截图 代码: package com.lr.bean; import java.util.Scanner; import java.util.Random; import com.lr.bean.Point; public class Link{ public static void main(String[] args){ Scanner sc=new Scanner(System.in);

  • C语言构建连连看游戏(矩阵方式)

    C语言构建连连看游戏的具体代码,供大家参考,具体内容如下 设计要求 用数字+英文字母,采用文本输出的方式.每次输出一个8*10的矩形,然后等待玩家输入两个数字或字母的坐标,如果满足消除规则就输出新的矩形. 注意:考虑类似迷宫的处理方式,在8 * 10矩形之外加一层空心围墙,可以用来连接.大家体验一下连连看游戏就可以发现这个规则.判断是否能连,用的是10 *12的数组,最外层添加的是空格,可用来辅助连接. 分析 大纲(简化): /**********************************

随机推荐