万王之王 KOK King of Kings

 找回密码
 加入我们
查看: 505|回复: 0

【RK】 自动铺地板代码

[复制链接]
发表于 2017-11-29 09:24 | 显示全部楼层 |阅读模式
//到国家里,随便站一处就可以铺了
//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 "铺好了"
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

小黑屋|手机版|万王之王 king of kings

GMT+8, 2024-3-29 22:04

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表