vbs_javascript スキルを使用して実装された Lianliankan オンラインゲーム

オンライン デモ ; Lianliankan_www.jb51.net_Script ホーム content=VBScript name=VI60_defaultClientScript> FONT-WEIGHT: 太字; : ハンド; COLOR: #FF6600; TEXT-ALIGN: 中央 } TR> 連蓮館ゲーム: 2 つの同じグリッドを接続すると、どちらが早く接続できるかを競います。制限時間は 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) or (xx-1=x2 and yy=y2) or (yy 1=y2 and xx=x2) or (yy-1=y2 and xx=x2) then' まず判断します に接続されているオプションはありますか? gogogogo=true 周囲の領域は

if xx 1 & lt; then 'touch the壁 if not (xx 1 = x2 and yy = y2) then' to if numarray (xx 1, yy) = 0 then ' 他の写真に関しては 'ここはオープンスペースです。開いた空間の他の 3 辺がターゲットの画像に接続されていれば、完了です。 および yy=y2) または (xx 1 =x2 および yy 1=y2) または (xx 1 =x2 および yy) -1 = y2）その後、 quanarray（xx 1、yy）= 0の場合は

を終了します。 ‐ ‐ ‐ ‐ ‐ ‐ ‐ ‐ 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 '是否碰到了别的图片 「これはオープン スペースです。オープン スペースの残りの 3 辺がターゲットの画像に接続されていれば、完了です。(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 つの辺がターゲットの絵に接続されたら、終了です。 OK!

vbs_javascript スキルを使用して実装された Lianliankan オンライン ゲーム

vbs_javascript スキルを使用して実装された Lianliankan オンラインゲーム