<style>
*{background-color:#F5EFE8}
#d1{width:300px;height:300px;border:1px solid gray;text-align:center;padding-top:5px;background-color:aliceblue;}
#d2{font-size:12px;}
#d3{position:absolute;bottom:0px;right:0px;}
</style>
<hta:application scroll=0 innerBorder=0 />
<title>推箱子</title>
<BODY>
<div id=d1></div>
<div id=d2></div>
<div id=d3><a href="http://tieba.baidu.com/f?kz=1078528829" title="mjs1wh写的,改写成了hta">about</a></div>
<script language="VBScript">
window.resizeTo 338,395
Dim [前景](15, 15),[背景](15,15),[推x],[推y],[推]
[关卡]
[显示]="" : [空位]=0
[显示画面]
d1.innerText=[显示]
d2.innerText="用箭头将所有■推到□处，"&chr(10)&"最后一个□用箭头占领"&chr(10)&"w上、s下、a左、d右"
document.body.onkeydown=GetRef("onkeydown")
Sub onkeydown()
if [空位]=0 then msgbox [显示] & chr(10) & "恭喜你过关！"
Select Case window.event.keyCode
Case 37:[左]
Case 38:[上]
Case 39:[右]
Case 40:[下]
Case 65:[左]
Case 87:[上]
Case 68:[右]
Case 83:[下]
End Select
[显示]="" : [空位]=0
[显示画面]
d1.innerText=[显示]
End Sub
sub [显示画面]
For j = 0 TO 15
For i = 0 TO 15
[显示]=[显示] & [前景](i,j)
if [前景](i,j)="□" then [空位]=[空位]+1
next
[显示]=[显示] & chr(10)
next
'[显示]=[显示] &
End Sub
sub [上]
if [前景]([推x],[推y]-1)="■" and ([前景]([推x],[推y]-2)="∷" or [前景]([推x],[推y]-2)="□") then [前景]([推x],[推y]-2)="■":[前景]([推x],[推y]-1)="↑":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]-1
If [前景]([推x],[推y]-1)="∷" or [前景]([推x],[推y]-1)="□" then [前景]([推x],[推y]-1)="↑":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]-1
End Sub
sub [下]
if [前景]([推x],[推y]+1)="■" and ([前景]([推x],[推y]+2)="∷" or [前景]([推x],[推y]+2)="□") then [前景]([推x],[推y]+2)="■":[前景]([推x],[推y]+1)="↓":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]+1
if [前景]([推x],[推y]+1)="∷" or [前景]([推x],[推y]+1)="□" then [前景]([推x],[推y]+1)="↓":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]+1
End Sub
sub [左]
if [前景]([推x]-1,[推y])="■" and ([前景]([推x]-2,[推y])="∷" or [前景]([推x]-2,[推y])="□") then [前景]([推x]-2,[推y])="■":[前景]([推x]-1,[推y])="←":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]-1
if [前景]([推x]-1,[推y])="∷" or [前景]([推x]-1,[推y])="□" then [前景]([推x]-1,[推y])="←":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]-1
End Sub
sub [右]
if [前景]([推x]+1,[推y])="■" and ([前景]([推x]+2,[推y])="∷" or [前景]([推x]+2,[推y])="□") then [前景]([推x]+2,[推y])="■":[前景]([推x]+1,[推y])="→":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]+1
if [前景]([推x]+1,[推y])="∷" or [前景]([推x]+1,[推y])="□" then [前景]([推x]+1,[推y])="→":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]+1
End Sub
sub [关卡]
For j = 0 TO 15
For i = 0 TO 15
[背景](i,j)="∷"
Next:Next
[障碍]=array(3,1,4,1,5,1,6,1,7,1,8,1,3,2,8,2,1,3,2,3,3,3,8,3,1,4,8,4,1,5,7,5,8,5,1,6,2,6,3,6,4,6,7,6,4,7,5,7,6,7,7,7)
for i=0 to UBound([障碍])-1 step 2
[背景]([障碍](i),[障碍](i+1))="●":
next
[箱位]=array(5,4,6,4,4,5,5,5,6,5,7,2)
for i=0 to UBound([箱位])-1 step 2
[背景]([箱位](i),[箱位](i+1))="□"
next
For j = 0 TO 15
For i = 0 TO 15
[前景](i,j)=[背景](i,j)
Next:Next
[箱子]=array(4,3,5,3,6,3,4,4,3,5)
for i=0 to UBound([箱子])-1 step 2
[前景]([箱子](i),[箱子](i+1))="■"
next
[前景](2,4)="↑"
[推x]=2:[推y]=4
[推]="w"
End Sub
</script>
</BODY>
*{background-color:#F5EFE8}
#d1{width:300px;height:300px;border:1px solid gray;text-align:center;padding-top:5px;background-color:aliceblue;}
#d2{font-size:12px;}
#d3{position:absolute;bottom:0px;right:0px;}
</style>
<hta:application scroll=0 innerBorder=0 />
<title>推箱子</title>
<BODY>
<div id=d1></div>
<div id=d2></div>
<div id=d3><a href="http://tieba.baidu.com/f?kz=1078528829" title="mjs1wh写的,改写成了hta">about</a></div>
<script language="VBScript">
window.resizeTo 338,395
Dim [前景](15, 15),[背景](15,15),[推x],[推y],[推]
[关卡]
[显示]="" : [空位]=0
[显示画面]
d1.innerText=[显示]
d2.innerText="用箭头将所有■推到□处，"&chr(10)&"最后一个□用箭头占领"&chr(10)&"w上、s下、a左、d右"
document.body.onkeydown=GetRef("onkeydown")
Sub onkeydown()
if [空位]=0 then msgbox [显示] & chr(10) & "恭喜你过关！"
Select Case window.event.keyCode
Case 37:[左]
Case 38:[上]
Case 39:[右]
Case 40:[下]
Case 65:[左]
Case 87:[上]
Case 68:[右]
Case 83:[下]
End Select
[显示]="" : [空位]=0
[显示画面]
d1.innerText=[显示]
End Sub
sub [显示画面]
For j = 0 TO 15
For i = 0 TO 15
[显示]=[显示] & [前景](i,j)
if [前景](i,j)="□" then [空位]=[空位]+1
next
[显示]=[显示] & chr(10)
next
'[显示]=[显示] &
End Sub
sub [上]
if [前景]([推x],[推y]-1)="■" and ([前景]([推x],[推y]-2)="∷" or [前景]([推x],[推y]-2)="□") then [前景]([推x],[推y]-2)="■":[前景]([推x],[推y]-1)="↑":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]-1
If [前景]([推x],[推y]-1)="∷" or [前景]([推x],[推y]-1)="□" then [前景]([推x],[推y]-1)="↑":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]-1
End Sub
sub [下]
if [前景]([推x],[推y]+1)="■" and ([前景]([推x],[推y]+2)="∷" or [前景]([推x],[推y]+2)="□") then [前景]([推x],[推y]+2)="■":[前景]([推x],[推y]+1)="↓":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]+1
if [前景]([推x],[推y]+1)="∷" or [前景]([推x],[推y]+1)="□" then [前景]([推x],[推y]+1)="↓":[前景]([推x],[推y])=[背景]([推x],[推y]):[推y]=[推y]+1
End Sub
sub [左]
if [前景]([推x]-1,[推y])="■" and ([前景]([推x]-2,[推y])="∷" or [前景]([推x]-2,[推y])="□") then [前景]([推x]-2,[推y])="■":[前景]([推x]-1,[推y])="←":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]-1
if [前景]([推x]-1,[推y])="∷" or [前景]([推x]-1,[推y])="□" then [前景]([推x]-1,[推y])="←":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]-1
End Sub
sub [右]
if [前景]([推x]+1,[推y])="■" and ([前景]([推x]+2,[推y])="∷" or [前景]([推x]+2,[推y])="□") then [前景]([推x]+2,[推y])="■":[前景]([推x]+1,[推y])="→":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]+1
if [前景]([推x]+1,[推y])="∷" or [前景]([推x]+1,[推y])="□" then [前景]([推x]+1,[推y])="→":[前景]([推x],[推y])=[背景]([推x],[推y]):[推x]=[推x]+1
End Sub
sub [关卡]
For j = 0 TO 15
For i = 0 TO 15
[背景](i,j)="∷"
Next:Next
[障碍]=array(3,1,4,1,5,1,6,1,7,1,8,1,3,2,8,2,1,3,2,3,3,3,8,3,1,4,8,4,1,5,7,5,8,5,1,6,2,6,3,6,4,6,7,6,4,7,5,7,6,7,7,7)
for i=0 to UBound([障碍])-1 step 2
[背景]([障碍](i),[障碍](i+1))="●":
next
[箱位]=array(5,4,6,4,4,5,5,5,6,5,7,2)
for i=0 to UBound([箱位])-1 step 2
[背景]([箱位](i),[箱位](i+1))="□"
next
For j = 0 TO 15
For i = 0 TO 15
[前景](i,j)=[背景](i,j)
Next:Next
[箱子]=array(4,3,5,3,6,3,4,4,3,5)
for i=0 to UBound([箱子])-1 step 2
[前景]([箱子](i),[箱子](i+1))="■"
next
[前景](2,4)="↑"
[推x]=2:[推y]=4
[推]="w"
End Sub
</script>
</BODY>
