Lianliankan online game implemented using vbs_javascript skills

Online Demo Lianliankan_www.jb51.net_Script Home .mytb { FONT-WEIGHT: bolder; VERTICAL-ALIGN: middle; CURSOR: hand; COLOR: #FF6600; FONT-FAMILY: "Wingdings"; TEXT-ALIGN: center } Lianliankan game: connect two identical grids and they will disappear. See who can connect faster, time limit is 10 minutes!

align=center border=1> 用时： 秒 border=1> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40> height=40>

<!--

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 =0 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' judge first Are there any options around connected to gogogogo=true It has been determined that the surrounding areas are not

if xx 1 & lt; = 10 then 'touch the wall if not (xx 1 = x2 and yy = y2) then' to if numarray (xx 1, yy) = 0 then ' When it comes to other pictures 'This is an open space. If the other three sides of the open space are connected to the target picture, then it's over, ok! and yy=y2) or (xx 1 =x2 and yy 1=y2) or (xx 1 =x2 and yy-1=y2) then to exit function If QuanArray(xx 1,yy)=0 then'Have you been here before Option using using use ’s ’ ’s ’ ‐ ‐ ‐ ‐ ‐ ‐ ‐‐ ‐ ‐ ‐ ‐ 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 '是否碰到了别的图片 'This is an open space. If the remaining three sides of the open space are connected to the target picture, then it is over, ok! (xx-1 =x2 and yy-1=y2) then exit function else 'This is an open space but the target mm has not been reached yet. Been here before 🎜> 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 '是否碰到了别的图片 'This is an open space, if the other three sides of the open space are connected to the target picture, then it is over, ok!