- 令 a1 = form1.游戏路径.text
- 令 a10 = form1.InputBox1.text
- 令 a2 = form1.InputBox2.text
- 令 a3 = form1.InputBox3.text
- 令 a4 = form1.InputBox4.text
- 令 a5 = form1.InputBox5.text
- 令 a6 = form1.InputBox6.text
- 令 a7 = form1.InputBox7.text
- 令 a8 = form1.InputBox8.text
- 令 a9 = form1.InputBox9.text
- 令 YanShi = form1.InputBox11.text
- 令 c = form1.InputBox10.text
- 如果 Form1.CheckBox1.Value = 1 则
- 调用 运行1()
- 否则
- 条件结束
- 如果 Form1.CheckBox2.Value = 1 则
- 调用 运行2()
- 否则
- 条件结束
- 如果 Form1.CheckBox3.Value = 1 则
- 调用 运行3()
- 否则
- 条件结束
- 如果 Form1.CheckBox4.Value = 1 则
- 调用 运行4()
- 否则
- 条件结束
- 调用 运行1()
- 子程序 运行1()
- 标记 开始1(子程序 运行1)
- 延时 1000 毫秒
- 延时 YanShi 毫秒
- (鼠标)移动到 (40, 17)
- 延时 YanShi 毫秒
- (鼠标)左键单击, 1次
- 延时 50 毫秒
- (键盘)按 "Enter" 键, 1次
- 延时 100 毫秒
- 延时 YanShi 毫秒
- (鼠标)移动到 (600, 300)
- 保存鼠标位置
- 令 i = 0
- 循环当 i = 0 时
- 延时 YanShi 毫秒
- 从左上到右下查找颜色 "5ac3ef",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intx > 0 并且 inty > 0 则
- 延时 YanShi 毫秒
- 令 i = 1
- 条件结束
- 循环结束
- 令 w1 = Window.Find(0,"大话西游 II ($Revision: 214866 $)")
- 延时 50 毫秒
- 调用 Window.Active(w1)
- 延时 50 毫秒
- 调用 Window.Move(w1,1,1)
- 延时 YanShi 毫秒
- 标记 b1(子程序 运行1)
- 如果点 (8,34) 的颜色等于 "2961A5" 则
- 延时 YanShi 毫秒
- (鼠标)移动到 (579, 123)
- 延时 YanShi 毫秒
- (鼠标)左键单击, 1次
- 延时 YanShi 毫秒
- 否则
- 跳转到标记 b1(子程序 运行1)
- 条件结束
- 延时 YanShi 毫秒
- 标记 b2(子程序 运行1)
- 如果点 (52,47) 的颜色等于 "394129" 则
- (鼠标)右键单击, 1次
- 延时 YanShi 毫秒
- 否则
- 跳转到标记 b2(子程序 运行1)
- 条件结束
- 延时 YanShi 毫秒
- 标记 b3(子程序 运行1)
- 如果点 (36,45) 的颜色等于 "314129" 则
- 延时 YanShi 毫秒
- 输入文本 a10
- 延时 YanShi 毫秒
- 否则
- 跳转到标记 b3(子程序 运行1)
- 条件结束
- 延时 YanShi 毫秒
- 如果点 (384,390) 的颜色等于 "31CBFF" 则
- 延时 YanShi 毫秒
- (鼠标)移动到 (414, 374)
- 延时 YanShi 毫秒
- (鼠标)左键单击, 1次
- 延时 YanShi 毫秒
- 调用 创建1()
- 否则
- 条件结束
- 延时 500 毫秒
- 调用 关闭()
- 延时 YanShi 毫秒
- 跳转到标记 开始1(子程序 运行1)
- 子程序结束
- 子程序 运行2()