vbs_javascript 기술을 사용하여 구현된 Lianliankan 온라인 게임

온라인 데모 ; Lianliankan_www.jb51.net_Script 홈 .mytb { FONT-WEIGHT: VERTICAL-ALIGN: middle; : 손; #FF6600; FONT-FAMILY: "Wingdings"; TEXT-ALIGN: 중앙 } ; TR> Lianliankan 게임: 두 개의 동일한 그리드를 연결하면 누가 더 빨리 연결할 수 있는지 확인하세요. 제한 시간은 10분입니다!

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) 또는 (xx-1=x2 and yy=y2) 또는 (yy 1=y2 and xx=x2) 또는 (yy-1=y2 and xx=x2) then' 먼저 판단하세요 gogogogo=true 에 연결된 주변에 옵션이 있나요? 주변 지역이

이 아닌 것으로 확인되었습니다. 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 '다른 사진의 경우 '이곳은 열린 공간입니다. 열린 공간의 나머지 세 면이 대상 사진과 연결되면 끝! and yy=y2) 또는 (xx 1 =x2 and yy 1=y2) 또는 (xx 1 =x2 and yy -1=y2) 그런 다음 ~ > 기능 종료 > =0 then'여기 와본 적이 있나요 옵션 Quanarray(xx 1, yy) = 1 'Pelement label: 라오선은 이 방향에서 옵니다! 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) 또는2 또는2 또는2) (xx-1 =x2 및 yy-1=y2) 그런 다음 종료 기능 else '이곳은 열린 공간이지만 아직 목표 mm에 도달하지 못했습니다. 여기 전에 🎜> 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 '是否碰到了别的图片 '이곳은 열린 공간이고 나머지 3면이 대상 사진과 연결되면 끝