|
//到国家里,随便站一处就可以铺了
//db是地板类型,具体的可以自己铺一块,然后按h看
Dim db
db=65541
//以下是代码不用修改
dim x
Dim y
For x = 0 To 100
For y = 0 To 200
Delay 100
SayString "build "&db&" "&(x-6)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay 100
SayString "build "&db&" "&(x-4)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay 100
SayString "build "&db&" "&(x-2)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay 100
SayString "build "&db&" "&(x)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 1200
Delay 1200
SayString "build "db&" "&(x+2)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay 100
SayString "build "&db&" "&(x+4)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay 100
SayString "build "&db&" "&(x+6)*65536+y
Delay 200
KeyPress "Enter", 1
Delay 100
Delay500
y=y+2
Next
x=x+10
Next
MessageBox "铺好了" |
|