sokoban兄说的“Sokoban 1.5”应该是“Sokoban For Windows v1.5”。 那是Bjorn
Kallmark的作品。 它自动推箱子的程序不可以拐弯。
现在已经出了“Sokoban For Windows v3”。
如果需要 v1.5, 我可以寄给你或上传到这里。
作者Bjorn说v1.2版本是在十二月, 1996年推出, 当时已经有鼠标点击然后程序自
动推箱子的功能。
*Sb[n]=Sb[n] +Sc[1] +Sb[0]
Sb[n]=Sb[n] +Sc[1] +"LUlldRdrUrruulDuullDDRUdddlUluRurrrddL"
FOR j=2 to n
Sb[n]=Sb[n] +Sc[j] +Sb[j-1]
next
Sz[n]="rD"+Sa[n]+ "rddl" +Sb[n] + "UruL"
_cliptext=Sz[n]
?"level","box","move and push"
? n,n*2+4, len(Sz[n])
wait
next
return
func fm(fs,fm)
fss=""
if fm>=1 then
for fi=1 to fm
fss=fss+fs
next
endif
return fss
***********