//保姆坐标 bmx = 49 bmy = 268 //升级 bx = 441 by = 550 //获取阅历/解除疲劳 bx1 = 446 by1 = 518 //确定/升级 bx2 = 403 by2 = 538 /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //设置初始次数变量 k = 0 //刷钱·阅历·种植,无限循环语句开始 Rem start xunhuan=49 While xunhuan<56 //////////////////////////////// ////////////循环开始位置////////// //////////////////////////////// //统计已循环次数 k = k + 1 Delay 500 //多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱· //多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱·多选框自动刷钱· If Form1.CheckBox1.Value > 0 Then //打开家 MoveTo 945, 195 LeftClick 1 //选择培育室 MoveTo 492, 240 LeftClick 1 Delay 500 For 65 //第一次,选择牵牛花 MoveTo x1, y1 LeftClick 1 Delay 500 //判断牵牛花的数量是否为0,不是则进行清空 FindPic 303,280,340,310,"Attachment:\植物未携带.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then //点击携带 MoveTo x6, y6 LeftClick 1 //输入99个 MoveTo x3, y3 LeftClick 1 SayString ("99") //点击确定 MoveTo x4, y4 LeftClick 1 sl = sl + 1 Delay 500 //第一次,选择牵牛花 MoveTo x1, y1 LeftClick 1 Delay 500 End If //点击培育 MoveTo x2, y2 LeftClick 1 Delay 500 //输入99个 MoveTo x3, y3 LeftClick 1 SayString ("99") //点击确定 MoveTo x4, y4 LeftClick 1